home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1993 June / 1993-06.d64 / vts.note (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  454b  |  14 lines
  1. 0 clr
  2. 1 poke53280,6:poke53281,6:print"[147]"
  3. 10 a$="[212]he size of the":gosub1000
  4. 20 a$="[214]ideo [212]ape [211]upervisor program":gosub1000
  5. 30 a$="is such that it must be loaded":gosub1000
  6. 40 a$="independently of the [199]azette [205]enu.":gosub1000
  7. 50 a$="[204]oad with:":gosub1000:print
  8. 60 a$="[204][207][193][196] "+chr$(34)+"[214][212][211]"+chr$(34)+",8":gosub1000:print
  9. 70 a$="then [210][213][206].":gosub 1000
  10. 80 print chr$(13):a$="[208]ress [193]ny [203]ey to [210]eturn to [205]enu":gosub1000
  11. 90 get a$:if a$="" then 90
  12. 100 load"menu",8,1
  13. 1000 y=len(a$):for x=1to (20-y/2):printchr$(32);:next:printa$:return
  14.