REM REM ************************************************* REM * Dragon file header: * REM * Start: $2401 Length: $0d74 Exec: $8b8d * REM *(Start: 09217 Length: 03444 Exec: 35725) * REM ************************************************* REM 60 CLEAR 200,31825: CLS 70 FOR A=31826 TO 32761 STEP 26 80 B=0: FOR C=0 TO 25: READ D$:D= VAL ("&H"+D$): POKE A+C,D:B=B+D: NEXT C 90 READ D: IF D<>B THEN PRINT ,,"DATA ERROR IN"; PEEK (&H31)*256+ PEEK (&H32): END 100 NEXT A 110 FOR A=32762 TO 32767: POKE A,255: NEXT 120 PRINT ,,"DATA OK",,"CSAVEM"; CHR$ (34);"HI-RES"; CHR$ (34);",31826,32767,0" 130 END 140 DATA 00,00,00,FD,7C,52,A6,A0,81,7F,22,FA,81,22,26,01,39,81,0E,26,07,86,FF,B7,7C,54,2552 150 DATA 20,EA,81,0F,26,05,7F,7C,54,20,E1,81,10,26,15,A6,A0,81,1F,10,22,0F,0A,E6,A0,C1,2393 160 DATA 17,10,22,0F,02,FD,7C,52,20,C8,81,0D,26,05,FC,7C,52,20,3F,81,20,25,BB,C6,08,3D,2171 170 DATA C3,7C,00,1F,01,FC,7C,52,34,26,10,9E,BA,31,A6,5D,27,07,31,A9,01,00,5A,26,F9,C6,2407 180 DATA 08,A6,80,34,04,F6,7C,54,27,01,43,35,04,A7,A4,31,A8,20,5A,26,EC,35,26,4C,81,20,2248 190 DATA 10,25,FF,7D,4F,5C,C1,18,10,25,FF,75,5A,34,26,9E,BA,31,89,01,00,EC,A1,ED,81,10,2736 200 DATA 9C,B7,26,F7,B6,7C,54,A7,80,9C,B7,26,FA,35,26,7E,7C,55,00,00,00,00,00,00,00,00,2362 210 DATA 08,08,08,08,08,00,08,00,14,14,14,00,00,00,00,00,14,14,3E,14,14,00,08,3E,402 220 DATA 28,3E,0A,3E,08,00,30,32,04,08,10,26,06,00,10,28,28,10,2A,24,1A,00,08,08,10,00,600 230 DATA 00,00,00,00,08,10,20,20,20,10,08,00,08,04,02,02,02,04,08,00,08,2A,1C,08,1C,2A,330 240 DATA 08,00,00,08,08,3E,08,08,00,00,00,00,00,00,00,08,08,10,00,00,00,3E,00,00,00,00,196 250 DATA 00,00,00,00,00,18,18,00,00,02,04,08,10,20,00,00,1C,22,26,2A,32,22,1C,00,08,18,396 260 DATA 08,08,08,08,1C,00,1C,22,02,0C,10,20,3E,00,1C,22,02,0C,02,22,1C,00,04,0C,14,24,458 270 DATA 3E,04,04,00,3E,20,3C,02,02,22,1C,00,0E,10,20,3E,22,22,1C,00,3E,02,04,08,10,10,618 280 DATA 10,00,1C,22,22,1C,22,22,1C,00,1C,22,22,1E,02,04,38,00,00,00,08,00,08,00,00,00,440 290 DATA 00,00,08,00,08,08,10,00,04,08,10,20,10,08,04,00,00,00,3E,00,3E,00,00,00,10,08,276 300 DATA 04,02,04,08,10,00,1C,22,04,08,08,00,07,00,1C,22,2A,2E,2C,20,1E,00,1C,22,22,3E,538 310 DATA 22,22,22,00,3C,22,22,3C,22,22,3C,00,1C,22,20,20,20,22,1C,00,38,24,22,22,22,24,868 320 DATA 38,00,3E,20,20,3C,20,20,3E,00,3E,20,20,3C,20,20,20,00,1E,20,20,20,26,22,1E,00,878 330 DATA 22,22,22,3E,22,22,22,00,1C,08,08,08,08,08,1C,00,02,02,02,02,02,22,1C,00,22,24,504 340 DATA 28,30,28,24,22,00,20,20,20,20,20,20,3E,00,22,36,2A,2A,22,22,22,00,22,22,32,2A,886 350 DATA 26,22,22,00,1C,22,22,22,22,22,1C,00,3C,22,22,3C,20,20,20,00,1C,22,22,22,2A,24,824 360 DATA 1A,00,3C,22,22,3C,28,24,22,00,1C,00,20,1C,02,22,1C,00,3E,08,08,08,08,08,08,00,586 370 DATA 22,22,22,22,22,22,1C,00,22,22,22,14,14,08,08,00,22,22,22,2A,2A,36,22,00,22,22,732 380 DATA 14,08,14,22,22,00,22,22,14,08,08,08,08,00,3E,02,04,08,10,20,3E,00,1E,28,28,3E,594 390 DATA 28,28,2E,00,1C,26,2A,2A,2A,32,1C,00,08,00,1C,22,3E,22,22,00,08,14,22,00,00,00,658 400 DATA 00,00,00,00,00,00,00,00,00,FF,00,10,08,04,00,00,00,00,00,00,1C,04,1C,24,1A,00,405 410 DATA 20,20,2C,32,22,22,3C,00,00,00,1E,20,20,20,1E,00,02,02,1A,26,22,22,1E,00,00,00,608 420 DATA 1C,22,3C,20,1C,00,0C,12,10,38,10,10,10,00,00,00,1C,22,22,1C,02,1C,20,20,2C,32,644 430 DATA 22,22,22,00,08,00,18,08,08,08,1C,00,00,04,00,04,04,04,14,08,20,20,24,28,30,28,458 440 DATA 24,00,18,08,08,08,08,08,0C,00,00,00,34,2A,2A,2A,22,00,00,00,2C,12,12,12,12,00,440 450 DATA 00,00,1C,22,22,22,1C,00,00,00,38,24,24,38,20,20,00,00,1C,24,24,1C,04,04,00,00,542 460 DATA 2C,32,20,20,20,00,00,00,1C,20,1C,02,3C,00,10,10,3C,10,10,12,0C,00,00,00,24,24,566 470 DATA 24,24,1A,00,00,00,22,22,14,14,08,00,00,00,22,22,2A,2A,14,00,00,00,22,14,08,14,474 480 DATA 22,00,00,00,00,24,24,1C,04,38,00,00,3E,04,08,10,3E,00,00,00,3C,0A,1C,28,16,00,506 490 DATA 00,00,1C,26,2A,32,1C,00,08,00,1C,24,24,24,1E,00,00,12,2C,00,00,00,00,00,FF,FF,932