home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1988 September / 1988-09.d64 / pattern.boot (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  573b  |  17 lines
  1. 10 poke 53280,15:poke 53281,15:poke 646,0
  2. 20 print"[147]  pattern fill [146] cannot be run from"
  3. 30 print" the menu. a hi-res picture file must"
  4. 40 print" in memory before this program is"
  5. 50 print" loaded."
  6. 80 print" for more information about this "
  7. 81 print" program refer to the corresponding"
  8. 82 print" issue of compute!'s gazette."
  9. 130 forx=1 to 40:print"[164]";:next
  10. 140 print"        press any key for menu          [146]";
  11. 150 geta$:if a$="" then goto 150
  12. 160 poke 53280,15:poke53281,15
  13. 200 print"[147]";tab(14);"loading menu ..."
  14. 210 print"[155]load";chr$(34);"mn";chr$(34);",8"
  15. 220 print"[155]run"
  16. 240 poke198,8:poke631,19:poke632,13:poke633,13
  17.