home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 1 #2 / Commodore_Disk_User_Vol.1_2_1988_-.d64 / smoothint (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  885 b   |  32 lines
  1. 10 ifa=0thengosub240
  2. 20 ifa=0thena=1:load"ballcha*",8,1
  3. 30 ifa=1thena=2:load"ball+*",8,1
  4. 40 ifa=2thena=3:load"ballbak*",8,1
  5. 50 ifa=3thena=4:load"ballscr*",8,1
  6. 60 ifa=4thena=5:load"2smoothint",8,1
  7. 70 poke49591,0:poke49823,0:poke50064,0
  8. 80 poke250,254:poke251,64:poke252,140
  9. 90 poke53272,(peek(53272)and240)or2
  10. 100 poke53270,peek(53270)or16
  11. 110 poke53280,6:poke53281,14:poke53282,9:poke53283,8
  12. 120 sys49152
  13. 130 poke53287,1:poke53276,1:poke53286,0:poke53285,15:poke53287,7
  14. 140 poke53269,1
  15. 150 poke53248,160:poke2040,53
  16. 160 fora=210to100step-1:poke53249,a:a=a-.08*(a-100):next
  17. 170 fora=100to223:poke53249,a:a=a+.08*(a-100):next
  18. 180 poke2040,54:poke53248,159:fora=1to75:next
  19. 190 geta$:ifa$<>"[133]"then150
  20. 200 sys51200
  21. 210 poke53272,21:poke53270,200
  22. 220 poke53280,14:poke53281,6
  23. 230 print"[147][154]";:end
  24. 240 print"[147]"tab(15)"bouncer":poke650,128
  25. 250 printtab(14)"[163][163][163][163][163][163][163][163][163]"
  26. 260 print" you can stop this demo by pressing the"
  27. 270 printtab(15)"f1 key"
  28. 280 print"    press it now to start the demo"
  29. 290 geta$:ifa$="[133]"thenreturn
  30. 300 ifa$<>""thenprint"     it's at the top right, dummy[145][145][145]"
  31. 310 goto290
  32.