home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 June / 1985-06.d64 / compute! (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  270b  |  10 lines

  1. 10 ifa=0thena=1:load"computescreen",8,1
  2. 20 ifa=1thena=2:load"computecolor",8,1
  3. 30 print"";:poke53280,15:poke53281,15
  4. 40 fori=1to22000:next
  5. 45 print"[147]"
  6. 50 s$="l[207]"+chr$(34)+"mn"+chr$(34)+",8:"+chr$(131)
  7. 60 fori=1tolen(s$):poke630+i,asc(mid$(s$,i)):next:poke198,i
  8. 61 poke53281,14:poke53280,14
  9. 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
  10.