home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 25 / Tiger_Disk_025_19xx_Tiger-Crew-Disk_de_Side_C.d64 / b.city (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  96 lines
  1. 10 code=7*4096:vars=5*4096+6*256:qa=(peek(1024+23*40+26)-48)*10
  2. 14 qa=qa+peek(1024+23*40+27)-48:qr=peek(vars+4):ifqr=1andqa>3then2000
  3. 17 ifqr=2andqa>6then2000
  4. 18 ifqr=3andqa>9then2000
  5. 19 ifqr=4andqa<10then2000
  6. 20 syscode,3:print"[160][160][199]rundst^cke[160][160]"
  7. 31 print"[193]rchitekturb^ro"
  8. 32 print"[160][197]inrichtungen[160]"
  9. 33 print"[160][160][193]rbeitsamt[160][160][160]"
  10. 34 print"[160][160][160][198]ahrzeuge[160][160][160]"
  11. 35 print"[160][160][194]ank[160][160][194]*rse[160][160]"
  12. 36 print"[160][215]erbeagentur[160][160]"
  13. 37 print"[160][160][160][160][194]ahnhof[160][160][160][160]":syscode,6,5
  14. 45 poke2,0
  15. 50 cl=peek(2):ifcl=0then50
  16. 55 poke2,0:ifcl=1thensyscode,1,"l.grundst",8
  17. 70 ifcl=2thensyscode,1,"l.sel.archi",8
  18. 80 ifcl=3thensyscode,1,"l.sel.einr",8
  19. 90 ifcl=4thensyscode,1,"l.sel.anstell",8
  20. 100 ifcl=5thensyscode,1,"l.sel.fahr",8
  21. 110 ifcl=6thensyscode,1,"l.portal",8
  22. 120 ifcl=7thensyscode,1,"l.budget",8
  23. 130 ifcl=8thensyscode,1,"l.bahnhof",8
  24. 133 ifcl=96then1000
  25. 135 ifcl=97thensyscode,25,2:syscode,1,"l.statist",8
  26. 140 ifcl=98then300
  27. 150 goto50
  28. 300 x=0:poke2,255:syscode,3:poke1024+24*40+39,96
  29. 302 print"[215]ollen[160][211]ie[160]die[160][210]unde[160]wirklich[160]beenden[160]?[160]";
  30. 303 print"([202]a/[206]ein)[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]";
  31. 304 syscode,6,5
  32. 305 getb$:ifb$="j"then400
  33. 307 ifb$="n"then310
  34. 308 x=x+1:ifx<300then305
  35. 310 print"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]";
  36. 311 print"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]";
  37. 312 poke1024+24*40+39,96:syscode,6,5:syscode,15:goto45
  38. 400 gosub5000:syscode,25,2:syscode,1,"l.events",8
  39. 1000 x=0:poke2,255:syscode,3:poke1024+24*40+39,96
  40. 1002 print"[213]m[160]einen[160][211]pielstand[160]zu[160][204]aden/[211]aven[160][160][160][160][160][160]";
  41. 1003 print"dr^cken[160][211]ie[160][204][160]oder[160][211][160]....[160][198]euer=zur^ck[160]";
  42. 1004 syscode,6,5:poke2,255
  43. 1005 getb$:ifb$="l"then1100
  44. 1007 ifb$="s"then1200
  45. 1008 ifpeek(2)<>255then1011
  46. 1009 x=x+1:goto1005
  47. 1011 print"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]";
  48. 1012 print"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]";
  49. 1013 poke1024+24*40+39,96:syscode,6,5:syscode,15:goto45
  50. 1100 x=0:poke2,255:syscode,3:poke1024+24*40+39,96
  51. 1102 print"[204]egen[160][211]ie[160][201]hre[160][211]pielstand[160][196]iskette[160]ein[160][160]";
  52. 1103 print"und[160]dr^cken[160][211]ie[160][198]euer[160]![160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]";
  53. 1104 syscode,6,5:poke2,255
  54. 1105 getb$:ifpeek(2)<>255then1150
  55. 1109 x=x+1:goto1105
  56. 1111 print"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]";
  57. 1112 print"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]";
  58. 1113 poke1024+24*40+39,96:syscode,6,5:syscode,15:goto45
  59. 1150 syscode,9:sys5*4096+5*256+3:syscode,3:syscode,10:goto1300
  60. 1200 x=0:poke2,255:syscode,3:poke1024+24*40+39,96
  61. 1202 print"[204]egen[160][211]ie[160]eine[160]leere[160][196]iskette[160]ein[160][160][160][160][160][160][160]";
  62. 1203 print"und[160]dr^cken[160][211]ie[160][198]euer[160]![160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]";
  63. 1204 syscode,6,5:poke2,255
  64. 1205 getb$:ifpeek(2)<>255then1250
  65. 1209 x=x+1:goto1205
  66. 1211 print"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]";
  67. 1212 print"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]";
  68. 1213 poke1024+24*40+39,96:syscode,6,5:syscode,15:goto45
  69. 1250 syscode,9:sys5*4096+5*256:syscode,3:syscode,10
  70. 1258 print"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]";
  71. 1259 print"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]";
  72. 1260 poke1024+24*40+39,96:syscode,6,5:syscode,15
  73. 1300 x=0:poke2,255:syscode,3:poke1024+24*40+39,96
  74. 1302 print"[204]egen[160][211]ie[160][201]hre[160][197]nergiemanager[160][196]isk[160]ein[160][160]";
  75. 1303 print"und[160]dr^cken[160][211]ie[160][198]euer[160]![160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]";
  76. 1304 syscode,6,5:poke2,255
  77. 1305 rem
  78. 1308 ifpeek(2)<>255then1350
  79. 1309 x=x+1:goto1305
  80. 1350 z=peek(vars+2):a$="l.city"+str$(z):syscode,1,a$,8:goto1111
  81. 2000 x=0:poke2,255:syscode,3:poke1024+24*40+39,96
  82. 2002 print"[196]as[160]aktuelle[160][209]uartal[160]ist[160]abgelaufen[160]![160][160][160]";
  83. 2003 print"[201]hre[160][210]unde[160]wird[160]beendet[160]![160][160][160][160][160][160][160][160][160][160][160][160][160][160]";
  84. 2004 syscode,6,5:poke2,255
  85. 2005 rem
  86. 2008 ifpeek(2)<>255then2050
  87. 2009 x=x+1:goto2005
  88. 2050 syscode,25,2:syscode,1,"l.events",8
  89. 5000 code=7*4096:gb=peek(code+3)+peek(code+4)*256:db=gb-4*18
  90. 5025 db=db+(peek(vars+1)-1)*18:poke(db+1),48:poke(db+2),49:qr=peek(vars+4)
  91. 5060 ifqr=1thenpoke(db+4),48:poke(db+5),48+4
  92. 5070 ifqr=2thenpoke(db+4),48:poke(db+5),48+7
  93. 5080 ifqr=3thenpoke(db+4),48+1:poke(db+5),48
  94. 5090 ifqr=4thenpoke(db+4),48:poke(db+5),49
  95. 5100 return
  96.