home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 25 / Tiger_Disk_025_19xx_Tiger-Crew-Disk_de_Side_C.d64 / b.kaufen (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  53 lines
  1. 1 code=7*4096:vars=5*4096+6*256:gr=peek(code+3)+peek(code+4)*256
  2. 3 actg=8*4096+15*256+254:syscode,24,1:syscode,3
  3. 45 print"[209]uadratmeter[160][160][160]":print"[203]aufpreis/qm[160][160][160]"
  4. 47 print"[203]aufpreis[160]ges.[160]"
  5. 48 print"[209][205][160][160][160][160][160][160][160][160]"
  6. 49 print"[196][205][160][160][160][160][160][160][160][160]"
  7. 50 print"[196][205][160][160][160][160][160][160][160][160]"
  8. 51 print"[203]aufen[160][160][160][160]"
  9. 52 syscode,6,5:gosub600:syscode,6,5:x=peek(vars+7+5+((peek(vars+1)-1)*67))and128
  10. 62 k=(peek(vars+7+2+((peek(vars+1)-1)*67))*1)
  11. 63 k=k+(peek(vars+7+3+((peek(vars+1)-1)*67))*256)
  12. 64 k=k+(peek(vars+7+4+((peek(vars+1)-1)*67))*65536)
  13. 65 k=k+((peek(vars+7+5+((peek(vars+1)-1)*67))and127)*16777216):ifx=128thenk=-k
  14. 68 gosub4000:poke2,0
  15. 80 cl=peek(2):ifcl=0then80
  16. 90 poke2,0:ifcl=99then 10000
  17. 110 ifcl=1then200
  18. 120 goto80
  19. 200 w=gr+(peek(vars+2)-1)*31*6+peek(actg)*31:x=peek(w+2)and240:ifx=0thengoto500
  20. 230 ifx=peek(vars+1)*16then400
  21. 240 goto80
  22. 400 pokew+2,0:k=k+preis:iv=iv-preis:goto1000
  23. 500 poke(w+2),peek(w+2)orpeek(vars+1)*16:pokew+2,peek(w+2)or1
  24. 530 k=k-preis:iv=iv+preis:goto1000
  25. 600 w=gr+(peek(vars+2)-1)*31*6+peek(actg)*31:x=peek(w+5):gosub680:x=x*10:preis=qm*x
  26. 640 print"[144][209][205]";qm
  27. 650 print"[144][196][205]";x
  28. 660 print"[144][196][205]";preis:return
  29. 680 z=(peek(w+3)and240)/16:ifz=1thenqm=250:return
  30. 682 ifz=2thenqm=500:return
  31. 683 ifz=3thenqm=500:return
  32. 684 ifz=4thenqm=750:return
  33. 685 ifz=5thenqm=750:return
  34. 686 ifz=6thenqm=1000:return
  35. 687 ifz=7thenqm=1250:return
  36. 688 ifz=8thenqm=1250:return
  37. 690 print"[147] error !":syscode,17:end
  38. 1000 z=0:ifk<0thenk=k-k-k:z=1
  39. 1001 b=(vars+7+2+((peek(vars+1)-1)*67)):pokeb+3,int(k/16777216)and127
  40. 1003 k=k-(int(k/16777216)*16777216):pokeb+2,int(k/65536):k=k-(int(k/65536)*65536)
  41. 1006 pokeb+1,int(k/256):k=k-(int(k/256)*256):pokeb+0,k:pokeb+3,peek(b+3)orz*128
  42. 1010 syscode,24,3:gosub5000:goto 10000
  43. 4000 rem
  44. 4001 b=vars+1643+((peek(vars+1)-1)*8):x=peek(b+3)and128:iv=peek(b+0)
  45. 4004 iv=iv+(peek(b+1)*256):iv=iv+(peek(b+2)*65536)
  46. 4006 iv=iv+((peek(b+3)and127)*16777216):ifx=128theniv=-iv
  47. 4010 return
  48. 5000 b=vars+1643+((peek(vars+1)-1)*8):x=0:ifiv<0theniv=iv-iv-iv:x=128
  49. 5030 poke(b+3),int(iv/16777216):iv=iv-(int(iv/16777216)*16777216)
  50. 5050 poke(b+2),int(iv/65536):iv=iv-(int(iv/65536)*65536):poke(b+1),int(iv/256)
  51. 5080 iv=iv-(int(iv/256)*256):poke(b+0),iv:poke(b+3),peek(b+3)orx:return
  52. 10000 z=peek(vars+2):a$="l.city"+str$(z):sys code,1,a$,8
  53.