home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / intercal.zip / pit / rot13.i < prev    next >
Text File  |  1996-06-09  |  2KB  |  129 lines
  1. (10)    PLEASE DON'T GIVE UP
  2. (1)    DO .2 <- '?.1$#64'~'#0$#65535'
  3.     DO .2 <- '&"'.1~.2'~'"?'?.2~.2'$#32768"~"#0$#65535"'"$".2~.2"'~#1
  4.     DO .3 <- '?#91$.1'~'#0$#65535'
  5.     DO .3 <- '&"'#91~.3'~'"?'?.3~.3'$#32768"~"#0$#65535"'"$".3~.3"'~#1
  6.     PLEASE DO (11) NEXT
  7.     PLEASE DO (2) NEXT
  8.     PLEASE DO (12) NEXT
  9. (11)    PLEASE DO (13) NEXT
  10.     PLEASE FORGET #1
  11.     PLEASE DO (12) NEXT
  12. (13)    PLEASE DO (14) NEXT
  13.     PLEASE FORGET #2
  14.     PLEASE DO (12) NEXT
  15. (14)    DO STASH .1
  16.     DO .1 <- .3
  17.     PLEASE DO (1000) NEXT
  18.     DO .1 <- .3
  19.     DO .2 <- #1
  20.     PLEASE DO (1000) NEXT
  21.     DO RETRIEVE .1
  22.     DO RESUME .3
  23. (12)    PLEASE FORGET #1
  24.     DO .2 <- '?.1$#96'~'#0$#65535'
  25.     DO .2 <- '&"'.1~.2'~'"?'?.2~.2'$#32768"~"#0$#65535"'"$".2~.2"'~#1
  26.     DO .3 <- '?#123$.1'~'#0$#65535'
  27.     DO .3 <- '&"'#123~.3'~'"?'?.3~.3'$#32768"~"#0$#65535"'"$".3~.3"'~#1
  28.     PLEASE DO (15) NEXT
  29.     PLEASE DO (3) NEXT
  30.     PLEASE DO (16) NEXT
  31. (15)    PLEASE DO (17) NEXT
  32.     PLEASE FORGET #1
  33.     DO (16) NEXT
  34. (17)    DO (18) NEXT
  35.     DO FORGET #2
  36.     DO (16) NEXT
  37. (18)    DO STASH .1
  38.     DO .1 <- .3
  39.     DO (1000) NEXT
  40.     DO .1 <- .3
  41.     DO .2 <- #1
  42.     DO (1000) NEXT
  43.     DO RETRIEVE .1
  44.     DO RESUME .3
  45. (16)    DO FORGET #1
  46.     DO RESUME #1
  47. (2)    DO .2 <- #65
  48.     DO (1010) NEXT
  49.     DO .1 <- .3
  50.     DO .2 <- #13
  51.     DO (1000) NEXT
  52.     DO STASH .3
  53.     DO .1 <- .3
  54.     DO .2 <- #26
  55.     DO (1040) NEXT
  56.     DO .1 <- .3
  57.     DO (1030) NEXT
  58.     DO .2 <- .3
  59.     DO RETRIEVE .3
  60.     DO .1 <- .3
  61.     DO (1010) NEXT
  62.     DO .1 <- .3
  63.     DO .2 <- #65
  64.     DO (1000) NEXT
  65.     DO .1 <- .3
  66.     DO RESUME #1
  67. (3)    DO .2 <- #97
  68.     DO (1010) NEXT
  69.     DO .1 <- .3
  70.     DO .2 <- #13
  71.     DO (1000) NEXT
  72.     DO STASH .3
  73.     DO .1 <- .3
  74.     DO .2 <- #26
  75.     DO (1040) NEXT
  76.     DO .1 <- .3
  77.     DO (1030) NEXT
  78.     DO .2 <- .3
  79.     DO RETRIEVE .3
  80.     DO .1 <- .3
  81.     DO (1010) NEXT
  82.     DO .1 <- .3
  83.     DO .2 <- #97
  84.     DO (1000) NEXT
  85.     DO .1 <- .3
  86.     DO RESUME #1
  87.     DO COME FROM (10)
  88.     DO .4 <- #0
  89.     DO .5 <- #0
  90.     DO STASH .4 + .5
  91.     DO ,1 <- #1
  92.     DO COME FROM (33)
  93.     DO WRITE IN ,1
  94.     DO .1 <- ,1 SUB #1
  95.     DO (31) NEXT
  96.     PLEASE DO .6 <- #1
  97.     PLEASE DO (34) NEXT
  98. (32)    PLEASE RESUME '?.1$#256'~'#256$#256'
  99. (31)    DO (32) NEXT
  100.     DO FORGET #1
  101.     DO .6 <- #0
  102.     PLEASE DO (34) NEXT
  103. (33)    DON'T GIVE UP
  104. (34)    DO .6 <- "?!6'$#1"~#3
  105.     DO (40) NEXT
  106.     DO GIVE UP
  107. (40)    DO (41) NEXT
  108.     PLEASE FORGET #1
  109.     DO (42) NEXT
  110. (41)    DO RESUME .6
  111. (42)    DO FORGET #1
  112.     DO RETRIEVE .4
  113.     DO .2 <- .4
  114.     DO (1000) NEXT
  115.     DO .4 <- .3~#255
  116.     DO .3 <- .4
  117.     DO STASH .4
  118.     DO .1 <- .3
  119.     DO (1) NEXT
  120.     DO .3 <- !1~#15'$!1~#240'
  121.     DO .3 <- !3~#15'$!3~#240'
  122.     DO .2 <- !3~#15'$!3~#240'
  123.     DO .1 <- .5
  124.     DO (1010) NEXT
  125.     DO .5 <- .2
  126.     DO ,1 SUB #1 <- .3 
  127.     PLEASE READ OUT ,1
  128.     PLEASE RESUME #1
  129.