BJ\RN 3FAN1.2?SYSMAN 9))QULASYSTEM )))U ALLOUT BAS(@)))ALLOW BAS(@)))BASICINISYS(@)))COPYDISKBAS(@)))*FORMAT BAS(@)))6HDGEN BAS(@)))9HDGEN 80 (@)))HDGEN 800,@))) CM10 REM *** ALLOUT.bac V 1.1 20 REM *** NJB 1983 30 ; CHR$(12) : ; "# ALLOUT V 1.1" : ; : ; "Logga ut systemets andra anv{ndare." : ; 40 GOSUB 1000 50 ; "Skall vidare inloggning stoppas (Ja)"; : INPUT A$ 60 IF (ASC (A$) AND 95%)<>78% Q7$="xL"+CHR$(0CM%) : GOSUB 7000 70 REM *** Sl} p} inloggning genom att byta CHR$(0%) mot CHR$(255%) p} f|reg}ende rad 80 OUT 1%,8% : C0%=INP(1%) AND 31% 90 FOR I%=0% TO 31% 100 IF I%=C0% GOTO 140 110 Q7$="x="+CHR$(I%) 120 GOSUB 1000 130 GOSUB 7000 140 IF ERRCODE<1CM% NEXT I% 150 ; : ; : IF ERRCODE<1% ; "ok" 160 END 1000 REM *** 1010 REM *** S|k r{tt p} adressen till 1020 REM *** maskinkodsrutinen som skickar 1030 REM *** kommandon till huvudmaskinen. 1040 REM *** 1050 DEF FNP2%(A%)=PEEK(A%)+SWAP%(PEEK(A%+1%)) CM1060 IF PEEK(14%) P%=65403% ELSE P%=65034% 1070 P%=FNP2%(P%) : IF P%=0% ; "Invalid hardvare." : STOP 1080 IF CHR$(PEEK(P%+2%),PEEK(P%+3%),PEEK(P%+4%))<>"CUR" 1070 1090 P%=FNP2%(P%+5%)+39% 1100 REM p% {r nu adress dit man skall CALL'a vid Q7$-kommando.CM 1110 RETURN 7000 REM *** 7010 REM *** anropa 'comsend'-rutinen 7020 REM *** 7030 Z%=CALL(P%) : REM p% satt i subr. p} radn. 1000 7040 IF ERRCODE<1% A=A ELSE ; 'ERR' ERRCODE ' (se CAT-NET manualen)' 7050 RETURN dit man skall CALL'a vid Q7$-kommando.CMETURN 7000 REM *** 7010 REM *** anropa 'comsend'-rutinen 7020 REM *** 7030 Z%=CALL(P%) : REM p% satt i subr. p} radn. 1000 7040 IF ERRCODE<1% A=A ELSE ; 'ERR' ERRCODE ' (se CAT-NET manualen)' 7050 RETURN dit man skall CALL'a vid Q7$-kommando. +10 REM # ALLOW VER 1.0 20 REM 30 REM # 830415 CM 40 REM 50 ; CHR$(12) "# ALLOW V 1.0" 60 REM 70 REM 80 Q7$="xLx" : GOSUB 1000 : GOSUB 7000 90 REM 100 ; : ; : ; "## Inloggning {r nu till}ten !!!" : ; : ; : ; : ; 110 REM 120 END 130 REM 140 RE+M 150 REM 1000 REM *** 1010 REM *** S|k r{tt p} adressen till 1020 REM *** maskinkodsrutinen som skickar 1030 REM *** kommandon till huvudmaskinen. 1040 REM *** 1050 DEF FNP2%(A%)=PEEK(A%)+SWAP%(PEEK(A%+1%)) 1060 IF PEEK(14%) P%=65403% ELSE P%=65034+% 1070 P%=FNP2%(P%) : IF P%=0% ; "Invalid hardvare." : STOP 1080 IF CHR$(PEEK(P%+2%),PEEK(P%+3%),PEEK(P%+4%))<>"CUR" 1070 1090 P%=FNP2%(P%+5%)+39% 1100 REM p% {r nu adress dit man skall CALL'a vid Q7$-kommando. 1110 RETURN 7000 REM *** 7010 REM *** a+nropa 'comsend'-rutinen 7020 REM *** 7030 Z%=CALL(P%) : REM p% satt i subr. p} radn. 1000 7040 IF ERRCODE<1% A=A ELSE ; : ; : ; 'ERR' ERRCODE ' (se CAT-NET manualen)' : STOP 7050 RETURN LL'a vid Q7$-kommando. 1110 RETURN 7000 REM *** 7010 REM *** a+comsend'-rutinen 7020 REM *** 7030 Z%=CALL(P%) : REM p% satt i subr. p} radn. 1000 7040 IF ERRCODE<1% A=A ELSE ; : ; : ; 'ERR' ERRCODE ' (se CAT-NET manualen)' : STOP 7050 RETURN LL'a vid Q7$-kommando. 1110 RETURN 7000 REM *** 7010 REM *** a@0!]"FilnamnExtPfFpEpFlagInitCodenooptCodeoptOpeniniOptflADDOPT ABSGetRUN SYS:MENY GoonUpdflgSysflgDefFr}gaoptBasic1Ufrz  $y <!Mj!W!]"g:"q!#wY#}yx y##1$ _Nݸ` !"#$%&'()10 REM *** copydisk.bas V 1.2 20 REM *** NJB 1983 21 REM *** NJB 1984-02-23 v 1.1 22 REM *** NJB 1987-01-09 v 1.2 30 REM *** 40 REM *** kopierar fr}n en fysisk disk till en annan 50 REM *** block f|r block. 60 REM *** 70 REM *** Varning! kr{ver speciellt handhavande!!!! 100 ; CHR$(12%); 110 GOSUB 1000 111 H$="0123456789ABCDEF" 150 ; "COPYDISK V 1.2" 160 ; "Kopiering av skivor." : ; 170 ; 180 ; "Varning !!!" : ; : ; "STOPPA EJ PROGRAMMET MED ctrl-C." 190 ; 200 ; 210 X$="Fr}n drivenhet nummer" : X%=1% : GOSUB 700 215 REM ; "[r mottagarskivan av samma typ (Ja)"; : INPUT A$ 217 F9%=(-1%) : IF A$<>'' IF INSTR(1%,'Nn',LEFT$(A$,1%)) F9%=0% 219 IF F9%=0% ; "Ej implementerat." : STOP 220 X$="Till drivenhet nummer" : X%=2% : GOSUB 700 230 IF D%(1%)=D%(2%) ; "Error!!" : STOP 235 IF D%(1%)>5% OR D%(2%)>5% ; "Klarar ej detta!" : STOP 240 IF A%(1%)<>-1% OR A%(2%)<>-1% IF A%(1%)>1% OR A%(2%)>1% T%=1% ELSE T%=0% ELSE IF B%(1%)>B%(2%) T%=1% ELSE T%=0% 250 IF T% ; 'Skivbyten f|ljer !!"' 260 O1%=0% : O2%=0% 265 Q7$="xC" : GOSUB 7000 : IF ERRCODE>0% STOP 267 ; "S{tt i de diskar som skall kopieras." : ; : ; "Klart (nej)"; : INPUT LINE A$ 268 IF INSTR(1%,"jJ",LEFT$(A$,1%))=0% ; "J!" : GOTO 267 269 ; : ; : ; "Stoppa ABSOLUT INTE detta program !!" 270 IF B%(1%)>B%(2%) N%=B%(2%) ELSE N%=B%(1%) 280 Q7$=CHR$(0,255,D%(1%),D%(2%))+CHR$(N%,SWAP%(N%))+CHR$(O1%,SWAP%(O1%))+CHR$(O2%,SWAP%(O2%))+CHR$(0,0,0) 290 GOSUB 7000 300 ; ASC (RIGHT$(Q7$,11%)) " l{sfel." 310 ; ASC (RIGHT$(Q7$,12%)) " skrivfel." 320 ; ASC (RIGHT$(Q7$,13%)) " verifieringsfel." 330 IF B%(1%)=B%(2%) GOTO 440 440 ; "Vill du g|ra flera kopior (Nej)"; : INPUT A$ : IF (ASC (A$) AND 95%)=74% GOTO 190 448 ; "S{tt i de diskar som satt i innan" : ; "kopiering !!" : ; : ; "Klart (nej,J)"; : INPUT LINE A$ 449 IF INSTR(1%,"jJ",LEFT$(A$,1%))=0% ; "J!" : GOTO 448 450 Q7$=CHR$(0%,0%) : REM *** sl{pp l|s systemet igen 460 GOSUB 7000 699 END 700 REM *** 710 REM *** subrutin som fr}gar om disktyper 720 REM *** 730 ; X$; : INPUT D$ : IF ASC (D$)>95% D$=CHR$(ASC (D$) AND 95%) 740 IF D$<>'' IF INSTR(1%,H$,D$)=0% ; "Det d{r {r v{l ingen drivenhet???" : GOTO 730 ELSE 750 ELSE 730 750 D%(X%)=INSTR(1%,'0123456789ABCDEF',D$)-1% 751 D%=D%(X%) 755 IF F9% B%(2%)=B%(1%) : A%(2%)=A%(1%) : GOTO 880 760 ; "Disktyp (5/8/H)"; : INPUT T$ 770 IF T$<>'' T%=INSTR(1%,"58Hh",LEFT$(T$,1%)) ELSE GOTO 760 780 IF T%=0% ; "# fel svar, kontrollera !!" : GOTO 760 790 IF T%>2% GOTO 890 800 ; "Packningst{thet (E/D)"; : INPUT P$ 810 IF P$<>'' Q%=(INSTR(1%,"EeDd",LEFT$(P$,1%))+1%)/2% ELSE 800 820 IF Q%=0% ; "# fel svar, kontrollera !!" : GOTO 800 830 ; "Enkel/Dubbelsidig (E/D)"; : INPUT P$ 840 IF P$<>'' R%=(INSTR(1%,"EeDd",LEFT$(P$,1%))+1%)/2% ELSE 830 850 IF R%=0% ; "# fel svar, kontrollera !!" : GOTO 830 860 IF T%=1% S%=40%*(1%-(D%>1%))*Q%*R%*8% ELSE IF T%=2% IF R%=1% S%=77%*Q%*13% ELSE IF R%=2% S%=(77%+76%)*Q%*13% 865 REM ; "Antal skivor (jag sk|ter det, lyd mig)"; : INPUT A$(X%) 866 A$(X%)="" 867 IF A$(X%)<>'' A%(X%)=VAL(A$(X%)) ELSE A%(X%)=(-1%) 870 B%(X%)=S% 880 RETURN 890 REM *** h}rddisk 900 ; "MICA h}rdisk finns i systemet (j/n)"; : INPUT P$ 905 IF P$='' ; "Svara j/n!" : GOTO 900 910 IF INSTR(1%,"Jj",LEFT$(P$,1%))=0% ; "D} g}r det inte" : STOP 920 S%=42*(2*580+580/2) 930 GOTO 870 1000 REM *** 1010 REM *** S|k r{tt p} adressen till 1020 REM *** maskinkodsrutinen som skickar 1030 REM *** kommandon till huvudmaskinen. 1040 REM *** 1050 DEF FNP2%(A%)=PEEK(A%)+SWAP%(PEEK(A%+1%)) 1060 IF PEEK(14%) P%=65403% ELSE P%=65034% 1070 P%=FNP2%(P%) : IF P%=0% ; "Invalid hardvare." : STOP 1080 IF CHR$(PEEK(P%+2%),PEEK(P%+3%),PEEK(P%+4%))<>"CUR" 1070 1090 P%=FNP2%(P%+5%)+39% 1100 REM p% {r nu adress dit man skall CALL'a vid Q7$-kommando. 1110 RETURN 7000 REM *** 7010 REM *** anropa 'comsend'-rutinen 7020 REM *** 7030 Z=CALL(P%) : REM p% satt i subr. p} radn. 1000 7040 IF ERRCODE<1% ; 'ok' ELSE ; 'ERR' ERRCODE ' (se CAT-NET manualen)' 7050 RETURN t man skall CALL'a vid Q7$-kommando. 1110 RETURN 7000 REM *** 7010 REM *** anropa 'comsend'-rutinen 7020 REM * Z=CALL(P%) : REM p% satt i subr. p} radn. 1000 7040 IF ERRCODE<1% ; 'ok' ELSE ; 'ERR' ERRCODE ' (se CAT-NET manualen)' 7050 RETURN t man skall CALL'a vid Q7$-kommando. 1110 RETURN 7000 REM *** 7010 REM *** anropa 'comsend'-rutinen 7020 REM ***+,-./012345+10 REM *** FORMAT.BAS V 1.1 20 REM *** NJB 1982 21 REM *** NJB 1984-02-23 v 1.1 30 REM *** och generering 35 ; CHR$(12%) : ; "# FORMAT V 1.1" : ; : ; : ; 40 ; 'Formattera och generera flexskiva.' : ; '==================================' 50 ; 60 ; '+Vilken drivenhet (0-6)'; : INPUT D$ 61 IF LEN(D$)=2% IF RIGHT$(D$,2%)=':' D$=LEFT$(D$,1%) 62 IF LEN(D$)>1% GOTO 65 63 D%=INSTR(1%,"012345",D$)-1% : IF D%>=0% GOTO 70 65 ; "Felaktig drivenhet." : GOTO 60 70 ; 'Vilken diskstorlek'; : INPUT S% 75 IF S%<>5+% AND S%<>8% ; '5" eller 8".' : GOTO 70 80 ; 'Packningsgrad (densitet E/D)'; : INPUT D$ 90 D$=CHR$(ASC (D$) AND 95%) : IF D$<>'E' AND D$<>'D' ; 'D eller E.' : GOTO 80 91 ; 'Enkel eller dubbelsidig (E/D)'; : INPUT S$ 92 S$=CHR$(ASC (S$) AND 95%) : IF +S$<>'E' AND S$<>'D' ; 'D eller E.' : GOTO 91 100 ; 'Disknamn'; : INPUT N$ 110 FOR I%=1% TO LEN(N$) : C%=ASC (RIGHT$(N$,I%)) : C%=C%+32%*(C%>95%) 115 IF C%>=48% AND C%<94% AND (C%>=65% OR C%<=57%) M$=M$+CHR$(C%) : NEXT I% ELSE ; "Felaktigt skivnamn." :+ GOTO 100 120 IF LEN(M$)<11% M$=M$+SPACE$(11%-LEN(M$)) 130 IF S%=5% AND D%<2% IF D$='D' T%=79% ELSE T%=39% : REM antal sp}r, gamla 5" 135 IF S%=5% AND D%>=2% B%=640%*(1%-(D$="D"))*(1%-(S$="D")) : REM 5" drivers med mer {n 320 KB 140 IF S%=5% AND D%<2% +B%=8%*(T%+1%) 150 IF S%=8% B%=26%*(77%-76%*(S$="D")) : IF D$="E" B%=B%/2% 160 ; 'Max antal sektorer:' B% 170 GOSUB 1000 175 D%=D%+48% 180 Q7$=" F"+CHR$(D%,T%,0%,0%)+D$ 190 GOSUB 7000 200 IF ERRCODE>0% STOP 210 Q7$=" G"+CHR$(D%,0%,B%,SWAP%(B%))+M$ 220 +GOSUB 7000 230 IF ERRCODE>1% STOP 240 B%=ASC (RIGHT$(Q7$,4%))+SWAP%(ASC (RIGHT$(Q7$,5%))) 250 ; 'Antal friska sektorer:' B% 260 ; : ; 'Skall skivan aktiveras (ja)'; : INPUT A$ 270 IF (ASC (A$) AND 95%)<>78% Q7$=" A"+CHR$(D%) : GOSUB 7000 280 END 1+000 REM *** 1010 REM *** S|k r{tt p} adressen till 1020 REM *** maskinkodsrutinen som skickar 1030 REM *** kommandon till huvudmaskinen. 1040 REM *** 1050 DEF FNP2%(A%)=PEEK(A%)+SWAP%(PEEK(A%+1%)) 1060 IF PEEK(14%) P%=65403% ELSE P%=65034% 1070 P%=FNP+2%(P%) : IF P%=0% ; "Invalid hardvare." : STOP 1080 IF CHR$(PEEK(P%+2%),PEEK(P%+3%),PEEK(P%+4%))<>"CUR" 1070 1090 P%=FNP2%(P%+5%)+39% 1100 REM p% {r nu adress dit man skall CALL'a vid Q7$-kommando. 1110 RETURN 7000 REM *** 7010 REM *** anropa 'comsen+d'-rutinen 7020 REM *** 7030 Z%=CALL(P%) : REM p% satt i subr. p} radn. 1000 7040 IF ERRCODE<1% ; 'ok' ELSE ; 'ERR' ERRCODE ' (se CAT-NET manualen)' 7050 RETURN  man skall CALL'a vid Q7$-kommando. 1110 RETURN 7000 REM *** 7010 REM *** anropa 'comsen+nen 7020 REM *** 7030 Z%=CALL(P%) : REM p% satt i subr. p} radn. 1000 7040 IF ERRCODE<1% ; 'ok' ELSE ; 'ERR' ERRCODE ' (se CAT-NET manualen)' 7050 RETURN  man skall CALL'a vid Q7$-kommando. 1110 RETURN 7000 REM *** 7010 REM *** anropa 'comsen667810 IF PEEK(14%) CHAIN 'hdgen.800' ELSE CHAIN 'hdgen.80' y y    yy y z z."8>zHyN cyt z:! I y yzJ† ޜL~* ݣEEK(14%) CHAIN 'hdgen.800' ELSE CHAIN 'hdgen.80' y y    yy y z z."8>zHyN cyt z:! I y yzJ† ޜL~* ݣ99:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~810 REM *** HDGEN.BAC #121 20 REM *** NJB 1985-01-21 v 2.0 21 REM *** NJB 1985-01-30 v 2.1 22 REM *** NJB 1985-03-19 v 2.2 23 REM *** NJB 1985-03-28 v 2.3 24 REM *** NJB 1985-05-05 v 2.4 25 REM *** NJB 1985-06-26 v 2.5 (MICA 20) 26 REM *** NJB 1985-11-085 v 2.6 (MICA 64,dea MICA 8:,test halv skiva) 27 REM *** NJB 1986-06-02 v 2.7 (Tranfor 64) 28 REM *** NJB 1986-06-11 v 2.8TX (Luxor 852/856) 29 REM *** NJB 1986-12-23 v 2.9 (Cat-Cen inkl form,Disktest,852 16+4) 100 B0$='' : REM *** OBS *M]STE* vara f|r8sta var. 110 REM *** S{tt B0$ till DOSBUF 0 & 1 120 IF PEEK(14%) POKE FNP2%(65324%)+4%,0%,2%,0%,245%,0%,2% ELSE POKE FNP2%(65056%)+4%,0%,2%,0%,245%,0%,2% 130 B%(0%)=62720% : B%(1%)=B%(0%)+256% : REM *** Dosbuffrar 140 P7%=110% : IF PEEK(24711%)=195% IF8 PEEK(24771%)=195% P7%=530%-7% : REM *** CatNet II CMD PROM 150 DIM Q7$=P7%+7%,X$(10%)=25%,D1$=1%,D$=16%,P$=80%,L3$=P7%,N$(16%)=11%,S%(16%),P0$=40%,D0$=16% 160 DIM E9$=40%,P4$=25%,H$=16%,G$=1%,L$=25%,T$=25%,A4%(16%),B4(16%),R3%(16%),W1$=11% 170 K0%=7% 8: R0%=6% 180 H$="0123456789ABCDEF" : W1$="TERROR WIN" 190 GOSUB 1000 200 ; CHR$(12%) "# HDGEN V 2.9" 210 ; 220 ; "Generera h}rddisk f|r bruk i CATNET." 230 ; 240 ; 900 GOTO 10000 1000 REM *** 1010 REM *** S|k r{tt p} adressen till 1020 REM *** mask8inkodsrutinen som skickar 1030 REM *** kommandon till huvudmaskinen. 1040 REM *** 1050 DEF FNP2%(A%)=PEEK(A%)+SWAP%(PEEK(A%+1%)) 1060 IF PEEK(14%) P%=65403% ELSE P%=65034% 1070 P%=FNP2%(P%) : IF P%=0% ; "Invalid hardware." : STOP 1080 IF CHR$(PEEK(P%8+2%),PEEK(P%+3%),PEEK(P%+4%))<>"CUR" 1070 1090 P%=FNP2%(P%+5%)+39% 1100 REM p% {r nu adress dit man skall CALL'a vid Q7$-kommando. 1110 RETURN 8000 REM *** 8010 REM *** MICA-diskar 8020 REM *** 8030 IF T%=1% THEN P$="xx" : B=60900 : RETURN 8040 IF T%8<5% ON T%-1% RESTORE 9100,9200,9300 : GOTO 8050 8041 IF T%=5% ON E%+1% RESTORE 9400,9420 : GOTO 8050 8042 IF T%=6% ON E%+1% RESTORE 9500,9520,9540 : GOTO 8050 8043 IF T%=7% ON E%+1% RESTORE 9600,9620,9640,9660 : GOTO 8050 8049 STOP : REM *** PROGRAMFEL8 *** 8050 READ H0%,C0%,S0%,W0%,L0% 8070 P$=CHR$(H0%,C0%,SWAP%(C0%),S0%)+CHR$(W0%,L0%) 8080 FOR J%=1% TO L0%-1% : READ B0% : P$=P$+CHR$(B0%,SWAP%(B0%)) : NEXT J% 8090 P$=P$+STRING$(36%-LEN(P$),0%) 8100 READ T1%,H1% : P$=P$+CHR$(T1%,SWAP%(T1%),H1%) : IF8 H1%>127% GOTO 8130 8110 READ U1% : P$=P$+CHR$(U1%,SWAP%(U1%)) 8120 GOTO 8100 8130 B=INT(S0%)*INT(T1%)-1 8140 P$=CHR$(64%,LEN(P$))+P$ 8150 RETURN 9100 DATA 2,295,32,7,1 9150 DATA 0,0,0,295,1,0,590,128 9200 DATA 4,295,32,7,1 9250 DATA 0,0,0,295,1,0,5908,2,0,885,3,0,1180,128 9300 DATA 4,465,32,7,1 9350 DATA 0,0,0,465,1,0,930,2,0,1395,3,0,1860,128 9400 DATA 4,596,32,7,2,1192 9410 DATA 0,0,0,596,1,0,1192,128 9420 DATA 4,596,32,7,0 9430 DATA 0,2,0,596,3,0,1192,128 9500 DATA 6,800,32,7,3,1600,3200 9510 DA8TA 0,0,0,800,1,0,1600,128 9520 DATA 6,800,32,7,0 9530 DATA 0,2,0,800,3,0,1600,128 9540 DATA 6,800,32,7,0 9550 DATA 0,4,0,800,5,0,1600,128 9600 DATA 8,1000,32,7,4,2000,4000,6000 9610 DATA 0,0,0,1000,1,0,2000,128 9620 DATA 8,1000,32,7,0 9630 DATA 0,2,0,18000,3,0,2000,128 9640 DATA 8,1000,32,7,0 9650 DATA 0,4,0,1000,5,0,2000,128 9660 DATA 8,1000,32,7,0 9670 DATA 0,6,0,1000,7,0,2000,128 10000 DATA 'Cat Ingenj|rsbyr}',MICA,TranFor,Luxor,InfoData,Arado,Ampex,'' 10010 RESTORE 10000 : P0$="V{lj leverant|r" :8 GOSUB 30100 10020 RESTORE 10000 : L%=V% : FOR I%=1% TO L% : READ L$ : NEXT I% 10030 ON L% RESTORE 10040,10060,10080,10100,10120,10140,10160 10040 DATA '20 MB','55 MB','' 10050 DATA &67,,&6789,2016:2016:2016:616 10060 DATA '32 MB',' 5 MB','10 MB','16 8MB','20 MB','40 MB','64 MB','' 10070 DATA &67,,9AB,,9AB,,9AB,,&89,,&89A,,&89AB, 10080 DATA ' 5 MB Utbytbar',' 5 MB Fast','10 MB','20 MB','55 MB','64 MB','' 10090 DATA 67,,7,,7,,&78,1320:1320,&789A,1610:1610:1603:1603,&789A,2000:2000:2000:2000 10100 DAT8A '850 (10 MB)','852 (20 MB)','856 (60 MB)',(852 16+4 MB),'' 10110 DATA C,,&67,1216:1216,&6789,2000:2000:2000:2000,&67,2000:432 10120 DATA ' 5 MB Removeable','15 MB','' 10130 DATA 6,,7, 10140 DATA ' 5 MB Utbytbar','10 MB Fast','20 MB Fast','30 MB Fast'8,'' 10150 DATA 67,,7,,&78,1224:1220,&78,1836:1830 10160 DATA '20 MB +Tape','20 MB','' 10170 DATA &CD,1280:1280,&CD,1280:1280 10180 ; CUR(R0%-2%,0%) "Leverant|r: " L$ 10190 P0$="V{lj typ av drivenhet" : GOSUB 30100 10200 ON L% RESTORE 10040,10060,10080,810100,10120,10140,10160 10210 T%=V% : FOR I%=1% TO T% : READ T$ : NEXT I% 10220 ; CUR(R0%-1%,0%) "typ:" SPACE$(8%) T$ 10230 ON L% RESTORE 10050,10070,10090,10110,10130,10150,10170 10240 FOR I%=1% TO T% : READ D0$,P4$ : NEXT I% 10250 REM *** K = typ a8v winchcont. 10260 REM *** 1=Konan 2=CNWDCTR2:Adaptec 3=CNWDCTR:Xebec m fl 10270 K%=1% : IF L%<>2% K%=3% : IF L%=1% OR (L%=4% AND T%>1%) K%=2% 10280 IF LEFT$(D0$,1%)="&" D0$=RIGHT$(D0$,2%) : GOTO 12000 11000 ; 11010 IF LEN(D0$)=1% ; "Rekommenderad d8rivenhet: "; ELSE ; "Rekommenderade drivenheter: "; 11020 GOSUB 30080 11030 ; 11040 ; 11050 ; "V{lj drivenhet: "; 11060 GOSUB 30050 11070 D$=A$ 11080 IF INSTR(1%,D0$,D$) GOTO 11130 11090 ; 11100 ; 11110 ; "[r du s{ker p} det? "; 11120 GOSUB 30010 :8 IF F%<1% IF F%=0% GOTO 11030 ELSE ; B1$; : GOTO 11120 11130 D0$=D$ 11140 GOTO 13000 12000 ; 12010 ; 12020 ; "Den h{r disken {r s} stor att den m}ste" 12030 ; "delas upp p} flera CATNET-enheter." 12040 IF K%=1% GOTO 12100 12050 IF LEN(P4$)=0% ; "Deln8ingsdata saknas! " : STOP 12060 J%=1% : FOR I%=1% TO LEN(D0$) 12070 Z%=INSTR(J%,P4$,':') : IF Z%=0% Z%=LEN(P4$)+1% 12080 S%(I%)=VAL(MID$(P4$,J%,Z%-J%)) : J%=Z%+1% 12090 NEXT I% 12100 ; 12110 ; "Rekommenderade enheter: "; : GOSUB 30080 12120 ; 121830 ; "[r detta ok? J" CHR$(8%); 12140 GOSUB 30010 12150 IF F% GOTO 12220 12160 ; 12170 ; 12180 ; "Enheterna m}ste ligga i en f|ljd." 12190 ; "Vilken vill du ha som f|rsta enhet? "; 12200 GOSUB 30050 : IF D%+LEN(D0$)>17% ; B1$; : GOTO 12200 12210 Z%=L8EN(D0$) : D0$="" : FOR I%=1% TO Z% : D0$=D0$+MID$(H$,D%+I%-1%,1%) : NEXT I% 12220 D$=D0$ 12230 ; 12240 ; 12250 ; "Vill du generera alla enheterna nu? J" CHR$(8%); 12260 GOSUB 30010 : IF F% GOTO 13000 12270 ; 12280 ; 12290 ; "Vilken vill du generer8a? "; 12300 GOSUB 30050 : I%=INSTR(1%,D0$,A$) : IF I%=0% ; B1$; : GOTO 12300 12310 D$=A$ 12320 IF I%=1% GOTO 13000 12330 Q7$=CHR$(0%,24%)+"xxxx<"+LEFT$(D0$,1%)+":>" : IF CALL(P%)=0% IF K%<>3% GOTO 13000 ELSE GOTO 12470 12340 IF ERRCODE<>74% ; : GOSUB 383000 : GOTO 12420 12350 IF K%<>3% GOTO 12420 12360 ; 12370 ; 12380 Q7$=" A"+LEFT$(D0$,1%) : ; "Aktiverar " LEFT$(D0$,1%) ": "; 12390 IF CALL(P%) GOSUB 33000 : GOTO 12430 ELSE ; "ok" 12400 Q7$=" D"+LEFT$(D0$,1%) : ; "Deaktiverar " LEFT$(D0$,1%) ": "; 812410 IF CALL(P%)=0% ; "ok" : GOTO 13000 ELSE GOSUB 33000 : IF E9%=79% FOR I%=1% TO 20000% : NEXT I% : GOTO 12400 12420 ; 12430 ; 12440 ; "Enhet " LEFT$(D0$,1%) ": {r inte ACTiverad" 12450 ; "Det g}r ej att generera enhet " A$ ": ." 12460 END 12470 8; 12480 ; 12490 ; "Enhet " LEFT$(D0$,1%) ": {r ACTiv!" 12500 ; "Det g}r ej att generera enhet " A$ ": ." 12510 END 13000 ; 13010 ; 13020 ; "Vill du enbart testa en redan" : ; "genererad disk ? N" CHR$(8%); 13030 GOSUB 30010 : ; : IF F%<>1% GOTO 138080 13040 ; 13050 ; "Helt s{ker, det *TAR* tid? N" CHR$(8%); : GOSUB 30010 : ; 13060 IF F%=1% F6%=2% : GOTO 22000 13070 END 13080 FOR I%=1% TO LEN(D$) 13090 Q7$=CHR$(0%,24%)+"xxxx<"+MID$(D$,I%,1%)+":>"+SPACE$(40%) 13100 IF CALL(P%) IF ERRCODE=74% 8GOTO 13160 ELSE GOSUB 33000 : GOTO 12460 13110 ; 13120 ; 13130 ; "Disk " MID$(D$,I%,1%) ": {r redan aktiv." 13140 ; "Jag v{grar forts{tta!" 13150 END 13160 NEXT I% 13170 ; 13180 FOR I%=1% TO LEN(D$) 13190 ; 13200 ; "Vad skall disk " MID$(D8$,I%,1%) ": heta?" 13210 ; "(11 tecken, A-\,0-9) "; 13220 GOSUB 30000 13230 IF LEN(A$) IF RIGHT$(A$,LEN(A$))=":" A$=LEFT$(A$,LEN(A$)-1%) 13240 IF LEN(A$)>11% OR LEN(A$)=0% ; B1$; : GOTO 13220 13250 N$(I%)='' : FOR J%=1% TO LEN(A$) 13260 Z%=ASC (8RIGHT$(A$,J%)) : IF Z%>95% Z%=Z%-32% 13270 IF Z%<48% OR Z%>93% OR (Z%<65% AND Z%>57%) ; B1$; : GOTO 13220 13280 N$(I%)=N$(I%)+CHR$(Z%) 13290 NEXT J% 13300 N$(I%)=N$(I%)+SPACE$(11%-LEN(N$(I%))) 13310 NEXT I% 13320 F0%=0% : IF K%=1% GOTO 16000 133380 IF K%=2% GOTO 15000 13340 F0%=1% : F2%=128%+32%+16%+2% : F3%=-1% 13350 IF LEN(D0$)>1% AND LEN(D$)0% AND N4%<17% GOTO 141890 14180 ; B1$; : GOTO 14170 14190 ; 14200 ; 14210 ; "Mata nu in trasiga sp}r." 14220 ; "Format: huvud,cylinder." 14230 ; "Tryck bara f|r att avsluta." 14240 ; 14250 ; "huvud,cyl.: "; 14260 GOSUB 30000 : IF LEN(A$)=0% GOTO 14380 14270 I%=IN8STR(1%,A$,',') : IF I%=0% GOTO 14340 14280 ON ERROR GOTO 14340 14290 Z%=VAL(LEFT$(A$,INSTR(1%,A$,',')-1%)) : IF Z%<0% OR Z%>=N4% GOTO 14340 14300 L3%=Z%+VAL(RIGHT$(A$,INSTR(1%,A$,',')+1%))*N4% 14310 GOSUB 35000 14320 L3$=L3$+CHR$(L3%,SWAP%(L3%)) : GOSU8B 35000 14330 IF LEN(L3$)1% AND LEN(D$) )" 15110 ; "Format: Cylinder, Huvud, Byte-offset" 15120 ; 15130 ; "Cyl,Huv,By-off: "; 15140 GOSUB 30000 : IF LEN(A$)=0% GOTO 15240 15150 I%=INSTR(1%,A8$,",") : IF I%=0% GOTO 15230 15160 ON ERROR GOTO 15230 15170 C0%=VAL(LEFT$(A$,I%-1%)) : IF C0%<=0% OR C0%>2047% GOTO 15230 15180 J%=INSTR(I%+1%,A$,",") : IF J%=0% GOTO 15230 15190 H0%=VAL(MID$(A$,I%+1%,J%-I%-1%)) : IF H0%<0% OR H0%>15% GOTO 15230 152008 W0%=VAL(RIGHT$(A$,J%+1%)) : IF W0%<0% OR W0%>11000% GOTO 15230 15210 GOSUB 35000 : L3$=L3$+CHR$(0%,SWAP%(C0%),C0%,H0%)+CHR$(0%,0%,SWAP%(W0%),W0%) : GOTO 15120 15220 IF LEN(L3$)+6%<=P7% GOTO 15120 ELSE ; "F|r l}ng fellista" : STOP 15230 ; B1$; : GOTO 815140 15240 IF LEN(L3$) F2%=F2% OR 1% : L3$=CHR$(108%,0%)+CHR$(0%,0%,SWAP%(LEN(L3$)),LEN(L3$))+L3$ 16000 ; 16010 ; 16020 ; "Vill du g|ra en *ST\RRE* l{s- och skriv-" : ; "test p} disken efter genereringen? J" CHR$(8%); 16030 GOSUB 30010 : IF F% F6%=18% 20000 ; 20010 ; 20020 ; "[r du nu s{ker p} att allt {r r{tt? "; 20030 GOSUB 30010 : IF F%<>1% IF F% GOTO 20030 ELSE GOTO 12460 20040 ; 20050 ; "ABSOLUT s{ker? "; 20060 GOSUB 30010 : IF F%<>1% IF F% GOTO 20060 ELSE GOTO 12460 20070 ; 20080 ; 200980 ; "Avbryt INTE detta program nu!" 20100 IF F0%=0% GOTO 20220 20110 ; 20120 IF (K%=3% AND (F2% AND 8%)=0%) ; "Testar "; ELSE ; "Formaterar "; 20130 GOSUB 30080 : ; 20140 Q7$=" F"+LEFT$(D0$,1%)+CHR$(F3%,0%,0%,F2%)+L3$ 20150 IF CALL(P%)=0% ; " ok" : G8OTO 20220 20160 GOSUB 33000 : IF E9%=70% GOSUB 31000 : GOTO 20220 20170 IF K%<>3% GOTO 29999 20180 IF E9%<>52% GOTO 20400 20190 ; "Du har ett gammalt CATWC-PROM. ( 70% GOTO 20390 ELSE GOSUB 31000 20280 ; NUM$(ASC (RIGHT$(Q7$,4%))+256*ASC (RIGHT$(Q7$,5%))); 20290 ; " av totalt "; 20300 ; NUM$(ASC (RIGHT$(Q7$,2%))+256*ASC (RIG8HT$(Q7$,3%))); 20310 ; " sektorer hela." 20320 IF LEN(D$)=1% OR I%>1% GOTO 20380 20330 ; "ACTiverar " D1$ ": "; 20340 Q7$=" A"+D1$ : IF CALL(P%)=0% ; " ok" ELSE GOSUB 33000 : GOTO 20390 20350 IF K%=1% GOTO 20380 20360 ; "DEACTiverar " D1$ ": "; 280370 Q7$=" D"+D1$ : IF CALL(P%)=0% ; " ok" ELSE GOSUB 32000 : GOTO 20390 20380 NEXT I% 20390 IF F0%=0% OR K%<>3% GOTO 20450 20400 ; "Normaliserar " LEFT$(D$,1%) ": "; 20410 Q7$=" F"+LEFT$(D0$,1%)+CHR$(-1%,0%,0%,0%) 20420 IF CALL(P%)=0% ; " ok" ELSE G8OSUB 33000 20430 ; 20440 ; "Nu kan du avbryta programmet igen." 20450 IF E9% GOTO 29999 20460 IF LEN(D$)=1% OR K%>1% GOTO 22000 20470 ; "DEACTiverar " LEFT$(D$,1%) ": "; 20480 Q7$=" D"+LEFT$(D$,1%) : IF CALL(P%)=0% ; " ok" ELSE GOSUB 32000 : GOTO 299989 22000 IF F6%=0% GOTO 28000 22010 ; 22020 ; "Nu kommer en *ST\RRE* l{s- och skriv-" : ; "test som tar *L]NG* tid." 22030 ; 22040 ; "Aktivering: "; 22050 FOR I%=1% TO LEN(D$) 22060 ; " " MID$(D$,I%,1%) ": "; : A4%(I%)=0% 22070 Q7$=" A"+MID$(D$,I%,18%) 22080 IF CALL(P%)=0% ; "ok "; : A4%(I%)=1% ELSE IF ERRCODE=85% ; "akt."; ELSE ; "Error " ERRCODE : GOTO 22960 22085 Q7$=" MD"+MID$(D$,I%,1%)+SPACE$(16%) 22086 IF CALL(P%)=0% R3%(I%)=ASC (RIGHT$(Q7$,12%)) ELSE R3%(I%)=-1% 22090 NEXT I% 22100 ; 822110 FOR J%=1% TO 5% 22120 IF J%=1% M4%=85% : M5%=B%(0%) : B0%=0% : GOTO 22180 22130 IF J%=2% M4%=170% : M5%=B%(0%)+253% : B0%=17% : GOTO 22180 22140 IF J%=3% M4%=255% : M5%=B%(0%) : B0%=34% : GOTO 22180 22150 IF J%=4% M4%=0% : M5%=B%(0%)+253% : B80%=51% : GOTO 22180 22160 IF J%=5% M4%=108% : M5%=B%(1%) : B0%=0% : GOTO 22180 : REM *** Ger inget ID 22170 ; "Programfel" : STOP 22180 ; "Varv " J% " Fill 0" MID$(H$,M4%/16%+1%,1%)+MID$(H$,(M4% AND 15%)+1%,1%) "h Offset " B0% 22190 ; "Skriver s8ekv. "; 22200 FOR I%=1% TO LEN(D$) 22210 ; " " MID$(D$,I%,1%) ":" SPACE$(7%); 22220 Q7$=CHR$(0%,2%,121%,0%)+"??<"+MID$(D$,I%,1%)+":>"+W1$+CHR$(255%) 22230 IF CALL(P%) IF ERRCODE=21% GOTO 22260 ELSE ; " Fel vid |ppning " ERRCODE : GOTO 22840 22240 8 Q7$=CHR$(0%,4%,0%,0%) 22250 IF CALL(P%) ; " Fel vid borttagning av gammal fil " ERRCODE : GOTO 22840 22260 Q7$=CHR$(0%,2%,123%,0%)+"??<"+MID$(D$,I%,1%)+":>"+W1$+CHR$(255%) 22270 IF CALL(P%) ; " Kan ej skapa fil pga fel " ERRCODE : GOTO 22840 222880 B0$=STRING$(512%,M4%) 22290 B9%=B0% 22300 Q7$=CHR$(0%,7%,0%,0%)+CHR$(B9%,SWAP%(B9%)) : POKE M5%,SWAP%(B9%),I%+J%,B9% 22310 IF CALL(P%,B%(0%))=0% A$=NUM$(B9%) : ; STRING$(LEN(A$),8%) A$; : B9%=B9%+1% : GOTO 22300 22320 IF ERRCODE<>41% OR B9%=0% 8; " Fel vid skrivning " ERRCODE : GOTO 22840 22330 B4(I%)=B9%-65536*(B9%<0%) 22340 Q7$=CHR$(0%,3%,0%,0%) 22350 IF CALL(P%) ; " Fel vid st{ngning " ERRCODE : GOTO 22840 22360 NEXT I% 22370 ; 22380 ; "L{ser slumpm. "; 22390 FOR I%=1% TO LEN(D$8) 22400 ; " " MID$(D$,I%,1%) ":" SPACE$(7%); 22410 Q7$=CHR$(0%,2%,121%,0%)+"??<"+MID$(D$,I%,1%)+":>"+W1$+CHR$(255%) 22420 IF CALL(P%) ; " Kan ej |ppna fil pga fel " ERRCODE : GOTO 22840 22440 FOR I1%=1% TO 50%+B4(I%)/50% 22450 M6%=RND*10-2% : IF 8M6%<1% M6%=1% 22460 B1=(B4(I%)-B0%-M6%-1%)*RND+B0% 22470 FOR B9=B1 TO B1+(M6%-1%) : B9%=B9 22480 Q7$=CHR$(0%,6%,0%,0%)+CHR$(B9%,SWAP%(B9%)) : POKE M5%,SWAP%(B9%),I%+J%,B9% 22490 IF CALL(P%,B%(1%)) ; " L{sfel " ERRCODE : GOTO 22840 22495 A$=NUM$(B89%) : ; STRING$(6%,8%) SPACE$(6%-LEN(A$)) A$; 22500 IF LEFT$(B0$,256%)<>RIGHT$(B0$,257%) ; " Fel data i block " B9% : GOTO 22840 22510 NEXT B9 22520 NEXT I1% 22530 Q7$=CHR$(0%,3%,0%,0%) 22540 IF CALL(P%) ; " Fel vid st{ngning " ERRCODE : GOTO 822840 22550 NEXT I% 22560 ; 22570 ; "L{ser sekv. "; 22580 FOR I%=1% TO LEN(D$) 22590 ; " " MID$(D$,I%,1%) ":" SPACE$(7%); 22600 Q7$=CHR$(0%,2%,121%,0%)+"??<"+MID$(D$,I%,1%)+":>"+W1$+CHR$(255%) 22610 IF CALL(P%) ; "Kan ej |ppna fil pga fel " E8RRCODE : GOTO 22840 22620 B9%=B0% 22630 Q7$=CHR$(0%,6%,0%,0%)+CHR$(B9%,SWAP%(B9%)) : POKE M5%,SWAP%(B9%),I%+J%,B9% 22640 IF CALL(P%,B%(1%))=0% A$=NUM$(B9%) : ; STRING$(LEN(A$),8%) A$; ELSE 22670 22650 IF LEFT$(B0$,256%)=RIGHT$(B0$,257%) B9%=B9%+1% 8: GOTO 22630 22660 ; "Fel data i block " B9% : GOTO 22840 22670 IF ERRCODE<>38% ; "L{sfel " ERRCODE : GOTO 22840 22680 B9=B9%-65536*(B9%<0%) : IF B4(I%)<>B9 ; " Fel fill{ngd i block " B9% : GOTO 22840 22690 Q7$=CHR$(0%,3%,0%,0%) 22700 IF CALL(P%)8 ; " Fel vid st{ngning " ERRCODE : GOTO 22840 22710 NEXT I% 22720 ; 22730 ; "Tar bort filer: "; 22740 FOR I%=1% TO LEN(D$) 22750 ; " " MID$(D$,I%,1%) ": "; 22760 Q7$=CHR$(0%,2%,121%,0%)+"??<"+MID$(D$,I%,1%)+":>"+W1$+CHR$(255%) 22770 IF CALL(P8%) ; "Kan ej |ppna fil pga fel " ERRCODE 22780 Q7$=CHR$(0%,4%,0%,0%) 22790 IF CALL(P%)=0% ; " ok"; ELSE ; " Fel vid borttagning " ERRCODE 22800 NEXT I% 22810 ; 22820 NEXT J% 22821 ; "Antal omf|rs|k: "; 22822 FOR I%=1% TO LEN(D$) 22823 ; " " MI8D$(D$,I%,1%) ": "; 22824 Q7$=" MD"+MID$(D$,I%,1%)+SPACE$(16%) 22825 IF CALL(P%)=0% AND R3%(I%)>=0% ; ASC (RIGHT$(Q7$,12%))-R3%(I%) " "; ELSE ; " -- "; 22826 NEXT I% 22827 ; 22830 GOTO 22960 22840 ; 22860 ; 22870 ; "Skall testfilerna tas bort? J"8 CHR$(8%); : GOSUB 30010 : ; 22875 Q7$=CHR$(0%,3%,0%,0%) : Z%=CALL(P%) : REM **** ST{ng om |ppen 22880 IF F%=0% GOTO 29999 22890 FOR I%=1% TO LEN(D$) 22900 ; " " MID$(D$,I%,1%) ": "; 22910 Q7$=CHR$(0%,2%,121%,0%)+"??<"+MID$(D$,I%,1%)+":>"+W1$+CHR$(2855%) 22920 IF CALL(P%) IF ERRCODE=21% ; " -- "; : GOTO 22950 ELSE ; "Kan ej |ppna fil pga fel " ERRCODE 22930 Q7$=CHR$(0%,4%,0%,0%) 22940 IF CALL(P%)=0% ; " ok"; ELSE ; " Fel vid borttagning " ERRCODE 22950 NEXT I% 22960 ; 22970 FOR I%=1% TO LEN(8D$) 22980 IF A4%(I%)=0% GOTO 23020 22990 ; " " MID$(D$,I%,1%) ": "; 23000 Q7$=" D"+MID$(D$,I%,1%) 23010 IF CALL(P%)=0% ; "Deakt. "; ELSE ; "Error " ERRCODE 23020 NEXT I% 23030 ; 23040 IF F6%=2% GOTO 29999 23050 ; 28000 FOR I%=1% TO LEN(D$) 280108 ; 28020 ; "Vill du ACTtivera " MID$(D$,I%,1%) ":? J" CHR$(8%); 28030 GOSUB 30010 : IF F%=0% GOTO 28060 28040 Q7$=" A"+MID$(D$,I%,1%) 28050 IF CALL(P%)=0% ; B1$ " ok"; ELSE GOSUB 33000 28060 NEXT I% 29999 END 30000 INPUT LINE A$ : A$=LEFT$(A$,8LEN(A$)-2%) : B1$=STRING$(LEN(A$),8%)+SPACE$(LEN(A$))+STRING$(LEN(A$),8%) : RETURN 30010 GOSUB 30000 : IF LEN(A$)=0% F%=-1% : RETURN 30020 IF (ASC (A$) AND 95%)=74% F%=1% : RETURN 30030 IF (ASC (A$) AND 95%)=78% F%=0% : RETURN 30040 ; B1$; : GOTO8 30010 30050 GOSUB 30000 : IF LEN(A$)=2% IF RIGHT$(A$,2%)=":" A$=LEFT$(A$,1%) 30060 IF LEN(A$)=1% A$=CHR$(ASC (A$)+32%*(ASC (A$)>95%)) : D%=INSTR(1%,H$,A$) : IF D% RETURN 30070 ; B1$; : GOTO 30050 30080 FOR I1%=1% TO LEN(D0$) : ; MID$(D0$,I1%,1%) ":8"; : IF I1% " X$(I1%) 30170 NEXT I1% 30180 V%=-1% 30190 GOSUB 30280 : ; P0$ ":"; : GET G$ : H%=ASC (G$)-48% : IF H%>10% H%=H%-7% 30200 IF V%>=0% GOSUB 30270 : ; " " : IF ASC (G$)=13% GOTO 30230 30210 I8F H%>=0% AND H%<=N% V%=H% : GOSUB 30270 : ; "=>"; ELSE V%=-1% 30220 GOTO 30190 30230 IF V%=0% GOTO 30300 30240 FOR I1%=0% TO N% : GOSUB 30290 : ; SPACE$(5%+LEN(X$(I1%))) : NEXT I1% 30250 GOSUB 30280 : ; SPACE$(LEN(P0$)+1%) 30260 RETURN 30270 ; CUR(R08%+V%*R1%,K0%-3%); : RETURN 30280 ; CUR(R0%+N%*R1%+2%,K0%-2%); : RETURN 30290 ; CUR(R0%+I1%*R1%,K0%); : RETURN 30300 ; CHR$(12%) 30310 END 31000 ; 31010 ; "CATNET har slutat v{nta p} svar" 31020 ; "fr}n centralen. Vi v{ntar nu p} att" 31030 ; "CATN8ET startar igen och ANTAR att det" 31040 ; "gick bra. (Du b|r nog kolla fria ut-" 31050 ; "rymmet p} disken n{r HDGEN {r klar.)" 31060 ; 31070 Q7$="xTxxxxdddtttvk" : IF CALL(P%) GOTO 31070 31080 ; 31090 ; "Vi har f}tt kontakt med CATNET igen." 31100 8; "Genereringen forts{tter." 31110 ; 31120 ; "(Det kan g} fel nu.)" 31130 ; 31140 RETURN 32000 RESTORE 32010 : GOTO 33160 : REM *** Deact 32010 DATA 85,"Disken {r ej aktiv" 33000 RESTORE 33010 33010 DATA 85,"Disken {r aktiv" 33020 DATA 35,"L{sfel p}8 disken" 33030 DATA 36,"Skrivfel p} disken" 33040 DATA 42,"Disken ej }tkomlig" 33050 DATA 43,"Skrivskyddad disk" 33055 DATA 52,"Ej till denna disk" 33060 DATA 79,"Filer |ppna" 33070 DATA 80,"Har ej privilegium" 33080 DATA 84,"Ej CATNET-disk" 33090 DATA8 102,"F|r stort sektornummer" 33100 DATA 103,"Slut p} minne i centralen" 33110 DATA 104,"Minnesallokeringsfel i centralen" 33120 DATA 105,"Fel i diskdrivrutinen" 33130 DATA 112,"Kan ej formatera disken" 33140 DATA 113,"Systemblock trasigt" 33150 DATA 08,"" 33160 READ E9%,E9$ : IF E9%=0% GOTO 33200 ELSE IF E9%<>ERRCODE GOTO 33160 33170 ; "Error: " NUM$(E9%) "." : IF LEN(E9$) ; """" E9$ """." 33180 RETURN 33200 E9%=ERRCODE : E9$="" : GOTO 33170 34000 REM *** Multidrivenheter 34010 P$=CHR$(0%,0%) 340208 IF LEN(D0$)=1% B=65526 : RETURN 34030 IF D1$<>LEFT$(D0$,1%) GOTO 34080 34040 P$=CHR$(0%,0%,0%,0%)+CHR$(0%,LEN(D0$)) 34050 Z%=0% : FOR J%=1% TO LEN(D0$)-1% 34060 Z%=Z%+S%(J%) : P$=P$+CHR$(Z%,SWAP%(Z%)) 34070 NEXT J% 34075 P$=CHR$(64%,LEN(P$))+P$ 340880 B=32*S%(E%+1%) 34090 RETURN 35000 ON ERROR GOTO 35001 : IF 1%/0% REM 35001 RETURN ,0%,0%,0%)+CHR$(0%,LEN(D0$)) 34050 Z%=0% : FOR J%=1% TO LEN(D0$)-1% 34060 Z%=Z%+S%(J%) : P$=P$+CHR$(Z%,SWAP%(Z%)) 34070 NEXT J% 34075 P$=CHR$(64%,LEN(P$))+P$ 3408*S%(E%+1%) 34090 RETURN 35000 ON ERROR GOTO 35001 : IF 1%/0% REM 35001 RETURN ,0%,0%,0%)+CHR$(0%,LEN(D0$)) 34050 Z%=0% : FOR J%=1% TO LEN(D0$)-1% 34060 Z%=Z%+S%(J%) : P$=P$+CHR$(Z%,SWAP%(Z%)) 34070 NEXT J% 34075 P$=CHR$(64%,LEN(P$))+P$ 3408a9CA] *** HDGEN.BAC #121*** NJB 1985-01-21 v 2.0*** NJB 1985-01-30 v 2.1*** NJB 1985-03-19 v 2.2*** NJB 1985-03-28 v 2.3*** NJB 1985-05-05 v 2.4(#*** NJB 1985-06-26 v 2.5 (MICA 20)D?*** NJB 1985-811-05 v 2.6 (MICA 64,dea MICA 8:,test halv skiva)+&*** NJB 1986-06-02 v 2.7 (Tranfor 64)0+*** NJB 1986-06-11 v 2.8TX (Luxor 852/856)D?*** NJB 1986-12-23 v 2.9 (Cat-Cen inkl form,Disktest,852 16+4),d!*** OBS *M]STE* vara f|rsta var.8$n*** S{tt B0$ till DOSBUF 0 & 1Rx&,i᜸,ݸ,߸,ݸ,,ݸ,߸$ D᜸,ݸ,߸,ݸ,,ݸ,߸/*** DosbuffrarDnLJ`.`"䟵*** CatNet II CMD PROML$8.>HPR\fv(ƆƐF(ƚƤƮƸ *0123456789ABCDEF TERROR WIN\ # HDGEN V 2.9,$Generera h}rddisk f|r bruk i 8CATNET. ***#*** S|k r{tt p} adressen till'"*** maskinkodsrutinen som skickar'"*** kommandon till huvudmaskinen. ***yޜ$ { 2.݊Invalid hardwa8re.'8ߜ CURB✫m'"k"䊾0ޜ;mq*** PROGRAMFEL ***#r6<BHN!6<<B HN R1޵TNޟeRee RVR$RR4k8qRkkq Rq%wRww RBkՁ(@R RR# 2,295,32,7,1#0,0,0,295,1,0,590,128# 4,295,32,7,1."$-'0,0,0,295,1,0,590,2,0,885,3,0,1180,128T$ 4,8465,32,7,1/$.(0,0,0,465,1,0,930,2,0,1395,3,0,1860,128$4,596,32,7,2,1192$0,0,0,596,1,0,1192,128$ 4,596,32,7,0$0,2,0,596,3,0,1192,128%6,800,32,7,3,1600,3200&%0,0,0,800,1,0,1600,1280% 6,800,32,7,0:%0,28,0,800,3,0,1600,128D% 6,800,32,7,0N%0,4,0,800,5,0,1600,128$%#8,1000,32,7,4,2000,4000,6000%0,0,0,1000,1,0,2000,128%8,1000,32,7,0%0,2,0,1000,3,0,2000,128%8,1000,32,7,0%0,4,0,1000,5,0,2000,128%8,10080,32,7,0%0,6,0,1000,7,0,2000,128F'?'Cat Ingenj|rsbyr}',MICA,TranFor,Luxor,InfoData,Arado,Ampex,'' 'V{lj leverant|r%(($'}޵ .' JPi8''20 MB','55 MB',''%B'$&67,,&6789,28016:2016:2016:616BL'A;'32 MB',' 5 MB','10 MB','16 MB','20 MB','40 MB','64 MB',''-V',&&67,,9AB,,9AB,,9AB,,&89,,&89A,,&89AB,H`'GA' 5 MB Utbytbar',' 5 MB Fast','10 MB','20 MB','55 MB','64 MB',''Sj'RL67,,7,,7,,&78,1320:1320,&789A,1610:1610:1603:81603,&789A,2000:2000:2000:2000Bt'A;'850 (10 MB)','852 (20 MB)','856 (60 MB)',(852 16+4 MB),''?~'>8C,,&67,1216:1216,&6789,2000:2000:2000:2000,&67,2000:432%'$' 5 MB Removeable','15 MB','' ' 6,,7,B'A;' 5 MB Utbytbar','10 MB Fast','20 MB8 Fast','30 MB Fast',''*')#67,,7,,&78,1224:1220,&78,1836:1830 ''20 MB +Tape','20 MB',''#'(&CD,1280:1280,&CD,1280:1280!'ߟ Leverant|r: "'V{lj typ av drivenhet$'BHa$'}"޵" 8'ޟtyp:')/&#(޵"ƐƤ (*** K = typ av winchcont.;(6*** 1=Konan 2=CNWDCTR2:Adaptec 3=CNWDCTR:Xebec m fl/(޵ߍ൰ފ"ޖߵ(( &8*O+ފ!Rekommenderad drivenhet: ;"Rekommenderade drivenheter: ; +#+ +*+V{lj drivenhet: ;4+" >+¶HH+HOR+\+f+[r du s{ker p} det? ;'p+!ސ݊x ; 8z+H+../.'Den h{r disken {r s} stor att den m}ste*."delas upp p} flera CATNET-enheter./ފ*/¤݊Delningsdata saknas! /޵T޵R%&/T¤:݊ ¤ޜ'0/v¤T8T'ޜT:/D/%N/Rekommenderade enheter: ;D!X/b/[r detta ok? J ;l/N v///)/!Enheterna m}ste ligga i en f|ljd.-/$Vilken vill du ha som f|rsta enhet? ;"/7  ;;/8޵®ޟ /H//2/%Vill du generera alla enheterna nu? J ;/7Z//"0Vilken vill du generera? ;' 0W¶݊ ; 0¶H 0ފ<*80 xxxx< :>$݊P40J A#>0H0R0.\0 A $ Aktiverar  : ;f0 "{ok0p0 D $ Deaktiverar  : ;=z0݊ ok$8"O޵ N00+0Enhet  : {r inte ACTiverad00Det g}r ej att generera enhet ¶: .000#0Enhet  : {r ACTiv!00Det g}r ej att generera enhet ¶: .022A28Vill du enbart testa en redangenererad disk ? N ;2ލN2/2Helt s{ker, det *TAR* tid? N ;B3ފ ߵd33޵H*"3 xxxx($!,3Ja 863@3+J3Disk H: {r redan aktiv.T3Jag v{grar forts{tta!^3h3r3|3޵H`3+3Vad skall disk H: heta?3(11 tecken, A-\,0-9) ;3,3¶!¶¶:¶¶ޟ  3¶8¶݊ ;3f޵T¶w&3¶T _  130]A9 ;93ff 3#3fff34ݵ*ފ4ߊ84޵*ǀ ߜ0ީ6&4ޖH66 6Vill du formatera enhet;.6ފen :;erna ; 6? N ;#6%ފǀ 圵0Y6687Har disken tidigare varit formaterad8? J ; 7 0ᆵ077,(7$K{nner du till n}gra trasiga sp}r p}-27 disken? N ;`ސ \<7F7'P7Hur m}nga huvuden har disken? ;-Z7#¶'< <ݖ<d7;n7x7 78Mata nu in trasiga sp}r.7Format: huvud,cylinder.,7$Tryck bara f|r att avsluta.77 huvud,cyl.: ;7¶݊7¶,݊7.7¶¶,ޟ 'ݐ<g$7¶¶,ޜ8'<B77\BB \"7\\ 8;'88'"8Det {r f|r m}nga fel p} disken.*,8\ߣ \\0ކ068:ޖH:: :Vill du formater8a enhet;.:ފen :;erna ;q:? N ;:ސ':޵*ݵ0N 6::D: ),;$Format: Cylinder, Huvud, Byte-offset;;Cyl,Hu8v,By-off: ;$;¶݊0.;¶,݊8;(B;¶ޟ '<<ݙ< L;ޜ¶,TT݊/V;¶ޜTޟ'66ݐ6얆(`;¶Tޜ'HHݐH*`0j; \<<6 8HH \/t;\F|r l}ng fellista~;;4;\)0ކ0l \\ \\>>^>(Vill du g|ra en *ST\RRE* l{s- och skriv-$test p} disken efter genereringen? J ;>8޵ N*N-4N$[r du nu s{ker p} att allt {r r{tt? ;>NލOHNRNABSOLUT s{ker? ;\NeލfNpN%zNAvbryt INTE detta program nu!N*݊RN4N0刧݊Testar ;8 Formaterar ; N"N F 60 \$N݊  okNZFN.N4\N(Du har ett gammalt CATWC-PROM. ( ®>® 0OފfO Genererar >: ;*$O G>(( fR$..O݊  ok F*8O$ 8$ ;BO av totalt ;LO$ Չ$ ;VO sektorer hela.`OHފޖjO ACTiverar >: ;*tO A>$݊  ok_~OފIO DEACTiverar >: ;*O D>$݊8  okyODO*݊"O Normaliserar H : ;O F ީ $O݊  ok8O*O"Nu kan du avbryta programmet igen. O OHފޖO!O DEACTiverar H : ;-P8 DH $݊  oke U݊ UJV%Nu kommer en *ST\RRE* l{s- och skriv-test som tar *L]NG* tid.VV Aktivering: ;"V޵H#,V H: ;ݲ6V AH$G@V݊o8k ;޲&U akt.;Error H EV MDH$*FV݊$ ީJVOTV^V޵T⸼%hVTފUioݵe+rVTߊ Ǫioe'|VTi8o"ew)VTኾݵio3eN8VT⊾-lioݵe)*** Ger inget IDV ProgramfelJVVarv T Fill 0®iޜ®i숧ޜ h Offset eVSkriver sekv. ;V޵H@V8 H:;/Vy ?? $7V,i Fel vid |ppning V $;V0$ Fel vid borttagning av gammal fil ^/V{ ?? $2V8' Kan ej skapa fil pga fel Wi We5W  $o,,T,:&W݊'¶¶;ޜ20W)݊  Fel vid skrivning C:WՑݐ8DW $+NW  Fel vid st{ngning XWqbWlWL{ser slumpm. ;vW޵HW H:;/Wy ?? $2W' Kan ej |ppna fil pga fel <!W޵28~2(W ք ߂ސ޵%W~eނ e#Wޟ5W  $o,,T,&W L{sfel Z#W¶¶;7W8   Fel data i block WWX $+ X  Fel vid st{ngning X X*XL{ser sekv. ;4X޵H>X H:;/HXy ?? $0RX8%Kan ej |ppna fil pga fel  \Xe5fX  $o,,T,2pX݊¶¶;F$zX  ޜv!XFel data i block RX&L{sfel 83IXՑݐ~$ Fel fill{ngd i block X $+X  Fel vid st{ngning XXXTar bort filer: ;X޵HX H: ;/Xy ??8 $,X!Kan ej |ppna fil pga fel X $5Y݊  ok; Fel vid borttagning YY$YZ%YAntal omf|rs|k: ;&Y޵Hu'Y H: ;(Y MDH$<)Y݊8ݓ$  ;  -- ;*Y+Y.Y`8YLY0VYSkall testfilerna tas bort? J ;-[Y $**** ST{ng om |ppen`Y݊$jY޵HtY H: ;/~Yy ?? $DY9 -- ;f!Kan ej |ppna fil pga fel Y $5Y݊  ok; Fel vid borttagning YYY޵HqY݊XY H: ;Y DH$)Y8݊Deakt. ;Error YYZߊ Z`m޵Hjm1tmVill du ACTtivera H:? J ;~m݊5m AH$m݊ ok;m/u80uƶ¶¶ߟ ¶8¶¶:u¶݊ީDu¶ _J޵Nu¶ _NݵXu;(bue¶ߊ¶: ¶  .u uީ}7u8†:; Ƹ¸ 0++疾 +䟵+$u}ݓ ¸ ꊾ5-v+ݓ++}h=>;ީ} vrv}݊* vݵf.-*v-†ޜ4v>v};Hv8ߜߟ;Rv; \v fvy'"yCATNET har slutat v{nta p} svar+,y#fr}n centralen. Vi v{ntar nu p} att-6y%CATNET startar igen och ANTAR att det,@y$gick bra. (Du b|r nog kolla fria ut-,Jy$rymmet p} d8isken n{r HDGEN {r klar.)Ty#^yxTxxxxdddtttvk$hy,ry$Vi har f}tt kontakt med CATNET igen. |yGenereringen forts{tter.yy(Det kan g} fel nu.)yy}' *** Deact }%85,"Disken {r ej aktiv"考885,"Disken {r aktiv"35,"L{sfel p} disken"36,"Skrivfel p} disken"42,"Disken ej }tkomlig"43,"Skrivskyddad disk"52,"Ej till denna disk"$79,"Filer |ppna".80,"Har ej privilegium"884,"Ej CATNE8T-disk"$B#102,"F|r stort sektornummer"'L& 103,"Slut p} minne i centralen".V-'104,"Minnesallokeringsfel i centralen"#`"105,"Fel i diskdrivrutinen"%j$112,"Kan ej formatera disken"!t 113,"Systemblock trasigt" ~0,""+8ƚ݊E 1Error: .š"š".Є*** Multidrivenheter ڄ R䄕ފ א(> s  Rݵ޵Tޟ+% Tv8R R8@R RR Ն0ޜv(* ݣ}9$:.~> HzRz\ f~v}J"zzz z%$  y"y(x0y6<BHN Ty ek 8q w }yy y y zy yyI1*06<!B i! o) I 1 Hy +y9$:.~> HzRz\ f~v}J"zzz z%$  y"y(x0y6<BHN Ty ek MOVSYS BAS(@)))MV BAS(@)))MV 80 (@)))MV 800(@))NOALLOW BAS(@)))PRDEF BAS(@)))PRDEF 80 (@)))5PRDEF 800(@)))10 REM *** MOVSYS.800 V 1.3 20 REM *** NJB 1982 21 REM *** NJB 1984-02-23 v 1.2 22 REM *** NJB 1984-08-01 v 1.3 100 GOSUB 1000 : B%=62720% : REM dosbuf 0 110 ; CHR$(12%) : ; "# MOVSYS V 1.3" 120 ; : ; 'Kopiering av CAT-NET systemet.' 130 ; : ; 'Fr}n diskenhet'; : INPUT Q$ : IF RIGHT$(Q$,LEN(Q$))<>':' Q$=Q$+':' 140 Q8$='<'+Q$+'>' 150 ON ERROR GOTO 600 : F%=1% : OPEN 'stiefel' AS FILE F% : ON ERROR GOTO 800 : GOSUB 2000 : N1%=N% 160 ; 'Till diskenhet'; : INPUT Q$ : IF RIGHT$(Q$,LEN(Q$))<>':' Q$=Q$+':' 170 Q8$='<'+Q$+'>' 180 ; : ; 190 ON ERROR GOTO 700 : F%=2% : PREPARE 'stiefel' AS FILE F% : ON ERROR GOTO 800 : GOSUB 2000 : N2%=N% 200 Q8$='<'+Q$+'>' 210 ON ERROR GOTO 900 : OPEN 'cat:b' AS FILE 3% : INPUT LINE #3% A$ : CLOSE 3% : ON ERROR GOTO 800 220 IF LEFT$(A$,12%)<>"STIEFEL . " GOTO 400 230 B8%=93% 235 B9%=B8% 240 Q7$=CHR$(0%,6%,0%,N1%)+CHR$(B9%,SWAP%(B9%)) : IF CALL(P%,B%) GOTO 290 250 ; CHR$(13%) B9%; 260 Q7$=CHR$(0%,7%,0%,N2%)+CHR$(B9%,SWAP%(B9%)) : IF CALL(P%,B%) GOTO 500 270 B9%=B9%+1% 280 GOTO 240 290 IF ERRCODE=38% IF B8%=93% THEN B8%=93%+124% : GOTO 235 300 IF ERRCODE<>38% ; : ; "L{sfel " ERRCODE " i filen STIEFEL." 310 CLOSE 1% : CLOSE 2% 320 ; : ; : ; 330 END 400 ; "Filen STIEFEL hamnade inte f|rst p} enhet " Q$ 410 ; "Det g}r inte att starta fr}n en disk d{r" 420 ; "STIEFEL inte ligger f|rst." 430 GOTO 310 500 ; "Skrivfel " ERRCODE " i filen ""STIEFEL""." 510 GOTO 310 600 ; "Kan ej |ppna STIEFEL p} enhet """ Q$ """; "; 610 IF ERRCODE=21% ; "filen finns inte." 620 IF ERRCODE=74% ; "enheten finns ej." 630 IF ERRCODE<>21% AND ERRCODE<>74% ; "pga fel nr " ERRCODE 640 GOTO 310 700 ; "Kan ej skapa STIEFEL p} enhet """ Q$ """; "; 710 IF ERRCODE=74% ; "enheten finns ej." 720 IF ERRCODE=39% ; "skrivskydd." 730 IF ERRCODE<>74% AND ERRCODE<>39% ; "pga fel nr " ERRCODE 740 GOTO 310 800 ; "Fel nr " ERRCODE 810 GOTO 310 900 ; "Fel nr" ERRCODE " vid l{sning av katalog" 910 ; "p} enhet " Q$ 920 GOTO 310 1000 REM *** 1010 REM *** S|k r{tt p} adressen till 1020 REM *** maskinkodsrutinen som skickar 1030 REM *** kommandon till huvudmaskinen. 1040 REM *** 1050 DEF FNP2%(A%)=PEEK(A%)+SWAP%(PEEK(A%+1%)) 1060 IF PEEK(14%) P%=65403% ELSE P%=65034% 1070 P%=FNP2%(P%) : IF P%=0% ; "Invalid hardvare." : STOP 1080 IF CHR$(PEEK(P%+2%),PEEK(P%+3%),PEEK(P%+4%))<>"CUR" 1070 1090 P%=FNP2%(P%+5%)+39% 1100 REM p% {r nu adress dit man skall CALL'a vid Q7$-kommando. 1110 RETURN 2000 REM *** 2010 REM *** S|k efter r{tt logiska 2020 REM *** filnummer till en |ppnad 2030 REM *** datafil. Filnummer i F%. 2040 REM *** 2050 IF PEEK(14%) P8%=65344% : C1%=21% ELSE P8%=65074% : C1%=12% 2060 P8%=FNP2%(P8%) : IF P8%=0% ; 'Fel i programmet' : STOP 2070 IF PEEK(P8%+2%)<>F% GOTO 2060 2080 N%=PEEK(64833%+PEEK(P8%+C1%)) AND 31% 2090 RETURN fil. Filnumm. 2040 REM *** 2050 IF PEEK(14%) P8%=65344% : C1%=21% ELSE P8%=65074% : C1%=12% 2060 P8%=FNP2%(P8%) : IF P8%=0% ; 'Fel i programmet' : STOP 2070 IF PEEK(P8%+2%)<>F% GOTO 2060 2080 N%=PEEK(64833%+PEEK(P8%+C1%)) AND 31% 2090 RETURN fil. Filnumm +10 REM *** mv.bas v. 1.1 20 IF PEEK(14%) CHAIN 'mv.800' ELSE CHAIN 'mv.80' +@+ *** mv.bac V 1.1 *** NJB 1982 PLJ` #!PA=A6A64 )N=!PA 6A6 (XF=oF:Nb $ :" # MV V 1.1:: !'Flytta mellan bibliotek. # 3+('Fr}n: ;:Fξ -FFF(" =2F'纇,F"'<纇F' <:'Till: ;:Tξ ATTT(" =FT'纇,T"'<纇T' K: # 3+RPALFTο:M:K:A' :ZNMշ:QD:‚QFָ:'cat: I_:"!Bibliotekskopiering fr}n -> till :Fֻ" -> Tֻ". d:# ,BϾ: 3+xQB" L'Kop. Qֻ' (nej,J/A/R/I) ;:'AaRrA*㺇 Aξ &A_I㺇"I: -"JjAaRrA*㺇'N:d %Q&" 亇 QD :# ,BϾ: 3+9Aֻ:NAQָ:NN:d '"AaA*㺇 A' QD㺇 9::'Kopiera datafiler.:Fֻ' => Tֻ: IMշN QIAָ Ͼ: 3+!Q&"D亇  Qֻ;@; (‚QFָ:"CUR:Q (‚QTָ:"CUR:Q @Z,o::rQ2Nb ǀ P:' IAָ Ͼ: 3+3Z,o::rQ2Nb , P:' /rP(ILILշ:IϽ:KK 3++K㺇& Q,REFF(":RERE($':纇RERE", 6REREMz"> &JrQ2 ,RE, TP:' LILշ:IϽ:KK 3+E^bPFrQ2&:rP@rQ2& ޷ TREָ Z; '"TERROR<: ' <2Q` "##TMz",rP< FREָ QRETT(":RERE($':纇RERE", ' 3`+aL E9 *** mv.bac V 1.1 *** NJB 1982 X\ySy,>,,,+,ݸ,,,,A yy ք@ # MV V 1.1 Flytta mellan bibliotek+.#(Fr}n: ;-ߟ (2 <<><Till: ;Aߟ (F <<>K>P(8HݵXݵ^ d#ZXnݵt+zcat:踇@_!Bibliotekskopiering fr}n -> till  -> .d#,Ƅ x„ <Kop. Ž (nej,J/A/R/I) ;AaRrd݊ dd _I IY JjAaRrd NgŽ +޵t"dnŽnޜn/Aad݊ dt݊H1Kopiera datafiler. => XnޟŽD-Ž 搾Žޟ ŽŽ Ž+ޟ Ž;;zCUR:Ž޸zCUR:Ž߸!߫ ǀ ޫ ¯¯޵ ,>,޸,,+,ݸ,>+,,,<,,޸,ݸ,޸,,ݸ,߫,!,ݸ,ޫ~,,ǰ,>,߸,,+,ݸ,>,,,<,,3<,,,,Z,ݸ,,,ݸ,  ;;ޜ+7&(Felkod ;; vid kopiering.޸*߫  ¿*߫   ߸ XXnޟ60D+ޜAX4X^(X^8^H^ޜ^^ݖ" # ޟ 3$޵XޟޟXޟX*%ݵ^ޟ((ޟ&+(ݓj7'޵^?ޟ88ޟHH#(ޟ((^ޟ^+^݊5,88ޟ ))): ),)6)>)J )T_&^¯¯+¯3*c¯ >@¯ =(h=ǀ ##H?'iCC݊hCO$j= ##H?r twBIBBAT FANNS REDAN-| ##H+,ǀ ,( ##H,( ##H,¿ )5HHޟ ))): ),))>) )' ***#*** S|k r{t+t p} adressen till'"*** maskinkodsrutinen som skickar'"*** kommandon till huvudmaskinen. ***yޜ$ { 2.݊Invalid hardvare.'8ߜ CURB+✫m'"CUR" 1070 1090 P%=FNP2%(P%+5%)+39% 1100 REM p% {r nu adress dit man skall CALL'a vid Q7$-kommando. 1110 RETURN 7000 REM *** 7010 REM *** anropa 'comsend'-rutinen 7020 REM *** 7030 Z%=CALL(P%) : REM p% satt i subr. p} radn. 1000 7040 IF ERRCODE<1% A=A ELSE ; : ; : ; 'ERR' ERRCODE ' (se CAT-NET manualen)' : STOP 7050 RETURN LL'a vid Q7$-kommando. 1110 RETURN 7000 REM 0 REM *** anropa 'comsend'-rutinen 7020 REM *** 7030 Z%=CALL(P%) : REM p% satt i subr. p} radn. 1000 7040 IF ERRCODE<1% A=A ELSE ; : ; : ; 'ERR' ERRCODE ' (se CAT-NET manualen)' : STOP 7050 RETURN LL'a vid Q7$-kommando. 1110 RETURN 7000 REM +10 REM *** prdef.bas V 1.1 20 REM *** NJB 1983 30 IF PEEK(14%) CHAIN 'prdef.800' ELSE CHAIN 'prdef.80' +      !"#$%&'()*+,-./01234+ *** *** prdef.80 V 1.3 *** BMN 84-02-14 *** * Q^%0Qh%0Qr d ɀ  B; .Y|2ٺÀ `>:v  +++ Meny +++ .: fr}n disk med 9,8 +%B"# PRDEF V 1.3;:: 4" Definiering av centrala skrivare: =. I:'%( 0 ) L{mna programmet utan att spara:' ev. {ndringar ':'( 1 ) Spara nya definitioner (:'( 2 ) Visa/{ndra definitioner 9,8 +C$:'( 3 ) L{s in definitioner till:' centralenheten ).B'V{lj |nskat alternativ; H8X'2:Z'0123:@:TպB; ,:ɀ K +++ H{mta definitioner +++ sa/{ndra definitioner 9,8 +5 IF0غ:I@㺇 I9  DI: :  . ‚Q':'startup  Zĥo:o: # QrQhָ:Dʥ: + H{mta definitioner +++ sa/{ndra definitioner 9,8 +B 'Definitionsfilen STARTUP:'funnen p} diskenhet Dֻ O 'Skall den anv{ndas;:Z'jnJN:X'j:@:Tպ  Y|_J㺇 7 I:'#Hittar ej definitionsfilen STARTUP! definitioner 9,8 +P 'Skall en ny skapas ;:Z'jnJN:X'j:@:Tպ F % Y|_N㺇 Dʥ: ! +++ Skapa en ny STARTUP +++ )& :::‚Q':'q +0 'startup:Zԥ(f`:ڶ oner 9,8 +,: Qh.:QrQhָ:Dʥ D Zԥ(g:ڶ N : +++ Spara definitioner +++ M DʥQhQr޺.'Inga {ndringar gjorda.:Dʥ: J 'q & QhQrָ:Zԥ(g:ڶ r 9,8 +- 'Nya definitioner sparade.:Dʥ  :  %+++ Visa/{ndra definitioner +++ CF% : ej def./def. skrivare (0/1) ; C% : ABC-SIO/CN-SIO (0/1) S% : skrivarnummer (1-4) QhQrָ:Zԥ(g:ڶ r 9,8 += 'Visa/{ndra skrivardefinitioner:=.: -Dʥ㺇 :Dʥ㺇 5'Vilken skrivare (1-4);:Z'1234:@ .Tպ PS٥Y|2ٷ:(# "' Skrivare S٥պ' {r ; 9,8 +XQ^㺇D'inte definierad,:'skall den definieras?;:Fߥ:f 9' definierad,:'skall den vara det?;:Fߥ %Z'jnJN:X'j:@ S٥Y|2ٷ:(# "' Skrivare S٥պ' {r ; 9,8 +NY|_N㺇6I:IQ^:I:i /Q^:Markera skrivare definierad V'F|ljande anpassningskort finns::'(1=FIO, 2=CEN, 3=ABC-SIO, 4=OLD, 5=CN-SIO #Fߥ㺇X':E +YIF (korttyp=SIO) AND (CTC-port)=2 THEN korttyp=CN-SIO ; (CTC-dataord 2)=bygling A-H HXQ^0:Q^ Q^ງ X'5 #QX2ٷ:korttyp f|re LD, 5=CN-SIO #Fߥ㺇X':E +>' Ange korttyp;:Z'12345:@:TպE ^Q^Y|2ٷ:QQ^溇* Q^:Fߥ:korttyp {ndrad YQ^㺇*Q^: Q^:CC:CN-SIO/ABC-SIO +f'Ange kortnummer;:FߥպXQ^0.Q^㺇X"10X"60 3@:Ӌ:Q^Y|2ٷ::" 8:: 㺇*Q^: Q^:CC:CN-SIO/ABC-SIO +o"'Ange pollningsf|rh}llande;:FߥպXQ^0-Q^㺇X"2X"10 M,@:1:Y|2⺇ 1#Q^Y|2ٷ::6 18:" CC:CN-SIO/ABC-SIO +E6Q^㺇1Q^:Q^:' :skurl{ngd=3 R@'Ange skurl{ngd;:Fߥպ#XQ^Q^40X"800 IJ@:T:Q^Y|2ٷ:Q^Y|24::m T8:@ IO +rmQ^Fߥ޺S'Ingen }terst{llningssekvens:'skickas till skrivaren.:Q^:B ,r'#Nuvarande }terst{llningssekvens {r: "wQ^ﺇQ^ Q^Y|24::m T8:@ IO +c|IQ^:IQ^ 麇'^IQ^@ ;IQ^ ; I: 'Tecknens ascii-v{rden: NIQ^:IQ^0',;:I: T8:@ IO +T'Skall sekvensen {ndras ;:Z'jnJN:X'n:@:TպB ?Y|_N㺇 i'Max. 15 tecken f}r ing}. IQ^:IQ^0',;:I: T8:@ IO +l'Skall tecknen anges med dess:' ascii-v{rden ;:Z'jnJN:X'j:@:TպՏ (Y|_N㺇 *b. # L' Skall flera skrivare definieras ;:Z'jnJN:X'n:@ @ IO +Tպs Y|_N溇`  ;: @+++ Inmatningsrutin +++ -CX 㺇XX$:C 3JX'亇 ': ;' (Xֻ'): ; )TY|:Y|Y|Y|(": @ IO +-^Y| 㺇Y|Y|$:^ *hT:Y|'亇Y|Xָ yrZ'纇hZY|*Y|'X'Y|(޺+'Felaktig inmatning !!! ;::T |X':Z': @ IO +N(#I :IQ^QrS٥ I$:I 2# I#2Q':I:2Q2QIQ^ :I ?#QrQrS٥ "2QQrS٥ $ # ' : @ IO +)'+++ L{s in definitioner till centralenheten +++ 69,64 72400,69,32 74800,69,16 79600,69,8 +G>DʥQrQhຽ':"Spara f|rst definitionerna.:: >rQ|' O >hB:ZĥP: >Zĥ溇> j>'Nya definitioner inl{sta!::'OBS !!! CAT-NET har l{st in:'definitionsfilen fr}n disk med 9,8 +&>'h|gsta m|jliga nummer.:> N>ZH㺇='7Kan ej utf|ras, operativsystemet {ldre {n version 1.4 ! 9>ZĥH溇('ERR <' (se CAT-NET manualen). > hB*** $rB*** S|k r{tt p} addressen till len fr}n disk med 9,8 +'|B*** maskinkodsrutinen som skickar 'B*** kommandon till huvudmaskinen. B*** #B!PA=A6A64 $B6P{ P EBPP!P:P㺇"Invalid hardware.: fr}n disk med 9,8 +;BP6P6P6 "CUR纇BR %BPP!P' ?@ABCDEFGHIJKLMNOPQRSTiS|? ****** prdef.800 V 1.3*** BMN 84-02-14>(9*** v1.4 860303 BD endast vissa kortadresser kan v{ljas 2***<2Fք ք0ֆֆֆֆֆpֆtֆxֆ|  P Z5d ;n'ނ _`x +++ Meny +++ # PRDEF V 1.4;3 Definiering av centrala skrivare ==3( 0 ) L{mna programmet utan att spara ev. {ndringar&( 1 ) Spara nya definitioner'( 2 ) Visa/{ndra definitioner7-( 3 ) L{s in definitioner till centralenheten$V{lj |nskat alternativ;02(01232 <; +++ H{mta definitioner +++(FB0ީB@9BB: S"]startup޸ #޸,ggq޵{9"-Definitionsfilen STARTUP funnen p} diskenhet S:,Skall den anv{ndas;jnJN2j(c <6 _J/@D#Hittar ej definitionsfilen STARTUP!;JSkall en ny skapas ;jnJN2j( <T _Nݵ{!^+++ Skapa en ny STARTUP +++h] rstartup޸|ggq޵{ #޸g +++ Spara definitioner +++7{݊gq$Inga {ndringar gjorda.ݵ{ER #޸,݂#޸q&Nya definitioner sparade.ݵ{ ޸% +++ Visa/{ndra definitioner +++C>F% : ej def./def. skrivare (0/1) ; C% : ABC-SIO/CN-SIO (0/1)S% : skrivarnummer (1-4)8 Visa/{ndra skrivardefinitioner={݊`{݊,Vilken skrivare (1-4);12342<'r& Skrivare  {r ;G0݊9inte definierad,skall den definieras?;ݵ21: definierad,skall den vara det?;޵DjnJN2j(4N _N ݵB Bݲ!+XMarkera skrivare definieradTbF|ljande anpassningskort finns:(1=FIO, 2=CEN, 3=ABC-SIO, 4=OLD, 5=CN-SIOl݊ (YvTIF (korttyp=SIO) AND (CTC-port)=2 THEN korttyp=CN-SIO ; (CTC-dataord 2)=bygling A-H/ޜ(ߊߊ5((' korttyp f|re. Ange korttyp;123452;<@'ނޜ޲ݵkorttyp {ndrad:ኾ߲߲޵ݵCN-SIO/ABC-SIOHAnge kortnummer;(ߊ 10(60(h'n ݊[Felaktigt kortnummer, nummer;ՁՁ ;till}tna4 =QAnge pollningsf|rh}llande;(ߊ 2(10(.v$'݂' w0ߊ"ಈݲ" skurl{ngd=3= Ange skurl{ngd;( 800(-#'' X*݊݊D3Ingen }terst{llningssekvens skickas till skrivaren.ݲ+4#Nuvarande }terst{llningssekvens {r:>얾첇LHB:B ^B@ ;B ; R\Tecknens ascii-v{rden:8fBB,; ?pSkall sekvensen {ndras ;jnJN2n(&<6z _NMax. 15 tecken f}r ing}.R*Skall tecknen anges med dess ascii-v{rden ;jnJN2j(< _N@> Skall flera skrivare definieras ;jnJN2n(2 < _Nu  ;+++ Inmatningsrutin +++'( : ; ((): ;ߟ  ݵ<(U2I2݊(ޖ$Felaktig inmatning !!! ;޵<(22ݵB Bq ߟB 7$ݵB%q ߟB(=B .8'BJEnheten ej aktiverad7L+$Kan ej hitta skrivardefinitionsfilen0VERR(se CAT-NET manualen)޸`+++ ABC-SIO, CN-SIO +++^jAnge SIO-kanal A eller B;abAB2'ǀ݊ A(B(B(t<~ _B@8岈ݲǀ =<( Ǡ@ Ange paritet; j{mn(ފ udda(݊ ingen((݊ ingen( Eީ _I ݵ'I' _J 'J' _U ޵'U' ީ= BAnge antal stoppbitar;鈧ՄՀ(2(<(11.52'ՂނႠ |2S<Ⲉ䲈㲈岈ݲ@ `FFAnge antal databitar;` (7(P56782<4Z'ނǀߜ圲DTR l}g, RTS l}gd+n&+++ Sekvens med tangentbordskoder +++ xAvsluta sekvensen med: #ݵ  #T( ^ @ ;; ޜ    쐾 &!+++ Sekvens med ascii-v{rden +++&Skilj v{rdena med kommatecken.3ߟ ݲݵ N, s  ޟ ''8ޜ 쐈 ޜ* Onumeriskt v{rde inmatat!&!+++ Baudraterutin f|r CN-SIO +++:2Hastigheten best{ms delvis av bygel A-H p} kortet.Ange inst{lld bygling;7"abcdefghABCDEFGH2@ (E((,x< _@A6Denna bygling ger tre m|jliga|verf|ringshastigheter.S@֖#X=;#Ղ;Y=;#Ղᜧ;Z=;#Ղ✧*J@W (Z(TAnge |nskad hastighet;^xyzXYZ2h<*h? _W@r'|"+++ Baudraterutin f|r ABC-SIO +++,$\verf|ringshastighet 50-38400 baud."Ange |verf|ringshastighet;݊2400(iRJ(+11& K2% {r unik f|r varje hastighet ( 2we%7+1781+?@ /16 mode ' 50,5,234 75,5,156& 110,5,1060 150,5,78: 300,69,256D 600,69,128N 1200,69,64X 2400,69,32b 4800,69,16l 9600,69,8v 19200,69,4 38400,69,21Ange diskenhet: ;SSSߟ SS:݊ S:S50+++ L{s in definitioner till centralenheten +++9{ݍqg&Spara f|rst definitionerna.  OAKQQݍgNya definitioner inl{sta!OBS !!! CAT-NET har l{st indefinitionsfilen fr}n disk med"h|gsta m|jliga nummer.qpQH>7Kan ej utf|ras, operativsystemet {ldre {n version 1.4 !&ERR  (se CAT-NET manualen). ***# *** S|k r{tt p} adressen till'"*** maskinkodsrutinen som skickar' "*** kommandon till huvudmaskinen. ****4yޜ> {K K2HKKK݊Invalid hardware.'RKߜKK CUR\K✫m'K"CUR" 1070 1090 P%=FNP2%(P%+5%)+39% 1100 REM p% {r nu adress dit man skall CALL'a vid Q7$-kommando. 1110 RETURN %) P%=65403% ELSE P%=65034% 1070 P%=FNP2%(P%) : IF P%=0% ; "Invalid hardvare." : STOP 1080 IF+EEK(P%+2%),PEEK(P%+3%),PEEK(P%+4%))<>"CUR" 1070 1090 P%=FNP2%(P%+5%)+39% 1100 REM p% {r nu adress dit man skall CALL'a vid Q7$-kommando. 1110 RETURN %) P%=65403% ELSE P%=65034% 1070 P%=FNP2%(P%) : IF P%=0% ; "Invalid hardvare." : STOP 1080 IF [[\]^_`ab+10 REM *** usrs.bas V 1.0 20 REM *** NJB 1983 25 ; : ; : ; "# USRS V 1.0" : ; : ; 30 ; "Lista alla inloggade anv{ndare." : ; 40 IF PEEK(14%) K0%=1% ELSE K0%=0% 50 IF PEEK(14%) K9%=PEEK(-172%) ELSE K9%=40% 60 K%=K0% 70 GOSUB 210 80 FOR I%=0% TO 31% +90 Q7$=" ;"+CHR$(I%,16%)+SPACE$(40%) 100 Z%=CALL(P%) 110 IF Z% IF Z%<>73% ; "ERR" ERRCODE " (se CATNET-manualen)." : STOP ELSE 190 120 ; TAB(K%) "#"; 130 IF PEEK(14%) ; NUM$(I%); ELSE ; RIGHT$(NUM$(I%),2%); 140 ; TAB(K%+4%); 150 Z%=INSTR(1%,Q7$,+"<") 160 ; MID$(Q7$,Z%,INSTR(1%,Q7$,">")-Z%+1%); 170 GOTO 180 180 K%=K%+20% : IF K%>=K9% K%=K0% : ; 190 NEXT I% 200 END 210 REM *** 220 REM *** S|k r{tt p} adressen till 230 REM *** maskinkodsrutinen som skickar 240 REM *** kommandon till huvudma+skinen. 250 REM *** 260 DEF FNP2%(A%)=PEEK(A%)+SWAP%(PEEK(A%+1%)) 270 IF PEEK(14%) P%=65403% ELSE P%=65034% 280 P%=FNP2%(P%) : IF P%=0% ; "Invalid hardvare." : STOP 290 IF CHR$(PEEK(P%+2%),PEEK(P%+3%),PEEK(P%+4%))<>"CUR" 280 300 P%=FNP2%(P%+5%)+39% 3+10 REM p% {r nu adress dit man skall CALL'a vid Q7$-kommando. 320 RETURN 330 REM *** 340 REM *** anropa 'comsend'-rutinen 350 REM *** 360 Z%=CALL(P%) : REM p% satt i subr. p} radn. 1000 370 IF ERRCODE<1% ; 'ok' ELSE ; 'ERR' ERRCODE ' (se CAT-NET manua+len)' 380 RETURN ess dit man skall CALL'a vid Q7$-kommando. 320 RETURN 330 REM *** 340 REM *** anropa 'comsend'-rutinen 350 REM *** 360 Z%=CALL(P%) : REM p% satt i subr. p} radn. 1000 370 IF ERRCODE<1% ; 'ok' ELSE ; 'ERR' ERRCODE ' (se CAT-NET manua+80 RETURN ess dit man skall CALL'a vid Q7$-kommando. 320 RETURN 330 REM *** 340 REM *** anropa 'comsend'-rutinen 350 REM *** 360 Z%=CALL(P%) : REM p% satt i subr. p} radn. 1000 370 IF ERRCODE<1% ; 'ok' ELSE ; 'ERR' ERRCODE ' (se CAT-NET manua@ccdefghijk+aU  *** DISKTAB.BAC V 1.3*** NJB 1986-10-19 v 1.0*** NJB 1986-10-21 v 1.1*** NJB 1986-11-02 v 1.2*** NJB 1986-11-18 v 1.3# DISKTAB V 1.3( 2(&dݵ 䜸] 犾 㜵 C#n +0  MD%&x:;LJ`TERR% /% 5% ;% A%0G% M;/݊  -- ; /ǀ  Act;  Mta;+;;;3Ղ+h ;#M(M) ;35劾( MICA 32 MBDisk DrA;I5Aǰ 1CNWDCTR2Disk DrݸPartA;I5AǰǠ1CNWDCTR2Tape DrݸPartA;MC5Aǰ+튈- Luxor 832/838Flex DrA; ?5Aǰ݊) Luxor 830Flex DrA;v5ߊAǀ݊`CNWDCTRDisk DrA ;GݍAݍ LtrkAG;ZUx5ߊAǀǀ+`CNWDCTRTape DrA ;GݍAݍ LtrkAGn;G5ފ<MICA ;;ߐ;ᖆ 20/40/64 MB; 5/10/16 MB;S5ފHDisk Drݸ;AݍGݍ"h=A c=G;HC+ "5݊ Odefinierad;#",Konstig drivrutin5A;6@  ***#*** S|k r{tt p} adressen till'"*** maskinkodsrutinen som skickar'"*** kommandon till huvudmaskinen. ***yޜ$+ {S S2.SSS݊Invalid hardvare.'8SߜSS CURBS✫m'S el. .8(PF1 avbryter)>ݵHHN ǀT `;0123456789ABCDEFabcdefB0123456789ABCDEFABCDEFL Z+t$31,28,31,30,31,30,31,31,30,31,30,31/޵jj陸jZjޜj,.݊ ZF*** leap years ",Bj '\j ,< j6¦24j@œw3jESnabbvalsmeny.2 j[J=V.g. Ange |nskat Backupalternativ eller Programmets Huvudmenyo*jj8_Tjݐj('^j.jwj}hwN}N&,rj8jN1|1 Huvudmeny.A jijj8  j݊njފj$jޟ lW)nH ¦2jœ1jH  Z2j1j Backup L>!jEntry fast choice+~1ݖBandenhet aktiv jWOk att s{kerhetskopiera .(;`till band omedelbart?jj.tj. .<jlBackup Timer controlled 4@  u#Entry fast choice $qOk att s{kerhetskopiera .;: till band` vid tidpunkt 5& (cirka)?jj&` . .&<jT  Make Fast Choice (  C -Z $Ok att l{gga till snabbkopiering av .U9 (w}Y.)?AH .w}F1ݐ ݫj™ j<Tape Directory+\.ݖBandenhet aktivY j 97'6visa bandinneh}llet p}8J⡜ jh£$4j$ Restore+-ݖBandenhet aktiv j }terl{sa till' }terl{sa fr}n(XPOK att }terl{sa bandenhet 'M£:' till diskenhet '8:'?T1 Helt s{kert att du vill }terl{sa#✫ j#£ 89 j pMount Tape Unit(T~,jjݖ Lj$ajݖVEnhet '$(:' {r en aktiv bandenhet. Aktivera {nd}?^ݵj 58aktivera4'ZOK att aktivera bandenhet 'M£:' som CatNet-enhet '$:'?2r j)d£$ 9 j5${9%j£$9jXUnmount Tape Unit T>*jjސ*Ingen bandenhet f.n. aktiv.jLj$4 OK att deaktivera enhet '$:'? >Entry if already mounted$8j#$ݜ$8tj@Remove Fast ChoiceH.Ange det snabbvalsalternativ du vill ta bort. z!jjݐC $OK att ta bort snabbvalsalternativ 'j'? 2l j,ݍ ݫ j™Vj 4!Abort Time Backup3!"OK att }terkalla tidsstyrd backup?0 %! 123456z5&j`"(# Act disk#aktivera#N#(jjݖ:Lj8*Annat akt.kommando f|r bandhj7#Ok att aktivera diskenhet '8:' ?Z  T$8H6jj T j$% Deact disk% deaktivera."P%'jjݖ , . <;#n- ݊+s-o,’>  y3,.R-);R,,ݸ6. |.Wait.g18TyyG.R- *** V{nta () ***;R,,ݸ. .Meny.!%-yy .(2/ݵt. ;琾 ;2/)ޜ. ;琾 ;/ޜߜ&/. 0/ :/>;!D/88N/j'X/ݐ]/ b/l/Hv/GAAvsluta,]terg} till Snabbvalsmeny,Direkt Backup,Tidsstyrd Backup4/3-Visa Bandinneh}ll,]terkalla Tidsstyrd Backup/=7Aktivera Bandenhet som Disk,Deaktivera Aktiv Bandenhet5/4.Aktivera Diskenhet,Deaktivera Aktiv Diskenhet4/3-]terl{s en hel diskenhet fr}n band (Restore) /'' 0Menyini0r9^yzPH 0ݵk&ޜޟ*0ݸ40 3Yesno3/0y33 ; Ja> ;3X883j _JH3j _NN3j݊33 X4Confirmb4>I%,:0yl4KNv4 hBEtx(rBy(I R0P0Pyyyyy01wBG|BCG ފSpecial CatNet II vs IBB B޵tB B޵FBƙ+B ݐ uBB BB B޵?Cƙ$C™ (CatNet)C&CFel: , ™0C™ () :C[D\DEfD yXypD݊ݸzD0D™D88D%PF$0,**** Fellistor special ****ZF 68,-1,Deact dF79,\ppna filer p} diskennF85,Disken {r ej aktiv xF 0,*F 77,66,BackupF35,L{sfel p} diskenF42,Band ej klartF43,Band skrivskyddatF48,Skrivfel p} bandetF52,Kan ej kopieraF87,Enhet monterad F 0,*F77,82,RestoreF36,Skrivfel p} disken"F!42,Band eller disk ej klarF43,Disk skrivskyddadF48,L{sfel p} bandetG52,Kan ej kopieraG84,Disk ej genereradG87,Enhet monterad$"G#102,F|r stort banddelsnummer ,G 0,*6G 77,77,Mount@G42,Band ej klart"JG!85,\vermonterad disk aktivTG87,Enhet redan monterad$^G#102,F|r stort banddelsnummer hG 0,*rG77,85,Unmount#|G"85,Monterad bandenhet aktiv"G!87,Annan enhet {r monterad G 0,* G 0,0,*$8J#0,**** Fellista Allm{nt *****KJ)#19,Kan ej |ppna fler filer (BASIC)LJ20,F|r l}ng rad lokaltMJ21,Hittar ej filenXJ32,Lokal fil ej |ppenZJ34,Slut p} filen[J 35,L{sfel\J 36,Skrivfel%^J$38,Recordnummer utanf|r filen_J39,Skrivskydd`J40,RaderskyddaJ 41,Disk fullbJ42,Disk ej klarcJ43,Skrivskyddad diskhJ 48,BandfellJ52,Otill}ten operation'{J& 67,F|rbindelsen bruten (Net-II)'|J& 68,Kortstatus ej i tid (Net-II)}J69,Kortsynkfel (Net-II).~J-'70,Felmeddelande fr}n n{tkort (Net-II)#J"71,F|r l}ngt paket (Net-II)&J%72,Felaktigt centralt kommandoJ73,Central fil ej |ppen J74,Central disk finns ejJ75,Centralt skrivarfel,J+%76,Centralen kan ej |ppna fler filerJ 77,L{sskyddJ78,Central fil delad/J.(79,Central fil existerar eller {r |ppenJ80,Har ej privilegiumJ81,Fil {r bibliotekJ82,Bibliotek {r datafilJ83,Bibliotek {r ej tomt$J#84,Disk har ej CatNet-formatJ85,Disk {r aktivJ86,Felaktigt l|senordJ87,Enhet monterad$J#98,Fatalt centralt SystemfelJ99,Fel i pekarblockJ100,AllokeringsfelJ101,Fel i bitkarta)J("102,F|r stort logiskt blocknummer"J!103,Slut p} centralt minne0J/)104,Fatalt centralt minnesallokeringsfel+J*$105,Fel p} centralt diskadapterkort J112,Fel vid formattering*JT#113,Systemblock fel vid generering+K&!! data 0,**** Fellista CatNet-I ****/CK.(1067,S{ndningskvittens ej i tid (Net-I)*DK)#1068,S{ndare ej klar i tid (Net-I)1EK0*1069,3 S{ndingsf|rs|k misslyckade (Net-I).FK-'1070,Svar p} kommando ej i tid (Net-I)4GK3-1071,3 Mottagningsf|rs|k misslyckade (Net-I)M0,Felaktigt fel ???? NBackdev (Backdev$)*N#y y 9 4Nr0>N(Vilka enheter vill du kopiera till band?2HN&(Anges som 6:,7: f|r enhet 6: och 7:) >#RN>;ޟ|88\Nj,: mj fNzN޵j#NjސNj(=LN햾 㟵/N Enhet upprepadN(=$NޜP1Nj݊ Inga enheter^?-N䖾"F|r m}nga enheter1 Nj.NݸN88N N NStripNZ1wz zy zPN޵J:O݊ ޜޟ ޜ OO LODevspecVO1uzy_`OB݊GFelaktig enhetsbeteckning '' 88N jO~ORbacktim (backtim$)R^&Hy R6R68E R 3 Central klocka saknas i systemetX8"RF1$R Aktuell central tid (just nu!): Q&RITidsstyrd s{kerhetskopiering. Kopiering kommer att ske automatiskt vid en0Rvalbar senare tidpunkt.lR~88vRݸR STimcalcSgA&QyS8ES 3 Central klocka saknas i systemet8SSw݊}޵wSw@SZ(Zޜ%S閾޲ޜScݲS}ݲݲ`TݸT TbcdtimeTq 2^2y T޵=㙸(T  숧TޜTݸU (Utime2U&2y yzP!;&TVNN)88^VݐYhVޟ z=0 => NoWW Prfastchoice&W!3yy 0WݵiYR:Wޜ. e#^DWޜNWݸvWW FastnameW9'y W/=X5Vilket namn skall detta snabbkopieringsalternativ ha?4 X,Namnet best}r av 20 tecken, vilka som helst.'XNamnet tolkas aldrig av CatNet. X *X>;!4X8>XjHCX YDiskdevYa)2y Y')YVilken diskenhet vill du ?Z Z>;Zf88Zj: Xj.(Zjސ88`2ZL8[ݸ\]]Tadev (Tadev$,Tapart)])2y ]=ߵ)]Vilken bandenhet vill du ?1])(Exempel p} korrekt bandenhet {r 'M60:'.)] ]>;^K88^j: =j^j$^j Mj m2.^jސ888^LjB^0123jސKFelaktig banddelsbeteckning 'j'Y88 L^ޟV^ݸDa eInqtime[I2ByReJTiden anges som dag och timme. Om dag utl{mnas sker kopiering n{r angiven "etimme infaller n{sta g}ng.eeDag : ;$eHݫ޵88eݐ떆 ew ejeTimme : ;&fNN~޵88&fݐ +f}0fݸNfXf Askfasttimbf$' y lf-ܵLvfDSkall detta snabbvalsalternativ medf|ra att backup sker direkt eller:f2vid en senare tidpunkt? Svara Ja om direkt backup.!fH88fHNwN}ݸ f[۵f88fݸf g Prfasttim*gv'ayyy 4gNN Direkt2>gDag: + Tim: d.00Hg 0uIsmont:u\*EyDu NNu Xuݸޜuu Showmontu!#8yuݐݸfu݊&Ingen bandenhet f.n. aktiv.6Enhet 'L:' {r en aktiv bandenhet.uݸuy Lastback"yi#8yyyy,y N1y;+6y   ;yMB0@yATy0Backup inplanerad  (cirka).ݸl^y݊YBackup avslutad ,݊ Status: okݸ Status: '™'.ݸ/hy'Ingen backup inplanerad eller avslutad. {ݸ|} Wrfastfil })( !yq4} lN} M(}2} NN:d}H# ,Yޜ硸! ,,,,n} Yޜ} N"~~ Rmfastfil~;)+#5yy q4~NN!~sN N2~#,#, #, EOF mark~ݵxY~ON~e#,ޜ硸! ,,,,~ޜݸ~N~耐 Refatsfilv3\q4_NN!=N N ܂ݸ6@ OpenfastfilJ{4aq4y T޵A^"V h᜵N Prepfastfil{I5aq4y ޵Aƒ"V ̃᜵N Readfastfil4q4y x5ݵYݵv(B&*f#, +݊C0ޜY%:"#,D#,Ng ЄTadir ڄ1)5 6yy   z ܄;߄ Bᄔ BandenhetSyst# Disknamn  Backuptid℔ݵD޸#fݸLast part reachednݵM:;-# Չ ;9    ޟ :; ;*+/4ܵ4ޜT Montdevˆ9(#yzÿݵ퐸шֈ?ܸr 3ѵ5[r det ok att anv{nda : som bandenhet?0Hص88HAޜ9'Ingen (mer) ledig enhetӵ 8 $&ݸ0 䉐Devspec!-1y0斧 Devlist%mb6zy  :ߵ5 ,:*ޜ 4> Tapeunitj:U2yyyz ϵݵ퐸Ȍ͌BڸҌ፾܌ጕ ݊r ε8Vill du  'M0:', M 1:' osv. ?HH ݸhޜ/rInga (fler) m|jliga bandenheterе |8$ @BackupJL%456)T MB___  h Backuptim^&D5667 MS___  œ Backtimstat /4 MTi& (Restore2F)0566#< MR__"P Diskdef2!66$ MD8 MontG*2586%  MM__  ૐUnmont꫌DY*2586% MU__ ^ ȯActү29*6ܯ A-𯍇 Deact4*6ij Dس hGettime r,1| T PÐQ7ini ZÌ"d{-3AnÕߜ CUR- CUR: ????x-''޵x`y`z` CMDߵàݸÍ8ǐQ7Bnj9~:y LQ+ޜ-0 VB`Ǖ݊7ߊ,᜸,,,᜸,2,ݸ jǠtǍZPrgVerDoesWfileWfiledevsMaxfchoiExitmessAbortAboYesNoCrlfPd1Pd2DayspermonthQ7iniScrShowmontLastbackFastchoiBackdevFchodDayFchotdHourFchothMenyConfirmDevlistBackupBacktimTimcalcTimeBackuptimTimebcdFastnameAskfasttimPrfasttimWrfastfilEtxMessMontdevTadevTadirDiskdevTapartRestorMontActUnmontIsmontDeactFchonRmfastfilEq80RsizeRbar1Rbar2Rbar3RcheadRcinfoRcinquRcmessRcmontRcbacktWipeinfoWipeinquWipemessGlineMaxGnumberDalwDvalKollKollkollYesnoDfltTxCommentCommandErcomEcextEclaStripDevspecGettimeBcdtimeInqtimDattimBcdAccWhatPrfastchoiNbrfchoiRefastfilBacktimstatWfOpenfastfilReadfastfilPrepfastfilChoGarbTuMuDiskdefListDulTimPaDuRciquPrewbitRctimeRctadirGcNowaitWaitList280CursPafZpafDfaRoutnameRzizeCnaIfMenyiniTapeunitNbrcomAbrcom:92$(.#8b)B*"LJ"Vj `"jz tb,~,6 -B-z-*>$$$9 " B  ( .2!8y!>!H!N!T)7Zm"jywi$}$ya::'J))8++,1,,j77z+011Yy3y JTapeunitNbrcomAbrcom:92$(.#8b)B*"LJ"Vj `"jz  r)}ACT BAS @)))ADDOPT ABS @)))AUTO BAS @)))AUTO 80 @)))AUTOPT BAC @)))BASICERR800 @)))BASICINISYS @)))BREV BAS @)))+10 REM *** ACT.BAS V 1.2 12 ; CHR$(12%) : ; "# ACT V 1.2" : ; : ; : ; 20 ; "Aktivera drivenhet nummer:"; 30 INPUT A1$ : IF ASC (A1$)>95% A1$=CHR$(ASC (A1$) AND 95%)+RIGHT$(A1$,2%) 35 IF LEN(A1$)=2% IF RIGHT$(A1$,2%)=':' A1$=LEFT$(A1$,1%) 40 IF LEN+(A1$)<>1% OR A1$<'0' OR A1$>'F' OR (A1$>'9' AND A1$<'A') ; "Nummer 0-9,A-F tack." : GOTO 30 50 Q7$=" A"+A1$ 55 GOSUB 1000 60 GOSUB 7000 70 END 1000 REM *** 1010 REM *** S|k r{tt p} adressen till 1020 REM *** maskinkodsrutinen som skickar 1030 REM *** +kommandon till huvudmaskinen. 1040 REM *** 1050 DEF FNP2%(A%)=PEEK(A%)+SWAP%(PEEK(A%+1%)) 1060 IF PEEK(14%) P%=65403% ELSE P%=65034% 1070 P%=FNP2%(P%) : IF P%=0% ; "Invalid hardvare." : STOP 1080 IF CHR$(PEEK(P%+2%),PEEK(P%+3%),PEEK(P%+4%))<>"CUR" 10+70 1090 P%=FNP2%(P%+5%)+39% 1100 REM p% {r nu adress dit man skall CALL'a vid Q7$-kommando. 1110 RETURN 7000 REM *** 7010 REM *** anropa 'comsend'-rutinen 7020 REM *** 7030 Z%=CALL(P%) : REM p% satt i subr. p} radn. 1000 7040 IF ERRCODE<1% ; 'ok' ELSE+ ; 'ERR' ERRCODE ' (se CAT-NET manualen)' 7050 RETURN  man skall CALL'a vid Q7$-kommando. 1110 RETURN 7000 REM *** 7010 REM *** anropa 'comsend'-rutinen 7020 REM *** 7030 Z%=CALL(P%) : REM p% satt i subr. p} radn. 1000 7040 IF ERRCODE<1% ; 'ok' ELSE+' ERRCODE ' (se CAT-NET manualen)' 7050 RETURN  man skall CALL'a vid Q7$-kommando. 1110 RETURN 7000 REM *** 7010 REM *** anropa 'comsend'-rutinen 7020 REM *** 7030 Z%=CALL(P%) : REM p% satt i subr. p} radn. 1000 7040 IF ERRCODE<1% ; 'ok' ELSE ERROPT RELISAMOPT RELISAMPTC REL""! `8n! 4*`-`!0`!~5g.~(N#>@(H"N#`8, Ps-`*.~(`=.V.^K@yHBp`0{7Ԋ* !`!o**"q2346234E23_:"G(*LE%Ob9B"*LEd?C */ -`*=. "7! #t! G#g†(Mo _!% ߇O qo 0mki!a_ 2346234E23@][*!P{/_z/WC`~#F#N#( :pO:G!jo B*[_++7!B!OOO?~#F#N#( :O/:GxAOq#2346234E23p#BASICINIS YSADDOPT ABS~O:G!jo B*[_++7!B!OOO?~#F#N#( :O/:GxAOq#2346234E23@+10 REM *** auto.bas 20 REM *** NJB 1983 30 IF PEEK(14%) CHAIN 'SYS:AUTOPT.BAC' ELSE CHAIN 'SYS:AUTO.80' +*** auto.bas 20 REM *** NJB 1983 30 IF PEEK(14%) CHAIN 'SYS:AUTOPT.BAC' ELSE CHAIN 'SYS:AUTO.80' `+ *** auto.80 *** NJB 1983 "*** G}r endast med PROMmade (*** slavrutiner - 2" # AUTO V 1.0: <dʀ F" USR:INI.SYS PZ‚o:o: Zx d<<&ງ AȂ 020 REM **+n" USR:INI.SYS xZ‚o: Y"&Detta program ordnar s} att automatisk:"$uppstartning sker vid inloggning hos O"$dig. Ge en rad p} max 119 tecken som:"skall utf|ras vid inlogning: : AȂ 020 REM **+5Q҂! AȂ *** F503 JP 0F506H *** F506 LD HL,0F50CH #*** F509 JP 0F4H ; BASIC-kom. *** F50C DEFM 'rad' *** F5xx DEFB 13 Z‚o:  "ERROR<: AȂ 020 REM **0!n    *** autopt.bac*** (c) cat AB 1983*** v 1.1 NJB( # AUTOPT v 1.1Q2IDetta program definierar vad som skall h{nda vid inloggning p} ett konto.V<LF|rst kan ett antal optioner laddas in, d{refter ka0n en basicstr{ng utf|ras.F$P" b y z  z(Z(); dݵn޵$ߟx$ .9 testa '.'吾޵_0  *0]9A  >  }吾  b&吾/     *Felaktig namn, f|r0s|k igen ;K@ 7y4|-195,7,245,0,229,33,93,245,34,131,255,225,201"kod om ej optioner1,ݵ < <X6Q17,79,245,14,255,33,19,253,52,205,27,96,229,33,19,253,53,225,227,208,227,225,201@0kod + f|reg-2 om optioner1Jݵ~ M MTݸ^h=!4zyr| basicini.sys޸#޸,Ձ #޸  '㊾Gammal CATNET-BASICINI/#޸,ք@ #޸ ݵW0޵W#޸,և #޸]踇/#޸,և4 #޸gǖgg  g65 gݵW ADDOPT ABS] basicini.sys޸ݸi"@zy"޵q% addopt.abs߸ݵw  sys:addopt.abs߸0޵w'#߸, #߸ x&ݵݵ}^݊0 #߸ <:޵) #߸}踈}ޜ}DNݸ?XGamla ADDOPT.ABS paj!!!!!!׌;ݵ}b l: vo0G] ADDOPT ABS#W ja nejݵ}nej:Vill du ha med n}gra optioner (§);§# _J ݵ}2Nuvarande basicstr{ng:"ggޟ "^#$ޟ*H$}# # RW#*\fp#Cz z -}݊"Inga tidigare optioner.:T0idigare optioner: ޵$}=7Option$= $ޟ .$ޟQHOm du vill ta bort n}gon option, skriv dess nummer h{r. Annars vagnretur;v šޟ}YXݵq}:ޟ$}ޟ0$$ޜ}ޟ} }ޟ}b,Om du vill l{gga till n}got, skriv namnet p}optionsfilen h{r ;}REL#}}ޜ}ݵq ;[r du f{rdig (ja); _Nݸ0OptFilnamnExtPfFpEpFlagInitCodenooptCodeoptOpeniniOptflAssBasicGetearlieroptionsGoonUpdflgSysflgDefFr}gaoptBasic1Ufrz  $y <!Mj!W!]"g:"q!#wY#}yx y##1$ _Nݸ ok$0@KVi okKan ej |ppna fler filerF|r l}ng rad (>160tkn)Hittar ej filenNyckel borttappad (ISAM)Fatalt fel (ISAM)Registret har inte blivit st{ngt (ISAM)Filen ej |ppnadSlut p} filenChecksummafel vid l{sningChecksummafel vid skrivning okFelaktigt sektorformatSektornummer utanf|r filenFilen skrivskyddadFilen raderingsskyddadSkivan fullEnheten ej klarSkivan skrivskyddadLogisk fil ej |ppnadFel logiskt filnummerFel enhetsnummerFel trapnummerFel i biblioteket okFelaktigt fysiskt filnummerEnheten upptagenEj till denna enhetFunktionstangentIEC-b}de s{ndare och mottagareIEC-mottagare ej aktivIEC-s{ndare ej aktivTecken fr}n tangentbordet ej i tidOgiltigt tecken inl{stFelaktigt "NAME" okMottagaren kvitterar ej (67)Felaktig tidspecifikationMeddelande har ej kunnat s{ndas (69)Tiden ute vid mottagning p} n{tet (70)Fel vid mottagning (71)Felaktigt centralt kommandoCentral fil ej |ppenCentral skiva finns ejFel p} central skrivare okKan ej |ppna fler centrala filerFilen l{sskyddadCentral fil deladCentral fil finns redanPriviligierat kommandoBiblioteket {r en datafilFilen {r ett bibliotekBiblioteket {r ej tomtFelaktigt skivformatSkivan {r aktivFel l|senord okBiblioteket {r fulltFel i bibliotekskartaError 98, Allvarligare systemfelFel i pekarblockFelaktig filallokeringsinformationFel i bitkartaF|r stort sektornummerSlut p} minne i centralenMinnesfel i centralenFel p} central enhet okFel vid formatteringFel vid genereringNyckel finns ejDubblettnycklarFelaktig nyckelFel vid kontroll{sningIndex finns ejFelaktig postl{ngdFel ISAM-filversionF|r stort flyttalIndex utanf|r till}tet omr}deF|r stort heltal okFel i ASCII-aritmetiskt uttryckIndex utanf|r str{ngenNegativ "SPACE$","STRING$" eller "TAB"<1F|r l}ng str{ngEj till}tet |ka "DIM"Fel v{rde i "ON"-uttryck"RETURN" utan "GOSUB"Felaktig "RETURN"-variabelData slutFelaktigt argument i funktion okFelaktig "SYS"-funktionEj till}ten rad"FNEND" utan f|reg}ende "RETURN""PRINT USING" felFelaktiga dataF|r lite indata"RESTORE" ej p} en "DATA"-radF|r mycket indata"RESUME" utan felGrafisk punkt utanf|r sk{rmenHittar ej detta radnummer okFelaktigt inhopp i funktion"NEXT" eller "WEND" saknas"FOR" eller "WHILE" saknasFel variabel efter "NEXT"Blandade "FOR"-loopar med samma variabel"FOR"-loop med lokal variabel ej till}tetFunktion ej definieradFlera funktioner med samma namn okFelaktig funktionFel antal indexEj tilldelningsbar i funktionEnheten ej anslutenMinnet fullt"LIST"-skyddat programFel programformat"MERGE" g}r ej p} ".BAC"-fil"COMMON" felAnv{nd kommandot "RUN"Kan ej forts{ttaOtill}tet som kommando okFel data till kommandoFelaktigt talPrecision f}r ej {ndrasF|rst}r ejOtill}tet tecken efter satsenM}ste st} f|rst p} en radFel antal eller typ av argumentOtill}ten blandning av tal och str{ngarEj enkel variabelFelaktig sats efter "ON" ok"," saknas"=" saknas")" saknas"AS FILE" saknas"AS" saknas"TO" saknasRadnummer saknasFelaktig variabel0!]"O!4`!5iniOptflAssBasicGetearlieroptionsGoonADDOPT ABSflg isamdemo Basic1Ufrz  $y <!Mj!W!]"g:"q!#wY#}yx y##1$ _NݸOptFilnamnExtPfFpE+10 REM *** brev.bas V 1.1 20 REM *** ]JK 1982 30 ; CHR$(12%) : ; "# BREV V 1.1" : ; : ; : ; 'V{lkommen till postkontoret !!' 40 ; : ; 'Till vem vill du skicka brev ?'; : INPUT LINE M$ : M$=LEFT$(M$,LEN(M$)-2%) 50 ; : ; : ; : ; 'Om du redan har skrivi+t ett brev,' : ; 'anger du h{r vad det heter.' 60 ; : ; 'Annars trycker du '; : INPUT B$ 70 IF B$='' THEN F%=-1% ELSE 110 80 ; CHR$(12%) 'Vars}god och skriv !!!' : ; : ; 'Du skriver som p} en skrivmaskin,' 90 ; 'dvs endast ''<-'' fungerar.' : ;+ "Raden s{nds med .'" 100 ; 'Brevet avslutas genom att ''>'' skrivs p} en ny rad.' : ; : ; 'Vad skall brevet heta'; : INPUT B$ 110 M$='<'+M$+',BREVL]DA>' 120 Q9$=M$ 130 Q7$='x!xxxx'+CHR$(128%,0%) 140 GOSUB 1000 : GOSUB 7000 150 IF F%=0% THEN OP+EN 'usr:'+B$ AS FILE 1% 160 ; : ; : ; : ; 170 PREPARE 'cur:'+B$ AS FILE 7% 180 ON ERROR GOTO 220 190 IF F% THEN ; '>'; : INPUT LINE A$ : ; ELSE INPUT LINE #1%,A$ 200 IF LEFT$(A$,LEN(A$)-2)='>' GOTO 220 210 ; #7%,A$; : GOTO 190 220 CLOSE 1% : CLOSE 7% +: Q9$='<*,*>' 230 Z%=CALL(P%-3%) 240 Q7$='x!xxxx'+CHR$(51%,0%) 250 GOSUB 7000 260 ; : ; : ; 'OBS!! Standardskyddet {r nu }ter PS,GEW' 270 ; 'och du {r nu tillbaka d{r du loggade in.' 280 END 1000 REM *** 1010 REM *** S|k r{tt p} adressen till 1020 REM+ *** maskinkodsrutinen som skickar 1030 REM *** kommandon till huvudmaskinen. 1040 REM *** 1050 DEF FNP2%(A%)=PEEK(A%)+SWAP%(PEEK(A%+1%)) 1060 IF PEEK(14%) P%=65403% ELSE P%=65034% 1070 P%=FNP2%(P%) : IF P%=0% ; "Invalid hardvare." : STOP 1080 IF CHR+$(PEEK(P%+2%),PEEK(P%+3%),PEEK(P%+4%))<>"CUR" 1070 1090 P%=FNP2%(P%+5%)+39% 1100 REM p% {r nu adress dit man skall CALL'a vid Q7$-kommando. 1110 RETURN 7000 REM *** 7010 REM *** anropa 'comsend'-rutinen 7020 REM *** 7030 Z%=CALL(P%) : REM p% satt i su+br. p} radn. 1000 7040 IF ERRCODE<1% ; 'ok' ELSE ; 'ERR' ERRCODE ' (se CAT-NET manualen)' 7050 RETURN  man skall CALL'a vid Q7$-kommando. 1110 RETURN 7000 REM *** 7010 REM *** anropa 'comsend'-rutinen 7020 REM *** 7030 Z%=CALL(P%) : REM p% satt i su+radn. 1000 7040 IF ERRCODE<1% ; 'ok' ELSE ; 'ERR' ERRCODE ' (se CAT-NET manualen)' 7050 RETURN  man skall CALL'a vid Q7$-kommando. 1110 RETURN 7000 REM *** 7010 REM *** anropa 'comsend'-rutinen 7020 REM *** 7030 Z%=CALL(P%) : REM p% satt i suCLOSEALLBAS @)))CP BAC @)))DCREINDEXBAC @)))SCRELIB BAS @)))`CRENHET BAS @)))sCREUSER BAS @)))~DATE BAS @)))DEACT BAS @)))+10 REM *** CLOSEALL.BAS V 1.0 20 REM *** 30 ; CHR$(12%);'# CLOSEALL V 1.0' : ; : ; : ; : ; 'Alla ev. |ppna filer {r nu st{ngda.' : ; : ; : ; : ; 55 GOSUB 1000 60 FOR I%=0% TO 6% 70 Q7$=CHR$(0%,3%,0%,I%) 80 Z%=CALL(P%) 90 IF ERRCODE>0% AND ERRCODE+<>73% ; 'ERR' ERRCODE 100 NEXT I% 105 FOR I%=64849% TO I%+6%*16% : POKE I%,255% : NEXT I% 110 END 1000 REM *** 1010 REM *** S|k r{tt p} adressen till 1020 REM *** maskinkodsrutinen som skickar 1030 REM *** kommandon till huvudmaskinen. 1040 REM *** +1050 DEF FNP2%(A%)=PEEK(A%)+SWAP%(PEEK(A%+1%)) 1060 IF PEEK(14%) P%=65403% ELSE P%=65034% 1070 P%=FNP2%(P%) : IF P%=0% ; "Invalid hardvare." : STOP 1080 IF CHR$(PEEK(P%+2%),PEEK(P%+3%),PEEK(P%+4%))<>"CUR" 1070 1090 P%=FNP2%(P%+5%)+39% 1100 REM p% {r +nu adress dit man skall CALL'a vid Q7$-kommando. 1110 RETURN 7000 REM *** 7010 REM *** anropa 'comsend'-rutinen 7020 REM *** 7030 Z%=CALL(P%) : REM p% satt i subr. p} radn. 1000 7040 IF ERRCODE<1% ; 'ok' ELSE ; 'ERR' ERRCODE ' (se CAT-NET manualen)' 7+050 RETURN  man skall CALL'a vid Q7$-kommando. 1110 RETURN 7000 REM *** 7010 REM *** anropa 'comsend'-rutinen 7020 REM *** 7030 Z%=CALL(P%) : REM p% satt i subr. p} radn. 1000 7040 IF ERRCODE<1% ; 'ok' ELSE ; 'ERR' ERRCODE ' (se CAT-NET manualen)' 7+URN  man skall CALL'a vid Q7$-kommando. 1110 RETURN 7000 REM *** 7010 REM *** anropa 'comsend'-rutinen 7020 REM *** 7030 Z%=CALL(P%) : REM p% satt i subr. p} radn. 1000 7040 IF ERRCODE<1% ; 'ok' ELSE ; 'ERR' ERRCODE ' (se CAT-NET manualen)' 7       !"#$%&'()*+,-./0123456789:;<=>?@ABC0a"\nskade optio0ner,d-~,f*.*-*.*,p=8#8'$.޵8;8 '% . _ .#&/.  .,.!'.ߐ`Optioner klara2(PDFBNRMS. ݊+..t03)...,ޟAntal tecken till ","*v$+. `L. `= ,,??? ..ߟ- .Datum/Dagens i Push$0. 8.ߜ.*18? !`S{kerhetskopieri0ng>28-8㖆Datumform: }}mmdd#38ޜj 8ޜ"48ޟ ``*V`&5j* Vjj݊~j67 8Skydd9:ݵ3;PGU?*=,. ޟݐኾ0 <..㊾$=ߖ✧ݵ(>= och PGU om|jligt+?EWRS,. ޟݐ???/@..ኾ. ,X","2Aߊ'ߐ 㜵, UR / US ???]B0ᡜZ"Ce..Fel med utskriftD EFilmaskFG. -/H.ޜ#~ ޜ(I.ޟ "t.ߜ.JKNy/befintlig/radera/mergeL'M"Inga argum0ent till dessa(N..៧ O,B}de ny och befintlig ?#P`..Fel utan utskriftU VMV-filW6X...>..݊..mvd.$Y7. 8.ޜ߸ZD ߵa0%[,??? . , felkod:$d ¢V "&iݫ# &nޫ $q݊$݊kFs$݊ሾ-Radera filer (j/n) jJnN$0xݵG|r kopiering {Vޖ V.7, Deaktivera V:>)#DV: deaktiverad.VVީ= -@ . .0޸,1Kopieringsrutin6#;;>8Cat:޸@/VV*EFr}n  > till $>(Jޫ`jt ="OxFilval'TV0VV90!Y툾 Ej sorterat^ߟcޜޟF@h)m3rSorterat ### av ### ޜ; w2|Kopiering fr}n  > till $>0ޟ* D1Det {r en fil!ޜ6 ~?_޵踼H)~ ?~ ݵ?>0$> v=)1$LVV 3 Kopiering $>,%L(,V0Y/VV(   ޟ 80-$X4D,0Blankt biblioteke$a@Ska biblioteket raderas (j/n) jJnNYߖgNej ޵VV: Ej skydd=)1$LVV0. Kopiering $>#'/$/VV/LL)$$V0V0 $V0 $ީBreak" ݵሾ Inte radera.0  > , .& Skydd bort) .. S ![ndra ej bibskydd3&  $> ,L .++$R0V0VLL5ޜ:V0VV?D Fel-skrotI$NM|jligt programfel:SީAvbryt)X \ppna katalog!!]bVVLLgީEAvbryt3lSkydda >0  @3qRadera >  6 o3vSkydda $> W < %Mata in biblioteksnamn*(+Z'+*,%y,*&,I%-.25.Fr}nTillޜ biblioteket (0>),,/?%> ݵ N  ޜ 5C     _ MR < < &W  > ޟ +Y :  ޵޵ ݵ0-Z " ߟ  5\ ;ީ LjAF Var {r vi3a..>bAktuellt bibliotek,f >.݊k Nya placethjJ ErrorEp݊:޵0Ska enheten aktiveras (j/n) jJnNr݊tAA.h/v >.݊Found + deact8xDD.! Deaktivering,z (= S|knin0gD VV/ ;ީ Lx OTL{s&ފV.V Till-enhet.  5@97z. Posl{sningޜ޸ .0%*.,J.(#ߟ R & +/Ǡ -/,᜸,++ @;Prot = Skyddskod, b8 ej beh b9 ev kopias b10 originalets?:Opn b01 000 Any file 01 Old file 10 New file 11 Illegal(#! b2 Radera originalfil efter}t&!! b3 Merge p} befintlig kopia!Start Startsektor i filen!$Fr}n$=Till$ => Kopiera inte.(8 !:!a! xR".Pyyr",B,0  .$L L. Vv&`.0?-j. . Spara Q7$ f|r filtyp)l  .݊ .n .]terst{ll unders|k7t0sRadering skyddning(vEj flyttning samma bib'x> > G,z  .*|⩵4 Name av fil~`!Ej Skoph8cat:޸0&. &#޸88 8 #"tQrunchigt fel*8A. ,800숆 8ޜ( ㊾8 Datum ok30  . $߈ Finns redanNew# .;"O.0? 刾Merge* . .0$#(ވ Finns inteOld+2 ! /.%<  .a,F  D .5P /  .Zk. d)޸Gn.0 Չ. "x ;-.  *)ՁMarkera fullt3  .0  .Typ finns ej ?0  /.6D,))Error 41 = Skivan full/ݐ^Ej radera originalfilen* ." .ݸ904Kopiera biblioteket Bibl$ fr}n till #Om prt=-2 ta ev. kopias skyddC>Returnerar biblioteket Bibl$:s r{tta skydd, -1 = Error!!:! "a!R"q"" Ej originalets3  0>PP ., !5& *.0?34  >PP .>cH.&R.0?'\. >@.0 +f ! /.)p ǀ  >,.z4 O%.(= C(  >,.L(  0>, . ީ + &L{nka ihop biblioteksnamnen A$ och B$ 6 g2",zz,:ݍ  & !Ta bort ett biblioteksnamn ur b$  )zy %0 ޜ, &  ޟ ,__ borttaget' :  & A/j till Fil$(Fil) Sens$ Global svarvariabel&A""##j#*0*$R$z)y˜ a #.6% ! D?TݵFޜ-?5"1,0 Kopiera .  (Nej,j,a,i,r) )6 ESk{rmen {r inte full.@'ީǃScrolla en |ver kanten+J  L{gg till det nya filnamnetT^ Input slingahr  飍|air˜݊ 0njari˜݊%  食&n ; Ƙ˜ ꊾn#˜  ޟ ˜a˜ h!  食&˜; jar˜ J " 0ݸ˜a:9[r valet OK ? nNjJ " &ީǃ&ݸ0: ݊=!DD,ǃީN ޜX   bl02-H{mta in ett av alternativen i tkn$ med $%J%zy  ;  ꊾ޸) ; ;%  ꍾ ; pzFixa till en filmask0R%!% &*&A&q&y #EL{s in filnamn  .  ???  ޜ .S" *? ) _ 0z' ݊ XbQ6$=Inloggat biblioteklv&yy* ;ީ Ko븿0Y+.<..>.튾.B.70@J L{gg in *,*T^2'Z'zPzhB<*,*w"rBޜ'|BߊBޟ),U<* ,(#9+!:!!)a!"zzzzz0(y 2#@<#!Skivan full, }tg{rd (Byt/Avbryt) aAbBE)F# ;ީ . .@P#!Skall filen Delas eller Raderas dDrR@,Z#  .d# .ݵ(n#0RaderingHx#  4# ޜ, , #  0#  >,ޜ.1#&Skydda4u#0ߜ#"#DD .݊C-# Deaktivering : #Felkod:;@#!Ny skiva isatt (j/n) jJnNߖx# 5\@#!Ska skivan formateras (j/n) nNjJ0U#D 1CB$E!Vilken densitet (Enkel/Dubbel) eEdDߖ9$ F ( . Formaterar,#$ G Haslunds_MV.6"$ Genererar,.0sektorer;/,$0ޟNya styrkortet6$AA .% @$'J$,ޟ ߜ$T$ JﯾY2^$)& #&h$Skapa @)r$ 0 |$%$޸Fixat@$!Ska kopiering aborteras ? jJnNߖ -$D,)ݸError 41 = Skivan full-$  . .$($Skyddborttagning70x$$&% Fatalt fel0%:%y zQ+ D%N%Felkod:  ;X%# "L{sfel"b%$ "Skrivfel"#l%%"Fel sektorformat"%v%&"Block ej allokerat"%' "Skrivskydd"%0( "Raderskydd"%) "Skivan full"!%*"Skivan ej klar"&%+"Skivan skrivskyddad"(%BI"\verf|ringsfel"&%I"Logisk fil ej |ppen"&%J"Skivan ej aktiverad"1%L%0 "F|r m}nga |ppna filer centralt"%M "L{sskydd"%N "Delning"0%O$"Filen finns/Kan ej deaktivera"4%P(#"Priviligierat kommando, option p?""&T"Ej CATNET-skiva"B &U61"Kan ej formate0ra aktiv skiva/Skivan deaktiverad"$&`"Biblioteket fullt"$ &a"Fel i biblioteket"*&b "Fatalt fel"#4&c"Fel i pekarblock"*>&d"Fel vid radering av fil"!H&e"Fel i bitkarta"&R&0p"Fel vid formatering"%\&q"Fel vid generering"+f&ǃ"Kan ej handha fler filer"p&ߊฐAvbryt om fil?z& Avbryt/Omf|rs|k/Forts{tt (foa) fFoOaAߣ &&OpnFilOldfilFatalRader0aKopiaFr}nTillProtEd80StartKbibBiblAddPswTypLnPrtValFilnrFdatTdatMaskFdatumTdatumFfilSvarFilerSpekSensSenGetPromptTknTfilFilmaskInfInUtfUtL{ngdPekKey1ZzVersBibiniStarBibRotPushBibpL{sStL{aErr41EnhetRfr0}nRtillDelFrotXcallErorKopieraProgPorgRuncatUs|kZed1210FmxFmEflRigh]tg{rdE41ChnageFr}ntillF|rvalDefaultVarBufLokErcodeEnhDeactActClosePushgInpDefF|rMi8dDateDatumDrStoipy *zz$z.:8BB2L"V'`#0j#t$~j%& $& %a!! 'y!)!|kZed1210FmxFmEflRigh]tg{rdE41ChnageFr}ntillF|rvalDefaultVarBufLokErcodeEnhDeactActClosePushgInpDefF|rMi8dDateDatumDrStoipy *zz$z.:8BB2L"V'`#@DDEFGHIJKLMNOPQR  LIST CRE EDIT 2.1 1982-11-18dnx޸nyckel$.ISM huvud$.DAT޵4]r S  Skapa ISAM-filer Ver 40 .0  T=T="   !*! ,%6_; @  J ޜ?T; ^hݖޟ 9r  ǀ  ;|:Z!!y !` ޜD _ (=  !!!"!z5&21 36 39 41 42 43 48 132 147 210&݊FEL 0$0ޜ 7Oe : DЁ>< ; N X bT;lݸ޸v'Hittar ej filen'%$'Checksummafel vid skrivning''Filen skrivskyddad''Skivan full''Enheten ej klar''Skivan skrivskyddad''Fel i biblioteket''F|r stort heltal''Felaktiga data''Felaktigt tal')"pI"y")!yJ" ޵ Skapa index nr:4* Namn p} index:4>2H卽 R2\ Startposition:1'&fݖ.݊HMpz210210ni ( / /2 L{ngd p} nyckel:T',ݖ.݊HޜM210}132$c.8B /L Indextyp (B,A,I,F,D):ޫV!`BAIFD ݍj147t+~BAIFDޟ /Dubblett-nycklar (J/N):ޫJNݍݍ147G"(=NJޟ ޜ 芽 Skapa index nr4 Namn p} index:7 ޟ(2 <4F޵N߸9PN_NNamn p} Nfil: mZN_N_S0dN_.݊N_N_N$nxN_N(N_:ݍ ooP__:ޜuuu.ޟ u__.ޜ"uu u4ޜ߸$ Postl{ngd:O ‰'H"Hݖ‰.݊M,6@132RJT1478^nhr |; 1#޸,4 o u ޜ/H/޵N#޸,N޵N#޸,޸aoTypeFileExtHeadInpTextLengVarSlaskConvNameErrorErrcCodeKeyDummyNumberSizeIsamnameDriveKeys . $V 4yH"Ny _"o!#u* R "I"Q#y#޸,޸aoTypeFileExtHeadInpTextLengVarSlaskConvNameErro`SSTUVWXYZ[\]^_10 REM *** 20 REM *** CRELIB.BAS V 1.1 30 REM *** NJB 1982 35 REM *** M|jlighet att skapa blanka bibliotek borttaget 860506/BJ 40 REM *** 45 ; CHR$(12%) : ; "# CRELIB V 1.1" : ; : ; : ; 50 ; 'Detta program skapar ett nytt bibliotek' 60 ; 'under ett existerande bibliotek.' 70 ; 80 GOSUB 1000 : GOSUB 4000 : ; : GOSUB 6000 85 ; 'Standardskydd (ja)'; : INPUT A$ : IF (ASC (A$) AND 95%)=78% ; : GOSUB 5000 : Q4%=1% ELSE ; "Standardskydd" 90 IF Q4% Q7$=CHR$(0%,33%,0%,0%)+CHR$(0%,0%,M1%,M2%) : GOSUB 7000 100 Q7$=CHR$(0%,16%,0%,0%)+" "+B$+C$+";" : GOSUB 7000 110 IF Q4% ; 'Standardskyddet blir }ter som vid' : ; 'inloggningen. ( Dvs. GEW, PSR)' 120 IF Q4% Q7$=CHR$(0%,33%,0%,0%)+CHR$(0%,0%,63%,0%) : GOSUB 7000 130 END 1000 REM *** 1010 REM *** S|k r{tt p} adressen till 1020 REM *** maskinkodsrutinen som skickar 1030 REM *** kommandon till huvudmaskinen. 1040 REM *** 1050 DEF FNP2%(A%)=PEEK(A%)+SWAP%(PEEK(A%+1%)) 1060 IF PEEK(14%) P%=65403% ELSE P%=65034% 1070 P%=FNP2%(P%) : IF P%=0% ; "Invalid hardvare." : STOP 1080 IF CHR$(PEEK(P%+2%),PEEK(P%+3%),PEEK(P%+4%))<>"CUR" 1070 1090 P%=FNP2%(P%+5%)+39% 1100 REM p% {r nu adress dit man skall CALL'a vid Q7$-kommando. 1110 RETURN 4000 REM *** 4010 REM *** Fr}ga anv. om plats d{r 4020 REM *** han vill g|ra n{sta 4030 REM *** operation. ger hj{lp vid 4040 REM *** behov. 4050 REM *** 4060 ; 'Ange |verbibliotek?'; : INPUT LINE A$ 4200 A$=LEFT$(A$,LEN(A$)-2%) 4210 IF A$<>'' IF LEFT$(A$,1%)<>'<' THEN A$='<'+A$+'>' 4220 B$=A$ 4230 RETURN : REM b$=bib.spec. 5000 REM *** 5010 REM *** Fr}ga om filskydd. 5020 REM *** 5030 ; 'Skydd ?'; : INPUT LINE A$ 5200 A$=LEFT$(A$,LEN(A$)-2%) 5210 REM *** checkloop 5215 M%=0% : IF A$='' GOTO 5281 : REM *** prot bort helt 5220 GOSUB 5800 : T%=INSTR(1%,"PGU",X$) : IF T%=0% 5900 5230 M1%=2%^(T%*4%)-1% : REM skyddsmask 5240 GOSUB 5800 : T%=INSTR(1%,"EWRS",X$) 5250 IF T%>0% T%=2%^(T%-1%) : M2%=M2% OR (T%+16%*T%+256%*T%) : GOTO 5240 ELSE IF M2%=0% 5900 5260 M%=M% OR (M1% AND M2%) 5270 IF X$=',' GOTO 5220 5280 IF A$<>'' 5900 5281 M1%=M% AND 255% : M2%=(M%/4%) AND 192% 5285 ; 5290 RETURN : REM m1% och m2% skyddskoder ut 5800 IF A$<>'' X%=ASC (LEFT$(A$,1%)) : X$=CHR$(X%+32%*(X%>95%)) : A$=RIGHT$(A$,2%) ELSE X$=CHR$(0%) 5810 RETURN 5900 ; CHR$(7%) : IF PEEK(14%) ; "Error 220. "; ELSE ; "ERR 11 "; 5901 ; ', f|rs|k igen:' : GOTO 5000 6000 REM *** 6010 REM *** tag emot bibnamn 6020 REM *** 6030 ; 'Ange bibliotek'; : INPUT C$ 6040 IF C$='' GOTO 6030 6050 RETURN : REM c$=bibnamn 7000 REM *** 7010 REM *** anropa 'comsend'-rutinen 7020 REM *** 7030 Z%=CALL(P%) : REM p% satt i subr. p} radn. 1000 7040 IF ERRCODE<1% ; 'ok' ELSE ; 'ERR' ERRCODE ' (se CAT-NET manualen)' 7050 RETURN  IF C$='' GOTO 6030 6050 RETURN : REM c$=bibnamn 7000 REM *** 7010 REM *** anropa 'comsend'-ru020 REM *** 7030 Z%=CALL(P%) : REM p% satt i subr. p} radn. 1000 7040 IF ERRCODE<1% ; 'ok' ELSE ; 'ERR' ERRCODE ' (se CAT-NET manualen)' 7050 RETURN  IF C$='' GOTO 6030 6050 RETURN : REM c$=bibnamn 7000 REM *** 7010 REM *** anropa 'comsend'-ru``abcdefghijklmnopqr10 REM *** crenhet.800 V 1.2 20 REM *** NJB 1983 21 REM *** NJB 1984-03-06 30 DEF FNF%=F% OR (X% AND (( ASC (A$) AND 95%)<>Y% XOR Y%=74%)) 100 ; CHR$(12%) '# CRENHET V 1.2' 110 ; : ; "Detta program skapar nya lokala" 120 ; "logiska enhetsnamn." 130 ; : ; "Detta kan g|ras p} tv} s{tt:" 140 ; 150 ; "1) L{nka in namnen direkt." 160 ; "2) Skapa ett BASIC-program som, n{r" 170 ; " det k|rs, l{nkar in namnen." 180 ; 190 ; "V{lj variant 1 eller 2: "; : INPUT LINE V$ : ; : V$=LEFT$(V$,1%) 200 IF INSTR(1%,"12",V$)=0% GOTO 190 210 F1$='usr:enheter.tmp' : F$="usr:enheter.kil" : L0%=0% 220 ON ERROR GOTO 870 : E5$=F1$ : PREPARE F1$ AS FILE 1% : ON ERROR GOTO 950 230 ; : ; "Nu b|rjar enhetsdefinitionen." 240 ; : ; "Enhetens namn (max 3 tecken)"; : INPUT LINE E$ : ; 250 E1$='' : FOR I%=1% TO LEN(E$)-2% : C%= ASC (RIGHT$(E$,I%)) : IF C%>95% C%=C%-32% 260 E1$=E1$+CHR$(C%) : NEXT I% 270 IF E1$<>'' IF RIGHT$(E1$,LEN(E1$))=':' E1$=LEFT$(E1$,LEN(E1$)-1%) 280 IF LEN(E1$)>3% ; : ; "F|r l}ngt namn!" : ; : GOTO 240 290 ; : ; "Vilket bibliotek skall enheten refe-" 300 ; "rera till? (RETURN=aktuella)" : INPUT LINE B$ : ; 310 B1$='' : FOR I%=1% TO LEN(B$)-2% : C%= ASC (RIGHT$(B$,I%)) : IF C%>95% C%=C%-32% 320 B1$=B1$+CHR$(C%) : NEXT I% 330 IF B1$<>'' IF LEFT$(B1$,1%)=' ' B1$=RIGHT$(B1$,2%) : GOTO 330 340 IF B1$<>'' IF LEFT$(B1$,1%)<>'<' B1$='<'+B1$ 350 IF B1$<>'' IF RIGHT$(B1$,LEN(B1$))<>'>' B1$=B1$+'>' 360 IF LEN(B1$)>32% ; B1$ " {r tyv{rr ett f|r l}ngt namn." : GOTO 490 370 ; : ; "Skall enheten vara en datafilsenhet" 380 ; "(D) eller en katalogenhet (K) (RET.=D)" : INPUT LINE T$ : ; 390 IF ASC (T$)=13% T$="D" 400 T$=CHR$( ASC (T$) AND 95%) 410 IF T$<>'D' AND T$<>'K' ; : ; "D eller K tack!" : ; : GOTO 370 420 IF T$='K' L0%=L0%+9%+LEN(B1$) : GOTO 470 ELSE L0%=L0%+11%+LEN(B1$) 430 ; : ; 'Skall filflaggorna vara som vanligt?' : ; '(ja) '; : INPUT LINE A$ : ; 440 IF ( ASC (A$) AND 95%)<>78% F0%=121% : F1%=123% : GOTO 470 450 F%=1% : ; : ; "Filegenskaper vid OPEN." : GOSUB 700 : F0%=F% 460 F%=3% : ; : ; "Filegenskaper vid PREPARE." : GOSUB 700 : F1%=F% 470 REM *** label 480 ; #1% T$ : ; #1% E1$ : ; #1% B1$ : ; #1% F0% : ; #1% F1% 490 ; : ; "Vill du definiera fler enheter? (nej)"; : INPUT LINE A$ : ; : IF ( ASC (A$) AND 95%)=74% GOTO 240 500 ; #1% "S" 510 ; : ; "Vill du anropa n}got annat program n{r" : ; "enheterna {r inl{nkade?" 520 ; "I s} fall ge dess namn h{r." 530 INPUT LINE U1$ : ; : U1$=LEFT$(U1$,LEN(U1$)-2%) 540 CLOSE 1% 550 ON ERROR GOTO 890 : E5$=F1$ : OPEN F1$ AS FILE 2% 560 ON ERROR GOTO 870 : E5$=F$ : PREPARE F$ AS FILE 1% : ON ERROR GOTO 950 : ; #1% L0% 570 GOSUB 650 : CLOSE 2% : ; #1% "S" : ; #1% U1$ : CLOSE 1% : ON ERROR GOTO 910 : E5$=F1$ : KILL F1$ 580 ; : ; 590 IF PEEK(14%) GOTO 620 : REM *** ABC800 600 IF V$="1" S$="sys:enhetin.80" ELSE S$="sys:enhetbas.80" 610 GOTO 630 620 IF V$="1" S$="sys:enhetin.800" ELSE S$="sys:enhetbas.800" 630 ON ERROR GOTO 890 : E5$=S$ : OPEN S$ AS FILE 1% : CLOSE 1% : ON ERROR GOTO 930 : CHAIN S$ 640 END 650 INPUT #2%,A$ : IF A$="S" GOTO 690 660 ; #1% A$ 670 FOR I%=1% TO 4% : INPUT LINE #2%,A$ : ; #1% A$; : NEXT I% 680 GOTO 650 690 RETURN 700 ; "Typ av fil|ppning." 710 ; "1 Alltid gammal fil (OPEN)" 720 ; "2 Alltid ny fil(finns ej motsv. p} ABC)" 730 ; "3 Gammal eller ny fil (PREPARE)" 740 ; 750 ; "V{lj: (" F% ") "; : INPUT LINE A$ : ; : A$=LEFT$(A$,LEN(A$)-2%) : IF A$<>'' F%=VAL(A$) 760 ; 770 Y%=78% 780 ; "L{sning till}ten? (ja)"; : X%=8% : GOSUB 850 790 ; "Skrivning till}ten? (ja)"; : X%=16% : GOSUB 850 800 ; "Sekvensiell fil? (ja)"; : X%=32% : GOSUB 850 810 ; "Delning till}ten? (ja)"; : X%=64% : GOSUB 850 820 Y%=74% 830 ; "Anarki till}ten? (nej)"; : X%=128% : GOSUB 850 840 RETURN 850 INPUT LINE A$ : ; : F%=FNF% : RETURN 860 ; "ERR" ERRCODE : STOP 870 ; "Kan ej skapa " E5$ " pga fel nr " ERRCODE 880 END 890 ; "Kan ej |ppna " E5$ " pga fel nr " ERRCODE 900 END 910 ; "Kan ej ta bort " E5$ " pga fel nr " ERRCODE 920 END 930 ; "Kan ej ladda " E5$ " pga fel nr " ERRCODE 940 END 950 IF ERRCODE=39% ; "Skrivskydd p} fil " E5$ : GOTO 970 960 ; "Fel nr " ERRCODE 970 END ppna " E5$ " pga fel nr " ERRCODE 900 END 910 ; "Kan ej ta bort " E5$ " pga fel nr " ERRCODE 920 END 930 ; "Kan ej ladda " E5$ " pga fel nr " ERRCODE 940 END 950 IF ERRCODE=39% ; "Skrivskydd p} fil "GOTO 970 960 ; "Fel nr " ERRCODE 970 END ppna " E5$ " pga fel nr " ERRCODE 900 END 910 ; "Kan ej ta bort " E5$ " pga fel nr " ERRCODE 920 END 930 ; "Kan ej ladda " E5$ " pga fel nr " ERRCODE 940 END 950 IF ERRCODE=39% ; "Skrivskydd p} fil "sstuvwxyz{|}+10 REM *** CREUSER.BAC V 1.5 20 REM *** NJB 1982 21 REM *** M|jlighet att skapa blanka konton bortaget 860506/BJ 22 REM *** S{tt ej PACKAT-TILL]TET-biten 1.5 870105/NJB 25 GOSUB 1000 26 Q7$=CHR$(0%,33%,0%,0%)+CHR$(0%,0%,51%,0%) 27 GOSUB 7000 28 ; CHR$+(12%) : ; "# CREUSER V 1.5" : ; : ; 30 ; 'Detta program l{gger till nya anv{ndare' 40 ; 'i CatNet-systemet.' 50 ; 60 ; 'Vilken disk skall de nya ligga p}'; : INPUT D$ 70 IF D$<>'' IF RIGHT$(D$,LEN(D$))<>':' D$=D$+':' ELSE A=A ELSE 60 80 ; 90 ; 'Nam+n p} gruppen (ingen grupp)'; : INPUT G$ 95 IF G$='*' D$='' : GOTO 230 : REM *** egen grupp 100 REM *** 110 REM *** Om det var en grupp. 120 REM *** Skapa den d} om den inte 130 REM *** finns, i annat fall 140 REM *** tag en grupp som ligger 150 REM ***+ p} samma disk med samma 160 REM *** namn. 190 REM *** 200 IF G$='' GOTO 230 210 Q7$=CHR$(0%,16%,4%,0%)+" <"+D$+">"+G$+";" 220 GOSUB 7000 225 IF ERRCODE>1% STOP 230 ; 'Vad skall anv{ndaren heta'; : INPUT A$ 232 IF A$='' 230 235 IF G$='*' S%=0% : GOT+O 330 240 ; 'Systemansvarig (nej,S/G/U)'; : INPUT S$ 310 S%=16%*INSTR(1%,"UGS",CHR$(ASC (S$) AND 95%)) 320 IF S%=16% ; 'User' ELSE IF S%=32% ; 'Grupp' ELSE IF S%=48% ; 'System' ELSE ; 'Normal' 330 Q7$=CHR$(0%,16%,64%+S%+8%,0%)+" <"+D$+G$+">"+A$+";" 3+40 GOSUB 7000 350 ; 'Skapa fler anv. (Nej,G ger ny grupp)'; : INPUT X$ 360 IF (ASC (X$) AND 95%)=74% GOTO 230 370 IF (ASC (X$) AND 95%)=71% GOTO 90 375 ; 'OBS standardskyddet blir }ter PS, GE, GW' 376 Q7$=CHR$(0%,33%,0%,0%)+CHR$(0%,0%,56%,0%) 377 GOS+UB 1000 378 GOSUB 7000 380 END 1000 REM *** 1010 REM *** S|k r{tt p} adressen till 1020 REM *** maskinkodsrutinen som skickar 1030 REM *** kommandon till huvudmaskinen. 1040 REM *** 1050 DEF FNP2%(A%)=PEEK(A%)+SWAP%(PEEK(A%+1%)) 1060 IF PEEK(14%) P%=+65403% ELSE P%=65034% 1070 P%=FNP2%(P%) : IF P%=0% ; "Invalid hardvare." : STOP 1080 IF CHR$(PEEK(P%+2%),PEEK(P%+3%),PEEK(P%+4%))<>"CUR" 1070 1090 P%=FNP2%(P%+5%)+39% 1100 REM p% {r nu adress dit man skall CALL'a vid Q7$-kommando. 1110 RETURN 7000 RE+M *** 7010 REM *** anropa 'comsend'-rutinen 7020 REM *** 7030 Z%=CALL(P%) : REM p% satt i subr. p} radn. 1000 7040 IF ERRCODE<1% ; 'ok' ELSE ; 'ERR' ERRCODE ' (se CAT-NET manualen)' 7050 RETURN  man skall CALL'a vid Q7$-kommando. 1110 RETURN 7000 RE+010 REM *** anropa 'comsend'-rutinen 7020 REM *** 7030 Z%=CALL(P%) : REM p% satt i subr. p} radn. 1000 7040 IF ERRCODE<1% ; 'ok' ELSE ; 'ERR' ERRCODE ' (se CAT-NET manualen)' 7050 RETURN  man skall CALL'a vid Q7$-kommando. 1110 RETURN 7000 RE~~+10 REM *** 20 REM *** DATE.BAS V 3.3 30 REM *** NJB & HAS & GWY 1982, 1983, 1984 40 REM *** 50 ; CHR$(12) : ; "# DATE V 3.3" : ; : ; : ; 60 R1%=5% : K1%=2% : K2%=12% : REM rad-,kolumn-tabbar 70 GOSUB 1000 80 Q7$=' T'+STRING$(12,0) 90 GOSUB 7000 : R+EM VISADAT-kommando 110 IF ASC (RIGHT$(Q7$,10%))=255% A3%=3% ELSE A3%=7% : REM inget tid-kort anslutet, skippa tim,... 115 IF ASC (RIGHT$(Q7$,14%))=15% AND A3%=7% A2%=15% : REM abc-time 116 IF A2%<>15% IF ASC (RIGHT$(Q7$,7%))=255% AND ASC (RIGHT$(+Q7$,8%))<>255% A2%=15% : REM ABCTIME om v1.5 120 GOSUB 3000 130 GOSUB 7000 135 IF ERRCODE<1% ; 'ok' 140 IF A2% GOSUB 6000 : REM }rtal 150 END 1000 REM *** 1010 REM *** S|k r{tt p} adressen till 1020 REM *** maskinkodsrutinen som skickar 1030 REM *** k+ommandon till huvudmaskinen. 1040 REM *** 1050 DEF FNP2%(A%)=PEEK(A%)+SWAP%(PEEK(A%+1%)) 1060 IF PEEK(14%) P%=65403% ELSE P%=65034% 1070 P%=FNP2%(P%) : IF P%=0% ; "Invalid hardvare." : STOP 1080 IF CHR$(PEEK(P%+2%),PEEK(P%+3%),PEEK(P%+4%))<>"CUR" 107+0 1090 P%=FNP2%(P%+5%)+39% 1100 RETURN 2000 REM *** 2010 REM *** S|k efter r{tt logiska 2020 REM *** filnummer till en |ppnad 2030 REM *** datafil. Filnummer i F%. 2040 REM *** 2060 IF PEEK(14%) P8%=65344% : C1%=21% ELSE P8%=65074% : C1%=12% 2070 P8%=+FNP2%(P8%) : IF P8%=0% ; 'Fel i programmet' : STOP 2080 IF PEEK(P8%+2%)<>F% GOTO 2070 2085 N%=PEEK(64833%+PEEK(P8%+C1%)) AND 31% 2090 RETURN 3000 REM 3010 REM 3020 REM  datesub  3030 REM 3040 T$=' }r m}n dagveckodag tim min sek' 3050+ V$='M]N TIS ONS TOR FRE L\R S\N' 3060 V1$='m}n tis ons tor fre l|r s|n' 3070 Q7$=' s ' : Q$='' 3080 FOR I%=1% TO A3% 3090 ; CUR(R1%+I%,K1%);MID$(T$,I%*8%-7%,8%);' '; 3100 INPUT T6$ : M%=0% 3110 IF LEN(T6$)>0% GOTO 3130 3115 IF I%=1% A2%=0% : REM +inget }rtal satt 3120 Q$=Q$+CHR$(255%) : GOTO 3190 3130 IF I%=4% GOTO 3270 3140 IF LEN(T6$)>2% GOTO 3240 3150 ON ERROR GOTO 3240 3160 M%=VAL(T6$) : M%=(M%/10%)*16%+(M%-M%/10%*10%) 3170 IF I%=1% AND A2%<>0 GOTO 3350 : REM }rtal till STARTUP 3180 + Q$=Q$+CHR$(M%) 3190 NEXT I% 3200 ON ERROR GOTO 3210 : ; 1/0 3210 ; 3220 Q7$=Q7$+LEFT$(Q$,3%) 3225 IF A3%>4 Q7$=Q7$+RIGHT$(Q$,5%)+MID$(Q$,4%,1%) 3230 RETURN 3240 REM *** SUDDA RADEN OM F\R M]NGA TECKEN 3250 H1%=R1%+I% : H2%=H1% : H3%=K2% : GOSUB 90+00 3260 GOTO 3090 3270 REM 3275 IF LEN(T6$)<2% 3310 3280 IF LEN(T6$)>3% T6$=LEFT$(T6$,3%) 3290 M%=INSTR(1%,V$,T6$) 3300 IF M%=0% M%=INSTR(1%,V1$,T6$) ELSE GOTO 3320 3310 IF M%=0% ; CUR(R1%+2%+I%,K2%);V$ : GOTO 3240 3320 M%=(M%+3%)/4% 3330 H1%=R1%+2%+I+% : H2%=H1% : H3%=K2% : GOSUB 9000 3340 GOTO 3180 3350 REM 3360 REM 3370 ; CUR(21,0%);'Du m}ste vara [KTA SYSMAN f|r att' : ; '{ndra }rtalet.' 3380 ; 'Skall }rtalet {ndras (nej/J)'; : GET T6$ 3390 H1%=21 : H2%=23 : H3%=0% : GOSUB 9000 3400 IF (ASC (+T6$) AND 95%)=74 M1%=M% : GOTO 3180 3410 A2%=0 : H1%=I%+5% : H2%=H1% : H3%=K2% : GOSUB 9000 : GOTO 3120 6000 REM 6010 REM 6020 REM Skriv }rtalet i STARTUP 6030 REM 6040 FOR D%=70% TO 48% STEP -1% 6050 IF D%=64% D%=57% 6060 Q8$=CHR$(60,D%,58,62) 60+70 ON ERROR GOTO 6160 6080 F%=1% : OPEN 'STARTUP' AS FILE F% 6085 ; CUR(19%,0%);']rtalet sparas p} filen STARTUP.' 6090 ; 'Skall filen p} disk ';CHR$(D%,58%);' anv{ndas (ja/N)?'; 6100 GET T6$ : ; 6110 IF (ASC (T6$) AND 95%)=78% CLOSE 1 : H1%=19+ : H2%=23 : H3%=0% : GOSUB 9000 : GOTO 6160 6120 ON ERROR GOTO 6190 6130 GOSUB 2000 6140 Q7$=CHR$(0,7,0,N%)+CHR$(2,0) : GOSUB 7000 6145 B%=62720 : REM DOSBUF 0 6147 POKE B%,128%,M1%,224%,0%,0%,0%,0%,0% 6148 FOR I%=1% TO 31% : POKE B%+I%*8%,0%,0%,+0%,0%,0%,0%,0%,0% : NEXT I% 6150 GOSUB 7500 : CLOSE F% : RETURN 6160 NEXT D% 6170 ; CUR(20,0);']rtalet har inte sparats.' 6180 RETURN 6190 REM 6200 ; 'ERR';ERRCODE : CLOSE F% : GOTO 6170 7000 REM *** 7010 REM *** anropa 'comsend'-rutinen 7020 REM+ *** 7030 Z%=CALL(P%) : REM p% satt i subr. p} radn. 1000 7040 IF ERRCODE>0% ; 'ERR' ERRCODE ' (se CAT-NET manualen)' 7050 RETURN 7500 REM *** 7510 Z%=CALL(P%,B%) : GOTO 7040 9000 REM 9010 REM Sudda p} sk{rmen 9020 REM 9030 FOR H9%=H1% TO H2% : ; CU+R(H9%,H3%);SPACE$(39-H3%); : NEXT H9% : RETURN dn. 1000 7040 IF ERRCODE>0% ; 'ERR' ERRCODE ' (se CAT-NET manualen)' 7050 RETURN 7500 REM *** 7510 Z%=CALL(P%,B%) : GOTO 7040 9000 REM 9010 REM Sudda p} sk{rmen 9020 REM 9030 FOR H9%=H1% TO H2% : ; CU+3%);SPACE$(39-H3%); : NEXT H9% : RETURN dn. 1000 7040 IF ERRCODE>0% ; 'ERR' ERRCODE ' (se CAT-NET manualen)' 7050 RETURN 7500 REM *** 7510 Z%=CALL(P%,B%) : GOTO 7040 9000 REM 9010 REM Sudda p} sk{rmen 9020 REM 9030 FOR H9%=H1% TO H2% : ; CU+10 REM *** DEACT.BAS V 1.2 12 ; CHR$(12%) : ; "# DEACT V 1.2" : ; : ; : ; 20 ; "Deaktivera disk nummer:"; 30 INPUT A1$ : IF ASC (A1$)>95% A1$=CHR$(ASC (A1$) AND 95%)+RIGHT$(A1$,2%) 35 IF LEN(A1$)=2% IF RIGHT$(A1$,2%)=":" A1$=LEFT$(A1$,1%) 40 IF LE+N(A1$)<>1% OR A1$<'0' OR A1$>'F' OR (A1$>'9' AND A1$<'A') ; "Nummer 0-9,A-F tack." : GOTO 30 50 Q7$=" D"+A1$ 55 GOSUB 1000 60 GOSUB 7000 70 END 1000 REM *** 1010 REM *** S|k r{tt p} adressen till 1020 REM *** maskinkodsrutinen som skickar 1030 REM ***+ kommandon till huvudmaskinen. 1040 REM *** 1050 DEF FNP2%(A%)=PEEK(A%)+SWAP%(PEEK(A%+1%)) 1060 IF PEEK(14%) P%=65403% ELSE P%=65034% 1070 P%=FNP2%(P%) : IF P%=0% ; "Invalid hardvare." : STOP 1080 IF CHR$(PEEK(P%+2%),PEEK(P%+3%),PEEK(P%+4%))<>"CUR" 1+070 1090 P%=FNP2%(P%+5%)+39% 1100 REM p% {r nu adress dit man skall CALL'a vid Q7$-kommando. 1110 RETURN 7000 REM *** 7010 REM *** anropa 'comsend'-rutinen 7020 REM *** 7030 Z%=CALL(P%) : REM p% satt i subr. p} radn. 1000 7040 IF ERRCODE<1% ; 'ok' ELS+E ; 'ERR' ERRCODE ' (se CAT-NET manualen)' 7050 RETURN  man skall CALL'a vid Q7$-kommando. 1110 RETURN 7000 REM *** 7010 REM *** anropa 'comsend'-rutinen 7020 REM *** 7030 Z%=CALL(P%) : REM p% satt i subr. p} radn. 1000 7040 IF ERRCODE<1% ; 'ok' ELS+R' ERRCODE ' (se CAT-NET manualen)' 7050 RETURN  man skall CALL'a vid Q7$-kommando. 1110 RETURN 7000 REM *** 7010 REM *** anropa 'comsend'-rutinen 7020 REM *** 7030 Z%=CALL(P%) : REM p% satt i subr. p} radn. 1000 7040 IF ERRCODE<1% ; 'ok' ELSDEFMENY BAC @)))DEFPROT BAS @)))DEMOCRE BAC @)))DISKAR BAS @)))ENHETBASBAS @)))ENHETBAS80 @)))ENHETBAS800 @)))ENHETIN BAS @))) oka< e \defmeny 86-04-24uMenynamn, CATNET Huvudmeny ޸ #޸߸ "(޸#޸޵.(݊  .x82PFn=[ndra val, siffra=F|rflyttning, CE=[ndra ok namn ; kKpPfFeE44"4ޟߣ"/9    ǿ44ފ=<4]<<"Lediga val finns ovanWMata in rubrik4u<4! ok#4< ( 4< ::݊k:(@ (@Menyn {r inte tom#޸:։}#޸<4" <4<(\nskat val (samm oka, #=Underliggande meny)4ߡ;<4 LFF ## FFX<4!<< Valet ej definierat <4!(=ǿ< Menyn fullB<4" F ok<4! 0( (d'@<@  #"Det d{r {r ingen meny; 44"4( ( 4( 4<@(=4 (݊(=. "( ok4 4(;b݊L{ngd 1-24 teckeno  Kyyyzj#޸։} #޸ Returpekarfel ! Menynummerfel ! ok޸FyA((  Skrivfel !#޸(։}#޸޸4y/=  = Menydefinition Catmeny =(;"ވk;"߈p;"ሾf;"刾eP=ݵ@丼x@ߡ@1 ok<@@ߡ;7<@ # #7<@ L0 ]terP=޸yqzL#޸݂ #޸ *։}ނ*։}. .ޜ.#޸݂#޸. .ޟ ok#޸Ձ#޸" O ;Dy?zz> < %  ޸$yzO ;޸zyyzz  ޜ- , ok,+++  "(.4:@Fiz ;޸zyyzz  ޜ- , +10 REM *** DEFPROT.BAS V 1.0 20 REM *** NJB 1982 25 ; CHR$(12%) : ; "# DEFPROT V 1.0" : ; : ; : ; 30 ; '[ndra ditt standardskydd.' 35 ; 40 ; '( Det skydd alla nyskapade filer f}r ).' 50 ; : ; 60 GOSUB 5000 : GOSUB 1000 70 Q7$=CHR$(0%,33%,0%,0%)+CH+R$(0%,0%,M1%,M2%) 80 GOSUB 7000 90 END 1000 REM *** 1010 REM *** S|k r{tt p} adressen till 1020 REM *** maskinkodsrutinen som skickar 1030 REM *** kommandon till huvudmaskinen. 1040 REM *** 1050 DEF FNP2%(A%)=PEEK(A%)+SWAP%(PEEK(A%+1%)) 1060 IF PEEK(+14%) P%=65403% ELSE P%=65034% 1070 P%=FNP2%(P%) : IF P%=0% ; "Invalid hardvare." : STOP 1080 IF CHR$(PEEK(P%+2%),PEEK(P%+3%),PEEK(P%+4%))<>"CUR" 1070 1090 P%=FNP2%(P%+5%)+39% 1100 REM p% {r nu adress dit man skall CALL'a vid Q7$-kommando. 1110 RETURN + 5000 REM *** 5010 REM *** Fr}ga om filskydd. 5020 REM *** 5030 ; 'Skydd ?'; : INPUT LINE A$ 5200 A$=LEFT$(A$,LEN(A$)-2%) 5210 REM *** checkloop 5215 M%=0% : IF A$='' GOTO 5281 : REM *** prot bort helt 5220 GOSUB 5800 : T%=INSTR(1%,"PGU",X$) : IF T%=0%+ 5900 5230 M1%=2%^(T%*4%)-1% : M2%=0% : REM skyddsmask 5240 GOSUB 5800 : T%=INSTR(1%,"EWRS",X$) 5250 IF T%>0% T%=2%^(T%-1%) : M2%=M2% OR (T%+16%*T%+256%*T%) : GOTO 5240 ELSE IF M2%=0% 5900 5260 M%=M% OR (M1% AND M2%) 5270 IF X$=',' GOTO 5220 5280 IF A$+<>'' 5900 5281 M1%=M% AND 255% : M2%=(M%/4%) AND 192% 5285 ; 5290 RETURN : REM m1% och m2% skyddskoder ut 5800 IF A$<>'' X%=ASC (LEFT$(A$,1%)) : X$=CHR$(X%+32%*(X%>95%)) : A$=RIGHT$(A$,2%) ELSE X$=CHR$(0%) 5810 RETURN 5900 ; : ; 'ERR 11, f|rs|k igen+:' : GOTO 5000 7000 REM *** 7010 REM *** anropa 'comsend'-rutinen 7020 REM *** 7030 Z%=CALL(P%) : REM p% satt i subr. p} radn. 1000 7040 IF ERRCODE<1% ; 'ok' ELSE ; 'ERR' ERRCODE ' (se CAT-NET manualen)' 7050 RETURN N 5900 ; : ; 'ERR 11, f|rs|k igen+TO 5000 7000 REM *** 7010 REM *** anropa 'comsend'-rutinen 7020 REM *** 7030 Z%=CALL(P%) : REM p% satt i subr. p} radn. 1000 7040 IF ERRCODE<1% ; 'ok' ELSE ; 'ERR' ERRCODE ' (se CAT-NET manualen)' 7050 RETURN N 5900 ; : ; 'ERR 11, f|rs|k igen@p! bp 4/DEMOCRE Skapar automatiskt ISAM-filen ARTIKLAR&!1982-07-20 M Rudolfson Id`-Data94Detta {r det vanliga CREINDEX modifierat p} raderna/*270, 372, 373, 375, 445, 490, 1310, 2000- ՁAՁ BՂp Aւ@ IՃ Fփ  D (ՂSpecify files !:2"Name of Isam file ;.ism(<12F8 >HR\3PName of data file ;.dat(Z2pd8 >fRp!n Record lengthxJ 2z޵縼]& ՂSpecify indices ! 9Ձ ފ? #,##,Isam file : p\##,Data file : p##,Record length : 7##,"Name Start Lgth Type Dupl.޵縼 #, ;#"#,ք 0;",#,Յp ;*6#,օ@ ޜ ;4@#,օx; Y;N;JT^hinitiate filesrt\\ޟ 1Ձu#Ձ,/ wՁ|pՁՁ\Ձp#Ձ, f!#Ձ, //޵縼-'#Ձ,#Ձ,*޵ޟ#Ձ, Ձ ISAMDEMO.BACget index datap&ւ@ * Index no ;*)&"Name of index 02:>Ձ D> N޵ޟ-'X  2*b(lKey start position ;v2pz 2 z  Key length ;J2 zޜ 2u. / /z  Key type (;+޵⸼ ;,;);mRpR޵⸼!R ݵ222! ޟ (Duplicate keys (Y/N) RR0*RY(= RN4>Herror processpingR \օ8;2 փ` ;f2ޜ '@Yrp ;zBad name ! ;Bad number ! ;Bad key ! ;Duplicate name !;unpack filenamepD0">  ք0>ݵ2޵2R(R$>.޵Ḽ8R /BՂ DR :޵8$#Lւ@Ձ 088䖽V޵帼`>pR>j )tR/. ޜ~޵฼>RJ>5Rޟ R>Ձ Aݵ2zz Ձ !. 0 p_ _ ޜ   Bք@ ;** Isam file creation ver ;0 ;.0 **4"P"";R޵( 2ߵ2<FR'zzݖݵ2 P 'ARTIKLAR','ARTIKLARp',50'ARTNR',1,7,'A','N''VARUGR',41,2,'I','Y' ''* izP  Ђ;޵D+ D;*޵UXW4F >HLiatInputCreateStringx ~y"y(z2y8y>zHpz Rz\ fzp zyyy ~ y x y yyy /zDI UA * izP  Ђ;޵D+ D;*޵UXW4F >HLiatInputCreateStringx ~y"y(z2y8y>zH`+10 REM *** diskar.bas V 1.3 20 REM *** NJB 21 REM *** NJB 1984-02-23 v 1.2 22 REM *** BD 1985-11-18 v 1.3 25 ; CHR$(12%) : ; "# DISKAR V 1.3" : ; : ; : ; 30 ; : ; "Visa aktiva diskar." : ; : ; 40 GOSUB 1000 50 FOR I%=0% TO 15%+7% : IF I%=10% I%=I%++7% 60 Q7$=CHR$(0%,24%)+" <"+CHR$(48%+I%)+":>; " 70 GOSUB 7000 80 IF ERRCODE>0% IF ERRCODE<>74% ; "Fel " ERRCODE : STOP ELSE 110 90 X%=INSTR(2%,Q7$+" "," ")-2% : IF X%>11% X%=11% 100 ; CHR$(I%+48%) ": aktiv och heter " MID$(Q7$,2%,X%) ":" 110 NE+XT I% 120 END 1000 REM *** 1010 REM *** S|k r{tt p} addressen till 1020 REM *** maskinkodsrutinen som skickar 1030 REM *** kommandon till huvudmaskinen. 1040 REM *** 1050 DEF FNP2%(A%)=PEEK(A%)+SWAP%(PEEK(A%+1%)) 1060 IF PEEK(14%) P%=65403% ELSE P%=+65034% 1070 P%=FNP2%(P%) : IF P%=0% ; "Invalid hardvare." : STOP 1080 IF CHR$(PEEK(P%+2%),PEEK(P%+3%),PEEK(P%+4%))<>"CUR" 1070 1090 P%=FNP2%(P%+5%)+39% 1100 REM p% {r nu adress dit man skall CALL'a vid Q7$-kommando. 1110 RETURN 7000 REM *** 7010 REM +*** anropa 'comsend'-rutinen 7020 REM *** 7030 Z%=CALL(P%) : REM p% satt i subr. p} radn. 1000 7050 RETURN %+4%))<>"CUR" 1070 1090 P%=FNP2%(P%+5%)+39% 1100 REM p% {r nu adress dit man skall CALL'a vid Q7$-kommando. 1110 RETURN 7000 REM *** 7010 REM +opa 'comsend'-rutinen 7020 REM *** 7030 Z%=CALL(P%) : REM p% satt i subr. p} radn. 1000 7050 RETURN %+4%))<>"CUR" 1070 1090 P%=FNP2%(P%+5%)+39% 1100 REM p% {r nu adress dit man skall CALL'a vid Q7$-kommando. 1110 RETURN 7000 REM *** 7010 REM QU10 REM ENHETBAS.BAS v 1.1 20 REM NJB 1984-03-09 v 1.1 30 IF PEEK(14%) CHAIN 'sys:enhetbas.800' ELSE CHAIN 'sys:enhetbas.80' ResStatParSkyddSlingaAsSlingSzList400RuncatPekRf50StorlekSizeSpaceErd18AnQ7aInloggQkQqk &!ya$ z*QUENHETBAS.BAS v 1.1 20 REM NJB 1984-03-09 v 1.1 30 IF PEEK(14%) CHAIN 'sys:enhetbas.800' ELSE CHAIN 'sys:enhetbas.80' ResStatParSkyddSlingaAsSlingSzList400RuncatPekRf50StorlekSizeSpaceErd18AnQ7aInloggQkQqk &!ya$ z* ENHETBAS.80  (NJB 830907 v 1.0 2NJB 840221 v 1.1 < d:"# ENHETBAS v 1.1 [n:"&Detta program skapar ett BASIC-program:"$som l{nkar in lokala logiska enheter nr "ERRCODE 9015 END 9020 ; "Fel nr"ERRAx""fr}n en fil som {r skapad med pro-:"grammet CRENHET.  W"#Programmet skapas i listformat, g|r:"%LOAD p} det och sedan SAVE f|r att f} "det i kompilerad form.  ogiska enheter nr "ERRCODE 9015 END 9020 ; "Fel nr"ERR]"Namn p} BASIC-programmet (.BAS):F˾:F d'.*㺇Ff|Ftt'.BAS (#Na ]Fa ֻ:Fra':*+FF:F d':*$F'FASָ SFa" sys:enh01.80 2#Fa Sa ֻ RǠAǿ  ?#AǾ:A1.A'' *"2躇: L#"10 rem:#"20 rem Fֻ:#"30 rem:#Aֻ &#A10:#Aֻ;: <"溇<## " Sa ֻ R,"F"USR:ENHETER.KIL 6F# @"F ֻ JF /T#,A:#" 10000 data Aֻ; ^R' h#R 0" data ; rI" |#,AǾ AAAA(" Sa ֻ RI溇 #",; .A',*A,'"Aa '" #Aֻ; IA # RR :hA, #:<"溇P#A "::Z#i :"Fl ֻ  A(" Sa ֻ R1(#"Kan ej skapa fil F'ֻ" , fel nr < -# 12#"Kan ej |ppna fil S'ֻ" , fel nr < 7# 5<#"Fel nr<"i fil Fֻֻ" eller S ֻ A# -F#" Kan ej |ppna "Fl ֻ" , fel nr < K# " Sa ֻ R5P#"Fel nr<"i fil F ,ֻ" eller "F ֻ U# #߸6ޜ6Z#߸"޸߸,,(#Kan ej skapa fil  , fel nr -#,2#Kan ej |ppna fil  , fel nr 7#,<#Fel nri fil  eller A#(F# Kan ej |ppna , , fel nr K#,P#Fel nri fil  eller ,U#0Z#Fel nr n{r fil , togs bort._#z z"z,6y<y , fel nr 7#,<#Fel nri fil  eller A#(F# Kan ej |ppna , , fel nr K#,P#Fel nr10 REM *** enhetin.bas V 1.1 20 REM *** NJB 1983 30 IF PEEK(14%) CHAIN 'sys:enhetin.800' ELSE CHAIN 'sys:enhetin.80' ENHETIN 80 @)))ENHETIN 800 @)))ENHETIN180 @)))ENHETIN1800 @)))ENH01 80 @)))ENH01 800 @)))ERROPT BAC @)))ERROPT REL @)))MO *** enhetin.80 V 1.1 *** NJB 1983 *** !(*** Detta program l{nkar in !2*** logiska enheter fr}n en #<*** fil. ENHETER.KIL tas bort "F*** vid anv{ndandet, ENHETER $P*** .LOG {r avsedd att anropas Z*** vid inloggning. MO d*** n*** F|r ABC80 x*** 1غ,:FB'usr:enheter.kil:ǁ 1غ,:FB'usr:enheter.log:ǁ /:"$Fatalt fel, hittar ej enhetsfilen!!!  , F# ֻ #,A ٺ . MOB664 غ,B'պ,B4 BB6A6 ,B6պ,B4 'sys:enhetin1.80 *** Detta program #*** l{gger enheter under BOFA %*** kan lika g{rna l{ggas n}gon "*** annanstans. ,  MO! *** enhetin.bac V 1.1 *** NJB 1983 ***!(*** Detta program l{nkar in!2*** logiska enheter fr}n en#<*** fil. ENHETER.KIL tas bort"F*** vid anv{ndandet, ENHETER$P*** .LOG {r avsedd att anropasZ**MO* vid inloggning. d***n*** F|r ABC800 x***%੸,޸usr:enheter.kilY%੸,߸usr:enheter.log4.$Fatalt fel, hittar ej enhetsfilen!!! ޸#޸,  Ձ -BOTTOMߩMO,, ,,0,, sys:enhetin1.800*** Detta program% *** l{gger enheter under BOTTOM%" *** kan lika g{rna l{ggas n}gon,*** annanstans.6zyyOTTOMߩ@+ *** enhetin1.80 V 1.2 *** NJB 1983 *** %(*** L{nka in enheter p} utrymme %2*** som reserverats av enhetin. <*** 2F6㺇!Fat"usr:enheter.kil:n0 2P6㺇!Fat"usr:enheter.log:n0 nerna. * +Z:" Fatalt fel!!!: d nF Fֻ x#,L:dummy AX664:*** pekare till area, satt i enhetin " Nu l{nkas in: '#,AK:AS"S亇T (#,Ei :Efi(ﺇ nerna. * +-#,B־:B:BB<(" #,F #,F 'AX"D亇S"USR:Ƃ 'AX"K亇S"CAT:Ƃ ":"Fel i enhetsfilen !!!:  r ,Ei :Efi(ﺇ nerna. * +0E(麇EEE. (, HA"D亇,X ,F'պ,FATպ:Lnu L: 3B'亇BXBF'X,Lպ enhetsfilen !!!:  r ,Ei :Efi(ﺇ nerna. * +gXպ, 6, 6,E(,EX$,E$,P$պ,PI4,Bպ,BA 4 ^"B պQIBER(':XCALT I ,B I:$:IB, , ,X պ,XS4 (ﺇ nerna. * +!6XXXDLB( @ENuֻ": J %TUA :Yam:#,Uso Y :^6㺇)FXֻ:*** den hette ju ENHETER.KIL hU:ֻ r*** $|*** S|k r{tt p} addressen till *** enhetsrutinerna. * + *** #!PA=Aan6All64 $6P6{ P6 EP6P{!P:P㺇"Invalid hardvare.: ;P* 6P6P 6 S-N纇} !P* Petna!PRR nerna. * +<p% {r nu adress dit man skall CALL'a vid Q7$-kommando.   P6 EP6P{!P:P㺇"Invalid hardvare.: ;P* 6P6P 6 S-N纇} !P* Petna!PRR nerna. * `asw} *** enhetin1.800 V 1.2 *** NJB 1983 ***%( *** L{nka in enheter p} utrymme%2 *** som reserverats av enhetin.*<%*** HAS lade in onerror goto rad 395 F*** P*** F|r ABC800 Z***%dފusr:enheter.kilD%nߊusr:enheter.logx Fatalt fel!!! ޸#޸, dummy9ߩީ%*** pekare till area, satt i enhetin Nu l{nkas in:#޸,S#޸,$$p#޸,...ߟ .#޸, 8#޸, >D USRDAK CATD'!Fel i enhetsfilen !!!$$$$+"D朸,8,>NN,.ݵT NTK6,{,|,$ ,$ ,$ ,Z,Z,T,T:@T1޵`. Nޟ`,.` bJ{,,TN. ^$:hrnul:q##޸,q|q nul:q ޸32ފ&*** den hette ju ENHETER.KIL  q ***#*** S|k r{tt p} adressen till*** enhetsrutinerna. ***yޜ {Z Z2ZZZ݊Invalid hardvare.%ZߜZZ DZ✫oZ<7p% {r nu adress dit man skall CALL'a vid Q7$-kommando.z yz$z.z8> DzNy TyZy`y qz {Z Z2ZZZ݊Invalid hardvare. ENH01.80 NJB 830907 v 1.0 NJB 840221 v 1.1 ( L)OBS g|r ej RENUMBER p} detta program, i s} fall m}ste ENHETBAS {ndras. * ES 㺇BE:skumt LS P%=0% ; "Invalid hardvare." : STOP 1070 IF C8LS ǐﺇ':"F|r mycket definitioner!:Jm} :XS ''!P"Lmy:',Xneպ,XJ4 ES  Ha Lj6:-VARNING svarta makter {r i farten h{r!!!!! @:fel :" Nu l{nkas in: 1070 IF C!A" :Aka"S亇AR "E" :Eka(ﺇ@R B" F" "F" ',A" "D亇S"USR:T s '6A" "K亇S"CAT:T s @:" Programfel!: JU" ":l! T" in: 1070 IF C>^E" E:ָ:E:(麇Es Ea E{r(, HhA" "D亇,X ,FEպ,F պ:Lr Lr! 3rB" '亇BXBFX,Lպ Programfel!: JU" ":l! T" in: 1070 IF Cg|X պ, 6, 6,E,E$,E $,P պ,P$ 4,Bbuպ,BS4 ^BX պQI6B(:XLI,BPI,$:IBb,  ,Xպ,X4 " in: 1070 IF C!XXXLB4( ;Eֻ":;:B'亇@" == Bֻ  U'::U' 0:U''亇UU :bugg i ABC 80 UUֻ *** $*** S|k r{tt p} addressen till 1070 IF C*** enhetsrutinerna. *** #!PA=Ats6Arn64 $6P6{ P6 E$P6P{!P:P㺇"Invalid hardvare.: ;.P66P{6PP6 S"纇$ar l 1070 IF C!8P6P!P 400% ; : ; "F|r mycket definitioner!" : GOTO 330 220 C3%=PEEK2(65413%) : POKE 65413%,0%,0% ! c 230 X%=PEEK2(65302%)-L0% : POKE 65302%,X%,SWAP%(X%) : X1%=X%-630% : POKE 65294%,X1%,SWAP%(X1%) 240 ; : ; "Nu l{nkas in:" 250 READ A$ : IF A$="S" GOTO 440 260 READ E$ : IF LEN(E$)>3% GOTO 320 270 READ B$ 280 READ F0% 290 READ F1% 300 IF A$="D" S$="USR" : GOTO 340 310 IF A$="K" S$="CAT" : GOTO 340 320 ; : ; "Programfel!" : ; 330 U$="nul:" : GOTO 460 340 GOSUB 1000 350 E1$=E$ : IF LEN(E$)<3% E$=E$+SPACE$(3%-LEN(E$)) 360 IF A$="D" POKE X%+9%,F0%,F1% : L%=11% ELSE L%=9% 370 IF B$='' B%=0% ELSE B%=X%+L% 380 POKE X%,PEEK(65403%),PEEK(65404%),ASCII(E$),ASCII(RIGHT$(E$,2%)),ASCII(RIGHT$(E$,3%)),P%,SWAP%(P%),B%,SWAP%(B%) 390 IF B% FOR I%=1% TO LEN(B$) : POKE X%+L%-1%+I%,ASCII(RIGHT$(B$,I%)) : NEXT I% 400 POKE 65403%,X%,SWAP%(X%) 410 X%=X%+L%+LEN(B$) 420 ; E1$ ":"; : IF B$='' ; ELSE ; TAB(6%) " == " B$ 430 GOTO 250 440 U$='nul:' : ON ERROR GOTO 450 : READ U$ 450 IF U$='' U$='nul:' 460 ; : POKE 65413%,C3%,SWAP%(C3%) : CHAIN U$ 1000 REM *** 1010 REM *** S|k r{tt p} adressen till 1020 REM *** enhetsrutinerna. 1030 REM *** 1040 DEF FNP2%(A%)=PEEK(A%)+SWAP%(PEEK(A%+1%)) 1050 IF PEEK(14%) P%=65403% ELSE P%=65034% 1060 P%=FNP2%(P%) : IF P%=0% ; "Invalid hardvare." : STOP 1070 IF CHR$(PEEK(P%+2%),PEEK(P%+3%),PEEK(P%+4%))<>S$ 1060 1080 P%=FNP2%(P%+5%) 1090 REM p% {r nu adress dit man skall CALL'a vid Q7$-kommando. 1100 RETURN PEEK(14%) P%=65403% ELSE P%=1060 P%=FNP2%(P%) : IF P%=0% ; "Invalid hardvare." : STOP 1070 IF CHR$(PEEK(P%+2%),PEEK(P%+3%),PEEK(P%+4%))<>S$ 1060 1080 P%=FNP2%(P%+5%) 1090 REM p% {r nu adress dit man skall CALL'a vid Q7$-kommando. 1100 RETURN PEEK(14%) P%=65403% ELSE P%=aCdީ ERROPT REL NUL: Markera slut p} filnamnCnީ`++ OPTION ABS+x+Option.abs saknas !. /FilnamnInfilExtSlaskFilEnhet\listMkVar zCdީ ERROPT REL NUL: Markera slut p} filnamnCnީ`++ OPTION ABS+x+Option.abs saknas !. /FilnamnInfilExtSlaskFilEnhet\listMkVar    L{nka av HASL{n' av HAS8C.ׅ!"!$' VFelmeddelanden i klartext initierade. !Z 1'7Fel vid initiering av BASICERR ᧁ1sՄ*3"у* "Ӂ!΃"3!" `8*`-`!`!{H*Ӄ" *Ѻ"37BASICERR800!ׇ#(0x7x~ T*Ӄ" *Ѻ"37BASICERR800!ׇ#(0x7x~ ISAMOPT BAC @)))ISAMOPT REL @))).ISAMPTC REL @)))3KILLIB BAS @)));KOPIERA BAS @)))YLOGIN BAS @)))^LOGOUT BAS @)))dL[SBREV BAS @)))aVdީ ISAMOPT RELީ ISAMPTC REL NUL: Markera slut p} filnamnCnީ`++ OPTION ABS+x+Option.abs saknas !. /FilnamnInfilExtSlaskFilEnhet\listMkVar z ISAMOPT RELީ ISAMPTC REL NUL: Markera slut p} filnamnCnީ`++ OPTION ABS+x+Option.abs saknas !. /FilnamnInfilExtSlaskFilEn  !"#$%&'()*+,-PH0|P4%U8d8:N*o >2ASORTORDRTAB*}"!"}nf~#+ NF !"!#"###":& ( *r#"Å "DŽf"ł1*!P%nf ~#foTO.#,****Ä*ń*ǂ  P!@666666׍!D~ !n f |ԛu t ]T6>Z8v66FPpȄ!֌ut0d8;.~>~ 2OF<7 !!NUU8>4>2">93333[##||S΂CЁS҂CԈ~+~ ~P #~!j !k ~#fo{8~ ^ Vwsr+,-./0  ;      h!9N#F#^#V#N#F#>47ISMn f F_* ɯ!KP3ISAM OPENISOPISAM READISRDISAM WRITEISWRISAM UPDATEISUPISAM DELETEISDLKEYINDEXFIRSTLASTNEXTPREVIOUSPREVf666666ہ'# '# >76#Hw#PۅEɎ#>7 &+    ((#,( ( (y9 w7 >/>͋g !9>9= ͏&0  !9>[^Xف[+V+^PH(.N !^X!ف[!C (+V+^+H8. ++4 #4!^X!ف[q#^#V? !X![#^#V!C+r+s?P !0YPFniFnd!`>!!` !-`!0`!*`!?`8y#7*3!"3"3"3   >45Ȧ!0!0   >>* ~* F N *  F* !ֆN [΁ P *Аu>z7$%,-(5M ւ͂0jx7 ~܇0 " 8  F ~ 9 0  8(   8 (x7 `"(x7 U8L F[ b}^! P ֌i`! ւ! Xw!փ" f^(* R ^ !^!ց#*҂KԊ + (9y[ 06 #< ȁ[n(  ~ >|7~ ~  } ȋut" P nf ׂ  \ 0   |   J*҂Kԁ I  \0   0` Y ׂ*Ԃ[ЇR>}7  4(8 h0y(   *΂KЁ IP 4(  h \ " Ѓ8 V-" ! ց[ *ԎB  A[ҁ a>{7 ȁ" *  " ~*  " ȅ7R \ف k!݁ڄFaP[ ! ց &ց* ҂Kԃ ց*΂KЋ6#! ։  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^ \][ P \][ x ~#^#V   ~#^#V!4(5  ! օ!F   =2]T!F! ց  )!IN#F=دGOl=P{-دGOl(GW{WdG-دGOlGG0>CFnZ~W:WFdvFdFid#4 #4!@w*PB8 (" MD!! 6Nwy#~@_^V  n O͎q6R>} cG=(=(=(-=((~#pA N#~#AyAx态G~#N#? 7>yH˹>~# +P0/x/>   { ʄ7 [ R f(!ւIaƃ [N( F8F>x7# <=ݾ0 |~ #0  [ R !Pւ!ց~~wځ8$ |>yA7~(O( F(F( #[!ց!a~(s ݁[!R8؋^!a;( ֈˎ6BPi`RMD܃!Ձ!Z!^  ن!^ <2ف؂!ֈF #6#!Y!ց6#6#!\ !aF !^ <Dw[BP!^6!ցa !X!aF#c}^X!ِw( # ӧRMDkb6 n F( #[oN(> F( #[ P <F(OBa!R8o \0͏-!i`aʑi` Fa(>x7!^ >"7[0 PP@../012L{nka av HASL{n av HAS!}~#fo(~ ^V^#V"#!/ 7Fel, kan ej finna ISAM *a !* 6#с!׉ s#r1>&7Ɂ!Q~<}( o8>7AG*3!ʒ"3`"3`>TЂDЈ"37x@o&&xAo~"CUR" 1070 1090 P%=FNP2%(P%+5%)+39% 1100 REM p% {r nu adress dit man skall CALL'a vid Q7$-kommando. 1110 RETURN 4000 REM *** 4+010 REM *** Fr}ga anv. om plats d{r 4020 REM *** han vill g|ra n{sta 4030 REM *** operation. ger hj{lp vid 4040 REM *** behov. 4050 REM *** 4060 ; 'Ange |verbibliotek?'; : INPUT LINE A$ 4200 A$=LEFT$(A$,LEN(A$)-2%) 4210 IF A$<>'' IF LEFT$(A$,1%)<>'<' T+HEN A$='<'+A$+'>' 4220 B$=A$ 4230 RETURN : REM b$=bib.spec. 6000 REM *** 6010 REM *** tag emot bibnamn 6020 REM *** 6030 ; 'Ange bibliotek'; : INPUT C$ 6040 RETURN : REM c$=bibnamn 7000 REM *** 7010 REM *** anropa 'comsend'-rutinen 7020 REM *** 7030 Z%+=CALL(P%) : REM p% satt i subr. p} radn. 1000 7040 IF ERRCODE<1% ; 'ok' ELSE ; 'ERR' ERRCODE ' (se CAT-NET manualen)' 7050 RETURN liotek'; : INPUT C$ 6040 RETURN : REM c$=bibnamn 7000 REM *** 7010 REM *** anropa 'comsend'-rutinen 7020 REM *** 7030 Z%+%) : REM p% satt i subr. p} radn. 1000 7040 IF ERRCODE<1% ; 'ok' ELSE ; 'ERR' ERRCODE ' (se CAT-NET manualen)' 7050 RETURN liotek'; : INPUT C$ 6040 RETURN : REM c$=bibnamn 7000 REM *** 7010 REM *** anropa 'comsend'-rutinen 7020 REM *** 7030 Z%;;<=>?@ABCDEFGHIJKLMNOPQRSTUVWX`1 REM kopiera .bac 83-09-07 2 REM utg}va 3 84-01-02 3 REM skapat av HAS 4 P2%=250%-450%*(PEEK(14%)<>0% OR PEEK(65053%)<192%) 5 DIM F1$=12%,B1$=0%,F$(P2%)=16%,F$=16%,E$=4%,B$=256% : P1%=0% : P%=1024% 6 IF PEEK(14%) S$='800-dator med ' : B%=522% ELSE` B%=16914% : S$='ABC80 med ' 7 GOSUB 8000 : POKE A%+4%,0%,1%,0%,245%,0%,1% : REM poke VAROOT(b1$)... 8 S$='Kopiera utg}va 3 '+S$ : IF PEEK(14%) A%=65403% ELSE A%=65034% 9 A%=FNP2%(A%) : IF A%=0% ; 'Du m}ste logga in !' : GOTO 9999 10 IF CHR$(PEEK(A%+2`%),PEEK(A%+3%),PEEK(A%+4%))<>'CUR' 9 ELSE P9%=FNP2%(A%+5%)+39% 11 IF P9%>24575% ; 'Du m}ste k|ra lokalt mot n{tet' : GOTO 9999 13 IF F1$='' GOSUB 9600 : F1$='????????.???' 15 IF PEEK(14%)=0% S$=S$+MID$('1632',1%-2%*(P2%<>250%),2%)+'K RAM' : GOTO 45 42 `S%=0% : D%=-1% : IF PEEK(24678%)<>195% OR PEEK(24687%)<11% S$=S$+'[ldre DOS' : GOTO 45 43 S%=1% : D%=7% : S$=S$+'cp-DOS 6-'+NUM$(PEEK(24687%)) 45 OUT 1%,45% : IF S% AND 1% XOR 1% AND (INP(1%)<>INP(7%)) S%=S% OR 2% 47 F$(1%)='gamla och' : F$(0%)='endast`' 99 REM ===== V{lj riktning ===== 100 ; CHR$(12%) S$ : ; : ; TAB(6%) 0%,'Avsluta' : ; 110 ; TAB(6%) 1% ' Kopiering till CATNET' : ; : ; TAB(6%) 2% ' Kopiering fr}n CATNET' 111 ; : ; TAB(6%) 3% ' Kopiera ' F$(Q%) ' nya filer.' 112 ; : ; TAB(6%) 4% `' Urvalsmask, nuvarande:' : ; : ; ,F1$ 120 ; CUR(20%,0%) 'V{lj |nskat alternativ >>'; : GET A$ 130 IF 0%=INSTR(1%,'01234',A$) 120 ELSE ; A$ CUR(VAL(A$)*2%+2%,0%) '>>===>' CUR(20%,26%); 140 GET G$ : IF G$=CHR$(24%) OR G$=CHR$(8%) 100 ELSE IF G$<>CHR$(1`3%) ; CHR$(7%); : GOTO 140 143 ON VAL(A$)+1% GOTO 9600,200,150,145,6000 145 Q%=1%-Q% : GOTO 100 150 ; : S%=S% OR 16% 160 A$='Lokal enhet (dr0:)' : GOSUB 9000 : IF G$='' G$='DR0:' 170 IF 3%>LEN(G$) OR 0%=(INSTR(1%,'MOMFDRSF',LEFT$(G$+' ',2%)) AND 1%) 1`60 180 IF 254% AND asc(RIGHT$(G$,3%))-48% ; 'Fel enhetsnummer' : GOTO 160 190 E$=LEFT$(G$,3%)+':' 200 ; : GOSUB 5000 : REM V{lj filnamn 210 IF PEEK(14%) F%=65356% ELSE F%=65074% : REM Filroten 998 REM 999 REM ===== Kopiering 80/800/CATNET/Lokal ===== ` 1000 P2%=0% : FOR P%=0% TO P1% : A%=F% : F$=LEFT$(F$(P%),12%) : B$=RIGHT$(F$(P%),13%) 1002 Q7$=CHR$(0%,2%,50% XOR (S%/16%<>0%) OR Q%,1%)+' '+MID$(F$(P%),5%,8%)+MID$(F$(P%),14%,3%) 1010 F$=LEFT$(F$,INSTR(1%,F$+' ',' ')-1%)+LEFT$(B$,INSTR(1%,B$+' ',' ` ')-1%) 1011 ; F$(P%) SPACE$(4%); : IF Q%=0% AND S%>15% ON ERROR GOTO 1012 : OPEN F$ AS FILE 2% : Q7$='O' : GOTO 1050 1012 ON ERROR GOTO 1230 : PREPARE F$ AS FILE 2% : ON ERROR GOTO 1220 1030 A%=FNP2%(A%) : IF 0%=A% GOTO 8210 ELSE IF 2%<>PEEK(A%+2%) ` 1030 ELSE B%=0% 1040 IF 0%=CALL(P9%) ON S%/16%-2%*(PEEK(14%)<>0%)+1% GOSUB 1080,1110,1140,1180 1050 IF (asc(Q7$)+1% AND 126%)=38% ; NUM$(B%) ' block' ELSE ; 'Felkod' asc(Q7$) AND 127% : P2%=P2%+1% 1055 Q7$=CHR$(0%,3%,0%,1%) : CLOSE 2%+0%*CALL(P9%) 1` 060 NEXT P% : ; : IF P2% ; P2% 'fel uppkom.' 1065 ; 'Kopiering klar. '; : GET A$ : GOTO 1 1070 REM == till CATNET p} ABC80 1080 IF CALL(28666%,2%)+CALL(2201%) Q7$=CHR$(0%,7%,0%,1%)+CHR$(B%,SWAP%(B%)) 1090 IF CALL(P9%,SWAP%(PEEK(A%+9%))) RETURN ` ELSE B%=B%+1% : GOTO 1080 1100 REM == fr}n CATNET p} ABC80 1110 Q7$=CHR$(0%,6%,0%,1%)+CHR$(B%,SWAP%(B%)) : IF CALL(P9%,SWAP%(PEEK(A%+9%))) RETURN ELSE B%=B%+1% 1120 IF CALL(28666%,2%)+CALL(2204%) GOTO 1110 1130 REM == till CATNET p} ABC800 1140 POKE 65`124%,221%,33%,A%,SWAP%(A%),62%,7%,205%,90%,0%,237%,98%,208%,36%,111%,201% 1150 Q7$=CHR$(CALL(65124%,B%),7%,0%,1%)+CHR$(B%,SWAP%(B%)) : IF asc(Q7$) RETURN 1160 IF CALL(P9%,SWAP%(PEEK(A%+20%))) ; '*'; : RETURN ELSE B%=B%+1% : GOTO 1140 1170 REM == fr}n `CATNET p} ABC800 1180 Q7$=CHR$(0%,6%,0%,1%)+CHR$(B%,SWAP%(B%)) 1190 IF CALL(P9%,SWAP%(PEEK(A%+20%))) RETURN 1200 POKE 65124%,221%,33%,A%,SWAP%(A%),62%,8%,205%,90%,0%,237%,98%,208%,36%,111%,201% 1210 Q7$=CHR$(CALL(65124%,B%)) : IF asc(Q7$) RETURN ELSE `B%=B%+1% : GOTO 1180 1220 Q7$=CHR$(ERRCODE) : RETURN 1230 Q7$=CHR$(ERRCODE) : GOTO 1050 2998 REM 2999 REM ===== H{mta filnamn till f$ ===== 3000 IF S% AND 16% ON ERROR GOTO 3040 : INPUT LINE #1% A$ : IF MID$(A$,14%,1%)='D' 3000 ELSE GOTO 3500 3010 P%`=P%+1% : IF P%/16%=B% IF 254% AND 1%+asc(RIGHT$(B$,P%*16%+5% AND 255%)) 3050 ELSE 3010 3020 B%=P%/16% : P%=B%*16%-1% : IF B%<32%+8%*(D%>11% AND D%<16% OR (0%<>(S% AND 2%))) GOSUB 7000 : B$=B1$ : GOTO 3010 3030 D%=D%+1% : IF D%>19%+18%*((S% AND 1%)=0%) `3040 3032 IF asc(G$)=82% G$='' : ; 3033 E$=MID$('DRxxMFMOSF',D%/2% OR 1%,2%)+CHR$(D% AND 1% OR 48%,58%) 3035 POKE 64769%,D% : IF CALL(24678%)*0%+PEEK(64789%) 3030 ELSE P%=256% : GOTO 3020 3040 F$='' : RETURN : REM Katalogslut 3050 A$=MID$(B$,P%*16%+5%` AND 255%,8%)+'.'+MID$(B$,P%*16%+13% AND 255%,3%) 3499 REM korta ned filnamnet 3500 FOR A%=1% TO 12% : IF asc(RIGHT$(F1$,A%))<>63% IF asc(RIGHT$(F1$,A%))<>asc(RIGHT$(A$,A%)) 3000 3510 NEXT A% : F$=E$+LEFT$(A$,12%) : RETURN 4999 REM ===== V{lja filnamn` till f$(x) ===== 5000 ; CHR$(12%) S$ : ; 5005 ; 'N Kopiera inte denna fil (f|rval)' 5010 ; 'j kopiera denna fil' 5020 ; 'a kopiera resten' 5025 ; 'r kopiera resten av aktuell drivenhet' 5030 ; 'd s|k efter n{sta enhet (endast lokalt)' 5040 ; 'i ignor`era resten av filerna' 5050 ; 'x kopiera ingenting' : ; 5051 IF CALL(24678%,2%)*0%+PEEK(64789%) 5070 ELSE B$=B1$ 5052 IF CALL(24678%,18%)*0%+PEEK(64789%)=0% IF B$<>B1$ S%=S% OR 1% 5053 IF S% AND 16% OPEN 'cat:' AS FILE 1% 5070 IF P1%>P2% ; : ; 'Kan ej` handha fler filer !' : GOTO 5110 ELSE GOSUB 3000 : IF F$='' 5110 5080 ; F$ SPACE$(4%); 5081 IF 0%=INSTR(1%,'RA',CHR$(asc(G$))) ; '(Njardix) '; : GOSUB 9001 : IF G$='' OR 78%=asc(G$) 5070 5090 IF INSTR(1%,'JAR',CHR$(asc(G$))) F$(P1%)=F$ : P1%=P1%+1% :` GOTO 5070 ELSE IF G$='X' 1 5100 IF 68%=asc(G$) P%=1024% : GOTO 5070 5110 ; : ; : ; 'Antal filer:' P1% : ; : P1%=P1%-1% : RETURN 5999 REM ===== V{lja urvalsmask ===== 6000 ; : A$='\nskad mask' : GOSUB 9000 : F$='.' : A%=INSTR(1%,G$,'.') 6005 IF A% F$=`RIGHT$(G$,A%) : G$=LEFT$(G$,A%-1%) 6010 F1$=LEFT$(G$+STRING$(8%,63%),8%)+LEFT$(F$+STRING$(3%,63%),4%) : GOTO 100 6999 REM ===== H{mta in ett block ===== 7000 X%=B% : IF (S% AND 1%)=0% IF S% AND 2% X%=X%*32% ELSE X%=X% AND 3% OR X%*8% AND 227% 7010 POKE` 64769%,D% 7020 IF CALL(24678%,X%)*0%+PEEK(64789%) ; 'Diskfel' : GOTO 9999 ELSE RETURN 7998 REM 7999 REM ===== H{mta VAROOT till variabeln B ===== 8000 IF PEEK(14%) A%=65324% : GOTO 8200 ELSE A%=65063% 8010 A%=FNP2%(A%+2%) : IF A% IF B%<>FNP2%(A%) 80`10 ELSE RETURN ELSE 8210 8200 A%=FNP2%(A%) : IF A% IF B%<>FNP2%(A%+2%) 8200 ELSE RETURN 8210 ; 'Ohj{lpligt programfel !' : GOTO 9999 8998 REM 8999 REM ===== Mata in (a$) till g$ ===== 9000 ; A$, 9001 ON ERROR GOTO 9001 : INPUT A$ : G$='' : FOR I%=1% `TO LEN(A$) 9010 A%=asc(RIGHT$(A$,I%)) : IF A%<>32% G$=G$+CHR$(A% XOR -32%*(A%>95%)) 9020 NEXT I% : ON ERROR GOTO 9030 : ; 1%/0% 9030 RETURN 9500 DEF FNP2%(P%)=PEEK(P%) OR SWAP%(PEEK(P%+1%)) 9600 FOR A%=0% TO 6% : Q7$=CHR$(0%,3%,0%,A%) 9700 IF CALL(P`9%) ; 'Fel p} fil' A% ELSE NEXT A% : IF F1$='' RETURN 9999 ; CHR$(13%) SPACE$(79%) CHR$(13%); `YYZ[\]+10 REM ## LOGIN V 1.1 20 ; CHR$(12%) "# LOGIN V 1.1" : ; 30 Q7$=CHR$(17%,1%) 40 GOSUB 1000 50 Z%=CALL(P%) 60 END 1000 REM *** 1010 REM *** S|k r{tt p} adressen till 1020 REM *** maskinkodsrutinen som skickar 1030 REM *** kommandon till huvudmaskine+n. 1040 REM *** 1050 DEF FNP2%(A%)=PEEK(A%)+SWAP%(PEEK(A%+1%)) 1060 IF PEEK(14%) P%=65403% ELSE P%=65034% 1070 P%=FNP2%(P%) : IF P%=0% ; "Invalid hardvare." : STOP 1080 IF CHR$(PEEK(P%+2%),PEEK(P%+3%),PEEK(P%+4%))<>"CUR" 1070 1090 P%=FNP2%(P%+5%)+39%+ 1100 REM p% {r nu adress dit man skall CALL'a vid Q7$-kommando. 1110 RETURN %) P%=65403% ELSE P%=65034% 1070 P%=FNP2%(P%) : IF P%=0% ; "Invalid hardvare." : STOP 1080 IF CHR$(PEEK(P%+2%),PEEK(P%+3%),PEEK(P%+4%))<>"CUR" 1070 1090 P%=FNP2%(P%+5%)+39%+EM p% {r nu adress dit man skall CALL'a vid Q7$-kommando. 1110 RETURN %) P%=65403% ELSE P%=65034% 1070 P%=FNP2%(P%) : IF P%=0% ; "Invalid hardvare." : STOP 1080 IF CHR$(PEEK(P%+2%),PEEK(P%+3%),PEEK(P%+4%))<>"CUR" 1070 1090 P%=FNP2%(P%+5%)+39%^^_`abc+10 REM *** logout.bac V 1.0 20 REM *** NJB 1983 25 ; : ; : ; "# LOGOUT V 1.0" : ; : ; 30 Q7$="x="+CHR$(255%) 40 GOSUB 1000 50 GOSUB 7000 60 END 1000 REM *** 1010 REM *** S|k r{tt p} adressen till 1020 REM *** maskinkodsrutinen som skickar 1030 REM +*** kommandon till huvudmaskinen. 1040 REM *** 1050 DEF FNP2%(A%)=PEEK(A%)+SWAP%(PEEK(A%+1%)) 1060 IF PEEK(14%) P%=65403% ELSE P%=65034% 1070 P%=FNP2%(P%) : IF P%=0% ; "Invalid hardvare." : STOP 1080 IF CHR$(PEEK(P%+2%),PEEK(P%+3%),PEEK(P%+4%))<>"CUR+" 1070 1090 P%=FNP2%(P%+5%)+39% 1100 REM p% {r nu adress dit man skall CALL'a vid Q7$-kommando. 1110 RETURN 7000 REM *** 7010 REM *** anropa 'comsend'-rutinen 7020 REM *** 7030 Z%=CALL(P%) : REM p% satt i subr. p} radn. 1000 7040 IF ERRCODE<1% ; 'ok' +ELSE ; 'ERR' ERRCODE ' (se CAT-NET manualen)' 7050 RETURN  man skall CALL'a vid Q7$-kommando. 1110 RETURN 7000 REM *** 7010 REM *** anropa 'comsend'-rutinen 7020 REM *** 7030 Z%=CALL(P%) : REM p% satt i subr. p} radn. 1000 7040 IF ERRCODE<1% ; 'ok' +'ERR' ERRCODE ' (se CAT-NET manualen)' 7050 RETURN  man skall CALL'a vid Q7$-kommando. 1110 RETURN 7000 REM *** 7010 REM *** anropa 'comsend'-rutinen 7020 REM *** 7030 Z%=CALL(P%) : REM p% satt i subr. p} radn. 1000 7040 IF ERRCODE<1% ; 'ok' ddefghijklmnopq+10 REM *** l{sbrev.bas V 1.1 20 REM *** ]JK 1983 30 REM *** BOJ har {ndrat skrivartext 40 ]9$=CHR$(PEEK(32764%),PEEK(32765%),PEEK(32766%),PEEK(32767%)) 45 REM *** Spara pekare till gamla skrivarrubriktexter 50 ; CHR$(12%) 'L[SBREV V 1.1' : ; : ; 'Titta+ i brevl}dan' : ; 60 DIM A$=120 70 B$='<*,*,brevl}da>' 80 Q8$=B$ : OPEN 'cat:' AS FILE 17% 90 ON ERROR GOTO 430 100 INPUT LINE #17%,F0$ : IF MID$(F0$,14,1)<>'D' ; 'Vill du l{sa:' ELSE 100 110 F9%=1% 120 ; 'Fil ' LEFT$(F0$,12) ' skickad ' MID$(F0$,20,6+) ' (J)'; 130 INPUT A$ 140 Q$=F0$ : F0$='' : FOR I%=1% TO 12% : IF MID$(Q$,I%,1%)<>' ' F0$=F0$+MID$(Q$,I%,1%) 150 NEXT I% 160 IF (ASC (A$) AND 95%)=78% 260 170 ON ERROR GOTO 240 180 Q8$=B$ : OPEN 'cur:'+F0$ AS FILE 1% 190 IF L%=0% ; CHR$(12%) 200 FOR+ Z9%=0% TO 20% 210 INPUT LINE #1%,A$ : ; #L%,A$; : NEXT Z9% 220 INPUT LINE #1%,A$ : ; #L%,A$; : IF L%=0% GET A$ 230 GOTO 220 240 CLOSE 1% 250 IF L%<>0% CLOSE L% : L%=0% : GOTO 380 260 ; : ; 'Vill du ha skrivarutskrift (N)'; : INPUT A$ 270 IF (ASC (A$+) AND 95%)<>74% 380 280 ; 'Vilken skrivare:' 290 ; '0=lokal' : ; '1=PR1:' : ; '2=PR2:' : ; '3=PR3:' : ; '4=PR4:' : ; 'V{lj'; : GET A$ 300 IF A$<'0' OR A$>'4' ; : ; 'Fel, Ingen utskrift av detta brev' : GOTO 380 310 Z$='PR' : IF A$>'0' Z$=Z$+A$ 320 POKE+ 32764%,0%,251%,20%,251% 330 POKE 64256%,19%,68%,101%,116%,116%,97%,32%,98%,114%,101%,118%,32%,116%,105%,108%,108%,104%,124%,114%,32% 340 POKE 64276%,15%,32%,111%,99%,104%,32%,115%,107%,114%,101%,118%,115%,32%,117%,116%,32% 345 REM *** [ndra skrivarrub+riktext till 346 REM *** "Detta brev tillh|r " 347 REM *** " och det skrevs ut " 350 PREPARE Z$+':' AS FILE 10% : L%=10% 360 ; : ; 'Skriver ' F0$ ' p} ' Z$ ':' : ; 370 GOTO 170 380 ; 'Skall detta brev f|rst|ras (N)'; : INPUT A$ 390 ON ERROR GOTO 420 4+00 IF (ASC (A$) AND 95%)=74% Q8$=B$ : GOSUB 480 410 GOTO 90 420 ; 'Error' ERRCODE : GOTO 90 430 REM 440 OPEN 'cat:' AS FILE 1% : CLOSE 1% 450 IF F9%<>1% ; 'Brevl}dan tom' 460 POKE 32764%,ASC (]9$),ASC (RIGHT$(]9$,2%)),ASC (RIGHT$(]9$,3%)),ASC (RI+GHT$(]9$,4%)) 465 REM *** ]terst{ll pekare till skrivarrubriktexter. 470 END 480 IF PEEK(14%) KILL 'cur:'+F0$ : RETURN : REM *** '800 klarar detta {ven med ram-version 490 GOSUB 1010 500 OPEN "CUR:"+F0$ AS FILE 1% 510 Z%=CALL(P%+27%,1%)+CALL(P%+21%) :+ REM randomaccessinit+ kill file 515 REM *** Detta {r ett s{tt att kunna g|ra "KILL" i RAM-laddad version 520 RETURN 1000 END 1010 REM *** 1020 REM *** S|k r{tt p} adressen till 1030 REM *** maskinkodsrutinen som skickar 1040 REM *** kommandon till h+uvudmaskinen. 1050 REM *** 1060 DEF FNP2%(A%)=PEEK(A%)+SWAP%(PEEK(A%+1%)) 1070 IF PEEK(14%) P%=65403% ELSE P%=65034% 1080 P%=FNP2%(P%) : IF P%=0% ; "Invalid hardvare." : STOP 1090 IF CHR$(PEEK(P%+2%),PEEK(P%+3%),PEEK(P%+4%))<>"CUR" 1080 1100 P%=FNP2%+(P%+5%) 1110 RETURN  *** 1060 DEF FNP2%(A%)=PEEK(A%)+SWAP%(PEEK(A%+1%)) 1070 IF PEEK(14%) P%=65403% ELSE P%=65034% 1080 P%=FNP2%(P%) : IF P%=0% ; "Invalid hardvare." : STOP 1090 IF CHR$(PEEK(P%+2%),PEEK(P%+3%),PEEK(P%+4%))<>"CUR" 1080 1100 P%=FNP2%+ 1110 RETURN  *** 1060 DEF FNP2%(A%)=PEEK(A%)+SWAP%(PEEK(A%+1%)) 1070 IF PEEK(14%) P%=65403% ELSE P%=65034% 1080 P%=FNP2%(P%) : IF P%=0% ; "Invalid hardvare." : STOP 1090 IF CHR$(PEEK(P%+2%),PEEK(P%+3%),PEEK(P%+4%))<>"CUR" 1080 1100 P%=FNP2%sMENY BAC @)))MENY 0 @)))MENY 60 @)))MENY 61 @)))MENY 62 @)))MENY 63 @)))MENYSTOPBAC @)))MENYSLUTBAC @)))sstuvwxyz{|}~ a  185-01-11 - 84-03-06 v2.1a Harald Sj|ztedt CAT AB&- T,P,ݸݸ&- ,ݸ syscurusrmnydž @-ߜ-᜵-᜵+1'1-ݐ1-- 1ߣx,น3A1DZ 1,>gǃ-3Kvittera med 0; MM0Dž-11WDž,ݸ,ݸW݊ ǃ-W-1],,,,1,1,ݸ,ݸ,1,1]ˆ*r} +~> !"" "!" "0>o&^#{(Vz(B 0w+w{0Q#pSYS:MENY]](=1/+/](=+-/,1,1ǃ,g,ݵg-᜵+޵1ḼJF1ޜ:meny.g xx޸+,ݸ,1@gYiMenyfil saknasM|,ݸ,ݸ,ݸ,ݸ,ݸ,ݸKan ej st{lla tiden ; MM݊Dž,W,Wc ;;11✸;1gg݊1멐g‚1  sys:s{tt id++ޜ11@ޜ:meny.1?xx޸#޸Ձ #޸MM W#޸։} #޸Ɲ X=  = Aktiv menyfil: x =O=+,8ݵ1丼` <1<<10 7111 <1;0 ]ter;P=V{lj |nskat alternativ >>;MWވM<?W߈M>M/M‚ ;M'11 1 ²>>-->M; MM ꍾ ²;w1M  +ޜ?+ޜ@1ݵgW+ޜݍ ݵ1ݵgݵ1฼W+ޜ@11ޜ :menyslut.ba cMM߸ǃ,Dž,dž,ݸ,ݸ,+ߟ,+ޟ-g,g,g',gv,gv; MFel p} MeHittar ej menyslutM<1 MM #M M /Wሾ M.gMgޜ'gSCUMM _ ޟ1W1+ޜ@E1ݐg?gݐxM<~MM> M²ޜMMM  ޟ M ; MFelkod MFilnamn,?MƲ²²> ޜM Katalog: ;Finns ejMƲ²²ߟ ² ²>² < <²²cat:߸‚#,#ᆸ cat:Ej till}tet valMMxHittar ej menyfilenM> M < ;M  M *Fel i menyfil ! kontakta systemansvarig !!  MzzzyRPSx8,,9,,8,,9,SR8,,9,H)<;݊) 8,,9 ,(+1MW]gxBzyRPSx8,,9,,8,,9,SR8,,9,H)<;݊) 8,,9 CatNet Huvudmeny CatNet Systemrutiner SYS:SYSMENY @ SYSTEMRUTINER (SYSMAN) ELEKTRONISK POST # VISA SYSTEMINFORMATION # HANTERA BIBLIOTEK # HANTERA FILER # SYSTEMACCESS # SYSTEMPARAMETRAR # SYSTEMGENERERING # VISA SYSTEMINFORMATION Visa datum i systemet SYS:VISADAT Visa filer och bibliotek SYS:VISA Visa aktiva anv{ndare SYS:SHOW Visa systemstatus SYS:STATUS Visa aktiva diskar SYS:DISKAR HANTERA BIBLIOTEK Skapa ny anv{ndare SYS:CREUSER Skapa nytt bibliotek SYS:CRELIB [ndra namn p} bibliotek SYS:NAMELIB [ndra skydd p} bibliotek SYS:PROTLIB [ndra l|sen p} bibliotek SYS:PSWLIB Ta bort anv{ndare/bibliotek SYS:KILLIB [ndra personligt l|sen SYS:PSW HANTERA FILER Flytta filer mellan bibl. SYS:CP [ndra skydd p} fil SYS:PROTFIL [ndra l|sen p} fil SYS:PSWFIL [ndra eget standardskydd SYS:DEFPROT Ta bort filer i bibliotek SYS:MULKILL Kopiera till/fr}n CAT-NET SYS:KOPIERA SYSTEMACCESS Logga in SYS:LOGIN Logga ut SYS:LOGOUT Logga ut alla anv{ndare ALLOUT Stoppa vidare inloggning NOALLOW Till}ta vidare inloggning ALLOW St{nga centrala filer SYS:CLOSEALL SYSTEMPARAMETRAR S{tta systemdatum SYS:DATE Aktivera disk SYS:ACT Deaktivera disk SYS:DEACT [ndra skrivardefinitioner PRDEF Stoppa skrivarutskrift SYS:PRSTOP Definiera menyfiler SYS:DEFMENY ELEKTRONISK POST Skicka brev SYS:BREV L{sa brev SYS:L[SBREV SYSTEMGENERERING Kopiera operativsystemet MOVSYS Helkopiera diskett COPYDISK Formattera diskett FORMAT Formattera/generera h}rddiskHDGEN ` SYSTEMRUTINER (GRPMAN) ELEKTRONISK POST # VISA SYSTEMINFORMATION # HANTERA BIBLIOTEK # HANTERA FILER # SYSTEMACCESS # SYSTEMPARAMETRAR # VISA SYSTEMINFORMATION Visa datum i systemet SYS:VISADAT Visa filer och bibliotek SYS:VISA Visa aktiva anv{ndare SYS:SHOW Visa systemstatus SYS:STATUS Visa aktiva diskar SYS:DISKAR HANTERA BIBLIOTEK Skapa ny anv{ndare SYS:CREUSER Skapa nytt bibliotek SYS:CRELIB [ndra namn p} bibliotek SYS:NAMELIB [ndra skydd p} bibliotek SYS:PROTLIB [ndra l|sen p} bibliotek SYS:PSWLIB Ta bort anv{ndare/bibliotek SYS:KILLIB [ndra personligt l|sen SYS:PSW HANTERA FILER Flytta filer mellan bibl. SYS:CP [ndra skydd p} fil SYS:PROTFIL [ndra l|sen p} fil SYS:PSWFIL [ndra eget standardskydd SYS:DEFPROT Ta bort filer i bibliotek SYS:MULKILL Kopiera till/fr}n CAT-NET SYS:KOPIERA SYSTEMACCESS Logga in SYS:LOGIN Logga ut SYS:LOGOUT St{nga centrala filer SYS:CLOSEALL SYSTEMPARAMETRAR S{tta systemdatum SYS:DATE Aktivera disk SYS:ACT Deaktivera disk SYS:DEACT Stoppa skrivarutskrift SYS:PRSTOP Definiera menyfiler SYS:DEFMENY ELEKTRONISK POST Skicka brev SYS:BREV L{sa brev SYS:L[SBREV  SYSTEMRUTINER (USRMAN) ELEKTRONISK POST # VISA SYSTEMINFORMATION # HANTERA BIBLIOTEK # HANTERA FILER # SYSTEMACCESS # SYSTEMPARAMETRAR # VISA SYSTEMINFORMATION Visa datum i systemet SYS:VISADAT Visa filer och bibliotek SYS:VISA Visa aktiva anv{ndare SYS:SHOW Visa systemstatus SYS:STATUS Visa aktiva diskar SYS:DISKAR HANTERA BIBLIOTEK Skapa nytt bibliotek SYS:CRELIB [ndra namn p} bibliotek SYS:NAMELIB [ndra skydd p} bibliotek SYS:PROTLIB [ndra l|sen p} bibliotek SYS:PSWLIB Ta bort bibliotek SYS:KILLIB [ndra personligt l|sen SYS:PSW HANTERA FILER Flytta filer mellan bibl. SYS:CP [ndra skydd p} fil SYS:PROTFIL [ndra l|sen p} fil SYS:PSWFIL [ndra eget standardskydd SYS:DEFPROT Ta bort filer i bibliotek SYS:MULKILL Kopiera till/fr}n CAT-NET SYS:KOPIERA SYSTEMACCESS Logga in SYS:LOGIN Logga ut SYS:LOGOUT St{nga centrala filer SYS:CLOSEALL SYSTEMPARAMETRAR S{tta systemdatum SYS:DATE Aktivera disk SYS:ACT Deaktivera disk SYS:DEACT Stoppa skrivarutskrift SYS:PRSTOP Definiera menyfiler SYS:DEFMENY ELEKTRONISK POST Skicka brev SYS:BREV L{sa brev SYS:L[SBREV  SYSTEMRUTINER (NORMAL) ELEKTRONISK POST # VISA SYSTEMINFORMATION # HANTERA BIBLIOTEK # HANTERA FILER # SYSTEMACCESS # SYSTEMPARAMETRAR # VISA SYSTEMINFORMATION Visa datum i systemet SYS:VISADAT Visa filer och bibliotek SYS:VISA Visa aktiva anv{ndare SYS:SHOW Visa systemstatus SYS:STATUS Visa aktiva diskar SYS:DISKAR HANTERA BIBLIOTEK Skapa nytt bibliotek SYS:CRELIB [ndra namn p} bibliotek SYS:NAMELIB [ndra skydd p} bibliotek SYS:PROTLIB [ndra l|sen p} bibliotek SYS:PSWLIB Ta bort bibliotek SYS:KILLIB [ndra personligt l|sen SYS:PSW HANTERA FILER Flytta filer mellan bibl. SYS:CP [ndra skydd p} fil SYS:PROTFIL [ndra l|sen p} fil SYS:PSWFIL [ndra eget standardskydd SYS:DEFPROT Ta bort filer i bibliotek SYS:MULKILL Kopiera till/fr}n CAT-NET SYS:KOPIERA SYSTEMPARAMETRAR Definiera menyfiler SYS:DEFMENY SYSTEMACCESS Logga in SYS:LOGIN Logga ut SYS:LOGOUT St{nga centrala filer SYS:CLOSEALL ELEKTRONISK POST Skicka brev SYS:BREV L{sa brev SYS:L[SBREV a$gǃ-Inte under meny @- Filroten{ Enhetsroten'ߜ--+᜸,ߜ,ǃ,ݸ,ݸ ( nul:PekaEnhetIstFilPoka y a:@  Menyslut>0Ange l|sen, avbryt med ^C,@޵"⸼eݵ3?="(   sys:meny2 ꍾ5%<$ sys:meny%F ,, ;Dž,ǃ,DŽ P Nul:L|senChasinChian zz" 3y ^C,@޵"⸼eݵ3?="(   sys:meny2 ꍾ5%<$ sys:meny%F ,, ;MOVEM BAS @)))MRUSTAT BAC @)))MULKILL BAS @)))NAMELIB BAS @)))OPTION ABS @)))OPTION BAC @)))RAMOPT SYS @)))RAMOPT REL @)))MO10 REM *** movem.bas V 1.1 20 REM *** NJB 1982 21 REM *** BOJ 1986 - L{nkning vidare till MOVEM.800 {ndrad till SYS:CP.BAC 22 IF PEEK(14%) CHAIN "SYS:CP.BAC" : REM DET VAR EN '800 25 ; CHR$(12%) : ; "# MOVEM V 1.1" : ; : ; : ; 30 ; 'Flytta filer melMOlan bibliotek.' 35 ; 40 ; 'Fr}n: '; : INPUT LINE F$ 45 F$=LEFT$(F$,LEN(F$)-2%) 50 IF F$<>'' IF LEFT$(F$,1%)<>'<' F$='<'+F$+'>' 60 ; : ; 'Till: '; : INPUT LINE T$ 65 T$=LEFT$(T$,LEN(T$)-2%) 70 IF T$<>'' IF LEFT$(T$,1%)<>'<' T$='<'+T$+'>' 75 ; : ; 80 DMOIM A$(100%)=12% : N%=0% 90 Q8$=F$ : OPEN 'cat:' AS FILE 11% 100 ON ERROR GOTO 160 : INPUT LINE #11%,B$ : ON ERROR GOTO 9999 110 IF MID$(B$,13%,1%)="D" GOTO 100 120 Q$=LEFT$(B$,12%) 130 ; 'Kopiera ' Q$ ' (nej,J/A/I) '; : IF (ASC (A$) AND 95%)<>65% GET MOA$ 135 IF (ASC (A$) AND 95%)=73% THEN 160 140 IF (ASC (A$) AND 95%)<>74% AND (ASC (A$) AND 95%)<>65% ; 'N' : GOTO 100 150 ; A$ : A$(N%)=Q$ : N%=N%+1% : GOTO 100 160 ; : ; : ; : ; 'Kopieringsfas.' : ; : ; F$ ' => ' T$ 165 ; : ; : ; 170 FOR I%=0% TO MON%-1% 175 Q$=A$(I%) 180 ; Q$ 190 Q8$=F$ : OPEN Q$ AS FILE 1% 200 Q8$=T$ : PREPARE Q$ AS FILE 2% 210 ON ERROR GOTO 250 220 Z%=CALL(28666%,1%)+CALL(28668%,-1%) : W$=Q0$ 230 Z%=CALL(28666%,2%) : Q0$=W$ : Z%=CALL(28670%,-1%) 240 GOTO 220 250 IF ERMORCODE<>38% ; 'ERR' ERRCODE ELSE ON ERROR GOTO 9999 260 CLOSE 1% : CLOSE 2% 270 NEXT I% 280 END 9998 REM FOR '800 9999 ; "ERR" ERRCODE : STOP +CALL(28668%,-1%) : W$=Q0$ 230 Z%=CALL(28666%,2%) : Q0$=W$ : Z%=CALL(28670%,-1%) 240 GOTO 220 250 IF ERMO38% ; 'ERR' ERRCODE ELSE ON ERROR GOTO 9999 260 CLOSE 1% : CLOSE 2% 270 NEXT I% 280 END 9998 REM FOR '800 9999 ; "ERR" ERRCODE : STOP +CALL(28668%,-1%) : W$=Q0$ 230 Z%=CALL(28666%,2%) : Q0$=W$ : Z%=CALL(28670%,-1%) 240 GOTO 220 250 IF ER aQ| U+ &*** MRUSTAT.BAS 86-06-16 CAT INGBYR]:"# MRUSTAT V 1.2(ǃǃ (42)!Kommandot finns ej i detta system3ݵ<ߵ츼CF +P+ǟU޵ZMRU;ޟ;;!d1ޟ:+3 1n+ǀFungerarx+ǠStoppad@+ǐ.Stoppad pga felaktig status ;+3\@+Ǡ.Stoppad pga ov{ntad felkod ;+3 Stoppad ??? ;+3&݊MRU-system saknas.E;CAK;.AUKUK;A_S100_ K";% av ;K;( diskl{sningar har skett fr}n minneskort*1100_ K"% av K1*օՁ ՉօՁ iAMRU-systemet omstartatig}ng;iފ.er. **** VAL 0A";o;ީ+%,A256 o A6q@ J***#T*** S|k r{tt p} adressen till'^"*** maskinkodsrutinen som skickar'h"*** kommandon till huvudmaskinen. r***|yޜ { 2݊Invalid hardvare.'ߜ CUR✫m'<7p% {r nu adress dit man skall CALL'a vid Q7$-kommando.:yy +y1z;yAzKzUz _ziIoy { 2݊Invalid hardvare.'ߜ CUR@10 REM *** 20 REM *** mulkill.bas 30 REM *** 40 REM *** NJB 840223 v 1.0 50 REM *** 100 GOSUB 1000 110 IF PEEK(14%) T%=65280%+226% ELSE T%=65013% 120 ; CHR$(12%) "# MULKILL.BAS v 1.0" 130 ; : ; "Programmet tar bort filer ur bibliotek." 140 ; : ; "Vilket bibliotek (akt.)?"; : INPUT LINE B$ : ; : B$=LEFT$(B$,LEN(B$)-2%) 150 IF B$<>'' IF LEFT$(B$,1%)<>'<' B$='<'+B$ 160 IF B$<>'' IF RIGHT$(B$,LEN(B$))<>'>' B$=B$+'>' 170 ; : ; "J tar bort en fil. A tar bort resten av filerna i biblioteket." 180 ; "X slutar att lista." : ; 190 G$='' 200 Q8$=B$ : ON ERROR GOTO 430 : OPEN 'cat:b' AS FILE 17% 210 ON ERROR GOTO 480 : INPUT LINE #17%,F2$ : ON ERROR GOTO 590 220 IF G$="X" GOTO 210 230 IF MID$(F2$,14%,1%)="D" GOTO 210 240 F1$=LEFT$(F2$,12%) 250 F$=LEFT$(F1$,8%)+RIGHT$(F1$,10%) 260 ; "Radera " F1$; 270 IF MID$(F2$,17%,1%)="E" ; "(E) "; : E%=1% ELSE ; " "; : E%=0% 280 IF G$='A' IF PEEK(T%)>127% GET G$ : G$='' ELSE ; G$ ' '; : GOTO 350 290 ; "?"; : INPUT LINE G$ : G$=CHR$(ASC (G$) AND 95%) : IF G$="X" GOTO 210 300 IF G$<>"A" GOTO 330 310 ; : ; "Skall {ven skyddade filer tas bort (n)?"; : INPUT LINE A$ : ; 320 IF (ASC (A$) AND 95%)=74% F%=1% ELSE F%=0% 330 IF G$=CHR$(13%) OR G$="N" ; : GOTO 210 340 IF G$<>'J' AND G$<>'A' ; : GOTO 260 350 IF E%=0% OR F%<>0% GOTO 380 360 ; : ; "Filen " F1$ " {r raderskyddad, " : ; "vill du ta bort den {nd} (n)?"; : INPUT LINE A$ : ; 370 IF (ASC (A$) AND 95%)<>74% GOTO 210 380 Q7$=CHR$(0%,2%,57%,6%)+"##"+B$+F$ : IF CALL(P%) 520 390 IF E%=0% GOTO 410 400 Q7$=CHR$(0%,5%,1%,6%)+CHR$(0%,0%,0%,0%) : IF CALL(P%) 520 410 Q7$=CHR$(0%,4%,0%,6%) : IF CALL(P%) 520 420 ; ' ok' : GOTO 210 430 IF ERRCODE=21% ; "Biblioteket ej funnet." : GOTO 470 440 IF ERRCODE=74% ; "Skivan ej aktiverad." : GOTO 470 450 IF ERRCODE=77% ; "L{sskydd." : GOTO 470 460 ; "CATNET fel nr " ERRCODE 470 GOTO 140 480 IF ERRCODE<>34% ; "CATNET fel nr" ERRCODE 490 ; : ; "Vill Du k|ra igen?"; : INPUT LINE A$ : ; 500 IF (ASC (A$) AND 95%)=74% GOTO 120 510 END 520 IF ERRCODE=39% ; "Skrivskydd." : GOTO 550 530 IF ERRCODE=78% ; "Filen delad." : GOTO 550 540 ; "CATNET fel nr" ERRCODE 550 Q7$=CHR$(0%,3%,0%,6%) : IF CALL(P%) REM suck 560 ; "Vill du f|rs|ka ta bort filen igen?"; : INPUT LINE A$ : ; : IF (ASC (A$) AND 95%)=74% GOTO 380 570 ; "Vill du k|ra vidare?"; : INPUT LINE A$ : ; : IF (ASC (A$) AND 95%)=74% GOTO 210 580 END 590 ; "Fel nr" ERRCODE : STOP 1000 REM *** 1010 REM *** S|k r{tt p} adressen till 1020 REM *** maskinkodsrutinen som skickar 1030 REM *** kommandon till huvudmaskinen. 1040 REM *** 1050 DEF FNP2%(A%)=PEEK(A%)+SWAP%(PEEK(A%+1%)) 1060 IF PEEK(14%) P%=65403% ELSE P%=65034% 1070 P%=FNP2%(P%) : IF P%=0% ; "Invalid hardvare." : STOP 1080 IF CHR$(PEEK(P%+2%),PEEK(P%+3%),PEEK(P%+4%))<>"CUR" 1070 1090 P%=FNP2%(P%+5%)+39% 1100 REM p% {r nu adress dit man skall CALL'a vid Q7$-kommando. 1110 RETURN %) P%=65403% ELSE P%=65034% 1070 P%=FNP2%(P%) : IF P%=0% ; "Invalid hardvare." : STOP 1080 IF CHR$(PEEK(P%+2%),PEEK(P%+3%),PEEK(P%+4%))<>"CUR" 1070 1090 P%=FNP2%(P%+5%)+39% 1100 REMnu adress dit man skall CALL'a vid Q7$-kommando. 1110 RETURN %) P%=65403% ELSE P%=65034% 1070 P%=FNP2%(P%) : IF P%=0% ; "Invalid hardvare." : STOP 1080 IF CHR$(PEEK(P%+2%),PEEK(P%+3%),PEEK(P%+4%))<>"CUR" 1070 1090 P%=FNP2%(P%+5%)+39% 1100 REM40 ; 750 ; "V{lj: (" F% ") "; : INPUT LINE A$ : ; : A$=LEFT$(A$,LEN(A$)-2%) : IF A$<>'' F%=VAL(A$) 760 ; 770 Y%=78% 780 ; "L{sning till}ten? (ja)"; : X%=8% : GOSUB 850 790 ; "Skrivning till}ten? (ja)"; : X%=16% : GOSUB 850 800 ; "Sekvensiell fil? (ja)"; : X%=32% : GOSUB 850 810 ; "Delning till}ten? (ja)"; : X%=64% : GOSUB 850 820 Y%=74% 830 ; "Anarki till}ten? (nej)"; : X%=128% : GOSUB 850 840 RETURN 850 INPUT LINE A$ : ; : F%=FNF% : RETURN 860 ; "ERR" ERRCODE : STOP 870 ; "Kan ej skapa " E5$ " pga fel nr " ERRCODE 880 END 890 ; "Kan ej |ppna " E5$ " pga fel nr " ERRCODE 900 END 910 ; "Kan ej ta bort " E5$ " pga fel nr " ERRCODE 920 END 930 ; "Kan ej ladda " E5$ " pga fel nr " ERRCODE 940 END 950 IF ERRCODE=39% ; "Skrivskydd p} fil " E5$ : GOTO 970 960 ; "Fel nr " ERRCODE 970 END ppna " E5$ " pga fel nr " ERRCODE 900 END 910 ; "Kan ej ta bort " E5$ " pga fel nr " ERRCODE 920 END 930 ; "Kan ej ladda " E5$ " pga fel nr " ERRCODE 940 END 950 IF ERRCODE=39% ; "Skrivskydd p} fil "GOTO 970 960 ; "Fel nr " ERRCODE 970 END ppna " E5$ " pga fel nr " ERRCODE 900 END 910 ; "Kan ej ta bort " E5$ " pga fel nr " ERRCODE 920 END 930 ; "Kan ej ladda " E5$ " pga fel nr " ERRCODE 940 END 950 IF ERRCODE=39% ; "Skrivskydd p} fil "`10 REM *** namelib.bas V 1.0 20 REM *** NJB 1982 25 ; CHR$(12%) : ; "# NAMELIB V 1.0" : ; : ; : ; 30 ; '[ndra namn p} bibliotek.' 35 ; 40 REM COMMENT OBS verkar ej p} underbibiotek 50 GOSUB 1000 : GOSUB 4000 : ; : GOSUB 6000 : GOSUB 8000 60 Q7$=CHR$(0%,21%,0%,0%)+" "+B$+C$+","+D$ 70 GOSUB 7000 80 END 1000 REM *** 1010 REM *** S|k r{tt p} adressen till 1020 REM *** maskinkodsrutinen som skickar 1030 REM *** kommandon till huvudmaskinen. 1040 REM *** 1050 DEF FNP2%(A%)=PEEK(A%)+SWAP%(PEEK(A%+1%)) 1060 IF PEEK(14%) P%=65403% ELSE P%=65034% 1070 P%=FNP2%(P%) : IF P%=0% ; "Invalid hardvare." : STOP 1080 IF CHR$(PEEK(P%+2%),PEEK(P%+3%),PEEK(P%+4%))<>"CUR" 1070 1090 P%=FNP2%(P%+5%)+39% 1100 REM p% {r nu adress dit man skall CALL'a vid Q7$-kommando. 1110 RETURN 4000 REM *** 4010 REM *** Fr}ga anv. om plats d{r 4020 REM *** han vill g|ra n{sta 4030 REM *** operation. ger hj{lp vid 4040 REM *** behov. 4050 REM *** 4060 ; 'Ange |verbibliotek?'; : INPUT LINE A$ 4200 A$=LEFT$(A$,LEN(A$)-2%) 4210 IF A$<>'' IF LEFT$(A$,1%)<>'<' THEN A$='<'+A$+'>' 4220 B$=A$ 4230 RETURN : REM b$=bib.spec. 6000 REM *** 6010 REM *** tag emot bibnamn 6020 REM *** 6030 ; 'Ange bibliotek'; : INPUT C$ 6040 RETURN : REM c$=bibnamn 7000 REM *** 7010 REM *** anropa 'comsend'-rutinen 7020 REM *** 7030 Z%=CALL(P%) : REM p% satt i subr. p} radn. 1000 7040 IF ERRCODE<1% ; 'ok' ELSE ; 'ERR' ERRCODE ' (se CAT-NET manualen)' 7050 RETURN 8000 REM *** 8010 REM *** Tag emot nytt bibnamn 8020 REM *** 8030 ; "Nytt namn:"; : INPUT LINE D$ : ; 8040 D$=LEFT$(D$,LEN(D$)-2%)+";" 8050 RETURN r. p} radn. 1000 7040 IF ERRCODE<1% ; 'ok' ELSE ; 'ERR' ERRCODE ' (se CAT-NET manualen)' 7050 RETURN 8000 REM *** 8010 REM *** Tag emot nytt bibnamn 8020 REM *** 8030 ; "Nytt namn:"; : INPUT  : ; 8040 D$=LEFT$(D$,LEN(D$)-2%)+";" 8050 RETURN r. p} radn. 1000 7040 IF ERRCODE<1% ; 'ok' ELSE ; 'ERR' ERRCODE ' (se CAT-NET manualen)' 7050 RETURN 8000 REM *** 8010 REM *** Tag emot nytt bibnamn 8020 REM *** 8030 ; "Nytt namn:"; : INPUT '!"!P#~ (  ###}8>{>(`<(H"N#`8,s-`*.~(M.V.^K@yH`0{7}* !`#>  >2s!9"":G(*LEb9B"*LEC* -`*. "T !#g!G#g±o ]!$O nljhf ^\ZX*{/_z/WC~#F#N#( :O:G!~ B*++7bBOO(~#F#N#( :O:G8xAOq#p#p&nul:ADDOPT ABSg±o ]!$O nljhf ^\ZX*{/_z/WC~#F#N#( :O:G!~ B*++7bBOO(~#F#N#( :O:G8xAOq#p#p&     a(F- " ** OPTION v 1.0 **/'inladdning av .REL filer fr}n BASIC II.ߵ鸼(;-22P\nskat filnamn (.REL),-7ߊFilerna laddas in#9,))݊ ޟ):)ޟ /)ޜ</REL/F/ 䊾 /;.K/PߖnZ(dߩ Markera slut p} filnamnCnީ`++ OPTION ABS9+x9+Option.abs saknas !.  B r y  y %햾 F|r l}ng str{ng  qޜ  .('  _ .ݵ8 -:  : DRH< /*>ސ䖆 Fel enhetsnummer/B Felaktigt filnamn)Lޟ V/FilnamnInfilExtSlaskFilEnhet\listMkVar y z)y /z 9zDRH< /*>ސ䖆 Fel enhetsnummer/B Felaktigt filnamn)Lޟ V0HBécþóÇÍMI9Cj×üÏÆBEô ]ËÅ77=?:gxg˸: *m`##~>7@z?8z8swL{c.(qg `o Ns]1]{Q]x( #xIR0 S!Sx I{]> >8˼˴x(|aO2˸(%?v({<.=  io( >#>#g( G{0_ {<.= 2{ ~O{4Cy!Bzo0$~(?z> <0mv gz|o( >#h#g( :Bg˧ _ z> <12{G :B>(4yramopt.sys 1.4 ~_>_>-*.~<(= #,N,,V,~/ ,^,~/ , (G#(>7c*~,"CS2!=v=M ==t 0"K[:[_(:_:Z<[Çxp2@o&!F*[R8D:Ke>Now.V#~_8 &ɀo&N{+zs#r[ͅ!6[!:(D <(> <_E "{z0*"!55 .w ,w:@_!0/!F?DwxNo&4~o-~iwyoO~axpNo&4nw-w}bowyMoqOxpBo&4#4:@ ! !! !$xp Ao&~!.:@(*iy#X,^,VX>Bos,r͸ >No&6ɀoN-{zJ>Bo^,V>J0 sfЧ7Ff8ny< *|(ns> s}́> &ŕxpGAo&~<> qXQNz>K>Jos,r>AM0IoFXOI>2A87X2+~2ͅ8~*o ͋8:TIڴ*|ʼ~_įͅ8V! w#2!o0$~(,ͅ82O G* #y y=Oh!>w0!4~0:((%_: <>(< :<20V$7>> >8:!wͅ8~O_ K W!w _.w>_8 " o g+" !"#"!^,Vͅڈ.  .w>.w:@_!A ( yOy[( x(z7>2!>6I> 2ͅ8(͍8!ͅ0c8U < >O0 (=:< 7_: <>(< :<2 !>F>(!N>(> >(:>(@> >2> >2O <(>O0`ͯ_ [ͅD8 _ ͋8ͯͅ8 ھ= :ʾ͋ J!F B   .F ,FP0 p   [͋.F   y  ͋ͅ.~O*E >G   *> ,  ͋!"" #" "!6.:@_-Ɂ_F #y ,<=)>@o&6.~ . ~,N ڌ [ ><0 }. w,w69 <9 6<&oE [ " 7R8* R" !q6.w6,w* [ R=(,M!~(YW~w_-~.w> _>wyO0z=_~.N<{<͵ ڌ .N.~<,~<͗ [ԍ8U* ͛ 8K.44͵ 8@͇86: &w:o>6,= ͍80 u8>2͵ 8     * #ͅ:OE D Ëͯ:2} +_ [ͅ!~O6= <_ ͋ͯͅ!Fx(!N68\<(Y.w6,w.w.N><><q.~Oy8 OzWn 4.N6_.~8 wzW{0{n ͯ͋!/0 hF&.N<>@o&! V-^͇8^ ( K .qͯͅ8I 8:͋8?!^,Vͅ8-.N.F ,F (  ͋8:Ao&~ w> >>G@> x>(> *i~ *ip & y0< o}(G0y %}o} z(xG0 0j [{0Z >7ȅoG|8g> O{=!p,w: `i8 "TM G zG(zW0 { ͯ!Aq6#*["i>`>>>bQ7W!:"is;TN; W1^!AV7(%7(ˮק(3=(<=(8'F(=(=H$wF!*-X0}~*0ͤ>ͤwT!Q~<( } >7}AwG!. 8>Q7W!:"is;TN; W1^!AV7(%7(ˮק(3=(<=(8'F(=(=H$wF!*-X !"#$%&'("L{nka av HASL{n av HAS"!+"с101؄ "!+>ZRAMOPT v 1.41 CatNet RAMOPT SYSRAM: finns !ramopt.sys ?inget RAM! Versionsfel.CMD-promfel!____ KB RAMx [{|(^#V#~R #~A #~M !M7Ɂ!e؁:DŽ! 5"΁:`!9[Y%Ձ::!6##6~#6ɁB`:Nj! !Y:H7!q>2*+!lj[!B"!"[!+"!}*{""!"{:!"iƮ@! <  (= ><#R02Z202d }0QXN0!#(>/2W!݇6#q#p#"u6#q#p!`U\=(6>>>b>>>`R( :ǎ( 7 ɁR:>2Q2N~/w/wɁ!Ǒ6#!>1> 14#y>> y@ 4D>y>y 5>y~_>y"~W/w>y{Ә>yr>y ><!LjR?Ai x`(>#># &@> <>#>h#!>w*.6, !:Z<#####= ~O:>2P8 (!> 78>8 cf.":ZwchTѪqcw}?ء~# :TN!2 / 0:G`h9 '`ǁ=Q]M:(?z> #h#g( :Ǚg˧ "_ z> <1j2{G :ǖ>(4y:Ձ:QтɁA 6 N :K:ǒ(?14z>0#RAMCMDINT SYS Abort Ł(%?v({<.=  "io( >#>#g( G{0_ {<.= 2{ ~O{4Cy!Ǚzo0$~ "g( G{0_ {<.= 2{ ~O{4Cy!Ǚzo0$~ *PROTFIL BAS @)))7PROTLIB BAS @)))BPRSTOP BAS @)))KPSW BAS @)))VPSWFIL BAS @)))cPSWLIB BAS @)))oRAMOPT BAC @)))rSHOW BAS @)))**+,-./0123456+10 REM *** PROTFIL.BAS V 1.0 20 REM *** NJB 1982 25 ; CHR$(12%) : ; "# PROTFIL V 1.0" : ; : ; : ; 30 ; '[ndra skydd p} fil' 40 ; 50 GOSUB 4000 : Q8$=B$ : ; : GOSUB 8000 : GOSUB 5000 : GOSUB 1000 : GOSUB 2000 60 Q7$=CHR$(0%,5%,1%,N%)+CHR$(0%,0%,M1%,+M2%) 70 GOSUB 7000 80 END 1000 REM *** 1010 REM *** S|k r{tt p} adressen till 1020 REM *** maskinkodsrutinen som skickar 1030 REM *** kommandon till huvudmaskinen. 1040 REM *** 1050 DEF FNP2%(A%)=PEEK(A%)+SWAP%(PEEK(A%+1%)) 1060 IF PEEK(14%) P%=65403+% ELSE P%=65034% 1070 P%=FNP2%(P%) : IF P%=0% ; "Invalid hardvare." : STOP 1080 IF CHR$(PEEK(P%+2%),PEEK(P%+3%),PEEK(P%+4%))<>"CUR" 1070 1090 P%=FNP2%(P%+5%)+39% 1100 REM p% {r nu adress dit man skall CALL'a vid Q7$-kommando. 1110 RETURN 2000 REM ***+ 2010 REM *** S|k efter r{tt logiska 2020 REM *** filnummer till en |ppnad 2030 REM *** datafil. Filnummer i F%. 2040 REM *** 2060 IF PEEK(14%) P8%=65344% : C1%=21% ELSE P8%=65074% : C1%=12% 2070 P8%=FNP2%(P8%) : IF P8%=0% ; 'Fel i programmet' : STOP +2080 IF PEEK(P8%+2%)<>F% GOTO 2070 2085 N%=PEEK(64833%+PEEK(P8%+C1%)) AND 31% 2090 RETURN 4000 REM *** 4010 REM *** Fr}ga anv. om plats d{r 4020 REM *** han vill g|ra n{sta 4030 REM *** operation. ger hj{lp vid 4040 REM *** behov. 4050 REM *** 4060 ; +'Ange |verbibliotek?'; : INPUT LINE A$ 4200 A$=LEFT$(A$,LEN(A$)-2%) 4210 IF A$<>'' IF LEFT$(A$,1%)<>'<' THEN A$='<'+A$+'>' 4220 B$=A$ 4230 RETURN : REM b$=bib.spec. 5000 REM *** 5010 REM *** Fr}ga om filskydd. 5020 REM *** 5030 ; 'Skydd ?'; : INPUT LIN+E A$ 5200 A$=LEFT$(A$,LEN(A$)-2%) 5210 REM *** checkloop 5215 M%=0% : IF A$='' GOTO 5281 : REM *** prot bort helt 5220 GOSUB 5800 : T%=INSTR(1%,"PGU",X$) : IF T%=0% 5900 5230 M1%=2%^(T%*4%)-1% : M2%=0% : REM skyddsmask 5240 GOSUB 5800 : T%=INSTR(1%,"EW+RS",X$) 5250 IF T%>0% T%=2%^(T%-1%) : M2%=M2% OR (T%+16%*T%+256%*T%) : GOTO 5240 ELSE IF M2%=0% 5900 5260 M%=M% OR (M1% AND M2%) 5270 IF X$=',' GOTO 5220 5280 IF A$<>'' 5900 5281 M1%=M% AND 255% : M2%=(M%/4%) AND 192% 5285 ; 5290 RETURN : REM m1% och +m2% skyddskoder ut 5800 IF A$<>'' X%=ASC (LEFT$(A$,1%)) : X$=CHR$(X%+32%*(X%>95%)) : A$=RIGHT$(A$,2%) ELSE X$=CHR$(0%) 5810 RETURN 5900 ; : ; 'ERR 11, f|rs|k igen:' : GOTO 5000 7000 REM *** 7010 REM *** anropa 'comsend'-rutinen 7020 REM *** 7030 Z%=C+ALL(P%) : REM p% satt i subr. p} radn. 1000 7040 IF ERRCODE<1% ; 'ok' ELSE ; 'ERR' ERRCODE ' (se CAT-NET manualen)' 7050 RETURN 8000 REM *** 8010 REM *** namn p} datafil 8020 REM *** 8030 ; 'Ange fil'; : INPUT F$ : F%=17% : OPEN F$ AS FILE F% : RETURN+ (P%) : REM p% satt i subr. p} radn. 1000 7040 IF ERRCODE<1% ; 'ok' ELSE ; 'ERR' ERRCODE ' (se CAT-NET manualen)' 7050 RETURN 8000 REM *** 8010 REM *** namn p} datafil 8020 REM *** 8030 ; 'Ange fil'; : INPUT F$ : F%=17% : OPEN F$ AS FILE F% : RETURN+ : REM p% satt i subr. p} radn. 1000 7040 IF ERRCODE<1% ; 'ok' ELSE ; 'ERR' ERRCODE ' (se CAT-NET manualen)' 7050 RETURN 8000 REM *** 8010 REM *** namn p} datafil 8020 REM *** 8030 ; 'Ange fil'; : INPUT F$ : F%=17% : OPEN F$ AS FILE F% : RETURN 7789:;<=>?@A+10 REM *** PROTLIB.BAS V 1.0 20 REM NJB 1982 25 ; CHR$(12%) : ; "# PROTLIB V 1.0" : ; : ; : ; 30 ; '[ndra skydd p} ett bibliotek' 40 ; 50 GOSUB 1000 : GOSUB 4000 : ; : GOSUB 6000 : ; : GOSUB 5000 60 Q7$=CHR$(0%,21%,1%,0%)+" "+B$+C$+","+CHR$(M1%,M2+%) 70 GOSUB 7000 80 END 1000 REM *** 1010 REM *** S|k r{tt p} adressen till 1020 REM *** maskinkodsrutinen som skickar 1030 REM *** kommandon till huvudmaskinen. 1040 REM *** 1050 DEF FNP2%(A%)=PEEK(A%)+SWAP%(PEEK(A%+1%)) 1060 IF PEEK(14%) P%=65403% +ELSE P%=65034% 1070 P%=FNP2%(P%) : IF P%=0% ; "Invalid hardvare." : STOP 1080 IF CHR$(PEEK(P%+2%),PEEK(P%+3%),PEEK(P%+4%))<>"CUR" 1070 1090 P%=FNP2%(P%+5%)+39% 1100 REM p% {r nu adress dit man skall CALL'a vid Q7$-kommando. 1110 RETURN 4000 REM *** 4+010 REM *** Fr}ga anv. om plats d{r 4020 REM *** han vill g|ra n{sta 4030 REM *** operation. ger hj{lp vid 4040 REM *** behov. 4050 REM *** 4060 ; 'Ange |verbibliotek?'; : INPUT LINE A$ 4200 A$=LEFT$(A$,LEN(A$)-2%) 4210 IF A$<>'' IF LEFT$(A$,1%)<>'<' T+HEN A$='<'+A$+'>' 4220 B$=A$ 4230 RETURN : REM b$=bib.spec. 5000 REM *** 5010 REM *** Fr}ga om filskydd. 5020 REM *** 5030 ; 'Skydd ?'; : INPUT LINE A$ 5200 A$=LEFT$(A$,LEN(A$)-2%) 5210 REM *** checkloop 5215 M%=0% : IF A$='' GOTO 5281 : REM *** prot b+ort helt 5220 GOSUB 5800 : T%=INSTR(1%,"PGU",X$) : IF T%=0% 5900 5230 M1%=2%^(T%*4%)-1% : M2%=0% : REM skyddsmask 5240 GOSUB 5800 : T%=INSTR(1%,"EWRS",X$) 5250 IF T%>0% T%=2%^(T%-1%) : M2%=M2% OR (T%+16%*T%+256%*T%) : GOTO 5240 ELSE IF M2%=0% 5900 5260+ M%=M% OR (M1% AND M2%) 5270 IF X$=',' GOTO 5220 5280 IF A$<>'' 5900 5281 M1%=M% AND 255% : M2%=(M%/4%) AND 192% 5285 ; 5290 RETURN : REM m1% och m2% skyddskoder ut 5800 IF A$<>'' X%=ASC (LEFT$(A$,1%)) : X$=CHR$(X%+32%*(X%>95%)) : A$=RIGHT$(A$,2%) EL+SE X$=CHR$(0%) 5810 RETURN 5900 ; : ; 'ERR 11, f|rs|k igen:' : GOTO 5000 6000 REM *** 6010 REM *** tag emot bibnamn 6020 REM *** 6030 ; 'Ange bibliotek'; : INPUT C$ 6040 RETURN : REM c$=bibnamn 7000 REM *** 7010 REM *** anropa 'comsend'-rutinen 7020 R+EM *** 7030 Z%=CALL(P%) : REM p% satt i subr. p} radn. 1000 7040 IF ERRCODE<1% ; 'ok' ELSE ; 'ERR' ERRCODE ' (se CAT-NET manualen)' 7050 RETURN liotek'; : INPUT C$ 6040 RETURN : REM c$=bibnamn 7000 REM *** 7010 REM *** anropa 'comsend'-rutinen 7020 R+7030 Z%=CALL(P%) : REM p% satt i subr. p} radn. 1000 7040 IF ERRCODE<1% ; 'ok' ELSE ; 'ERR' ERRCODE ' (se CAT-NET manualen)' 7050 RETURN liotek'; : INPUT C$ 6040 RETURN : REM c$=bibnamn 7000 REM *** 7010 REM *** anropa 'comsend'-rutinen 7020 R@BBCDEFGHIJ10 REM *** prstop.bas v 1.0 20 REM *** NJB 1984-02-23 30 ; CHR$(12%) "# PRSTOP v1.0" : ; : ; 40 ; "Detta program tar bort en utskriftsfil" : ; "alternativt skriver om densamma." : ; 50 ; "Vilken skrivare (1,2,3,4)"; : INPUT LINE A$ : ; 60 S%=INSTR(1%,"1234",LEFT$(A$,1%)) : IF S%=0% 50 70 ; 80 ; "Vill du ta Bort utskriften eller f|r-" : ; "s|ka Om igen (B/O)"; : INPUT LINE A$ : ; 90 K%=55%+INSTR(1%,"OB",CHR$(ASC (A$) AND 95%)) : IF K%=55% GOTO 80 100 ; 110 ; "Skall skrivaren mata fram ett nytt" : ; "papper? (j)"; : INPUT LINE A$ : ; 120 IF (ASC (A$) AND 95%)=78% ]$='' : GOTO 210 130 REM *** 140 REM *** Normal}terg}ngs och pappersframmatnigsstr{ngar till skrivarna 150 REM *** 160 ]$(1%)=CHR$(24%,13%,10%)+"PRSTOP"+CHR$(13%,10%,12%) 170 ]$(2%)=CHR$(24%,13%,10%)+"PRSTOP"+CHR$(13%,10%,12%) 180 ]$(3%)=CHR$(24%,13%,10%)+"PRSTOP"+CHR$(13%,10%,12%) 190 ]$(4%)=CHR$(24%,13%,10%)+"PRSTOP"+CHR$(13%,10%,12%) 200 ]$=]$(S%) : REM *** v{lj r{tt str{ng 210 Q7$=CHR$(0%,K%,S%+48%)+"???"+CHR$(LEN(]$))+]$ 220 GOSUB 1000 225 ; 230 IF CALL(P%)=0% ; " ok" : GOTO 300 240 IF ERRCODE=80% ; "Priviligierat kommando." : GOTO 300 245 IF ERRCODE=72% ; "G}r endast p} version 1.4 och senare." : GOTO 300 250 ; "CATNET fel " ERRCODE 300 END 1000 REM *** 1010 REM *** S|k r{tt p} adressen till 1020 REM *** maskinkodsrutinen som skickar 1030 REM *** kommandon till huvudmaskinen. 1040 REM *** 1050 DEF FNP2%(A%)=PEEK(A%)+SWAP%(PEEK(A%+1%)) 1060 IF PEEK(14%) P%=65403% ELSE P%=65034% 1070 P%=FNP2%(P%) : IF P%=0% ; "Invalid hardvare." : STOP 1080 IF CHR$(PEEK(P%+2%),PEEK(P%+3%),PEEK(P%+4%))<>"CUR" 1070 1090 P%=FNP2%(P%+5%)+39% 1100 REM p% {r nu adress dit man skall CALL'a vid Q7$-kommando. 1110 RETURN %) P%=65403% ELSE P%=65034% 1070 P%=FNP2%(P%) : IF P%=0% ; "Inardvare." : STOP 1080 IF CHR$(PEEK(P%+2%),PEEK(P%+3%),PEEK(P%+4%))<>"CUR" 1070 1090 P%=FNP2%(P%+5%)+39% 1100 REM p% {r nu adress dit man skall CALL'a vid Q7$-kommando. 1110 RETURN %) P%=65403% ELSE P%=65034% 1070 P%=FNP2%(P%) : IF P%=0% ; "In`KKLMNOPQRSTU+10 REM *** PSW.BAS v 1.1 20 REM *** NJB 1982 21 REM *** NJB 1984-02-23 v 1.1 25 ; CHR$(12%) : ; "# PSW V 1.1" : ; : ; : ; 30 ; '[ndra ditt personliga l|senord.' 35 ; '( Det Du ger n{r du loggar in )' 40 ; 45 GOSUB 1000 50 ; "Ge ditt gamla l|sen" : Q+5%=1% : GOSUB 3200 : Q5%=0% 55 P2$=P$ 60 GOSUB 3000 65 Q7$=CHR$(0%,34%,0%,0%)+" "+P$+P2$ 70 GOSUB 7000 75 END 1000 REM *** 1010 REM *** S|k r{tt p} adressen till 1020 REM *** maskinkodsrutinen som skickar 1030 REM *** kommandon till huvudmaskinen. 10+40 REM *** 1050 DEF FNP2%(A%)=PEEK(A%)+SWAP%(PEEK(A%+1%)) 1060 IF PEEK(14%) P%=65403% ELSE P%=65034% 1070 P%=FNP2%(P%) : IF P%=0% ; "Invalid hardvare." : STOP 1080 IF CHR$(PEEK(P%+2%),PEEK(P%+3%),PEEK(P%+4%))<>"CUR" 1070 1090 P%=FNP2%(P%+5%)+39% 1100+ REM p% {r nu adress dit man skall CALL'a vid Q7$-kommando. 1110 RETURN 3000 REM *** 3010 REM *** Subrutin som h{mtar ett 3020 REM *** l|senord fr}n anv{ndaren. 3030 REM *** Inget sk{rmeko finns. 3040 REM *** 3044 ; 3045 ; 'OBS! sm} och stora bokst{v+er inte samma sak h{r.' 3046 ; 3050 ; 'Ge nytt "L|senord", 4 tecken.' 3060 GOSUB 3200 3065 IF P$=CHR$(254%) GOTO 3000 3070 P1$=P$ 3075 IF ASC (P$)=255% GOTO 3110 3080 ; 'Dubbelkoll, skriv l|senordet igen' 3090 GOSUB 3200 3100 IF P$<>P1$ ; 'Fel' : GOT+O 3050 3110 RETURN : REM P$ nu l|senord 3200 REM *** 3210 REM *** H{mta in l|sen. 3220 REM *** 3230 P$='' 3240 GET P0$ 3250 IF P0$=CHR$(8%) IF P$<>'' ; CHR$(8%,32%,8%); : P$=LEFT$(P$,LEN(P$)-1%) : GOTO 3240 ELSE GOTO 3240 3251 IF P0$<>CHR$(13%) AND P0$+<>CHR$(3%) P$=P$+P0$ : ; '*'; : GOTO 3240 3254 ; 3255 IF P$<>'' GOTO 3270 3257 IF Q5%=0% ; 'Vill du ta bort l|sen i st{llet (ja)'; : INPUT P0$ ELSE P$=CHR$(255%,255%,255%,255%) : RETURN 3258 IF (ASC (P0$) AND 95%)=78% P$=CHR$(254%) ELSE P$=CHR$(255%+,255%,255%,255%) 3259 RETURN 3270 IF LEN(P$)<4% ; 'Minst 4 tecken!' : GOTO 3230 3275 P$=LEFT$(P$,4%) 3280 RETURN : REM p$ password 7000 REM *** 7010 REM *** anropa 'comsend'-rutinen 7020 REM *** 7030 Z%=CALL(P%) : REM p% satt i subr. p} radn. 1000 704+0 IF ERRCODE<1% ; 'ok' ELSE ; 'ERR' ERRCODE ' (se CAT-NET manualen)' 7050 RETURN 75 P$=LEFT$(P$,4%) 3280 RETURN : REM p$ password 7000 REM *** 7010 REM *** anropa 'comsend'-rutinen 7020 REM *** 7030 Z%=CALL(P%) : REM p% satt i subr. p} radn. 1000 704+RCODE<1% ; 'ok' ELSE ; 'ERR' ERRCODE ' (se CAT-NET manualen)' 7050 RETURN 75 P$=LEFT$(P$,4%) 3280 RETURN : REM p$ password 7000 REM *** 7010 REM *** anropa 'comsend'-rutinen 7020 REM *** 7030 Z%=CALL(P%) : REM p% satt i subr. p} radn. 1000 704VVWXYZ[\]^_`ab+10 REM *** PSWFIL.BAS V 1.0 20 REM *** NJB 1982 25 ; CHR$(12%) : ; "# PSWFIL V 1.0" : ; : ; : ; 30 ; '[ndra l|sen p} fil' 40 ; 50 GOSUB 4000 : Q8$=B$ : ; : GOSUB 8000 : ; : GOSUB 3000 : GOSUB 1000 : GOSUB 2000 60 Q7$=CHR$(0%,5%,2%,N%)+" "+P$ 70 GO+SUB 7000 80 CLOSE F% 90 END 1000 REM *** 1010 REM *** S|k r{tt p} adressen till 1020 REM *** maskinkodsrutinen som skickar 1030 REM *** kommandon till huvudmaskinen. 1040 REM *** 1050 DEF FNP2%(A%)=PEEK(A%)+SWAP%(PEEK(A%+1%)) 1060 IF PEEK(14%) P%=654+03% ELSE P%=65034% 1070 P%=FNP2%(P%) : IF P%=0% ; "Invalid hardvare." : STOP 1080 IF CHR$(PEEK(P%+2%),PEEK(P%+3%),PEEK(P%+4%))<>"CUR" 1070 1090 P%=FNP2%(P%+5%)+39% 1100 REM p% {r nu adress dit man skall CALL'a vid Q7$-kommando. 1110 RETURN 2000 REM *+** 2010 REM *** S|k efter r{tt logiska 2020 REM *** filnummer till en |ppnad 2030 REM *** datafil. Filnummer i F%. 2040 REM *** 2060 IF PEEK(14%) P8%=65344% : C1%=21% ELSE P8%=65074% : C1%=12% 2070 P8%=FNP2%(P8%) : IF P8%=0% ; 'Fel i programmet' : STOP+ 2080 IF PEEK(P8%+2%)<>F% GOTO 2070 2085 N%=PEEK(64833%+PEEK(P8%+C1%)) AND 31% 2090 RETURN 3000 REM *** 3010 REM *** Subrutin som h{mtar ett 3020 REM *** l|senord fr}n anv{ndaren. 3030 REM *** Inget sk{rmeko finns. 3040 REM *** 3044 ; 3045 ; 'OBS! s+m} och stora bokst{ver inte samma sak h{r.' 3046 ; 3050 ; 'Ge nytt "L|senord", 4 tecken.' 3060 GOSUB 3200 3065 IF P$=CHR$(254%) GOTO 3000 3070 P1$=P$ 3075 IF ASC (P$)=255% GOTO 3110 3080 ; 'Dubbelkoll, skriv l|senordet igen' 3090 GOSUB 3200 3100 IF P+$<>P1$ ; 'Fel' : GOTO 3050 3110 RETURN : REM P$ nu l|senord 3200 REM *** 3210 REM *** H{mta in l|sen. 3220 REM *** 3230 P$='' 3240 GET P0$ 3250 IF P0$=CHR$(8%) IF P$<>'' ; CHR$(8%,32%,8%); : P$=LEFT$(P$,LEN(P$)-1%) : GOTO 3240 ELSE GOTO 3240 3251 IF P0+$<>CHR$(13%) AND P0$<>CHR$(3%) P$=P$+P0$ : ; '*'; : GOTO 3240 3254 ; 3255 IF P$<>'' GOTO 3270 3257 ; 'Vill du ta bort l|sen i st{llet (ja)'; : INPUT P0$ 3258 IF (ASC (P0$) AND 95%)=78% P$=CHR$(254%) ELSE P$=CHR$(255%,255%,255%,255%) 3259 RETURN 3270+ IF LEN(P$)<4% ; 'Minst 4 tecken!' : GOTO 3230 3275 P$=LEFT$(P$,4%) 3280 RETURN : REM p$ password 4000 REM *** 4010 REM *** Fr}ga anv. om plats d{r 4020 REM *** han vill g|ra n{sta 4030 REM *** operation. ger hj{lp vid 4040 REM *** behov. 4050 REM *** +4060 ; 'Ange |verbibliotek?'; : INPUT LINE A$ 4200 A$=LEFT$(A$,LEN(A$)-2%) 4210 IF A$<>'' IF LEFT$(A$,1%)<>'<' THEN A$='<'+A$+'>' 4220 B$=A$ 4230 RETURN : REM b$=bib.spec. 7000 REM *** 7010 REM *** anropa 'comsend'-rutinen 7020 REM *** 7030 Z%=CALL(P%)+ : REM p% satt i subr. p} radn. 1000 7040 IF ERRCODE<1% ; 'ok' ELSE ; 'ERR' ERRCODE ' (se CAT-NET manualen)' 7050 RETURN 8000 REM *** 8010 REM *** namn p} datafil 8020 REM *** 8030 ; 'Ange fil'; : INPUT F$ : F%=17% : OPEN F$ AS FILE F% : RETURN (P%)+p% satt i subr. p} radn. 1000 7040 IF ERRCODE<1% ; 'ok' ELSE ; 'ERR' ERRCODE ' (se CAT-NET manualen)' 7050 RETURN 8000 REM *** 8010 REM *** namn p} datafil 8020 REM *** 8030 ; 'Ange fil'; : INPUT F$ : F%=17% : OPEN F$ AS FILE F% : RETURN (P%)ccdefghijklmnMO10 REM *** PSWLIB.BAS V 1.0 20 REM *** NJb 1982 25 ; CHR$(12%) : ; "# PSWLIB V 1.0" : ; : ; : ; 30 ; '[ndra l|sen p} bibliotek.' 35 ; 40 REM COMMENT OBS verkar ej p} underbibiotek 50 GOSUB 1000 : GOSUB 4000 : ; : GOSUB 6000 : ; : GOSUB 3000 60 Q7$=MOCHR$(0%,21%,2%,0%)+" "+B$+C$+","+P$ 70 GOSUB 7000 80 END 1000 REM *** 1010 REM *** S|k r{tt p} adressen till 1020 REM *** maskinkodsrutinen som skickar 1030 REM *** kommandon till huvudmaskinen. 1040 REM *** 1050 DEF FNP2%(A%)=PEEK(A%)+SWAP%(PEEK(A%+MO1%)) 1060 IF PEEK(14%) P%=65403% ELSE P%=65034% 1070 P%=FNP2%(P%) : IF P%=0% ; "Invalid hardvare." : STOP 1080 IF CHR$(PEEK(P%+2%),PEEK(P%+3%),PEEK(P%+4%))<>"CUR" 1070 1090 P%=FNP2%(P%+5%)+39% 1100 REM p% {r nu adress dit man skall CALL'a vid Q7$-komMOmando. 1110 RETURN 3000 REM *** 3010 REM *** Subrutin som h{mtar ett 3020 REM *** l|senord fr}n anv{ndaren. 3030 REM *** Inget sk{rmeko finns. 3040 REM *** 3044 ; 3045 ; 'OBS! sm} och stora bokst{ver inte samma sak h{r.' 3046 ; 3050 ; 'Ge nytt "L|seMOnord", 4 tecken.' 3060 GOSUB 3200 3065 IF P$=CHR$(254%) GOTO 3000 3070 P1$=P$ 3075 IF ASC (P$)=255% GOTO 3110 3080 ; 'Dubbelkoll, skriv l|senordet igen' 3090 GOSUB 3200 3100 IF P$<>P1$ ; 'Fel' : GOTO 3050 3110 RETURN : REM P$ nu l|senord 3200 REM *** MO3210 REM *** H{mta in l|sen. 3220 REM *** 3230 P$='' 3240 GET P0$ 3250 IF P0$=CHR$(8%) IF P$<>'' ; CHR$(8%,32%,8%); : P$=LEFT$(P$,LEN(P$)-1%) : GOTO 3240 ELSE GOTO 3240 3251 IF P0$<>CHR$(13%) AND P0$<>CHR$(3%) P$=P$+P0$ : ; '*'; : GOTO 3240 3254 ; 325MO5 IF P$<>'' GOTO 3270 3257 ; 'Vill du ta bort l|sen i st{llet (ja)'; : INPUT P0$ 3258 IF (ASC (P0$) AND 95%)=78% P$=CHR$(254%) ELSE P$=CHR$(255%,255%,255%,255%) 3259 RETURN 3270 IF LEN(P$)<4% ; 'Minst 4 tecken!' : GOTO 3230 3275 P$=LEFT$(P$,4%) 3280 MORETURN : REM p$ password 4000 REM *** 4010 REM *** Fr}ga anv. om plats d{r 4020 REM *** han vill g|ra n{sta 4030 REM *** operation. ger hj{lp vid 4040 REM *** behov. 4050 REM *** 4060 ; 'Ange |verbibliotek?'; : INPUT LINE A$ 4200 A$=LEFT$(A$,LEN(A$)-2%MO) 4210 IF A$<>'' IF LEFT$(A$,1%)<>'<' THEN A$='<'+A$+'>' 4220 B$=A$ 4230 RETURN : REM b$=bib.spec. 6000 REM *** 6010 REM *** tag emot bibnamn 6020 REM *** 6030 ; 'Ange bibliotek'; : INPUT C$ 6040 RETURN : REM c$=bibnamn 7000 REM *** 7010 REM *** anropaMO 'comsend'-rutinen 7020 REM *** 7030 Z%=CALL(P%) : REM p% satt i subr. p} radn. 1000 7040 IF ERRCODE<1% ; 'ok' ELSE ; 'ERR' ERRCODE ' (se CAT-NET manualen)' 7050 RETURN liotek'; : INPUT C$ 6040 RETURN : REM c$=bibnamn 7000 REM *** 7010 REM *** anropaMOnd'-rutinen 7020 REM *** 7030 Z%=CALL(P%) : REM p% satt i subr. p} radn. 1000 7040 IF ERRCODE<1% ; 'ok' ELSE ; 'ERR' ERRCODE ' (se CAT-NET manualen)' 7050 RETURN liotek'; : INPUT C$ 6040 RETURN : REM c$=bibnamn 7000 REM *** 7010 REM *** anropaoopqaVdީ OPTROSH RELީ RAMPTC REL NUL: Markera slut p} filnamnCnީ`++ OPTION ABS+x+Option.abs saknas !. /FilnamnInfilExtSlaskFilEnhet\listMkVar z OPTROSH RELީ RAMPTC REL NUL: Markera slut p} filnamnCnީ`++ OPTION ABS+x+Option.abs saknas !. /FilnamnInfilExtSlaskFilEnrrstuvwxyz{|+10 REM *** SHOW 1.5 20 REM *** HAS & NJB 1984-02-23 v 1.3 21 REM *** BD 1985-09-03 v 1.4 22 REM *** BD 1986-06-?? v 1.5 Nod 60 ok 30 OUT 1%,8% : U%=INP(1%) AND 31% : GOSUB 250 : S$=SPACE$(39%)+CHR$(13%) 40 T0$=CUR(0%,0%)+"# SHOW 1.5"+CHR$(10%) : ; CH+R$(12%) T0$ 50 Q7$=CHR$(58%,58%,255%,16%) : O%=CALL(P%) : IF ASC (MID$(Q7$,3%,1%))<>255% U%=ASC (MID$(Q7$,3%,1%)) 60 Q7$=CHR$(0%,59%,16%,U%) : IF CALL(P%)=80% A$="255" : U1%=1% : GOTO 130 ELSE U1%=0% 70 ; CUR(0%,0%) T0$ : D%=0% 80 ; 'Anv{ndare nummer+ (return=alla inloggade)'; : INPUT A$ : ; CHR$(12%) CUR(5%,0%) 90 IF A$='' OR A$='Z' 280 100 IF (ASC (A$) OR 32%)<>120% 130 105 A%=VAL(RIGHT$(A$,2%)) 110 OUT 1%,8% : IF A%<>(INP(1%) AND 31%) Q7$='x='+CHR$(A%) : IF CALL(24711%) ; 'Felkod',ERRCODE 120 G+OTO 70 130 A%=VAL(A$) : ; 'Anv{ndarnummer '; : IF A%=255% ; U% CHR$(10%) ELSE ; A% CHR$(10%) 140 RESTORE 330 : N$='St{ngd' : FOR I%=16% TO 19% : READ R$ : Q7$=CHR$(A%,I%) : GOSUB 200 : NEXT I% 150 D%=11% : FOR I%=0% TO 6% : R$='Datafil'+NUM$(I%) : Q7$+=CHR$(A%,I%) : GOSUB 200 : NEXT I% 160 IF U1% GOTO 190 170 FOR I=1% TO 1000% : ; CHR$(58%-I/100%,13%); 180 IF (INP(34%-22%*(PEEK(14%)=0%)) AND 127%)=32% 70 ELSE NEXT I : ; CUR(5%,0%) : GOTO 130 190 END 200 GOSUB 210 : ; : RETURN 210 ; S$ R$ TAB(11%)+; 220 Q7$=' ;'+Q7$+S$ : IF CALL(P%) ; N$; : RETURN ELSE Z%=INSTR(6%,Q7$,'<') 230 ; MID$(Q7$,Z%,INSTR(1%,Q7$,'>')-Z%+1%+D%); : RETURN 240 DEF FNP2%(A%)=PEEK(A%)+SWAP%(PEEK(A%+1%)) 250 IF PEEK(14%) P%=65403% ELSE P%=65034% 260 P%=FNP2%(P%) : IF P%=0% ;+ 'FEL!' : STOP ELSE IF CHR$(PEEK(P%+2%),PEEK(P%+3%),PEEK(P%+4%))<>"CUR" 260 270 P%=FNP2%(P%+5%)+39% : RETURN 280 ; 'Anv{ndare' TAB(11%) 'Inloggad' TAB(25%) 'Aktuell' CHR$(10%) 290 N$=CHR$(13) : FOR I%=0% TO 31% : Q7$=CHR$(I%,16%) : R$='#'+NUM$(I%)+CHR+$(32%-10%*(I%=U%)) : GOSUB 210 300 IF (INP(34%-22%*(PEEK(14%)=0%)) AND 127%)=32% 70 310 Q7$=CHR$(I%,17%) : ; TAB(25%); : Z%=0% : GOSUB 220 : IF Z% ; 320 NEXT I% : ; S$ : IF A$<>'Z' 70 ELSE ; SPACE$(300%) CUR(5%,0%) : GOTO 280 330 DATA Inloggad,Aktue+ll,Katalog,Printer  GOSUB 210 300 IF (INP(34%-22%*(PEEK(14%)=0%)) AND 127%)=32% 70 310 Q7$=CHR$(I%,17%) : ; TAB(25%); : Z%=0% : GOSUB 220 : IF Z% ; 320 NEXT I% : ; S$ : IF A$<>'Z' 70 ELSE ; SPACE$(300%) CUR(5%,0%) : GOTO 280 330 DATA Inloggad,Aktue+log,Printer  GOSUB 210 300 IF (INP(34%-22%*(PEEK(14%)=0%)) AND 127%)=32% 70 310 Q7$=CHR$(I%,17%) : ; TAB(25%); : Z%=0% : GOSUB 220 : IF Z% ; 320 NEXT I% : ; S$ : IF A$<>'Z' 70 ELSE ; SPACE$(300%) CUR(5%,0%) : GOTO 280 330 DATA Inloggad,Aktue~SOFTOPT BAC @)))SOFTOPT REL @)))SPACE BAS @)))STATUS BAS @)))SYSMENY BAC @)))S[TTID BAC @)))TERMOPT BAC @)))TERMOPT REL @)))~~aCdީ SOFTOPT REL NUL: Markera slut p} filnamnCnީ`++ OPTION ABS+x+Option.abs saknas !. /FilnamnInfilExtSlaskFilEnhet\listMkVar zCdީ SOFTOPT REL NUL: Markera slut p} filnamnCnީ`++ OPTION ABS+x+Option.abs saknas !. /FilnamnInfilExtSlaskFilEnhet\listMkVar  0BYw!{%!}%!%1>>|^#V{  } |#o! (! }2W|2V*t6k6k!"Y!X}F N(ˎ;(>8:W9!> 8|9> 8}9!6 x!Px!Xˆ:VB_ W;{7;{ >8:W 9> 8>x9> 8>9;:V7;!XV˖ >8:W94>#>##o:Q(}2Q*R[T"RST>#>#M @+10 REM *** space.bas V 1.3 20 REM *** NJB 1983 21 REM *** NJB 1984-02-23 v 1.2 22 REM *** BD 1986-02-03 v1.3 30 ; CHR$(12%) : ; "# SPACE V 1.3" : ; : ; : ; 40 ; "*** Resterande utrymme p} skiva." 50 ; : ; "Vilken drivenhet"; : INPUT D$ : IF ASC (D$+)>95% D$=CHR$(ASC (D$) AND 95%)+RIGHT$(D$,2%) 60 IF LEN(D$)=2% IF RIGHT$(D$,2%)=":" D$=LEFT$(D$,1%) 70 IF LEN(D$)<>1% OR D$<'0' OR D$>'F' OR (D$>'9' AND D$<'A') ; "Ok{nd drivenhet" : GOTO 50 80 Q7$=" R"+D$+" " 90 GOSUB 1000 : GOSUB 1120 100 IF ERRCOD+E>0% GOTO 120 110 ; "Kvarvarande utrymme"; : ; .25*(ASC (RIGHT$(Q7$,5%))+256.000001*ASC (RIGHT$(Q7$,6%))) " Kbytes." 120 END 1000 REM *** 1010 REM *** S|k r{tt p} addressen till 1020 REM *** maskinkodsrutinen som skickar 1030 REM *** kommandon till +huvudmaskinen. 1040 REM *** 1050 DEF FNP2%(A%)=PEEK(A%)+SWAP%(PEEK(A%+1%)) 1060 IF PEEK(14%) P%=65403% ELSE P%=65034% 1070 P%=FNP2%(P%) : IF P%=0% ; "Invalid hardvare." : STOP 1080 IF CHR$(PEEK(P%+2%),PEEK(P%+3%),PEEK(P%+4%))<>"CUR" 1070 1090 P%=FNP2+%(P%+5%)+39% 1100 REM p% {r nu adress dit man skall CALL'a vid Q7$-kommando. 1110 RETURN 1120 REM *** 1130 REM *** anropa 'comsend'-rutinen 1140 REM *** 1150 Z%=CALL(P%) : REM p% satt i subr. p} radn. 1000 1160 IF ERRCODE<1% ; 'ok' ELSE ; 'ERR' ERRCOD+E ' (se CAT-NET manualen)' 1170 RETURN  man skall CALL'a vid Q7$-kommando. 1110 RETURN 1120 REM *** 1130 REM *** anropa 'comsend'-rutinen 1140 REM *** 1150 Z%=CALL(P%) : REM p% satt i subr. p} radn. 1000 1160 IF ERRCODE<1% ; 'ok' ELSE ; 'ERR' ERRCOD+ CAT-NET manualen)' 1170 RETURN  man skall CALL'a vid Q7$-kommando. 1110 RETURN 1120 REM *** 1130 REM *** anropa 'comsend'-rutinen 1140 REM *** 1150 Z%=CALL(P%) : REM p% satt i subr. p} radn. 1000 1160 IF ERRCODE<1% ; 'ok' ELSE ; 'ERR' ERRCOD`010 REM *** status.bas V 1.3 20 REM *** ]JK & NJB & HAS & BMN 30 REM *** 1986-02-03 BD v1.4 40 ; CHR$(12) 'Systemstatus. V 1.4' : ; 50 ; 'Dagens datum {r: '; 60 GOSUB 330 70 Q7$="xTxxxxddd" 80 GOSUB 600 90 ; "19"; 100 FOR I=0 TO 2 110 ; CHR$((ASC (RI0GHT$(Q7$,7+I)) AND 240)/16+48,(ASC (RIGHT$(Q7$,7+I)) AND 15)+48); 120 IF I<>2 ; "-"; ELSE ; "."; 130 NEXT I 140 REM 150 REM HAS 160 Q7$=' ;'+CHR$(-1,17)+SPACE$(76) : GOSUB 600 170 K=INSTR(1,Q7$,'<') : ; : ; 180 ; 'Ni befinner er i biblioteket ' MI0D$(Q7$,K,INSTR(1,Q7$,'>')-K+1) 190 REM 200 REM *** NJB 210 ; 220 FOR I=0 TO 15+7 : IF I=10 I=I+7 230 Q7$=CHR$(0,24)+" <"+CHR$(48+I)+":>; " 240 Z=CALL(P) 250 IF ERRCODE>0 IF ERRCODE<>74 ; "Fel " ERRCODE : STOP ELSE 310 260 X=INSTR(2,Q7$," ")-2 :0 IF X>11 OR X=-2 X=11 270 ; 'I ' CHR$(I+48) ": sitter " MID$(Q7$,2,X) ":." 280 Q7$=' R'+CHR$(I+48,32,32,32) : Z=CALL(P) 290 ; 'Kvarvarande utrymme'; : ; .25*(ASC (RIGHT$(Q7$,5))+256.000001*ASC (RIGHT$(Q7$,6))) ' Kbytes.' 300 ; 310 NEXT I 320 ; 0'Enheter i systemet : ' : GOTO 450 330 REM *** 340 REM *** S|k r{tt p} addressen till 350 REM *** maskinkodsrutinen som skickar 360 REM *** kommandon till huvudmaskinen. 370 REM *** 380 DEF FNP2(A)=PEEK(A)+SWAP%(PEEK(A+1)) 390 IF PEEK(14) P=65403 ELSE0 P=65034 400 P=FNP2(P) : IF P=0 ; "Invalid hardvare." : STOP 410 IF CHR$(PEEK(P+2),PEEK(P+3),PEEK(P+4))<>"CUR" 400 420 P=FNP2(P+5)+39 430 REM p% {r nu adress dit man skall CALL'a vid Q7$-kommando. 440 RETURN 450 REM 460 IF PEEK(14) A=65403 ELSE A=650034 470 A=FNP2(A) 480 IF A=0 THEN 590 490 A$=CHR$(PEEK(A+2),PEEK(A+3),PEEK(A+4)) 500 IF A$<>"" IF RIGHT$(A$,LEN(A$))=" " THEN A$=LEFT$(A$,LEN(A$)-1) : GOTO 500 510 IF A$<>'' A$=A$+':' ELSE A$='" "' 520 A1=FNP2(A+7) 530 A1$='' : IF A-(A<0)*65536.0000010<24576 GOTO 570 540 IF A1=0 A1$="<>" : GOTO 570 550 IF PEEK(A1)<>60 GOTO 570 560 A1$=A1$+CHR$(PEEK(A1)) : IF PEEK(A1)<>62 A1=A1+1 : GOTO 560 570 ; A$ A1$, 580 GOTO 470 590 END 600 REM *** 610 REM *** anropa 'comsend'-rutinen 620 REM *** 630 Z=CALL(P) 0: REM p% satt i subr. p} radn. 1000 640 IF ERRCODE>0 ; 'ERR' ERRCODE ' (se CAT-NET manualen)' 650 RETURN F PEEK(A1)<>62 A1=A1+1 : GOTO 560 570 ; A$ A1$, 580 GOTO 470 590 END 600 REM *** 610 REM *** anropa 'comsend'-rutinen 620 REM *** 630 Z=CALL(P) 0% satt i subr. p} radn. 1000 640 IF ERRCODE>0 ; 'ERR' ERRCODE ' (se CAT-NET manualen)' 650 RETURN F PEEK(A1)<>62 A1=A1+1 : GOTO 560 570 ; A$ A1$, 580 GOTO 470 590 END 600 REM *** 610 REM *** anropa 'comsend'-rutinen 620 REM *** 630 Z=CALL(P) PIa)% SYSMENY v 1.1 1986-08-05 HAS,BJ*ǃ-g nul:Inte under meny @- Filroten{ Enhetsroten'ߜ--4 - ݊ M}ste vara CATNET nul:7( ߜ PI  CUR -' - Menyenhet./Meny.60 Sysman0Meny.61 Groupman1Meny.62 User2Meny.63 Normal3(7PPLJ`݊ <'vSysman9<   <*>LJ`݊ =PI'? Groupman4FAAGLJ`J >'?' User/NormalLJ`݊ =0akC,'FNCmos(0) L{ser Cmosklockan till TIME$<7FNCmos(x) St{ller Cmosklockan fr}n TIME$, veckodagen X+&Funktionen returnerar Veckodagsnummer7 b086-08-06 - 84-10-11 v1.3 Harald Sj|ztedt Cat ab  P0,d{!Ta reda p} adressen till COMSEND*n-݊Kan k|ras lokalt7xߜ CUR-'L{s systemdatum3 T Jީ Systemtid ?Y1+㜵✸0#  Fixa en tid som {r ok= (V{lkommen, idag {r det ), en ;4m}ntisonstorfrel|rs|n䈧ߟ;2 & i vecka ##.sdag䈧፧Fixa lokalt junk0&xDu k|r lokalt med ;3o`UFDo`. gammalt DOS."r,6Fixa CatNet - junk@J (;0Twފ ǥ!^ Systemdatum ; s 6h0⸼ +k 'r satt.21|S S kan ej s{ttas.7Du ;PP kan inte bli;{r;< ;ީ L {kta SYSMAN.޸,帇<0 CatNet-nummeri >;= ޟ& som ?Skummis, #Ditt CatNet kortnummer ska {ndras !Chain till program&d   nu0l:,'Skriv/L{s CMOS-klockan till/fr}n TIME$A nyzOy=߫ޫxݫpe H>6>6y6>6>6>6>67# >6ɝB0(=00>6>6>6>6>6>6㹇$+䟵].,ᜫ,,ߜ,,ޜ,㜫8✫B"Decimalt till BCD fr}n Rtid$)Kyy0.  BCD till decimalt ! ayy숧硜50Ta reda p} veckodag (l}g) och veckonummer (h|g)!R!a#(#Ta reda p} dagnr inom }ret (0-365)Aޟ܅r͠㖧0ߊފނ.ߖݍ Fixa skott}r/*R{kna ut }rets f|rsta dag 0(m}n) - 6(s|n) ޟᣜ[.*"Dag inom }r + f|rsta dagen,.ޜᐧ610,Testa om Datum (b0) och Tid (b1) {r rimligaF$$%$%y ,㍾ݸ Vc z  6ߊ ሧ݊ވ݊䖇(ݖݖꐈ ކ%0 ; ! ;߆p3z.V{lj tid fr}n CatNet/Realtid/Cmos/Tangentbord!yJ$:!I$A z:,,,ݸ,,ީ,,ݸRealtidsklockan hos ABC+_ވ(=0 "߈(=TidTesta Datum och Tid!AA޸OkLeta r{tt p} ny tidCMOS-klockan p} ABC8062&-݊ݫt Cmos i '806$ Armbandsur0.0BDatum: ;(=)Aވl0LTid: ;(=)A߈<V`XbMata in 6 siffrorlv%|&i%:&z݊2';  ꊾ *__0____;  ݊ 卆<$ވ㊧_ ;ޟ  ㊈b(09㊆ ;c2;ߊኆ ;*&0''' @.J)Leta r{tt p} ev. argument i radbuffertenT^##y ,h,,Ǡ,ݸ,Q,Q,Ǡ,ݸr  +|ޜ,<ޜ ޜ0"Lista |ver kortnummer 0 - 31LGH{r anges t.ex. namn p} de som normalt sitter vid resp. terminalnummerKFOm texten 'Skummis' s{tts p} ett terminalnummer kommer en anmodan om IDatt byta terminalnummer. Om tecknet '&' s{tts p} ett termin0alnummer50presenteras anges inte vem man {r inloggad som. &,&,&,&,& &,&,&,&,& &,&,&,&,& &,&,&,&,&  &,&,&,&,&  &,&,&,&,&  &,&L{scmosCmosBcdFmcmosMfncmosS{ttidRtidDatumDagMaxGoto19R0enn1IntgeerVeckaBufList4000SdagEwd6F|rstaChainRadbufKusrXyzCatnetTestTidM}nM}DaMxInmataF|rvalSepMataTimdTextResF|evalIstD6220Miud:J$yy A9!L{scmosCmosBcdFmcmosMfncmosS{ttidRtidDatumDagMaxGoto19RaCdީ TERMOPT REL NUL: Markera slut p} filnamnCnީ`++ OPTION ABS+x+Option.abs saknas !. /FilnamnInfilExtSlaskFilEnhet\listMkVar zCdީ TERMOPT REL NUL: Markera slut p} filnamnCnީ`++ OPTION ABS+x+Option.abs saknas !. /FilnamnInfilExtSlaskFilEnhet\listMkVar0r!{%!}%!%1>ך|^#V{  } |JC^! 89^!DM9 *R:T=0 oO(.$>0^ &"R!2N # ^#V*R> %"R_> _.$<|W%&,t> _! =W _ W=!9 N9 7?ȇ7n*R}0g>8|9>8}9> 8>9_>(9{![WR\bR{OzG!B!<80M~A|xg~w,p$p}l&]T))))))_[W6 6~"M:(h: F (6 : )7nf$%(n##^#V#N#F \u!t"2[QÊ828 W:˿ǁȁnȏn!g~怇8 ^QÒ8#|u!w">57 8*Rw,t  :S> *WP0!RMD!B8MD!xx6 (kb6 y(W|g!x"W> 8|9> Ӏ8}9`> g:T)>8w9  ___~ {= {={ ɧO^ +V(^(?(~Gy((  Oy>!*~=˂˂˛N*w *wUB(1rŽ*t 6#>q#pY*R:T2P(}o>P2T"R!˃wC>2>2:P(;SR2TSRm8 8^O:GG~5ypX(o(@O{ {5q#z56#H(P N>5q#6р{P8a  ( = v m`fqy5m5:2##{PH>:2++{H+:ˇ2P zH:ˇ2z SPBH:2a H!xx>56 !xP>5 q!x>5q#H>"HG:Gw~5xK86(R(RӃ+(Y(?(A:G>  y(x8GG:˟2:ˇ2,(˸$xGxG'''Gx8G???GC :o(_( ++^##{ 0Sy5r#x5:w#:O(W zNW>5r#x5:w{PaH:2:2:ˏ2: ˯2C y56 #x56 #:2W N>56 #y5:w#{PaH:Oˏ2(W#Wx8GG:2:2WPWy5r#x5rz{oN P8z 8y :2 :g2w~5 :2>2>2((++("~5(O#~2_5G:C(K( ~5 :gy  z |2C TDMP>56 #ˊ 5 >56  ˊ>56  J( w 6 #  j&T]))))))x   VISA BAS @)))VISA 80 @)))VISA 800 @)))VISADAT BAS @))) QU10 REM VISA.BAS v 1.1 20 REM NJB 1984-03-09 v 1.1 30 IF PEEK(14%) CHAIN 'sys:visa.800' ELSE CHAIN 'sys:visa.80' {ngListArgResStatParSkyddSlingaAsSlingSzList400RuncatPekRf50StorlekSizeSpaceErd18AnQ7aInloggQkQqk &!ya$ z*QUVISA.BAS v 1.1 20 REM NJB 1984-03-09 v 1.1 30 IF PEEK(14%) CHAIN 'sys:visa.800' ELSE CHAIN 'sys:visa.80' {ngListArgResStatParSkyddSlingaAsSlingSzList400RuncatPekRf50StorlekSizeSpaceErd18AnQ7aInloggQkQqk &!ya$ z* TS*** VISA.80 v 1.3 *** HAS 1984-03-09 *** HAS 1984-04-17 v 1.2 *** HAS 1984-06-14 v 1.3 ; d B@’PJRT:P^ :PdC÷ JP^P^6P^64:P^㺇'Logga in p} n{tet:  QTS;P^6P^6P^6 'CUR纇 1(P^P^6P^64': 2 ' # VISA V 1.3 ,7:"Visa fil- och biblioteksstatus.: !<'F|rvalt utskriftsformat: 'Logga in p} n{tet:  QTS;F'$Biblioteksnamn med status, skydd och:'storlek. )P'Filnamn med skydd och storlek.: $Z'Godk{nns detta (j),:rQj dNrQj_溇 >nPd:Itv:rQj:It㺇|d } n{tet:  QTS'x'Lista rQj' (n),:rQj 8zJrQj_㺇 PdPdIt޷:|d Z{It㺇DrQj,rQj,rQj,rQj,rQj,rQj,rQj:ItIt |Itv }Pd㺇| } n{tet:  QTS$:'Bibspec $ => alla diskar. 1'(Prefix ? => Endast inloggningsbibliotek. ):'Bibliotek (aktuella):,:rQj #rQjrQjrQj(":: 1rQj?㺇rQjrQj$:I 㺇| } n{tet:  QTSA' rQjrQj($">亇rQjrQjrQj(" PrQj(ArQj<㺇QrQjrQj("Q'2Nֻ; BBӚ2Nָ::QBݚָ:qSAPշ:SSΚԶ QTSLPd㺇62N($#LպR,2Nֻ:$$ 4rQj Q'>, QP^:㺇>Xӑ:#LպRTֻ;:qIպqI:$ Bݚָ:qSAPշ:SSΚԶ QTS.::'cat: 8*:#A ?=L㺇.,ǀ:B:B 㺇 B BA$D溇` =LAPB@A"A &:APAP V8ڈ  QTS`Pd@㺇8ڈ A"A & RjP^:CA' Fil|ppning rQj$: :X պ j88ڈ QTStrQj , ^~P^:OA' L{sning av Q'>A ": :X պ t8ڈ #Xӑ:#LպRTֻ;:8ڈ <"溇s APqS㺇A : :X պ j88ڈ QTSN2NAPB@ָ:’PJS0 , "qSqS4 ’PJ Fq:S’PJ "2:qS’PJ $’PJ $ '’PJ’PJ $:Eպ -APAP:APqSﺇY 8ڈ QTSRR (Pd@I޺ )#LպR,'Total storlek:; (SSΚS:rQjS0 G#Lպ' rQj' BlockrQj($S@' KB qSﺇY 8ڈ QTS]rQj :P^:8A' Filst{ngning: :X պ s CB&:Q' "'<*亇QbQ,Q$ @A6A6Q',*:A6պB&A6շ: Y 8ڈ QTS.B&պ!QQB&":^ :A6Q':*:A6պQQA6" E: E< #IﺇII   % rQj : :bQ,rQjָ : Y 8ڈ QTS' rQj : :QrQjָ: $ rQj' ; rQjK, Z P^:KA'L{sning av eget bibliotek: :X պ Q': I Z<rQj'<*:rQjrQjZ*Z<& 8ڈ QTS= bQ,(.QrQjָ:BӚ'::rQjBݚָ  (Q(㺇BݚBӚָ: ^BݚQ',QQ($:BӚ("BӚBӚ' ' *" Z*Z<& 8ڈ QTS@BݚbQ,*㺇$Bݚ'<*BݚbQ,($: EBݚbQ,$*㺇$Bݚ'<*BݚbQ,($:  ' ',  Aֻ',; <SK_S QTSDHRTRTBABS$0BABS$0 RS \K_w >]ASe㺇 zV RTRT' :K_ ^BAB$㺇zV _S SK_S QTS;`SBABS$:SﺇSSǀ >aS 麇SS@޷S㺇 S_ @bRTRTS :SBABS$溇 K_* +cS:RTRTK_K_ dK_ QTSGeRTRT'00BABK_$0' BABK_$0($ fK_ ,zRT’KLR,RT : ESq' 4JSSkSk4@Sk4޷ +TK',u:rD:K',g:rD  QTS.^Sq's*㺇K',p:rD 'hSq' Sq , &: BrSງ1Sq's*㺇KK's:7 ;|Sງ*Sq'r*㺇KK'r rD:K',g:rD  QTS;Sງ*Sq'w*㺇KK'w ;Sງ*Sq'e*㺇KK'e (K(ﺇSqSqK SS: 5(#filnamn,filskydd,fill|sen,skapardatum,skrivdatum D  QTS2#l{sdatum,filstorlekar,? 3<#biblioteksnamn,biblioteksskydd,biblioteksl|sen 1F#skapardatum,skrivdatum,l{sdatum,bib:sstorlek P#bib:sstatus SqK SS: 5(#filnamn,filskydd,fill|sen,skapardatum,skrivdatum D  Q@ MViA(VISA.800 v 1.3HAS 1984-03-09 v 1.12-HAS 1984-04-17 v 1.2 F|rb{ttrad felhantering<7HAS 1984-06-14 v 1.3 Ingen bugg vid l{sning av diskfel {Sǵ--݊Logga in p}MV n{tet'ߜ CUR(-'E 2 # VISA ver 1.3+7Visa fil- och biblioteksstatus. <F|rvalt utskriftsformat:;F3Biblioteksnamn med status, l|sen, skydd och storlek4P*Filnamn MVmed skydd, storlek och skrivdatum.#ZGodk{nns detta (j) ?,*dN* _(nݵݵ4츼*4䊾"xLista * (n) ?,*%zJ* _4DC{4.݊5*****MV**4䜵4|6}݊k#Bibspec $ => alla diskar.5-Prefix ? => Endast inloggningsbara bibliotek&Bibliotek (aktuella):,***ߟ ** ?**޵E* **ޜ>MV**ޟ **** < * <* 4Listfil (con:),KKK߸ߵU*$$Felkod:)0[F>ݵl[:A["<[: |]`MV@S#U=Hela systemets totala storlek: ######## Block = ###.### MbyterrՍz)"qz"z2"&)U O >;r startstorlek z2݊"#UlMV  >*$#U*;#P#Ul*,*J[J4M( L{sning av >U7#Ul , *** L{skyddat bibliotek *** $lߜlMV. >cat:޸8x#޸/=U݊$ Ƒ‘  ƑB D+#Lz zޜzV`@݊n(a݊#Ul F)bI > MV*2j' Fil|ppning *St *:~/ L{sning av > #U*;"3zzޟzޟz lߟl&MV@݊Eޖ r"#UlTotal storlek:;9#U ####### Block, ######.## Kbytes.Ճ7 *! Filst{ngning$Eޖ EޟEݸ yy& MV <*,*¢  6ޜ , s|k sista komma ޟ ޸" : ޸  y ) *F*Inloggat bibliotek*  **AktMVuellt bibliotek  ;ީ *K*: /L{sning av eget bibliotek2+ *<**>* ¢* *  ) "!z ݊ @? ,  :MVݖ   ޟ '¢ފ<*,*¢ޜ*¢ފ<*,*¢ޟ A!zzzP2N filen deladfelkod: 4 O  ,. Nytt f|rs|k ?MV; nNjJ# O ;jJݖ X##$Py 9$$$J &b 0Ց! l  qވ #vrrވ ('{(=.MV ވ݊ވ݊Datafil5E0 鈧݊EޖEޜE ǀ݊ 32nugs glg@݊"߈MV0*㐸"4݊h  >䜵 H 眐-H  0  0 R ޜ \ޜk&]ሧ݊3  ^ _MV&`  ǀ *a @  _ (b   * cޜn dI2e00   fޜMVz l @$B9$$ yz %J@T,u@,g4^s݊ ,ph (r刾s݊sm$|ሾr݊ r$MV߈w݊ w$ވe݊ eߖ 8(#71filnamn,filskydd,fill|sen,skapardatum,skrivdatum2#l{sdatum,filstorlekar,?6<#5/biblioteksnamn,biblioteksskydd,biblioteksl|sen4F#MV3-skapardatum,skrivdatum,l{sdatum,bib:sstorlekP# bib:sstatusUnderbibNyttbibUppBibiniStj{rnaBibFatalDatafilFilOpenFilnrBibliotekNamnPekaSistaRadindragningListaStr{ngListArgResStatParSkyddSlingaAsSlingSzList400RuMVncatPekRf50StorlekSizeSpaceErd18AnQ7aInloggQkQqkCrosCrossD7260&!ya$ z*:4y E 'KzUy [9l"rH&z"Bz2xiotekNamnPekaSistaRadindragningListaStr{ngListArgResStatParSkyddSlingaAsSlingSzList400Ru` +10 REM *** visadat.bas V 2.1 20 REM *** NJB & GWY 1983 30 ; CHR$(12%); : ; "# VISADAT V 2.1" : ; : ; 40 GOSUB 230 50 Q7$=" T " 60 GOSUB 350 70 ; CUR(6%,1%);"Datum :";CUR(8%,1%);"19"; 80 DIM T$=6 90 T$='-- :: ' 100 FOR I%=0% TO 2% 110 GOSUB 200 12+0 NEXT I% 121 REM 122 REM testa om klockslaget ocks} finns, dvs om TIME-kortet {r anslutet 123 REM 130 IF MID$(Q7$,8%+I%,1%)=CHR$(255%) THEN GOTO 180 140 ; CUR(6%,7%);"& tid";CUR(8%,12%); 141 M%=(ASC (RIGHT$(Q7$,13%)) AND 15%) 145 IF M%<1% OR M%>7%+ GOTO 150 147 ; MID$(' M]N TIS ONSTORS FRE L\R S\N',M%*4%-3%,4%);'DAG '; 150 FOR I%=3% TO 5% 160 GOSUB 200 170 NEXT I% 180 ; : ; : ; 190 END 200 ; CHR$(ASC (RIGHT$(Q7$,7%+I%))/16%+48%,(ASC (RIGHT$(Q7$,7%+I%)) AND 15%)+48%); 210 ; MID$(T$,I%+1%,1%+); 220 RETURN 230 REM *** 240 REM *** S|k r{tt p} adressen till 250 REM *** maskinkodsrutinen som skickar 260 REM *** kommandon till huvudmaskinen. 270 REM *** 280 DEF FNP2%(A%)=PEEK(A%)+SWAP%(PEEK(A%+1%)) 290 IF PEEK(14%) P%=65403% ELSE P%=65034% 30+0 P%=FNP2%(P%) : IF P%=0% ; "Invalid hardvare." : STOP 310 IF CHR$(PEEK(P%+2%),PEEK(P%+3%),PEEK(P%+4%))<>"CUR" 300 320 P%=FNP2%(P%+5%)+39% 330 REM p% {r nu adress dit man skall CALL'a vid Q7$-kommando. 340 RETURN 350 REM *** 360 REM *** anropa 'comse+nd'-rutinen 370 REM *** 380 Z%=CALL(P%) : REM p% satt i subr. p} radn. 1000 390 IF ERRCODE<1% ; 'ok' ELSE ; 'ERR' ERRCODE ' (se CAT-NET manualen)' 400 RETURN ess dit man skall CALL'a vid Q7$-kommando. 340 RETURN 350 REM *** 360 REM *** anropa 'comse+inen 370 REM *** 380 Z%=CALL(P%) : REM p% satt i subr. p} radn. 1000 390 IF ERRCODE<1% ; 'ok' ELSE ; 'ERR' ERRCODE ' (se CAT-NET manualen)' 400 RETURN ess dit man skall CALL'a vid Q7$-kommando. 340 RETURN 350 REM *** 360 REM *** anropa 'comse