home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1993 November / 1993-11.d64 / rock.note (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-01-01  |  645 b   |  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 programs:":gosub500:print
  6. 90 a$="[211][213][208][210][207][195][203][198][193][204][204](1 & 2).[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$="[212]he [211][213][208][210][207][195][203][198][193][204][204].[211][196][193] pair are":gosub500
  13. 160 a$="self-dissolving archives.":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.