home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1987 May / 1987-05.d64 / compute! (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  288 b   |  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,15:poke53280,15
  9. 62 print"[145]          [210][197][204][207][193][196][201][206][199] [212][200][197] [205][197][206][213][155]":end
  10.