1 REM Ins{nd av Sven Olof Johansson <4989> 1986-01-26 14.46.39 2 ! ********************************************************************** 3 ! Program UPPRINGN.BAS Utg}va 1.0 1986-01-26 4 ! av 4989 Sven Olof Johansson 5 ! Automatuppringning av modem.Utprovat p} modem SELIC AB16 6 ! F|r ABC800M ABC800C ABC802 ABC806 8 ! Testad p} ABC806 9 ! F|r ABC800-ABC802-ABC806 (ABC80 med {ndringar) 10 ! ********************************************************************** 11 INTEGER : EXTEND 2000 DEF FNTelefon LOCAL U 2010 ; CHR$(12) 2020 T$='08-806440' 2030 OPEN 'V24:' AS FILE 99 2040 OUT 65,5 ! "Lyfter" p} luren v{ntar ung 4 sek 2050 OUT 65,128 2060 Z=FNDelay(1500) 2070 ; YEL El 'Telefonnr:'; 2080 FOR K=1 TO LEN(T$) 2090 IF ASCII(MID$(T$,K,1))<48 OR ASCII(MID$(T$,K,1))>57 THEN ; '-'; : GOTO 2180 2100 ; VAL(MID$(T$,K,1)); 2110 FOR P=1 TO VAL(MID$(T$,K,1))+1 ! "Sl}r" siffrorna 2120 OUT 65,24 ! "Nycklar" DTR (20-108) 2130 Z=FNDelay(20) 2140 OUT 65,5 2150 OUT 65,128 2160 Z=FNDelay(12) 2170 NEXT P 2180 Z=FNDelay(200) 2190 NEXT K 2200 OUT 65,16 2210 IF INP(65)>100 THEN 2290 2220 U=U+1 2230 Z=FNDelay(400) 2240 IF U<25 THEN 2200 ! V{ntar p} uppkoppling i ca 30 sek 2250 CLOSE 99 2260 OUT 65,24 2270 Upptag=1 2280 RETURN 0 ! Vid ej uppkoppling t ex upptaget 2290 ; CHR$(12,7) CUR(1,16) CYA El 'KLART '; : ; YEL T$ 2300 CLOSE 99 2310 Upptag=0 2320 Time1$=TIME$ ! Avl{sning av klockan innan "nollning" 2330 POKE -14,0,0,0,0 ! Nollst{ller klockan 2340 RETURN 0 2350 FNEND 2360 DEF FNDelay(Y) LOCAL I 2370 WHILE I