1 REM Ins{nt av 4443
2 ! **********************************************************************
3 ! Program          CSTEST.800      Utg}va  1.0      1984-01-04
4 ! av Jan Gustafsson <4443>
5 ! Ins{nd av Jan Gustafsson
6 ! F|r ABC800M ABC800C ABC802 ABC806
8 ! Testad p} ABC800C
9 ! Programmet anv{nds till att kontrollera
10 ! kortadressen p} I/O-kort i Expansionsenheten
11 ! Kan {ven anv{ndas p} ABC80 med mindre program{ndringar.
12 ! **********************************************************************
1000 EXTEND : INTEGER 
1010 ; CHR$(12)
1020 ; 'CS-TEST PROVAR ADRESSERING P] I/O-KORT'
1030 ; 
1040 ; 'F\LJ MED I TEST GENOM ATT SE VILKET'
1050 ; 'KORT SOM T[NDER LYSDIOD.'
1060 ; 
1070 ; '( -->  r{knar upp )'
1080 ; '( <--  r{knar ner )'
1090 ; '( mellanslag avslutar )'
1100 ; : ; TAB(30) 'Anv{nd'
1110 ; TAB(30) 'kortadress!'
1120 ; TAB(30) '-----------'
1130 Slask=INP(7)
1140 Port=0
1150 Rad=12
1160 Kol=30
1170 GOTO 1270
1180 GET Inv{rde$
1190 IF ASCII(Inv{rde$)=8 THEN Port=Port-1
1200 IF ASCII(Inv{rde$)=9 THEN Port=Port+1
1210 IF ASCII(Inv{rde$)>9 THEN 1300
1220 IF Port<0 THEN Port=0
1230 IF Port>63 THEN Port=63
1240 OUT 1,Port
1250 IF Rad>21 THEN Rad=12 : Kol=35
1260 IF INP(1)<255 THEN ; CHR$(7) CUR(Rad+1,Kol) Port : Rad=Rad+1
1270 ; CUR(18,0) 'Kortadress ';
1280 ; USING "## (dec)" Port,
1290 GOTO 1180
1300 ; : ; 'TESTET SLUT!!'
1310 END