1 :'Anarchy - Tape
2 :'By Julian Page
3 :'032
10 DATA 41,4E,41,52
20 DATA 43,48,59,06
30 DATA 07,21,00,A0
40 DATA 11,00,C0,CD
50 DATA 77,BC,21,24
60 DATA 7F,CD,83,BC
70 DATA CD,7A,BC,21
80 DATA 6B,7F,11,24
90 DATA BF,01,DB,00
100 DATA F3,31,23,BF
110 DATA ED,B0,DD,21
120 DATA 62,BF,11,06
130 DATA 00,CD,8F,BF
140 DATA DD,21,70,01
150 DATA 11,C0,6C,CD
160 DATA 8F,BF,CD,70
170 DATA 01,DD,21,00
180 DATA BF,11,06,00
190 DATA CD,8F,BF,DD
200 DATA 21,70,01,11
210 DATA C0,6C,CD,8F
220 DATA BF,3E,C9,32
230 DATA A4,01,CD,80
240 DATA 01,3E,C9,32
250 DATA E1,48,C3,00
260 DATA 80
270 FOR X=0 TO 100
280 READ A$:A=VAL("&"+A$)
290 POKE &A000+X,A
300 C=C+A
310 NEXT X
320 IF C=&2AD3 THEN 340
330 PRINT"ERROR.":STOP
340 MODE 0:CALL &A007