1 REM Ins{nd av: Einar Eriksson <1720>    1985-06-27 23.09.14
2 REM +++++++++++++++++++++++++++++++++
3 REM ! Program      RINGABC.BAS
4 REM !
5 REM ! Utg}va 1.1   85-06.27
6 REM ! 
7 REM ! av Einar Eriksson
8 REM !
9 REM ! F|r ABC80 32 K minne 40/80 tkn
10 REM +++++++++++++++++++++++++++++++++
11 REM
20 P$="* RINGABC.BAS *"
25 REM 
30 REM Detta program ringer upp de
40 REM telefonnummer som angetts
50 REM nedan i vektorn T$().
60 REM 
70 REM F|r att progrmmet ska fungera
80 REM m}ste telefonlinjen anslutas
90 REM i serie med bandspelarens
100 REM motorstyrningsutg}ng.
110 REM Dessutom m}ste telefonluren
120 REM vara avlyft fr}n klykan.
130 REM 
140 REM 
150 REM F|r att detta program ska
160 REM fungera m}ste det fogas
170 REM ihop med TERM100.
210 REM G|r s} h{r:
220 REM Ladda in TERM100 i datorn.
230 REM Ge komandot REN 10000,1.
240 REM Spara det omnumrerade TERM100
250 REM under nytt namn p} kassett
260 REM eller skiva. Ladda in
270 REM RINGABC.BAS och ge sedan
280 REM kommandot MERGE <filnamn>.
290 REM D{r filnamn {r namnet p}
300 REM det omnumrerade TERM100.
390 REM 
400 REM --- VARIABELLISTA ---
410 REM P$ = Programnamn
415 REM T$() = Telefonnummer
420 REM T1$() = Info. om telfonnumret
423 REM K1% = Kolumn f|r 40 rep 80 tkn
425 REM S$ = Tempr{r variabel f|r inmatning
430 REM F% = Flagga f|r svar fr}n modem
432 REM F1% = Flagga f|r stopp av nummerslagning
435 REM T% = Val av telfonnummer i T$()
440 REM I = Allm{n loopvariabel, flyttal
445 REM K% = Loopvariabel f|r antal siffror i telefonnummer
450 REM C% = Antal pulser f|r aktuell siffra
455 REM A% = Mellanlagring av paralellportsv{rde
460 REM B% = Ger tiden f|r pulsens l{ngd
465 REM J% = Loopvariabel f|r antal pulser
470 REM I% = Allm{n loopvariabel heltal
475 REM 
480 REM 
500 REM --- TELEFONNUMMER ---
505 REM Observera att telefonnummren
506 REM m}ste skrivas utan mellanslag
507 REM och andra tecken {n siffror.
510 T$(0)="801523" : T1$(0)="ABC-klubben"
520 T$(1)="801526" : T1$(1)="ABC-klubben"
530 T$(2)="801725" : T1$(2)="ABC-klubben"
590 REM 
600 REM --- 40/80 TKN ---
610 IF PEEK(885)=124% THEN K1%=0% : REM 40 tkn
620 IF PEEK(885)=88% THEN K1%=20% : REM 80 TKN
1000 REM --- MENY ---
1010 PRINT CHR$(12);
1015 PRINT CUR(2,K1%+5%);P$;
1500 REM --- RINGF\RS\K ---
1510 T%=0%
1515 GOSUB 4010 : REM * TELEFONNUMMER *
1520 IF F%=1% AND F1%=1% THEN OUT 6,253 : FOR I=1 TO 1000 : NEXT I : OUT 6,0
1525 IF F%=1% AND F1%=1% THEN GOTO 10000 : REM --- TERM100 ---