home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 25 / Tiger_Disk_025_19xx_Tiger-Crew-Disk_de_Side_D.d64 / b.kuehlschr (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  6KB  |  145 lines
  1. 10 code=7*4096:vars=5*4096+6*256
  2. 11 i=0:info=0:ac=peek(36862)-1:gr=peek(code+3)+peek(code+4)*256:gosub1100
  3. 12 gosub1200:b=vars+7+2+((peek(vars+1)-1)*67):x=peek(b+3)and128:k=peek(b+0)
  4. 15 k=k+(peek(b+1)*256):k=k+(peek(b+2)*65536):k=k+((peek(b+3)and127)*16777216)
  5. 18 ifx=128thenk=-k
  6. 19 gosub54000:gosub10000:syscode,19,4,2,3,8,i
  7. 21 syscode,3:poke1024+10*40+4,29:poke1024+10*40+15,27
  8. 22 print"[155][212]yp";i+1;"[157][160]"
  9. 23 print"[201]nfo[203]aufen[214]erkaufen"
  10. 24 syscode,6,3:syscode,3:syscode,4,3,24,3:syscode,7,96,16,16:syscode,6,3:goto300
  11. 45 poke2,0
  12. 50 cl=peek(2):ifcl=0then50
  13. 55 poke2,0:ifcl=99thensyscode,1,"l.einricht",8
  14. 61 ifcl=1then300
  15. 62 ifcl=2then200
  16. 63 ifcl=3then250
  17. 64 ifcl=4then400
  18. 65 ifcl=5then1400
  19. 66 ifcl=6then1500
  20. 140 goto50
  21. 200 ifi>=9then50
  22. 210 i=i+1:syscode,19,4,2,3,8,i:syscode,3:print"[212]yp";i+1;"[157][160]"
  23. 216 syscode,6,3:goto50
  24. 250 ifi<=0then50
  25. 260 i=i-1:syscode,19,4,2,3,8,i:syscode,3:print"[212]yp";i+1;"[157][160]"
  26. 266 syscode,6,3:goto50
  27. 300 info=0:syscode,3:syscode,4,3,24,3:syscode,7,96,16,16:syscode,6,3
  28. 315 syscode,4,3,24,6:syscode,5,i:print""tab(24)"[203]onto:";k:gosub2900
  29. 338 print""tab(24)"[208]reis:";p:syscode,6,3:goto50
  30. 400 ifinfo=0then500
  31. 410 ifinfo=1then600
  32. 420 ifinfo=2then700
  33. 430 ifinfo=3then800
  34. 440 ifinfo=4then900
  35. 450 ifinfo=5then1000
  36. 460 print"[147]error !!!!":end
  37. 500 info=info+1:syscode,3:syscode,4,3,24,3:syscode,7,96,16,16
  38. 503 syscode,6,3:gosub1100:gosub1200:print""tab(24)"[218]ur maximalen"
  39. 511 print""tab(24)"[193]uslastung":print""tab(24)"ben*tigen[160][211]ie:"
  40. 513 print""tab(23)"";ax;"[215]aschmaschinen"
  41. 514 print""tab(23)"";bx;"[197]inrichtungen"
  42. 515 print""tab(23)"";cx;"[211]anit@ranlagen"
  43. 516 print""tab(23)"";dx;"[203]^chen"
  44. 517 print""tab(23)"";ex;"[203]^hlschr@nke"
  45. 518 print""tab(24)"[211]ie[160]besitzen:"
  46. 519 print""tab(23)"";ay;"[215]aschmaschinen"
  47. 520 print""tab(23)"";by;"[197]inrichtungen"
  48. 521 print""tab(23)"";cy;"[211]anit@ranlagen"
  49. 522 print""tab(23)"";dy;"[203]^chen"
  50. 523 print""tab(23)"";ey;"[203]^hlschr@nke":syscode,6,3:goto50
  51. 600 info=info+1:syscode,3:syscode,4,3,24,3:syscode,7,96,16,16:syscode,6,3
  52. 610 print""tab(24)"[215]aschmaschinen:":print""tab(24)"[212]yp[160][160][193]nzahl"
  53. 613 print""tab(24)"-----------":print""tab(24)" 1     0"
  54. 615 print""tab(24)" 2     0":print""tab(24)" 3     0"
  55. 617 print""tab(24)" 4     0":print""tab(24)" 5     0"
  56. 619 print""tab(24)" 6     0":print""tab(24)" 7     0"
  57. 621 print""tab(24)" 8     0":print""tab(24)" 9     0"
  58. 623 print""tab(24)"10     0":gosub1200:print"";:forl=0toaz
  59. 650 print"";:next:print"";ay:syscode,6,3:goto50
  60. 700 info=info+1:syscode,3:syscode,4,3,24,3:syscode,7,96,16,16:syscode,6,3
  61. 710 print""tab(24)"[197]inrichtungen:":print""tab(24)"[212]yp[160][160][193]nzahl"
  62. 713 print""tab(24)"-----------":print""tab(24)" 1     0"
  63. 715 print""tab(24)" 2     0":print""tab(24)" 3     0"
  64. 717 print""tab(24)" 4     0":print""tab(24)" 5     0"
  65. 719 print""tab(24)" 6     0":print""tab(24)" 7     0"
  66. 721 print""tab(24)" 8     0":print""tab(24)" 9     0"
  67. 730 gosub1200:print"";:forl=0tobz:print"";:next
  68. 760 print"";by:syscode,6,3:goto50
  69. 800 info=info+1:syscode,3:syscode,4,3,24,3:syscode,7,96,16,16:syscode,6,3
  70. 810 print""tab(24)"[211]anit@ranlagen:":print""tab(24)"[212]yp[160][160][193]nzahl"
  71. 813 print""tab(24)"-----------":print""tab(24)" 1     0"
  72. 815 print""tab(24)" 2     0":print""tab(24)" 3     0"
  73. 817 print""tab(24)" 4     0":print""tab(24)" 5     0"
  74. 819 print""tab(24)" 6     0":print""tab(24)" 7     0"
  75. 830 gosub1200:print"";:forl=0tocz:print"";:next
  76. 860 print"";cy:syscode,6,3:goto50
  77. 900 info=info+1:syscode,3:syscode,4,3,24,3:syscode,7,96,16,16:syscode,6,3
  78. 910 print""tab(24)"[203]^chen:":print""tab(24)"[212]yp[160][160][193]nzahl"
  79. 913 print""tab(24)"-----------":print""tab(24)" 1     0"
  80. 915 print""tab(24)" 2     0":print""tab(24)" 3     0"
  81. 917 print""tab(24)" 4     0":print""tab(24)" 5     0"
  82. 919 print""tab(24)" 6     0":print""tab(24)" 7     0"
  83. 921 print""tab(24)" 8     0":print""tab(24)" 9     0"
  84. 923 print""tab(24)"10     0":gosub1200:print"";:forl=0todz
  85. 950 print"";:next:print"";dy:syscode,6,3:goto50
  86. 1000 info=0:syscode,3:syscode,4,3,24,3:syscode,7,96,16,16:syscode,6,3
  87. 1010 print""tab(24)"[203]^hlschr@nke:":print""tab(24)"[212]yp[160][160][193]nzahl"
  88. 1013 print""tab(24)"-----------":print""tab(24)" 1     0"
  89. 1015 print""tab(24)" 2     0":print""tab(24)" 3     0"
  90. 1017 print""tab(24)" 4     0":print""tab(24)" 5     0"
  91. 1019 print""tab(24)" 6     0":print""tab(24)" 7     0"
  92. 1021 print""tab(24)" 8     0":print""tab(24)" 9     0"
  93. 1023 print""tab(24)"10     0":gosub1200:print"";:forl=0toez
  94. 1050 print"";:next:print"";ey:syscode,6,3:goto50
  95. 1100 rem
  96. 1110 rt=peek(vars+7+1+(peek(vars+1)-1)*67):rb=vars+7+67*4+6+rt*16:ax=peek(rb+0)
  97. 1150 bx=peek(rb+1):cx=peek(rb+2):dx=peek(rb+3):ex=peek(rb+4):goto10000
  98. 1200 rem
  99. 1210 w=gr+7+ac*31+(peek(vars+2)-1)*31*6:ay=peek(w+5):by=peek(w+6):cy=peek(w+7)
  100. 1250 dy=peek(w+8):ey=peek(w+9):az=peek(w+0):bz=peek(w+1):cz=peek(w+2):dz=peek(w+3)
  101. 1310 ez=peek(w+4):return
  102. 1400 gosub2900:gosub1200:ifey=exthengoto3000
  103. 1410 poke(w+4),i:poke(w+9),ex:k=k-(p*ex):iv=iv+(p*ex):gosub2000:info=0:goto400
  104. 1500 gosub2900:gosub1200:ifey=0thengoto50
  105. 1506 ifez<>ithengoto3100
  106. 1510 poke(w+4),0:poke(w+9),0:k=k+(p*ex):iv=iv-(p*ex):gosub2000:info=0:goto400
  107. 2000 qk=k:b=vars+7+2+((peek(vars+1)-1)*67):x=0:ifk<0thenk=k-k-k:x=128
  108. 2030 poke(b+3),int(k/16777216):k=k-(int(k/16777216)*16777216):poke(b+2),int(k/65536)
  109. 2060 k=k-(int(k/65536)*65536):poke(b+1),int(k/256):k=k-(int(k/256)*256):poke(b+0),k
  110. 2100 poke(b+3),peek(b+3)orx:k=qk:goto55000
  111. 2900 ifi=0thenp=5000
  112. 2901 ifi=1thenp=6000
  113. 2902 ifi=2thenp=10000
  114. 2903 ifi=3thenp=9500
  115. 2904 ifi=4thenp=7500
  116. 2905 ifi=5thenp=9000
  117. 2906 ifi=6thenp=10200
  118. 2907 ifi=7thenp=8000
  119. 2908 ifi=8thenp=6500
  120. 2909 ifi=9thenp=7100
  121. 2910 return
  122. 3000 goto50
  123. 3100 goto50
  124. 10000 w=gr+ac*31+(peek(vars+2)-1)*31*6:yy=peek(w+3)and15:ax=ax*yy:bx=bx*yy
  125. 10040 cx=cx*yy:dx=dx*yy:ex=ex*yy:return
  126. 54000 b=vars+1643+((peek(vars+1)-1)*8)
  127. 54002 x=peek(b+3) and 128
  128. 54003 iv=peek(b+0)
  129. 54004 iv=iv+(peek(b+1)*256)
  130. 54005 iv=iv+(peek(b+2)*65536)
  131. 54006 iv=iv+((peek(b+3) and 127)*16777216)
  132. 54007 if x=128 then iv=-iv
  133. 54010 return
  134. 55000 b=vars+1643+((peek(vars+1)-1)*8)
  135. 55020 x=0:if iv<0then iv=iv-iv-iv:x=128
  136. 55030 poke(b+3),int(iv/16777216)
  137. 55040 iv=iv-(int(iv/16777216)*16777216)
  138. 55050 poke(b+2),int(iv/65536)
  139. 55060 iv=iv-(int(iv/65536)*65536)
  140. 55070 poke(b+1),int(iv/256)
  141. 55080 iv=iv-(int(iv/256)*256)
  142. 55090 poke(b+0),iv
  143. 55100 poke(b+3),peek(b+3) or x
  144. 55200 return
  145.