start tok64 d64-67Sdjc
10 FORi=49152TO49507:READa:POKEi,a:NEXTi
20 DATA169,64,133,168,32,152,192,165,20,201,5,144,3,76,8
22 DATA175,42,133,169,32,152,192,165,20,133,139,198,139,165,21
24 DATA133,140,169,0,133,141,133,142,133,170,32,253,174,32,158
26 DATA173,166,170,165,71,149,180,232,165,72,149,180,230,170,230
28 DATA170,165,170,197,169,208,229,32,152,192,165,20,41,127,133
30 DATA171,32,162,192,32,174,192,160,2,177,247,133,189,177,249
32 DATA133,191,136,177,247,133,188,177,249,133,190,184,136,177,247
34 DATA209,249,48,6,240,4,36,168,177,249,133,170,197,171,144
36 DATA20,164,171,177,188,209,190,144,12,208,7,200,196,170,144
38 DATA243,80,3,32,186,192,32,200,192,144,189,32,222,192,144
40 DATA181,96,32,253,174,32,158,173,32,247,183,96,162,2,181
42 DATA179,149,246,149,248,202,208,247,96,160,3,230,249,208,2
44 DATA230,250,136,208,247,96,162,2,181,248,149,246,181,140,149
46 DATA79,202,208,245,96,230,141,208,2,230,142,165,142,197,140
48 DATA208,8,165,141,197,139,208,2,56,96,24,96,165,180,197
50 DATA247,208,6,165,181,197,248,240,32,166,169,181,179,133,252
52 DATA133,254,202,181,179,133,251,133,253,32,75,193,32,53,193
54 DATA165,80,208,2,198,81,198,80,202,208,226,165,139,208,2
56 DATA198,140,198,139,165,140,208,4,165,139,240,25,169,0,133
58 DATA141,133,142,166,169,160,3,246,178,208,2,246,179,136,208
60 DATA247,202,202,208,241,24,96,56,96,160,0,177,251,72,200
62 DATA192,3,208,248,136,177,253,145,251,104,145,253,136,16,246
64 DATA96,230,80,208,2,230,81,160,3,24,165,253,101,80,133
66 DATA253,165,254,101,81,133,254,136,208,240,96
100 POKE53280,7:POKE53281,13:DIMn$(1500):DIMd$(1500)
110 PRINT"{clear}{black}{down*2}{reverse on}{space*40}";
120 PRINT"{dark gray}{reverse on}{space*8}d i s k e t t i n d e x{space*9}{reverse off}";
130 PRINT"{black}{reverse on}{space*40}"
140 PRINT"{down}{space*4}1 - mata in"
150 PRINT"{down}{space*4}2 - sudda ut"
160 PRINT"{down}{space*4}3 - sortera"
170 PRINT"{down}{space*4}4 - ladda/spara"
180 PRINT"{down}{space*4}5 - utskrift"
190 PRINT"{down}{space*4}6 - diskettbibliotek"
200 PRINT"{down}{space*4}7 - avsluta"
210 PRINT"{down*2}{reverse on}{space*40}"
220 GETa$:IFa$=""THEN220
230 IFASC(a$)<49ORASC(a$)>55THEN220
240 ONVAL(a$)GOTO1000,2000,3000,4000,5000,6000,7000
1000 PRINT"{clear}{black}{down*2}{reverse on}{space*40}";
1010 PRINT"{dark gray}{reverse on}{space*13}m a t a{space*3}i n{space*14}{reverse off}";
1020 PRINT"{black}{reverse on}{space*40}"
1030 INPUT"{home}{down*7} s[tt i disketten,skriv {reverse on}diskid{reverse off} ";d$
1040 IFLEN(d$)=0ORLEN(d$)>5THEN1030
1050 PRINTTAB(21)"{down}mata in? {reverse on}j{reverse off}/{reverse on}n{down}{blue}"
1060 OPEN1,8,0,"$":FORi=1TO27:GET#1,a$:NEXTi
1070 n$="":FORi=1TO4:GET#1,a$:NEXTi
1080 GET#1,a$:IFa$<>"b"THEN1130
1090 CLOSE1:PRINTTAB(9)"{black}{down}en diskett till? {reverse on}j{reverse off}/{reverse on}n":POKE198,0
1100 GETa$:IFa$="n"THEN110
1110 IFa$="j"THEN1000
1120 GOTO1100
1130 GET#1,a$:IFa$<>CHR$(34)THEN1130
1140 GET#1,a$:IFa$=CHR$(34)THEN1160
1150 n$=n$+a$:GOTO1140
1160 PRINTTAB(7)n$;
1170 GETa$:POKE198,1:IFa$="n"THENPRINTSPC(23-LEN(n$))"{black}{reverse on}nej{blue}":GOTO1200
1180 IFa$<>"j"THEN1170
1190 PRINTSPC(23-LEN(n$))"{black}{reverse on}ja{blue}":n=n+1:n$(n)=n$:d$(n)=d$
1200 GET#1,a$:IFa$<>""THEN1200
1210 GOTO1070
2000 PRINT"{clear}{black}{down*2}{reverse on}{space*40}";
2010 PRINT"{dark gray}{reverse on}{space*11}s u d d a{space*3}u t{space*14}";
2020 PRINT"{black}{reverse on}{space*40}"
2030 INPUT"{down*2} skriv programnamn {blue}";n$:x=0
2040 x=x+1:IFx>nTHENPRINT"{black}{down*2} programnamnet existerar ej":GOTO2070
2050 IFn$<>n$(x)THEN2040
2060 n=n-1:FORi=xTOn:n$(i)=n$(i+1):d$(i)=d$(i+1):NEXTi
2070 PRINTTAB(10)"{black}{down}en g]ng till? {reverse on}j{reverse off}/{reverse on}n":POKE198,0
2080 GETa$:IFa$="n"THEN110
2090 IFa$="j"THEN2000
2100 GOTO2080
3000 PRINT"{clear}{black}{down*2}{reverse on}{space*40}";
3010 PRINT"{dark gray}{reverse on}{space*13}s o r t e r a{space*14}{reverse off}";
3020 PRINT"{black}{reverse on}{space*40}"
3030 PRINT"{down*2}{space*2}sortera efter {reverse on}n{reverse off}amn eller {reverse on}d{reverse off}iskid? {reverse on}n{reverse off}/{reverse on}d"
3040 GETa$:IFa$<>"n"ANDa$<>"d"THEN3040
3050 PRINTTAB(10)"{down*2}var sn[ll och v[nta!"
3060 IFa$="d"THENSYS49152,2,n,d$(1),n$(1),0:GOTO110
3070 SYS49152,2,n,n$(1),d$(1),0:GOTO110
4000 PRINT"{clear}{black}{down*2}{reverse on}{space*40}";
4010 PRINT"{dark gray}{reverse on}{space*9}l a d d a / s p a r a{space*10}{reverse off}";
4020 PRINT"{black}{reverse on}{space*40}"
4030 PRINT"{down*2}{space*2}{reverse on}l{reverse off}adda eller {reverse on}s{reverse off}para p] diskett? {reverse on}l{reverse off}/{reverse on}s"
4040 GETa$:IFa$<>"l"ANDa$<>"s"THEN4040
4050 INPUT"{down*2}{space*6}filnamn {blue}";f$
4060 IFa$="s"THEN4100
4070 OPEN1,8,2,f$:INPUT#1,n
4080 FORi=1TOn:INPUT#1,n$(i):INPUT#1,d$(i):NEXTi
4090 CLOSE1:GOTO110
4100 OPEN1,8,2,"@:"+f$+",s,w":PRINT#1,n
4110 FORi=1TOn:PRINT#1,n$(i):PRINT#1,d$(i):NEXTi
4120 CLOSE1:GOTO110
5000 PRINT"{clear}{black}{down*2}{reverse on}{space*40}";
5010 PRINT"{dark gray}{space*12}u t s k r i f t{space*13}{reverse off}";
5020 PRINT"{black}{reverse on}{space*40}"
5030 PRINT"{space*4}{down*2}p] {reverse on}s{reverse off}k[rm eller {reverse on}p{reverse off}rinter? {reverse on}s{reverse off}/{reverse on}p{down*2}":POKE198,0
5040 GETa$:IFa$<>"s"ANDa$<>"p"THEN5040
5050 IFa$="s"THENx=3
5060 IFa$="p"THENx=4
5070 OPEN1,x:PRINT#1,"{reverse on} nr{space*2}programnamn"SPC(14)"diskid{blue}"
5080 IFn=0THEN5110
5090 FORi=1TOn:IFi<10THENPRINT#1," ";
5100 PRINT#1,i" "n$(i)SPC(25-LEN(n$(i)))d$(i):NEXTi
5110 CLOSE1:PRINTTAB(10)"{black}{down}en g]ng till? {reverse on}j{reverse off}/{reverse on}n"
5120 GETa$:IFa$="n"THEN110
5130 IFa$="j"THEN5000
5140 GOTO5120
6000 PRINT"{clear}{black}{down*2}{reverse on}{space*40}";
6010 PRINT"{dark gray}{reverse on}{space*4}d i s k e t t b i b l i o t e k{space*5}{reverse off}";
6020 PRINT"{black}{reverse on}{space*40}"
6030 PRINT"{down}{space*3}s[tt i disketten och tryck {reverse on}space{down*2}{blue}"
6040 GETa$:IFa$<>" "THEN6040
6050 OPEN1,8,0,"$":GET#1,a$:GET#1,a$
6060 GET#1,l$:GET#1,l$:IFst=64THENCLOSE1:GOTO6100
6070 GET#1,lb$:GET#1,hb$:PRINTASC(lb$+CHR$(0))+256*ASC(hb$+CHR$(0));
6080 GET#1,a$:IFa$=""THENPRINT"":GOTO6060
6090 PRINTa$;:GOTO6080
6100 PRINTTAB(10)"{black}{down}en g]ng till? {reverse on}j{reverse off}/{reverse on}n"
6110 GETa$:IFa$="n"THEN110
6120 IFa$="j"THEN6000
6130 GOTO6110
7000 SYS64738
stop tok64
(bastext 1.0)