home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 1 #2 / Commodore_Disk_User_Vol.1_2_1988_-.d64 / macint (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  654b  |  22 lines
  1. 10 ifa=0thena=1:load"ballch*",8,1
  2. 20 ifa=1thena=2:load"ball+*",8,1
  3. 30 ifa=2thena=3:load"ballsc*",8,1
  4. 40 ifa=3thena=4:load"ballba*",8,1
  5. 50 poke53272,(peek(53272)and240)or2
  6. 60 poke53270,peek(53270)or16
  7. 70 poke53281,14:poke53282,9:poke53283,8
  8. 80 sys49152
  9. 90 p=130:q=p:poke53250,p:poke53251,q:poke2041,52:poke53288,13:poke53277,2
  10. 100 poke53269,2
  11. 110 gosub120:goto110
  12. 120 geta$:ifa$="[145]"thenp=p-2:poke53251,p:ifp<2thenp=255:return
  13. 130 ifa$=""thenp=(p+2)and255:poke53251,p:return
  14. 140 ifa$="[157]"thenq=q-10:gosub170:poke53250,q:poke53264,qq:poke53269,3:return
  15. 150 ifa$=""thenq=(q+10):gosub190:poke53264,qq:poke53250,q:poke53269,3
  16. 160 return
  17. 170 qq=peek(53264):if(q<0andqq)thenqq=0:q=253:poke53269,1:return
  18. 180 if(q<0andqq=0)thenq=90:qq=2:return
  19. 190 qq=peek(53264):if(q>90andqq)thenqq=0:q=0:poke53269,1:return
  20. 200 if(q>255andqq=0)thenq=0:qq=2:poke53269,1
  21. 210 return
  22.