OS/2 Shareware BBS: 10 Tools/10-Tools.zip/intercal.zip/pit/tests/test2.i

Text File | 1994-04-25 | 4KB | 188 lines

DO WRITE IN .1
DO WRITE IN .2
DO (1030) NEXT
DO READ OUT .3
DO GIVE UP
(1000)    PLEASE IGNORE .4
    PLEASE ABSTAIN FROM (1005)
(1009)    DO STASH .1 + .2 + .5 + .6
    DO .4 <- #1
    DO (1004) NEXT
(1004)    PLEASE FORGET #1
    DO .3 <- '?.1$.2'~'#0$#65535'
    DO .6 <- '&.1$.2'~'#0$#65535'
    PLEASE DO .5 <- "?!6~#32768'$#1"~#3
    DO (1002) NEXT
    DO .4 <- #2
(1005)    DO (1006) NEXT
(1999)    DOUBLE OR SINGLE PRECISION OVERFLOW
(1002)    DO (1001) NEXT
(1006)    PLEASE FORGET #1
    DO .5 <- '?"!6~.6'~#1"$#1'~#3
    DO (1003) NEXT
    DO .1 <- .3
    DO .2 <- !6$#0'~'#32767$#1'
    DO (1004) NEXT
(1003)    DO (1001) NEXT
    DO REINSTATE (1005)
(1007)    PLEASE RETRIEVE .1 + .2 + .5 + .6
    DO REMEMBER .4
    PLEASE RESUME #2
(1001)    DO RESUME .5
(1010)    DO STASH .1 + .2 + .4
    DO .4 <- .1
    DO .1 <- '?.2$#65535'~'#0$#65535'
    DO (1020) NEXT
    PLEASE DO .2 <- .4
    PLEASE DO (1009) NEXT
    DO RETRIEVE .1 + .2 + .4
    PLEASE RESUME #1
(1020)    DO STASH .2 + .3
    DO .2 <- #1
    PLEASE DO (1021) NEXT
(1021)    DO FORGET #1
    DO .3 <- "?!1~.2'$#1"~#3
    PLEASE DO .1 <- '?.1$.2'~'#0$#65535'
    DO (1022) NEXT
    DO .2 <- !2$#0'~'#32767$#1'
    DO (1021) NEXT
(1023)    PLEASE RESUME .3
(1022)    DO (1023) NEXT
    PLEASE RETRIEVE .2 + .3
    PLEASE RESUME #2
(1030)    DO ABSTAIN FROM (1033)
    PLEASE ABSTAIN FROM (1032)
(1039)    DO STASH :1 + .5
    DO (1530) NEXT
    DO .3 <- :1~#65535
    PLEASE DO .5 <- :1~'#65280$#65280'
    DO .5 <- '?"!5~.5'~#1"$#1'~#3
    DO (1031) NEXT
(1032)    DO (1033) NEXT
    DO (1999) NEXT
(1031)    DO (1001) NEXT
(1033)    DO .4 <- .5
    DO REINSTATE (1032)
    PLEASE REINSTATE (1033)
    DO RETRIEVE :1 + .5
    PLEASE RESUME #2
(1500)    PLEASE ABSTAIN FROM (1502)
    PLEASE ABSTAIN FROM (1506)
(1509)    PLEASE STASH :1 + .1 + .2 + .3 + .4 + .5 + .6
    DO .1 <- :1~#65535
    PLEASE DO .2 <- :2~#65535
    DO (1009) NEXT
    DO .5 <- .3
    PLEASE DO .6 <- .4
    DO .1 <- :1~'#65280$#65280'
    DO .2 <- :2~'#65280$#65280'
    DO (1009) NEXT
    DO .1 <- .3
    PLEASE DO (1503) NEXT
    DO .6 <- .4
    DO .2 <- #1
    DO (1009) NEXT
    DO .1 <- .3
    DO (1501) NEXT
(1504)    PLEASE RESUME .6
(1503)    DO (1504) NEXT
(1501)    DO .2 <- .5
    DO .5 <- '?"'&.6$.4'~#1"$#2'~#3
    DO (1505) NEXT
(1506)    DO (1502) NEXT
    PLEASE DO (1999) NEXT
