home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / BASIC00.ZIP / MONITOR < prev    next >
Encoding:
Text File  |  1987-01-11  |  640 b   |  17 lines
  1. 10 '  REM C/O MONITOR / CHAR DISPLAY ADAPTOR SWITCH
  2. 20 DEF SEG = 0
  3. 30 TESTADAP = PEEK (&H410) : ' IDENTIFY ADAPTER IN SYSTEM
  4. 40 IF (TESTADAP AND &H30) = &H30 THEN GOTO 90
  5. 50 ADAPTER$ = "MONO": 'SWITCH TO MONOCHROME ADAPTER
  6. 60 POKE &H410, (TESTADAP OR &H30)
  7. 70 SCREEN 0,0,0,0: WIDTH 80: LOCATE ,,1,12,13
  8. 80 GOTO 120
  9. 90 ADAPTER$ = "KODA": ' SWITCH TO COLOR/GRAPHICS ADAPTER
  10. 100 POKE &H410,  (TESTADAP AND &HCF) OR &H20
  11. 110 SCREEN 0,1,0,0: WIDTH 40: LOCATE ,,1,6,7
  12. 115 OUT 980,2: OUT 981,43
  13. 120 END: 'RETURN IF USED AS SUB ROUTINE
  14. CF) OR &H20
  15. 110 SCREEN 0,1,0,0: WIDTH 40: LOCATE ,,1,6,7
  16. 115 OUT 980,2: OUT 981,43
  17. 120 END: 'RE