home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 August / 1985-08.d64 / crunch.boot (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  104 b   |  4 lines
  1. 260 ifa=0 then a=1:load"crunch",8,1
  2. 300 a$="[147]sys49152"+chr$(13):poke198,len(a$)
  3. 310 fori=1tolen(a$):poke630+i,asc(mid$(a$,i)):next
  4.