(1505)    DO (1001) NEXT
(1502)    DO :4 <- .5
    DO (1520) NEXT
    DO :3 <- :1
    PLEASE RETRIEVE :1 + .1 + .2 + .3 + .4 + .5 + .6
    DO REINSTATE (1502)
    DO REINSTATE (1506)
    PLEASE RESUME #3
(1510)    DO STASH :1 + :2 + :4
    DO :1 <- "'?":2~'#65535$#0'"$#65535'~'#0$#65535
'"$"'?":2~'#0$#65535'"$#65535'~'#0$#65535'"
    DO :2 <- #1
    DO (1509) NEXT
    PLEASE RETRIEVE :1
    DO :2 <- :3
    PLEASE DO (1509) NEXT
    DO RETRIEVE :2 + :4
    PLEASE RESUME #1
(1520)    PLEASE STASH .3 + .4
    DO .3 <- .1~#43690
    DO (1525) NEXT
    PLEASE DO .4 <- 'V.3$".2~#43690"'~'#0$#65535'
    DO .3 <- .1~#21845
    PLEASE DO (1525) NEXT
    DO :1 <- .4$"'V.3$".2~#21845"'~'#0$#65535'"
    PLEASE RETRIEVE .3 + .4
    DO RESUME #1
(1525)    DO .3 <- '"'"'"!3$#0'~'#32767$#1'"$#0'~'#32767
$#1'"$#0'~'#16383$#3'"$#0'~'#4095$#15'
    PLEASE RESUME #1
(1530)    DO STASH :2 + :3 + .3 + .5
    DO :1 <- #0
    DO :2 <- .2
    DO .3 <- #1
    DO (1535) NEXT
(1535)    PLEASE FORGET #1
    DO .5 <- "?!1~.3'$#1"~#3
    DO (1531) NEXT
    DO (1500) NEXT
    DO :1 <- :3
    PLEASE DO (1533) NEXT
(1531)    PLEASE DO (1001) NEXT
(1533)    DO FORGET #1
    DO .3 <- !3$#0'~'#32767$#1'
    DO :2 <- ":2~'#0$#65535'"$"'":2~'#32767$#0'"$#
0'~'#32767$#1'"
    PLEASE DO .5 <- "?!3~.3'$#1"~#3
    DO (1532) NEXT
    DO (1535) NEXT
(1532)    DO (1001) NEXT
    PLEASE RETRIEVE :2 + :3 + .3 + .5
    DO RESUME #2
(1540)    PLEASE ABSTAIN FROM (1541)
    DO ABSTAIN FROM (1542)
(1549)    PLEASE STASH :1 + :2 + :4 + :5 + .1 + .2 + .5
    DO .1 <- :1~#65535
    PLEASE DO .2 <- :2~'#65280$#65280'
    DO .5 <- :1~'#65280$#65280'
    DO (1530) NEXT
    DO :3 <- :1
    DO .2 <- :2~#65535
    PLEASE DO (1530) NEXT
    DO :5 <- :1
    DO .1 <- .5
    DO (1530) NEXT
    DO :4 <- :1
    PLEASE DO :1 <- ":3~'#65280$#65280'"$":5~'#65280$#65280'"
    DO .5 <- ':1~:1'~#1
    DO .2 <- :2~'#65280$#65280'
    DO (1530) NEXT
    PLEASE DO .5 <- '"':1~:1'~#1"$.5'~#3
    DO .1 <- :3~#65535
    DO .2 <- #0
    DO (1520) NEXT
    PLEASE DO :2 <- :1
    PLEASE DO .1 <- :4~#65535
    DO (1520) NEXT
    DO (1509) NEXT
    DO .5 <- !5$":4~#3"'~#15
    DO :1 <- :3
    DO :2 <- :5
    DO (1509) NEXT
    PLEASE DO .5 <- !5$":4~#3"'~#63
    DO .5 <- '?"!5~.5'~#1"$#1'~#3
    PLEASE RETRIEVE :4
(1541)    DO :4 <- .5
    DO (1543) NEXT
(1542)    DO (1544) NEXT
    PLEASE DO (1999) NEXT
(1543)    DO (1001) NEXT
(1544)    DO REINSTATE (1541)
    PLEASE REINSTATE (1542)
    PLEASE RETRIEVE :1 + :2 + :5 + .1 + .2 + .5
    DO RESUME #2