home *** CD-ROM | disk | FTP | other *** search
/ UpTime Volume 2 #2 / utv2n2s2.d64 / mini-golf (.txt) < prev    next >
Commodore BASIC  |  2022-08-28  |  451b  |  15 lines
  1. 10 ifx=0thensys65418:poke808,234:sys 205*256
  2. 20 ifx=0thenx=1:load"gbits",8,1
  3. 22 ifx=1thenpoke53265,peek(53265)and239:x=2:load"g0400",8,1
  4. 23 ifx=2thenx=3:load"gd800",8,1
  5. 29 ifx=3thenpoke53270,peek(53270)or16:poke53265,59:poke53272,24
  6. 30 ifx=3thenx=4:poke53281,peek(16382):load"gscreens",8,1
  7. 32 ifx=4thenx=5:load"gintro",8,1
  8. 34 ifx=5thenx=6:load"gscore",8,1
  9. 35 ifx=6thenpoke53270,200:poke53265,11:poke53281,6:poke53280,0
  10. 40 ifx=6thenx=7:poke53272,21:load"gsprites",8,1
  11. 50 ifx=7thenx=8:load"gcharset",8,1
  12. 80 ifx=8thenx=9:load"gcode",8,1
  13. 85 poke 53265,27
  14. 90 sys8192
  15.