home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 February / Ahoy_Magazine_87-02_1987_Double_L.d64 / Sixfortybas (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  514 b   |  22 lines
  1. 61000 geta$:ifa$=""then61000
  2. 61001 ifa$="t"thengosub61006
  3. 61002 ifa$="h"thengosub61015
  4. 61003 ifa$="_"thengosub61012
  5. 61004 ifa$="c"thengosub61013
  6. 61005 goto61000:rem change line number to match your graphics program
  7. 61006 :rem text mode
  8. 61007 poke56578,peek(56578)or3
  9. 61008 poke56576,(peek(56576)and252)or3
  10. 61009 poke53272,21
  11. 61010 poke53265,27
  12. 61011 return
  13. 61012 sys49152:return
  14. 61013 n=1:fori=0to999:poke22528+i,n:next:return:rem change n to change hires
  15. 61014 rem colors. 16*(ink color#)+(background color#)
  16. 61015 :rem hi res mode
  17. 61016 poke56578,peek(56578)or3
  18. 61017 poke56576,(peek(56576)and252)or2
  19. 61018 poke53272,(peek(53272)and15)or104
  20. 61019 poke53265,peek(53265)or32
  21. 61020 return
  22.