start tok64 d64-4Vkehc
0 GOTO15
1 PRINT"{clear}{right*15}300":INPUT"{up}antal poster ";ant:ant=ant+1
2 PRINT"{down*2}(max 10)":PRINT"{up*2}{right*13}5":INPUT"{up}antal f[lt ";kol
3 IFkol>10THENRUN
4 DIMh$(ant):IFkol=1THENRETURN
5 DIMi$(ant):IFkol=2THENRETURN
6 DIMj$(ant):IFkol=3THENRETURN
7 DIMk$(ant):IFkol=4THENRETURN
8 DIMl$(ant):IFkol=5THENRETURN
9 DIMm$(ant):IFkol=6THENRETURN
10 DIMn$(ant):IFkol=7THENRETURN
11 DIMo$(ant):IFkol=8THENRETURN
12 DIMp$(ant):IFkol=9THENRETURN
13 DIMq$(ant):RETURN
14 GOTO19
15 PRINT"{clear}";CHR$(14)
16 POKE53280,0:POKE53281,0
17 GOSUB5000
19 POKEv+5,50:PRINT"{clear}":GOSUB6000
20 PRINT"{home}{light gray}{down}"
21 PRINT"{space*11}SOFT-WARE"
22 PRINT"{down}{space*15}PRESENTS:"
23 PRINT"{down}{space*19}{yellow}{cm a}{sh asterisk*13}{cm s}"
24 PRINT"{space*19}{cm q} {red}REGISTER 64{yellow} {cm w}":IFkl=-1THENkl=0
25 PRINT"{space*19}{cm z}{sh asterisk*13}{cm x}{light gray}"
26 PRINT"{down}{sh asterisk*39}":PRINT"{right*3}Meny f{pound}r : {red}";nam$
27 PRINT"{light gray}{sh asterisk*39}"
28 PRINT"{right*3}Antal poster kvar = {red}";kl:PRINT"{light gray}{sh asterisk*39}"
29 PRINT"{green} f1. Input":PRINT" f3. Output":PRINT" f5. {sh +}ndring & s{pound}kning i fil"
30 PRINT" f6. Rensning av fil":PRINT" f8. Diskett-funktioner"
31 GETa$
32 IFa$="{f1}"THEN100
33 IFa$="{f3}"THEN2000
34 IFa$="{f5}"THEN300
35 IFa$="{f6}"THEN60
36 IFa$="{f8}"THEN12000
40 GOTO31
60 POKEv+5,0:INPUT"{clear}{down*2} Bekr[fta rensning (j/n) ";a$
62 IFa$="j"THENRUN
63 GOTO14
100 POKEv+5,0:PRINT"{clear}{reverse on} f1. H[mta fil f3.Tangentbord f7. Meny {reverse off}"
101 GETghj$
102 IFghj$="{f1}"THEN360
103 IFghj$="{f3}"THEN140
104 IFghj$="{f7}"THEN14
105 GOTO101
140 IFf$=""ANDe$=""ANDnamn$=""THEN145
141 GOTO800
145 CLR:GOSUB1
150 INPUT"{down*2}Namn/Identitet ";nam$
151 PRINT"{down}Varje f[lt f]r h{pound}gst ha 15 bokst[ver."
152 INPUT"{down} f[lt 1 ";b$:IFkol=1THEN176
153 INPUT"{down} f[lt 2 ";c$:IFkol=2THEN176
154 INPUT"{down} f[lt 3 ";d$:IFkol=3THEN176
155 INPUT"{down} f[lt 4 ";e$:IFkol=4THEN176
156 INPUT"{down} f[lt 5 ";f$:IFkol=5THEN176
157 INPUT"{down} f[lt 6 ";g$:IFkol=6THEN176
158 INPUT"{down} f[lt 7 ";h$:IFkol=7THEN176
159 INPUT"{down} f[lt 8 ";i$:IFkol=8THEN176
160 INPUT"{down} f[lt 9 ";j$:IFkol=9THEN176
161 INPUT"{down} f[lt 10 ";k$
176 PRINT"{down} {sh +}r du s[ker? (j/n)"
177 GETa$
178 IFa$="j"THENGOSUB5000:GOTO200
179 IFa$="n"THEN145
180 GOTO177
200 FORe=1TOant-1:IFh$(e)="*"ORh$(e)=""THEN205
201 NEXT
205 IFh$(ant-1)<>"*"ANDh$(ant-1)<>""THENPRINT"{clear}Minnet fullt":FORew=1TO300:NEXT:GOTO14
206 POKE198,0:PRINT"{clear}{space*2}Inmatning av poster"
207 PRINT"{down}{space*2}tryck '*' vid ";b$;" f{pound}r Meny"
208 PRINT"{down}";b$:INPUTh$(e):IFh$(e)="*"THEN14
209 IFkol=1THEN222
210 PRINT"{down}";c$:INPUTi$(e):IFkol=2THEN222
211 PRINT"{down}";d$:INPUTj$(e):IFkol=3THEN222
212 PRINT"{down}";e$:INPUTk$(e):IFkol=4THEN222
213 PRINT"{down}";f$:INPUTl$(e):IFkol=5THEN222
214 PRINT"{down}";g$:INPUTm$(e):IFkol=6THEN222
215 PRINT"{down}";h$:INPUTn$(e):IFkol=7THEN222
216 PRINT"{down}";i$:INPUTo$(e):IFkol=8THEN222
217 PRINT"{down}";j$:INPUTp$(e):IFkol=9THEN222
218 PRINT"{down}";k$:INPUTq$(e)
222 PRINT"{down} {sh +}r du s[ker ? (j/n)
223 GETa$
224 IFa$="j"THEN229
225 IFa$="n"THEN230
226 GOTO223
229 e=e+1:GOTO205
230 PRINT"Mata in den igen d]."
231 FORcc=1TO3000:NEXT
232 GOTO208
300 POKEv+5,0:PRINT"{clear}{space*6}S{pound}kning i fil"
301 PRINT"{space*6}{-*13}"
302 PRINT"{down} 0. s{pound}kning efter ";b$:IFkol=1THEN312
303 PRINT" 1. s{pound}kning efter ";c$:IFkol=2THEN312
304 PRINT" 2. s{pound}kning efter ";d$:IFkol=3THEN312
305 PRINT" 3. s{pound}kning efter ";e$:IFkol=4THEN312
306 PRINT" 4. s{pound}kning efter ";f$:IFkol=5THEN312
307 PRINT" 5. s{pound}kning efter ";g$:IFkol=6THEN312
308 PRINT" 6. s{pound}kning efter ";h$:IFkol=7THEN312
309 PRINT" 7. s{pound}kning efter ";i$:IFkol=8THEN312
310 PRINT" 8. s{pound}kning efter ";j$:IFkol=9THEN312
311 PRINT" 9. s{pound}kning efter ";k$
312 PRINT"{down}{reverse on} f7. f{pound}r Meny "
313 GOTO600
314 s=0:PRINT"{down}";b$:INPUTvv$
315 w=w+1:s=s+1
316 IFvv$=h$(w)THEN320
317 IFh$(w)=""ORh$(w)="*"THENw=0
318 IFs=jkTHEN14
319 GOTO315
320 hej=1
321 GOSUB322:GOTO500
322 PRINT"{clear}{down}"
324 PRINT"{down}";b$:PRINT"{up}{right*15}";h$(w):IFkol=1THEN334
325 PRINTc$:PRINT"{up}{right*15}";i$(w):IFkol=2THEN334
326 PRINTd$:PRINT"{up}{right*15}";j$(w):IFkol=3THEN334
327 PRINTe$:PRINT"{up}{right*15}";k$(w):IFkol=4THEN334
328 PRINTf$:PRINT"{up}{right*15}";l$(w):IFkol=5THEN334
329 PRINTg$:PRINT"{up}{right*15}";m$(w):IFkol=6THEN334
330 PRINTh$:PRINT"{up}{right*15}";n$(w):IFkol=7THEN334
331 PRINTi$:PRINT"{up}{right*15}";o$(w):IFkol=8THEN334
332 PRINTj$:PRINT"{up}{right*15}";p$(w):IFkol=9THEN334
333 PRINTk$:PRINT"{up}{right*15}";q$(w)
334 RETURN
340 GOSUB322
342 GOTO900
360 REM
361 INPUT"{down}{sh +}r du s[ker (j/n) ";a$
362 IF a$="n"THEN14
363 CLR:INPUT"{down}band/disk (b/d) ";a$
364 IF a$="b"THENe=1:GOTO366
365 e=8
366 INPUT"{down}Filnamn ";q$
399 PRINT"{down}Loading ";q$:OPEN1,e,0,q$
400 INPUT#1,ant:INPUT#1,kol:INPUT#1,jk:GOSUB4
407 INPUT#1,b$:INPUT#1,nam$:IFkol=1THEN420
408 INPUT#1,c$:IFkol=2THEN420
409 INPUT#1,d$:IFkol=3THEN420
410 INPUT#1,e$:IFkol=4THEN420
411 INPUT#1,f$:IFkol=5THEN420
412 INPUT#1,g$:IFkol=6THEN420
413 INPUT#1,h$:IFkol=7THEN420
414 INPUT#1,i$:IFkol=8THEN420
415 INPUT#1,j$:IFkol=9THEN420
416 INPUT#1,k$
420 q=q+1
421 INPUT#1,h$(q):IFkol=1THEN448
422 INPUT#1,i$(q):IFkol=2THEN448
423 INPUT#1,j$(q):IFkol=3THEN448
424 INPUT#1,k$(q):IFkol=4THEN448
425 INPUT#1,l$(q):IFkol=5THEN448
426 INPUT#1,m$(q):IFkol=6THEN448
427 INPUT#1,n$(q):IFkol=7THEN448
428 INPUT#1,o$(q):IFkol=8THEN448
429 INPUT#1,p$(q):IFkol=9THEN448
430 INPUT#1,q$(q)
448 IFq>=jk-1THEN450
449 GOTO420
450 CLOSE1
451 RESTORE:GOSUB5000:GOTO14
499 GOTO420
500 PRINT"{down} f1. Fortsatt s{pound}kning":PRINT" f3. {sh +}ndras":PRINT" f5. n[sta ";vv$
501 PRINT" f6. Tas bort":PRINT" f7. Meny"
520 GETa$
521 IFa$="{f1}"THEN300
537 IFa$="{f3}"THEN340
538 IFa$="{f5}"THEN550
539 IFa$="{f6}"THEN6500
540 IFa$="{f7}"THEN14
541 GOTO520
550 IFhej=1THEN315
551 IFhej=2THEN631
552 IFhej=3THEN639
553 IFhej=4THEN647
554 IFhej=5THEN655
555 IFhej=6THEN663
556 IFhej=7THEN671
557 IFhej=8THEN679
558 IFhej=9THEN687
559 IFhej=10THEN695
560 GOTO14
600 GETa$
601 IFa$="0"THEN314
602 IFkol=1THEN629
603 IFa$="1"THEN630
604 IFkol=2THEN629
605 IFa$="2"THEN638
606 IFkol=3THEN629
607 IFa$="3"THEN646
608 IFkol=4THEN629
609 IFa$="4"THEN654
610 IFkol=5THEN629
611 IFa$="5"THEN662
612 IFkol=6THEN629
613 IFa$="6"THEN670
614 IFkol=7THEN629
615 IFa$="7"THEN678
616 IFkol=8THEN629
617 IFa$="8"THEN686
618 IFkol=9THEN629
619 IFa$="9"THEN694
620 IFa$="{f7}"THEN14
621 GOTO600
629 GOTO620
630 s=0:PRINT"{down}";c$:INPUTvv$
631 w=w+1:s=s+1
632 IFvv$=i$(w)THEN636
633 IFi$(w)=""ORi$(w)="*"THENw=0
634 IFs=antTHEN14
635 GOTO631
636 hej=2
637 GOSUB322:GOTO500
638 s=0:PRINT"{down}";d$:INPUTvv$
639 w=w+1:s=s+1
640 IFvv$=j$(w)THEN644
641 IFj$(w)=""ORj$(w)="*"THENw=0
642 IFs=antTHEN14
643 GOTO639
644 hej=3
645 GOSUB322:GOTO500
646 s=0:PRINT"{down}";e$:INPUTvv$
647 w=w+1:s=s+1
648 IFvv$=k$(w)THEN652
649 IFk$(w)=""ORk$(w)="*"THENw=0
650 IFs=antTHEN14
651 GOTO647
652 hej=4
653 GOSUB322:GOTO500
654 s=0:PRINT"{down}";f$:INPUTvv$
655 w=w+1:s=s+1
656 IFvv$=l$(w)THEN660
657 IFl$(w)=""ORl$(w)="*"THENw=0
658 IFs=antTHEN14
659 GOTO655
660 hej=5
661 GOSUB322:GOTO500
662 s=0:PRINT"{down}";g$:INPUTvv$
663 w=w+1:s=s+1
664 IFvv$=m$(w)THEN668
665 IFm$(w)=""ORm$(w)="*"THENw=0
666 IFs=antTHEN14
667 GOTO663
668 hej=6
669 GOSUB322:GOTO500
670 s=0:PRINT"{down}";h$:INPUTvv$
671 w=w+1:s=s+1
672 IFvv$=n$(w)THEN676
673 IFn$(w)=""ORn$(w)="*"THENw=0
674 IFs=antTHEN14
675 GOTO671
676 hej=7
677 GOSUB322:GOTO500
678 s=0:PRINT"{down}";i$:INPUTvv$
679 w=w+1:s=s+1
680 IFvv$=o$(w)THEN684
681 IFo$(w)=""ORo$(w)="*"THENw=0
682 IFs=antTHEN14
683 GOTO679
684 hej=8
685 GOSUB322:GOTO500
686 s=0:PRINT"{down}";j$:INPUTvv$
687 w=w+1:s=s+1
688 IFvv$=p$(w)THEN692
689 IFp$(w)=""ORp$(w)="*"THENw=0
690 IFs=antTHEN14
691 GOTO687
692 hej=9
693 GOSUB322:GOTO500
694 s=0:PRINT"{down}";k$:INPUTvv$
695 w=w+1:s=s+1
696 IFvv$=q$(w)THEN700
697 IFq$(w)=""ORq$(w)="*"THENw=0
698 IFs=antTHEN14
699 GOTO695
700 hej=10
701 GOSUB322:GOTO500
800 GOTO200
900 PRINT"{down} Vilket f[lt skall [ndras ":PRINT"{right*4}(* f{pound}r hela posten)"
910 PRINT"{down}0. f{pound}r ";b$:IFkol=1THEN921
911 PRINT"1. f{pound}r ";c$:IFkol=2THEN921
912 PRINT"2. f{pound}r ";d$:IFkol=3THEN921
914 PRINT"3. f{pound}r ";e$:IFkol=4THEN921
915 PRINT"4. f{pound}r ";f$:IFkol=5THEN921
916 PRINT"5. f{pound}r ";g$:IFkol=6THEN921
917 PRINT"6. f{pound}r ";h$:IFkol=7THEN921
918 PRINT"7. f{pound}r ";i$:IFkol=8THEN921
919 PRINT"8. f{pound}r ";j$:IFkol=9THEN921
920 PRINT"9. f{pound}r ";k$
921 GETa$
922 IFa$="*"THEN960
923 IFa$="0"THEN960
924 IFkol=1THEN921
925 IFa$="1"THEN962
926 IFkol=2THEN921
927 IFa$="2"THEN964
928 IFkol=3THEN921
929 IFa$="3"THEN966
930 IFkol=4THEN921
931 IFa$="4"THEN968
932 IFkol=5THEN921
933 IFa$="5"THEN970
934 IFkol=6THEN921
935 IFa$="6"THEN972
936 IFkol=7THEN921
937 IFa$="7"THEN974
938 IFkol=8THEN921
939 IFa$="8"THEN976
940 IFkol=9THEN921
941 IFa$="9"THEN978
942 GOTO921
960 PRINTb$:INPUTh$(w):IFa$="0"THEN300
961 IFkol=1THEN300
962 PRINTc$:INPUTi$(w):IFa$="1"THEN300
963 IFkol=2THEN300
964 PRINTd$:INPUTj$(w):IFa$="2"THEN300
965 IFkol=3THEN300
966 PRINTe$:INPUTk$(w):IFa$="3"THEN300
967 IFkol=4THEN300
968 PRINTf$:INPUTl$(w):IFa$="4"THEN300
969 IFkol=5THEN300
970 PRINTg$:INPUTm$(w):IFa$="5"THEN300
971 IFkol=6THEN300
972 PRINTh$:INPUTn$(w):IFa$="6"THEN300
973 IFkol=7THEN300
974 PRINTi$:INPUTo$(w):IFa$="7"THEN300
975 IFkol=8THEN300
976 PRINTj$:INPUTp$(w):IFa$="8"THEN300
977 IFkol=9THEN300
978 PRINTk$:INPUTq$(w):IFa$="9"THEN300
979 GOTO300
2000 POKEv+5,0:PRINT"{clear}{reverse on} f1. Spara fil f3.Utskrift f7. Meny ":q=0
2001 GETa$
2002 IFa$="{f1}"THEN2020
2003 IFa$="{f3}"THEN3970
2004 IFa$="{f7}"THEN14
2005 GOTO2001
2020 INPUT"{down}{sh +}r du s[ker (j/n) ";a$
2021 IF a$="n"THEN 14
2024 INPUT"{down}band/disk (b/d) ";a$
2025 IF a$="b"THENe=1:GOTO2030
2026 IF a$="d"THENe=8
2030 INPUT"{down}filnamn ";q$
2031 PRINT"{down}saving ";q$
2034 IF e=8THENOPEN15,e,15,"s:"+q$:CLOSE15
2035 OPEN1,e,1,q$
2039 uh=jk-1
2040 PRINT#1,ant
2041 PRINT#1,kol
2042 PRINT#1,jk
2049 PRINT#1,b$:PRINT#1,namn$:IFkol=1THEN2098
2050 PRINT#1,c$:IFkol=2THEN2098
2051 PRINT#1,d$:IFkol=3THEN2098
2052 PRINT#1,e$:IFkol=4THEN2098
2053 PRINT#1,f$:IFkol=5THEN2098
2054 PRINT#1,g$:IFkol=6THEN2098
2055 PRINT#1,h$:IFkol=7THEN2098
2056 PRINT#1,i$:IFkol=8THEN2098
2057 PRINT#1,j$:IFkol=9THEN2098
2058 PRINT#1,k$
2098 q=q+1
2099 IFq=jkTHEN3000
2100 PRINT#1,h$(q):IFkol=1THEN2195
2102 PRINT#1,i$(q):IFkol=2THEN2195
2104 PRINT#1,j$(q):IFkol=3THEN2195
2106 PRINT#1,k$(q):IFkol=4THEN2195
2108 PRINT#1,l$(q):IFkol=5THEN2195
2109 PRINT#1,m$(q):IFkol=6THEN2195
2110 PRINT#1,n$(q):IFkol=7THEN2195
2111 PRINT#1,o$(q):IFkol=8THEN2195
2112 PRINT#1,p$(q):IFkol=9THEN2195
2113 PRINT#1,q$(q)
2195 GOTO2098
3000 CLOSE1
3090 RESTORE:GOSUB5000:GOTO14
3970 PRINT"{clear}{reverse on} f1. Printer{space*2}f3. Sk[rm{space*2}f7. Meny ":h$(jk)="*"
3971 GEToj$
3981 IF oj$="{f7}"THEN14
3982 IFoj$="{f1}"THENGOSUB7000:GOTO3985
3983 IFoj$="{f3}"THENGOSUB8000:PRINT"{down}sk[rm":bpb$="*":d=0:hb=0:arn=1:GOTO4030
3984 GOTO3971
3985 GOSUB9500:PRINT"{clear} V[lj nr.":PRINT"{right}{cm t*8}":PRINT"{down} 1. Utskrift efter ordning i filen"
3986 PRINT"{down} 2. Utskrift efter visst f[lt":INPUT"{down} nr. ";gi:IFgi=2THEN8500
3987 PRINT"{down}fr]n och med ";b$;" (* f{pound}r hela filen).":INPUTuy$
3988 IFuy$="*"THEN3990
3989 PRINT"t.o.m ";b$;" (* f{pound}r filen ut).":INPUTbpb$
3990 PRINT"{down}{pound}verskrift (j/n)"
3991 GETga$
3992 IFga$="n"THENbt$="":GOTO4000
3993 IFga$="j"THEN3996
3994 IFuy$="*"THENbpb$="*"
3995 GOTO3991
3996 PRINT"{down}Mata d] in den ";:INPUTbt$
4000 d=0:hb=0
4004 GOTO4020
4005 IFh$(d)=bpb$ORh$(d)=""THEN4080
4006 GOTO4037
4020 OPEN3,4,7:CMD3
4029 PRINTCHR$(14);bt$;CHR$(15)
4030 IFoj$="{f3}"THENuy$="*"
4031 IFuy$="*"THENuy$=h$(1)
4032 d=d+1:hb=hb+1
4033 IFhb=jkTHENPRINT#3:CLOSE3:GOSUB7070:GOTO14
4034 IFh$(d)<>uy$THEN4031
4035 FORghu=0TOarn:IFarn=0THEN4005
4036 PRINT:NEXT:IFh$(d)=bpb$ORh$(d)=""THEN4080
4037 GOTO4068
4038 IFqb=2THEN4040
4039 PRINTb$;"{space*2}";h$(d)
4040 IFkol=1THENRETURN
4041 IFqc=2THEN4043
4042 PRINTc$;"{space*2}";i$(d)
4043 IFkol<=2THENRETURN
4044 IFqd=2THEN4046
4045 PRINTd$;"{space*2}";j$(d)
4046 IFkol<=3THENRETURN
4047 IFqe=2THEN4049
4048 PRINTe$;"{space*2}";k$(d)
4049 IFkol<=4THENRETURN
4050 IFqf=2THEN4052
4051 PRINTf$;"{space*2}";l$(d)
4052 IFkol<=5THENRETURN
4053 IFqg=2THEN4055
4054 PRINTg$;"{space*2}";m$(d)
4055 IFkol<=6THENRETURN
4056 IFqh=2THEN4058
4057 PRINTh$;"{space*2}";n$(d)
4058 IFkol<=7THENRETURN
4059 IFqi=2THEN4061
4060 PRINTi$;"{space*2}";o$(d)
4061 IFkol<=8THENRETURN
4062 IFqj=2THEN4064
4063 PRINTj$;"{space*2}";p$(d)
4064 IFkol<=9THENRETURN
4065 IFqk=2THENRETURN
4066 PRINTk$;"{space*2}";q$(d):RETURN
4068 GOSUB4038:d=d+1
4069 IFoj$="{f3}"THENGETa$:IFa$=" "THEN14
4070 GOTO4035
4071 IFd=jk-1THEN4080
4072 GOSUB4038:GOTO4080
4079 IFope$="n"THENGOSUB7070
4080 IFoj$="{f1}"THENPRINT#3:CLOSE3
4082 POKE198,0:PRINT"{down}tryck en tangent !"
4083 GETa$:IFa$=""THEN4083
4084 IFope$="n"THENGOSUB7070
4085 d=0:GOTO14
5000 v=53248
5003 POKEv+21,4
5005 POKE2042,13
5007 FORn=0TO62:READk:POKE832+n,k:NEXT
5009 POKEv+4,50
5011 POKEv+23,255:POKEv+29,255:RETURN
5012 DATA31,255,248,32,0,4,64,0,2,128,0,1,176,24,241,168
5013 DATA40,137,164,72,133,162,136,133,161,8,137,160,8,241,160,8
5014 DATA129,160,8,129,160,8,129,160,10,129,128,0,1,255,255,255
5015 DATA128,0,1,128,0,1,64,0,2,32,0,4,31,255,248
0 GOSUB60000:END
6000 FORjk=1TOant
6001 IFh$(jk)="*"ORh$(jk)=""THEN6008
6003 NEXT
6008 kl=ant-jk
6009 RETURN
6077 IFa$="3"THEN645
6500 wc=0:uh=jk-1:GOTO6550
6501 PRINT"{down}v[nta!":FORwc=wTOuh
6502 h$(w)=h$(w+1):IFkol=1THEN6535
6503 i$(w)=i$(w+1):IFkol=2THEN6535
6504 j$(w)=j$(w+1):IFkol=3THEN6535
6505 k$(w)=k$(w+1):IFkol=4THEN6535
6506 l$(w)=l$(w+1):IFkol=5THEN6535
6507 m$(w)=m$(w+1):IFkol=6THEN6535
6508 n$(w)=n$(w+1):IFkol=7THEN6535
6509 o$(w)=o$(w+1):IFkol=8THEN6535
6510 p$(w)=p$(w+1):IFkol=9THEN6535
6511 q$(w)=q$(w+1)
6535 w=w+1
6536 IFwc=uhTHENh$(uh)="*"
6537 NEXT
6540 GOTO14
6550 POKE198,0:PRINT"{clear}{sh +}r du s[ker (j/n)"
6551 GETa$
6552 IFa$="j"THEN6501
6553 IFa$="n"THEN14
6554 GOTO6551
7000 PRINT"{clear}Skall dessa f[lt skrivas ut?{down}"
7001 qb=1:qb$="ja":qc=1:qc$="ja":qd=1:qd$="ja":qe=1:qe$="ja"
7002 qf=1:qf$="ja":qg=1:qg$="ja":qh=1:qh$="ja":qi=1:qi$="ja":qj=1:qj$="ja"
7003 qk=1:qk$="ja"
7010 PRINT"{home}{down*2}":PRINTb$:PRINT"{up}{right*15}0. ";qb$:IFkol=1THEN7025
7011 PRINTc$:PRINT"{up}{right*15}1. ";qc$:IFkol=2THEN7025
7012 PRINTd$:PRINT"{up}{right*15}2. ";qd$:IFkol=3THEN7025
7013 PRINTe$:PRINT"{up}{right*15}3. ";qe$:IFkol=4THEN7025
7014 PRINTf$:PRINT"{up}{right*15}4. ";qf$:IFkol=5THEN7025
7015 PRINTg$:PRINT"{up}{right*15}5. ";qg$:IFkol=6THEN7025
7016 PRINTh$:PRINT"{up}{right*15}6. ";qh$:IFkol=7THEN7025
7017 PRINTi$:PRINT"{up}{right*15}7. ";qi$:IFkol=8THEN7025
7018 PRINTj$:PRINT"{up}{right*15}8. ";qj$:IFkol=9THEN7025
7019 PRINTk$:PRINT"{up}{right*15}9. ";qk$
7025 PRINT"{down} tryck {reverse on} S P A C E {reverse off} f{pound}r klart."
7027 GETa$
7028 IFa$=" "THEN7050
7029 IFa$="0"ANDqb=1THENqb$="nej":qb=2:GOTO7010
7030 IFa$="0"ANDqb=2THENqb$="ja ":qb=1:GOTO7010
7031 IFa$="1"ANDqc=1THENqc$="nej":qc=2:GOTO7010
7032 IFa$="1"ANDqc=2THENqc$="ja ":qc=1:GOTO7010
7033 IFa$="2"ANDqd=1THENqd$="nej":qd=2:GOTO7010
7034 IFa$="2"ANDqd=2THENqd$="ja ":qd=1:GOTO7010
7035 IFa$="3"ANDqe=1THENqe$="nej":qe=2:GOTO7010
7036 IFa$="3"ANDqe=2THENqe$="ja ":qe=1:GOTO7010
7037 IFa$="4"ANDqf=1THENqf$="nej":qf=2:GOTO7010
7038 IFa$="4"ANDqf=2THENqf$="ja ":qf=1:GOTO7010
7039 IFa$="5"ANDqg=1THENqg$="nej":qg=2:GOTO7010
7040 IFa$="5"ANDqg=2THENqg$="ja ":qg=1:GOTO7010
7041 IFa$="6"ANDqh=1THENqh$="nej":qh=2:GOTO7010
7042 IFa$="6"ANDqh=2THENqh$="ja ":qh=1:GOTO7010
7043 IFa$="7"ANDqi=1THENqi$="nej":qi=2:GOTO7010
7044 IFa$="7"ANDqi=2THENqi$="ja ":qi=1:GOTO7010
7045 IFa$="8"ANDqj=1THENqj$="nej":qj=2:GOTO7010
7046 IFa$="8"ANDqj=2THENqj$="ja ":qj=1:GOTO7010
7047 IFa$="9"ANDqk=1THENqk$="nej":qk=2:GOTO7010
7048 IFa$="9"ANDqk=2THENqk$="ja ":qk=1:GOTO7010
7049 GOTO7027
7050 PRINT"{down*2}Skall namnen p] varje f[lt skrivas ut {down}":INPUT"(j/n) ";ope$
7052 IF ope$="j"THENRETURN
7055 ope$="n":p$=b$
7056 q$=c$
7057 r$=d$:s$=e$:t$=f$:u$=g$:v$=h$:x$=i$:y$=j$:z$=k$
7060 b$="":c$="":d$="":e$="":f$="":g$="":h$="":i$="":j$="":k$=""
7065 RETURN
7070 b$=p$
7076 c$=q$
7077 d$=r$:e$=s$:f$=t$:g$=u$:h$=v$:i$=x$:j$=y$:k$=z$
7078 RETURN
7099 GOTO7027
8000 qb=1:qc=1:qd=1:qe=1:qf=1:qg=1:qh=1:qi=1:qj=1:qk=1:RETURN
8500 PRINT"{clear}{down}":d=0
8505 IFope$="n"THENGOSUB7070
8510 PRINT"Endast poster med f{pound}ljande f[lt skall"
8511 PRINT"skrivas ut. "
8513 PRINT"{down}0. ";b$:IFkol=1THEN8550
8515 PRINT"1. ";c$:IFkol=2THEN8550
8517 PRINT"2. ";d$:IFkol=3THEN8550
8518 PRINT"3. ";e$:IFkol=4THEN8550
8520 PRINT"4. ";f$:IFkol=5THEN8550
8522 PRINT"5. ";g$:IFkol=6THEN8550
8524 PRINT"6. ";h$:IFkol=7THEN8550
8527 PRINT"7. ";i$:IFkol=8THEN8550
8529 PRINT"8. ";j$:IFkol=9THEN8550
8531 PRINT"9. ";k$
8535 IF ope$="n"THENGOSUB7055
8550 INPUT"{down}Vilket nr. ";lisa:PRINT
8551 IFlisa>kol-1THEN8550
8555 IFlisa=0THENPRINTb$:lod=1:INPUTplb$:GOTO8580
8556 IFlisa=1THENPRINTc$:lod=2:INPUTplc$:GOTO8580
8557 IFlisa=2THENPRINTd$:lod=3:INPUTpld$:GOTO8580
8558 IFlisa=3THENPRINTe$:lod=4:INPUTple$:GOTO8580
8559 IFlisa=4THENPRINTf$:lod=5:INPUTplf$:GOTO8580
8560 IFlisa=5THENPRINTg$:lod=6:INPUTplg$:GOTO8580
8561 IFlisa=6THENPRINTh$:lod=7:INPUTplh$:GOTO8580
8562 IFlisa=7THENPRINTi$:lod=8:INPUTpli$:GOTO8580
8563 IFlisa=8THENPRINTj$:lod=9:INPUTplj$:GOTO8580
8564 lod=10:INPUTplk$
8580 REM
9000 OPEN3,4,7:CMD3
9003 IFlod=1THEN9021
9004 IFlod=2THEN9031
9005 IFlod=3THEN9041
9006 IFlod=4THEN9051
9007 IFlod=5THEN9061
9008 IFlod=6THEN9071
9009 IFlod=7THEN9081
9010 IFlod=8THEN9091
9011 IFlod=9THEN9101
9012 IFlod=10THEN9121
9021 IFh$(d)="*"THEN9150
9022 IFplb$=h$(d)THENGOSUB4038:GOSUB9600
9023 d=d+1:GOTO9021
9031 IFh$(d)="*"THEN9150
9032 IFplc$=i$(d)THENGOSUB4038:GOSUB9600
9033 d=d+1:GOTO9031
9041 IFh$(d)="*"THEN9150
9042 IFpld$=j$(d)THENGOSUB4038:GOSUB9600
9043 d=d+1:GOTO9041
9051 IFh$(d)="*"THEN9150
9052 IFple$=k$(d)THENGOSUB4038:GOSUB9600
9053 d=d+1:GOTO9051
9061 IFh$(d)="*"THEN9150
9062 IFplf$=l$(d)THENGOSUB4038:GOSUB9600
9063 d=d+1:GOTO9061
9071 IFh$(d)="*"THEN9150
9072 IFplg$=m$(d)THENGOSUB4038:GOSUB9600
9073 d=d+1:GOTO9071
9081 IFh$(d)="*"THEN9150
9082 IFplh$=n$(d)THENGOSUB4038:GOSUB9600
9083 d=d+1:GOTO9081
9091 IFh$(d)="*"THEN9150
9092 IFpli$=o$(d)THENGOSUB4038:GOSUB9600
9093 d=d+1:GOTO9091
9101 IFh$(d)="*"THEN9150
9102 IFplj$=p$(d)THENGOSUB4038:GOSUB9600
9103 d=d+1:GOTO9101
9121 IFh$(d)="*"THEN9150
9122 IFplk$=q$(d)THENGOSUB4038:GOSUB9600
9123 d=d+1:GOTO9121
9150 IFope$="n"THENGOSUB7070
9151 d=0:PRINT#3:CLOSE3:RESTORE:GOTO14
9500 PRINT"{down} mata in antal rader mellan varje post.":INPUT"{down} ";arn:RETURN
9600 FORghu=1TOarn
9601 PRINT
9602 NEXT:RETURN
12000 POKE v+5,0:PRINT"{clear}{red}{space*10}{reverse on} Diskett-funktioner {reverse off}{green}"
12010 PRINT"{down}f1. Formattera diskett"
12020 PRINT"{down}f3. Raddera program fr]n diskett"
12030 PRINT"{down}f5. Directory"
12032 PRINT"{down}f6. Validate"
12040 PRINT"{down}f7. Meny"
12050 GETa$
12051 IF a$="{f1}"THEN12100
12052 IF a$="{f3}"THEN12150
12053 IF a$="{f5}"THEN12200
12054 IF a$="{f7}"THEN14
12055 IF a$="{f6}"THEN12300
12060 GOTO12050
12100 INPUT"{clear}{down}Diskett namn ";d$
12110 INPUT"{down}id ";id$
12112 IF LEN(id$)<>2THEN PRINT"{down}max 2 tecken":GOTO12110
12114 OPEN15,8,15,"n:"+d$+","+id$:CLOSE15
12149 GOTO 12000
12150 PRINT"{clear}{down}programnamn som skall radderas "
12152 INPUT"{down}";pr$
12154 OPEN15,8,15,"s:"+pr$:CLOSE15
12199 GOTO 12000
12200 PRINT"{clear}"
12210 OPEN1,8,0,"$":POKE781,1:SYS65478:GETa$,a$:s$=CHR$(0)
12220 GETa$,a$,t$,l$:IF st THEN SYS65484:CLOSE1:GOTO12250
12230 PRINT ASC(t$+s$)+256*ASC(l$+s$);
12240 GETa$,m$:IF a$THENPRINT a$m$;:GOTO12240
12245 PRINTa$:GOTO12220
12250 PRINT"{down}tryck en tangent{!*3}":POKE198,0
12252 GETa$:IFa$=""THEN12252
12255 GOTO12000
12300 PRINT"{clear}{down*2}{right}{red}Validate av disk{!*3}"
12301 PRINT"{down*2}{right}{green}Var sn[ll och v[nta!!"
12310 OPEN15,8,15,"v":CLOSE15
12311 GOTO 12000
20000 CLOSE1:RESTORE:GOSUB5000
20001 POKE53280,0:POKE53281,0:GOTO14
stop tok64
(bastext 1.0)