home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 March / 1994-03a.d64 / sec.ad (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1994-01-01  |  315 b   |  14 lines
  1. 0 ifx=1thengoto30
  2. 5 poke53280,6:poke53281,6:poke646,1
  3. 10 print"[147]";chr$(14):dn=peek(186)
  4. 20 x=1:load"sec ad",dn,1
  5. 30 geta$:ifa$=""goto30
  6. 1000 print"[147]          [204]oading [205]enu [208]rogram"
  7. 1001 print"             [208]lease [215]ait..."
  8. 1002 print"new"
  9. 1003 print"load"+chr$(34)+"menu.advert"+chr$(34)+",8"
  10. 1004 print"run"
  11. 1005 poke 630+1,19
  12. 1010 fori=2to4:poke630+i,13:next
  13. 1020 poke198,4
  14.