home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 25 / Tiger_Disk_025_19xx_Tiger-Crew-Disk_de_Side_C.d64 / b.budget (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  42 lines
  1. 10 code=7*4096:vars=5*4096+6*256
  2. 15 sys code,24,1
  3. 20 sys code,3:rem clearnorm scn
  4. 30 print"[215]erbebudget[160][160][160]"
  5. 31 poke 1024+4*40+20,29
  6. 32 poke 1024+4*40+25,27
  7. 33 a=(peek(vars+7+46+((peek(vars+1)-1)*67))*1)
  8. 34 a=a+(peek(vars+7+47+((peek(vars+1)-1)*67))*256)
  9. 35 a=a+(peek(vars+7+48+((peek(vars+1)-1)*67))*65536)
  10. 36 a=a+(peek(vars+7+49+((peek(vars+1)-1)*67))*16777216)
  11. 37 print"[160][160][160][160][160][160][160][160][160]"
  12. 38 print""a
  13. 39 print"[215]eiter"
  14. 40 sys code,6,5
  15. 45 poke 2,0
  16. 50 cl=peek(2):if cl=0 then 50
  17. 55 poke 2,0
  18. 60 if cl=1 then 200
  19. 70 if cl=2 then 300
  20. 80 if cl=3 then gosub 1000 :sys code,1,"l.werbagnt",8
  21. 90 if cl=99 then gosub 1000:z=peek(vars+2):a$="l.city"+str$(z):sys code,1,a$,8
  22. 100 goto 50
  23. 200 a=a+5000
  24. 210 print"[160][160][160][160][160][160][160][160][160]"
  25. 220 print""a
  26. 230 sys code,6,5
  27. 240 goto 50
  28. 300 if a<5000 then 50
  29. 305 a=a-5000
  30. 310 print"[160][160][160][160][160][160][160][160][160]"
  31. 320 print""a
  32. 330 sys code,6,5
  33. 340 goto 50
  34. 1000 poke(vars+7+49+((peek(vars+1)-1)*67)),int(a/16777216)
  35. 1001 a=a-(int(a/16777216)*16777216)
  36. 1002 poke(vars+7+48+((peek(vars+1)-1)*67)),int(a/65536)
  37. 1003 a=a-(int(a/65536)*65536)
  38. 1004 poke(vars+7+47+((peek(vars+1)-1)*67)),int(a/256)
  39. 1005 a=a-(int(a/256)*256)
  40. 1006 poke(vars+7+46+((peek(vars+1)-1)*67)),a
  41. 1100 return
  42.