REM REM ************************************************* REM * Dragon file header detected: * 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 REM REM line numbering breaks here! REM FROM FROM FROM REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $0137 Exec: $8b8d * REM *(Start: 09217 Length: 00311 Exec: 35725) * REM ************************************************* REM 10 :' 20 :' 30 :' 40 :' 50 :' 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 REM REM line numbering breaks here! REM f VERIFY D ($FFDD)($FFFF) V ($FFFF)f ($FFFF) VERIFY ($FFFF) SCREEN " ($FFFF) ($FFFF): ($FFFF)/ ($FFFF) " ($FFFF) DELETE 248 ($ed) BEEP 0($FF09) REM REM line numbering breaks here! REM ($fd)p MERGE CREATE OFF ($f3) STEP OR 7 FOR  GO ($ef) ELSE U 896 13573 RETURN END CONT SAVE ON OPEN REM REM line numbering breaks here! REM CONT DIM LET POKE IF ELSE ELSE . ELSE ERROR ($FFFF)  X FOR & 255 ($FFFF) REM REM line numbering breaks here! REM ($fb)HI-REHI($FFE5) FROM U$e3r LINE $ (:' HIRES PRINT 60 CLEAR 200,31825 70 FOR A=31826 TO 32761 STEP 26:($f5) 80 B=0: FOR C=0 TO 25:($f5): READ D$:D= VAL ("&H"+D$): POKE A+C,D:B=B+D: NEXT 90 READ D: IF D<>B THEN ($fd): ELSE ($fc)*: PRINT "DATA ERROR IN"; PEEK (&H31)*256+ PEEK (&H32): END 100 NEXT 110 FOR A=32762 TO 32767:($f5): 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,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,08,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,2A,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 REM REM line numbering breaks here! REM 9d END : COMPILED BY DYNAFAST 1.2.5 (C)COPYRIGHT COMPUSENSE LTD 1984  9217 14694 13170 $9f 5~ 158 DELETE o FOR o FOR 5wn LLIST * DATA O EDIT DIM FROM O EDIT DIM ($ea)4w! SWAP & SCREEN READ ($fe)c RESET o($ec) READ ($fe)] MERGE  MERGE  MERGE  DATA EDIT DIM FROM m DIM STEP & LET  CSAVE 1 DIM RENUM ($ec) ELSE ($ed) MOTOR DELETE  EDIT EXEC DATA ~ EDIT FOR 1 READ REM REM line numbering breaks here! REM SAVE  PCLEAR ELSE 3 READ ($fe)($f5) FN # PCLEAR DIM LET ($FF01)# PCOPY  SCREEN MOTOR PCLEAR STEP J&($f9) SCREEN READ ($fe) LOAD PCLEAR DIM REM SCREEN READ ($fe)($eb) PCLEAR READ ($FF7C)0 READ & PCLEAR READ ($fe) OR 0 READ R PCLEAR READ ($fe) DSKINIT 0 READ ($f7) PCLEAR READ ($fe) KILL SCREEN READ ($fe) REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $02c9 Exec: $8b8d * REM *(Start: 09217 Length: 00713 Exec: 35725) * REM ************************************************* REM 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,3E,14,14,00,08,3E,402 79 FOR f 13573 RETURN END CONT SAVE ON OPEN REM REM line numbering breaks here! REM CONT DIM LET POKE IF ELSE ELSE . ELSE ERROR ($FFFF) ($FFDD)($FFFF) ($FFDD)($FFFF) ($FFFF)($FFE5) FROM REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $03fe Exec: $8b8d * REM *(Start: 09217 Length: 01022 Exec: 35725) * REM ************************************************* REM 10 :' 20 :' 30 :' 40 :' 50 :' 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,3E,14,14,00,08,3E,402 REM REM line numbering breaks here! REM 30 230 A$= STRING$ (32,127)+ CHR$ (34):A= USR 0( VARPTR (A$)) 240 SOUND 10,10 250 GO TO 250 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,08,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,2A,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 REM REM line numbering breaks here! REM ,FF,932 U$ 0(= LINE $ (:' SCREEN DUMP 60 CLS 70 A=0: FOR B=524 TO 650:($f5): READ C$:C= VAL ("&H"+C$):A=A+C: POKE B,C: NEXT 80 IF A<>11827 THEN ($fd): ELSE ($fc): PRINT ,,"DATA ERROR": END 90 PRINT ,,"CSAVEM"; CHR$ (34);"DUMP"; CHR$ (34);"512,650,524" 100 END 110 DATA 86,FE,97,6F,86,08,BD,B5,4A,7F,02,00,DC,BA,FD,02,01,C3,17,A0,FD,02,03,BE,02,01,B6,02,00,30,86 120 DATA CE,02,05,E6,84,E7,C0,30,88,20,11,83,02,0C,26,F3,C6,08,8E,02,84,CE,02,05,86,80,69,C0,24,37,30 130 DATA 01,8C,02,8B,26,F5,BD,B5,4A,5A,26,E7,B6,02,00,4C,B7,02,00,81,20,26,C2,86,0A,BD,B5,4A,7F,02,00 140 DATA BE,02,01,30,89,00,E0,BF,02,01,BC,02,03,25,AB,86,0F,BD,B5,4A,0F,6F,39,AB,84,20,C5,01,02,04,08 150 DATA 10,20,40 REM REM line numbering breaks here! REM ./ END : COMPILED BY DYNAFAST 1.2.5 (C)COPYRIGHT COMPUSENSE LTD 1984  9217 11825 10301 $.1 5~ 158 DELETE o FOR o FOR 5wn LLIST * DATA O EDIT DIM FROM O EDIT DIM ($ea)4w! SWAP & SCREEN READ ($fe)c RESET o($ec) READ ($fe)] MERGE  MERGE  MERGE  DATA EDIT DIM FROM m DIM STEP & LET  CSAVE 1 DIM RENUM ($ec) ELSE ($ed) MOTOR DELETE  EDIT EXEC DATA ~ EDIT FOR 1 READ REM REM line numbering breaks here! REM SAVE  PCLEAR ELSE 3 READ ($fe)($f5) FN # PCLEAR DIM LET ($FF01)# PCOPY  SCREEN MOTOR PCLEAR STEP J&($f9) SCREEN READ ($fe) LOAD PCLEAR DIM REM SCREEN READ ($fe)($eb) PCLEAR READ ($FF7C)0 READ & PCLEAR READ ($fe) OR 0 READ R PCLEAR READ ($fe) DSKINIT 0 READ ($f7) PCLEAR READ ($fe) KILL SCREEN READ ($fe) SWRITE PCLEAR READ ($FF54)0 READ DELETE PCLEAR READ ($fe) DSKINIT SCREEN READ ($fe) BACKUP PCLEAR READ ($FF46) LET 'q PCLEAR READ ($fe)- SCREEN READ ($fe) AND PCLEAR READ ($FF39)0 READ READ PCLEAR READ ($fe) TO 0 READ  PCLEAR READ ($fe) RENAME SCREEN READ ($fe) REM PCLEAR READ ($fe)/ SCREEN READ ($fe) CONT PCLEAR READ ($fa)0 READ 36350 ON 0 READ * AUTO -($ec)- PCLEAR -($ed) READ ($FF0C)0 READ 0 AUTO 2($ec)- PCLEAR -($ed) READ ($fe)($eb) LET  LET 1 READ ($fe)($f8)($ec) ELSE ($ed) MOTOR DELETE  EDIT EXEC DATA ~ EDIT FOR 1 READ 44932 m READ ($fe) VERIFY &0 READ ($fe)( PCLEAR READ V5wOn LLIST REM REM line numbering breaks here! REM SKIPF 5($f7)($ee) SAVE 3D5' OFF &($fe) NOT  34006 READ n LLIST ($fe) EXEC READ n LLIST ($fe) SOUND 4($ec) READ ($fe) CONT ($fd)2($ec) READ ($fe) RESET ($fd)-($ec) READ ($fe) ON ($fd)# DATA ! EDIT READ ($fe) PSET ($ec) READ ($fe) READ ($fd) LET DELETE READ ($fe) ON PMODE  RESTORE m READ ($fe)y&($ec) READ ($fe)t($fd) CSAVE DELETE READ ($fe)o PMODE  CLOSE 5 PRINT SET DELETE 0* RESET DELETE 9 SET DELETE 0 RESET DELETE  DLOAD  MOTOR RESET DELETE 9470 READ ($fd) OPEN PCLEAR READ REM REM line numbering breaks here! REM OR SET DELETE DELETE FOR ' GO '($f8) GO &' GO 0 GO 9# POS 57n LLIST 158 DELETE DELETE 0 RESET DELETE GO 0 GO 9#+~ RENUM TROFF / ~'D/ 17566 DELETE 0 SET h($ee) READ REM REM line numbering breaks here! REM ~ DATA ($fa)62($ef) READ 36348  AUDIO READ REM REM line numbering breaks here! REM m$ FREAD SET DELETE ($ec) COPY  MERGE DELETE 9 SET DELETE 0($ec) GO 41 IF 1 SKIPF o READ _ FLREAD READ \& RESET DELETE 5 ELSE FLREAD READ Q SAVE VERIFY "($f3) GO ($fd)'O SWRITE READ C0($ec) NEXT COPY  MERGE DELETE 5 ELSE O SWRITE READ 40($ec) NEXT COPY  MERGE DELETE SET h DATA ($fa)($ee) READ 13039 READ REM REM line numbering breaks here! REM 3 READ ($fb) PCLEAR  AUDIO READ 9471 o5 ELSE REM REM line numbering breaks here! REM 3Ho NOT ($ee) DIM ($f5) FLREAD - STEP NEXT '($f3) STEP FOR '($ed) STEP ($fa)'($FF56)72 RESET DELETE  RESET h($ef) DIM ERROR 9M' GO :'Mn LLIST ($fd)D SET DELETE SCREEN READ  DSKINIT ($ee) DIM +60 SCREEN READ = SCREEN READ * DATA FOR 62($ef) DIM CIRCLE 9o NOT ($ef) DIM PCLS 5En LLIST ($fd)4E($ee) DIM CLS FLREAD - STEP NEXT '($ea) STEP FOR &($FF06)2d($ec) FREAD  SWRITE E($ed) FREAD mE+  AUDIO C.($ec)G MERGE DELETE 9 AUDIO C-($ec)G MERGE DELETE 93I($ef) READ ($FF6C)9 FOR 01 READ rH1 DELETE 4 READ 65 ($ed) EXEC 94 SET DELETE FLREAD  STEP ($f2)& 2241 ($f1)&($fc) SCREEN ($ec) RETURN RESET DELETE 2e~ DIM 7 SET DELETE ($ec)0($ed) READ >4 RESET DELETE READ ($ed)($f1)9 SUB ON r SUB NEXT -9($ef) READ REM REM line numbering breaks here! REM 1 READ fn ELSE 57616 ($ee) DIM ($f8)9 SCREEN SAVE 4($ec) ELSE n SCREEN SAVE 4($ec) CONT n SCREEN SAVE SWRITE SAVE n ELSE SCREEN SAVE CS+ 57710 ELSE SCREEN SAVE CS+ REM REM line numbering breaks here! REM n ELSE SCREEN SAVE 4 TRON b 168 + REM REM line numbering breaks here! REM PAINT ELSE n ELSE  32579 S+ 33824 PSET CIRCLE PMODE SUB STEP > BOOT ) - Q W [ _ SCREEN SAVE 4 TRON b READ ` READ m+ REM REM line numbering breaks here! REM EXEC ELSE n ELSE  32579 S+ 33966 SAVE XIn ELSE SCREEN SAVE 4M+mb**' READ A 32579 S+ 33933 3 REM REM line numbering breaks here! REM RESTORE ELSE n ELSE SCREEN SAVE ($ec)-n ELSE SCREEN SAVE ($ed)($f1)n ELSE SCREEN SAVE SWAP ($f1)n ELSE SCREEN SAVE 4O FLREAD ($f1)n ELSE 4($ec)e*CS+ 25909 PRINT 4($ec)g*CS+ 26421 PRINT 4 DELETE e FLREAD g=($ed) VERIFY DELETE d FLREAD g= DEF _ SWRITE VERIFY ($ed) VERIFY DELETE e FLREAD f= DEF _ SWRITE VERIFY PCLEAR VERIFY SCREEN b PCLEAR f($ed)b($ec) SAVE ($ed)b5 CLEAR 4 LET 25639 ($ec)f AUDIO d+0 ($f8)($ec)b($ed)f PCLEAR b($ec) SAVE ($ed)b5 CLEAR /~'D4< 25647 ($ec)f0' 4($ec)h4 READ DEF ($f2) SCREEN b PCLEAR f($ed)b($ec) SAVE ($ed)b5 CLEAR ~ NEXT READ SUB LET Q]'($f7) STEP "($f3)4v0 READ ($fd) CLEAR PCLEAR READ REM REM line numbering breaks here! REM k0 READ ($fb) PCLEAR READ e0 READ ($fb) PCLEAR READ O LOAD ($ed) READ 960 AUTO  6598 h DELETE FOR EDIT NOT Z&($f9)<($FFE4)($fd)($FF03)N0 READ REM REM line numbering breaks here! REM /Y DELETE FOR EDIT NOT Z&($f9)($fc)$5v~ READ ' SET ($ec) ELSE ' ' COPY ($ed) ELSE  ($f1) LOAD  AUDIO DIM ($f1)+  PRESET ELSE SUB ELSE $~ ELSE RESET 4V SCREEN DIM ($f7) LOAD  AUDIO DIM DRIVE ($fd) OFF 0 NEXT SWRITE ELSE ($ed) ELSE ($fc) OFF SCREEN DIM FROM 0 NEXT COPY LLIST ($fd)- TO -'0 TO -& RESET LLIST 5 DRIVE 90 ($fc) PRINT ($fc)($fb)($fd)($fc)A($fc)`($fc)~ 18941 SCREEN REM REM line numbering breaks here! REM $ GO ($f5) FOR ($f5)H3 DIM RENAME ($ec)/n= DATA INT OFF ' GO CHAIN ' RETURN MERGE '4 LOAD h'($FFFF)5& GO LOAD &($fb)wn LLIST ($fa) SET DELETE 0 RESET DELETE 9 SET DELETE 0 FLREAD ELSE : RESET DELETE 9 DATA NEXT ($ee) READ ($fc) INPUT 6($ef) READ ($fc)' SET DELETE 0 RESET DELETE 9 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,2A,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 REM REM line numbering breaks here! REM FROM FROM FROM U$!2. LINE $ (:' HIRES PRINT 60 CLEAR 200,31825: DEF USR 0=31832 70 PMODE 4: PCLS : SCREEN 1,1 80 CIRCLE (50,55),40,5,1,.06,.94: CIRCLE (65,34),4,5 90 LINE (86,41)-(40,55), PSET : LINE -(87,65), PSET : PAINT (50,50) 100 FOR A=2 TO 40 STEP 3:($f5): CIRCLE (205,55),A,5: NEXT 110 DRAW "BM98,30;U20BM+15,+20NR10U10NR5U10R10BM+5,+20U20R5ND10R5D20BM+5,+0U20R10D20L10": CIRCLE (98,20),11,5,1,.75,.25 120 A$= CHR$ (16)+ CHR$ (3)+ CHR$ (22)+"(C) STIAN WIX0E -1985"+ CHR$ (34):D= USR 0( VARPTR (A$)) 130 A$= CHR$ (16)+ CHR$ (10)+ CHR$ (6)+"HELLO!"+ CHR$ (34):D= USR 0( VARPTR (A$)) 140 A$= CHR$ (16)+ CHR$ (0)+ CHR$ (12)+"MULIGHETENE MED HI-RES PRINT:"+ CHR$ (13)+ CHR$ (34):D= USR 0( VARPTR (A$)) 150 A$="* BLAND TEKST OG GRAFIKK"+ CHR$ (13)+ CHR$ (34):D= USR 0( VARPTR (A$)) 160 A$="* STORE OG sm"+ CHR$ (125)+"BOKSTAVER"+ CHR$ (13)+ CHR$ (34):D= USR 0( VARPTR (A$)) 170 A$="* NORMAL OG "+ CHR$ (14)+"INVERS "+ CHR$ (15)+"VIDEO"+ CHR$ (13)+ CHR$ (34):D= USR 0( VARPTR (A$)) 180 A$="* STANDARD TEGNSETT #$&'()?+ OL":D= USR 0( VARPTR (A$)) 190 A$="* 96 BRUKERDEFINERTE TEGN"+ CHR$ (13)+ CHR$ (34):D= USR 0( VARPTR (A$)) 200 A$="* FEILMELDINGER"+ CHR$ (13)+ CHR$ (13)+ CHR$ (34):D= USR 0( VARPTR (A$)) 210 FOR X=32760 TO 32767:($f5): READ Y: POKE X,Y: NEXT 220 DATA 56,56,16,254,16,40,68,130 230 A$= STRING$ (32,127)+ CHR$ (34):A= USR 0( VARPTR (A$)) 240 SOUND 10,10 250 ($fb)($f2) 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,08,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,2A,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 REM REM line numbering breaks here! REM 8 END : COMPILED BY DYNAFAST 1.2.5 (C)COPYRIGHT COMPUSENSE LTD 1984  9217 14370 12846 $8" 5~ 158 DELETE o FOR o FOR 5wn LLIST * DATA O EDIT DIM FROM O EDIT DIM ($ea)4w! SWAP & SCREEN READ ($fe)c RESET o($ec) READ ($fe)] MERGE  MERGE  MERGE  DATA EDIT DIM FROM m DIM STEP & LET  CSAVE 1 DIM RENUM ($ec) ELSE ($ed) MOTOR DELETE  EDIT EXEC DATA ~ EDIT FOR 1 READ REM REM line numbering breaks here! REM SAVE  PCLEAR ELSE 3 READ ($fe)($f5) FN # PCLEAR DIM LET ($FF01)# PCOPY  SCREEN MOTOR PCLEAR STEP J&($f9) SCREEN READ ($fe) LOAD PCLEAR DIM REM SCREEN READ ($fe)($eb) PCLEAR READ ($FF7C)0 READ & PCLEAR READ ($fe) OR 0 READ R PCLEAR READ ($fe) DSKINIT 0 READ ($f7) PCLEAR READ ($fe) KILL SCREEN READ ($fe) SWRITE PCLEAR READ ($FF54)0 READ DELETE PCLEAR READ ($fe) DSKINIT SCREEN READ ($fe) BACKUP PCLEAR READ ($FF46) LET 'q PCLEAR READ ($fe)- SCREEN READ ($fe) AND PCLEAR READ ($FF39)0 READ READ PCLEAR READ ($fe) TO 0 READ  PCLEAR READ ($fe) RENAME SCREEN READ ($fe) REM PCLEAR READ ($fe)/ SCREEN READ ($fe) CONT PCLEAR READ ($fa)0 READ 36350 ON 0 READ * AUTO -($ec)- PCLEAR -($ed) READ ($FF0C)0 READ 0 AUTO 2($ec)- PCLEAR -($ed) READ ($fe)($eb) LET  LET 1 READ ($fe)($f8)($ec) ELSE ($ed) MOTOR DELETE  EDIT EXEC DATA ~ EDIT FOR 1 READ 44932 m READ ($fe) VERIFY &0 READ ($fe)( PCLEAR READ V5wOn LLIST REM REM line numbering breaks here! REM SKIPF 5($f7)($ee) SAVE 3D5' OFF &($fe) NOT  34006 READ n LLIST ($fe) EXEC READ n LLIST ($fe) SOUND 4($ec) READ ($fe) CONT ($fd)2($ec) READ ($fe) RESET ($fd)-($ec) READ ($fe) ON ($fd)# DATA ! EDIT READ ($fe) PSET ($ec) READ ($fe) READ ($fd) LET DELETE READ ($fe) ON PMODE  RESTORE m READ ($fe)y&($ec) READ ($fe)t($fd) CSAVE DELETE READ ($fe)o PMODE  CLOSE 5 PRINT SET DELETE 0* RESET DELETE 9 SET DELETE 0 RESET DELETE  DLOAD  MOTOR RESET DELETE 9470 READ ($fd) OPEN PCLEAR READ REM REM line numbering breaks here! REM OR SET DELETE DELETE FOR ' GO '($f8) GO &' GO 0 GO 9# POS 57n LLIST 158 DELETE DELETE 0 RESET DELETE GO 0 GO 9#+~ RENUM TROFF / ~'D/ 17566 DELETE 0 SET h($ee) READ REM REM line numbering breaks here! REM ~ DATA ($fa)62($ef) READ 36348  AUDIO READ REM REM line numbering breaks here! REM m$ FREAD SET DELETE ($ec) COPY  MERGE DELETE 9 SET DELETE 0($ec) GO 41 IF 1 SKIPF o READ _ FLREAD READ \& RESET DELETE 5 ELSE FLREAD READ Q SAVE VERIFY "($f3) GO ($fd)'O SWRITE READ C0($ec) NEXT COPY  MERGE DELETE 5 ELSE O SWRITE READ 40($ec) NEXT COPY  MERGE DELETE SET h DATA ($fa)($ee) READ 13039 READ REM REM line numbering breaks here! REM 3 READ ($fb) PCLEAR  AUDIO READ 9471 o5 ELSE REM REM line numbering breaks here! REM 3Ho NOT ($ee) DIM ($f5) FLREAD - STEP NEXT '($f3) STEP FOR '($ed) STEP ($fa)'($FF56)72 RESET DELETE  RESET h($ef) DIM ERROR 9M' GO :'Mn LLIST ($fd)D SET DELETE SCREEN READ  DSKINIT ($ee) DIM +60 SCREEN READ = SCREEN READ * DATA FOR 62($ef) DIM CIRCLE 9o NOT ($ef) DIM PCLS 5En LLIST ($fd)4E($ee) DIM CLS FLREAD - STEP NEXT '($ea) STEP FOR &($FF06)2d($ec) FREAD  SWRITE E($ed) FREAD mE+  AUDIO C.($ec)G MERGE DELETE 9 AUDIO C-($ec)G MERGE DELETE 93I($ef) READ ($FF6C)9 FOR 01 READ rH1 DELETE 4 READ 65 ($ed) EXEC 94 SET DELETE FLREAD  STEP ($f2)& 2241 ($f1)&($fc) SCREEN ($ec) RETURN RESET DELETE 2e~ DIM 7 SET DELETE ($ec)0($ed) READ >4 RESET DELETE READ ($ed)($f1)9 SUB ON r SUB NEXT -9($ef) READ REM REM line numbering breaks here! REM 1 READ fn ELSE 57616 ($ee) DIM ($f8)9 SCREEN SAVE 4($ec) ELSE n SCREEN SAVE 4($ec) CONT n SCREEN SAVE SWRITE SAVE n ELSE SCREEN SAVE CS+ 57710 ELSE SCREEN SAVE CS+ REM REM line numbering breaks here! REM n ELSE SCREEN SAVE 4 TRON b 168 + REM REM line numbering breaks here! REM PAINT ELSE n ELSE  32579 S+ 33824 PSET CIRCLE PMODE SUB STEP > BOOT ) - Q W [ _ SCREEN SAVE 4 TRON b READ ` READ m+ REM REM line numbering breaks here! REM EXEC ELSE n ELSE  32579 S+ 33966 SAVE XIn ELSE SCREEN SAVE 4M+mb**' READ A 32579 S+ 33933 3 REM REM line numbering breaks here! REM RESTORE ELSE n ELSE SCREEN SAVE ($ec)-n ELSE SCREEN SAVE ($ed)($f1)n ELSE SCREEN SAVE SWAP ($f1)n ELSE SCREEN SAVE 4O FLREAD ($f1)n ELSE 4($ec)e*CS+ 25909 PRINT 4($ec)g*CS+ 26421 PRINT 4 DELETE e FLREAD g=($ed) VERIFY DELETE d FLREAD g= DEF _ SWRITE VERIFY ($ed) VERIFY DELETE e FLREAD f= DEF _ SWRITE VERIFY PCLEAR VERIFY SCREEN b PCLEAR f($ed)b($ec) SAVE ($ed)b5 CLEAR 4 LET 25639 ($ec)f AUDIO d+0 ($f8)($ec)b($ed)f PCLEAR b($ec) SAVE ($ed)b5 CLEAR /~'D4< 25647 ($ec)f0' 4($ec)h4 READ DEF ($f2) SCREEN b PCLEAR f($ed)b($ec) SAVE ($ed)b5 CLEAR ~ NEXT READ SUB LET Q]'($f7) STEP "($f3)4v0 READ ($fd) CLEAR PCLEAR READ REM REM line numbering breaks here! REM k0 READ ($fb) PCLEAR READ e0 READ ($fb) PCLEAR READ O LOAD ($ed) READ 960 AUTO  6598 h DELETE FOR EDIT NOT Z&($f9)<($FFE4)($fd)($FF03)N0 READ REM REM line numbering breaks here! REM /Y DELETE FOR EDIT NOT Z&($f9)($fc)$5v~ READ ' SET ($ec) ELSE ' ' COPY ($ed) ELSE  ($f1) LOAD  AUDIO DIM ($f1)+  PRESET ELSE SUB ELSE $~ ELSE RESET 4V SCREEN DIM ($f7) LOAD  AUDIO DIM DRIVE ($fd) OFF 0 NEXT SWRITE ELSE ($ed) ELSE ($fc) OFF SCREEN DIM FROM 0 NEXT COPY LLIST ($fd)- TO -'0 TO -& RESET LLIST 5 DRIVE 90 ($fc) PRINT ($fc)($fb)($fd)($fc)A($fc)`($fc)~ 18941 SCREEN REM REM line numbering breaks here! REM $ GO ($f5) FOR ($f5)H3 DIM RENAME ($ec)/n= DATA INT OFF ' GO CHAIN ' RETURN MERGE '4 LOAD h'($FFFF)5& GO LOAD &($fb)wn LLIST ($fa) SET DELETE 0 RESET DELETE 9 SET DELETE 0 FLREAD ELSE : RESET DELETE 9 DATA NEXT ($ee) READ ($fc) INPUT 6($ef) READ ($fc)' SET DELETE 0 RESET DELETE 9 FROM FROM NOT ($FFFF) BACKUP 36863 ($FFFF)($FFE0)($FFFF)($FF0F) FOR ($FFFF)($FFFE)($FFFF)($FF0F) REM REM line numbering breaks here! REM ($fe) 61439 ($FFFF) 65295 ($FF3F) 65535 ( DSKINIT ($ed) TEGN BASD }DEMO BIN ($fc) *SWEW BAS FREAD  STOP DUMP BIN PUT 9 HI-RESO BAS RESTORE   HI-DATA BAS l 210 HI-RES REM REM line numbering breaks here! REM BIN H n HI-PROG BAS $ @ AAAAAAAABAS  } KEYBEEP BASz t BBBBBBBBBIN DIM  182 REM REM line numbering breaks here! REM QQQ BAS SET  ' GO TEST BAS COLOR  FOR INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT