10 REM ** 64'ER MAGAZIN 3/93 HARDWARE
20 REM ** VON NIKOLAUS HEUSLER
30 REM ** ZWENGAUERWEG 18, 8000 MUENCHEN 71
40 REM -- ALARMANLAGE                  --
50 REM SENSOREN (ALARM = LOW) AN PB0..7
60 REM SIRENE (HIGH = EIN) AN PA2
100 POKE56578,63:REM PA2 AUSGANG
110 POKE56579,0:REM PB0..PB7 EINGAENGE
120 PRINT"[147]ALARMANLAGE AKTIV         NH/64'ER 1993
130 [153]"TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO
140 PRINT"RUHESTELLUNG  -  ALLE SENSOREN AKTIV
150 [151]56576,[194](56576)[175]251:[143] SIRENE AUS
160 A[178][194](56577):[143] SENSOREN TESTEN
170 [139]A[178]255[167]160:[143] RUHE
180 [153]"ONALARMZUSTAND!
190 FORI=.TO7
200 IF(AAND2^I)=0THENPRINT"*** ALARM DURCH SENSOR NR."I+1"***
210 [130]
220 [151]56576,[194](56576)[176]4:[143] SIRENE EIN
230 [153]"SIRENE DURCH LEERTASTE LOESCHEN
240 POKE198,.:WAIT198,1:GETA$:IFA$<>" "THEN240
250 RUN