home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / intercal.zip / pit / tests / testcf.i < prev    next >
Text File  |  1994-09-22  |  477b  |  23 lines
  1.     DO COME FROM (80)
  2.     PLEASE %50 REINSTATE (10)
  3.         DO .1 <- #1
  4. (10)    DO NOT %99 .1 <- #2
  5.         DO .1 <- #3
  6.     PLEASE COME FROM (10)
  7.         DO READ OUT .1
  8.         DO .1 <- #1
  9. (20)    DO %50 .1 <- #2
  10.         DO .1 <- #3
  11. (30)    PLEASE %50 COME FROM (20)
  12.     DO LOSE
  13.     PLEASE %90 COME FROM (30)
  14. (40)    PLEASE ABSTAIN FROM (50)
  15.         DO READ OUT .1
  16. (50)    PLEASE COME FROM (40)
  17. (60)    DO (70) NEXT
  18.         DO GIVE UP
  19. (70)    DO READ OUT #65535
  20.     DO RESUME #1
  21.     DO WIN
  22. (80)    DO COME FROM (60)
  23.