· Text 7754 · w8 · inlagg
Jag har i T.BAC fd QZ.806 nu fått det att funka!
812:an blir helt svart och JACKI 1200 aktiveras ej när
jag loggar ut. Genom att trycka två gånger på exvis
mellanslag kan jag åter ringa och logga in med skärmen på.
Har någon synpunkter på förbättringar i detta utdrag?
198 ! - - - Initiering - - - -----------------------------------------
200 ON ERROR GOTO 220
202 Z=FNMeny
204 OPEN Modem¤ AS FILE V24
206 ! - - - Huvudloop - - - ----------------------------------------
208 OUT 65,5,65,128 ! Sätter DTR hög - aktiverar JACKIE 1200
210 INPUT #V24,Rad¤ ! * <----- hopp sker hit ------------
212 IF Rad¤='SYNK' THEN Z=FNGetfil : GOTO 210
214 IF Rad¤='SENDFIL' THEN Z=FNSendfil : GOTO 210
216 ; RED Rad¤
218 IF LEN(Rad¤)=0 THEN 256 ELSE 210
220 IF ERRCODE=53 THEN 224
222 ; CHR¤(7);RED 'Fel nr' ERRCODE : GOTO 256
224 A=SYS(6) : GET Pf¤
226 Pf=ASCII(Pf¤)
228 IF Pf>191 AND Pf<202 THEN RESUME 236
230 IF Pf>207 AND Pf<218 THEN RESUME 238
232 IF Pf>223 AND Pf<234 THEN RESUME 240
234 IF Pf>239 AND Pf<250 THEN RESUME 242 ELSE RESUME 254
236 ON Pf-191 GOTO 254,254,246,248,254,250,254,254,254,254
238 ON Pf-207 GOTO 244,254,252,254,254,254,254,254,254,256
240 ON Pf-223 GOTO 254,254,254,254,254,254,254,254,254,254
242 ON Pf-239 GOTO 254,254,254,254,254,254,254,254,254,254
244 Z=FNMeny : GOTO 210
246 Z=FNDumpafil(0) : GOTO 210
248 Z=FNDumpapr : GOTO 210
250 Z=FNHardcopy : GOTO 210
252 Z=FNSend : GOTO 204
254 ; CHR¤(7);RED 'Denna tangent saknar här funktion!' YEL ' ' : GOTO
210
256 POKE 65413,35,255 ! CTRL-C sätts på igen
258 POKE PEEK2(65500)+8,Pfpekare,SWAP%(Pfpekare)
260 ATTRIBUTE 1
262 ; CHR¤(12);
264 OUT 65,5,65,0 ! Sätter DTR till 0 - kopplar ur JACKIE 1200
266 ; CUR(1,1) ' ' : WHILE SYS(5)=0 : WEND : GET A¤ : WHILE SYS(5)=0
: WEND : GOTO 208
268 END