view interps/c-intercal/pit/tests/test2.i @ 12509:2255eb45a711 draft default tip

<wib_jonas> `` </hackenv/tmp/cmd.whatis tr -d \\\\r | grep cmd | cat -v >> /hackenv/share/whatis
author HackEso <hackeso@esolangs.org>
date Wed, 17 Jul 2024 14:42:40 +0100
parents 859f9b4339e6
children
line wrap: on
line source

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