home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1991 January / 1991-01.d64 / bamaid.not.64 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  538b  |  16 lines
  1. 100 print"[147]":poke53280,6:poke53281,6
  2. 110 a$=chr$(34)+"[194][193][205] [193]id"+chr$(34)+" is a set of routines":gosub290
  3. 120 a$="for directory recovery which must be":gosub290
  4. 125 a$="run separately from the [199]azette [205]enu":gosub290
  5. 130 a$="program. [208]lease read the documentation":gosub290
  6. 140 a$="provided on this disk.":gosub290:print
  7. 220 a$="[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]":gosub290
  8. 230 a$=" [208]ress any key to reload menu":gosub290
  9. 240 get a$:if a$="" then 240
  10. 250 print"[147]load";chr$(34);"mn";chr$(34);",8"
  11. 260 print"run"
  12. 270 poke198,4:poke631,19:poke632,13:poke633,13
  13. 280 end
  14. 290 for x=1 to int(20-(len(a$)/2)):printchr$(32);:next
  15. 300 printa$:return
  16.