home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1984 June / 1984-06.d64 / compute! (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1984-01-01  |  270 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,14:poke53280,14
  9. 62 print"[145]reloading menu program[154]":end
  10.