home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1992 October / 1992-10.d64 / sup.loader (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1992-01-01  |  407 b   |  15 lines
  1. 0 clr
  2. 10 poke53280,6:poke53281,6:print"[147]"
  3. 20 a$="[212]his utility program can potentially":gosub1000
  4. 30 a$="[198][207][210][205][193][212] a disk.":gosub1000
  5. 40 a$="[197]nter a [209] to quit,":gosub1000
  6. 50 a$="any other key to continue.":gosub1000
  7. 60 get a$:if a$="" then 60
  8. 65 if a$="q" or a$="[209]" then goto 500
  9. 70 load"sup",8
  10. 500 print"[147]"
  11. 510 a$="[210]eloading [199]azette [207]perating [211]ystem":gosub1000
  12. 520 load"gos.menu",8
  13. 1000 for x=1 to (20-len(a$)/2):printchr$(32);:next
  14. 1010 printa$:return
  15.