home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1991 February / 1991-02.d64 / virus.boot (.txt) < prev   
Commodore BASIC  |  2022-09-20  |  209b  |  7 lines
  1. 1 ifa=0 then print"[147]            loading virus 64"
  2. 2 ifa=0 then print"              please wait"
  3. 10 ifa=0 then a=1:load"virus 64",8,1
  4. 20 a$="sys49152"+chr$(13):poke198,len(a$)
  5. 30 fori=1tolen(a$):poke630+i,asc(mid$(a$,i)):next
  6. 40 new
  7.