1 :' Doomsday Blues
2 :' by Martin Farrar
3 :' 051
50 a=&BF00:t=0
60 READ b$:IF b$="end" THEN 90
70 b=VAL("&"+b$)
75 POKE a,b:t=t+b
80 a=a+1:GOTO 60
90 IF t<>3734 THEN PRINT "ERROR":END
100 CALL &BF00
110 DATA 21,24,BF,06,04,11
120 DATA 00,40,CD,77,BC,EB
130 DATA CD,83,BC,CD,7A,BC
140 DATA 21,BC,9B,36,00,21
150 DATA 12,96,36,00,21,5D
160 DATA 8D,36,00,C3,00,70
170 DATA 45,44,45,4E
180 DATA end