home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 25 / Tiger_Disk_025_19xx_Tiger-Crew-Disk_de_Side_C.d64 / b.extras (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  88 lines
  1. 10 code=7*4096:vars=5*4096+6*256:poke53281,0:syscode,3:gosub50000
  2. 21 b=vars+7+2+((peek(vars+1)-1)*67):x=peek(b+3)and128:k=peek(b+0)
  3. 24 k=k+(peek(b+1)*256):k=k+(peek(b+2)*65536):k=k+((peek(b+3)and127)*16777216)
  4. 27 ifx=128thenk=-k
  5. 28 syscode,3:print"[144][199]uthaben:[160][196][205][160][160][160][160][160][160][160][160][160][160]":syscode,6,5
  6. 30 print"[144][203]limaanlage[160][160][160][160][160][160][160][160][160][160][160][160][160][206]ein[160][160]"
  7. 31 print"[215]@rmed@mmung[160][160][160][160][160][160][160][160][160][160][160][160][206]ein[160][160]"
  8. 32 print"[211]olardach[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][206]ein[160][160]"
  9. 33 print"[215]@rmeschutzverglasung[160][160][160][206]ein[160][160]"
  10. 34 print"[144]";k
  11. 35 print"[208]reis[160][160][160]:[160][196][205][160][160][160][160][160][160][160][160][160][160]"
  12. 36 print"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
  13. 37 print"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
  14. 38 print"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
  15. 39 print"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]":syscode,6,5
  16. 41 ifpeek(36861)=1thengosub150
  17. 42 ifpeek(36860)=1thengosub250
  18. 43 ifpeek(36859)=1thengosub350
  19. 44 ifpeek(36858)=1thengosub450
  20. 49 poke2,0
  21. 50 cl=peek(2):ifcl=0then50
  22. 51 poke2,0:ifcl=99then 1000
  23. 61 ifcl=5thengosub100
  24. 62 ifcl=6thengosub200
  25. 63 ifcl=7thengosub300
  26. 64 ifcl=8thengosub400
  27. 65 ifcl=1thengosub500
  28. 66 ifcl=2thengosub600
  29. 67 ifcl=3thengosub700
  30. 68 ifcl=4thengosub800
  31. 99 goto50
  32. 100 ifpeek(36861)=0thenpoke36861,1:goto150
  33. 110 poke36861,0:syscode,3:print"[144][160][160][206]ein[160][160]"
  34. 125 syscode,6,5:return
  35. 150 syscode,3:print"[144][160][160][160][202]a[160][160][160]":syscode,6,5:return
  36. 200 ifpeek(36860)=0thenpoke36860,1:goto250
  37. 210 poke36860,0:syscode,3:print"[144][160][160][206]ein[160][160]"
  38. 225 syscode,6,5:return
  39. 250 syscode,3:print"[144][160][160][160][202]a[160][160][160]":syscode,6,5
  40. 280 return
  41. 300 ifpeek(36859)=0thenpoke36859,1:goto350
  42. 310 poke36859,0:syscode,3
  43. 320 print"[144][160][160][206]ein[160][160]":syscode,6,5:return
  44. 350 syscode,3:print"[144][160][160][160][202]a[160][160][160]"
  45. 370 syscode,6,5:return
  46. 400 ifpeek(36858)=0thenpoke36858,1:goto450
  47. 410 poke36858,0:syscode,3
  48. 420 print"[144][160][160][206]ein[160][160]":syscode,6,5:return
  49. 450 syscode,3:print"[144][160][160][160][202]a[160][160][160]"
  50. 470 syscode,6,5:return
  51. 500 syscode,3:print"[208]reis[160][160][160]:[160][196][205][160]5000[160][160][160][160][160]"
  52. 503 print"'[212][207][208][212][197][205][208]-2000'[160]und[160][201]hr"
  53. 504 print"[210]estaurant[160]hat[160]immer[160][160]"
  54. 505 print"die[160][212]op-[212]emperatur...[160]"
  55. 510 syscode,6,5:pokevars+3,1:syscode,18:return
  56. 600 syscode,3:print"[208]reis[160][160][160]:[160][196][205][160]15000[160][160][160][160]"
  57. 603 print"[196]amit[160][201]hnen[160]auch[160]beim[160]"
  58. 604 print"[194]ezahlen[160]der[160][200]eizrech-"
  59. 605 print"nung[160]nicht[160]kalt[160]wird[160]!"
  60. 610 syscode,6,5:pokevars+3,2:syscode,18:return
  61. 700 syscode,3:print"[208]reis[160][160][160]:[160][196][205][160]45000[160][160][160][160]"
  62. 703 print"'[211][207][204][193][210][208][207][215][197][210][160][193][212]3',[160]wozu"
  63. 704 print"eigentlich[160][193][203][215]s[160]?[160][201]hr[160]"
  64. 705 print"[211]trom[160]kommt[160]vom[160][196]ach[160]!"
  65. 710 syscode,6,5:pokevars+3,3:syscode,18:return
  66. 800 syscode,3:print"[208]reis[160][160][160]:[160][196][205][160]25000[160][160][160][160]"
  67. 803 print"[211][212][207][208]![160][210]unter[160]mit[160]den[160][160]"
  68. 804 print"[200]eizungskosten!![160][160][160][160][160][160]"
  69. 805 print"[205]it[160]'[201][211][207][215][193][204][204][160][197]1'[160]![160][160][160][160]"
  70. 810 syscode,6,5:pokevars+3,4:syscode,18:return
  71. 1000 if peek(37887)=0 then poke37886,0:syscode,1,"l.architek*",8
  72. 1005 a=peek(36861)-hr(1)
  73. 1010 ifa=1thenpoke37886,peek(37886)+1
  74. 1015 a=peek(36860)-hr(2)
  75. 1020 ifa=1thenpoke37886,peek(37886)+2
  76. 1025 a=peek(36859)-hr(3)
  77. 1030 ifa=1thenpoke37886,peek(37886)+4
  78. 1035 a=peek(36858)-hr(4)
  79. 1040 ifa=1thenpoke37886,peek(37886)+8
  80. 1100 syscode,1,"l.hauskost*",8
  81. 50000 dim hr(4)
  82. 50010 hr(1)=peek(36861)
  83. 50020 hr(2)=peek(36860)
  84. 50030 hr(3)=peek(36859)
  85. 50040 hr(4)=peek(36858)
  86. 50050 poke 37886,0
  87. 50060 return
  88.