REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $1201 Length: $0e57 Exec: $8b8d * REM *(Start: 04609 Length: 03671 Exec: 35725) * REM ************************************************* REM 10 :' 20 PMODE 0,1: PCLEAR 1: CLEAR 2000 30 DA= PEEK (&HBA)*256+ PEEK (&HBB) 40 D=1:T=20:S=3:DEV=0 50 SPACER$= CHR$ (13)+ CHR$ (10):SPACER$=SPACER$+SPACER$::'printer dump line 60 ERROR GO TO 1420 70 M$="VIEW": GO TO 120 80 M$="EDIT":PTR$= CHR$ (95): GO TO 120 90 GO SUB 1010: GO SUB 1020: PRINT @128,"ENTER TRACK (0-39),SECTOR (1-18);:INPUT T,S 100 IF INT (T)<>T OR T<0 OR T>39 THEN 90 110 IF INT (S)<>S OR S<1 OR S>18 THEN 90 120 GO SUB 960 130 SREAD D,T,S,SA$,SB$ 140 :' 150 X=0:V= VARPTR (SA$):AA= PEEK (V+2)*256+ PEEK (V+3):SB=AA: GO SUB 1100 170 X=0 180 GO SUB 1010:Y=DA+X: PRINT @96,X;"(&H"; HEX$ (X);")" 190 GO SUB 1140 200 IF M$="EDIT" THEN C=0:R=0: PRINT @130,PTR$; 210 IF PTR$= CHR$ (127) THEN 510 220 K$= INKEY$ : IF K$="" THEN 220 230 IF K$="F" THEN 430 240 IF K$="B" THEN 460 250 IF K$="N" THEN 90 260 IF K$="D" THEN 760::' 270 IF M$="EDIT" THEN 370 280 :' 290 IF K$="E" THEN 80 300 IF K$= CHR$ (94) THEN 340 310 IF K$<> CHR$ (10) THEN 220 320 X=X+64: IF X>255 THEN X=0 330 GO TO 180 340 X=X-64: IF X<0 THEN X=192 350 GO TO 180 360 :' 370 IF K$="V" THEN 70 380 IF K$="S" THEN 800 390 IF K$="C" THEN 500 400 GO SUB 1270 410 IF K$="" THEN 220 420 IF K$="<" THEN 340 430 IF S=18 AND T=39 THEN S=1:T=0: GO TO 120 440 S=S+1: IF S>18 THEN S=1:T=T+1 450 GO TO 120 460 IF S=1 AND T=0 THEN S=18:T=39: GO TO 120 470 S=S-1: IF S<1 THEN S=18:T=T-1 480 GO TO 120 490 :'change byte 500 PTR$= CHR$ (127): PRINT @127+(C*3)+3+(R*32),PTR$;: GO SUB 1070 510 K$= INKEY$ : IF K$="" THEN 510 520 IF K$= CHR$ (13) THEN GO SUB 1050:PTR$= CHR$ (95): PRINT @130+(C*3)+(R*32),PTR$;: GO TO 22 530 :'CHECK FOR 0-9,A-F FIRST 540 A= ASC (K$)-48 550 IF A<0 THEN 600 560 IF A<10 THEN 640 570 A=A-7 580 IF A>9 AND A<16 THEN 640 590 :'not hex so check for array keys 600 GO SUB 1270 610 IF K$="" THEN 510 : ELSE 420 620 :'change byte in work area+display 630 :'move right hand side of byte to left & put hex value entered in right half (nibble) 640 B= PEEK (DA+X+((C+1)+(R*8))-1) 650 :' 660 B=(B AND 15)*16 670 :' STORE UPDATED BYTE VALUE IN 680 POKE (DA+X+((C+1)+(R*8))-1),B+A 690 :' 700 POKE 1152+(C*3)+(R*32), PEEK (1153+(C*3)+R*32)) 710 PRINT @129+(C*3)+(R*32),K$; 720 IF A+B<32 THEN K$=".": ELSE K$= CHR$ (B+A) 730 PRINT @152+C+(R*32),K$ 740 GO TO 510 750 :' 760 GO SUB 1020: PRINT @448," DUMPING TO PRINTER IN PROGRESS" 770 DEV=2: GO SUB 980:OX=X: FOR X=0 TO 255 STEP 64: GO SUB 1140: NEXT X: PRINT #-DEV,SPACER$:X=OX 780 DEV=0: GO SUB 1040: GO TO 220 790 :' 800 GO SUB 1020: PRINT @451,"WRITE THIS SECTOR TO DISK": PRINT @484,"ARE YOU SURE? (Y IF SO)"; 810 K$= INKEY$ : IF K$="" THEN 810 820 IF K$<>"Y" THEN 950 830 PRINT @481,"CORRECT DISK IN THE DRIVE?(Y); 840 K$= INKEY$ : IF K$="" THEN 840 850 IF K$<>"Y" THEN 950 860 GO SUB 1020: PRINT @451,"SAVING TO DISK IN PROGRESS" 870 :' 880 FOR XX=0 TO 127 890 POKE (SA+XX), PEEK (DA+XX) 900 NEXT XX 910 FOR XX=0 TO 127 920 POKE (SB+XX), PEEK (DA+128+XX) 930 NEXT XX 940 SWRITE D,T,S,SA$,SB$ 950 GO SUB 950 960 GO SUB 970: GO SUB 990: GO SUB 1030: RETURN 970 CLS : PRINT @9,"DISK DETECTIVE": PRINT @28,M$;: RETURN 980 PRINT #-DEV,SPACER$: PRINT #-DEV,M$::' PRINTER DUMP LINE 990 PRINT #-DEV,"DRIVE";D;" TRACK";T;" SECTOR";S: RETURN 1000 PRINT @P, STRING$ (31," ");: RETURN 1010 PRINT @96,"": FOR P=1 TO 8: PRINT : NEXT P: RETURN 1020 PRINT @448,"": PRINT STRING$ (31," ");: RETURN 1030 P=64: GO SUB 1000:P=416: GO SUB 1000 1040 IF M$="VIEW" THEN GO SUB 1020: PRINT @448,"UP/DOWN ARROWS; FORWARD; BACK; DUMP TO PRINTER; NEW ADDR; EDIT"; 1050 IF M$="EDIT" THEN GO SUB 1020: PRINT @448,"ARROW KEYS=POINTER; CHANGE BYTE;SAVE NEW SECTOR; VIEW; F,B,N,D"; 1060 RETURN 1070 GO SUB 1020: PRINT @448,"IN CHANGE BYTE MODE; ENTER KEY TO EXIT MODE;ARROW KEYS=POINTER"; 1080 RETURN 1090 :' 1100 XX=0: FOR X=X TO X+127 1110 POKE (DA+X), PEEK (AA+XX) 1120 XX=XX+1: NEXT X: RETURN 1130 :' 1140 FOR XX=X TO X+63 STEP 8 1150 Y=DA+XX: FOR P=1 TO 8 1160 V= PEEK (Y): IF V<16 THEN PRINT #-DEV,"0"; 1170 PRINT #-DEV, HEX$ (V);" "; 1180 Y=Y+1: NEXT P 1190 Y=DA+XX: FOR P=1 TO 8 1200 V= PEEK (Y) 1210 IF V<32 THEN PRINT #-DEV,".";: GO TO 1240 1220 IF DEV=2 AND V>127 THEN V=V-128: GO TO 1210 1230 PRINT #-DEV, CHR$ (V); 1240 Y=Y+1: NEXT P: IF DEV=2 THEN PRINT #-DEV,"" 1250 NEXT XX: RETURN 1260 :' 1270 A= ASC (K$)-7:K$="" 1280 IF A<0 OR A>87 THEN 1410 1290 IF A<4 THEN 1320 1300 IF A=87 THEN A=4 : ELSE 1410 1310 A=4 1320 PRINT @130+(C*3)+(R*32)," "; 1330 ON A GO TO 1340,1360,1390,1380 1340 IF C=0 THEN C=7 : ELSE C=C-1 1350 FOR O 1400 1360 IF C=7 THEN C=0 : ELSE C=C+1 1370 GO TO 1400 1380 IF R=0 THEN K$="<": GO TO 1410 : ELSE R=R-1: GO TO 1400 1390 IF R=7 THEN K$=">": GO TO 1410 : ELSE R=R+1 1400 PRINT @130+(C*3)+(R*32),PTR$; 1410 RETURN 1420 PRINT ERR , ERL : STOP REM REM line numbering breaks here! REM REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $0606 Exec: $8b8d * REM *(Start: 09217 Length: 01542 Exec: 35725) * REM ************************************************* REM 10 PMODE 4: PCLS 11 LINE (51,44)-(245,44), PSET 13 PRESET (221,44) 20 LINE (30,120)-(40,84), PSET 30 CIRCLE (30,102),20,3,1,.75,.25 40 LINE (80,112)-(70,84), PSET 50 CIRCLE (71,112),10,3,1,.0,.47 60 LINE (86,100)-(105,105), PSET 70 LINE (120,84)-(110,120), PSET 80 CIRCLE (120,94),10,3,1,.75,.40 90 CIRCLE (120,112),10,3,1,.70,.45 100 CIRCLE (150,102),18,3,1 110 LINE (170,120)-(195,84), PSET 120 LINE (170,84)-(190,125), PSET 130 LINE (15,50)-(210,50), PSET 140 LINE (194,30)-(245,30), PRESET 150 LINE (185,30)-(175,30), PRESET 160 LINE (145,30)-(140,30), PRESET 170 LINE (121,30)-(91,30), PRESET 180 LINE (89,30)-(59,30), PRESET 190 LINE (15,50)-(51,30), PSET 191 LINE (51,31)-(51,44), PSET 192 LINE (51,44)-(14,66), PSET 200 LINE (210,50)-(245,30), PSET 210 LINE (15,50)-(15,162), PSET 220 LINE (210,50)-(210,162), PSET 230 LINE (245,30)-(245,132), PSET 240 LINE (15,162)-(210,162), PSET 250 LINE (210,66)-(245,44), PSET 260 LINE (210,162)-(245,132), PSET 270 LINE (15,65)-(210,65), PSET 290 LINE (115,47)-(160,47), PSET 300 LINE (162,47)-(140,60), PSET 310 LINE (140,60)-(94,60), PSET 320 LINE (94,60)-(115,47), PSET 330 LINE (60,47)-(100,47), PSET 340 LINE (100,47)-(80,60), PSET 350 LINE (80,60)-(40,60), PSET 360 LINE (40,60)-(60,47), PSET 370 LINE (180,47)-(222,47), PSET 380 LINE (222,47)-(200,60), PSET 390 LINE (200,60)-(160,60), PSET 400 LINE (160,60)-(180,47), PSET 410 CIRCLE (191,53),14,3,.4 420 PSET (191,53) 430 LINE (188,50)-(173,55), PSET 440 CIRCLE (173,55),2,3,.8 450 CIRCLE (70,53),14,3,.4 460 PSET (70,53) 470 LINE (67,50)-(53,55), PSET 480 CIRCLE (53,55),2,3,.8 490 PSET (108,57) 491 PSET (113,56) 492 PSET (118,57) 493 PSET (125,57) 494 PSET (130,56) 495 PSET (135,57) 500 LINE (116,53)-(123,48), PSET 510 LINE (121,53)-(128,48), PSET 520 LINE (126,53)-(133,48), PSET 530 LINE (131,53)-(138,48), PSET 540 PSET (145,48) 550 PSET (150,48) 560 PSET (155,48) 570 LINE (136,53)-(146,53), PSET 998 PAINT (0,0),1,1 999 SCREEN 1,1 1000 RUN "MAIN" 10000 GO TO 10000 REM REM line numbering breaks here! REM half (nibble) 640 B= PEEK (DA+X+((C+1)+(R*8))-1) 650 :' 660 B=(B AND 15)*16 670 :' STORE UPDATED BYTE VALUE IN 680 POKE (DA+X+((C+1)+(R*8))-1),B+A 690 :' 700 POKE 1152+(C*3)+(R*32), PEEK (1153+(C*3)+R*32)) 710 PRINT @129+(C*3)+(R*32),K$; 720 IF A+B<32 THEN K$=".": ELSE K$= CHR$ (B+A) 730 PRINT @152+C+(R*32),K$ 740 GO TO 510 750 :' 760 GO SUB 1020: PRINT @448," DUMPING TO PRINTER IN PROGRESS" 770 DEV=2: GO SUB 980:OX=X: FOR X=0 TO 255 STEP 64: GO SUB 1140: NEXT X: PRINT #-DEV,SPACER$:X=OX 780 DEV=0: GO SUB 1040: GO TO 220 790 :' 800 GO SUB 1020: PRINT @451,"WRITE THIS SECTOR TO DISK": PRINT @484,"ARE YOU SURE? (Y IF SO)"; 810 K$= INKEY$ : IF K$="" THEN 810 820 IF K$<>"Y" THEN 950 830 PRINT @481,"CORRECT DISK IN THE DRIVE?(Y); 840 K$= INKEY$ : IF K$="" THEN 840 850 IF K$<>"Y" THEN 950 860 GO SUB 1020: PRINT @451,"SAVING TO DISK IN PROGRESS" 870 :' 880 FOR XX=0 TO 127 890 POKE (SA+XX), PEEK (DA+XX) 900 NEXT XX 910 FOR XX=0 TO 127 920 POKE (SB+XX), PEEK (DA+128+XX) 930 NEXT XX 940 SWRITE D,T,S,SA$,SB$ 950 GO SUB 950 960 GO SUB 970: GO SUB 990: GO SUB 1030: RETURN 970 CLS : PRINT @9,"DISK DETECTIVE": PRINT @28,M$;: RETURN 980 PRINT #-DEV,SPACER$: PRINT #-DEV,M$::' PRINTER DUMP LINE 990 PRINT #-DEV,"DRIVE";D;" TRACK";T;" SECTOR";S: RETURN 1000 PRINT @P, STRING$ (31," ");: RETURN 1010 PRINT @96,"": FOR P=1 TO 8: PRINT : NEXT P: RETURN 1020 PRINT @448,"": PRINT STRING$ (31," ");: RETURN 1030 P=64: GO SUB 1000:P=416: GO SUB 1000 1040 IF M$="VIEW" THEN GO SUB 1020: PRINT @448,"UP/DOWN ARROWS; FORWARD; BACK; DUMP TO PRINTER; NEW ADDR; EDIT"; 1050 IF M$="EDIT" THEN GO SUB 1020: PRINT @448,"ARROW KEYS=POINTER; CHANGE BYTE;SAVE NEW SECTOR; VIEW; F,B,N,D"; 1060 RETURN 1070 GO SUB 1020: PRINT @448,"IN CHANGE BYTE MODE; ENTER KEY TO EXIT MODE;ARROW KEYS=POINTER"; 1080 RETURN 1090 :' 1100 XX=0: FOR X=X TO X+127 1110 POKE (DA+X), PEEK (AA+XX) 1120 XX=XX+1: NEXT X: RETURN 1130 :' 1140 FOR XX=X TO X+63 STEP 8 1150 Y=DA+XX: FOR P=1 TO 8 1160 V= PEEK (Y): IF V<16 THEN PRINT #-DEV,"0"; 1170 PRINT #-DEV, HEX$ (V);" "; 1180 Y=Y+1: NEXT P 1190 Y=DA+XX: FOR P=1 TO 8 1200 V= PEEK (Y) 1210 IF V<32 THEN PRINT #-DEV,".";: GO TO 1240 1220 IF DEV=2 AND V>127 THEN V=V-128: GO TO 1210 1230 PRINT #-DEV, CHR$ (V); 1240 Y=Y+1: NEXT P: IF DEV=2 THEN PRINT #-DEV,"" 1250 NEXT XX: RETURN 1260 :' 1270 A= ASC (K$)-7:K$="" 1280 IF A<0 OR A>87 THEN 1410 1290 IF A<4 THEN 1320 1300 IF A=87 THEN A=4 : ELSE 1410 1310 A=4 1320 PRINT @130+(C*3)+(R*32)," "; 1330 ON A GO TO 1340,1360,1390,1380 1340 IF C=0 THEN C=7 : ELSE C=C-1 1350 FOR O 1400 1360 IF C=7 THEN C=0 : ELSE C=C+1 1370 GO TO 1400 1380 IF R=0 THEN K$="<": GO TO 1410 : ELSE R=R-1: GO TO 1400 1390 IF R=7 THEN K$=">": GO TO 1410 : ELSE R=R+1 1400 PRINT @130+(C*3)+(R*32),PTR$; 1410 RETURN 1420 PRINT ERR , ERL : STOP REM REM line numbering breaks here! REM REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $0096 Exec: $8b8d * REM *(Start: 09217 Length: 00150 Exec: 35725) * REM ************************************************* REM 10 CLS : PRINT @480,"TRYKK EN TAST FOR A STOPPE!"; 20 FOR P=1504 TO 1530 30 N= PEEK (P) 40 IF N<64 THEN N=N+64 : ELSE N=N-64 50 POKE P,N: NEXT P 60 IF INKEY$ ="" THEN 20 : ELSE RUN "DJ-BOX" REM REM line numbering breaks here! REM < ERROR GO TO 1420 70 M$="VIEW": GO TO 120 80 M$="EDIT":PTR$= CHR$ (95): GO TO 120 90 GO SUB 1010: GO SUB 1020: PRINT @128,"ENTER TRACK (0-39),SECTOR (1-18);:INPUT T,S 100 IF INT (T)<>T OR T<0 OR T>39 THEN 90 110 IF INT (S)<>S OR S<1 OR S>18 THEN 90 120 GO SUB 960 130 SREAD D,T,S,SA$,SB$ 140 :' 150 X=0:V= VARPTR (SA$):AA= PEEK (V+2)*256+ PEEK (V+3):SB=AA: GO SUB 1100 170 X=0 180 GO SUB 1010:Y=DA+X: PRINT @96,X;"(&H"; HEX$ (X);")" 190 GO SUB 1140 200 IF M$="EDIT" THEN C=0:R=0: PRINT @130,PTR$; 210 IF PTR$= CHR$ (127) THEN 510 220 K$= INKEY$ : IF K$="" THEN 220 230 IF K$="F" THEN 430 240 IF K$="B" THEN 460 250 IF K$="N" THEN 90 260 IF K$="D" THEN 760::' 270 IF M$="EDIT" THEN 370 280 :' 290 IF K$="E" THEN 80 300 IF K$= CHR$ (94)340 310 IF K$<> CHR$ (10) THEN 220 320 X=X+64: IF X>255 THEN X=0 330 GO TO 180 340 X=X-64: IF X<0 THEN X=192 350 GO TO 180 360 :' 370 IF K$="V" THEN 70 380 IF K$="S" THEN 800 390 IF K$="C" THEN 500 400 GO SUB 1270 410 IF K$="" THEN 220 420 IF K$="<" THEN 340 430 IF S=18 AND T=39 THEN S=1:T=0: GO TO 120 440 S=S+1: IF S>18 THEN S=1:T=T+1 450 GO TO 120 460 IF S=1 AND T=0 THEN S=18:T=39: GO TO 120 470 S=S-1: IF S<1 THEN S=18:T=T-1 480 GO TO 120 490 :'change byte 500 PTR$= CHR$ (127): PRINT @127+(C*3)+3+(R*32),PTR$;: GO SUB 1070 510 K$= INKEY$ : IF K$="" THEN 510 520 IF K$= CHR$ (13) THEN GO SUB 1050:PTR$= CHR$ (95): PRINT @130+(C*3)+(R*32),PTR$;: GO TO 22 530 :'CHECK FOR 0-9,A-F FIRST 540 A= ASC (K$)-48 550 IF A<0 THEN 600 560 IF A<10 THEN 640 570 A=A-7 580 IF A>9 AND A<16 THEN 640 590 :'not hex so check for array keys 600 GO SUB 1270 610 IF K$="" THEN 510 : ELSE 420 620 :'change byte in work area+display 630 :'move right hand side of byte to left & put hex value entered in right half (nibble) 640 B= PEEK (DA+X+((C+1)+(R*8))-1) 650 :' 660 B=(B AND 15)*16 670 :' STORE UPDATED BYTE VALUE IN 680 POKE (DA+X+((C+1)+(R*8))-1),B+A 690 :' 700 POKE 1152+(C*3)+(R*32), PEEK (1153+(C*3)+R*32)) 710 PRINT @129+(C*3)+(R*32),K$; 720 IF A+B<32 THEN K$=".": ELSE K$= CHR$ (B+A) 730 PRINT @152+C+(R*32),K$ 740 GO TO 510 750 :' 760 GO SUB 1020: PRINT @448," DUMPING TO PRINTER IN PROGRESS" 770 DEV=2: GO SUB 980:OX=X: FOR X=0 TO 255 STEP 64: GO SUB 1140: NEXT X: PRINT #-DEV,SPACER$:X=OX 780 DEV=0: GO SUB 1040: GO TO 220 790 :' 800 GO SUB 1020: PRINT @451,"WRITE THIS SECTOR TO DISK": PRINT @484,"ARE YOU SURE? (Y IF SO)"; 810 K$= INKEY$ : IF K$="" THEN 810 820 IF K$<>"Y" THEN 950 830 PRINT @481,"CORRECT DISK IN THE DRIVE?(Y); 840 K$= INKEY$ : IF K$="" THEN 840 850 IF K$<>"Y" THEN 950 860 GO SUB 1020: PRINT @451,"SAVING TO DISK IN PROGRESS" 870 :' 880 FOR XX=0 TO 127 890 POKE (SA+XX), PEEK (DA+XX) 900 NEXT XX 910 FOR XX=0 TO 127 920 POKE (SB+XX), PEEK (DA+128+XX) 930 NEXT XX 940 SWRITE D,T,S,SA$,SB$ 950 GO SUB 950 960 GO SUB 970: GO SUB 990: GO SUB 1030: RETURN 970 CLS : PRINT @9,"DISK DETECTIVE": PRINT @28,M$;: RETURN 980 PRINT #-DEV,SPACER$: PRINT #-DEV,M$::' PRINTER DUMP LINE 990 PRINT #-DEV,"DRIVE";D;" TRACK";T;" SECTOR";S: RETURN 1000 PRINT @P, STRING$ (31," ");: RETURN 1010 PRINT @96,"": FOR P=1 TO 8: PRINT : NEXT P: RETURN 1020 PRINT @448,"": PRINT STRING$ (31," ");: RETURN 1030 P=64: GO SUB 1000:P=416: GO SUB 1000 1040 IF M$="VIEW" THEN GO SUB 1020: PRINT @448,"UP/DOWN ARROWS; FORWARD; BACK; DUMP TO PRINTER; NEW ADDR; EDIT"; 1050 IF M$="EDIT" THEN GO SUB 1020: PRINT @448,"ARROW KEYS=POINTER; CHANGE BYTE;SAVE NEW SECTOR; VIEW; F,B,N,D"; 1060 RETURN 1070 GO SUB 1020: PRINT @448,"IN CHANGE BYTE MODE; ENTER KEY TO EXIT MODE;ARROW KEYS=POINTER"; 1080 RETURN 1090 :' 1100 XX=0: FOR X=X TO X+127 1110 POKE (DA+X), PEEK (AA+XX) 1120 XX=XX+1: NEXT X: RETURN 1130 :' 1140 FOR XX=X TO X+63 STEP 8 1150 Y=DA+XX: FOR P=1 TO 8 1160 V= PEEK (Y): IF V<16 THEN PRINT #-DEV,"0"; 1170 PRINT #-DEV, HEX$ (V);" "; 1180 Y=Y+1: NEXT P 1190 Y=DA+XX: FOR P=1 TO 8 1200 V= PEEK (Y) 1210 IF V<32 THEN PRINT #-DEV,".";: GO TO 1240 1220 IF DEV=2 AND V>127 THEN V=V-128: GO TO 1210 1230 PRINT #-DEV, CHR$ (V); 1240 Y=Y+1: NEXT P: IF DEV=2 THEN PRINT #-DEV,"" 1250 NEXT XX: RETURN 1260 :' 1270 A= ASC (K$)-7:K$="" 1280 IF A<0 OR A>87 THEN 1410 1290 IF A<4 THEN 1320 1300 IF A=87 THEN A=4 : ELSE 1410 1310 A=4 1320 PRINT @130+(C*3)+(R*32)," "; 1330 ON A GO TO 1340,1360,1390,1380 1340 IF C=0 THEN C=7 : ELSE C=C-1 1350 FOR O 1400 1360 IF C=7 THEN C=0 : ELSE C=C+1 1370 GO TO 1400 1380 IF R=0 THEN K$="<": GO TO 1410 : ELSE R=R-1: GO TO 1400 1390 IF R=7 THEN K$=">": GO TO 1410 : ELSE R=R+1 1400 PRINT @130+(C*3)+(R*32),PTR$; 1410 RETURN 1420 PRINT ERR , ERL : STOP REM REM line numbering breaks here! REM FROM FROM FROM REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $0287 Exec: $8b8d * REM *(Start: 09217 Length: 00647 Exec: 35725) * REM ************************************************* REM 10 :' 20 :' 30 :' 40 :' 50 CLEAR 200,&H7F70 60 DATA 86,B9,B7,01,6C,86,7E,B7 70 DATA 00,AB,B7,01,6C,86,7E,B7 80 DATA 86,B7,00,AA,39,81,4B,26 90 DATA 1C,DC,A6,C3,00,01,DD,A6 100 DATA A6,9F,00,A6,81,53,27,10 110 DATA 81,51,27,14,DC,A6,83,00 120 DATA 01,DD,A6,86,4B,7E,BB,26 130 DATA CC,7E,7F,FD,01,6A,0E,9F 140 DATA CC,39,7F,FD,01,6A,0E,9F 150 DATA 34,36,8E,00,01,10,8E,00 160 DATA 01,30,01,86,E0,B7,FF,20 170 DATA 7F,01,12,7F,01,13,B6,FF 180 DATA 23,8A,08,B7,FF,23,B6,FF 190 DATA 01,84,F7,B7,FF,01,B6,FF 200 DATA 03,84,F7,B7,FF,03,73,FF 210 DATA 20,34,10,30,1F,26,FC,35 220 DATA 10,10,BC,01,12,2D,EF,8C 230 DATA 00,70,26,C5,35,36,39 240 FOR N=&H7F71 TO &H7FFF 250 READ A$: POKE N, VAL ("&H"+A$): NEXT 260 EXEC &H7F71 REM REM line numbering breaks here! REM REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $0d41 Exec: $8b8d * REM *(Start: 09217 Length: 03393 Exec: 35725) * REM ************************************************* REM 60 CLEAR 200,31825 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 RUN "MENU" 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 REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $0d67 Exec: $8b8d * REM *(Start: 09217 Length: 03431 Exec: 35725) * REM ************************************************* REM 10 CLS 20 PRINT "PROGRAM LOAD IN PROGRESS" 60 CLEAR 200,31825 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 RUN "MENU" 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 ,00,00,FF,FF,932 FROM REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $0d46 Exec: $8b8d * REM *(Start: 09217 Length: 03398 Exec: 35725) * REM ************************************************* REM 60 CLEAR 200,31825 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!"; 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 49 d_ IF A$(A)= CHR$ (13) THEN 2600 2144 IF A$(A)= CHR$ (8) THEN 2110 2149 IF A=23 AND A$(A)<> CHR$ (13) THEN 2140 2150 P$= CHR$ (15)+ CHR$ (16)+ CHR$ (2+A)+ CHR$ (11)+A$(A)+ CHR$ (34) 2155 D= USR ( VARPTR (P$)) 2180 A=A+1 2190 GO TO 2140 2600 A=1 2610 FWRITE "RECORDS";A$(A) 2611 E$= CHR$ (15)+ CHR$ (16)+ CHR$ (3)+ CHR$ (18)+"PRESS '"+ CHR$ (14)+"@"+ CHR$ (15)+"' TO MENUE"+ CHR$ (34) 2612 D= USR ( VARPTR (E$)) 2620 A=A+1: IF A=24 THEN B$= CHR$ (15)+ CHR$ (16)+ CHR$ (3)+ CHR$ (11)+" "+ CHR$ (34):D= USR ( VARPTR (B$)): CLOSE : GO TO 2130 2630 GO TO 2610 REM REM line numbering breaks here! REM ($f8) F GO TO 2610 54 )+ CHR$ (3)+ CHR$ (8+Q)+" "+ CHR$ (34):D= USR ( VARPTR (B$)): NEXT Q: CLOSE : GO TO 230 2630 GO TO 2610 REM REM line numbering breaks here! REM "Y" THEN 10 2605 GO TO 2602 10000 GO TO 10000 REM REM line numbering breaks here! REM FROM FROM M O R T E N M O R T E N M O R T E N M O R T E N M O R T E N M O R T E N B B B B B B B A A A A A A A A A A A A A A Q Q Q Q Q Q Q A A A A A A A A A A A A A A A A A A A A A T I A N X I I S T I A N X I I I S T I A N X I V S T I A N X V S T I A N X V I S T I A N X V I I S T I A N X V I I I S T I A N X I X S T I A N X X S T I A N X X I S T I A N X X I I S T I A N X X I I I S T I A N X X I V A A A A A A A A A A A A A A A A A A A A A A A A RETURN (16)+ CHR$ (12)+ CHR$ (09)+"MENU"+ CHR$ (34) 251 D= USR ( VARPTR (A$)) 260 A$= CHR$ (15)+ CHR$ (16)+ CHR$ (2)+ CHR$ (11)+"1. LIST RECORDS .1"+ CHR$ (34) 261 D= USR ( VARPTR (A$)) 270 A$= CHR$ (15)+ CHR$ (16)+ CHR$ (2)+ CHR$ (12)+"2. CREATE RECORD FILE .2"+ CHR$ (34) 271 D= USR ( VARPTR (A$)) 280 A$= CHR$ (15)+ CHR$ (16)+ CHR$ (2)+ CHR$ (13)+"3. LOAD FILES .3"+ CHR$ (34) 281 D= USR ( VARPTR (A$)) 290 A$= CHR$ (15)+ CHR$ (16)+ CHR$ (2)+ CHR$ (14)+"4. STORE FILE .4"+ CHR$ (34) 291 D= USR ( VARPTR (A$)) 300 A$= CHR$ (15)+ CHR$ (16)+ CHR$ (2)+ CHR$ (15)+"5. READ FILES .5"+ CHR$ (34) 301 D= USR ( VARPTR (A$)) 310 A$= CHR$ (15)+ CHR$ (16)+ CHR$ (2)+ CHR$ (16)+"6. CREATE FILES .6"+ CHR$ (34) 311 D= USR ( VARPTR (A$)) 320 A$= CHR$ (15)+ CHR$ (16)+ CHR$ (2)+ CHR$ (17)+"7. BEATSEARCH .7"+ CHR$ (34) 321 D= USR ( VARPTR (A$)) 330 A$= CHR$ (15)+ CHR$ (16)+ CHR$ (2)+ CHR$ (18)+"8. CHANGE FILES .8"+ CHR$ (34) 331 D= USR ( VARPTR (A$)) 340 A$= CHR$ (15)+ CHR$ (16)+ CHR$ (2)+ CHR$ (19)+"9. DISKCOMMANDS .9"+ CHR$ (34) 341 D= USR ( VARPTR (A$)) 350 A$= CHR$ (15)+ CHR$ (16)+ CHR$ (2)+ CHR$ (22)+" Idea by Morten Taksrud "+ CHR$ (34) 351 D= USR ( VARPTR (A$)) 420 PMODE 4: SCREEN 1,1 430 A$= INKEY$ : IF A$="" THEN 430 440 IF VAL (A$)<1 OR VAL (A$)>9 THEN 430 450 ON VAL (A$) GO TO 1000,2099,3000,4000,5000,6000,7000,8000,9000 460 GO TO 10 1000 SS=SS+1: IF SS>1 THEN 1001 : ELSE DIM A$(22), A(22) 1010 A$= CHR$ (15)+ CHR$ (16)+ CHR$ (2)+ CHR$ (7)+" RECORD LIST "+ CHR$ (34) 1011 D= USR ( VARPTR (A$)) 1020 FOR Q=1 TO 11:A$= CHR$ (15)+ CHR$ (16)+ CHR$ (2)+ CHR$ (8+Q)+" "+ CHR$ (34):D= USR ( VARPTR (A$)): NEXT Q 1024 Q=0 1025 A=0 2000 CLS 2001 PRINT @6,"create record files" 2010 P$="" 2020 PRINT @128,"INPUT RECORD"; 2021 INPUT P$ 2025 PRINT @64,"IS THIS CORRECT" 2030 A$= INKEY$ : IF A$="" THEN 2030 2040 IF A$="N" THEN 2020 2050 FWRITE "RECORDS";P$ 2055 CLOSE 2060 PRINT @96,"COMPLEATED " 2070 A$= INKEY$ : IF A$="" THEN 2070 2080 IF A$="Y" THEN 420 2090 GO TO 2010 2099 SS=SS+1: IF SS>1 THEN 2100 : ELSE DIM A$(22),A(22) 2100 A$= CHR$ (15)+ CHR$ (16)+ CHR$ (2)+ CHR$ (7)+" CREATE RECORD FILES "+ CHR$ (34) 2101 D= USR ( VARPTR (A$)) 2102 A$= CHR$ (15)+ CHR$ (16)+ CHR$ (2)+ CHR$ (22)+" PRESS "+ CHR$ (14)+"BACKSPACE"+ CHR$ (15)+" TO EDIT"+ CHR$ (34) 2103 D= USR ( VARPTR (A$)) 2110 FOR Q=1 TO 11:A$= CHR$ (15)+ CHR$ (16)+ CHR$ (2)+ CHR$ (8+Q)+" "+ CHR$ (34):D= USR ( VARPTR (A$)): NEXT Q 2120 A$= CHR$ (15)+ CHR$ (16)+ CHR$ (3)+ CHR$ (9)+"RECORD:"+ CHR$ (34) 2121 D= USR ( VARPTR (A$)) 2130 A=1 2140 A$(A)= INKEY$ : IF A$(A)="" THEN 2140 2141 IF A$(A)="@" THEN A=21: GO TO 2620 2150 P$= CHR$ (15)+ CHR$ (16)+ CHR$ (2+A)+ CHR$ (11)+A$(A)+ CHR$ (34) 2155 D= USR ( VARPTR (P$)) 2160 IF A$(A)= CHR$ (13) THEN 2600 2170 IF A$(A)= CHR$ (8) THEN 2110 2180 A=A+1: IF A=22 THEN 2600 2190 GO TO 2140 2600 A=1 2610 FWRITE "RECORDS";A$(A) 2620 A=A+1: IF A=22 THEN FOR Q=1 TO 11:B$= CHR$ (15)+ CHR$ (16)+ CHR$ (3)+ CHR$ (8+Q)+" "+ CHR$ (34):D= USR ( VARPTR (B$)): NEXT Q: CLOSE : GO TO 230 2630 GO TO 2610 2090 GO TO 2010 2099 DIM A$(22): DIM A(22) 2100 A$= CHR$ (15)+ CHR$ (16)+ CHR$ (2)+ CHR$ (7)+" CREATE RECORD FILES "+ CHR$ (34) 2101 D= USR ( VARPTR (A$)) 2102 A$= CHR$ (15)+ CHR$ (16)+ CHR$ (2)+ CHR$ (22)+"PRESS '"+ CHR$ (8)+"' TO EDIT RECORD"+ CHR$ (34) 2103 D= USR ( VARPTR (A$)) 2110 FOR Q=1 TO 11:A$= CHR$ (15)+ CHR$ (16)+ CHR$ (2)+ CHR$ (8+Q)+" "+ CHR$ (34):D= USR ( VARPTR (A$)): NEXT Q 2120 A$= CHR$ (15)+ CHR$ (16)+ CHR$ (3)+ CHR$ (9)+"RECORD:"+ CHR$ (34) 2121 D= USR ( VARPTR (A$)) 2130 A=1 2140 A$(A)= INKEY$ : IF A$(A)="" THEN 2140 2150 P$= CHR$ (15)+ CHR$ (16)+ CHR$ (2+A)+ CHR$ (11)+A$(A)+ CHR$ (34) 2155 D= USR ( VARPTR (P$)) 2160 IF A$(A)= CHR$ (13) THEN 2600 2170 IF A$(A)= CHR$ (8) THEN 2110 2180 A=A+1: IF A=22 THEN 2600 2190 GO TO 2140 2600 A=1 2610 FWRITE "RECORDS";A$(A) 2620 A=A+1: IF A=22 THEN FOR Q=1 TO 11:B$= CHR$ (15)+ CHR$ (16)+ CHR$ (3)+ CHR$ (8+Q)+" "+ CHR$ (34):D= USR ( VARPTR (B$)): NEXT Q: CLOSE : GO TO 230 2630 GO TO 2610 REM REM line numbering breaks here! REM " THEN 2120 2404 IF E$="Y" THEN 2150 2405 GO TO 2402 2600 R$= CHR$ (14)+ CHR$ (16)+ CHR$ (3)+ CHR$ (19)+"RETURN TO MENUE"+ CHR$ (34) 2601 D= USR ( VARPTR (R$)) 2602 T$= INKEY$ : IF T$="" THEN 2602 2603 IF T$="N" THEN 2118 2604 IF T$="Y" THEN 10 2605 GO TO 2602 10000 GO TO 10000 REM REM line numbering breaks here! REM FROM FROM FROM 65295 ($f8)($FFFF)($FFFE)($FFFF) VAL 65535 NOT ($FFFF)($ef) 65519 65535 ( DSKINIT ($ed) M BASD z RECORDS DAT ($fc) 180 REM REM line numbering breaks here! REM MAIN BAS FREAD  O GO MAIN BAK PUT  p MAIN BAK RESTORE  J KEYBEEP BAS l 144 REM REM line numbering breaks here! REM IDEA BAS H 159 REM REM line numbering breaks here! REM DJ-BOX BAS $  DISKDOC  ` GO MENU BAKz SREAD 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 INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $0071 Exec: $8b8d * REM *(Start: 09217 Length: 00113 Exec: 35725) * REM ************************************************* REM 1 CLS 0 10 A=250 20 SOUND A,1 30 A=A+1 40 IF A=255 THEN 60 50 GO TO 20 60 A=A-1 70 SOUND A,1 80 IF A=250 THEN 10 90 GO TO 60 REM REM line numbering breaks here! REM C: POKE 115,&H0F 10 PMODE 4 20 LINE (40,40)-(50,4), PSET 40 CIRCLE (40,22),20,3,1,.75,.25 50 LINE (90,32)-(80,4), PSET 60 CIRCLE (81,32),10,3,1,.0,.47 70 LINE (96,20)-(115,25), PSET 80 LINE (130,4)-(120,40), PSET 90 CIRCLE (130,14),10,3,1,.75,.40 100 CIRCLE (130,32),10,3,1,.70,.45 110 CIRCLE (160,22),18,3,1 120 LINE (180,40)-(205,4), PSET 130 LINE (180,4)-(200,45), PSET 140 LINE (15,50)-(210,50), PSET 150 LINE (194,30)-(245,30), PSET 151 LINE (185,30)-(175,30), PSET 152 LINE (145,30)-(140,30), PSET 153 LINE (121,30)-(91,30), PSET 154 LINE (89,30)-(59,30), PSET 160 LINE (15,50)-(40,37), PSET 170 LINE (210,50)-(245,30), PSET 180 LINE (15,50)-(15,162), PSET 190 LINE (210,50)-(210,162), PSET 200 LINE (245,30)-(245,132), PSET 210 LINE (15,162)-(210,162), PSET 215 LINE (210,66)-(245,44), PSET 220 LINE (210,162)-(245,132), PSET 225 A$= CHR$ (15)+ CHR$ (16)+ CHR$ (2)+ CHR$ (6)+" "+ CHR$ (34) 230 A$= CHR$ (15)+ CHR$ (16)+ CHR$ (2)+ CHR$ (7)+"(C) Stian Wix"+ CHR$ (124)+"e 1987"+ CHR$ (34) 231 D= USR ( VARPTR (A$)) 232 D=0 240 LINE (15,65)-(210,65), PSET 250 A$= CHR$ (14)+ CHR$ (16)+ CHR$ (12)+ CHR$ (09)+"MENU"+ CHR$ (34) 251 D= USR ( VARPTR (A$)) 260 A$= CHR$ (15)+ CHR$ (16)+ CHR$ (2)+ CHR$ (11)+"1. LIST RECORDS .1"+ CHR$ (34) 261 D= USR ( VARPTR (A$)) 270 A$= CHR$ (15)+ CHR$ (16)+ CHR$ (2)+ CHR$ (12)+"2. CREATE RECORD FILE .2"+ CHR$ (34) 271 D= USR ( VARPTR (A$)) 280 A$= CHR$ (15)+ CHR$ (16)+ CHR$ (2)+ CHR$ (13)+"3. LOAD FILES .3"+ CHR$ (34) 281 D= USR ( VARPTR (A$)) 290 A$= CHR$ (15)+ CHR$ (16)+ CHR$ (2)+ CHR$ (14)+"4. STORE FILE .4"+ CHR$ (34) 291 D= USR ( VARPTR (A$)) 300 A$= CHR$ (15)+ CHR$ (16)+ CHR$ (2)+ CHR$ (15)+"5. READ FILES .5"+ CHR$ (34) 301 D= USR ( VARPTR (A$)) 310 A$= CHR$ (15)+ CHR$ (16)+ CHR$ (2)+ CHR$ (16)+"6. CREATE FILES .6"+ CHR$ (34) 311 D= USR ( VARPTR (A$)) 320 A$= CHR$ (15)+ CHR$ (16)+ CHR$ (2)+ CHR$ (17)+"7. BEATSEARCH .7"+ CHR$ (34) 321 D= USR ( VARPTR (A$)) 330 A$= CHR$ (15)+ CHR$ (16)+ CHR$ (2)+ CHR$ (18)+"8. CHANGE FILES .8"+ CHR$ (34) 331 D= USR ( VARPTR (A$)) 340 A$= CHR$ (15)+ CHR$ (16)+ CHR$ (2)+ CHR$ (19)+"9. DISKCOMMANDS .9"+ CHR$ (34) 341 D= USR ( VARPTR (A$)) 350 A$= CHR$ (15)+ CHR$ (16)+ CHR$ (2)+ CHR$ (22)+" Idea by Morten Taksrud "+ CHR$ (34) 351 D= USR ( VARPTR (A$)) 420 SCREEN 1,1 430 A$= INKEY$ : IF A$="" THEN 430 440 IF VAL (A$)<1 OR VAL (A$)>9 THEN 430 450 ON VAL (A$) GO TO 1000,2099,3000,4000,5000,6000,7000,8000,9000 460 GO TO 10 1000 SS=SS+1: IF SS>1 THEN 1010 : ELSE DIM A$(23),A(23) 1010 A$= CHR$ (15)+ CHR$ (16)+ CHR$ (2)+ CHR$ (7)+" RECORD LIST "+ CHR$ (34) 1011 D= USR ( VARPTR (A$)) 1020 FOR Q=1 TO 11:A$= CHR$ (15)+ CHR$ (16)+ CHR$ (2)+ CHR$ (8+Q)+" "+ CHR$ (34):D= USR ( VARPTR (A$)): NEXT Q 1024 Q=0 1025 A=0 1030 A=A+1: IF A=24 THEN A=0:Q=Q+1: IF Q=11 THEN 1700 1040 :' 1050 FREAD "RECORDS";A$(A): GO SUB 1500 1051 IF A$(23)= CHR$ (13) THEN A$(1)=" "+A$(1) 1060 Z$= CHR$ (15)+ CHR$ (16)+ CHR$ (2+A)+ CHR$ (9+Q)+A$(A)+ CHR$ (34) 1070 D= USR ( VARPTR (Z$)) 1090 GO TO 1030 1500 IF EOF ("RECORDS")=1 THEN 1501 : ELSE GO TO 1060 1501 Q$= INKEY$ : IF Q$="" THEN 1501 1502 FOR B=1 TO 11:A$= CHR$ (15)+ CHR$ (16)+ CHR$ (2)+ CHR$ (8+B)+" "+ CHR$ (34):D= USR ( VARPTR (A$)): NEXT B: CLOSE : GO TO 230 1700 F$= INKEY$ : IF F$="" THEN 1700 1710 IF F$="@" THEN CLOSE : GO TO 1502 1718 FOR E=1 TO 11:X$= CHR$ (15)+ CHR$ (16)+ CHR$ (2)+ CHR$ (8+E)+" "+ CHR$ (34):D= USR ( VARPTR (X$)): NEXT E: 1719 Q=0:A=A-1 1720 GO TO 1040 2099 SS=SS+1: IF SS>1 THEN 2100 : ELSE DIM A$(23),A(23) 2100 A$= CHR$ (15)+ CHR$ (16)+ CHR$ (2)+ CHR$ (7)+" CREATE RECORD FILES "+ CHR$ (34) 2101 D= USR ( VARPTR (A$)) 2102 A$= CHR$ (15)+ CHR$ (16)+ CHR$ (2)+ CHR$ (22)+" PRESS "+ CHR$ (14)+"BACKSPACE"+ CHR$ (15)+" TO EDIT"+ CHR$ (34) 2103 D= USR ( VARPTR (A$)) 2109 FOR A=1 TO 22:A$(A)="": NEXT A 2110 FOR Q=1 TO 11:A$= CHR$ (15)+ CHR$ (16)+ CHR$ (2)+ CHR$ (8+Q)+" "+ CHR$ (34):D= USR ( VARPTR (A$)): NEXT Q 2120 A$= CHR$ (15)+ CHR$ (16)+ CHR$ (3)+ CHR$ (9)+"RECORD:"+ CHR$ (34) 2121 D= USR ( VARPTR (A$)) 2122 A$= CHR$ (15)+ CHR$ (16)+ CHR$ (2)+ CHR$ (11)+"' '"+ CHR$ (34) 2123 D= USR ( VARPTR (A$)) 2130 A=1 2140 A$(A)= INKEY$ : IF A$(A)="" THEN 2140 2141 IF A$(A)="@" THEN FOR Q=1 TO 11:A$= CHR$ (15)+ CHR$ (16)+ CHR$ (2)+ CHR$ (8+Q)+" "+ CHR$ (34):D= USR ( VARPTR (A$)): NEXT Q: GO TO 230 2142 IF A$(A)=":" THEN 2140 2143 IF A$(A)= CHR$ (13) THEN 2600 2144 IF A$(A)= CHR$ (8) THEN 2110 2149 IF A=23 AND A$(A)<> CHR$ (13) THEN 2140 2150 P$= CHR$ (15)+ CHR$ (16)+ CHR$ (2+A)+ CHR$ (11)+A$(A)+ CHR$ (34) 2155 D= USR ( VARPTR (P$)) 2180 A=A+1 2190 GO TO 2140 2600 A=1 2610 FWRITE "RECORDS";A$(A) 2611 E$= CHR$ (15)+ CHR$ (16)+ CHR$ (3)+ CHR$ (18)+"PRESS '"+ CHR$ (14)+"@"+ CHR$ (15)+"' TO MENUE"+ CHR$ (34) 2612 D= USR ( VARPTR (E$)) 2620 A=A+1: IF A=24 THEN B$= CHR$ (15)+ CHR$ (16)+ CHR$ (3)+ CHR$ (11)+" "+ CHR$ (34):D= USR ( VARPTR (B$)): CLOSE : GO TO 2130 2630 GO TO 2610 REM REM line numbering breaks here! REM :D= USR ( VARPTR (B$)): NEXT Q: CLOSE : GO TO 2100 2630 GO TO 2610 REM REM line numbering breaks here! REM FROM 65295 ($f8)($FFFF)($FFFE)($FFFF) VAL 65535 NOT ($FFFF)($ef) 65519 65535 ( DSKINIT ($ed) M BASD z RECORDS DAT ($fc) 180 REM REM line numbering breaks here! REM MAIN BAS FREAD  O GO MAIN BAK PUT  p MAIN BAK RESTORE  J KEYBEEP BAS l 144 REM REM line numbering breaks here! REM IDEA BAS H 159 REM REM line numbering breaks here! REM DJ-BOX BAS $  DISKDOC  ` GO MENU BAKz SREAD 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 INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $03d9 Exec: $8b8d * REM *(Start: 09217 Length: 00985 Exec: 35725) * REM ************************************************* REM 0 PCLS 10 DEF USR 0=31832 20 PMODE 4: PCLS : SCREEN 1,1 30 A$= CHR$ (16)+ CHR$ (4)+ CHR$ (9)+ CHR$ (40)+"C"+ CHR$ (41)+"MARIAN JENSSEN"+ CHR$ (40)+ CHR$ (49)+ CHR$ (57)+ CHR$ (56)+ CHR$ (53)+ CHR$ (41)+ CHR$ (34) 40 D= USR ( VARPTR (A$)) 1010 LINE (166,192)-(166,100), PSET 1020 LINE (166,130)-(166,150), PRESET 1030 LINE (196,186)-(196,95), PSET 1040 LINE (196,125)-(196,145), PRESET 1050 LINE (166,192)-(196,186), PSET 1060 LINE (166,100)-(196,95), PSET 1070 LINE (166,100)-(146,90), PSET 1080 LINE (166,130)-(146,120), PSET 1090 LINE (146,90)-(176,85), PSET 1100 LINE (176,85)-(196,95), PSET 1110 LINE (146,90)-(146,120), PSET 1120 LINE (146,120)-(116,125), PSET 1130 LINE (116,125)-(136,135), PSET 1140 LINE (166,130)-(136,135), PSET 1150 LINE (136,135)-(136,155), PSET 1160 LINE (116,125)-(116,145), PSET 1170 LINE (116,145)-(136,155), PSET 1180 LINE (136,155)-(166,150), PSET 1190 LINE (166,192)-(146,182), PSET 1200 LINE (146,182)-(146,153), PSET 1210 LINE (196,145)-(216,140), PSET 1220 LINE (216,140)-(216,120), PSET 1230 LINE (216,120)-(196,125), PSET 1240 LINE (216,120)-(196,110), PSET : PAINT (170,180),1,1: GO TO 1330 1250 PAINT (156,182),1,1 1260 PAINT (120,140),1,1 1270 PAINT (130,130),1,1 1280 PAINT (150,110),1,1 1290 PAINT (170,96),1,1 1300 PAINT (200,113),1,1 1310 PSET (197,140,4) 1320 GO TO 1320 5000 RUN "MMAIN REM REM line numbering breaks here! REM FROM FROM