home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_22_(10-1984).d64 / compute! (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  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]RELOADING MENU PROGRAM[154]":END
  10.