start tok64 d64-EKHHnS
5 DIMg1$(1000),g2$(1000),g3$(1000),g4$(1000)
10 POKE53280,0:POKE53281,0:PRINT"{clear}";
15 PRINT"{reverse on}{cyan}g{space*2}l{space*2}o{space*2}s{space*2}f{space*2}{pound}{space*2}r{space*2}h{space*2}{pound}{space*2}r{space*2}av ulf t. {reverse off}direkt f{pound}r club 64. 891013"
16 PRINT"{down}version 1.0"
20 PRINT"{down}{reverse on} f1 {reverse off}{space*2}skriva in nya glosor"
25 PRINT"{down}{reverse on} f3 {reverse off}{space*2}ladda in gamla glosor"
30 GETa$:IFa$=""THEN30
35 IFa$="{f1}"THEN50
40 IFa$="{f3}"THEN100
45 GOTO30
50 PRINT"{clear}skriva in nya glosor"
55 INPUT"{down}hur m]nga spr]k";s:IFs<2ORs>4THEN55
56 PRINT"okey. skriv nu in glosa f{pound}r glosa. om du";
57 PRINT"ska [ndra en f{pound}reg]ende glosa s] skriv:"
58 PRINT"^"
59 PRINT"om du ska sluta mata glosor skriver du:"
60 PRINT"#"
61 t=0
62 t=t+1:IFt=999THENPRINT"{clear}fullt i minnet":GOTO90
63 IFt<1THENt=1
64 PRINT"glosa "t"spr]k 1";:INPUTg1$(t):IFg1$(t)="^"THENt=t-2:GOTO62
65 IFg1$(t)="#"THEN90
66 PRINT"glosa "t"spr]k 2";:INPUTg2$(t):IFg2$(t)="^"THENt=t-2:GOTO62
67 IFg2$(t)="#"THEN90
68 IFs<3THEN62
69 PRINT"glosa "t"spr]k 3";:INPUTg3$(t):IFg3$(t)="^"THENt=t-2:GOTO62
70 IFg3$(t)="#"THEN90
71 IFs<4THEN62
72 PRINT"glosa "t"spr]k 4";:INPUTg4$(t):IFg4$(t)="^"THENt=t-2:GOTO62
73 IFg4$(t)="#"THEN90
74 GOTO62
90 t=t-1:PRINT"{clear}{down*2}{reverse on} f1 {reverse off}{space*2}f{pound}rh{pound}r"
91 PRINT"{down}{reverse on} f3 {reverse off}{space*2}spara glosor"
92 GETa$:IFa$=""THEN92
93 IFa$="{f1}"THEN150
94 IFa$="{f3}"THEN125
95 GOTO92
100 PRINT"{clear}ladda"
101 OPEN1,1,0,"glosor c64"
102 INPUT#1,s:INPUT#1,t
103 FORk=1TOt
104 INPUT#1,g1$(k)
105 INPUT#1,g2$(k)
106 IFaa<3THEN110
107 INPUT#1,g3$(k)
108 IFaa<4THEN110
109 INPUT#1,g4$(k)
110 NEXT
111 CLOSE1
112 PRINT"{clear}klar{!*3}"
113 PRINT"{down}{reverse on} f1 {reverse off}{space*2}f{pound}rh{pound}r"
114 PRINT"{down}{reverse on} f3 {reverse off}{space*2}inmatning av nya glosor"
115 PRINT"{down}{reverse on} f5 {reverse off}{space*2}huvudmenyn"
116 GETa$:IFa$=""THEN116
117 IFa$="{f1}"THEN150
118 IFa$="{f3}"THEN50
119 IFa$="{f5}"THEN10
125 PRINT"{clear}spara"
126 PRINT"{down}st[ll in bandet p] r[tt varv och tryck{space*2}sedan p] {reverse on}return"
127 GETa$:IFa$<>CHR$(13)THEN127
128 OPEN1,1,1,"glosor c64"
129 PRINT#1,s:PRINT#1,t
130 FORk=1TOt
131 PRINT#1,g1$(k)
132 PRINT#1,g2$(k)
133 IFs<3THEN140
134 PRINT#1,g3$(k)
135 IFs<4THEN140
136 PRINT#1,g4$(k)
140 NEXT
141 CLOSE1
142 PRINT"{clear}{down}{reverse on} f1 {reverse off}{space*2}f{pound}rh{pound}r"
143 PRINT"{down}{reverse on} f3 {reverse off}{space*2}huvudmeny"
144 GETa$:IFa$=""THEN144
145 IFa$="{f1}"THEN150
146 IFa$="{f3}"THEN10
147 GOTO144
150 PRINT"{clear}f{pound}rh{pound}r{down}"
151 INPUT"vilket spr]k ska vara f{pound}rh{pound}rsspr]k";g
152 l=0
153 l=l+1:FORx=1TO1000:NEXT:IFl>tTHEN230
154 IFg=1THENPRINT"{clear}spr]k 1:";g1$(l):GOTO160
155 IFg=2THENPRINT"{clear}spr]k 2:";g2$(l):GOTO160
156 IFg=3THENPRINT"{clear}spr]k 3:";g3$(l):GOTO160
157 IFg=4THENPRINT"{clear}spr]k 4:";g4$(l):GOTO160
160 IFg<>1THEN170
161 IFg<>2THEN180
162 IFs>2THENIFg<>3THEN190
163 IFs>3THENIFg<>4THEN200
164 GOTO153
170 INPUT"spr]k 1";a$:IFa$=g1$(l)THENPRINT"r[tt":GOTO161
175 PRINT"{clear}fel{!*3}":PRINT"vill du f{pound}rs{pound}ka igen (j/n)"
176 GETa$:IFa$=""THEN176
177 IFa$="j"THENGOTO154
178 PRINT"r[tt svar var:";g1$(l):GOTO161
180 INPUT"spr]k 2";a$:IFa$=g2$(l)THENPRINT"r[tt":GOTO162
185 PRINT"{clear}fel{!*3}":PRINT"vill du f{pound}rs{pound}ka igen (j/n)"
186 GETa$:IFa$=""THEN186
187 IFa$="j"THENGOTO154
188 PRINT"r[tt svar var:";g2$(l):GOTO162
190 INPUT"spr]k 3";a$:IFa$=g3$(l)THENPRINT"r[tt":GOTO163
195 PRINT"{clear}fel{!*3}":PRINT"vill du f{pound}rs{pound}ka igen (j/n)"
196 GETa$:IFa$=""THEN196
197 IFa$="j"THENGOTO154
198 PRINT"r[tt svar var:";g3$(l):GOTO163
200 INPUT"spr]k 4";a$:IFa$=g4$(l)THENPRINT"r[tt":GOTO153
205 PRINT"{clear}fel{!*3}":PRINT"vill du f{pound}rs{pound}ka igen (j/n)"
206 GETa$:IFa$=""THEN206
207 IFa$="j"THENGOTO154
208 PRINT"r[tt svar var:";g4$(l):GOTO153
230 PRINT"{clear}{reverse on} f1 {reverse off}{space*2}f{pound}rh{pound}r en g]ng till"
231 PRINT"{down}{reverse on} f3 {reverse off}{space*2}spara"
232 PRINT"{down}{reverse on} f5 {reverse off}{space*2}huvudmeny"
233 GETa$:IFa$=""THEN233
234 IFa$="{f1}"THEN150
235 IFa$="{f3}"THEN125
236 IFa$="{f5}"THEN10
237 GOTO233
stop tok64
(bastext 1.0)