home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 28 / Tiger_Disk_028_19xx_Tiger-Crew-Disk_de_Side_A.d64 / si.ba.wechselsch (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  43 lines
  1. 5 print"[147]":poke53280,12
  2. 10 D1,15
  3. 20 DO5,5," stromlaufplan einer wechselschaltung",1,1,8
  4. 25 DO5,165," mit einer wechselschaltung ist es moeglich,",1,1,7
  5. 26 DO5,175," einen verbraucher von 2 stellen aus ",1,1,7
  6. 27 DO5,185," unabhaengig voneinander zu schalten.",1,1,7
  7. 30 DO5,11," ------------------------------------",1,1,8
  8. 31 DO45,125,"schalter 1",1,1,8
  9. 32 DO 155,125,"schalter 2",1,1,8
  10. 33 DO45,135,"joystick p.ii",1,1,6
  11. 34 DO 155,135,"joystick p.ii",1,1,6
  12. 35 DO 45,145,"links,rechts",1,1,6
  13. 36 DO 155,145,"oben,unten",1,1,6
  14. 40 D8,45,48,1,1
  15. 50 D 18,48,150,48,1
  16. 60 Db 160,48,10,10,1
  17. 70 D156,41,163,56,1:D164,41,156,56,1
  18. 90 D 170,48,300,48,1
  19. 110 D8,100,18,1,1
  20. 120 D 18,103,95,103,1
  21. 150 D90,100,81,1,1:D110,90,81,1,1:D110,110,81,1,1
  22. 160 D200,90,81,1,1:D200,110,81,1,1:D220,100,81,1,1
  23. 180 D 112,114,200,114,1
  24. 210 D 112,94,200,94,1
  25. 240 D 222,104,300,104,1
  26. 270 D300,48,300,104,1
  27. 291 D203,93,220,103,1
  28. 292 D220,106,206,113,1
  29. 300 D93,103,112,95,1
  30. 302 D93,103,112,112,1
  31. 309 x=Dq
  32. 310 if Dx(111,112)andDx(206,113)=1then:poke53280,1
  33. 311 if Dx(111,112)andDx(206,113)=0then:poke53280,0
  34. 312 if Dx(111,95)andDx(203,93)=1then:poke53280,1
  35. 313 if Dx(111,95)andDx(203,93)=00then:poke53280,0
  36. 318 ifx=7then D93,103,112,95,0:D93,103,112,112,1
  37. 319 ifx=7then D93,103,112,95,0:D93,103,112,112,1
  38. 320 ifx=7then D93,103,112,95,0:D93,103,112,112,1
  39. 321 ifx=3thenD93,103,112,112,0:D93,103,112,95,1
  40. 340 ifx=5then D203,93,220,103,0:D220,106,206,113,1
  41. 350 ifx=1then D220,106,206,113,0:D203,93,220,103,1
  42. 500 goto  309
  43.