home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1991 March / 1991-03.d64 / cross.note (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  556b  |  16 lines
  1. 100 print"[147]":poke53280,6:poke53281,6
  2. 110 a$=chr$(34)+"[195]ross-[193]id"+chr$(34)+" sets up a database on":gosub290
  3. 120 a$="disk. [212]herefore, you must copy the":gosub290
  4. 125 a$="program to a separate work disk before":gosub290
  5. 130 a$="using. [208]lease read the documentation":gosub290
  6. 140 a$="in the current [195][207][205][208][213][212][197]'s [199]azette.":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);"gos.menu";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.