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