home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 94xx / 9401.d64 / relais (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  549b  |  33 lines
  1. 5 PRINT "[147]"
  2. 10 PRINT "TASTEN 1 BIS 4 SCHALTEN DIE RELAIS"
  3. 15 R1=-1:R2=-1:R3=-1:R4=-1
  4. 20 GET A
  5. 30 IF A = 1  THEN R1=R1*-1:GOTO100
  6. 40 IF A = 2  THEN R2=R2*-1:GOTO200
  7. 50 IF A = 3  THEN R3=R3*-1:GOTO300
  8. 60 IF A = 4  THEN R4=R4*-1:GOTO400
  9. 100 POKE 214,23
  10. 110 POKE 211,38
  11. 112 SYS 58640
  12. 120 IF R1=1 THEN PRINT "[209]"
  13. 127 IF R1=-1THEN PRINT " "
  14. 130 GOTO 20
  15. 200 POKE 214,23
  16. 210 POKE 211,34
  17. 220 SYS 58640
  18. 225 IF R2=1 THEN PRINT "[209]"
  19. 227 IF R2=-1THEN PRINT " "
  20. 230 GOTO 20
  21. 300 POKE 214,23
  22. 310 POKE 211,30
  23. 320 SYS 58640
  24. 325 IF R3=1 THEN PRINT "[209]"
  25. 327 IF R3=-1THEN PRINT " "
  26. 330 GOTO 20
  27. 400 POKE 214,23
  28. 410 POKE 211,26
  29. 420 SYS 58640
  30. 425 IF R4=1 THEN PRINT "[209]"
  31. 427 IF R4=-1THEN PRINT " "
  32. 430 GOTO 20
  33.