1 :' Amaurote
2 :' by Peter Featherstone
10 MODE 1
20 FOR f=&BE00 TO &BE23
30 READ a$
40 POKE f,VAL("&"+a$)
50 NEXT
60 CALL &BE00
100 DATA 21,00,40,11,00,31
110 DATA 3e,16,cd,a1,bc,30
120 DATA f3,21,16,be,22,24
130 DATA 40,c3,00,40,af,32
140 DATA 44,9d,32,a0,8d,32
150 DATA 97,8d,c3,d4,26,00

1 :' Amaurote - tape
2 :' by Phil Howard
10 DATA 21,40,00,11,25,00
20 DATA 3e,16,cd,a1.bc,21
30 DATA 14,be,22,59,00,c3
40 DATA 40,00,21,d3,41,36
50 DATA c3,23,36,22,23,36
60 DATA be,c3,00,40,dd,21
70 DATA 0a,7f,11,0c,00,21
80 DATA 49,be,06,05,cd,3c
90 DATA be,dd,19,11,09,00
100 DATA 23,10,f5,c3,d4,26
110 DATA dd,36,00,49,7e,dd
120 DATA 77,01,dd,36,02,ff
130 DATA c9,10,04,02,01,08
140 y=0:MODE 1
150 FOR x=&BE00 TO 4BE4D
160 READ a$:a=VAL("&"+a$)
170 POKE x,a:y=y+a:NEXT
180 IF y<>&1907 THEN 200
190 CALL &BE00
200 PRINT"Data Error"