home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 1 / Tiger_Disk_001_1994-04_Tiger-Crew-Disk_de_Side_B.d64 / ballon (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  847b  |  34 lines
  1. 1 print" [147] ":poke53280,0:poke53281,0
  2. 2 fora=1to100
  3. 3 forx=1to24:poke54272+x,0:next
  4. 4 s=54272
  5. 5 pokes+24,15:pokes+6,240:pokes+4,17
  6. 6 fora=1to30
  7. 7 forx=1to255step25
  8. 8 pokes+1,x:nextx:nexta:pokes+4,32
  9. 10 v=53248 :rem basisadresse des vic
  10. 11 poke v+21,28
  11. 12 poke 2042,13: poke 2043,13: poke 2044,13
  12. 20 forn=0to62:readq:poke832+n,q:next
  13. 25 poke v+23,12: poke v+29,12
  14. 26 fory=1to5
  15. 30 forx=1to255step.5
  16. 40 pokev+4,x:rem neue x-koordinate
  17. 45 poke v+6,x
  18. 48 poke v+8,x
  19. 50 pokev+5,x:rem neue y-koordinate
  20. 55 poke v+7,255-x
  21. 58 poke v+9,100
  22. 60 nextx
  23. 70 restore:nexty:poke53269,0
  24. 75 print"  und nun :  t i g e r - b a s i c !"
  25. 76 print""
  26. 80 print"load";chr$(34);"tiger-basic";chr$(34);",8[145][145][145]"
  27. 90 poke631,13:poke632,82:poke633,85
  28. 100 poke634,78:poke635,13:poke198,5:end
  29. 200 data0,127,0,1,247,192,3,235,224,3,235,224
  30. 210 data7,221,240,7,221,240,7,128,240,3,190,224
  31. 220 data3,127,96,3,255,224,2,255,160,1,127,64
  32. 230 data1,62,64,0,156,128,0,156,128,0,73,0,0,73,0,0
  33. 240 data62,0,0,62,0,0,62,0,0,28,0
  34.