home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_89-11_1989_-_de_Side_B.d64 / sp.jump (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  28 lines
  1. 0 plot   = 49152 : line    = pl+3  :      clear  = pl+6  : recht   = pl+9
  2. 1 setup  = pl+12 : show    = pl+15 :      mem    = pl+18 : ellipse = pl+21
  3. 2 test   = pl+24 : invert  = pl+27 :      speich = pl+30 : left    = pl+33
  4. 3 right  = pl+36 : hard    = pl+39 :      up     = pl+42 : down    = pl+45
  5. 4 write  = pl+48 : zmem    = pl+51 :      copy   = pl+54 : w2      = pl+57
  6. 5 ssetup = pl+60 : charset = pl+63 :      laden  = pl+66
  7. 10 dim y(227):poke53280,0:poke53281,0:poke646,5:la=54272+24:fl=1
  8. 20 sys mem,32,32:sys show ,0,0,7,1,0
  9. 25 sys clear:print"[147]":sys ch,8,8,0,0
  10. 26 fori=0to17:print"                 [146]           [146]   ":next
  11. 27 print"////////////////////////////////////////"
  12. 28 sys zmem,53248,1,0
  13. 31 sys re,0,0,95,41,1:sys re,1,1,94,40,1
  14. 34 sys wr,20,18,"[202]umping":f=1:a=8:b=1:xp=0:f1=1:f2=1:xp=25
  15. 36 c=1
  16. 37 fori=atobstep-b
  17. 40 forx=-itoistep.4
  18. 45 iff=1then y(c)=x*x+100-i*i+60
  19. 50 sys se,xp,y(c)
  20. 55 if y(c)=160thengosub280
  21. 60 xp=xp+f1:c=c+f2
  22. 63 if c=0thenc=184
  23. 65 if xp>=248orxp<=24thenf1=-f1:gosub280
  24. 70 next:next
  25. 90 f=0
  26. 100 goto36
  27. 280 pokela,15:pokela,0:sys sh,0,0,7,1,fl-1*sgn(f1):return
  28.