home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1993 December / 1993-12.d64 / rebellion.note (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  624b  |  19 lines
  1. 10 print"[147]":poke53280,6:poke53281,6
  2. 50 a$="[196]ue to the size of this program,":gosub500
  3. 60 a$="and limitations to available space":gosub500
  4. 70 a$="on the [199]azette [196]isk, you'll need to":gosub500
  5. 80 a$="load the program:":gosub500:print
  6. 90 a$="[210][197][194][197][204][204][201][207][206].[211][196][193]":gosub500:print
  7. 100 a$="and replace the [199]azette [196]isk with":gosub500
  8. 110 a$="a blank one. [215]hen the program is":gosub500
  9. 120 a$="run, it will place the required":gosub500
  10. 130 a$="software on the blank disk - which":gosub500
  11. 140 a$="may then be used to run the program.":gosub500
  12. 150 print:a$="[210][197][194][197][204][204][201][207][206].[211][196][193] is a":gosub500
  13. 160 a$="self-dissolving archive.":gosub500
  14. 200 end
  15. 500 y= (40-len(a$))/2
  16. 510 for x=1 to y:printchr$(32);:next
  17. 520 printa$
  18. 530 return
  19.