start tok64 d64-1bEiQT
0 REM blondie
1 bf$="{left*41}"
2 us$="{cm t*41}":tf=1:bl=1
3 n$="{down*40}"
4 uu$="{right*72}"
5 t$="{space*39}":nr$="{home}{down}{reverse on} 12345678901234567890123"
6 nr$=nr$+"45678901234567891{down}{left} {down}{left}2{down}{left} {down}{left}3{down}{left} {down}{left}4{down}{left} {down}{left}5{down}{left} {down}{left}6{down}{left} {down}{left}7{down}{left} {down}{left}8{down}{left} {down}{left}9{down}{left} "
7 rn$="minnet tomt":nr$=nr$+"{left}{down}0{down}{left} {down}{left}1{down}{left} {reverse off}{down}
8 DIMr$(24),fk(20),fl(21),fr(20):s$="{home}{down}{cm t*40}"
9 s$=s$+"{home}{down*23}{cm @*40}"
10 POKE53280,0:POKE53281,0:PRINT"{clear}{142}{white}{reverse on}{space*5}register-64 av syntax software{space*5}{reverse off}"
11 nr$=nr$+"{left}":DIMut$(30),uf(30),sl(16),sr(16):fl(0)=3
12 FORi=1TO24:r$(i)=t$:NEXT:a=FRE(8)
13 CLOSE15:PRINT"{down*2}{yellow}diskett (j/n)? {reverse on}j{reverse off}a";:as=0
14 POKE54296,15:POKE54277,0:POKE54278,250
15 GOSUB341:IFasTHENdv=8:GOSUB442:GOTO17
16 fd=0
17 IFlfTHENPRINT"{green}"s$t$s$"{up}{blue}";:GOTO19
18 PRINT
19 CLOSE4:PRINT"{down}{yellow}skrivare (j/n)? {reverse on}j{reverse off}a";:as=0
20 GOSUB341:IFasTHENdv=4:GOSUB442:GOTO22
21 pt=0
22 IFlfTHENlf=0:PRINTs$t$;:GOTO28
23 PRINT
24 PRINT"{yellow}";:GOSUB309:d$="{home}"+LEFT$(uu$,31)+d$(0)+"-"+d$(1)+"-"+d$(2)
25 PRINT"{yellow}{down}ladda register (j/n)? {reverse on}j{reverse off}a";:as=1
26 GOSUB341:IFasTHEN47
27 PRINT"{clear}{green}{reverse off}";:FORi=1TO24:PRINT" "r$(i);:NEXT
28 i$="":ts=0:ab=0:PRINT"{home}{yellow}"rn$d$s$t$s$;"kommando? {reverse on} {reverse off}";:IFmfTHENmf=0
29 IFblTHENbl=0:GOTO80
30 GETgt$:IFgt$=""THEN30
31 IFgt$="{f7}"THEN431
32 IFgt$>CHR$(31)ANDgt$<"^"ANDts=0THENPRINT"{left}"gt$"{reverse on} {reverse off}";:i$=i$+gt$
33 IFLEN(i$)=2THENi$=i$+CHR$(13):gt$=CHR$(13)
34 IFgt$="{delete}"ANDabTHENab=ab-1:i$=LEFT$(i$,LEN(i$)-1):PRINT"{left} {left*2}{reverse on} {reverse off}";:GOTO38
35 IFgt$=CHR$(13)THENi$=MID$(i$,1,2):GOTO40
36 GOTO30
37 ab=ab+1
38 ts=0:IFLEN(i$)>1THENgt$=CHR$(13):GOTO35
39 GOTO30
40 IFi$=""THEN28
41 RESTORE:READak:FORl=1TOak:READk$,f$:IFi$<>k$THENNEXT:GOTO44
42 PRINT"{yellow}"s$t$s$"{yellow}"f$"? {reverse on} {reverse off}";
43 GOTO45
44 e$="felaktigt kommando":GOSUB302:GOTO28
45 ONlGOTO80,47,88,113,152,169,214,216,228,230,232,253,255,263
46 ONl-14GOTO295,398,294,283
47 IFrn$<>"minnet tomt"THENe$="minnet inte tomt":GOSUB302:GOTO28
48 ko=25:ab=0:i$="":ts=0:PRINT"{yellow}"s$t$s$"filnamn? {reverse on} {reverse off}";:GOSUB330:ff$=i$
49 IFff$=""ANDfdTHENff$="fil"
50 IFfdTHEN59
51 PRINT"{clear}spola fram bandet till datafilen och{space*4}tryck 'return' {reverse on} ";
52 GETgt$:IFgt$<>CHR$(13)ANDgt$<>"n"THEN52
53 IFgt$="n"THENPRINT"{reverse off}";:GOTO27                   
54 PRINT"{left}{reverse off} ":IFPEEK(1)=7THEN61
55 PRINT"{down}tryck ner play pa{up}{left}.{down} bandspelaren."
56 GETgt$:IF(PEEK(1)AND16)ANDgt$=""THEN56
57 IFgt$<>""THEN27
58 GOTO61
59 PRINT"{clear}s[tt in dataskivan och tryck 'return' {reverse on} ";:ff$=ff$+",s,r"
60 GETgt$:IFgt$<>CHR$(13)THEN60
61 PRINT"{left}{reverse off} {clear}{white}laddar nu registret.{black}":FORi=1TO1500:NEXT:OPEN1,fd*7+1,fd*2,ff$
62 IFfdTHENINPUT#15,a,b$,c,d
63 IFfdANDa<>0THENCLOSE1:PRINT"{clear}{white}"s$t$s$a;b$;c;d;:GOSUB441:GOTO27
64 INPUT#1,id$
65 IFid$<>"zzr64"THENCLOSE1:PRINT"{clear}{white}ingen registerfil{space*8}":GOSUB305:GOTO27
66 INPUT#1,rn$:INPUT#1,w$:INPUT#1,af$:af=VAL(af$):FORi=1TOaf:INPUT#1,fr$
67 fr(i)=VAL(fr$):INPUT#1,fk$:fk(i)=VAL(fk$):INPUT#1,fl$:fl(i)=VAL(fl$)
68 NEXT:INPUT#1,fy$:fy=VAL(fy$):FORi=1TO24:INPUT#1,r$(i):NEXT
69 INPUT#1,ai$:ai=VAL(ai$)
70 FORi=1TOaf:kl=kl+fl(i):NEXT:ta=INT(FRE(0)/((kl+7)*fy))
71 DIMp$(ta+1,af):GOSUB378
72 FORi=1TOai:IFai=0THENNEXT:CLOSE1:GOTO76
73 FORj=1TOaf:INPUT#1,p$(i,j):IFp$(i,j)="^"THENp$(i,j)=""
74 GETgt$:IFgt$="n"THENj=af:NEXT:tf=i:i=ai:NEXT:ai=tf:CLOSE1:GOTO76
75 NEXT:NEXT:CLOSE1
76 FORi=1TO24:r$(i)=MID$(r$(i),2,39)
77 IFLEN(r$(i))<39THENr$(i)=r$(i)+LEFT$(t$,39-LEN(r$(i)))
78 NEXT:IFfdTHENPRINT"{clear}"rn$:GOSUB439
79 GOTO27
80 RESTORE:READak:PRINT"{clear}{yellow}"rn$d$s$"{home}{green}{down*2}{space*3}{cm p*34}"
81 FORi=1TOak:READk$,f$:PRINT"{right*3}{cm g}{yellow}"k$"{green} {cm g}{yellow}"f$LEFT$(t$,28-LEN(f$))"{green}{cm m}"
82 NEXT
83 PRINT"{space*3}{cm y*34}"
84 PRINT"{yellow}"s$t$s$"{yellow}kommando? {reverse on} {reverse off}";
85 GETgt$:IFgt$=""THEN85
86 IFgt$="{f1}"THENsb=1:GOSUB398:GOTO27
87 mf=1:GOTO27
88 IFrn$="minnet tomt"THENe$="inget register att spara":GOSUB302:GOTO28
89 ko=25:ab=0:i$="":ts=0:PRINT"{yellow}"s$t$s$"filnamn? {reverse on} {reverse off}";:GOSUB330:ff$=i$
90 IFff$=""THENff$="fil"
91 IFfdTHEN99
92 PRINT"{clear}{down}spola bandet till l[mpligt st[lle och{space*3}tryck 'return' {reverse on} ";
93 GETgt$:IFgt$<>CHR$(13)THEN93
94 PRINT"{left}{reverse off} ":IFPEEK(1)=7THEN101
95 PRINT"{down}tryck ner record & play pa{up}{left}.{down} bandspelaren."
96 GETgt$:IF(PEEK(1)AND16)ANDgt$=""THEN96
97 IFgt$<>""THEN27
98 GOTO101
99 PRINT"{clear}s[tt in dataskivan och tryck 'return' {reverse on} ";:ff$="@:"+ff$+",s,w"
100 GETgt$:IFgt$<>CHR$(13)THEN100
101 PRINT"{left}{reverse off} {clear}{white}sparar nu registret.{black}":FORi=1TO1500:NEXT:OPEN1,fd*7+1,fd+1,ff$
102 IFfdTHENINPUT#15,a,b$,c,d
103 IFfdANDa<>0THENCLOSE1:PRINT"{clear}{white}"rn$s$t$s$;a;b$;c;d;:GOSUB441:GOTO27
104 PRINT#1,"zzr64":PRINT#1,rn$:PRINT#1,d$:PRINT#1,STR$(af)
105 FORi=1TOaf:PRINT#1,STR$(fr(i))
106 PRINT#1,STR$(fk(i)):PRINT#1,STR$(fl(i)):NEXT:PRINT#1,STR$(fy)
107 FORi=1TO24:PRINT#1,"*";r$(i);"*":NEXT:PRINT#1,STR$(ai):FORi=1TOai
108 FORj=1TOaf:IFai=0THENj=af:GOTO111
109 IFp$(i,j)=""THENp$(i,j)="^"
110 PRINT#1,p$(i,j):IFp$(i,j)="^"THENp$(i,j)=""
111 NEXT:NEXT:CLOSE1:IFfdTHENPRINT"{clear}{white}"rn$:GOSUB439
112 GOTO27
113 IFrn$<>"minnet tomt"THENe$="minnet inte tomt":GOSUB302:GOTO28
114 ts=0:i$="":ab=0:PRINT"{clear}"d$s$"register namn? {reverse on} {reverse off}";
115 GETgt$:IFgt$=""THEN115
116 IFgt$>CHR$(31)ANDgt$<"^"ANDts=0THENPRINT"{left}"gt$"{reverse on} {reverse off}";:i$=i$+gt$:GOTO121
117 IFgt$>"{sh asterisk}"ANDgt$<"{sh +}"ANDts=0THENPRINT"{left}"gt$"{reverse on} {reverse off}";:i$=i$+gt$:GOTO121
118 IFgt$="{delete}"ANDabTHENab=ab-1:i$=LEFT$(i$,LEN(i$)-1):PRINT"{left} {left*2}{reverse on} {reverse off}";:GOTO122
119 IFgt$=CHR$(13)THEN124
120 GOTO115
121 ab=ab+1
122 ts=0:IFLEN(i$)>20THENts=1
123 GOTO115
124 IFi$=""ORi$="minnet tomt"THENe$="felaktigt namn":GOSUB302:GOTO113
125 rn$=i$:PRINT"{clear}"
126 PRINT"{home}"rn$s$t$nr$"{reverse on}a{reverse off}vsluta {reverse on}t{reverse off}ext {reverse on}f{reverse off}alt {reverse on}r{reverse off}adera? {reverse on}t";:al=2
127 GETgt$:IFgt$=""THEN127
128 IFgt$="f"THENPRINT"{left}f";:al=1
129 IFgt$="a"THENPRINT"{left}a";:al=3
130 IFgt$="t"THENPRINT"{left}t";:al=2
131 IFgt$="r"THENPRINT"{left}r";:al=4
132 IFgt$=CHR$(13)THEN140
133 GOTO127
134 IFeqTHENGOSUB396:IFab=0THENe$="inga nya f[lt":GOSUB302:GOTO126
135 f$="falt langd?":GOSUB321
136 IFva=0THENva=39-ko
137 IFva<1ORva>39-koTHEN134
138 q=ra*2+1:r$(q)=LEFT$(r$(q),ko-2)+"{cm m}"+LEFT$(t$,va)+"{cm g}"+MID$(r$(q),ko+va+1)
139 r$(q+1)=LEFT$(r$(q+1),ko-1)+LEFT$(us$,va)+MID$(r$(q+1),ko+va):GOTO151
140 IFal=3THEN352
141 f$="vilken rad?":GOSUB321:ra=va
142 IFva<1ORva>11THEN140
143 IFal=1ANDva>10THEN141
144 IFal=4THENr$(ra*2+1)=t$:r$(ra*2+2)=t$:GOTO151
145 f$="vilken kolumn?":GOSUB321
146 ko=va:IFva<1ORva>38THEN145
147 IFal=1ANDko<1ORko>37THEN145
148 IFal=1THENko=ko+1:GOTO134
149 GOSUB329
150 r$(ra*2+1)=LEFT$(r$(ra*2+1),ko-1)+i$+MID$(r$(ra*2+1),ko+LEN(i$))
151 PRINT"{home}";:FORi=1TO23:PRINT"{reverse on}{yellow} {green}{reverse off}"r$(i);:NEXT:PRINT"{home}{yellow}{reverse off} ";:GOTO126
152 ab=0:i$="":ts=0:PRINT"{green}"s$t$s$"{yellow}vilken post? {reverse on} {reverse off}";:GOSUB322
153 IFi$=""THENva=ls
154 IFva>aiTHENe$="f{pound}r stort post nummer":GOSUB302:GOTO152
155 IFva=0THENPRINTs$t$"{reverse off}{white}";:GOTO28
156 p=va:GOSUB375:PRINT"{green}"t$s$t$"{yellow}{left*7}nr"p;:GOSUB370:ed=1
157 PRINT"{home}{green}"s$t$s$"{yellow}anv[nd cursor u/d";
158 FORi=1TOaf:GOSUB370
159 al=3:GETgt$:IFgt$=""THEN159
160 IFgt$="{up}"THENal=2
161 IFgt$=CHR$(141)THENi=af:NEXT:ed=0:GOSUB375:GOTO28
162 IFgt$="{down}"ORgt$=CHR$(13)THENal=1
163 IFal=1THENNEXT:ed=0:GOSUB375:GOTO28
164 IFal=2ANDi>1THENi=i-2:NEXT
165 IFal=2THEN159
166 PRINT"{green}{home}"LEFT$(n$,fr(i)-1)TAB(fk(i))LEFT$(t$,fl(i))
167 PRINT"{green}{home}"LEFT$(n$,fr(i)-1)TAB(fk(i));"{white}{reverse on} {reverse off}";
168 i$="":ab=0:GOSUB239:i=i-1:NEXT
169 IFaf=0THENe$="inga poster i minnet":GOSUB302:GOTO28
170 PRINT"{green}"s$t$s$"{yellow}{reverse on}s{reverse off}okning eller {reverse on}p{reverse off}ost nr? {reverse on}s{reverse off}";:al=1
171 GETgt$:IFgt$=""THEN171
172 IFgt$=CHR$(13)THENPRINT"{reverse off}";:GOTO176
173 IFgt$="p"THENPRINT"{left}{reverse on}p";:al=2
174 IFgt$="s"THENPRINT"{left}{reverse on}s";:al=1
175 GOTO171
176 IFal=1THEN186
177 ab=0:i$="":ts=0:PRINT"{green}"s$t$s$"{yellow}vilken post? {reverse on} {reverse off}";:GOSUB322
178 IFva>aiTHENe$="f{pound}r stort post nummer":GOSUB302:GOTO177
179 IFva=0THENPRINTs$t$"{reverse off}";:GOTO28
180 p=va
181 PRINT"{green}"s$t$"{yellow}{left*7}nr"p;:ls=p
182 GOSUB370:p=p+1:hf=0:qf=1:IFp>aiTHENPRINTs$t$;:GOTO28
183 PRINT"{green}"s$"{yellow}forts[tta? {reverse on}j{reverse off}a ";:as=1:GOSUB341:IFas=0THENPRINTs$t$;:GOTO28
184 IFhfTHENhf=0:GOTO233
185 GOTO 181
186 GOSUB375:i=1:PRINTs$t$;
187 ab=0:i$="":ts=0:PRINT"{home}"LEFT$(n$,fr(i)-1)TAB(fk(i))"{green}{reverse on} {reverse off}";
188 GETgt$:IFgt$=""THEN188
189 IFgt$="{down}"ANDab=0THENi=i+1:GOTO199
190 IFgt$="{up}"ANDab=0THENi=i-1:GOTO199
191 IFgt$>CHR$(31)ANDgt$<"^"ANDts=0THENPRINT"{left}"gt$"{reverse on} {reverse off}";:i$=i$+gt$:GOTO196
192 IFgt$>"{sh asterisk}"ANDgt$<"{sh +}"ANDts=0THENPRINT"{left}"gt$"{reverse on} {reverse off}";:i$=i$+gt$:GOTO196
193 IFgt$="{delete}"ANDabTHENab=ab-1:i$=LEFT$(i$,LEN(i$)-1):PRINT"{left} {left*2}{reverse on} {reverse off}";:GOTO197
194 IFgt$=CHR$(13)THENPRINT"{reverse off}{left} ";:so$=i$:sp=i:GOTO201
195 GOTO188
196 ab=ab+1
197 ts=0:IFab>fl(i)-1THENso$=i$:PRINT"{left}{white}{reverse off}{cm g}";:sp=i:GOTO201
198 GOTO188
199 IFi<1ORi>afTHENPRINT"{white}{reverse off}{left} "s$t$;:GOTO28
200 PRINT"{white}{reverse off}{left} ";:GOTO187
201 PRINT"{white}";:GOSUB375:vf=0:hf=0:IFLEFT$(so$,1)="*"THENso$=MID$(so$,2):vf=1
202 IFRIGHT$(so$,1)="*"THENso$=LEFT$(so$,LEN(so$)-1):hf=1
203 f=0:FORx=1TOai
204 IFvfANDhfTHEN393
205 IFvfANDso$=RIGHT$(p$(x,sp),LEN(so$))THEN210
206 IFhfANDso$=LEFT$(p$(x,sp),LEN(so$))THEN210
207 IFp$(x,sp)=so$THEN210
208 NEXT:IFf=0THENPRINT"{green}{reverse off}"s$t$s$"{yellow}finns inte.";:GOSUB305
209 GOTO28
210 ls=x:p=x:f=1:GOSUB370:PRINTs$t$"{left*7}{yellow}nr"p;s$"tryck return";:GOSUB305
211 IFgt$="{f1}"ANDulTHENx=p:GOSUB426
212 IFgt$="n"THEN28
213 GOTO208
214 GOSUB340:IFas=0THEN27
215 RUN
216 IFfd=0THENe$="ingen floppydisk i systemet":GOSUB302:GOTO28
217 ab=0:ts=0:i$="":PRINT"{clear}"rn$d$s$">{reverse on} ";
218 GETgt$:IFgt$=""ORgt$=CHR$(34)ORgt$=CHR$(141)THEN218
219 IFgt$="{down}"ORgt$="{left}"ORgt$="{right}"ORgt$="{up}"ORgt$="{home}"ORgt$="{clear}"ORgt$="{148}"THEN218
220 IFgt$=CHR$(13)THEN226
221 IFgt$="{delete}"ANDabTHENPRINT"{left}{reverse off} {left*2}{reverse on} {reverse off}";:i$=LEFT$(i$,LEN(i$)-1):ab=ab-1:GOTO224
222 IFgt$="{delete}"THEN218
223 IFts=0THENPRINT"{left}{reverse off}"gt$"{reverse on} ";:i$=i$+gt$:ab=ab+1
224 ts=0:IFab>30THENts=1
225 GOTO218
226 PRINT#15,i$:GOSUB439
227 GOTO27
228 GOSUB340:IFas=0THEN27
229 POKE4,0:SYS4
230 IFrn$="minnet tomt"THENe$="inget kort att editera":GOSUB302:GOTO28
231 eq=1:GOTO151
232 IFrn$="minnet tomt"THENe$="inget kort i minnet":GOSUB302:GOTO28
233 GOSUB375:ai=ai+1:PRINT"{green}"s$t$"{left*7}{yellow}nr"ai;
234 IFai>taTHENai=ai-1:PRINTs$t$;:e$="slut p] minne":GOSUB302:GOTO28
235 FORi=1TOaf
236 PRINT"{home}"LEFT$(n$,fr(i)-1)TAB(fk(i))LEFT$(t$,fl(i))LEFT$(bf$,fl(i))"{white}{reverse on} {reverse off}";
237 i$="":ab=0
238 GETgt$:IFgt$=""THEN238
239 IFgt$=CHR$(34)ORgt$=","ORgt$=":"THEN238
240 IFgt$="{arrow left}"ANDedTHENPRINT"{white}{reverse off}{left} ";:p$(va,i)=p$(va-1,i):p=va:GOSUB370:RETURN
241 IFgt$="{arrow left}"THENPRINT"{white}{reverse off}{left} ";:p$(ai,i)=p$(ai-1,i):p=ai:GOSUB370:NEXT:hf=1:GOTO183
242 IFgt$>CHR$(31)ANDgt$<"^"THENPRINT"{left}"gt$"{reverse on} {reverse off}";:i$=i$+gt$:GOTO249
243 IFgt$>"{sh asterisk}"ANDgt$<"{sh +}"THENPRINT"{left}"gt$"{reverse on} {reverse off}";:i$=i$+gt$:GOTO249
244 IFgt$="{delete}"ANDabTHENab=ab-1:i$=LEFT$(i$,LEN(i$)-1):PRINT"{left} {left*2}{reverse on} {reverse off}";:GOTO251
245 IFgt$="{delete}"THENi=i+(i>1):p$(ai,i)="":PRINT"{reverse off}{white}{left} ";:GOTO236
246 IFedANDgt$=CHR$(13)THENPRINT"{white}{reverse off}{left} ";:p$(p,i)=i$:RETURN
247 IFgt$=CHR$(13)THENPRINT"{white}{reverse off}{left} ";:p$(ai,i)=i$:NEXT:hf=1:GOTO183
248 GOTO238
249 ab=ab+1
250 IFab>fl(i)-1ANDedTHENPRINT"{green}{reverse off}{left}{cm g}";:p$(p,i)=i$:RETURN
251 IFab>fl(i)-1THENPRINT"{green}{reverse off}{left}{cm g}";:p$(ai,i)=i$:NEXT:hf=1:GOTO183
252 GOTO238
253 IFpt=0THENe$="ingen skrivare i systemet":GOSUB302:GOTO28
254 GOTO409
255 ab=0:i$="":ts=0:PRINTs$t$s$"vilken post? {reverse on} {reverse off}";:GOSUB322
256 IFva>aiTHENe$="f{pound}r stort post nummer":GOSUB302:GOTO255
257 IFva=0THENPRINTs$t$"{reverse off}{white}";:GOTO28
258 PRINT"{home}"t$"{home}{reverse on}{pink} var god vanta {reverse off}{white}"s$t$;
259 FORi=1TOaf:p$(va,i)="":NEXT
260 FORi=vaTOai:FORj=1TOaf
261 p$(i,j)=p$(i+1,j):NEXT:NEXT:ai=ai-1
262 PRINT"{home}"t$"{home}"rn$d$:GOTO28
263 IFaf=0THENe$="inga poster att sortera":GOSUB302:GOTO28
264 GOSUB375:FORi=1TOaf
265 PRINT"{home}"LEFT$(n$,fr(i)-1)TAB(fk(i))MID$(STR$(i),2):NEXT
266 ab=0:i$="":ts=0:PRINTs$t$s$"sortering efter vilket f[lt? {reverse on} {reverse off}";:GOSUB322
267 IFva>afTHEN266
268 IFva=0THENPRINTs$t$"{reverse off}{white}";:GOTO28
269 PRINT"{home}"t$"{home}{reverse on} arbetar {reverse off}"s$t$;
270 s=1:sl(1)=1:sr(1)=ai
271 l=sl(s):r=sr(s):s=s-1
272 i=l:j=r:x$=p$(INT((l+r)/2),va)
273 IFp$(i,va)<x$THENi=i+1:GOTO273
274 IFx$<p$(j,va)THENj=j-1:GOTO274
275 IFi>jTHEN277
276 FORk=1TOaf:w$=p$(i,k):p$(i,k)=p$(j,k):p$(j,k)=w$:NEXT:i=i+1:j=j-1
277 IFi<=jGOTO273
278 IFi>=rGOTO280
279 s=s+1:sl(s)=i:sr(s)=r
280 r=j:IFl<rGOTO272
281 IFs<>0GOTO271
282 GOTO27
283 IFpt=0THENe$="ingen skrivare i systemet":GOSUB302:GOTO28
284 PRINTs$t$s$"start nr? {reverse on} {reverse off}";:i$="":ts=0:ab=0:GOSUB322
285 IFva=0THEN28
286 IFva>aiTHEN283
287 be=va:PRINTs$t$s$"slut nr? {reverse on} {reverse off}";:ab=0:i$="":ts=0:GOSUB322
288 IFva=0THEN28
289 IFva>aiTHEN283
290 PRINTs$t$s$"skriver{.*3} (avbryt med 'n')";
291 FORx=beTOva:GOSUB426:GETgt$
292 IFgt$="n"THEN28
293 NEXT:GOTO28
294 PRINT"{clear}{space*3}{reverse on}{space*8}system information{space*8}{reverse off} ":si=1:GOTO380
295 lf=1:PRINTs$t$s$"{up*2}";:GOTO13
296 DATA18,kl,"kommando lista",lr,"ladda register",sr,"spara register"
297 DATAnr,"nytt register",ep,"editera post",hp,"h[mta post"
298 DATAtm,"t{pound}m minnet",dk,"disk kommandon",as,"avsluta programmet"
299 DATAek,"editera kortet",np,"ny post",ur,"utskrifts rutiner"
300 DATArp,"radera post",sp,"sortera{sh space}poster",sf,"system fr]gor",ss,"skriv sk[rm"
301 DATAsi,"system information",lp,"lista poster"
302 REM
303 POKE53280,2:PRINTs$t$s$"{white}"e$;
304 POKE54273,30:POKE54276,33:FORi=1TO50:NEXT:POKE54276,32:FORi=1TO200:NEXT
305 POKE54273,20:POKE54276,33:FORi=1TO50:NEXT:POKE54276,32:POKE198,0
306 GETgt$:IFgt$=""THEN306
307 PRINTs$t$;:POKE53280,0
308 RETURN
309 d$(0)="":d$(1)="":d$(2)="":as=0:ag=0
310 PRINT"{down}datum:{down}{cm t*2}{up}-{down}{cm t*2}{up}-{down}{cm t*2}{up}{left*8}{reverse on}{156} ";
311 GETgt$:IFgt$=""THEN311
312 IF(gt$<"0"ORgt$>"9")ANDgt$<>""THEN311
313 IFgt$="{delete}"THENPRINT"{reverse off}{left*12}{space*12}{up*2}{yellow}":GOTO309
314 d$(ag)=d$(ag)+gt$:as=as+1
315 IFas=2ANDag<>2THENag=ag+1:as=0:PRINT"{left}{reverse off}"gt$"{right}{reverse on} ";:GOTO311
316 IFas=2ANDag=2THENPRINT"{left}{reverse off}"gt$"{yellow}";:GOTO318
317 PRINT"{left}{reverse off}"gt$"{reverse on} ";:GOTO311
318 IFVAL(d$(1))<1ORVAL(d$(1))>12THENgt$="{delete}":GOTO313
319 IFVAL(d$(2))<1ORVAL(d$(2))>31THENgt$="{delete}":GOTO313
320 PRINT:RETURN
321 ab=0:i$="":ts=0:PRINTnr$t$nr$f$"{reverse on} {reverse off}";
322 GETgt$:IFgt$=""THEN322
323 IFgt$=CHR$(13)THENva=INT(VAL(i$)):RETURN
324 IF(gt$<"0"ORgt$>"9")ANDgt$<>"{delete}"ANDgt$<>"."THEN322
325 IFab>2ORgt$="{delete}"THEN327
326 i$=i$+gt$:PRINT"{left}"gt$"{reverse on} {reverse off}";:ab=ab+1:GOTO322
327 IFgt$="{delete}"ANDabTHENi$=LEFT$(i$,LEN(i$)-1):ab=ab-1:PRINT"{left} {left*2}{reverse on} {reverse off}";:GOTO322
328 GOTO322
329 ts=0:i$="":ab=0:PRINTs$t$nr$"{home}"LEFT$(n$,ra*2)LEFT$(uu$,ko);"{reverse on} {reverse off}";
330 GETgt$:IFgt$=""THEN330
331 IFgt$=CHR$(34)ORgt$=","THEN330
332 IFgt$>CHR$(31)ANDgt$<"^"ANDts=0THENPRINT"{left}"gt$"{reverse on} {reverse off}";:i$=i$+gt$:GOTO337
333 IFgt$>"{sh asterisk}"ANDgt$<"{sh +}"ANDts=0THENPRINT"{left}"gt$"{reverse on} {reverse off}";:i$=i$+gt$:GOTO337
334 IFgt$="{delete}"ANDabTHENab=ab-1:i$=LEFT$(i$,LEN(i$)-1):PRINT"{left} {left*2}{reverse on} {reverse off}";:GOTO338
335 IFgt$=CHR$(13)THENRETURN
336 GOTO330
337 ab=ab+1
338 ts=0:IFab>38-koTHENts=1
339 GOTO330
340 PRINTs$t$s$"helt sakert? {reverse on}j{reverse off}a";
341 GETgt$:IFgt$=""THEN341
342 IFgt$="{arrow left}"ANDqfTHENqf=0:as=1:p=p+(p>2)*2:RETURN
343 IFgt$="{f1}"ANDulTHENx=p-1:GOSUB426
344 IFgt$=CHR$(13)THENas=1:GOTO349
345 IFgt$="n"THENPRINT"{left*2}{reverse on}n{reverse off}ej";:as=0:GOTO349
346 IFgt$="t"ANDwfTHENPRINT"{left*3}{reverse on}t{reverse off}ab";:as=2
347 IFgt$="j"THENPRINT"{left*2}{reverse on}j{reverse off}a ";:as=1:GOTO349
348 GOTO341
349 RETURN
350 e$="f[ltfel":GOSUB302:GOTO151
351 e$="felaktigt f[ltantal":GOSUB302:GOTO151
352 as=0:af=0:PRINT"{home}{pink}{reverse on}{space*2}arbete p]g]r{sh space*2}{reverse off}{space*19}"
353 FORq=1104TO1944
354 v=PEEK(q):IFv<>101ANDv<>103THENNEXT:GOTO360
355 i=INT((q-1024)/40)+1:j=(q-1024)-(i-1)*40
356 IFv=101THENPOKEq,62:as=as+1:fl(af)=j-fk(af):GOTO368
357 POKEq,60:af=af+1:IFaf>20THEN351
358 fr(af)=i:fk(af)=j+1
359 NEXT
360 IFaf=0ORaf>20THEN351
361 IFaf<>asTHEN350
362 IFeqTHENeq=0:GOTO27
363 PRINT"{home}{yellow}{reverse off}"t$:f$="fyllnadsfaktor? ":GOSUB321:fy=VAL(i$)
364 IFfy<.5ORfy>1THENe$="felaktig fyllnadsfaktor":GOSUB302:GOTO363
365 PRINT"{clear}{white}{reverse on} arbetar! {reverse off}":FORi=1TOaf:kl=kl+fl(i):NEXT
366 ta=INT(FRE(0)/((kl+7)*fy)):PRINT"{clear}"ta"poster med"kl"tecken i varje."
367 DIMp$(ta+1,af):PRINT"{down}{white}{right}tryck return":GOSUB305:GOTO27
368 IFfr(af)=iTHENNEXT:NEXT:GOTO361
369 GOTO350
370 REM
371 PRINT"{home}{green}{reverse off}"rn$d$s$"{white}";:FORr=1TOaf:IFedANDr=iTHENPRINT"{reverse on}"ds
63999 REM "Invalid BASIC input d64-1bEiQT
stop tok64
(bastext 1.0)