| 1 |
- 1%:NEXTI1%
108NEXTI0%:GOSUB256:IFA%GOSUB305
109GOSUB142:J0%=I0%:J%=I%:IFB1%=0%THENZ4=I0%*30%+I%-30%
110GOSUB132
111IFB%=141%B1%=0%
112IFB%=194%ORB%=216%B0%=1%:GOTO129
113IFB%=213%B1%=1%
114IFB%=214%ORB%=217%B2%=B%AND1:GOTO129
115IFA%=0%117
116IFB%>144%ANDB%<149%GOSUB305
117GOSUB133
118IFB1%GOSUB190:Z3=Z0+Z4:GOSUB142
119FORY0%=J0%TOI0%STEP-1%:IFY0%<J0%J%=20%
120IFY0%=I0%I2%=(I%-1%)/10%ELSEI2%=0%
121FORY%=J%TOI2%STEP-1%:FORR1%=61TO63
122K1%=17%+Y%+(Y0%-1%)*3%:GOSUB130
123CLRDOTR1%,K1%:NEXTR1%:NEXTY%:NEXTY0%
124;CUR(7,20);:IFM6%=0%;I%' 'ELSE;
125;CUR(22,0)RIGHT$(NUM$(INT(Z4/60%)),2%)":"RIGHT$(NUM$(100%+Z4-INT(Z4/60%)*60%),3%)' '
126IFZ4>0%GOTO109
127CLRDOT61,16:CLRDOT62,16:CLRDOT63,16
128I$=I0$:GOSUB190
129;CUR(R0%,0%);:RETURN
130IFK1%>79%K1%=79%
131RETURN
132B%=(INP(56%)AND223%):RETURN
133IFB%=196%I$='DI D':GOSUB321
134IFB%=197%I$='DI V':GOSUB321
135IFB%=198%I$='DI F':GOSUB321
136IFB%=201%I$='DI RS':GOSUB321
137IFB%=205%GOSUB165:IFM%GOSUB142
138IFB%=215%GOSUB271
139RETURN
140FORF%=1%TO1000%:NEXTF%:RETURN
141FORF%=1%TO2000%:NEXTF%:RETURN
142GOSUB257:I0%=(Z3-Z0)/30%+1%:IFI0%<0%I0%=0
143IFZ3<Z0THENZ3=Z0
144I%=Z3-Z0-(I0%-1%)*30%:RETURN
145GETW$:IFASC(W$)<>13%145
146RETURN
147GOSUB319:GOSUB190:IFB2%149
148FORK%=1TO7:GOSUB318:GOSUB319:NEXTK%
149RETURN
150GOSUB319:IFB2%152
151O%=5%:FORK%=1%TOM%:GOSUB318:GOSUB141:GOSUB319:NEXTK%
152O%=0%:RETURN
153GOSUB319:GOSUB140:GOSUB140:RETURN
154GOSUB318:FORK%=1TO20:GOSUB141:NEXTK%
155N%=C%:GOSUB156:GOSUB319:N%=0%:RETURN
156GOSUB318:FORK%=1TO4:GOSUB141:NEXTK%:RETURN
157;CHR$(12%)CUR(11,0%)STRING$(40%,61%)M$
158;CUR(0%,0%)C$" "TAB(18)D$:;'SIGNAL FR]N 'S$
159IFZ9>Z0GOSUB270
160;CUR(2,0)"L[NK: "L$:;"SP]R: "K0$:;'OMG ('RIGHT$(NUM$(U%),2%)')';
161IFS%;CUR(4,3)S%;
162IFS%=U%ANDM7%=1%164
163IFM7%;CUR(4,24)'N[STA M[TNING: 'RIGHT$(NUM$(M7%),2%);
164;CUR(5,0)"======== Televerket Radio SOVIM ========":RETURN
165IF\1%GOSUB157
166GOSUB190:IFM6%=0%;CUR(7%,21%)' '
167GETX$
168;CUR(12%,0%);
169L%=LEN(M$):FORI8%=1%TOL%
170IFRIGHT$(M$,I8%)=SPACE$(L%-I8%+1%)M$=LEFT$(M$,I8%-1%):GOTO172
171NEXTI8%
172M2%=0%:M2$=''
173;CUR(12%,0%)SPACE$(119%)'<'CUR(12%,0%)M$;
174L%=LEN(M$):M3%=(L%+M2%)/40%:M4%=L%+M2%-M3%*40%
175;CUR(12%+M3%,M4%);:GETW$:M1%=ASC(W$)
176W%=INSTR(1%,CHR$(8%,9%,13%,24%),W$):IFW%=0%184
177ONW%GOTO178,181,187,183
178IFL%+M2%<1%174
179M2%=M2%-1:IFM2%<-1%M2$=RIGHT$(M$,L%+M2%+2%)
180GOTO174
181GOSUB188:IFM2%>0%M$=M$+' '
182GOTO174
183M$=SPACE$(119%):M$='':M2$='':M2%=0%:GOTO173
184IFL%>118%;CHR$(7%):M$=LEFT$(M$,118%):GOTO173
185IFM1%>31%M$=LEFT$(M$,L%+M2%)+W$+M2$:GOSUB188
186GOTO173
187RETURN
188IFM2%<0%M2%=M2%+1%:IFM2%<-1%M2$=RIGHT$(M2$,2%)ELSEM2$=''
189RETURN
190GOSUB257:;CUR(0%,36%)CHR$(151%,47%,47%):RETURN
191T$='':GETX$
192IFM7%>1%M7%=M7%-1%
193GOSUB157:;CUR(6,0)"M[TNINGEN AVBRUTEN":Z9=0:C0%=0
194GOSUB147:;CUR(10,38)'<'CUR(7,0)'Meddelande:'
195INPUTLINEB$:GOTO90
196O0%=0:IF(N%(M%)/8%AND7%)+N0%=4%O0%=4
197IF(N%(M%)/8%AND7%)+N0%=5%O0%=8%
198IF(N3%AND255%)=2%O0%=O0%+16
199OUT0%,O0%
200RETURN
201\1%=1
202IF\1%;CUR(11,0%)STRING$(40,61);ELSE204
203IFLEN(T$)GOSUB270:;CUR(12,0)'Kl';ELSE;'h m';
204IF\1%;TAB(10)'Steg'TAB(30)'Tid (min)':;STRING$(40,45);
205RESTORE334
206FORI%=1%TOC%-1%:READM2$,Z%,Z%:NEXTI%
207FORI%=1%TOC3%:IFI%=1%ORI%=4%READN0$(I%),Z%,Z%ELSEN0$(I%)=SPACE$(7)
208IFC%ANDC2%N0$(4)=SPACE$(7)
209NEXTI%:FORI0%=1%TOC3%STEP3%:RESTORE361
210FORI%=I0%TOI0%+1%:READM2$:N0$(I%)=N0$(I%)+' '+M2$:NEXTI%
211IFI0%<C3%N0$(I%)=' Paus'
212NEXTI0%:N0$(I%)='SLUT'
213Z$=MUL$(NUM$(Z9+42),'100',0%)
214FORI%=1%TOC3%+C2%/2%:H9%=0%:S9%=0%
215Z$=ADD$(Z$,MUL$(NUM$(Z0(I%-1)),'2',0%),0%)
216M9%=M9%(I%):GOSUB267:Z0(I%)=Z
217GOSUB262:IF\1%;H9$'.'M9$TAB(10);
218IFI%<4%T$(I%)=''
219T0$=T$:X9=Z9:GOSUB254
220IFI%=2%T$(1)=T$:Z9(1)=Z9
221IFI%=4%T$(2)=T$:Z9(2)=Z9
222IFI%=5%T$(3)=T$:Z9(3)=Z9
223IFI%=7%T$(4)=T$:Z9(4)=Z9
224T$=T0$:Z9=X9
225IF\1%;N0$(I%)TAB(30);
226IFI%=C3%+C2%/2%228
227IF\1%;RIGHT$(NUM$(100%+M9%(I%)),3%)SPACE$(8);
228NEXTI%:IF\1%=0%233
229GOSUB132:GOSUB257
230IFB%=141%233
231IFB%=211%S1%=1%
232IFB%=212%GOSUB234:GOTO202
233RETURN
234FORJ%=J0%TO1%
235POKE65013,0
236ONERRORGOTO252
237POKE31774%+J%*128%,160%
238GOS
|
