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