home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
intercal.zip
/
lib
/
numio.i
< prev
next >
Wrap
Text File
|
1996-06-20
|
5KB
|
227 lines
PLEASE USE THE AUTHORIZED CHANNELS
(3000) DO STASH .2 + .3
DO .1 <- ,3000SUB#1
PLEASE WRITE IN ,3000
DO .2 <- ,3000SUB#1
DO (1000) NEXT
DO .1 <- .3~#255
DO ,3000SUB#1 <- .1
DO RETRIEVE .2 + .3
PLEASE RESUME #1
(3001) DO STASH .1 + .3
DO .1 <- ,3001SUB#1
DO (1010) NEXT
DO ,3001SUB#1 <- .3~#255
PLEASE READ OUT ,3001
DO ,3001SUB#1 <- .2
DO .1 <- .2
DO RETRIEVE .1 + .3
PLEASE RESUME #1
(3089) PLEASE ABSTAIN FROM (3087)
(3080) PLEASE STASH .2 + .3 + .4
DO .3 <- #0
DO (3081) NEXT
(3087) DO (3088) NEXT
PLEASE REINSTATE (3087)
DO .4 <- '?.1$#10'~'#0$#65535'
DO .4 <- .4~.4
DO (3085) NEXT
(3998) DOES "ENTER A NUMBER" MEAN SOMETHING DIFFERENT WHERE YOU COME FROM?
(3085) DO (3086) NEXT
(3088) PLEASE FORGET #1
DO .1 <- .3
PLEASE RETRIEVE .2 + .3 + .4
PLEASE RESUME #1
(3086) PLEASE RESUME '?.V4$#1'~#3
(3081) DO COME FROM (3082)
DO (3000) NEXT
DO .4 <- '?".1~#240"$#3'~#85
DO .4 <- '".4~.4"~#1'$'&".1~#8"$".V1~#2"'
DO (3086) NEXT
DO .4 <- .3~#57344
DO .4 <- .4~.4
DO (3083) NEXT
DO (1999) NEXT
(3083) DO (3086) NEXT
PLEASE FORGET #1
DO .4 <- .1
DO .2 <- !3$#0'~'#32767$#1'
DO .1 <- !2$#0'~'#16383$#3'
DO (1000) NEXT
DO .1 <- .3
DO .2 <- .4~#15
(3082) DO (1000) NEXT
(3090) PLEASE ABSTAIN FROM (3097)
(3099) PLEASE STASH .1 + .2 + .3 + .4
DO .2 <- #256
PLEASE STASH .2
DO (3091) NEXT
DO (3095) NEXT
DO .2 <- #80
(3097) DO (3001) NEXT
PLEASE REINSTATE (3097)
PLEASE RETRIEVE .1 + .2 + .3 + .4
PLEASE RESUME #1
(3098) PLEASE RESUME '?"!1~.1'~#1"$#2'~#3
(3091) DO COME FROM (3092)
DO .2 <- #10
DO (2030) NEXT
DO .2 <- .4
PLEASE STASH .2
DO .1 <- .3
(3092) DO (3098) NEXT
(3095) DO COME FROM (3094)
PLEASE RETRIEVE .2
DO (3093) NEXT
DO .2 <- .2$#3
DO .2 <- !2~#15'$!2~#240'
DO .2 <- !2~#15'$!2~#240'
(3094) DO (3001) NEXT
(3093) PLEASE RESUME '?".2~#256"$#1'~#3
(3189) PLEASE ABSTAIN FROM (3187)
(3180) PLEASE STASH :2 + :3 + .1 + .4
DO :3 <- #0
PLEASE STASH :4
DO (3181) NEXT
PLEASE RETRIEVE :4
(3187) DO (3188) NEXT
PLEASE REINSTATE (3187)
DO .4 <- '?.1$#10'~'#0$#65535'
DO .4 <- .4~.4
DO (3185) NEXT
DO (3998) NEXT
(3185) DO (3186) NEXT
(3188) PLEASE FORGET #1
DO :1 <- :3
PLEASE RETRIEVE :2 + :3 + .1 + .4
PLEASE RESUME #1
(3186) PLEASE RESUME '?.V4$#1'~#3
(3181) DO COME FROM (3182)
DO (3000) NEXT
DO .4 <- '?".1~#240"$#3'~#85
DO .4 <- '".4~.4"~#1'$'&".1~#8"$".V1~#2"'
DO (3186) NEXT
DO .4 <- :3~'#49152$#32768'
DO .4 <- .4~.4
DO (3183) NEXT
DO (1999) NEXT
(3183) DO (3186) NEXT
PLEASE FORGET #1
DO :2 <- ':3~"#0$#65535"'$'"':3~"#32767$#0"'$#0"~"#32767$#1"'
DO :1 <- ':2~"#32767$#1"'$'"':2~"#0$#32767"'$#0"~"#32767$#1"'
DO (1500) NEXT
DO :1 <- :3
DO :2 <- .1~#15
(3182) DO (1500) NEXT
(3190) PLEASE ABSTAIN FROM (3197)
(3199) PLEASE STASH :1 + :2 + :3 + .2 + .4
DO :2 <- #10
DO .2 <- #256
PLEASE STASH .2
DO (3191) NEXT
DO (3095) NEXT
DO .2 <- #80
(3197) DO (3001) NEXT
PLEASE REINSTATE (3197)
PLEASE RETRIEVE :1 + :2 + :3 + .2 + .4
PLEASE RESUME #1
(3198) PLEASE RESUME '?"':1~:1'~#1"$#2'~#3
(3191) DO COME FROM (3192)
DO (2530) NEXT
DO .2 <- :4
PLEASE STASH .2
DO :1 <- :3
(3192) DO (3198) NEXT
(3990) DO ,3000 <- #1
DO ,3000SUB#1 <- #0
DO ,3001 <- #1
DO ,3001SUB#1 <- #0
PLEASE RESUME #1
(2030) DO STASH .1 + .5
DO .3 <- #0
DO .5 <- '?"!2~.2'~#1"$#1'~#3
PLEASE DO (2031) NEXT
DO .4 <- #1
PLEASE DO (2033) NEXT
(2033) DO FORGET #1
DO .5 <- '?".2~#32768"$#2'~#3
DO (2032) NEXT
DO .2 <- !2$#0'~'#32767$#1'
PLEASE DO .4 <- !4$#0'~'#32767$#1'
DO (2033) NEXT
(2032) DO (1001) NEXT
(2036) PLEASE FORGET #1
DO .5 <- '?.1$.2'~'#0$#65535'
DO .5 <- '?"'&"!2~.5'~'"?'?.5~.5'$#32768"~"#0$#65535"'"$
".5~.5"'~#1"$#2'~#3
DO (2034) NEXT
DO .5 <- .3
DO (1010) NEXT
PLEASE DO .1 <- .3
DO .3 <- 'V.4$.5'~'#0$#65535'
DO (2035) NEXT
(2034) PLEASE DO (1001) NEXT
(2035) DO FORGET #1
DO .5 <- "?'.4~#1'$#2"~#3
DO (2031) NEXT
DO .2 <- .2~#65534
DO .4 <- .4~#65534
PLEASE DO (2036) NEXT
(2031) DO (1001) NEXT
PLEASE DO .4 <- .1
PLEASE RETRIEVE .1 + .5
PLEASE RESUME #2
(2530) DO STASH :1 + :5 + .5
DO :3 <- #0
DO .5 <- '?"':2~:2'~#1"$#1'~#3
PLEASE DO (2531) NEXT
DO :4 <- #1
PLEASE DO (2533) NEXT
(2533) DO FORGET #1
DO .5 <- '?":2~'#32768$#0'"$#2'~#3
DO (2532) NEXT
DO :2 <- ":2~'#0$#65535'"$"'":2~'#32767$#0'"$#
0'~'#32767$#1'"
PLEASE DO :4 <- ":4~'#0$#65535'"$"'":4~'#32767
$#0'"$#0'~'#32767$#1'"
DO (2533) NEXT
(2532) DO (1001) NEXT
(2536) PLEASE FORGET #1
DO :5 <- "'?":1~'#65535$#0'"$":2~'#65535$#0'"'
~'#0$#65535'"$"'?":1~'#0$#65535'"$":2~'#0$
#65535'"'~'#0$#65535'"
DO .5 <- '?"'&"':2~:5'~'"'?"'?":5~:5"~"#65535$
#65535"'~'#65535$#0'"$#32768'~'#0$#65535'"
$"'?":5~:5"~"#65535$#65535"'~'#0$#65535'"'
"$"':5~:5'~#1"'~#1"$#2'~#3
DO (2534) NEXT
DO :5 <- :3
DO (1510) NEXT
PLEASE DO :1 <- :3
DO :3 <- "'V":4~'#65535$#0'"$":5~'#65535$#0'"'
~'#0$#65535'"$"'V":4~'#0$#65535'"$":5~'#0$
#65535'"'~'#0$#65535'"
DO (2535) NEXT
(2534) PLEASE DO (1001) NEXT
(2535) DO FORGET #1
DO .5 <- "?':4~#1'$#2"~#3
DO (2531) NEXT
DO :2 <- ":2~'#0$#65534'"$":2~'#65535$#0'"
DO :4 <- ":4~'#0$#65534'"$":4~'#65535$#0'"
PLEASE DO (2536) NEXT
(2531) DO (1001) NEXT
DO :4 <- :1
PLEASE RETRIEVE :1 + :5 + .5
PLEASE RESUME #2