home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1992 April / 1992-04.d64 / graphos.boot (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  443b  |  15 lines
  1. 0 clr
  2. 5 poke53280,6:poke53281,6
  3. 10 print"[147]"
  4. 20 a$="[215]hen [199]raphos is loaded and run, it":gosub5000
  5. 30 a$="resides in memory, ready for you to":gosub5000
  6. 40 a$="load and run any one of the several":gosub5000
  7. 45 a$="demonstration programs at the end of":gosub5000
  8. 46 a$="the directory listing.":gosub5000
  9. 50 print"":a$="[208]ress [193]ny [203]ey":gosub5000
  10. 60 get a$:if a$="" then 60
  11. 65 print"":a$="[204]oading...":gosub5000
  12. 70 load"graphos",8
  13. 5000 for x=1 to (40-len(a$))/2:printchr$(32);:next:printa$
  14. 5010 return
  15.