home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1993 October / 1993-10.d64 / diginote (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  463b  |  15 lines
  1. 10 print"[147]":poke53280,6:poke53281,6
  2. 50 a$="[212]his is a self-disolving archive.":gosub500:print
  3. 70 a$="[217]ou'll need to load the program":gosub500
  4. 90 a$="[196][201][199][201]31.[211][196][193]":gosub500:print
  5. 100 a$="and replace the [199]azette [196]isk with":gosub500
  6. 110 a$="a blank one. [215]hen the program is":gosub500
  7. 120 a$="run, it will place the required":gosub500
  8. 130 a$="software on the blank disk - which":gosub500
  9. 140 a$="may then be used to run the program.":gosub500
  10. 200 end
  11. 500 y= (40-len(a$))/2
  12. 510 for x=1 to y:printchr$(32);:next
  13. 520 printa$
  14. 530 return
  15.