REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $0633 Exec: $8b8d * REM *(Start: 09217 Length: 01587 Exec: 35725) * REM ************************************************* REM 0 POKE 65495,0 1 DIM P(100): DIM ID$(100) 2 CLS 3 Q=1 4 A$="STATISTIKK OVER VERDENS STATER" 5 GO SUB 3000 6 Q=416 7 A$="KOMMANDO" 8 GO SUB 3000 1000 Q=106 1001 A$="hjelpe sider" 1002 GO SUB 3000 1003 Q=160 1004 A$="LIST: -LISTER ALLE VERDENS STATER" 1005 GO SUB 3000 1006 Q=256 1007 A$="LESE: -SETTER COMPUTEREN I STAND TIL AA LESE DATAENE TIL ET SPESIFISERT LAND" 1008 GO SUB 3000 1009 PP=Q 1010 Q=105 1011 A$="trykk en tast" 1012 GO SUB 3000 1013 INK$= INKEY$ : IF INK$="" THEN 1013 1014 Q=105 1015 A$=" hjelpe sider" 1016 GO SUB 3000 1017 GO SUB 4000 1018 Q=160 1019 A$="CLEAR: -VIL FJERNE AKTUELL TEKST FRA SKJERMEN" 1020 GO SUB 3000 1021 Q=256 1022 A$="HJELP: -VIL VISE HJELPE SIDER DER DE FORSKJELLIGE KOMMANDOENE VIL BLI KORT FORKLART" 1023 GO SUB 3000 1024 PP=Q 1025 Q=105 1026 A$="trykk en tast" 1027 GO SUB 3000 1028 INK$= INKEY$ : IF INK$="" THEN 1028 1029 Q=105 1030 A$=" hjelpe sider" 1031 GO SUB 3000 1032 GO SUB 4000 1033 Q=106 1034 A$=" " 1035 GO SUB 3000 1036 END 2000 :'innmatingsprosedyre 2001 IF QQ=3 THEN P=0: FOR P=1 TO 22: GO TO 2003 2002 FOR P=1 TO 31 2003 PRINT @Q+P-1, CHR$ (128) 2004 ID$(P)= INKEY$ : IF ID$(P)="" THEN 2004 2005 BEEP 2006 IF ID$(P)= CHR$ (21) THEN PRINT @Q-1+P,"": GO TO 2002 2007 IF ID$(P)= CHR$ (8) THEN P=P-1: IF P=<0 THEN P=0 : ELSE PRINT @Q+P-1," ": GO TO 2003 2008 IF ID$(P)= CHR$ (13) THEN PRINT @Q+P-1,"": RETURN 2009 IF QQ=3 AND P=22 AND ID$(P)<> CHR$ (13) THEN 2004 2010 IF P=31 AND ID$(P)<> CHR$ (13) THEN 2004 2011 PRINT @Q-1+P,ID$(P) 2012 NEXT P 2013 RETURN 3000 :'utskriftsprosedyre 3001 FOR B=1 TO LEN (A$) 3002 PRINT @Q, MID$ (A$,B,1); 3003 Q=Q+1 3004 PRINT @Q, CHR$ (128) 3005 BEEP 3006 NEXT B 3007 PRINT @Q, CHR$ (32) 3008 RETURN 4000 :'slette data (fra sjermen) 4001 FOR Q=PP TO 160 STEP -1 4002 PRINT @Q, CHR$ (128); 4003 PRINT @Q+1, CHR$ (32); 4004 BEEP 4005 NEXT Q 4006 PRINT @Q, CHR$ (32); 4007 RETURN REM REM line numbering breaks here! REM REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $0092 Exec: $8b8d * REM *(Start: 09217 Length: 00146 Exec: 35725) * REM ************************************************* REM 0 POKE 65495,0 1 DIM P(100): DIM ID$(100) 2 CLS 3 Q=1 4 A$="STATISTIKK OVER VERDENS STATER" 5 GO SUB 3000 6 Q=416 7 A$="KOMMANDO" 8 GO SUB 3000 REM REM line numbering breaks here! REM FROM REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $032b Exec: $8b8d * REM *(Start: 09217 Length: 00811 Exec: 35725) * REM ************************************************* REM 1000 Q=106 1001 A$="hjelpe sider" 1002 GO SUB 3000 1003 Q=160 1004 A$="LIST: -LISTER ALLE VERDENS STATER" 1005 GO SUB 3000 1006 Q=256 1007 A$="LESE: -SETTER COMPUTEREN I STAND TIL AA LESE DATAENE TIL ET SPESIFISERT LAND" 1008 GO SUB 3000 1009 PP=Q 1010 Q=105 1011 A$="trykk en tast" 1012 GO SUB 3000 1013 INK$= INKEY$ : IF INK$="" THEN 1013 1014 Q=105 1015 A$=" hjelpe sider" 1016 GO SUB 3000 1017 GO SUB 4000 1018 Q=160 1019 A$="CLEAR: -VIL FJERNE AKTUELL TEKST FRA SKJERMEN" 1020 GO SUB 3000 1021 Q=256 1022 A$="HJELP: -VIL VISE HJELPE SIDER DER DE FORSKJELLIGE KOMMANDOENE VIL BLI KORT FORKLART" 1023 GO SUB 3000 1024 PP=Q 1025 Q=105 1026 A$="trykk en tast" 1027 GO SUB 3000 1028 INK$= INKEY$ : IF INK$="" THEN 1028 1029 Q=105 1030 A$=" hjelpe sider" 1031 GO SUB 3000 1032 GO SUB 4000 1033 Q=106 1034 A$=" " 1035 GO SUB 3000 1036 END REM REM line numbering breaks here! REM REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $0827 Exec: $8b8d * REM *(Start: 09217 Length: 02087 Exec: 35725) * REM ************************************************* REM 0 :'person register 1 IDEN$="PERS" 2 CLS 3 Q=12 4 A$="T.I.C.S." 5 GO SUB 640 6 Q=64 7 A$="NAME" 8 GO SUB 640 9 Q=96 10 A$="ID NO." 11 GO SUB 640 12 Q=128 13 A$="ADRESS" 14 GO SUB 640 15 Q=160 16 A$="PO.NO." 17 GO SUB 640 18 Q=192 19 A$="PO.BOX" 20 GO SUB 640 21 Q=224 22 A$="PO.ADR." 23 GO SUB 640 24 Q=256 25 A$="PHONE" 26 GO SUB 640 27 Q=288 28 A$="TITLE" 29 GO SUB 640 30 Q=71 31 FOR B=1 TO 8 32 PRINT @Q,":"; 33 PRINT @Q+1, CHR$ (128); 34 BEEP 35 PRINT @Q+1, CHR$ (32); 36 Q=Q+32 37 NEXT B 38 Q=384: PRINT @0, FRE$ ; 39 E$="" 40 A$="ENTER COMMAND" 41 GO SUB 640 42 Q=416 43 GO SUB 240 44 FOR A=0 TO P 45 E$=E$+ID$(A) 46 IF MID$ (E$,1,1)= CHR$ (13) THEN 38 47 IF MID$ (E$,1,1)= CHR$ (36) THEN 3560 48 NEXT A 49 IF E$="$" THEN GO TO 3560 50 FOR B=1 TO P+1 51 IF MID$ (E$,B,4)="TILB" THEN GO TO 80 52 IF MID$ (E$,B,4)="MAIN" THEN GO TO 80 53 IF MID$ (E$,B,4)="MENU" THEN GO TO 80 54 IF MID$ (E$,B,4)="MENY" THEN GO TO 80 55 IF MID$ (E$,B,4)="RETU" THEN GO TO 80 56 IF MID$ (E$,B,4)="BACK" THEN GO TO 80 57 IF MID$ (E$,B,4)="LIST" THEN 1740 58 IF MID$ (E$,B,4)="LESE" THEN 1740 59 IF MID$ (E$,B,4)="READ" THEN 102 60 IF MID$ (E$,B,4)="LOAD" THEN 102 61 IF MID$ (E$,B,4)="SAVE" THEN 2520 62 IF MID$ (E$,B,4)="CREA" THEN 2790 63 IF MID$ (E$,B,4)="LAG " THEN 2790 64 IF MID$ (E$,B,4)="STOR" THEN 2520 65 IF MID$ (E$,B,4)="DUMP" THEN 2520 66 IF MID$ (E$,B,4)="MAKE" THEN 2790 67 IF MID$ (E$,B,4)="FORA" THEN 1940 68 IF MID$ (E$,B,4)="REPA" THEN 1940 69 IF MID$ (E$,B,4)="CHAN" THEN 1940 70 IF MID$ (E$,B,4)="EDIT" THEN 1940 71 IF MID$ (E$,B,4)="SKIF" THEN 1940 72 IF MID$ (E$,B,4)="REPR" THEN 1940 73 IF MID$ (E$,B,4)="BYTT" THEN 2260 74 IF MID$ (E$,B,4)="REPL" THEN 2260 75 IF MID$ (E$,B,4)="SWAP" THEN 2260 76 IF MID$ (E$,B,4)="REMO" THEN 2260 77 IF MID$ (E$,B,4)="OMPL" THEN 2260 78 IF MID$ (E$,B,4)="OMOR" THEN 2260 79 IF MID$ (E$,B,4)="FLYT" THEN 2260 80 IF MID$ (E$,B,4)="LAGR" THEN 2520 81 IF MID$ (E$,B,4)="SLET" THEN 2630 82 IF MID$ (E$,B,4)="KILL" THEN 2630 83 IF MID$ (E$,B,4)="ERAS" THEN 2630 84 IF MID$ (E$,B,4)="DELE" THEN 2630 85 IF MID$ (E$,B,4)="DEL " THEN 2630 86 IF MID$ (E$,B,4)="CLEA" THEN 2630 87 IF MID$ (E$,B,4)="VISK" THEN 2630 88 IF MID$ (E$,B,4)="RENS" THEN 2630 89 IF MID$ (E$,B,4)="REST" THEN 2630 90 NEXT 91 FOR T=1 TO 5 92 BEEP 93 E$="" 94 PRINT @384,"COMMAND NOT AVAILABLE!" 95 WAIT 250 96 BEEP 97 PRINT @384,"command"; CHR$ (128);"not"; CHR$ (128);"available": POKE 1429,33 98 WAIT 250 99 NEXT T 100 GO TO 38 REM REM line numbering breaks here! REM REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $00d3 Exec: $8b8d * REM *(Start: 09217 Length: 00211 Exec: 35725) * REM ************************************************* REM 10000 :'load data 10001 Q=384:S$="":E$="" 10002 A$="WHICH FILE" 10003 GO SUB 63 10004 GO SUB 30000 10005 SS=3 10006 S$=E$+".DAT" 10007 FOR A=1 TO 8 10008 FREAD S$;DAT$(A) 10009 GO SUB 10012 10010 NEXT A 10011 GO TO 10013 10012 IF EOF (S$)=0 THEN RETURN 10013 CLOSE 10014 GO TO 1740 11596 ISTER ALLE VERDENS STATER" 100 GO SUB 2000 110 Q=256 120 A$="LESE: -SETTER COMPUTEREN I STAND TIL AA LESE DATAENE TIL ET SPESIFISERT LAND" 130 GO SUB 2000 140 Q=416 150 A$="trykk en tast" 160 GO SUB 2000 170 INK$= INKEY$ : IF INK$="" THEN 170 1000 :'innmatingsprosedyre 1001 IF QQ=3 THEN P=0: FOR P=1 TO 22: GO TO 1003 1002 FOR P=1 TO 31 1003 PRINT @Q+P-1, CHR$ (128) 1004 ID$(P)= INKEY$ : IF ID$(P)="" THEN 1004 1005 BEEP 1006 IF ID$(P)= CHR$ (21) THEN PRINT @Q-1+P,"": GO TO 1002 1007 IF ID$(P)= CHR$ (8) THEN P=P-1: IF P=<0 THEN P=0 : ELSE PRINT @Q+P-1," ": GO TO 1003 1008 IF ID$(P)= CHR$ (13) THEN PRINT @Q+P-1,"": RETURN 1009 IF QQ=3 AND P=22 AND ID$(P)<> CHR$ (13) THEN 1004 1010 IF P=31 AND ID$(P)<> CHR$ (13) THEN 1004 1011 PRINT @Q-1+P,ID$(P) 1012 NEXT P 1013 RETURN 2000 :'utskriftsprosedyre 2001 FOR B=1 TO LEN (A$) 2002 PRINT @Q, MID$ (A$,B,1); 2003 Q=Q+1 2004 PRINT @Q, CHR$ (128) 2005 BEEP 2006 NEXT B 2007 PRINT @Q, CHR$ (32) 2008 RETURN REM REM line numbering breaks here! REM REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $0645 Exec: $8b8d * REM *(Start: 09217 Length: 01605 Exec: 35725) * REM ************************************************* REM 0 POKE 65495,0 1 DIM P(100): DIM ID$(100) 2 CLS 3 Q=1 4 A$="STATISTIKK OVER VERDENS STATER" 5 GO SUB 3000 6 Q=416 7 A$="KOMMANDO" 8 GO SUB 3000 9 Q=448 10 GO SUB 2000 1000 Q=106 1001 A$="hjelpe sider" 1002 GO SUB 3000 1003 Q=160 1004 A$="LIST: -LISTER ALLE VERDENS STATER" 1005 GO SUB 3000 1006 Q=256 1007 A$="LESE: -SETTER COMPUTEREN I STAND TIL AA LESE DATAENE TIL ET SPESIFISERT LAND" 1008 GO SUB 3000 1009 PP=Q 1010 Q=105 1011 A$="trykk en tast" 1012 GO SUB 3000 1013 INK$= INKEY$ : IF INK$="" THEN 1013 1014 Q=105 1015 A$=" hjelpe sider" 1016 GO SUB 3000 1017 GO SUB 4000 1018 Q=160 1019 A$="CLEAR: -VIL FJERNE AKTUELL TEKST FRA SKJERMEN" 1020 GO SUB 3000 1021 Q=256 1022 A$="HJELP: -VIL VISE HJELPE SIDER DER DE FORSKJELLIGE KOMMANDOENE VIL BLI KORT FORKLART" 1023 GO SUB 3000 1024 PP=Q 1025 Q=105 1026 A$="trykk en tast" 1027 GO SUB 3000 1028 INK$= INKEY$ : IF INK$="" THEN 1028 1029 Q=105 1030 A$=" hjelpe sider" 1031 GO SUB 3000 1032 GO SUB 4000 1036 Q=106 1037 A$= CHR$ (32) 1038 GO SUB 3000 1039 GO TO 9 2000 :'innmatingsprosedyre 2001 IF QQ=3 THEN P=0: FOR P=1 TO 22: GO TO 2003 2002 FOR P=1 TO 31 2003 PRINT @Q+P-1, CHR$ (128) 2004 ID$(P)= INKEY$ : IF ID$(P)="" THEN 2004 2005 BEEP 2006 IF ID$(P)= CHR$ (21) THEN PRINT @Q-1+P,"": GO TO 2002 2007 IF ID$(P)= CHR$ (8) THEN P=P-1: IF P=<0 THEN P=0 : ELSE PRINT @Q+P-1," ": GO TO 2003 2008 IF ID$(P)= CHR$ (13) THEN PRINT @Q+P-1,"": RETURN 2009 IF QQ=3 AND P=22 AND ID$(P)<> CHR$ (13) THEN 2004 2010 IF P=31 AND ID$(P)<> CHR$ (13) THEN 2004 2011 PRINT @Q-1+P,ID$(P) 2012 NEXT P 2013 RETURN 3000 :'utskriftsprosedyre 3001 FOR B=1 TO LEN (A$) 3002 PRINT @Q, MID$ (A$,B,1); 3003 Q=Q+1 3004 PRINT @Q, CHR$ (128) 3005 BEEP 3006 NEXT B 3007 PRINT @Q, CHR$ (32) 3008 RETURN 4000 :'slette data (fra sjermen) 4001 FOR Q=PP TO 160 STEP -1 4002 PRINT @Q, CHR$ (128); 4003 PRINT @Q+1, CHR$ (32); 4004 BEEP 4005 NEXT Q 4006 PRINT @160, CHR$ (32); 4007 RETURN REM REM line numbering breaks here! REM 78 V CLOSE PRINT @406,D2 5030 BEEP 5040 IF D1=1 AND D2=1 THEN COPY O$ TO N$ 5050 IF D1=1 AND D2=2 THEN COPY "1:"+O$ TO "2:"+N$ 5060 IF D1=1 AND D2=3 THEN COPY "1:"+O$ TO "3:"+N$ 5070 IF D1=1 AND D2=4 THEN COPY "1:"+O$ TO "4:"+N$ 5080 IF D1=2 AND D2=1 THEN COPY "2:"+O$ TO "1:"+N$ 5090 IF D1=2 AND D2=2 THEN COPY "2:"+O$ TO "2:"+N$ 5100 IF D1=2 AND D2=3 THEN COPY "2:"+O$ TO "3:"+N$ 5110 IF D1=2 AND D2=4 THEN COPY "2:"+O$ TO "4:"+N$ 5120 IF D1=3 AND D2=1 THEN COPY "3:"+O$ TO "1:"+N$ 5130 IF D1=3 AND D2=2 THEN COPY "3:"+O$ TO "2:"+N$ 5140 IF D1=3 AND D2=3 THEN COPY "3:"+O$ TO "3:"+N$ 5150 IF D1=3 AND D2=4 THEN COPY "3:"+O$ TO "4:"+N$ 5160 IF D1=4 AND D2=1 THEN COPY "4:"+O$ TO "1:"+N$ 5170 IF D1=4 AND D2=2 THEN COPY "4:"+O$ TO "2:"+N$ 5180 IF D1=4 AND D2=3 THEN COPY "4:"+O$ TO "3:"+N$ 5190 IF D1=4 AND D2=4 THEN COPY "4:"+O$ TO "4:"+N$ 5200 GO TO 3860 5210 :'rename filer 5220 O$="":N$="" 5230 E$="" 5240 Q=384 5250 A$="OLD FILE" 5260 GO SUB 740 5270 Q=416 5280 GO SUB 7550 5290 O$=E$ 5300 E$="" 5310 Q=384 5320 A$="NEW NAME" 5330 GO SUB 740 5340 Q=416 5350 GO SUB 7550 5360 N$=E$ 5370 E$="" 5380 Q=384 5390 A$="DRIVE NO." 5400 GO SUB 740 5410 D$= INKEY$ : IF D$="" THEN 5410 5420 D= VAL (D$) 5430 IF D<1 OR D>4 THEN 5410 5440 IF O$=N$ THEN 5500 5450 IF D=1 THEN RENAME "1:"+O$+".DAT" TO N$+".DAT" 5460 IF D=2 THEN RENAME "2:"+O$+".DAT" TO N$+".DAT" 5470 IF D=3 THEN RENAME "3:"+O$+".DAT" TO N$+".DAT" 5480 IF D=4 THEN RENAME "4:"+O$+".DAT" TO N$+".DAT" 5490 GO TO 3860 5500 A$="FILE '"+N$+"' NOT AVAILABLE" 5510 Q=384 5520 GO SUB 740 5530 GO TO 3860 5540 :'close disks 5550 Q=384 5560 A$="CLOSED" 5570 GO SUB 740 5580 CLOSE 5590 WAIT 2500 5600 GO TO 3860 5610 :'directory 5620 PRINT @96,"": PRINT : PRINT : PRINT : PRINT : PRINT : PRINT 5630 PRINT @96,"" 5640 Q=96 5650 FOR A=0 TO X 5660 A$=DI$(A) 5670 GO SUB 740 5680 Q=Q+32- LEN (DI$(A)) 5690 IF Q=320 THEN Q=106 5700 IF Q=330 THEN Q=116 5710 IF Q=340 THEN GO SUB 5740 5720 NEXT A 5730 GO TO 3860 5740 Q=384 5750 A$="HIT ANY KEY" 5760 GO SUB 740 5770 INK$= INKEY$ : IF INK$="" THEN 5770 5780 Q=96: RETURN 5790 :'commands not available 5800 FOR M=1 TO 5 5810 PRINT @384,"COMMAND NOT AVAILABLE" 5820 BEEP 5830 WAIT 250 5840 PRINT @384,"command not available" 5850 BEEP 5860 WAIT 250 5870 NEXT M 5880 GO TO 3860 5890 :'drive number 5900 Q=384 5910 A$="OLD DRIVE NUMBER" 5920 GO SUB 740 5930 A$= STR$ (DN) 5940 GO SUB 740 5950 Q=416 5960 A$="ENTER DRIVE NO." 5970 GO SUB 740 5980 INK$= INKEY$ : IF INK$="" THEN 5980 5990 DN= VAL (INK$) 6000 IF DN<1 OR DN>4 THEN 5980 6010 GO TO 3860 6020 :'format a diskette 6030 Q=384 6040 A$="FORMAT" 6050 GO SUB 740 6060 A$= STR$ (DN) 6070 GO SUB 740 6080 A$=" " 6090 GO SUB 740 6100 INK$= INKEY$ : IF INK$="" THEN 6100 6110 IF INK$="Y" THEN 6140 6120 IF INK$="N" THEN 3860 6130 GO TO 6100 6140 Q=384 6150 A$="INSERT DISKETTE TO BE FORMATTED" 6160 GO SUB 740 6170 Q=416 6180 A$="AND PRESS A KEY" 6190 GO SUB 740 6200 INK$= INKEY$ : IF INK$="" THEN 6200 6210 DSKINIT DN 6220 GO TO 3860 6230 :'error utskrift 6240 Q=384 6250 IF ERR <1 THEN A$="NO ERROR MESSAGES" : ELSE 6280 6260 GO SUB 740 6270 GO TO 3860 6280 A$="ERROR" 6290 GO SUB 740 6300 A$= STR$ ( ERR ) 6310 GO SUB 740 6320 A$=" IN LINE" 6330 GO SUB 740 6340 A$= STR$ ( ERL ) 6350 GO SUB 740 6360 INK$= INKEY$ : IF INK$="" THEN 6360 6370 GO TO 3860 6380 :'free 6390 Q=384 6400 X= FREE DN 6410 A$="USED:" 6420 GO SUB 740 6430 Y=175104 6440 FR=Y-X 6450 A$= STR$ (FR) 6460 GO SUB 740 6470 A$=" LEFT:" 6480 GO SUB 740 6490 A$= STR$ (X) 6500 GO SUB 740 6510 INK$= INKEY$ : IF INK$="" THEN 6510 6520 GO TO 3860 6530 :'fre$ 6540 Q=384 6550 A$="USED:" 6560 GO SUB 740 6570 X= FRE$ 6580 FR=1000-X 6590 A$= STR$ (FR) 6600 GO SUB 740 6610 A$=" FREE" 6620 GO SUB 740 6630 A$= STR$ (X) 6640 GO SUB 740 6650 INK$= INKEY$ : IF INK$="" THEN 6650 6660 GO TO 3860 6670 :'himem 6680 Q=384 6690 A$="HIMEM=" 6700 GO SUB 740 6710 A$= STR$ ( HIMEM ) 6720 GO SUB 740 6730 GO TO 6650 6740 :'slette filer 6750 S$="":E$="" 6760 Q=384 6770 A$="KILL FILE:" 6780 GO SUB 740 6790 Q=416 6800 GO SUB 7550 6810 FOR A=0 TO X 6820 IF E$=DI$(A) THEN 6890 6830 NEXT A 6840 Q=384 6850 A$="FILE NOT EXIST" 6860 GO SUB 740 6870 WAIT 2000 6880 GO TO 3860 6890 S$=E$+".DAT":E$="" 6900 DI$(A)="" 6910 GO SUB 7640 6920 IF DN=1 THEN KILL "1:"+S$ 6930 IF DN=2 THEN KILL "2:"+S$ 6940 IF DN=3 THEN KILL "3:"+S$ 6950 IF DN=4 THEN KILL "4:"+S$ 6960 GO TO 3860 6970 :'lof 6980 S$="":E$="" 6990 Q=384 7000 A$="WHICH FILE" 7010 GO SUB 740 7020 Q=416 7030 GO SUB 7550 7040 S$=E$+".DAT" 7050 E$="" 7060 X=0 7070 IF DN=1 THEN X= LOF "1:"+S$ 7080 IF DN=2 THEN X= LOF "2:"+S$ 7090 IF DN=3 THEN X= LOF "3:"+S$ 7100 IF DN=4 THEN X= LOF "4:"+S$ 7110 IF X<0 THEN X=X*-1 7120 A$="="+ STR$ (X) 7130 Q=416+ LEN (S$)-3 7140 GO SUB 740 7150 INK$= INKEY$ : IF INK$="" THEN 7150 7160 GO TO 3860 7170 :'protect files 7180 E$="" 7190 Q=384 7200 A$="PROTECT " 7210 GO SUB 740 7220 Q=416 7230 GO SUB 7550 7240 IF E$="ON" OR E$="OFF" THEN S1$=E$:E$="": GO TO 7260 7250 E$="": GO TO 7230 7260 Q=384:A$="WHICH FILE" 7270 GO SUB 740 7280 Q=416 7290 GO SUB 7550 7300 S$=E$+".DAT" 7310 E$="" 7320 IF S1$="OFF" THEN 7340 7330 IF S1$="ON" THEN 7400 7340 IF DN=1 THEN PROTECT OFF "1:"+S$ 7350 IF DN=2 THEN PROTECT OFF "2:"+S$ 7360 IF DN=3 THEN PROTECT OFF "3:"+S$ 7370 IF DN=4 THEN PROTECT OFF "4:"+S$ 7380 CLOSE 7390 GO TO 3860 7400 IF DN=1 THEN PROTECT ON "1:"+S$ 7410 IF DN=2 THEN PROTECT ON "2:"+S$ 7420 IF DN=3 THEN PROTECT ON "3:"+S$ 7430 IF DN=4 THEN PROTECT ON "4:"+S$ 7440 CLOSE 7450 GO TO 3860 7460 :'verify 7470 Q=384 7480 A$="VERIFY " 7490 GO SUB 740 7500 Q=416 7510 GO SUB 270 7520 IF ID$(2)="N" THEN VERIFY ON : GO TO 3860 7530 IF ID$(2)="F" THEN VERIFY OFF : GO TO 3860 7540 GO TO 7500 7550 :'which file 7560 Q=416 7570 GO SUB 270 7580 IF P<2 OR P>9 THEN 7570 7590 FOR A=1 TO P 7600 IF ID$(A)= CHR$ (32) OR ID$(A)= CHR$ (13) THEN 7630 7610 E$=E$+ID$(A) 7620 NEXT A 7630 RETURN 7640 :'kill file dir 7650 IDEN$="DIRECTOR" 7660 KILL "DIRECTOR.DAT" 7670 FOR A=0 TO X-1 7680 IF DI$(A)="" THEN 7700 7690 FWRITE "DIRECTOR";DI$(A) 7700 NEXT A 7710 Q= LOF ("DIRECTOR") 7720 IF Q<>0 THEN RETURN 7730 GO TO 7670 7740 :'verdens stater 7750 IDENT$="STAT" 7760 CLS 7770 Q=12 7780 A$="T.I.C.S." 7790 GO SUB 740 7800 Q=384 7810 A$="ENTER COMMAND" 7820 GO SUB 740 7830 Q=416 7840 PRINT @Q, CHR$ (128) 7850 GO SUB 270 7860 E$="" 7870 FOR A=1 TO P 7880 E$=E$ID$(A) 7890 IF ID$(1)= CHR$ (13) THEN 7830 7900 NEXT A 7910 FOR B=1 TO P+1 7920 IF MID$ (E$,B,4)="DISK" THEN 3800 7930 NEXT B REM REM line numbering breaks here! REM FROM ($FFFF) RENAME ($FFFF)($FFFE) 65295 RENAME ($FFFF) 65535 ( DSKINIT ($ed) SOVS D z GO SOVS BAS ($fc) N TEST1 BAS FREAD  220 REM REM line numbering breaks here! REM TEST2 BAS PUT 48 GO TEST4 REM REM line numbering breaks here! REM BAS RESTORE  52 GO TEST5 REM REM line numbering breaks here! REM BAS l OPEN GO SOVS BAS H < INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT 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: $0871 Exec: $8b8d * REM *(Start: 09217 Length: 02161 Exec: 35725) * REM ************************************************* REM 0 POKE 65495,0 1 DIM P(100): DIM ID$(100) 2 CLS 3 Q=1 4 A$="STATISTIKK OVER VERDENS STATER" 5 GO SUB 3000 6 Q=416 7 A$="KOMMANDO" 8 GO SUB 3000 9 Q=448 10 GO SUB 2000 11 E$="" 12 FOR A=1 TO P 13 E$=E$+ID$(A) 14 IF ID$(1)= CHR$ (13) THEN 9 15 NEXT A 16 FOR B=1 TO P+1 17 IF MID$ (E$,B,4)="HJEL" THEN 1000 18 IF MID$ (E$,B,4)="CLEA" THEN 4000 19 IF MID$ (E$,B,4)="LESE" THEN 10000 20 IF MID$ (E$,B,4)="LIST" THEN 20000 21 NEXT B 22 END 1000 Q=106 1001 A$="hjelpe sider" 1002 GO SUB 3000 1003 Q=160 1004 A$="LIST: -LISTER ALLE VERDENS STATER" 1005 GO SUB 3000 1006 Q=256 1007 A$="LESE: -SETTER COMPUTEREN I STAND TIL AA LESE DATAENE TIL ET SPESIFISERT LAND" 1008 GO SUB 3000 1009 PP=Q 1010 Q=105 1011 A$="trykk en tast" 1012 GO SUB 3000 1013 INK$= INKEY$ : IF INK$="" THEN 1013 1014 Q=105 1015 A$=" hjelpe sider" 1016 GO SUB 3000 1017 GO SUB 4000 1018 Q=160 1019 A$="CLEAR: -VIL FJERNE AKTUELL TEKST FRA SKJERMEN" 1020 GO SUB 3000 1021 Q=256 1022 A$="HJELP: -VIL VISE HJELPE SIDER DER DE FORSKJELLIGE KOMMANDOENE VIL BLI KORT FORKLART" 1023 GO SUB 3000 1024 PP=Q 1025 Q=105 1026 A$="trykk en tast" 1027 GO SUB 3000 1028 INK$= INKEY$ : IF INK$="" THEN 1028 1029 Q=105 1030 A$=" hjelpe sider" 1031 GO SUB 3000 1032 GO SUB 4000 1036 Q=160 1037 A$="ps!: -ALLE KOMMANDOER KAN SKRIVES INN I SETNINGER. DET ENESTE SOM ER N0D- VENDIG ER AT KOMMANDO ORDET ER MED I SETNINGEN." 1038 GO SUB 3000 1039 PP=Q:Q=105 1040 A$="trykk en tast" 1041 GO SUB 3000 1042 INK$= INKEY$ : IF INK$="" THEN 1042 1043 Q=105 1044 A$=" hjelpe meny" 1046 GO SUB 3000 1047 GO SUB 4000 1048 Q=105 1049 A$= CHR$ (32) 1050 GO SUB 3000 1051 GO TO 9 2000 :'innmatingsprosedyre 2001 IF QQ=3 THEN P=0: FOR P=1 TO 22: GO TO 2003 2002 FOR P=1 TO 31 2003 PRINT @Q+P-1, CHR$ (128) 2004 ID$(P)= INKEY$ : IF ID$(P)="" THEN 2004 2005 BEEP 2006 IF ID$(P)= CHR$ (21) THEN PRINT @Q-1+P,"": GO TO 2002 2007 IF ID$(P)= CHR$ (8) THEN P=P-1: IF P=<0 THEN P=0 : ELSE PRINT @Q+P-1," ": GO TO 2003 2008 IF ID$(P)= CHR$ (13) THEN PRINT @Q+P-1,"": RETURN 2009 IF QQ=3 AND P=22 AND ID$(P)<> CHR$ (13) THEN 2004 2010 IF P=31 AND ID$(P)<> CHR$ (13) THEN 2004 2011 PRINT @Q-1+P,ID$(P) 2012 NEXT P 2013 RETURN 3000 :'utskriftsprosedyre 3001 FOR B=1 TO LEN (A$) 3002 PRINT @Q, MID$ (A$,B,1); 3003 Q=Q+1 3004 PRINT @Q, CHR$ (128) 3005 BEEP 3006 NEXT B 3007 PRINT @Q, CHR$ (32) 3008 RETURN 4000 :'slette data (fra sjermen) 4001 FOR Q=PP TO 160 STEP -1 4002 PRINT @Q, CHR$ (128); 4003 PRINT @Q+1, CHR$ (32); 4004 BEEP 4005 NEXT Q 4006 PRINT @160, CHR$ (32); 4007 RETURN REM REM line numbering breaks here! REM 44 REM 'y GO SUB 30000 10106 SS=3 10107 S$=E$+".DAT" 10108 FOR A=1 TO 8 10109 FREAD S$;DAT$(A) 10110 GO SUB 10113 10111 NEXT A 10112 GO TO 10114 10113 IF EOF (S$)=0 THEN RETURN 10114 CLOSE 10115 GO TO 1740 1300 NEXT A 1310 FOR B=1 TO P+1 1320 IF MID$ (E$,B,4)="TILB" THEN GO TO 130 1330 IF MID$ (E$,B,4)="MAIN" THEN GO TO 130 1340 IF MID$ (E$,B,4)="MENU" THEN GO TO 130 1350 IF MID$ (E$,B,4)="MENY" THEN GO TO 130 1360 IF MID$ (E$,B,4)="RETU" THEN GO TO 130 1370 IF MID$ (E$,B,4)="BACK" THEN GO TO 130 1380 IF MID$ (E$,B,4)="LIST" THEN 1820 1390 IF MID$ (E$,B,4)="LESE" THEN 1820 1400 IF MID$ (E$,B,4)="READ" THEN 1930 1410 IF MID$ (E$,B,4)="LOAD" THEN 1930 1420 IF MID$ (E$,B,4)="SAVE" THEN 2650 1430 IF MID$ (E$,B,4)="CREA" THEN 2970 1440 IF MID$ (E$,B,4)="LAG " THEN 2970 1450 IF MID$ (E$,B,4)="STOR" THEN 2650 1460 IF MID$ (E$,B,4)="DUMP" THEN 2650 1470 IF MID$ (E$,B,4)="MAKE" THEN 2970 1480 IF MID$ (E$,B,4)="FORA" THEN 2070 1490 IF MID$ (E$,B,4)="REPA" THEN 2070 1500 IF MID$ (E$,B,4)="CHAN" THEN 2070 1510 IF MID$ (E$,B,4)="EDIT" THEN 2070 1520 IF MID$ (E$,B,4)="SKIF" THEN 2070 1530 IF MID$ (E$,B,4)="REPR" THEN 2070 1540 IF MID$ (E$,B,4)="BYTT" THEN 2390 1550 IF MID$ (E$,B,4)="REPL" THEN 2390 1560 IF MID$ (E$,B,4)="SWAP" THEN 2390 1570 IF MID$ (E$,B,4)="REMO" THEN 2390 1580 IF MID$ (E$,B,4)="OMPL" THEN 2390 1590 IF MID$ (E$,B,4)="OMOR" THEN 2390 1600 IF MID$ (E$,B,4)="FLYT" THEN 2390 1610 IF MID$ (E$,B,4)="LAGR" THEN 2650 1620 IF MID$ (E$,B,4)="SLET" THEN 2810 1630 IF MID$ (E$,B,4)="KILL" THEN 2810 1640 IF MID$ (E$,B,4)="ERAS" THEN 2810 1650 IF MID$ (E$,B,4)="DELE" THEN 2810 1660 IF MID$ (E$,B,4)="DEL " THEN 2810 1670 IF MID$ (E$,B,4)="CLEA" THEN 2810 1680 IF MID$ (E$,B,4)="VISK" THEN 2810 1690 IF MID$ (E$,B,4)="RENS" THEN 2810 1700 IF MID$ (E$,B,4)="REST" THEN 2810 1710 NEXT 1720 FOR T=1 TO 5 1730 BEEP 1740 E$="" 1750 PRINT @384,"COMMAND NOT AVAILABLE!" 1760 WAIT 250 1770 BEEP 1780 PRINT @384,"command"; CHR$ (128);"not"; CHR$ (128);"available": POKE 1429,33 1790 WAIT 250 1800 NEXT T 1810 GO TO 1210 1820 :'lese data 1830 GO SUB 3640 1840 LL=3 1850 Q=73 1860 FOR A=1 TO 8 1870 PRINT @Q,DAT$(A) 1880 Q=Q+32 1890 NEXT A 1900 IF BB=3 THEN BB=0: GO TO 1130 1910 GO TO 1210 1920 :'load data 1930 Q=384:S$="":E$="" 1940 A$="WHICH FILE" 1950 GO SUB 740 1960 GO SUB 7550 1970 SS=3 1980 S$=E$+".DAT" 1990 FOR A=1 TO 8 2000 FREAD S$;DAT$(A) 2010 GO SUB 2040 2020 NEXT A 2030 GO TO 2050 2040 IF EOF (S$)=0 THEN RETURN 2050 CLOSE 2060 GO TO 1820 2070 :'forandre data 2080 QQ=3 2090 Q=0 2100 FOR A=1 TO 8 2110 PRINT @70+Q,A; 2120 BEEP 2130 Q=Q+32 2140 NEXT A 2150 PRINT @416,"" 2160 Q=384 2170 A$="ENTER NUMBER TO CHANGE <1-8>" 2180 GO SUB 740 2190 Q=416 2200 PRINT @Q, CHR$ (128) 2210 A$= INKEY$ : IF A$="" THEN 2210 2220 A= VAL (A$) 2230 IF A<1 OR A>8 THEN 2210 2240 DAT$(A)="" 2250 PRINT @Q, CHR$ (32); 2260 IF A=1 THEN Q=73: PRINT @Q,"": BEEP : GO SUB 290 2270 IF A=2 THEN Q=105: PRINT @Q,"": BEEP : GO SUB 290 2280 IF A=3 THEN Q=137: PRINT @Q,"": BEEP : GO SUB 290 2290 IF A=4 THEN Q=169: PRINT @Q,"": BEEP : GO SUB 290 2300 IF A=5 THEN Q=201: PRINT @Q,"": BEEP : GO SUB 290 2310 IF A=6 THEN Q=233: PRINT @Q,"": BEEP : GO SUB 290 2320 IF A=7 THEN Q=265: PRINT @Q,"": BEEP : GO SUB 290 2330 IF A=8 THEN Q=297: PRINT @Q,"": BEEP : GO SUB 290 2340 FOR W=1 TO P 2350 IF ID$(W)= CHR$ (13) THEN 2380 2360 DAT$(A)=DAT$(A)+ID$(W) 2370 NEXT W 2380 GO TO 1130 2390 :'bytte data 2400 BB=3 2410 GO SUB 3640 2420 Q=70 2430 FOR A=1 TO 8 2440 PRINT @Q,A; 2450 BEEP 2460 Q=Q+32 2470 NEXT A 2480 Q=384 2490 A$="SWAP" 2500 GO SUB 740 2510 A$= INKEY$ : IF A$="" THEN 2510 2520 A= VAL (A$) 2530 IF A<1 OR A>8 THEN 2510 2540 PRINT @389,A 2550 Q=392 2560 A$="WITH" 2570 GO SUB 740 2580 A$= INKEY$ : IF A$="" THEN 2580 2590 B= VAL (A$) 2600 IF B<1 OR B>8 THEN 2580 2610 PRINT @396,B 2620 BEEP 2630 SWAP DAT$(A),DAT$(B) 2640 GO TO 1820 2650 Q=384:E$=""::'lagre data 2660 A$="WHICH FILE" 2670 GO SUB 740 2680 Q=416: GO SUB 7550 2690 GO SUB 3640 2700 S$=E$ 2710 E$="" 2720 WW=3 2730 FOR A=1 TO 8 2740 FWRITE S$;DAT$(A) 2750 NEXT A 2760 CLOSE 2770 X=X+1:DI$(X)=S$ 2780 FWRITE "DIRECTOR";DI$(X) 2790 CLOSE 2800 GO TO 1210 2810 :'slette data 2820 GO SUB 3640 2830 W=1 2840 Q=73 2850 FOR S=Q+ LEN (DAT$(W)) TO Q STEP -1 2860 PRINT @S," "; CHR$ (128); CHR$ (32) 2870 BEEP 2880 NEXT S 2890 PRINT @S, CHR$ (32) 2900 Q=Q+32 2910 W=W+1: IF W=9 THEN 2930 2920 GO TO 2850 2930 FOR Q=1 TO 8 2940 DAT$(Q)="" 2950 NEXT Q 2960 GO TO 1210 2970 :'lage data 2980 QQ=3 2990 L=1 3000 Q=73 3010 GO SUB 280 3020 FOR W=1 TO P 3030 IF ID$(W)= CHR$ (13) THEN 3060 3040 DAT$(L)=DAT$(L)+ID$(W) 3050 NEXT W 3060 L=L+1: IF L=9 THEN 1210 3070 Q=Q+32: GO TO 3010 3080 WAIT 5000 3090 :'error list 3100 Q=384 3110 IF IDEN$="DIRECTOR" AND ERR =160 THEN GO TO 7730 3120 IF ERR =0 THEN A$="error: NEXT WITHOUT FOR": GO SUB 740 3130 IF ERR =2 THEN A$="error: SYNTAX ERROR": GO SUB 740 3140 IF ERR =4 THEN A$="error: RETURN WITHOUT GOSUB": GO SUB 740 3150 IF ERR =6 THEN A$="error: OUT OF DATA IN READ": GO SUB 740 3160 IF ERR =8 THEN A$="error: ILLEGAL FUNCTION ERROR": GO SUB 740 3170 IF ERR =10 THEN A$="error: OVERFLOW": GO SUB 740 3180 IF ERR =12 THEN A$="error: OUT OF MEMORY": GO SUB 740 3190 IF ERR =14 THEN A$="error: UNDENFINED LINE": GO SUB 740 3200 IF ERR =16 THEN A$="error: BAD SUBSCRIPT": GO SUB 740 3210 IF ERR =18 THEN A$="error: REDIMENSION ARRAY": GO SUB 740 3220 IF ERR =20 THEN A$="error: DIVISION BY ZERO": GO SUB 740 3230 IF ERR =22 THEN A$="error: ILLEGAL DIRECT STATEMENT": GO SUB 740 3240 IF ERR =24 THEN A$="error: TYPE MISMATCH": GO SUB 740 3250 IF ERR =26 THEN A$="error: OUT OF STRING SPACE": GO SUB 740 3260 IF ERR =28 THEN A$="error: STRING TOO LONG": GO SUB 740 3270 IF ERR =30 THEN A$="error: STRING TOO COMPLEX": GO SUB 740 3280 IF ERR =32 THEN A$="error: CAN'T CONTINUE": GO SUB 740 3290 IF ERR =34 THEN A$="error: UNDEFINED FILE": GO SUB 740 3300 IF ERR =36 THEN A$="error: FAULTY DATA": GO SUB 740 3310 IF ERR =38 THEN A$="error: FILE ALREADY OPEN": GO SUB 740 3320 IF ERR =40 THEN A$="error: DRIVE NUMBER": GO SUB 740 3330 IF ERR =42 THEN A$="error: INPUT/OUTPUT ERROR": GO SUB 740 3340 IF ERR =44 THEN A$="error: WRONG FILE MODE": GO SUB 740 3350 IF ERR =46 THEN A$="error: FILE NOT OPEN": GO SUB 740 3360 IF ERR =48 THEN A$="error: INPUT PAST EOF": GO SUB 740 3370 IF ERR =50 THEN A$="error: DIRECT STATEMENT": GO SUB 740 3380 IF ERR =128 THEN A$="error: NOT READY": GO SUB 740 3390 IF ERR =130 THEN A$="error: SEEK": GO SUB 740 3400 IF ERR =132 THEN A$="error: WRITE PROTECT": GO SUB 740 3410 IF ERR =134 THEN A$="error: RECORD TYPE": GO SUB 740 3420 IF ERR =138 THEN A$="error: CYCLIC REDUNDANCY": GO SUB 740 3430 IF ERR =140 THEN A$="error: LOST DATA": GO SUB 740 3440 IF ERR =142 THEN A$="error: BOOT": GO SUB 740 3450 IF ERR =144 THEN A$="error: INVALID DIRECTORY": GO SUB 740 3460 IF ERR =146 THEN A$="error: DIRECTORY FULL": GO SUB 740 3470 IF ERR =148 THEN A$="error: DISK FULL": GO SUB 740 3480 IF ERR =150 THEN A$="error: FILE SPEC.": GO SUB 740 3490 IF ERR =152 THEN A$="error: PROTECTION": GO SUB 740 3500 IF ERR =136 THEN A$="error: RECORD NOT FOUND": GO SUB 740 3510 IF ERR =154 THEN A$="error: READ PAST EOF": GO SUB 740 3520 IF ERR =156 THEN A$="error: FILE NOT FOUND": GO SUB 740 3530 IF ERR =158 THEN A$="error: FILE EXISTS": GO SUB 740 3540 IF ERR =160 THEN A$="error: NON-EXISTENS": GO SUB 740 3550 IF ERR =162 THEN A$="error: TOO MANY OPEN": GO SUB 740 3560 IF ERR =164 THEN A$="error: PARAMETER": GO SUB 740 3570 IF ERR =166 THEN A$(A)="error: ??": GO SUB 740 3580 INK$= INKEY$ : IF INK$="" THEN 3580 3590 CLOSE 3600 IF IDEN$="PERS" THEN 1210 3610 IF IDEN$="BEGIN" THEN 60 3620 IF IDEN$="START" THEN 130 3630 IF IDEN$="DISK" THEN 3860 3640 IF DAT$(1)="" AND DAT$(2)="" AND DAT$(3)="" AND DAT$(4)="" AND DAT$(5)="" AND DAT$(6)="" AND DAT$(7)="" AND DAT$(8)="" THEN GO TO 3660 3650 RETURN 3660 FOR L=1 TO 5 3670 PRINT @384,"PLEASE MAKE DATA" 3680 BEEP 3690 WAIT 250 3700 PRINT @384,"please"; CHR$ (128);"make"; CHR$ (128);"data" 3710 BEEP 3720 WAIT 250 3730 NEXT L 3740 GO TO 1210 3750 Q=96::'help 3760 A$="HELP NOT AVAILABLE" 3770 GO SUB 740 3780 A$= INKEY$ : IF A$="" THEN 3780 3790 GO TO 410 3800 :'disk commands 3810 IDEN$="DISK" 3820 CLS 3830 Q=12 3840 A$="T.I.C.S." 3850 GO SUB 740 3860 Q=384 3870 A$="ENTER COMMAND" 3880 GO SUB 740 3890 Q=416 3900 PRINT @Q, CHR$ (128) 3910 GO SUB 270 3920 E$="" 3930 FOR A=1 TO P 3940 E$=E$+ID$(A) 3950 IF ID$(1)= CHR$ (13) THEN 3890 3960 NEXT A 3970 FOR B=1 TO P+1 3980 IF MID$ (E$,B,4)="BACK" THEN 130 3990 IF MID$ (E$,B,4)="RETU" THEN 130 4000 IF MID$ (E$,B,4)="REST" THEN 130 4010 IF MID$ (E$,B,4)="MENY" THEN 130 4020 IF MID$ (E$,B,4)="MENU" THEN 130 4030 IF MID$ (E$,B,4)="MAIN" THEN 130 4040 IF MID$ (E$,B,4)="LIST" THEN 4270 4050 IF MID$ (E$,B,4)="LESE" THEN 4270 4060 IF MID$ (E$,B,4)="COMM" THEN 4270 4070 IF MID$ (E$,B,4)="KOMM" THEN 4270 4080 IF MID$ (E$,B,4)="PRIN" THEN 4270 4090 IF MID$ (E$,B,4)="HELP" THEN 4270 4100 IF MID$ (E$,B,4)="COPY" THEN 4580 4110 IF MID$ (E$,B,4)="CLOS" THEN 5540 4120 IF MID$ (E$,B,3)="DIR" THEN 5610 4130 IF MID$ (E$,B,4)="DRIV" THEN 5890 4140 ($FFFF) RENAME ($FFFF)($FFFE) 65295 RENAME ($FFFF) 65535 ( DSKINIT ($ed) SOVS D z GO SOVS BAS ($fc) N TEST1 BAS FREAD  220 REM REM line numbering breaks here! REM TEST2 BAS PUT 48 GO TEST4 REM REM line numbering breaks here! REM BAS RESTORE  52 GO TEST5 REM REM line numbering breaks here! REM BAS l OPEN GO SOVS BAS H < INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT