home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh0x / sh05.d64 / anwesenheitstest (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-30  |  389 b   |  20 lines
  1. 100 REM DRUCKERTEST
  2. 120 OPEN4,4
  3. 135 POKE768,185
  4. 155 PRINT#4:CLOSE4
  5. 170 POKE768,139
  6. 190 IFST<>-128THEN205
  7. 195 PRINT"DRUCKER NICHT EINGESCHALTET !
  8. 200 [137]215
  9. 205 [153]"DRUCKER EINGESCHALTET !
  10. 215 REM HIER GEHT'S WEITER IM PROGRAMM
  11. 225 REM FLOPPYTEST
  12. 240 POKE768,185
  13. 260 OPEN15,8,15,"I":CLOSE15
  14. 275 POKE768,139
  15. 295 IFST<>-128THEN310
  16. 300 PRINT"FLOPPY NICHT EINGESCHALTET !
  17. 305 [137]320
  18. 310 [153]"FLOPPY EINGESCHALTET !
  19. 320 REM HIER GEHT'S WEITER IM PROGRAMM
  20.