home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / intercal.zip / pit / count.3i < prev    next >
Text File  |  1996-06-09  |  1KB  |  44 lines
  1.     DO ,1 <- #16
  2.     DO :2 <- #6490$#55022
  3.     PLEASE DO (44) NEXT
  4.     DO :2 <- #5631$#54733
  5.     PLEASE DO (44) NEXT
  6.     DO :2 <- #14637$#40039
  7.     PLEASE DO (44) NEXT
  8.     DO :2 <- #58550$#53112
  9.     PLEASE DO (44) NEXT
  10.     DO .1 <- #1
  11.     PLEASE DO (99) NEXT
  12.     DO GIVE UP
  13. (44)    DO REINSTATE COMING FROM
  14. (19)    DO COME FROM (68)
  15.     DO ABSTAIN FROM (19)
  16. (31)    DO COME FROM (34)
  17.     DO ABSTAIN FROM (31)
  18. (88)    DO COME FROM (65)
  19.     PLEASE ABSTAIN FROM (88)
  20.     DO COME FROM (44)
  21.     PLEASE DO (123) NEXT
  22.     DO .3 <- ':2~"#4$#13"'
  23.     DO :2 <- ':2~"#29520$#29511"'
  24.     DO ,1 SUB .1 <- .3
  25. (65)    DON'T GIVE UP
  26. (34)    PLEASE DON'T GIVE UP
  27. (68)    DO NOTE THAT THIS FUNNY CODE ACTUALLY WORKS
  28.     PLEASE RESUME #1
  29. (99)    DO COME FROM (69)
  30.     DO READ OUT ,1
  31.     DO ,1 SUB #1 <- #180
  32.     DO READ OUT .1
  33.     DO .2 <- "?.1$#10"~"#0$#29524"
  34.     PLEASE DO (15) NEXT
  35. (69)    PLEASE DO (123) NEXT
  36. (42)    DO RESUME .9
  37. (123)    PLEASE .8 <- #1
  38.     DO COME FROM (81)
  39.     DO .9 <- '?"V!1~.8'$#1"~#1'~#1
  40.     DO .1 <- "^.1$.8"~"#0$#29524"
  41.     PLEASE DO (42) NEXT
  42. (81)    DO .8 <- !8$#0'~"#9841$#1"
  43. (15)    PLEASE RESUME '?"!2~.2'~#2"$#1'~#1
  44.