Andy Melnikov (nponeccop) wrote,
Andy Melnikov
nponeccop

Cмешные прыжки "каретки"

К вопросу о перемежении правостороннего и левостороннего кода в х-е. Я тут шутку придумал, но нужен кто-то, кто знает левосторонний язык, дабы не было хатуль мадана (он же калитка законопроект). Идея переписать данный код на кейворды на левостороннем языке. Т.е. чтобы OPEN OUTPUT SupplierFile. превратилось в

.SupplierFile פלט פתוח 
(но с нормальным переводом). Cобственно код на коболе:

PROCEDURE DIVISION.
Begin.
    OPEN OUTPUT SupplierFile.
    OPEN INPUT SupplierFileSeq.
    
    READ SupplierFileSeq 
        AT END SET EndOfFile TO TRUE
    END-READ
    PERFORM UNTIL EndOfFile
       MOVE SupplierCodeSeq TO SupplierKey
       MOVE SupplierRecordSeq TO SupplierRecord
       WRITE SupplierRecord
          INVALID KEY DISPLAY "Supplier status = " SupplierStatus
       END-WRITE
       READ SupplierFileSeq 
            AT END SET EndOfFile TO TRUE
       END-READ
    END-PERFORM.    

    CLOSE  SupplierFile, SupplierFileSeq.
    STOP RUN.
Интересно кстати, это только в иврите так курсор смешно прыгает на цифрах?
Tags: fp, programming, юмор
Subscribe

  • Post a new comment

    Error

    default userpic

    Your reply will be screened

    Your IP address will be recorded 

    When you submit the form an invisible reCAPTCHA check will be performed.
    You must follow the Privacy Policy and Google Terms of use.
  • 3 comments