home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 25 / Tiger_Disk_025_19xx_Tiger-Crew-Disk_de_Side_C.d64 / b.bank (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  33 lines
  1. 10 code=7*4096:vars=5*4096+6*256
  2. 20 sys code,3:rem clearnorm scn
  3. 30 print"[144][204]etzter[160][203]ontoauszug:"
  4. 31 print"[203]ontostand[160][160]:[160][160][160][160][160][160][160][160][160][160][196][205]"
  5. 32 print"[203]reditrahmen:[160][160][160][160][160][160][160][160][160][160][196][205]"
  6. 33 print"[218]insen[160][160][160][160][160][160]:[160][160][160][160][160][160][160][160][160][160][196][205]"
  7. 34 if peek(vars+1)=1 then print"[211]pieler[160]1"
  8. 35 if peek(vars+1)=2 then print"[211]pieler[160]2"
  9. 36 if peek(vars+1)=3 then print"[211]pieler[160]3"
  10. 37 if peek(vars+1)=4 then print"[211]pieler[160]4"
  11. 40 sys code,6,5
  12. 41 b=vars+7+2+((peek(vars+1)-1)*67)
  13. 42 x=peek(b+3) and 128
  14. 43 k=peek(b+0)
  15. 44 k=k+(peek(b+1)*256)
  16. 45 k=k+(peek(b+2)*65536)
  17. 46 k=k+((peek(b+3) and 127)*16777216)
  18. 47 if x=128 then k=-k
  19. 48 sys code,3:print"[203]ontostand[160][160]:";k:sys code,6,5
  20. 49 sys code,3:print"[218]insen[160][160][160][160][160][160]:";int(k/100*5):sys code,6,5
  21. 51 b=vars+7+6+((peek(vars+1)-1)*67)
  22. 52 x=peek(b+3) and 128
  23. 53 k=peek(b+0)
  24. 54 k=k+(peek(b+1)*256)
  25. 55 k=k+(peek(b+2)*65536)
  26. 56 k=k+((peek(b+3) and 127)*16777216)
  27. 57 if x=128 then k=-k
  28. 58 sys code,3:print"[203]reditrahmen:";k:sys code,6,5
  29. 69 poke 2,255
  30. 70 cl=peek(2):if cl=255 then 70
  31. 75 poke 2,0
  32. 80 z=peek(vars+2):a$="l.city"+str$(z):sys code,1,a$,8
  33.