home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / intercal.zip / pit / tests / testlib2.i < prev    next >
Text File  |  1996-06-17  |  1KB  |  63 lines
  1.  
  2. DO (10) NEXT
  3.  
  4. (10)    PLEASE FORGET #1
  5.         DO WRITE IN .1
  6.         DO (2000) NEXT
  7.         DO READ OUT .1
  8.         DO GIVE UP
  9.  
  10. (20)    PLEASE FORGET #1
  11.         DO WRITE IN .1
  12.         DO (22) NEXT
  13. (21)    DO (2010) NEXT
  14.         DO READ OUT .1
  15. (22)    PLEASE FORGET #1
  16.         DO (21) NEXT
  17.         DO READ OUT .1
  18.         DO GIVE UP
  19.  
  20. (30)    PLEASE FORGET #1
  21.         DO WRITE IN .1
  22.         DO WRITE IN .2
  23.         DO (2020) NEXT
  24.         DO READ OUT .1
  25.         DO GIVE UP
  26.  
  27.  
  28.  
  29. (2010)  PLEASE ABSTAIN FROM (2004)
  30. (2000)  DO STASH .2
  31.         DO .2 <- #1
  32.         DO (2001) NEXT
  33. (2001)  PLEASE FORGET #1
  34.         DO .1 <- '?.1$.2'~'#0$#65535'
  35.         DO (2002) NEXT
  36.         DO .2 <- !2$#0'~'#32767$#1'
  37.         DO (2001) NEXT
  38. (2003)  PLEASE RESUME "?!1~.2'$#1"~#3
  39. (2002)  DO (2003) NEXT
  40.         PLEASE RETRIEVE .2
  41. (2004)    PLEASE RESUME #2
  42.     PLEASE DO REINSTATE (2004)
  43.     PLEASE RESUME '?"!1~.1'~#1"$#2'~#6
  44.  
  45. (2020)  PLEASE STASH .2 + .3
  46.     DO (1021) NEXT
  47.  
  48.  
  49.  
  50.         (1020)  DO STASH .2 + .3
  51.                 DO .2 <- #1
  52.                 PLEASE DO (1021) NEXT
  53.         (1021)  DO FORGET #1
  54.                 DO .3 <- "?!1~.2'$#1"~#3
  55.                 PLEASE DO .1 <- '?.1$.2'~'#0$#65535'
  56.                 DO (1022) NEXT
  57.                 DO .2 <- !2$#0'~'#32767$#1'
  58.                 DO (1021) NEXT
  59.         (1023)  PLEASE RESUME .3
  60.         (1022)  DO (1023) NEXT
  61.                 PLEASE RETRIEVE .2 + .3
  62.                 PLEASE RESUME #2
  63.