home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of Soft…ids, Adults, Educational / RocelcoInc-ExploreTheWorldOfSoftware-KidsAdultsEducational-Vol2-Shareware.iso / educate / disk053 / color.bas < prev    next >
Encoding:
BASIC Source File  |  1983-11-03  |  256 b   |  8 lines
  1. 100 REM SWITCH TO COLOR DISPLAY
  2. 110 DEF SEG=0
  3. 120 POKE &H410, (PEEK(&H410) AND &HCF) OR &H10
  4. 130 SCREEN 1,0,0,0: SCREEN O: WIDTH 40
  5. 140 LOCATE ,,1,6,7: DEF SEG
  6. EF SEG=0
  7. 120 POKE &H410, (PEEK(&H410) AND &HCF) OR &H10
  8. 130 SCREEN 1,0,0,0: SCREEN O: WI