home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1987 / 11 / virus1.log < prev    next >
Encoding:
Text File  |  1987-09-02  |  512 b   |  18 lines

  1. (a) Das Wort im Editor:
  2.  
  3. TO CARDINALP :Xì
  4. ;PRUEFT, OB :X EINE NATUERLICHE ZAHL ISTì
  5. ;KOMMENTAR WIRD BEI LISTENBILDUNG ENTFERNTì
  6. IF (NOT NUMBERP :X) [OP "FALSE]ì
  7. IF (NOT :X = INT :X) [OP "FALSE]ì
  8. IF (:X < 1) [OP "FALSE]ì
  9. OP "TRUEì
  10. END
  11.  
  12.  
  13. (b) Das Wort als Liste :
  14.  
  15. [[X] [IF (NOT NUMBERP :X) [OP "FALSE]]ì
  16.  [IF (NOT :X = INT :X) [OP "FALSE]]ì
  17.  [IF (:X < 1) [OP "FALSE]] [OP "TRUE]]
  18.