home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / intercal.zip / pit / hail_mary.3i < prev    next >
Text File  |  1996-06-09  |  850b  |  39 lines
  1.  
  2.     DO ,1 <- #10
  3.     DO ,1 SUB #1 <- #238
  4.     PLEASE ABSTAIN FROM (11)
  5.     DO ,1 SUB #2 <- #140
  6.     PLEASE DO ,1 SUB #3 <- #240
  7.     DO ,1 SUB #4 <- #96
  8.     DO ,1 SUB #5 <- #132
  9.     DO ,1 SUB #6 <- #44
  10.     DO ,1 SUB #7 <- #56
  11.     DO ,1 SUB #8 <- #176
  12.     DO ,1 SUB #9 <- #238
  13.     DO ,1 SUB #10 <- #96
  14.     DO .1 <- #400
  15.     DO (19) NEXT
  16.     DO GIVE UP
  17. (19)    DO COME FROM (55)
  18.     PLEASE DO STASH .1
  19.     DO .1 <- #2500
  20.     PLEASE (31) NEXT
  21.     DO RETRIEVE .1
  22.     DO (123) NEXT
  23. (55)    PLEASE DO (15) NEXT
  24. (31)    DO COME FROM (69)
  25.     PLEASE DON'T FORGET TO INSERT A BETTER HAIL-MARY ROUTINE
  26. (11)    DO ,1 SUB #1 <- #62
  27.     PLEASE REINSTATE CALCULATING
  28.     DO READ OUT ,1
  29.     PLEASE DO (123) NEXT
  30. (69)    DO (15) NEXT
  31. (42)    DO RESUME .9
  32. (123)    PLEASE .8 <- #1
  33.     PLEASE COME FROM (81)
  34.     DO .1 <- "?.1$.8"~"#0$#29524"
  35.     DO .9 <- '?"V!1~.8'$#1"~#1'~#1
  36.     PLEASE DO (42) NEXT
  37. (81)    DO .8 <- !8$#0'~"#9841$#1"
  38. (15)    PLEASE RESUME '?"!1~.1'~#2"$#1'~#1
  39.