home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / intercal.zip / pit / tests / test1.i < prev    next >
Text File  |  1994-09-22  |  2KB  |  84 lines
  1.        PLEASE DO (1) NEXT
  2.        DO ERROR: NEXTING NOT WORKING
  3.        DO SECTION A: CONTROL FLOW
  4. (1)    DO FORGET #1
  5.        DO .1 <- #2
  6.        PLEASE DO (2) NEXT
  7.        DO (11) NEXT
  8.        DO ERROR: IGNORING NOT WORKING
  9. (7)    DO FORGET #2
  10.        DO REMEMBER .1
  11.        DO .1 <- #2
  12.        DO (12) NEXT
  13.        DO ABSTAIN FROM (50)
  14. (50)   PLEASE DO (51) NEXT
  15.        DO ABSTAIN FROM (52)
  16.        DO REINSTATE (52)
  17. (52)   PLEASE DO (123) NEXT
  18.        DO ERROR: LABEL REINSTATING NOT WORKING
  19. (123)  PLEASE DO FORGET #1
  20.        DO .1 <- #2
  21.        DO STASH .1
  22.        DO .1 <- #1
  23.        DO RETRIEVE .1
  24.        PLEASE DO (125) NEXT
  25.        PLEASE DO (124) NEXT
  26. (125)  PLEASE DO (126) NEXT
  27.        DO ERROR: RETRIEVING OR STASHING NOT WORKING
  28. (126)  DO RESUME .1
  29.        DO ERROR
  30. (12)   PLEASE DO (13) NEXT
  31.        DO ERROR: REMEMBERING NOT WORKING
  32. (13)   DO RESUME .1
  33.        DO ERROR
  34. (11)   PLEASE DO (111) NEXT
  35.        DO (7) NEXT
  36. (111)  DO .1 <- #1
  37.        DO IGNORE .1
  38.        DO .1 <- #2
  39.        DO RESUME .1
  40. (2)    DO (5) NEXT
  41.        DO ERROR
  42. (5)    DO RESUME .1
  43.        DO ERROR: RESUMING NOT WORKING
  44. (51)   DO ERROR: LABEL ABSTENTION NOT WORKING
  45.        DO SECTION B: CALCULATION
  46. (124)  PLEASE FORGET #1
  47.        DO .1 <- #3
  48.        DO .1 <- .&1
  49.        PLEASE DO (501) NEXT
  50.        DO ERROR IN & OPERATION
  51. (501)  PLEASE DO (502) NEXT
  52.        DO ERROR IN & OPERATION
  53. (502)  PLEASE DO (603) NEXT
  54.        DO FORGET #2
  55.        DO .1 <- #2
  56.        DO .1 <- .V1
  57.        PLEASE DO (601) NEXT
  58.        DO .2 <- #32773
  59.        DO .2 <- .?2
  60.        DO .2 <- .&2
  61.        PLEASE DO (701) NEXT
  62.        DO .1 <- #7~#5
  63.        PLEASE DO (901) NEXT
  64.        DO .1 <- #1$#0
  65.        DO (950) NEXT
  66.        DO THIS TEST HAS BEEN SUCCESSFULLY COMPLETED
  67. (950)  PLEASE DO (951) NEXT   
  68.        DO ERROR IN $'ING
  69. (951)  DO RESUME .1
  70. (901)  PLEASE DO (902) NEXT
  71.        DO ~ ERROR
  72. (902)  PLEASE DO (903) NEXT
  73.        DO ~ ERROR
  74. (903)  DO RESUME .1
  75. (701)  PLEASE DO (702) NEXT
  76.        DO ERROR IN ? XOR OPERATION
  77. (702)  PLEASE DO (603) NEXT
  78.        DO ERROR IN ? XOR OPERATION
  79. (601)  PLEASE DO (602) NEXT
  80.        DO ERROR IN V OPERATION
  81. (602)  PLEASE DO (603) NEXT
  82.        DO ERROR IN V OPERATION
  83. (603)  DO RESUME .1
  84.