home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_89-11_1989_-_de_Side_B.d64 / sp.joystick (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  735b  |  19 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 sys mem,32,32:sys cl
  8. 20 sys sh,0,0,0,1,0
  9. 30 sys re,0,0,95,41,1
  10. 40 j=56323:j1=56321:x=100:y=100
  11. 50 pokej,peek(j)and224
  12. 60 w=peek(j1)
  13. 70 if (w and1)=0theny=y-1:ify<0theny=255
  14. 80 if (w and2)=0theny=y+1:ify>255theny=0
  15. 90 if (w and4)=0thenx=x-1:ifx<0thenx=320
  16. 100 if (w and8)=0thenx=x+1:ifx>320thenx=0
  17. 105 if (w and16)=0thensys in
  18. 110 sys se,x,y:goto60
  19.