home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 30 / Tiger_Disk_030_1996-09_Tiger-Crew-Disk_de_Side_B.d64 / huepfball (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  430b  |  13 lines
  1. 10 poke53280,6:poke53281,6:print" space zum beenden"
  2. 20 forr=704to766:reads:poker,s:next
  3. 30 v=53248:poke2040,11:pokev+39,7:pokev+21,1
  4. 40 forx=10to255
  5. 50 y=199-(abs(150*sin(x/20)))
  6. 60 pokev,x:pokev+1,y
  7. 70 nextx
  8. 80 geta$:ifa$<>" "then40
  9. 90 data0,254,0,3,255,128,7,255,192,15,255,224,31,1,240,62,0,248,60,0
  10. 100 data124,120,0,60,243,239,158,240,136,15,240,136,15,240,136,15,112
  11. 110 data136,15,56,143,158,60,0,62,30,0,60,15,0,248,7,193,240,3,255,224
  12. 120 data1,255,192,0,127,0
  13.