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