home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1993 March / 64er_Magazin_93-03_1993_Markt__Technik_de_Side_B.d64 / alarmanlage (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  726b  |  23 lines
  1. 10 rem ** 64'er magazin 3/93 hardware
  2. 20 rem ** von nikolaus heusler
  3. 30 rem ** zwengauerweg 18, 8000 muenchen 71
  4. 40 rem -- alarmanlage                  --
  5. 50 rem sensoren (alarm = low) an pb0..7
  6. 60 rem sirene (high = ein) an pa2
  7. 100 poke56578,63:rem pa2 ausgang
  8. 110 poke56579,0:rem pb0..pb7 eingaenge
  9. 120 print"[147]alarmanlage aktiv         nh/64'er 1993
  10. 130 [153]"tototototototototototototototototototototototototototototototototototototototo
  11. 140 print"ruhestellung  -  alle sensoren aktiv
  12. 150 [151]56576,[194](56576)[175]251:[143] sirene aus
  13. 160 a[178][194](56577):[143] sensoren testen
  14. 170 [139]a[178]255[167]160:[143] ruhe
  15. 180 [153]"onalarmzustand!
  16. 190 fori=.to7
  17. 200 if(aand2^i)=0thenprint"*** alarm durch sensor nr."i+1"***
  18. 210 [130]
  19. 220 [151]56576,[194](56576)[176]4:[143] sirene ein
  20. 230 [153]"sirene durch leertaste loeschen
  21. 240 poke198,.:wait198,1:geta$:ifa$<>" "then240
  22. 250 run
  23.