home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 2 #3 / Commodore_Disk_User_Vol.2_3_1989_-_Side_A.d64 / mcode fill (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1989-01-01  |  438 b   |  16 lines
  1. 10 ifa=0thena=a+1:load"fill code",8,1
  2. 20 poke53280,0:poke53281,0:print"[147]screen[160]fill[160]routines"
  3. 30 print"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  4. 40 print"select[160]an[160]option[160]and[160]press[160]the[160]spacebar[160]";
  5. 50 print"after[160]the[160]program[160]has[160]filled[160]the[160]screen."
  6. 60 print"1[160]basic"
  7. 70 print"2[160]machine[160]code"
  8. 80 get a$:ifa$="1"then110
  9. 90 if a$="2"then120
  10. 100 goto80
  11. 110 fora=1024to2023:ifpeek(a)=32thenpokea,42:poke54272+a,7
  12. 115 next:goto130
  13. 120 sys49152
  14. 130 geta$:ifa$<>" "then 130
  15. 140 goto20
  16.