home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / intercal.zip / pit / sample.i < prev    next >
Text File  |  1994-04-25  |  682b  |  29 lines

  1.     DO (5) NEXT
  2.     (5) DO FORGET #1
  3.     PLEASE WRITE IN :1
  4.     DO .1 <- '?":1~'#32768$#0'"$#1'~#3
  5.     DO (1) NEXT
  6.     DO :1 <- "'?":1~'#65535$#0'"$#65535'
  7.         ~'#0$#65535'"$"'?":1~'#0$#65535'"
  8.         $#65535'~'#0$#65535'"
  9.     DO :2 <- #1
  10.     PLEASE DO (4) NEXT
  11.     (4) DO FORGET #1
  12.     DO .1 <- "?':1~:2'$#1"~#3
  13.     DO :1 <- "'?":1~'#65535$#0'"$":2~'#65535
  14.         $#0'"'~'#0$#65535'"$"'?":1~'#0
  15.         $#65535'"$":2~'#0$#65535'"'~'#0$#65535'"
  16.     DO (1) NEXT
  17.     DO :2 <- ":2~'#0$#65535'"
  18.         $"'":2~'#65535$#0'"$#0'~'#32767$#1'"
  19.     DO (4) NEXT
  20.     (2) DO RESUME .1
  21.     (1) PLEASE DO (2) NEXT
  22.     PLEASE FORGET #1
  23.     DO READ OUT :1
  24.     PLEASE DO .1 <- '?"':1~:1'~#1"$#1'~#3
  25.     DO (3) NEXT
  26.     PLEASE DO (5) NEXT
  27.     (3) DO (2) NEXT
  28.     PLEASE GIVE UP
  29.