PETERSEN KRISTIAN 160570 ?? ??? TITANVEIEN 9 4070 RANDABERG 598559 STUDENT PETERSEN KRISTIAN 160570 ?? ??? TITANVEIEN 9 4070 RANDABERG 598559 STUDENT PETERSEN KRISTIAN 160570 ?? ??? TITANVEIEN 9 4070 RANDABERG 598559 STUDENT DYSKELAND JAN 240769 47 186 BARLINDSTIEN 4 4070 RANDABERG 598554 STUDENT DYSKELAND JAN 240769 47 186 BARLINDSTIEN 4 4070 RANDABERG 598554 STUDENT DYSKELAND JAN 240769 47 186 BARLINDSTIEN 4 4070 RANDABERG 598554 STUDENT FROM FROM TAKSRUD MORTEN 221069 ?? ??? TOPASKROKEN 16 4070 RANDABERG 598841 STUDENT TAKSRUD MORTEN 221069 ?? ??? TOPASKROKEN 16 4070 RANDABERG 598841 STUDENT TAKSRUD MORTEN 221069 ?? ??? TOPASKROKEN 16 4070 RANDABERG 598841 STUDENT FROM FROM FROM ASKEVOLD JAN HARALD 081268 SAFIRVEIEN 42 4070 RANDABERG 597983 STUDENT ASKEVOLD JAN HARALD 081268 SAFIRVEIEN 42 4070 RANDABERG 597983 STUDENT ASKEVOLD JAN HARALD 081268 SAFIRVEIEN 42 4070 RANDABERG 597983 STUDENT B0E ENDRE MADSGAAR 210970 25 506 FJELLFRUESVINGEN 8 4070 RANDABERG 599042 STUDENT STIAN ANGELL 300669 45 967 OPALVEIEN 3 4070 62 RANDABERG 597844 STUDENT OLSEN STIAN ANGELL 300669 45 967 OPALVEIEN 3 4070 62 RANDABERG 597844 STUDENT FROM FROM WIX0E STIAN TUNGE 181070 38 112 BERYLLVEIEN 2 4070 RANDABERG 598274 STUDENT FROM FROM FROM 4)="COPY" THEN 6000 4350 IF MID$ (E$,B,4)="CLOS" THEN 8000 4370 IF MID$ (E$,B,3)="DIR" THEN 9000 4380 IF MID$ (E$,B,4)="DRIV" THEN 11000 4390 IF MID$ (E$,B,4)="DSKI" THEN 12000 4410 IF MID$ (E$,B,3)="ERR" THEN 13000 4420 IF MID$ (E$,B,3)="ERL" THEN 13000 4460 IF MID$ (E$,B,4)="FREE" THEN 15000 4470 IF MID$ (E$,B,4)="FRE$" THEN 16000 4490 IF MID$ (E$,B,4)="HIME" THEN 17000 4500 IF MID$ (E$,B,4)="KILL" THEN 18000 4530 IF MID$ (E$,B,3)="LOF" THEN 20000 4550 IF MID$ (E$,B,4)="PROT" THEN 21000 4560 IF MID$ (E$,B,4)="RENA" THEN 7000 4620 IF MID$ (E$,B,4)="VERI" THEN 24000 4640 NEXT B 4650 GO TO 10000 5000 Q=96 5210 A$="CLOSE": GO SUB 630 5220 Q=128 5230 A$="COPY": GO SUB 630 5260 Q=160 5270 A$="DIR": GO SUB 630 5280 Q=192 5290 A$="DRIVE": GO SUB 630 5300 Q=224 5310 A$="DSKINIT": GO SUB 630 5340 Q=109 5350 A$="ERL": GO SUB 630 5360 Q=141 5370 A$="ERR": GO SUB 630 5380 Q=173 5450 A$="FREE": GO SUB 630 5460 Q=205 5470 A$="FRE$": GO SUB 630 5480 Q=237 5500 A$="HIMEM": GO SUB 630 5510 Q=119 5520 A$="KILL": GO SUB 630 5610 Q=151 5620 A$="LOF": GO SUB 630 5630 Q=183 5660 A$="PROTECT": GO SUB 630 5670 Q=215 5680 A$="RENAME": GO SUB 630 5710 Q=247 5800 A$="VERIFY": GO SUB 630 5850 GO TO 4060 6000 :'kopiere filer 6010 E$="":N$="":O$="" 6020 Q=384 6030 A$="SOURCE FILE" 6040 GO SUB 630 6050 Q=416 6060 GO SUB 220 6070 IF ID$(1)= CHR$ (13) OR ID$(1)= CHR$ (32) THEN 6060 6080 IF P<1 OR P>8 THEN 6060 6090 FOR A=1 TO 8 6100 IF ID$(A)= CHR$ (32) THEN 6200 6105 IF ID$(A)= CHR$ (13) THEN 6200 6110 E$=E$+ID$(A) 6120 NEXT A 6200 O$=E$+".DAT" 6201 E$="" 6210 Q=384 6220 A$="DESTINATION FILE" 6230 GO SUB 630 6240 Q=416 6250 GO SUB 220 6260 IF ID$(1)= CHR$ (13) OR ID$(1)= CHR$ (32) THEN 6250 6270 IF P<1 OR P>8 THEN 6250 6280 FOR A=1 TO 8 6285 IF ID$(A)= CHR$ (13) THEN 6500 6290 IF ID$(A)= CHR$ (32) THEN 6500 6300 E$=E$+ID$(A) 6310 NEXT A 6500 N$=E$+".DAT" 6501 E$="" 6510 Q=384 6520 A$="FROM DRIVE" 6530 GO SUB 630 6540 D1$= INKEY$ : IF D1$="" THEN 6540 6550 D1= VAL (D1$) 6560 IF D1<1 OR D1>4 THEN 6540 6570 PRINT @395,D1 6575 BEEP 6580 Q=397 6590 A$="TO DRIVE" 6600 GO SUB 630 6610 D2$= INKEY$ : IF D2$="" THEN 6610 6620 D2= VAL (D2$) 6630 IF D2<1 OR D2>4 THEN 6610 6640 PRINT @406,D2 6645 BEEP 6650 IF D1=1 AND D2=1 THEN COPY O$ TO N$ 6660 IF D1=1 AND D2=2 THEN COPY "1:"+O$ TO "2:"+N$ 6670 IF D1=1 AND D2=3 THEN COPY "1:"+O$ TO "3:"+N$ 6680 IF D1=1 AND D2=4 THEN COPY "1:"+O$ TO "4:"+N$ 6690 IF D1=2 AND D2=1 THEN COPY "2:"+O$ TO "1:"+N$ 6700 IF D1=2 AND D2=2 THEN COPY "2:"+O$ TO "2:"+N$ 6710 IF D1=2 AND D2=3 THEN COPY "2:"+O$ TO "3:"+N$ 6720 IF D1=2 AND D2=4 THEN COPY "2:"+O$ TO "4:"+N$ 6730 IF D1=3 AND D2=1 THEN COPY "3:"+O$ TO "1:"+N$ 6740 IF D1=3 AND D2=2 THEN COPY "3:"+O$ TO "2:"+N$ 6750 IF D1=3 AND D2=3 THEN COPY "3:"+O$ TO "3:"+N$ 6760 IF D1=3 AND D2=4 THEN COPY "3:"+O$ TO "4:"+N$ 6770 IF D1=4 AND D2=1 THEN COPY "4:"+O$ TO "1:"+N$ 6780 IF D1=4 AND D2=2 THEN COPY "4:"+O$ TO "2:"+N$ 6790 IF D1=4 AND D2=3 THEN COPY "4:"+O$ TO "3:"+N$ 6800 IF D1=4 AND D2=4 THEN COPY "4:"+O$ TO "4:"+N$ 6999 GO TO 4060 7000 :'rename filer 7001 O$="":N$="" 7002 E$="" 7010 Q=384 7020 A$="OLD FILE" 7030 GO SUB 630 7040 Q=416 7060 GO SUB 30000 7100 O$=E$ 7110 E$="" 7120 Q=384 7130 A$="NEW NAME" 7140 GO SUB 630 7150 Q=416 7160 GO SUB 30000 7200 N$=E$ 7210 E$="" 7220 Q=384 7230 A$="DRIVE NO." 7240 GO SUB 630 7250 D$= INKEY$ : IF D$="" THEN 7250 7260 D= VAL (D$) 7270 IF D<1 OR D>4 THEN 7250 7330 IF O$=N$ THEN 7900 7370 IF D=1 THEN RENAME "1:"+O$+".DAT" TO N$+".DAT" 7371 IF D=2 THEN RENAME "2:"+O$+".DAT" TO N$+".DAT" 7372 IF D=3 THEN RENAME "3:"+O$+".DAT" TO N$+".DAT" 7373 IF D=4 THEN RENAME "4:"+O$+".DAT" TO N$+".DAT" 7380 GO TO 4060 7900 A$="FILE '"+N$+"' NOT AVAILABLE" 7910 Q=384 7920 GO SUB 630 7930 GO TO 4060 8000 :'close disks 8005 Q=384 8010 A$="CLOSED" 8020 GO SUB 630 8030 CLOSE 8035 WAIT 2500 8040 GO TO 4060 9000 :'directory 9010 PRINT @96,"": PRINT : PRINT : PRINT : PRINT : PRINT : PRINT 9015 PRINT @96,"" 9016 Q=96 9020 FOR A=0 TO X 9030 A$=DI$(A) 9040 GO SUB 630 9050 Q=Q+32- LEN (DI$(A)) 9060 IF Q=320 THEN Q=106 9070 IF Q=330 THEN Q=116 9080 IF Q=340 THEN GO SUB 9500 9090 NEXT A 9100 GO TO 4060 9500 Q=384 9510 A$="HIT ANY KEY" 9520 GO SUB 630 9530 INK$= INKEY$ : IF INK$="" THEN 9530 9540 Q=96: RETURN 10000 :'commands not available 10010 FOR M=1 TO 5 10020 PRINT @384,"COMMAND NOT AVAILABLE" 10030 BEEP 10040 WAIT 250 10050 PRINT @384,"command not available" 10060 BEEP 10070 WAIT 250 10080 NEXT M 10090 GO TO 4060 11000 :'drive number 11010 Q=384 11020 A$="OLD DRIVE NUMBER" 11030 GO SUB 630 11035 A$= STR$ (DN) 11036 GO SUB 630 11037 Q=416 11038 A$="ENTER DRIVE NO." 11039 GO SUB 630 11040 INK$= INKEY$ : IF INK$="" THEN 11040 11050 DN= VAL (INK$) 11060 IF DN<1 OR DN>4 THEN 11040 11070 GO TO 4060 12000 :'format a diskette 12010 Q=384 12020 A$="FORMAT" 12030 GO SUB 630 12060 A$= STR$ (DN) 12070 GO SUB 630 12080 A$=" " 12090 GO SUB 630 12100 INK$= INKEY$ : IF INK$="" THEN 12100 12110 IF INK$="Y" THEN 12140 12120 IF INK$="N" THEN 4060 12130 GO TO 12100 12140 Q=384 12150 A$="INSERT DISKETTE TO BE FORMATTED" 12160 GO SUB 630 12170 Q=416 12180 A$="AND PRESS A KEY" 12190 GO SUB 630 12200 INK$= INKEY$ : IF INK$="" THEN 12200 12210 DSKINIT DN 12220 GO TO 4060 13000 :'error utskrift 13010 Q=384 13020 IF ERR <1 THEN A$="NO ERROR MESSAGES" : ELSE 13040 13030 GO SUB 630 13035 GO TO 4060 13040 A$="ERROR" 13050 GO SUB 630 13060 A$= STR$ ( ERR ) 13070 GO SUB 630 13080 A$=" IN LINE" 13090 GO SUB 630 13100 A$= STR$ ( ERL ) 13110 GO SUB 630 13120 INK$= INKEY$ : IF INK$="" THEN 13120 13130 GO TO 4060 15000 :'free 15010 Q=384 15020 X= FREE DN 15030 A$="USED:" 15040 GO SUB 630 15045 Y=175104 15050 FR=Y-X 15060 A$= STR$ (FR) 15070 GO SUB 630 15080 A$=" LEFT:" 15090 GO SUB 630 15100 A$= STR$ (X) 15110 GO SUB 630 15120 INK$= INKEY$ : IF INK$="" THEN 15120 15130 GO TO 4060 16000 :'fre$ 16010 Q=384 16020 A$="USED:" 16030 GO SUB 630 16040 X= FRE$ 16050 FR=1000-X 16060 A$= STR$ (FR) 16070 GO SUB 630 16080 A$=" FREE" 16090 GO SUB 630 16100 A$= STR$ (X) 16110 GO SUB 630 16120 INK$= INKEY$ : IF INK$="" THEN 16120 16130 GO TO 4060 17000 :'himem 17010 Q=384 17015 A$="HIMEM=" 17016 GO SUB 630 17020 A$= STR$ ( HIMEM ) 17030 GO SUB 630 17040 GO TO 16120 18000 :'slette filer 18005 S$="":E$="" 18010 Q=384 18020 A$="KILL FILE:" 18030 GO SUB 630 18035 Q=416 18040 GO SUB 30000 18050 FOR A=0 TO X 18060 IF E$=DI$(A) THEN 18112 18070 NEXT A 18080 Q=384 18090 A$="FILE NOT EXIST" 18091 GO SUB 630 18100 WAIT 2000 18110 GO TO 4060 18112 S$=E$+".DAT":E$="" 18113 DI$(A)="" 18114 GO SUB 40000 18120 IF DN=1 THEN KILL "1:"+S$ 18121 IF DN=2 THEN KILL "2:"+S$ 18122 IF DN=3 THEN KILL "3:"+S$ 18123 IF DN=4 THEN KILL "4:"+S$ 18130 GO TO 4060 20000 :'lof 20005 S$="":E$="" 20010 Q=384 20020 A$="WHICH FILE" 20030 GO SUB 630 20035 Q=416 20040 GO SUB 30000 20100 S$=E$+".DAT" 20110 E$="" 20115 X=0 20120 IF DN=1 THEN X= LOF "1:"+S$ 20121 IF DN=2 THEN X= LOF "2:"+S$ 20122 IF DN=3 THEN X= LOF "3:"+S$ 20123 IF DN=4 THEN X= LOF "4:"+S$ 20130 IF X<0 THEN X=X*-1 20131 A$="="+ STR$ (X) 20132 Q=416+ LEN (S$)-3 20140 GO SUB 630 20150 INK$= INKEY$ : IF INK$="" THEN 20150 20160 GO TO 4060 21000 :'protect files 21005 E$="" 21010 Q=384 21020 A$="PROTECT " 21030 GO SUB 630 21035 Q=416 21040 GO SUB 30000 21100 IF E$="ON" OR E$="OFF" THEN S1$=E$:E$="": GO TO 21120 21105 E$="": GO TO 21040 21120 Q=384:A$="WHICH FILE" 21130 GO SUB 630 21135 Q=416 21140 GO SUB 30000 21190 S$=E$+".DAT" 21200 E$="" 21205 IF S1$="OFF" THEN 21220 21210 IF S1$="ON" THEN 21500 21220 IF DN=1 THEN PROTECT OFF "1:"+S$ 21230 IF DN=2 THEN PROTECT OFF "2:"+S$ 21240 IF DN=3 THEN PROTECT OFF "3:"+S$ 21250 IF DN=4 THEN PROTECT OFF "4:"+S$ 21251 CLOSE 21260 GO TO 4060 21500 IF DN=1 THEN PROTECT ON "1:"+S$ 21510 IF DN=2 THEN PROTECT ON "2:"+S$ 21520 IF DN=3 THEN PROTECT ON "3:"+S$ 21530 IF DN=4 THEN PROTECT ON "4:"+S$ 21531 CLOSE 21540 GO TO 4060 24000 :'verify 24010 Q=384 24020 A$="VERIFY " 24030 GO SUB 630 24035 Q=416 24040 GO SUB 220 24050 IF ID$(2)="N" THEN VERIFY ON : GO TO 4060 24060 IF ID$(2)="F" THEN VERIFY OFF : GO TO 4060 24070 GO TO 24035 30000 :'which file 30030 Q=416 30040 GO SUB 220 30050 IF P<2 OR P>9 THEN 30040 30055 FOR A=1 TO P 30060 IF ID$(A)= CHR$ (32) OR ID$(A)= CHR$ (13) THEN 30100 30070 E$=E$+ID$(A) 30080 NEXT A 30100 RETURN 40000 :'kill file dir 40001 IDEN$="DIRECTOR" 40010 KILL "DIRECTOR.DAT" 40020 FOR A=0 TO X-1 40030 IF DI$(A)="" THEN 40100 40040 FWRITE "DIRECTOR";DI$(A) 40100 NEXT A 40110 Q= LOF ("DIRECTOR") 40120 IF Q<>0 THEN RETURN 40130 GO TO 40020 REM REM line numbering breaks here! REM FROM TAKSRUD LENA ????79 ?? ??? TOPASKROKEN 16 4070 RANDABERG (04) 598841 ELEV KSRUD ASKEVOLD DYSKELAN PETERSEN FTAKSRUD DEF (E$,B,4)="DSKI" THEN 12000 4410 IF MID$ (E$,B,3)="ERR" THEN 13000 4420 IF MID$ (E$,B,3)="ERL" THEN 13000 4460 IF MID$ (E$,B,4)="FREE" THEN 15000 4470 IF MID$ (E$,B,4)="FRE$" THEN 16000 4490 IF MID$ (E$,B,4)="HIME" THEN 17000 4500 IF MID$ (E$,B,4)="KILL" THEN 18000 4530 IF MID$ (E$,B,3)="LOF" THEN 20000 4550 IF MID$ (E$,B,4)="PROT" THEN 21000 4560 IF MID$ (E$,B,4)="RENA" THEN 7000 4620 IF MID$ (E$,B,4)="VERI" THEN 24000 4640 NEXT B 4650 GO TO 10000 5000 Q=96 5210 A$="CLOSE": GO SUB 630 5220 Q=128 5230 A$="COPY": GO SUB 630 5260 Q=160 5270 A$="DIR": GO SUB 630 5280 Q=192 5290 A$="DRIVE": GO SUB 630 5300 Q=224 5310 A$="DSKINIT": GO SUB 630 5340 Q=109 5350 A$="ERL": GO SUB 630 5360 Q=141 5370 A$="ERR": GO SUB 630 5380 Q=173 5450 A$="FREE": GO SUB 630 5460 Q=205 5470 A$="FRE$": GO SUB 630 5480 Q=237 5500 A$="HIMEM": GO SUB 630 5510 Q=119 5520 A$="KILL": GO SUB 630 5610 Q=151 5620 A$="LOF": GO SUB 630 5630 Q=183 5660 A$="PROTECT": GO SUB 630 5670 Q=215 5680 A$="RENAME": GO SUB 630 5710 Q=247 5800 A$="VERIFY": GO SUB 630 5850 GO TO 4060 6000 :'kopiere filer 6010 E$="":N$="":O$="" 6020 Q=384 6030 A$="SOURCE FILE" 6040 GO SUB 630 6050 Q=416 6060 GO SUB 220 6070 IF ID$(1)= CHR$ (13) OR ID$(1)= CHR$ (32) THEN 6060 6080 IF P<1 OR P>8 THEN 6060 6090 FOR A=1 TO 8 6100 IF ID$(A)= CHR$ (32) THEN 6200 6105 IF ID$(A)= CHR$ (13) THEN 6200 6110 E$=E$+ID$(A) 6120 NEXT A 6200 O$=E$+".DAT" 6201 E$="" 6210 Q=384 6220 A$="DESTINATION FILE" 6230 GO SUB 630 6240 Q=416 6250 GO SUB 220 6260 IF ID$(1)= CHR$ (13) OR ID$(1)= CHR$ (32) THEN 6250 6270 IF P<1 OR P>8 THEN 6250 6280 FOR A=1 TO 8 6285 IF ID$(A)= CHR$ (13) THEN 6500 6290 IF ID$(A)= CHR$ (32) THEN 6500 6300 E$=E$+ID$(A) 6310 NEXT A 6500 N$=E$+".DAT" 6501 E$="" 6510 Q=384 6520 A$="FROM DRIVE" 6530 GO SUB 630 6540 D1$= INKEY$ : IF D1$="" THEN 6540 6550 D1= VAL (D1$) 6560 IF D1<1 OR D1>4 THEN 6540 6570 PRINT @395,D1 6575 BEEP 6580 Q=397 6590 A$="TO DRIVE" 6600 GO SUB 630 6610 D2$= INKEY$ : IF D2$="" THEN 6610 6620 D2= VAL (D2$) 6630 IF D2<1 OR D2>4 THEN 6610 6640 PRINT @406,D2 6645 BEEP 6650 IF D1=1 AND D2=1 THEN COPY O$ TO N$ 6660 IF D1=1 AND D2=2 THEN COPY "1:"+O$ TO "2:"+N$ 6670 IF D1=1 AND D2=3 THEN COPY "1:"+O$ TO "3:"+N$ 6680 IF D1=1 AND D2=4 THEN COPY "1:"+O$ TO "4:"+N$ 6690 IF D1=2 AND D2=1 THEN COPY "2:"+O$ TO "1:"+N$ 6700 IF D1=2 AND D2=2 THEN COPY "2:"+O$ TO "2:"+N$ 6710 IF D1=2 AND D2=3 THEN COPY "2:"+O$ TO "3:"+N$ 6720 IF D1=2 AND D2=4 THEN COPY "2:"+O$ TO "4:"+N$ 6730 IF D1=3 AND D2=1 THEN COPY "3:"+O$ TO "1:"+N$ 6740 IF D1=3 AND D2=2 THEN COPY "3:"+O$ TO "2:"+N$ 6750 IF D1=3 AND D2=3 THEN COPY "3:"+O$ TO "3:"+N$ 6760 IF D1=3 AND D2=4 THEN COPY "3:"+O$ TO "4:"+N$ 6770 IF D1=4 AND D2=1 THEN COPY "4:"+O$ TO "1:"+N$ 6780 IF D1=4 AND D2=2 THEN COPY "4:"+O$ TO "2:"+N$ 6790 IF D1=4 AND D2=3 THEN COPY "4:"+O$ TO "3:"+N$ 6800 IF D1=4 AND D2=4 THEN COPY "4:"+O$ TO "4:"+N$ 6999 GO TO 4060 7000 :'rename filer 7001 O$="":N$="" 7002 E$="" 7010 Q=384 7020 A$="OLD FILE" 7030 GO SUB 630 7040 Q=416 7060 GO SUB 30000 7100 O$=E$ 7110 E$="" 7120 Q=384 7130 A$="NEW NAME" 7140 GO SUB 630 7150 Q=416 7160 GO SUB 30000 7200 N$=E$ 7210 E$="" 7220 Q=384 7230 A$="DRIVE NO." 7240 GO SUB 630 7250 D$= INKEY$ : IF D$="" THEN 7250 7260 D= VAL (D$) 7270 IF D<1 OR D>4 THEN 7250 7330 IF O$=N$ THEN 7900 7370 IF D=1 THEN RENAME "1:"+O$+".DAT" TO N$+".DAT" 7371 IF D=2 THEN RENAME "2:"+O$+".DAT" TO N$+".DAT" 7372 IF D=3 THEN RENAME "3:"+O$+".DAT" TO N$+".DAT" 7373 IF D=4 THEN RENAME "4:"+O$+".DAT" TO N$+".DAT" 7380 GO TO 4060 7900 A$="FILE '"+N$+"' NOT AVAILABLE" 7910 Q=384 7920 GO SUB 630 7930 GO TO 4060 8000 :'close disks 8005 Q=384 8010 A$="CLOSED" 8020 GO SUB 630 8030 CLOSE 8035 WAIT 2500 8040 GO TO 4060 9000 :'directory 9010 PRINT @96,"": PRINT : PRINT : PRINT : PRINT : PRINT : PRINT 9015 PRINT @96,"" 9016 Q=96 9020 FOR A=0 TO X 9030 A$=DI$(A) 9040 GO SUB 630 9050 Q=Q+32- LEN (DI$(A)) 9060 IF Q=320 THEN Q=106 9070 IF Q=330 THEN Q=116 9080 IF Q=340 THEN GO SUB 9500 9090 NEXT A 9100 GO TO 4060 9500 Q=384 9510 A$="HIT ANY KEY" 9520 GO SUB 630 9530 INK$= INKEY$ : IF INK$="" THEN 9530 9540 Q=96: RETURN 10000 :'commands not available 10010 FOR M=1 TO 5 10020 PRINT @384,"COMMAND NOT AVAILABLE" 10030 BEEP 10040 WAIT 250 10050 PRINT @384,"command not available" 10060 BEEP 10070 WAIT 250 10080 NEXT M 10090 GO TO 4060 11000 :'drive number 11010 Q=384 11020 A$="OLD DRIVE NUMBER" 11030 GO SUB 630 11035 A$= STR$ (DN) 11036 GO SUB 630 11037 Q=416 11038 A$="ENTER DRIVE NO." 11039 GO SUB 630 11040 INK$= INKEY$ : IF INK$="" THEN 11040 11050 DN= VAL (INK$) 11060 IF DN<1 OR DN>4 THEN 11040 11070 GO TO 4060 12000 :'format a diskette 12010 Q=384 12020 A$="FORMAT" 12030 GO SUB 630 12060 A$= STR$ (DN) 12070 GO SUB 630 12080 A$=" " 12090 GO SUB 630 12100 INK$= INKEY$ : IF INK$="" THEN 12100 12110 IF INK$="Y" THEN 12140 12120 IF INK$="N" THEN 4060 12130 GO TO 12100 12140 Q=384 12150 A$="INSERT DISKETTE TO BE FORMATTED" 12160 GO SUB 630 12170 Q=416 12180 A$="AND PRESS A KEY" 12190 GO SUB 630 12200 INK$= INKEY$ : IF INK$="" THEN 12200 12210 DSKINIT DN 12220 GO TO 4060 13000 :'error utskrift 13010 Q=384 13020 IF ERR <1 THEN A$="NO ERROR MESSAGES" : ELSE 13040 13030 GO SUB 630 13035 GO TO 4060 13040 A$="ERROR" 13050 GO SUB 630 13060 A$= STR$ ( ERR ) 13070 GO SUB 630 13080 A$=" IN LINE" 13090 GO SUB 630 13100 A$= STR$ ( ERL ) 13110 GO SUB 630 13120 INK$= INKEY$ : IF INK$="" THEN 13120 13130 GO TO 4060 15000 :'free 15010 Q=384 15020 X= FREE DN 15030 A$="USED:" 15040 GO SUB 630 15045 Y=175104 15050 FR=Y-X 15060 A$= STR$ (FR) 15070 GO SUB 630 15080 A$=" LEFT:" 15090 GO SUB 630 15100 A$= STR$ (X) 15110 GO SUB 630 15120 INK$= INKEY$ : IF INK$="" THEN 15120 15130 GO TO 4060 16000 :'fre$ 16010 Q=384 16020 A$="USED:" 16030 GO SUB 630 16040 X= FRE$ 16050 FR=1000-X 16060 A$= STR$ (FR) 16070 GO SUB 630 16080 A$=" FREE" 16090 GO SUB 630 16100 A$= STR$ (X) 16110 GO SUB 630 16120 INK$= INKEY$ : IF INK$="" THEN 16120 16130 GO TO 4060 17000 :'himem 17010 Q=384 17015 A$="HIMEM=" 17016 GO SUB 630 17020 A$= STR$ ( HIMEM ) 17030 GO SUB 630 17040 GO TO 16120 18000 :'slette filer 18005 S$="":E$="" 18010 Q=384 18020 A$="KILL FILE:" 18030 GO SUB 630 18035 Q=416 18040 GO SUB 30000 18050 FOR A=0 TO X 18060 IF E$=DI$(A) THEN 18112 18070 NEXT A 18080 Q=384 18090 A$="FILE NOT EXIST" 18091 GO SUB 630 18100 WAIT 2000 18110 GO TO 4060 18112 S$=E$+".DAT":E$="" 18113 DI$(A)="" 18114 GO SUB 40000 18120 IF DN=1 THEN KILL "1:"+S$ 18121 IF DN=2 THEN KILL "2:"+S$ 18122 IF DN=3 THEN KILL "3:"+S$ 18123 IF DN=4 THEN KILL "4:"+S$ 18130 GO TO 4060 20000 :'lof 20005 S$="":E$="" 20010 Q=384 20020 A$="WHICH FILE" 20030 GO SUB 630 20035 Q=416 20040 GO SUB 30000 20100 S$=E$+".DAT" 20110 E$="" 20115 X=0 20120 IF DN=1 THEN X= LOF "1:"+S$ 20121 IF DN=2 THEN X= LOF "2:"+S$ 20122 IF DN=3 THEN X= LOF "3:"+S$ 20123 IF DN=4 THEN X= LOF "4:"+S$ 20130 IF X<0 THEN X=X*-1 20131 A$="="+ STR$ (X) 20132 Q=416+ LEN (S$)-3 20140 GO SUB 630 20150 INK$= INKEY$ : IF INK$="" THEN 20150 20160 GO TO 4060 21000 :'protect files 21005 E$="" 21010 Q=384 21020 A$="PROTECT " 21030 GO SUB 630 21035 Q=416 21040 GO SUB 30000 21100 IF E$="ON" OR E$="OFF" THEN S1$=E$:E$="": GO TO 21120 21105 E$="": GO TO 21040 21120 Q=384:A$="WHICH FILE" 21130 GO SUB 630 21135 Q=416 21140 GO SUB 30000 21190 S$=E$+".DAT" 21200 E$="" 21205 IF S1$="OFF" THEN 21220 21210 IF S1$="ON" THEN 21500 21220 IF DN=1 THEN PROTECT OFF "1:"+S$ 21230 IF DN=2 THEN PROTECT OFF "2:"+S$ 21240 IF DN=3 THEN PROTECT OFF "3:"+S$ 21250 IF DN=4 THEN PROTECT OFF "4:"+S$ 21251 CLOSE 21260 GO TO 4060 21500 IF DN=1 THEN PROTECT ON "1:"+S$ 21510 IF DN=2 THEN PROTECT ON "2:"+S$ 21520 IF DN=3 THEN PROTECT ON "3:"+S$ 21530 IF DN=4 THEN PROTECT ON "4:"+S$ 21531 CLOSE 21540 GO TO 4060 24000 :'verify 24010 Q=384 24020 A$="VERIFY " 24030 GO SUB 630 24035 Q=416 24040 GO SUB 220 24050 IF ID$(2)="N" THEN VERIFY ON : GO TO 4060 24060 IF ID$(2)="F" THEN VERIFY OFF : GO TO 4060 24070 GO TO 24035 30000 :'which file 30030 Q=416 30040 GO SUB 220 30050 IF P<2 OR P>9 THEN 30040 30055 FOR A=1 TO P 30060 IF ID$(A)= CHR$ (32) OR ID$(A)= CHR$ (13) THEN 30100 30070 E$=E$+ID$(A) 30080 NEXT A 30100 RETURN 40000 :'kill file dir 40001 IDEN$="DIRECTOR" 40010 KILL "DIRECTOR.DAT" 40020 FOR A=0 TO X-1 40030 IF DI$(A)="" THEN 40100 40040 FWRITE "DIRECTOR";DI$(A) 40100 NEXT A 40110 Q= LOF ("DIRECTOR") 40120 IF Q<>0 THEN RETURN 40130 GO TO 40020 REM REM line numbering breaks here! REM FROM ($fe)($FFFF)($FFEF)($fe)($FFFF)($FFEF)($fe)($FFFF)($FFEF) 64751 65295 REM REM line numbering breaks here! REM ($fc)($FFEF)($FFFF)($fb) ( DSKINIT ($ed) TICS D$ FREAD  k LENA DAT ($fc) K WIX0E DAT PUT  M B0E DAT RESTORE  S ASKEVOLDDAT l H MORTEN DAT H K DYSKELANDAT $ J PETERSENDAT  L GO TEST BASz 245 REM REM line numbering breaks here! REM FRODE DAT OFF  L DIRECTORDAT DIM  7 GO DIRECTORDAT FLREAD  w GO SAHCFDSFDAT OFF  77 GO SDKSFGD REM REM line numbering breaks here! REM DAT CREATE  M GO SAD DAT FLREAD  CSAVE INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT 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: $3d62 Exec: $8b8d * REM *(Start: 09217 Length: 15714 Exec: 35725) * REM ************************************************* REM 0 CLEAR 1000:IDEN$="BEGIN": DIM DI$(255),X(100): ERROR GO TO 2910 1 FREAD "DIRECTOR";DI$(X) 2 IF EOF ("DIRECTOR")=1 THEN 10 3 X=X+1 4 GO TO 1 10 CLOSE : VERIFY ON 20 :'this is the total information computer system 40 POKE 65495,0 50 DIM ID$(30) 60 DIM P$(100),C(100) 70 DIM C$(100),P(30) 75 DN=1 80 CLS 90 Q=1 100 E$="" 110 IDEN$="START" 120 A$="THIS IS THE TOTAL INFORMATION" 130 GO SUB 640 140 Q=36 150 A$="COMPUTER SYSTEM (TICS)." 160 GO SUB 640 170 Q=96 180 A$="GIVE ME YOUR IDENTIFICATION" 190 GO SUB 640 200 Q=128: GO SUB 240 210 PRINT @128, STRING$ (32," "): GO TO 360 220 :'innmatingsprosedyre 230 IF QQ=3 THEN P=0: FOR P=1 TO 22: GO TO 250 240 FOR P=1 TO 31 250 PRINT @Q+P-1, CHR$ (128) 260 ID$(P)= INKEY$ : IF ID$(P)="" THEN 260 270 BEEP 280 IF ID$(P)= CHR$ (21) THEN PRINT @Q-1+P,"": GO TO 240 290 IF ID$(P)= CHR$ (8) THEN P=P-1: IF P=<0 THEN P=0 : ELSE PRINT @Q+P-1," ": GO TO 250 300 IF ID$(P)= CHR$ (13) THEN PRINT @Q+P-1,"": RETURN 310 IF QQ=3 AND P=22 AND ID$(P)<> CHR$ (13) THEN 260 320 IF P=31 AND ID$(P)<> CHR$ (13) THEN 260 330 PRINT @Q-1+P,ID$(P) 340 NEXT P 350 RETURN 360 :'menyvelger 370 Q=96 380 E$="" 390 A$="WHAT CAN I DO FOR YOU" 400 GO SUB 640 410 PRINT @128,"":Q=128: GO SUB 240 420 FOR A=0 TO P 430 E$=E$+ID$(A) 440 IF ID$(1)= CHR$ (13) THEN 410 450 NEXT A 460 FOR B=1 TO P+1 470 IF MID$ (E$,B,4)="BACK" THEN 80 480 IF MID$ (E$,B,4)="RETU" THEN 80 490 IF MID$ (E$,B,4)="STAR" THEN 80 500 IF MID$ (E$,B,4)="REST" THEN 80 510 IF MID$ (E$,B,4)="PERS" THEN 720 520 IF MID$ (E$,B,4)="HELP" THEN 3620 521 IF MID$ (E$,B,4)="DISK" THEN 4000 522 IF MID$ (E$,B,4)="DISC" THEN 4000 523 IF MID$ (E$,B,4)="FLOP" THEN 4000 524 IF MID$ (E$,B,4)="DRIV" THEN 4000 525 IF MID$ (E$,B,4)="STAS" THEN 4000 530 NEXT 540 FOR M=1 TO 5 550 PRINT @96,"COMMAND NOT AVAILABLE" 560 BEEP 570 WAIT 250 580 PRINT @96,"command not available" 590 BEEP 600 WAIT 250 610 NEXT M 620 GO TO 360 630 :'utskriftsprosedyre 640 FOR B=1 TO LEN (A$) 650 PRINT @Q, MID$ (A$,B,1); 660 Q=Q+1 670 PRINT @Q, CHR$ (128) 680 BEEP 690 NEXT B 700 PRINT @Q, CHR$ (32) 710 RETURN 720 :'person register 730 IDEN$="PERS" 740 CLS 760 Q=12 770 A$="T.I.C.S." 780 GO SUB 640 790 Q=64 800 A$="NAME" 810 GO SUB 640 820 Q=96 830 A$="ID NO." 840 GO SUB 640 850 Q=128 860 A$="ADRESS" 870 GO SUB 640 880 Q=160 890 A$="PO.NO." 900 GO SUB 640 910 Q=192 920 A$="PO.BOX" 930 GO SUB 640 940 Q=224 950 A$="PO.ADR." 960 GO SUB 640 970 Q=256 980 A$="PHONE" 990 GO SUB 640 1000 Q=288 1010 A$="TITLE" 1020 GO SUB 640 1030 Q=71 1040 FOR B=1 TO 8 1050 PRINT @Q,":"; 1060 PRINT @Q+1, CHR$ (128); 1070 BEEP 1080 PRINT @Q+1, CHR$ (32); 1090 Q=Q+32 1100 NEXT B 1110 Q=384: PRINT @0, FRE$ ; 1120 E$="" 1130 A$="ENTER COMMAND" 1140 GO SUB 640 1150 Q=416 1160 GO SUB 240 1170 FOR A=0 TO P 1180 E$=E$+ID$(A) 1190 IF MID$ (E$,1,1)= CHR$ (13) THEN 1110 1200 IF MID$ (E$,1,1)= CHR$ (36) THEN 3560 1210 NEXT A 1220 IF E$="$" THEN GO TO 3560 1230 FOR B=1 TO P+1 1240 IF MID$ (E$,B,4)="TILB" THEN GO TO 80 1250 IF MID$ (E$,B,4)="MAIN" THEN GO TO 80 1260 IF MID$ (E$,B,4)="MENU" THEN GO TO 80 1270 IF MID$ (E$,B,4)="MENY" THEN GO TO 80 1280 IF MID$ (E$,B,4)="RETU" THEN GO TO 80 1290 IF MID$ (E$,B,4)="BACK" THEN GO TO 80 1300 IF MID$ (E$,B,4)="LIST" THEN 1740 1310 IF MID$ (E$,B,4)="LESE" THEN 1740 1320 IF MID$ (E$,B,4)="READ" THEN 1840 1330 IF MID$ (E$,B,4)="LOAD" THEN 1840 1340 IF MID$ (E$,B,4)="SAVE" THEN 2520 1350 IF MID$ (E$,B,4)="CREA" THEN 2790 1360 IF MID$ (E$,B,4)="LAG " THEN 2790 1370 IF MID$ (E$,B,4)="STOR" THEN 2520 1380 IF MID$ (E$,B,4)="DUMP" THEN 2520 1390 IF MID$ (E$,B,4)="MAKE" THEN 2790 1400 IF MID$ (E$,B,4)="FORA" THEN 1940 1410 IF MID$ (E$,B,4)="REPA" THEN 1940 1420 IF MID$ (E$,B,4)="CHAN" THEN 1940 1430 IF MID$ (E$,B,4)="EDIT" THEN 1940 1440 IF MID$ (E$,B,4)="SKIF" THEN 1940 1450 IF MID$ (E$,B,4)="REPR" THEN 1940 1460 IF MID$ (E$,B,4)="BYTT" THEN 2260 1470 IF MID$ (E$,B,4)="REPL" THEN 2260 1480 IF MID$ (E$,B,4)="SWAP" THEN 2260 1490 IF MID$ (E$,B,4)="REMO" THEN 2260 1500 IF MID$ (E$,B,4)="OMPL" THEN 2260 1510 IF MID$ (E$,B,4)="OMOR" THEN 2260 1520 IF MID$ (E$,B,4)="FLYT" THEN 2260 1530 IF MID$ (E$,B,4)="LAGR" THEN 2520 1540 IF MID$ (E$,B,4)="SLET" THEN 2630 1550 IF MID$ (E$,B,4)="KILL" THEN 2630 1560 IF MID$ (E$,B,4)="ERAS" THEN 2630 1570 IF MID$ (E$,B,4)="DELE" THEN 2630 1580 IF MID$ (E$,B,4)="DEL " THEN 2630 1590 IF MID$ (E$,B,4)="CLEA" THEN 2630 1600 IF MID$ (E$,B,4)="VISK" THEN 2630 1610 IF MID$ (E$,B,4)="RENS" THEN 2630 1620 IF MID$ (E$,B,4)="REST" THEN 2630 1630 NEXT 1640 FOR T=1 TO 5 1650 BEEP 1660 E$="" 1670 PRINT @384,"COMMAND NOT AVAILABLE!" 1680 WAIT 250 1690 BEEP 1700 PRINT @384,"command"; CHR$ (128);"not"; CHR$ (128);"available": POKE 1429,33 1710 WAIT 250 1720 NEXT T 1730 GO TO 1110 1740 :'lese data 1750 GO SUB 3450 1760 LL=3 1770 Q=73 1780 FOR A=1 TO 8 1790 PRINT @Q,DAT$(A) 1800 Q=Q+32 1810 NEXT A 1820 IF BB=3 THEN BB=0: GO TO 1030 1830 GO TO 1110 1839 :'load data 1840 Q=384:S$="":E$="" 1841 A$="WHICH FILE" 1842 GO SUB 630 1844 GO SUB 30000 1850 SS=3 1855 S$=E$+".DAT" 1860 FOR A=1 TO 8 1870 FREAD S$;DAT$(A) 1880 GO SUB 1910 1890 NEXT A 1900 GO TO 1920 1910 IF EOF (S$)=0 THEN RETURN 1920 CLOSE 1930 GO TO 1740 1940 :'forandre data 1950 QQ=3 1960 Q=0 1970 FOR A=1 TO 8 1980 PRINT @70+Q,A; 1990 BEEP 2000 Q=Q+32 2010 NEXT A 2020 PRINT @416,"" 2030 Q=384 2040 A$="ENTER NUMBER TO CHANGE <1-8>" 2050 GO SUB 630 2060 Q=416 2070 PRINT @Q, CHR$ (128) 2080 A$= INKEY$ : IF A$="" THEN 2080 2090 A= VAL (A$) 2100 IF A<1 OR A>8 THEN 2080 2110 DAT$(A)="" 2120 PRINT @Q, CHR$ (32); 2130 IF A=1 THEN Q=73: PRINT @Q,"": BEEP : GO SUB 240 2140 IF A=2 THEN Q=105: PRINT @Q,"": BEEP : GO SUB 240 2150 IF A=3 THEN Q=137: PRINT @Q,"": BEEP : GO SUB 240 2160 IF A=4 THEN Q=169: PRINT @Q,"": BEEP : GO SUB 240 2170 IF A=5 THEN Q=201: PRINT @Q,"": BEEP : GO SUB 240 2180 IF A=6 THEN Q=233: PRINT @Q,"": BEEP : GO SUB 240 2190 IF A=7 THEN Q=265: PRINT @Q,"": BEEP : GO SUB 240 2200 IF A=8 THEN Q=297: PRINT @Q,"": BEEP : GO SUB 240 2210 FOR W=1 TO P 2220 IF ID$(W)= CHR$ (13) THEN 2250 2230 DAT$(A)=DAT$(A)+ID$(W) 2240 NEXT W 2250 GO TO 1030 2260 :'bytte data 2270 BB=3 2280 GO SUB 3450 2290 Q=70 2300 FOR A=1 TO 8 2310 PRINT @Q,A; 2320 BEEP 2330 Q=Q+32 2340 NEXT A 2350 Q=384 2360 A$="SWAP" 2370 GO SUB 630 2380 A$= INKEY$ : IF A$="" THEN 2380 2390 A= VAL (A$) 2400 IF A<1 OR A>8 THEN 2380 2410 PRINT @389,A 2420 Q=392 2430 A$="WITH" 2440 GO SUB 630 2450 A$= INKEY$ : IF A$="" THEN 2450 2460 B= VAL (A$) 2470 IF B<1 OR B>8 THEN 2450 2480 PRINT @396,B 2490 BEEP 2500 SWAP DAT$(A),DAT$(B) 2510 GO TO 1740 2520 Q=384:E$=""::'lagre data 2521 A$="WHICH FILE" 2522 GO SUB 630 2523 Q=416: GO SUB 30000 2530 GO SUB 3450 2531 S$=E$ 2532 E$="" 2540 WW=3 2560 FOR A=1 TO 8 2570 FWRITE S$;DAT$(A) 2580 NEXT A 2590 CLOSE 2610 X=X+1:DI$(X)=S$ 2611 FWRITE "DIRECTOR";DI$(X) 2612 CLOSE 2620 GO TO 1110 2630 :'slette data 2640 GO SUB 3450 2650 W=1 2660 Q=73 2670 FOR S=Q+ LEN (DAT$(W)) TO Q STEP -1 2680 PRINT @S," "; CHR$ (128); CHR$ (32) 2690 BEEP 2700 NEXT S 2710 PRINT @S, CHR$ (32) 2720 Q=Q+32 2730 W=W+1: IF W=9 THEN 2750 2740 GO TO 2670 2750 FOR Q=1 TO 8 2760 DAT$(Q)="" 2770 NEXT Q 2780 GO TO 1110 2790 :'lage data 2800 QQ=3 2810 L=1 2820 Q=73 2830 GO SUB 230 2840 FOR W=1 TO P 2850 IF ID$(W)= CHR$ (13) THEN 2880 2860 DAT$(L)=DAT$(L)+ID$(W) 2870 NEXT W 2880 L=L+1: IF L=9 THEN 1110 2890 Q=Q+32: GO TO 2830 2900 WAIT 5000 2910 :'error list 2940 Q=384 2941 IF IDEN$="DIRECTOR" AND ERR =160 THEN GO TO 40130 2950 IF ERR =0 THEN A$="error: NEXT WITHOUT FOR": GO SUB 630 2960 IF ERR =2 THEN A$="error: SYNTAX ERROR": GO SUB 630 2970 IF ERR =4 THEN A$="error: RETURN WITHOUT GOSUB": GO SUB 630 2980 IF ERR =6 THEN A$="error: OUT OF DATA IN READ": GO SUB 630 2990 IF ERR =8 THEN A$="error: ILLEGAL FUNCTION ERROR": GO SUB 630 3000 IF ERR =10 THEN A$="error: OVERFLOW": GO SUB 630 3010 IF ERR =12 THEN A$="error: OUT OF MEMORY": GO SUB 630 3020 IF ERR =14 THEN A$="error: UNDENFINED LINE": GO SUB 630 3030 IF ERR =16 THEN A$="error: BAD SUBSCRIPT": GO SUB 630 3040 IF ERR =18 THEN A$="error: REDIMENSION ARRAY": GO SUB 630 3050 IF ERR =20 THEN A$="error: DIVISION BY ZERO": GO SUB 630 3060 IF ERR =22 THEN A$="error: ILLEGAL DIRECT STATEMENT": GO SUB 630 3070 IF ERR =24 THEN A$="error: TYPE MISMATCH": GO SUB 630 3080 IF ERR =26 THEN A$="error: OUT OF STRING SPACE": GO SUB 630 3090 IF ERR =28 THEN A$="error: STRING TOO LONG": GO SUB 630 3100 IF ERR =30 THEN A$="error: STRING TOO COMPLEX": GO SUB 630 3110 IF ERR =32 THEN A$="error: CAN'T CONTINUE": GO SUB 630 3120 IF ERR =34 THEN A$="error: UNDEFINED FILE": GO SUB 630 3130 IF ERR =36 THEN A$="error: FAULTY DATA": GO SUB 630 3140 IF ERR =38 THEN A$="error: FILE ALREADY OPEN": GO SUB 630 3150 IF ERR =40 THEN A$="error: DRIVE NUMBER": GO SUB 630 3160 IF ERR =42 THEN A$="error: INPUT/OUTPUT ERROR": GO SUB 630 3170 IF ERR =44 THEN A$="error: WRONG FILE MODE": GO SUB 630 3180 IF ERR =46 THEN A$="error: FILE NOT OPEN": GO SUB 630 3190 IF ERR =48 THEN A$="error: INPUT PAST EOF": GO SUB 630 3200 IF ERR =50 THEN A$="error: DIRECT STATEMENT": GO SUB 630 3210 IF ERR =128 THEN A$="error: NOT READY": GO SUB 630 3220 IF ERR =130 THEN A$="error: SEEK": GO SUB 630 3230 IF ERR =132 THEN A$="error: WRITE PROTECT": GO SUB 630 3240 IF ERR =134 THEN A$="error: RECORD TYPE": GO SUB 630 3250 IF ERR =138 THEN A$="error: CYCLIC REDUNDANCY": GO SUB 630 3260 IF ERR =140 THEN A$="error: LOST DATA": GO SUB 630 3270 IF ERR =142 THEN A$="error: BOOT": GO SUB 630 3280 IF ERR =144 THEN A$="error: INVALID DIRECTORY": GO SUB 630 3290 IF ERR =146 THEN A$="error: DIRECTORY FULL": GO SUB 630 3300 IF ERR =148 THEN A$="error: DISK FULL": GO SUB 630 3310 IF ERR =150 THEN A$="error: FILE SPEC.": GO SUB 630 3320 IF ERR =152 THEN A$="error: PROTECTION": GO SUB 630 3330 IF ERR =136 THEN A$="error: RECORD NOT FOUND": GO SUB 630 3340 IF ERR =154 THEN A$="error: READ PAST EOF": GO SUB 630 3350 IF ERR =156 THEN A$="error: FILE NOT FOUND": GO SUB 630 3360 IF ERR =158 THEN A$="error: FILE EXISTS": GO SUB 630 3370 IF ERR =160 THEN A$="error: NON-EXISTENS": GO SUB 630 3380 IF ERR =162 THEN A$="error: TOO MANY OPEN": GO SUB 630 3390 IF ERR =164 THEN A$="error: PARAMETER": GO SUB 630 3400 IF ERR =166 THEN A$(A)="error: ??": GO SUB 630 3410 INK$= INKEY$ : IF INK$="" THEN 3410 3420 CLOSE 3430 IF IDEN$="PERS" THEN 1110 3431 IF IDEN$="BEGIN" THEN 10 3440 IF IDEN$="START" THEN 80 3441 IF IDEN$="DISK" THEN 4060 3450 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 3470 3460 RETURN 3470 FOR L=1 TO 5 3480 PRINT @384,"PLEASE MAKE DATA" 3490 BEEP 3500 WAIT 250 3510 PRINT @384,"please"; CHR$ (128);"make"; CHR$ (128);"data" 3520 BEEP 3530 WAIT 250 3540 NEXT L 3550 GO TO 1110 3560 CLS : DIR ::'directory 3570 Q=448 3580 A$="ENTER A KEY" 3590 GO SUB 630 3600 A$= INKEY$ : IF A$="" THEN 3600 3610 GO TO 720 3620 Q=96::'help 3630 A$="HELP NOT AVAILABLE" 3640 GO SUB 630 3650 A$= INKEY$ : IF A$="" THEN 3650 3660 GO TO 360 4000 :'disk commands 4010 IDEN$="DISK" 4020 CLS 4030 Q=12 4040 A$="T.I.C.S." 4050 GO SUB 630 4060 Q=384 4070 A$="ENTER COMMAND" 4080 GO SUB 630 4090 Q=416 4100 PRINT @Q, CHR$ (128) 4110 GO SUB 220 4115 E$="" 4120 FOR A=1 TO P 4130 E$=E$+ID$(A) 4140 IF ID$(1)= CHR$ (13) THEN 4090 4150 NEXT A 4160 FOR B=1 TO P+1 4170 IF MID$ (E$,B,4)="BACK" THEN 80 4180 IF MID$ (E$,B,4)="RETU" THEN 80 4190 IF MID$ (E$,B,4)="REST" THEN 80 4200 IF MID$ (E$,B,4)="MENY" THEN 80 4210 IF MID$ (E$,B,4)="MENU" THEN 80 4220 IF MID$ (E$,B,4)="MAIN" THEN 80 4230 IF MID$ (E$,B,4)="LIST" THEN 5000 4240 IF MID$ (E$,B,4)="LESE" THEN 5000 4250 IF MID$ (E$,B,4)="COMM" THEN 5000 4260 IF MID$ (E$,B,4)="KOMM" THEN 5000 4270 IF MID$ (E$,B,4)="PRIN" THEN 5000 4280 IF MID$ (E$,B,4)="HELP" THEN 5000 4310 IF MID$ (E$,B,($fe)($FFFF)($FFEF)($fe)($FFFF)($FFEF)($fe)($FFFF)($FFEF) 64751 65295 REM REM line numbering breaks here! REM ($fc)($FFEF)($FFFF)($fb) ( DSKINIT ($ed) TICS D$ FREAD  k LENA DAT ($fc) K WIX0E DAT PUT  M B0E DAT RESTORE  S ASKEVOLDDAT l H MORTEN DAT H K DYSKELANDAT $ J PETERSENDAT  L GO TEST BASz 245 REM REM line numbering breaks here! REM FRODE DAT OFF  L DIRECTORDAT DIM  7 GO DIRECTORDAT FLREAD  w GO SAHCFDSFDAT OFF  77 GO SDKSFGD REM REM line numbering breaks here! REM DAT CREATE  M GO SAD DAT FLREAD  CSAVE INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT 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: $00ec Exec: $8b8d * REM *(Start: 09217 Length: 00236 Exec: 35725) * REM ************************************************* REM 10 A=1 20 A$(1)="B0E" 30 A$(2)="LENA" 40 A$(3)="WIX0E" 50 A$(4)="FRODE" 60 A$(5)="MORTEN" 70 A$(6)="ASKEVOLD" 75 DN=1 80 A$(7)="DYSKELAN" 90 A$(8)="PETERSEN" 100 FWRITE "DIRECTOR";A$(A) 110 A=A+1 120 IF A=9 THEN 1000 130 GO TO 100 1000 END REM REM line numbering breaks here! REM DIM C$(100),P(30) 75 DN=1 80 CLS 90 Q=1 100 E$="" 110 IDEN$="START" 120 A$="THIS IS THE TOTAL INFORMATION" 130 GO SUB 640 140 Q=36 150 A$="COMPUTER SYSTEM (TICS)." 160 GO SUB 640 170 Q=96 180 A$="GIVE ME YOUR IDENTIFICATION" 190 GO SUB 640 200 Q=128: GO SUB 240 210 PRINT @128, STRING$ (32," "): GO TO 360 220 :'innmatingsprosedyre 230 IF QQ=3 THEN P=0: FOR P=1 TO 22: GO TO 250 240 FOR P=1 TO 31 250 PRINT @Q+P-1, CHR$ (128) 260 ID$(P)= INKEY$ : IF ID$(P)="" THEN 260 270 BEEP 280 IF ID$(P)= CHR$ (21) THEN PRINT @Q-1+P,"": GO TO 240 290 IF ID$(P)= CHR$ (8) THEN P=P-1: IF P=<0 THEN P=0 : ELSE PRINT @Q+P-1," ": GO TO 250 300 IF ID$(P)= CHR$ (13) THEN PRINT @Q+P-1,"": RETURN 310 IF QQ=3 AND P=22 AND ID$(P)<> CHR$ (13) THEN 260 320 IF P=31 AND ID$(P)<> CHR$ (13) THEN 260 330 PRINT @Q-1+P,ID$(P) 340 NEXT P 350 RETURN 360 :'menyvelger 370 Q=96 380 E$="" 390 A$="WHAT CAN I DO FOR YOU" 400 GO SUB 640 410 PRINT @128,"":Q=128: GO SUB 240 420 FOR A=0 TO P 430 E$=E$+ID$(A) 440 IF ID$(1)= CHR$ (13) THEN 410 450 NEXT A 460 FOR B=1 TO P+1 470 IF MID$ (E$,B,4)="BACK" THEN 80 480 IF MID$ (E$,B,4)="RETU" THEN 80 490 IF MID$ (E$,B,4)="STAR" THEN 80 500 IF MID$ (E$,B,4)="REST" THEN 80 510 IF MID$ (E$,B,4)="PERS" THEN 720 520 IF MID$ (E$,B,4)="HELP" THEN 3620 521 IF MID$ (E$,B,4)="DISK" THEN 4000 522 IF MID$ (E$,B,4)="DISC" THEN 4000 523 IF MID$ (E$,B,4)="FLOP" THEN 4000 524 IF MID$ (E$,B,4)="DRIV" THEN 4000 525 IF MID$ (E$,B,4)="STAS" THEN 4000 530 NEXT 540 FOR M=1 TO 5 550 PRINT @96,"COMMAND NOT AVAILABLE" 560 BEEP 570 WAIT 250 580 PRINT @96,"command not available" 590 BEEP 600 WAIT 250 610 NEXT M 620 GO TO 360 630 :'utskriftsprosedyre 640 FOR B=1 TO LEN (A$) 650 PRINT @Q, MID$ (A$,B,1); 660 Q=Q+1 670 PRINT @Q, CHR$ (128) 680 BEEP 690 NEXT B 700 PRINT @Q, CHR$ (32) 710 RETURN 720 :'person register 730 IDEN$="PERS" 740 CLS 760 Q=12 770 A$="T.I.C.S." 780 GO SUB 640 790 Q=64 800 A$="NAME" 810 GO SUB 640 820 Q=96 830 A$="ID NO." 840 GO SUB 640 850 Q=128 860 A$="ADRESS" 870 GO SUB 640 880 Q=160 890 A$="PO.NO." 900 GO SUB 640 910 Q=192 920 A$="PO.BOX" 930 GO SUB 640 940 Q=224 950 A$="PO.ADR." 960 GO SUB 640 970 Q=256 980 A$="PHONE" 990 GO SUB 640 1000 Q=288 1010 A$="TITLE" 1020 GO SUB 640 1030 Q=71 1040 FOR B=1 TO 8 1050 PRINT @Q,":"; 1060 PRINT @Q+1, CHR$ (128); 1070 BEEP 1080 PRINT @Q+1, CHR$ (32); 1090 Q=Q+32 1100 NEXT B 1110 Q=384: PRINT @0, FRE$ ; 1120 E$="" 1130 A$="ENTER COMMAND" 1140 GO SUB 640 1150 Q=416 1160 GO SUB 240 1170 FOR A=0 TO P 1180 E$=E$+ID$(A) 1190 IF MID$ (E$,1,1)= CHR$ (13) THEN 1110 1200 IF MID$ (E$,1,1)= CHR$ (36) THEN 3560 1210 NEXT A 1220 IF E$="$" THEN GO TO 3560 1230 FOR B=1 TO P+1 1240 IF MID$ (E$,B,4)="TILB" THEN GO TO 80 1250 IF MID$ (E$,B,4)="MAIN" THEN GO TO 80 1260 IF MID$ (E$,B,4)="MENU" THEN GO TO 80 1270 IF MID$ (E$,B,4)="MENY" THEN GO TO 80 1280 IF MID$ (E$,B,4)="RETU" THEN GO TO 80 1290 IF MID$ (E$,B,4)="BACK" THEN GO TO 80 1300 IF MID$ (E$,B,4)="LIST" THEN 1740 1310 IF MID$ (E$,B,4)="LESE" THEN 1740 1320 IF MID$ (E$,B,4)="READ" THEN 1840 1330 IF MID$ (E$,B,4)="LOAD" THEN 1840 1340 IF MID$ (E$,B,4)="SAVE" THEN 2520 1350 IF MID$ (E$,B,4)="CREA" THEN 2790 1360 IF MID$ (E$,B,4)="LAG " THEN 2790 1370 IF MID$ (E$,B,4)="STOR" THEN 2520 1380 IF MID$ (E$,B,4)="DUMP" THEN 2520 1390 IF MID$ (E$,B,4)="MAKE" THEN 2790 1400 IF MID$ (E$,B,4)="FORA" THEN 1940 1410 IF MID$ (E$,B,4)="REPA" THEN 1940 1420 IF MID$ (E$,B,4)="CHAN" THEN 1940 1430 IF MID$ (E$,B,4)="EDIT" THEN 1940 1440 IF MID$ (E$,B,4)="SKIF" THEN 1940 1450 IF MID$ (E$,B,4)="REPR" THEN 1940 1460 IF MID$ (E$,B,4)="BYTT" THEN 2260 1470 IF MID$ (E$,B,4)="REPL" THEN 2260 1480 IF MID$ (E$,B,4)="SWAP" THEN 2260 1490 IF MID$ (E$,B,4)="REMO" THEN 2260 1500 IF MID$ (E$,B,4)="OMPL" THEN 2260 1510 IF MID$ (E$,B,4)="OMOR" THEN 2260 1520 IF MID$ (E$,B,4)="FLYT" THEN 2260 1530 IF MID$ (E$,B,4)="LAGR" THEN 2520 1540 IF MID$ (E$,B,4)="SLET" THEN 2630 1550 IF MID$ (E$,B,4)="KILL" THEN 2630 1560 IF MID$ (E$,B,4)="ERAS" THEN 2630 1570 IF MID$ (E$,B,4)="DELE" THEN 2630 1580 IF MID$ (E$,B,4)="DEL " THEN 2630 1590 IF MID$ (E$,B,4)="CLEA" THEN 2630 1600 IF MID$ (E$,B,4)="VISK" THEN 2630 1610 IF MID$ (E$,B,4)="RENS" THEN 2630 1620 IF MID$ (E$,B,4)="REST" THEN 2630 1621 IF MID$ (E$,B,4)="DRIV" THEN 4000 1622 IF MID$ (E$,B,4)="DISK" THEN 4000 1623 IF MID$ (E$,B,4)="FLOP" THEN 4000 1630 NEXT 1640 FOR T=1 TO 5 1650 BEEP 1660 E$="" 1670 PRINT @384,"COMMAND NOT AVAILABLE!" 1680 WAIT 250 1690 BEEP 1700 PRINT @384,"command"; CHR$ (128);"not"; CHR$ (128);"available": POKE 1429,33 1710 WAIT 250 1720 NEXT T 1730 GO TO 1110 1740 :'lese data 1750 GO SUB 3450 1760 LL=3 1770 Q=73 1780 FOR A=1 TO 8 1790 PRINT @Q,DAT$(A) 1800 Q=Q+32 1810 NEXT A 1820 IF BB=3 THEN BB=0: GO TO 1030 1830 GO TO 1110 1839 :'load data 1840 Q=384:S$="":E$="" 1841 A$="WHICH FILE" 1842 GO SUB 630 1844 GO SUB 30000 1850 SS=3 1855 S$=E$+".DAT" 1860 FOR A=1 TO 8 1870 FREAD S$;DAT$(A) 1880 GO SUB 1910 1890 NEXT A 1900 GO TO 1920 1910 IF EOF (S$)=0 THEN RETURN 1920 CLOSE 1930 GO TO 1740 1940 :'forandre data 1950 QQ=3 1960 Q=0 1970 FOR A=1 TO 8 1980 PRINT @70+Q,A; 1990 BEEP 2000 Q=Q+32 2010 NEXT A 2020 PRINT @416,"" 2030 Q=384 2040 A$="ENTER NUMBER TO CHANGE <1-8>" 2050 GO SUB 630 2060 Q=416 2070 PRINT @Q, CHR$ (128) 2080 A$= INKEY$ : IF A$="" THEN 2080 2090 A= VAL (A$) 2100 IF A<1 OR A>8 THEN 2080 2110 DAT$(A)="" 2120 PRINT @Q, CHR$ (32); 2130 IF A=1 THEN Q=73: PRINT @Q,"": BEEP : GO SUB 240 2140 IF A=2 THEN Q=105: PRINT @Q,"": BEEP : GO SUB 240 2150 IF A=3 THEN Q=137: PRINT @Q,"": BEEP : GO SUB 240 2160 IF A=4 THEN Q=169: PRINT @Q,"": BEEP : GO SUB 240 REM REM line numbering breaks here! REM B0E LENA WIX0E FRODE MORTEN ASKEVOLD DYSKELAN PETERSEN ,"": BEEP : GO SUB 240 2190 IF A=7 THEN Q=265: PRINT @Q,"": BEEP : GO SUB 240 2200 IF A=8 THEN Q=297: PRINT @Q,"": BEEP : GO SUB 240 2210 FOR W=1 TO P 2220 IF ID$(W)= CHR$ (13) THEN 2250 2230 DAT$(A)=DAT$(A)+ID$(W) 2240 NEXT W 2250 GO TO 1030 2260 :'bytte data 2270 BB=3 2280 GO SUB 3450 2290 Q=70 2300 FOR A=1 TO 8 2310 PRINT @Q,A; 2320 BEEP 2330 Q=Q+32 2340 NEXT A 2350 Q=384 2360 A$="SWAP" 2370 GO SUB 630 2380 A$= INKEY$ : IF A$="" THEN 2380 2390 A= VAL (A$) 2400 IF A<1 OR A>8 THEN 2380 2410 PRINT @389,A 2420 Q=392 2430 A$="WITH" 2440 GO SUB 630 2450 A$= INKEY$ : IF A$="" THEN 2450 2460 B= VAL (A$) 2470 IF B<1 OR B>8 THEN 2450 2480 PRINT @396,B 2490 BEEP 2500 SWAP DAT$(A),DAT$(B) 2510 GO TO 1740 2520 Q=384:E$=""::'lagre data 2521 A$="WHICH FILE" 2522 GO SUB 630 2523 Q=416: GO SUB 30000 2530 GO SUB 3450 2531 S$=E$ 2532 E$="" 2540 WW=3 2560 FOR A=1 TO 8 2570 FWRITE S$;DAT$(A) 2580 NEXT A 2590 CLOSE 2610 X=X+1:DI$(X)=S$ 2611 FWRITE "DIRECTOR";DI$(X) 2612 CLOSE 2620 GO TO 1110 2630 :'slette data 2640 GO SUB 3450 2650 W=1 2660 Q=73 2670 FOR S=Q+ LEN (DAT$(W)) TO Q STEP -1 2680 PRINT @S," "; CHR$ (128); CHR$ (32) 2690 BEEP 2700 NEXT S 2710 PRINT @S, CHR$ (32) 2720 Q=Q+32 2730 W=W+1: IF W=9 THEN 2750 2740 GO TO 2670 2750 FOR Q=1 TO 8 2760 DAT$(Q)="" 2770 NEXT Q 2780 GO TO 1110 2790 :'lage data 2800 QQ=3 2810 L=1 2820 Q=73 2830 GO SUB 230 2840 FOR W=1 TO P 2850 IF ID$(W)= CHR$ (13) THEN 2880 2860 DAT$(L)=DAT$(L)+ID$(W) 2870 NEXT W 2880 L=L+1: IF L=9 THEN 1110 2890 Q=Q+32: GO TO 2830 2900 WAIT 5000 2910 :'error list 2940 Q=384 2941 IF IDEN$="DIRECTOR" AND ERR =160 THEN GO TO 40130 2950 IF ERR =0 THEN A$="error: NEXT WITHOUT FOR": GO SUB 630 2960 IF ERR =2 THEN A$="error: SYNTAX ERROR": GO SUB 630 2970 IF ERR =4 THEN A$="error: RETURN WITHOUT GOSUB": GO SUB 630 2980 IF ERR =6 THEN A$="error: OUT OF DATA IN READ": GO SUB 630 2990 IF ERR =8 THEN A$="error: ILLEGAL FUNCTION ERROR": GO SUB 630 3000 IF ERR =10 THEN A$="error: OVERFLOW": GO SUB 630 3010 IF ERR =12 THEN A$="error: OUT OF MEMORY": GO SUB 630 3020 IF ERR =14 THEN A$="error: UNDENFINED LINE": GO SUB 630 3030 IF ERR =16 THEN A$="error: BAD SUBSCRIPT": GO SUB 630 3040 IF ERR =18 THEN A$="error: REDIMENSION ARRAY": GO SUB 630 3050 IF ERR =20 THEN A$="error: DIVISION BY ZERO": GO SUB 630 3060 IF ERR =22 THEN A$="error: ILLEGAL DIRECT STATEMENT": GO SUB 630 3070 IF ERR =24 THEN A$="error: TYPE MISMATCH": GO SUB 630 3080 IF ERR =26 THEN A$="error: OUT OF STRING SPACE": GO SUB 630 3090 IF ERR =28 THEN A$="error: STRING TOO LONG": GO SUB 630 3100 IF ERR =30 THEN A$="error: STRING TOO COMPLEX": GO SUB 630 3110 IF ERR =32 THEN A$="error: CAN'T CONTINUE": GO SUB 630 3120 IF ERR =34 THEN A$="error: UNDEFINED FILE": GO SUB 630 3130 IF ERR =36 THEN A$="error: FAULTY DATA": GO SUB 630 3140 IF ERR =38 THEN A$="error: FILE ALREADY OPEN": GO SUB 630 3150 IF ERR =40 THEN A$="error: DRIVE NUMBER": GO SUB 630 3160 IF ERR =42 THEN A$="error: INPUT/OUTPUT ERROR": GO SUB 630 3170 IF ERR =44 THEN A$="error: WRONG FILE MODE": GO SUB 630 3180 IF ERR =46 THEN A$="error: FILE NOT OPEN": GO SUB 630 3190 IF ERR =48 THEN A$="error: INPUT PAST EOF": GO SUB 630 3200 IF ERR =50 THEN A$="error: DIRECT STATEMENT": GO SUB 630 3210 IF ERR =128 THEN A$="error: NOT READY": GO SUB 630 3220 IF ERR =130 THEN A$="error: SEEK": GO SUB 630 3230 IF ERR =132 THEN A$="error: WRITE PROTECT": GO SUB 630 3240 IF ERR =134 THEN A$="error: RECORD TYPE": GO SUB 630 3250 IF ERR =138 THEN A$="error: CYCLIC REDUNDANCY": GO SUB 630 3260 IF ERR =140 THEN A$="error: LOST DATA": GO SUB 630 3270 IF ERR =142 THEN A$="error: BOOT": GO SUB 630 3280 IF ERR =144 THEN A$="error: INVALID DIRECTORY": GO SUB 630 3290 IF ERR =146 THEN A$="error: DIRECTORY FULL": GO SUB 630 3300 IF ERR =148 THEN A$="error: DISK FULL": GO SUB 630 3310 IF ERR =150 THEN A$="error: FILE SPEC.": GO SUB 630 3320 IF ERR =152 THEN A$="error: PROTECTION": GO SUB 630 3330 IF ERR =136 THEN A$="error: RECORD NOT FOUND": GO SUB 630 3340 IF ERR =154 THEN A$="error: READ PAST EOF": GO SUB 630 3350 IF ERR =156 THEN A$="error: FILE NOT FOUND": GO SUB 630 3360 IF ERR =158 THEN A$="error: FILE EXISTS": GO SUB 630 3370 IF ERR =160 THEN A$="error: NON-EXISTENS": GO SUB 630 3380 IF ERR =162 THEN A$="error: TOO MANY OPEN": GO SUB 630 3390 IF ERR =164 THEN A$="error: PARAMETER": GO SUB 630 3400 IF ERR =166 THEN A$(A)="error: ??": GO SUB 630 3410 INK$= INKEY$ : IF INK$="" THEN 3410 3420 CLOSE 3430 IF IDEN$="PERS" THEN 1110 3431 IF IDEN$="BEGIN" THEN 10 3440 IF IDEN$="START" THEN 80 3441 IF IDEN$="DISK" THEN 4060 3450 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 3470 3460 RETURN 3470 FOR L=1 TO 5 3480 PRINT @384,"PLEASE MAKE DATA" 3490 BEEP 3500 WAIT 250 3510 PRINT @384,"please"; CHR$ (128);"make"; CHR$ (128);"data" 3520 BEEP 3530 WAIT 250 3540 NEXT L 3550 GO TO 1110 3560 GO SUB 9000:'directory 3565 GO TO 720 3620 Q=96::'help 3630 A$="HELP NOT AVAILABLE" 3640 GO SUB 630 3650 A$= INKEY$ : IF A$="" THEN 3650 3660 GO TO 360 4000 :'disk commands 4010 IDEN$="DISK" 4020 CLS 4030 Q=12 4040 A$="T.I.C.S." 4050 GO SUB 630 4051 GO TO 5000 4060 Q=384 4070 A$="ENTER COMMAND" 4080 GO SUB 630 4090 Q=416 4100 PRINT @Q, CHR$ (128) 4110 GO SUB 220 4115 E$="" 4120 FOR A=1 TO P 4130 E$=E$+ID$(A) 4140 IF ID$(1)= CHR$ (13) THEN 4090 4150 NEXT A 4160 FOR B=1 TO P+1 4170 IF MID$ (E$,B,4)="BACK" THEN 720 4180 IF MID$ (E$,B,4)="RETU" THEN 720 4190 IF MID$ (E$,B,4)="REST" THEN 720 4200 IF MID$ (E$,B,4)="MENY" THEN 80 4210 IF MID$ (E$,B,4)="MENU" THEN 80 4220 IF MID$ (E$,B,4)="MAIN" THEN 80 4230 IF MID$ (E$,B,4)="LIST" THEN 5000 4240 IF MID$ (E$,B,4)="LESE" THEN 5000 4250 IF MID$ (E$,B,4)="COMM" THEN 5000 4260 IF MID$ (E$,B,4)="KOMM" THEN 5000 4270 IF MID$ (E$,B,4)="PRIN" THEN 5000 4280 IF MID$ (E$,B,4)="HELP" THEN 5000 4310 IF MID$ (E$,B,4)="COPY" THEN 6000 4350 IF MID$ (E$,B,4)="CLOS" THEN 8000 4370 IF MID$ (E$,B,3)="DIR" THEN 9000 4380 IF MID$ (E$,B,4)="DRIV" THEN 11000 4390 IF MID$ (E$,B,4)="DSKI" THEN 12000 4410 IF MID$ (E$,B,3)="ERR" THEN 13000 4420 IF MID$ (E$,B,3)="ERL" THEN 13000 4460 IF MID$ (E$,B,4)="FREE" THEN 15000 4470 IF MID$ (E$,B,4)="FRE$" THEN 16000 4490 IF MID$ (E$,B,4)="HIME" THEN 17000 4500 IF MID$ (E$,B,4)="KILL" THEN 18000 4530 IF MID$ (E$,B,3)="LOF" THEN 20000 4550 IF MID$ (E$,B,4)="PROT" THEN 21000 4560 IF MID$ (E$,B,4)="RENA" THEN 7000 4620 IF MID$ (E$,B,4)="VERI" THEN 24000 4640 NEXT B 4650 GO TO 10000 5000 Q=96 5210 A$="CLOSE": GO SUB 630 5220 Q=128 5230 A$="COPY": GO SUB 630 5260 Q=160 5270 A$="DIR": GO SUB 630 5280 Q=192 5290 A$="DRIVE": GO SUB 630 5300 Q=224 5310 A$="DSKINIT": GO SUB 630 5340 Q=109 5350 A$="ERL": GO SUB 630 5360 Q=141 5370 A$="ERR": GO SUB 630 5380 Q=173 5450 A$="FREE": GO SUB 630 5460 Q=205 5470 A$="FRE$": GO SUB 630 5480 Q=237 5500 A$="HIMEM": GO SUB 630 5510 Q=119 5520 A$="KILL": GO SUB 630 5610 Q=151 5620 A$="LOF": GO SUB 630 5630 Q=183 5660 A$="PROTECT": GO SUB 630 5670 Q=215 5680 A$="RENAME": GO SUB 630 5710 Q=247 5800 A$="VERIFY": GO SUB 630 5850 GO TO 4060 6000 :'kopiere filer 6010 E$="":N$="":O$="" 6020 Q=384 6030 A$="SOURCE FILE" 6040 GO SUB 630 6050 Q=416 6060 GO SUB 220 6070 IF ID$(1)= CHR$ (13) OR ID$(1)= CHR$ (32) THEN 6060 6080 IF P<1 OR P>8 THEN 6060 6090 FOR A=1 TO 8 6100 IF ID$(A)= CHR$ (32) THEN 6200 6105 IF ID$(A)= CHR$ (13) THEN 6200 6110 E$=E$+ID$(A) 6120 NEXT A 6200 O$=E$+".DAT" 6201 E$="" 6210 Q=384 6220 A$="DESTINATION FILE" 6230 GO SUB 630 6240 Q=416 6250 GO SUB 220 6260 IF ID$(1)= CHR$ (13) OR ID$(1)= CHR$ (32) THEN 6250 6270 IF P<1 OR P>8 THEN 6250 6280 FOR A=1 TO 8 6285 IF ID$(A)= CHR$ (13) THEN 6500 6290 IF ID$(A)= CHR$ (32) THEN 6500 6300 E$=E$+ID$(A) 6310 NEXT A 6500 N$=E$+".DAT" 6501 E$="" 6510 Q=384 6520 A$="FROM DRIVE" 6530 GO SUB 630 6540 D1$= INKEY$ : IF D1$="" THEN 6540 6550 D1= VAL (D1$) 6560 IF D1<1 OR D1>4 THEN 6540 6570 PRINT @395,D1 6575 BEEP 6580 Q=397 6590 A$="TO DRIVE" 6600 GO SUB 630 6610 D2$= INKEY$ : IF D2$="" THEN 6610 6620 D2= VAL (D2$) 6630 IF D2<1 OR D2>4 THEN 6610 6640 PRINT @406,D2 6645 BEEP 6650 IF D1=1 AND D2=1 THEN COPY O$ TO N$ 6660 IF D1=1 AND D2=2 THEN COPY "1:"+O$ TO "2:"+N$ 6670 IF D1=1 AND D2=3 THEN COPY "1:"+O$ TO "3:"+N$ 6680 IF D1=1 AND D2=4 THEN COPY "1:"+O$ TO "4:"+N$ 6690 IF D1=2 AND D2=1 THEN COPY "2:"+O$ TO "1:"+N$ 6700 IF D1=2 AND D2=2 THEN COPY "2:"+O$ TO "2:"+N$ 6710 IF D1=2 AND D2=3 THEN COPY "2:"+O$ TO "3:"+N$ 6720 IF D1=2 AND D2=4 THEN COPY "2:"+O$ TO "4:"+N$ 6730 IF D1=3 AND D2=1 THEN COPY "3:"+O$ TO "1:"+N$ 6740 IF D1=3 AND D2=2 THEN COPY "3:"+O$ TO "2:"+N$ 6750 IF D1=3 AND D2=3 THEN COPY "3:"+O$ TO "3:"+N$ 6760 IF D1=3 AND D2=4 THEN COPY "3:"+O$ TO "4:"+N$ 6770 IF D1=4 AND D2=1 THEN COPY "4:"+O$ TO "1:"+N$ 6780 IF D1=4 AND D2=2 THEN COPY "4:"+O$ TO "2:"+N$ 6790 IF D1=4 AND D2=3 THEN COPY "4:"+O$ TO "3:"+N$ 6800 IF D1=4 AND D2=4 THEN COPY "4:"+O$ TO "4:"+N$ 6999 GO TO 4060 7000 :'rename filer 7001 O$="":N$="" 7002 E$="" 7010 Q=384 7020 A$="OLD FILE" 7030 GO SUB 630 7040 Q=416 7060 GO SUB 30000 7100 O$=E$ 7110 E$="" 7120 Q=384 7130 A$="NEW NAME" 7140 GO SUB 630 7150 Q=416 7160 GO SUB 30000 7200 N$=E$ 7210 E$="" 7220 Q=384 7230 A$="DRIVE NO." 7240 GO SUB 630 7250 D$= INKEY$ : IF D$="" THEN 7250 7260 D= VAL (D$) 7270 IF D<1 OR D>4 THEN 7250 7330 IF O$=N$ THEN 7900 7370 IF D=1 THEN RENAME "1:"+O$+".DAT" TO N$+".DAT" 7371 IF D=2 THEN RENAME "2:"+O$+".DAT" TO N$+".DAT" 7372 IF D=3 THEN RENAME "3:"+O$+".DAT" TO N$+".DAT" 7373 IF D=4 THEN RENAME "4:"+O$+".DAT" TO N$+".DAT" 7380 GO TO 4060 7900 A$="FILE '"+N$+"' NOT AVAILABLE" 7910 Q=384 7920 GO SUB 630 7930 GO TO 4060 8000 :'close disks 8005 Q=384 8010 A$="CLOSED" 8020 GO SUB 630 8030 CLOSE 8035 WAIT 2500 8040 GO TO 4060 9000 :'directory 9010 PRINT @96,"": PRINT : PRINT : PRINT : PRINT : PRINT : PRINT 9015 PRINT @96,"" 9016 Q=96 9020 FOR A=0 TO X 9030 A$=DI$(A) 9040 GO SUB 630 9050 Q=Q+32- LEN (DI$(A)) 9060 IF Q=320 THEN Q=106 9070 IF Q=330 THEN Q=116 9080 IF Q=340 THEN GO SUB 9500 9090 NEXT A 9100 GO TO 4060 9500 Q=384 9510 A$="HIT ANY KEY" 9520 GO SUB 630 9530 INK$= INKEY$ : IF INK$="" THEN 9530 9540 Q=96: RETURN 10000 :'commands not available 10010 FOR M=1 TO 5 10020 PRINT @384,"COMMAND NOT AVAILABLE" 10030 BEEP 10040 WAIT 250 10050 PRINT @384,"command not available" 10060 BEEP 10070 WAIT 250 10080 NEXT M 10090 GO TO 4060 11000 :'drive number 11010 Q=384 11020 A$="OLD DRIVE NUMBER" 11030 GO SUB 630 11035 A$= STR$ (DN) 11036 GO SUB 630 11037 Q=416 11038 A$="ENTER DRIVE NO." 11039 GO SUB 630 11040 INK$= INKEY$ : IF INK$="" THEN 11040 11050 DN= VAL (INK$) 11060 IF DN<1 OR DN>4 THEN 11040 11070 GO TO 4060 12000 :'format a diskette 12010 Q=384 12020 A$="FORMAT" 12030 GO SUB 630 12060 A$= STR$ (DN) 12070 GO SUB 630 12080 A$=" " 12090 GO SUB 630 12100 INK$= INKEY$ : IF INK$="" THEN 12100 12110 IF INK$="Y" THEN 12140 12120 IF INK$="N" THEN 4060 12130 GO TO 12100 12140 Q=384 12150 A$="INSERT DISKETTE TO BE FORMATTED" 12160 GO SUB 630 12170 Q=416 12180 A$="AND PRESS A KEY" 12190 GO SUB 630 12200 INK$= INKEY$ : IF INK$="" THEN 12200 12210 DSKINIT DN 12220 GO TO 4060 13000 :'error utskrift 13010 Q=384 13020 IF ERR <1 THEN A$="NO ERROR MESSAGES" : ELSE 13040 13030 GO SUB 630 13035 GO TO 4060 13040 A$="ERROR" 13050 GO SUB 630 13060 A$= STR$ ( ERR ) 13070 GO SUB 630 13080 A$=" IN LINE" 13090 GO SUB 630 13100 A$= STR$ ( ERL ) 13110 GO SUB 630 13120 INK$= INKEY$ : IF INK$="" THEN 13120 13130 GO TO 4060 15000 :'free 15010 Q=384 15020 X= FREE DN 15030 A$="USED:" 15040 GO SUB 630 15045 Y=175104 15050 FR=Y-X 15060 A$= STR$ (FR) 15070 GO SUB 630 15080 A$=" LEFT:" 15090 GO SUB 630 15100 A$= STR$ (X) 15110 GO SUB 630 15120 INK$= INKEY$ : IF INK$="" THEN 15120 15130 GO TO 4060 16000 :'fre$ 16010 Q=384 16020 A$="USED:" 16030 GO SUB 630 16040 X= FRE$ 16050 FR=1000-X 16060 A$= STR$ (FR) 16070 GO SUB 630 16080 A$=" FREE" 16090 GO SUB 630 16100 A$= STR$ (X) 16110 GO SUB 630 16120 INK$= INKEY$ : IF INK$="" THEN 16120 16130 GO TO 4060 17000 :'himem 17010 Q=384 17015 A$="HIMEM=" 17016 GO SUB 630 17020 A$= STR$ ( HIMEM ) 17030 GO SUB 630 17040 GO TO 16120 18000 :'slette filer 18005 S$="":E$="" 18010 Q=384 18020 A$="KILL FILE:" 18030 GO SUB 630 18035 Q=416 18040 GO SUB 30000 18050 FOR A=0 TO X 18060 IF E$=DI$(A) THEN 18112 18070 NEXT A 18080 Q=384 18090 A$="FILE NOT EXIST" 18091 GO SUB 630 18100 WAIT 2000 18110 GO TO 4060 18112 S$=E$+".DAT":E$="" 18113 DI$(A)="" 18114 GO SUB 40000 18120 IF DN=1 THEN KILL "1:"+S$ 18121 IF DN=2 THEN KILL "2:"+S$ 18122 IF DN=3 THEN KILL "3:"+S$ 18123 IF DN=4 THEN KILL "4:"+S$ 18130 GO TO 4060 20000 :'lof 20005 S$="":E$="" 20010 Q=384 20020 A$="WHICH FILE" 20030 GO SUB 630 20035 Q=416 20040 GO SUB 30000 20100 S$=E$+".DAT" 20110 E$="" 20115 X=0 20120 IF DN=1 THEN X= LOF "1:"+S$ 20121 IF DN=2 THEN X= LOF "2:"+S$ 20122 IF DN=3 THEN X= LOF "3:"+S$ 20123 IF DN=4 THEN X= LOF "4:"+S$ 20130 IF X<0 THEN X=X*-1 20131 A$="="+ STR$ (X) 20132 Q=416+ LEN (S$)-3 20140 GO SUB 630 20150 INK$= INKEY$ : IF INK$="" THEN 20150 20160 GO TO 4060 21000 :'protect files 21005 E$="" 21010 Q=384 21020 A$="PROTECT " 21030 GO SUB 630 21035 Q=416 21040 GO SUB 30000 21100 IF E$="ON" OR E$="OFF" THEN S1$=E$:E$="": GO TO 21120 21105 E$="": GO TO 21040 21120 Q=384:A$="WHICH FILE" 21130 GO SUB 630 21135 Q=416 21140 GO SUB 30000 21190 S$=E$+".DAT" 21200 E$="" 21205 IF S1$="OFF" THEN 21220 21210 IF S1$="ON" THEN 21500 21220 IF DN=1 THEN PROTECT OFF "1:"+S$ 21230 IF DN=2 THEN PROTECT OFF "2:"+S$ 21240 IF DN=3 THEN PROTECT OFF "3:"+S$ 21250 IF DN=4 THEN PROTECT OFF "4:"+S$ 21251 CLOSE 21260 GO TO 4060 21500 IF DN=1 THEN PROTECT ON "1:"+S$ 21510 IF DN=2 THEN PROTECT ON "2:"+S$ 21520 IF DN=3 THEN PROTECT ON "3:"+S$ 21530 IF DN=4 THEN PROTECT ON "4:"+S$ 21531 CLOSE 21540 GO TO 4060 24000 :'verify 24010 Q=384 24020 A$="VERIFY " 24030 GO SUB 630 24035 Q=416 24040 GO SUB 220 24050 IF ID$(2)="N" THEN VERIFY ON : GO TO 4060 24060 IF ID$(2)="F" THEN VERIFY OFF : GO TO 4060 24070 GO TO 24035 30000 :'which file 30030 Q=416 30040 GO SUB 220 30050 IF P<2 OR P>9 THEN 30040 30055 FOR A=1 TO P 30060 IF ID$(A)= CHR$ (32) OR ID$(A)= CHR$ (13) THEN 30100 30070 E$=E$+ID$(A) 30080 NEXT A 30100 RETURN 40000 :'kill file dir 40001 IDEN$="DIRECTOR" 40010 KILL "DIRECTOR.DAT" 40020 FOR A=0 TO X-1 40030 IF DI$(A)="" THEN 40100 40040 FWRITE "DIRECTOR";DI$(A) 40100 NEXT A 40110 Q= LOF ("DIRECTOR") 40120 IF Q<>0 THEN RETURN 40130 GO TO 40020 REM REM line numbering breaks here! REM TAKSRUD FRODE 121275 ?? ??? TOPASKROKEN 16 4070 RANDABERG (04) 598841 ELEV FROM FROM FROM REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $00e3 Exec: $8b8d * REM *(Start: 09217 Length: 00227 Exec: 35725) * REM ************************************************* REM 10 A=1 20 A$(1)="B0E" 30 A$(2)="WIX0E" 40 A$(3)="ASKEVOLD" 50 A$(4)="DYSKELAN" 60 A$(5)="PETERSEN" 70 A$(6)="MTAKSRUD" 80 A$(7)="FTAKSRUD" 90 A$(8)="LTAKSRUD" 100 FWRITE "DIRECTOR";A$(A) 110 A=A+1 120 IF A=9 THEN END 130 GO TO 100 REM REM line numbering breaks here! REM B0E WIX0E ASKEVOLD DYSKELAN PETERSEN MTAKSRUD FTAKSRUD LTAKSRUD B0E LENA WIX0E FRODE MORTEN ASKEVOLD DYSKELAN PETERSEN N 2 4070 RANDABERG 598274 STUDENT FROM FROM