home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1985 June
/
1985-06.d64
/
compute!
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
270b
|
10 lines
10 ifa=0thena=1:load"computescreen",8,1
20 ifa=1thena=2:load"computecolor",8,1
30 print"";:poke53280,15:poke53281,15
40 fori=1to22000:next
45 print"[147]"
50 s$="l[207]"+chr$(34)+"mn"+chr$(34)+",8:"+chr$(131)
60 fori=1tolen(s$):poke630+i,asc(mid$(s$,i)):next:poke198,i
61 poke53281,14:poke53280,14
62 print"[145][210][197][204][207][193][196][201][206][199] [205][197][206][213] [208][210][207][199][210][193][205][154]":end