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 >
Wrap
Commodore BASIC
|
2022-10-26
|
885b
|
32 lines
10 ifa=0thengosub240
20 ifa=0thena=1:load"ballcha*",8,1
30 ifa=1thena=2:load"ball+*",8,1
40 ifa=2thena=3:load"ballbak*",8,1
50 ifa=3thena=4:load"ballscr*",8,1
60 ifa=4thena=5:load"2smoothint",8,1
70 poke49591,0:poke49823,0:poke50064,0
80 poke250,254:poke251,64:poke252,140
90 poke53272,(peek(53272)and240)or2
100 poke53270,peek(53270)or16
110 poke53280,6:poke53281,14:poke53282,9:poke53283,8
120 sys49152
130 poke53287,1:poke53276,1:poke53286,0:poke53285,15:poke53287,7
140 poke53269,1
150 poke53248,160:poke2040,53
160 fora=210to100step-1:poke53249,a:a=a-.08*(a-100):next
170 fora=100to223:poke53249,a:a=a+.08*(a-100):next
180 poke2040,54:poke53248,159:fora=1to75:next
190 geta$:ifa$<>"[133]"then150
200 sys51200
210 poke53272,21:poke53270,200
220 poke53280,14:poke53281,6
230 print"[147][154]";:end
240 print"[147]"tab(15)"bouncer":poke650,128
250 printtab(14)"[163][163][163][163][163][163][163][163][163]"
260 print" you can stop this demo by pressing the"
270 printtab(15)"f1 key"
280 print" press it now to start the demo"
290 geta$:ifa$="[133]"thenreturn
300 ifa$<>""thenprint" it's at the top right, dummy[145][145][145]"
310 goto290