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<Y+1
2380     I=I+1
2390   WEND 
2400   RETURN 0
2410 FNEND