home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8507b.d64 / wahlhochrechnung (.txt) < prev   
Commodore BASIC  |  1995-03-30  |  14KB  |  484 lines
  1. 10 REM ********************************
  2. 15 REM *                              *
  3. 20 REM *       WAHLHOCHRECHNUNG       *
  4. 25 REM *                              *
  5. 30 REM *  FUER C-64/FLOPPY/(DRUCKER)  *
  6. 35 REM *                              *
  7. 40 REM *  B. FIETHE TEL.0533173648    *
  8. 45 REM *                              *
  9. 50 REM ********************************
  10. 60 REM --- STEUERZEICHEN ---
  11. 61 REM "" = CRSR DOWN
  12. 62 REM "[145]" = CRSR UP
  13. 63 REM "[157]" = CRSR LEFT
  14. 64 REM "[147]" = CLR
  15. 65 REM "" = HOME
  16. 66 REM "" = RVS ON
  17. 67 REM "[146]" = RVS OFF
  18. 68 REM "" = CTRL 2
  19. 69 REM "" = CTRL 3
  20. 70 REM "" = CTRL 6
  21. 71 REM "" = CTRL 7
  22. 72 REM "[129]" = C= 1
  23. 73 REM "[151]" = C= 4
  24. 74 REM ---------------------
  25. 100 REM --- GRAFIKERWEITERUNG LADEN ---
  26. 110 IFA=0THENA=1:LOAD"GRAFIK-E/MS",8,1
  27. 120 REM --- DRUCKERSPEZIFISCHES PROGRAMM        IM BEREICH $C700-$CB00
  28. 130 REM ZUM AUSDRUCK DES HRG-BILDSCHIRMS        WIRD GELADEN ---
  29. 140 IFA=1THENA=2:LOAD"DCOPY",8,1
  30. 150 SYS49152:REM --- ERWEITERUNG STARTEN
  31. 160 DIMAS$(50),AS(50),CD(50),CD$(50),SP(50),SP$(50),GR(50),GR$(50),AN(50)
  32. 170 DIMAN$(50),ZE$(50),SU(50),SD(50),SF(50),SA(50),SE(50),FD$(50),FD(50)
  33. 180 I=0:OPEN15,8,15
  34. 190 POKE53280,0:POKE53281,0:PRINT"[147][129]   W A H L H O C H R E C H N U N G"
  35. 200 PRINT"   ==============================="
  36. 210 PRINT:PRINT"BEDIENUNGSANLEITUNG:[146]"
  37. 220 PRINT:PRINT"-AUSWERTUNG: [151]ABGESPEICHERTE HOCHRECHNUN-";
  38. 230 PRINT"   GEN KOENNEN WIEDER EINGELESEN WERDEN.";
  39. 240 PRINT"-EINGABE DER ALTEN WAHLERGEBNISSE."
  40. 250 PRINT"-AUSWAHL UND UHRZEIT: [129]"
  41. 260 PRINT"   <H>=[151]EINGABE EINER HOCHRECHNUNG"
  42. 270 PRINT"       (AUCH STELLE NACH . AUSFUELLEN!)
  43. 280 [153]"       (WENN SITZVERTEILUNG NICH EIGEGE-";
  44. 290 [153]"       BEN WIRD, ERRECHNET COMPUTER SIE)";
  45. 300 [153]"FOR   <E>=POKEEINGABE DES ENDERGEBNISSES"
  46. 310 [153]"        (DANACH WERDEN ALLE EINGEGEBENEN"
  47. 320 [153]"ON         WERTE ABGESPEICHERT!)
  48. 330 PRINT"        (WENN NOCH NICHT VORLIEGT, BEI"
  49. 340 PRINT"         CDU 0.0 % EINGEBEN)
  50. 350 [153]"FOR   <G>=POKEAUSWAEHLEN AUS EINGEGEBENEN"
  51. 360 [153]"       HOCHRECHNUNGEN."
  52. 370 [153]"       (IMMER ZWEISTELLIGE ZAHL EINGEBEN";
  53. 380 [153]"        Z.B. 01)"
  54. 390 [153]"-COMPUTERHOCHRECHNUNGEN: POKENACH JEDER"
  55. 400 [153]"   EINGABE ERRECHNET COMPUTER MITTELWERT";
  56. 410 [153]"                  TASTEONONWAIT"
  57. 420 [151]198,0:[146]198,1
  58. 430 [153]"LOAD":[151]198,0
  59. 440 [160]1:[133]"  AUSWERTUNG (J/N) ";GG$
  60. 450 [139]GG$[178]"N"[167]740
  61. 460 [153]"LOAD":[139]DG[178]0[167][141]4330
  62. 470 [153]:[153]"WELCHE HOCHRECHNUNG ?"
  63. 480 [153]:[153]:[153]" 00)             ALTES ERGEBNIS"
  64. 490 [129]G[178]1[164]I:G$[178][196](G):[139]G[179]10[167]G$[178]" 0"[170][201](G$,1)
  65. 500 [153]"POKE"G$") "ZE$(G)"    "AS(G)"CMD.   "AS$(G)
  66. 510 [139]G[173]10[178][181](G[173]10)[167][151]198,0:[146]198,1:[161]G$(1):[139]G$(1)[179][177]" "[167][146]198,1:[161]G$(2):[137]540
  67. 520 [130]G
  68. 530 [151]198,0:[146]198,2:[161]G$(1),G$(2)
  69. 540 TT[178]I:I[178][197](G$(1)[170]G$(2))
  70. 550 ZE$[178]ZE$(I):AS[178]AS(I):AS$[178]AS$(I):HO$[178][196](AS)[170]". HOCHRECHNUNG"
  71. 560 [139]I[178]0[167]HO$[178]"ALTES ERGEBNIS"
  72. 570 [139]CD$(I)[178]"*"[167]I[178]I[171]1:[137]3280
  73. 580 [153]"LOAD"
  74. 590 [153]"      GRAFIKEN:"
  75. 600 [153]:[153]:[153]"     F1WAIT = SITZE"
  76. 610 [153]:[153]"     F3WAIT = GEWINN/VERLUST"
  77. 620 [153]:[153]"     F5WAIT = PROZENT"
  78. 630 [153]:[153]"     F7WAIT = WEITER"
  79. 640 [153]:[153]"     F8WAIT = ENDE"
  80. 650 [161]IN$:[139]IN$[178]""[167]650
  81. 660 [139]IN$[178][199](140)[167][139]GG$[178]"J"[167]:_E:[160]15:[128]
  82. 670 [139]IN$[178][199](133)[167][141]1540
  83. 680 [139]IN$[178][199](134)[167][141]2030
  84. 690 [139]IN$[178][199](135)[167][141]2630
  85. 700 [139]IN$[178][199](136)[167]720
  86. 710 [137]580
  87. 720 I[178]TT:[139]GG$[178]"J"[167]460
  88. 730 [137]1090
  89. 740 [133]"LOAD     WAHLNAME (<16):";WA$:[139][195](WA$)[177]15[167]740
  90. 750 [153]"LOADPOKE"
  91. 760 [153]"MOMENTANE UHRZEIT EINGEBEN (HHMMSS):":[153]
  92. 770 [133]A$:[139][195](A$)[179][177]6[167]750
  93. 780 C[178]56328
  94. 790 [151]C[170]7,[194](C[170]7)[175]127
  95. 800 [151]C[170]6,[194](C[170]6)[176]128
  96. 810 H[178][197]([200](A$,2))
  97. 820 M[178][197]([202](A$,3,2))
  98. 830 S[178][197]([201](A$,2))
  99. 840 [139]H[177]23[167]750
  100. 850 [139]H[178]12[167]870
  101. 860 [139]H[177]11[167]H[178]H[170]68
  102. 870 [151]C[170]3,16[172][181](H[173]10)[170]H[171][181](H[173]10)[172]10
  103. 880 [139]M[177]59[167]750
  104. 890 [151]C[170]2,16[172][181](M[173]10)[170]M[171][181](M[173]10)[172]10
  105. 900 [139]S[177]59[167]750
  106. 910 [151]C[170]1,16[172][181](S[173]10)[170]S[171][181](S[173]10)[172]10
  107. 920 [151]C,0
  108. 930 [133]"   JAHR EINGEBEN:  19  CMDCMDCMDCMDCMDCMD";JA$:JA$[178][201](JA$,2)
  109. 940 [153]"LOAD"
  110. 950 [143] --- ALTES ERGEBNIS ---
  111. 960 EI[178]1:[141] 3070
  112. 970 [153]"   LETZTES WAHLERGEBNIS"
  113. 980 [153]:[153]:[153]"   "WA$
  114. 990 [133]"FOR   VON (JAHR):  19  CMDCMDCMDCMDCMDCMD";DA$:DA$[178][201](DA$,2)
  115. 1000 ZE$(0)[178]DA$:AS(0)[178]0:AS$(0)[178]"ALT"
  116. 1010 [153]:[133]"  CDU=   0.0 %CMDCMDCMDCMDCMDCMDCMDCMD";CD$(0):CD(0)[178][197](CD$(0))
  117. 1020 [153]:[133]"  SPD=   0.0 %CMDCMDCMDCMDCMDCMDCMDCMD";SP$(0):SP(0)[178][197](SP$(0))
  118. 1030 [153]:[133]"FOR  FDP=   0.0 %CMDCMDCMDCMDCMDCMDCMDCMD";FD$(0):FD(0)[178][197](FD$(0))
  119. 1040 [133]"  GRUENE=   0.0 %CMDCMDCMDCMDCMDCMDCMDCMD";GR$(0):GR(0)[178][197](GR$(0))
  120. 1050 [133]"  ANDERE=   0.0 %CMDCMDCMDCMDCMDCMDCMDCMD";AN$(0):AN(0)[178][197](AN$(0))
  121. 1060 BF[178]CD(0)[170]SP(0)[170]FD(0)[170]GR(0)[170]AN(0):[139]BF[179]99[176]BF[177]101[167]950
  122. 1070 [153]:[153]:[133]"  ALTE SITZVERTEILUNG (J/N)";SV$:[139]SV$[178]"J"[167][141]3680
  123. 1080 [143] --- EINGABE HOCHRECHNUNG ---
  124. 1090 [141]3070
  125. 1100 [139]G$[178]"E"[167]3280
  126. 1110 I[178]I[170]1:[153]"LOAD":DG[178]1
  127. 1120 [153]"     F1WAIT = ARD"
  128. 1130 [153]:[153]"     F3WAIT = ZDF"
  129. 1140 [161]IN$:[139]IN$[178]""[167]1140
  130. 1150 [139]IN$[178][199](134)[167]AS$[178]"ZDF":AS[178]ZD[170]1:ZD[178]AS:[137]1180
  131. 1160 [139]IN$[178][199](133)[167]AS$[178]"ARD":AS[178]AR[170]1:AR[178]AS:[137]1180
  132. 1170 [137]1140
  133. 1180 HO$[178][196](AS)[170]". HOCHRECHNUNG"
  134. 1190 [153]"LOAD   "HO$"   "AS$
  135. 1200 [153]:[153]"   "WA$
  136. 1210 [153]:[153]"    POKE"ZE$
  137. 1220 [133]"  CDU=   0.0 %CMDCMDCMDCMDCMDCMDCMDCMD";CD$(I):CD(I)[178][197](CD$(I))
  138. 1230 [153]:[133]"  SPD=   0.0 %CMDCMDCMDCMDCMDCMDCMDCMD";SP$(I):SP(I)[178][197](SP$(I))
  139. 1240 [153]:[133]"FOR  FDP=   0.0 %CMDCMDCMDCMDCMDCMDCMDCMD";FD$(I):FD(I)[178][197](FD$(I))
  140. 1250 [133]"  GRUENE=   0.0 %CMDCMDCMDCMDCMDCMDCMDCMD";GR$(I):GR(I)[178][197](GR$(I))
  141. 1260 [133]"  ANDERE=   0.0 %CMDCMDCMDCMDCMDCMDCMDCMD";AN$(I):AN(I)[178][197](AN$(I))
  142. 1270 [153]:[153]:[133]"   SITZVERTEILUNG EINGEBEN (J/N)";G$
  143. 1280 [139]G$[178]"J"[167][141]1430:[137]1300
  144. 1290 [141]3800
  145. 1300 AS(I)[178]AS:AS$(I)[178]AS$:ZE$(I)[178]ZE$:[141]4070
  146. 1310 [153]"LOAD   GRAFIKEN"
  147. 1320 [153]:[153]:[153]"   F1WAIT = SITZE"
  148. 1330 [153]:[153]"   F3WAIT = GEWINN/VERLUST"
  149. 1340 [153]:[153]"   F5WAIT = PROZENT"
  150. 1350 [153]:[153]"   F7WAIT = WEITER"
  151. 1360 [161]IN$:[139]IN$[178]""[167]1360
  152. 1370 IN[178][198](IN$)[171]132:[139]IN[179]1[176]IN[177]4[167]1360
  153. 1380 [145]IN[141]1530,2020,2620,1400
  154. 1390 [137]1310
  155. 1400 [139]CD(I[170]1)[177]0[167]I[178]I[170]1
  156. 1410 [137]1090
  157. 1420 [143] --- EINGABE SITZE ---
  158. 1430 [153]"LOAD"
  159. 1440 [153]:[153]:[153]"   "HO$"   "AS$
  160. 1450 [153]:[153]"   "WA$
  161. 1460 [153]:[153]:[153]"   S I T Z E"
  162. 1470 [153]:[153]:[133]"  CDU:";SU(I)
  163. 1480 [153]:[133]"  SPD:";SD(I)
  164. 1490 [153]:[133]"FOR  FDP:";SF(I)
  165. 1500 [153]:[133]"  GRUENE:";SE(I)
  166. 1510 [153]:[133]"  ANDERE:";SA(I)
  167. 1520 [142]
  168. 1530 [143] --- GRAFIK SITZE ---
  169. 1540 [139]SG[178]0[167]2000
  170. 1550 _G0:_C
  171. 1560 _P270,2,2,2;15[200](AS$,3)
  172. 1570 _P100,3HO$:_P110,12WA$
  173. 1580 _P1,48JA$
  174. 1590 _P1,59"S"
  175. 1600 _P1,67"I"
  176. 1610 _P1,75"T"
  177. 1620 _P1,83"Z"
  178. 1630 _P1,91"E"
  179. 1640 [129]T[178]184[164]186:_L20,T[164]320,T:[130]T:_P1,181" 0"
  180. 1650 _L23,105[164]320,105:_P1,101[201]([196]([181](SG[173]2)),3)
  181. 1660 _P22,30,2,2;6"CDU"
  182. 1670 _P21,48CD$(I)
  183. 1680 SQ[178]160[173]SG
  184. 1690 [129]T[178]185[164]185[171][181](SQ[172]SU(I))[169][171]1:_L25,T[164]55,T:[130]T
  185. 1700 _P22,60[196](SU(I))
  186. 1710 SU$[178][200]([196](SU(I)[171]SU(0)),3):[139][197](SU$)[177]0[167]SU$[178]"+"[170][202](SU$,2,2)
  187. 1720 _P22,70SU$
  188. 1730 _P5,2,1,2;2ZE$(I)
  189. 1740 _P80,30,2,2"SPD"
  190. 1750 _P80,48SP$(I)
  191. 1760 [129]T[178]185[164]185[171][181](SQ[172]SD(I))[169][171]1:_L80,T[164]110,T:[130]T
  192. 1770 _P80,60[196](SD(I))
  193. 1780 SD$[178][200]([196](SD(I)[171]SD(0)),3):[139][197](SD$)[177]0[167]SD$[178]"+"[170][202](SD$,2,2)
  194. 1790 _P80,70SD$
  195. 1800 _P140,30,2,2;8"FDP"
  196. 1810 _P144,48FD$(I)
  197. 1820 [129]T[178]185[164]185[171][181](SQ[172]SF(I))[169][171]1:_L140,T[164]170,T:[130]T
  198. 1830 _P144,60[196](SF(I))
  199. 1840 SF$[178][200]([196](SF(I)[171]SF(0)),3):[139][197](SF$)[177]0[167]SF$[178]"+"[170][202](SF$,2,2)
  200. 1850 _P144,70SF$
  201. 1860 _P200,30,1,2;5"GRUENE"
  202. 1870 _P206,48GR$(I)
  203. 1880 [129]T[178]185[164]185[171][181](SQ[172]SE(I))[169][171]1:_L200,T[164]230,T:[130]T
  204. 1890 _P206,60[196](SE(I))
  205. 1900 SE$[178][200]([196](SE(I)[171]SE(0)),3):[139][197](SE$)[177]0[167]SE$[178]"+"[170][202](SE$,2,2)
  206. 1910 _P206,70SE$
  207. 1920 _P266,30,1,2;1"ANDERE"
  208. 1930 _P272,48AN$(I)
  209. 1940 [129]T[178]185[164]185[171][181](SQ[172]SA(I))[169][171]1:_L266,T[164]296,T:[130]T
  210. 1950 _P272,60[196](SA(I))
  211. 1960 SA$[178][200]([196](SA(I)[171]SA(0)),3):[139][197](SA$)[177]0[167]SA$[178]"+"[170][202](SA$,2,2)
  212. 1970 _P272,70SA$
  213. 1980 _P10,192;15"WEITER MIT TASTE (A=AUSDRUCK)"
  214. 1990 [161]A$:[139]A$[178]""[167]1990
  215. 2000 [139]A$[178]"A"[167][141]4650:[137]1990
  216. 2010 _T:[142]
  217. 2020 [143] --- GRAFIK GEWINN/VERLUST ---
  218. 2030 _G0:_C
  219. 2040 _P270,2,2,2;15[200](AS$,3)
  220. 2050 _P100,3HO$:_P110,12WA$
  221. 2060 _P1,48DA$
  222. 2070 _P1,60JA$
  223. 2080 [129]T[178]149[164]151:_L10,T[164]320,T:[130]T
  224. 2090 _P10,75"GEWINN + VERLUST (%PUNKTE)"
  225. 2100 _P21,48;14CD$(0)
  226. 2110 _P22,30,2,2;6"CDU"
  227. 2120 _P21,60CD$(I)
  228. 2130 VV[178]0:VC[178]CD(I)[171]CD(0):VS[178]SP(I)[171]SP(0):VF[178]FD(I)[171]FD(0)
  229. 2140 VG[178]GR(I)[171]GR(0):VA[178]AN(I)[171]AN(0):VV[178][182](VC)
  230. 2150 [139][182](VS)[177]VV[167]VV[178][182](VS)
  231. 2160 [139][182](VF)[177]VV[167]VV[178][182](VF)
  232. 2170 [139][182](VG)[177]VV[167]VV[178][182](VG)
  233. 2180 [139][182](VA)[177]VV[167]VV[178][182](VA)
  234. 2190 [139]VV[179][177]0[167]VV[178]35[173]VV
  235. 2200 CC[178][171]1:[139]VC[179]0[167]CC[178]1
  236. 2210 [129]T[178]150[164]150[171][181](VV[172]VC)[169]CC:_L24,T[164]55,T:[130]T
  237. 2220 VC$[178][200]([196](VC),4):[139]VC[179]1[175]VC[177][171]1[167]VC$[178][200](VC$,1)[170]"0"[170][202](VC$,2,2)
  238. 2230 [139]VC[177]0[167]VC$[178]"+"[170][201](VC$,3)
  239. 2240 _P25,90VC$
  240. 2250 _P80,48;10SP$(0)
  241. 2260 _P5,2,1,2;2ZE$(I)
  242. 2270 _P80,30,2,2"SPD"
  243. 2280 _P80,60SP$(I)
  244. 2290 CC[178][171]1:[139]VS[179]0[167]CC[178]1
  245. 2300 [129]T[178]150[164]150[171][181](VV[172]VS)[169]CC:_L88,T[164]119,T:[130]T
  246. 2310 VS$[178][200]([196](VS),4):[139]VS[179]1[175]VS[177][171]1[167]VS$[178][200](VS$,1)[170]"0"[170][202](VS$,2,2)
  247. 2320 [139]VS[177]0[167]VS$[178]"+"[170][201](VS$,3)
  248. 2330 _P85,90VS$
  249. 2340 _P144,48;7FD$(0)
  250. 2350 _P140,30,2,2;8"FDP"
  251. 2360 _P144,60FD$(I)
  252. 2370 CC[178][171]1:[139]VF[179]0[167]CC[178]1
  253. 2380 [129]T[178]150[164]150[171][181](VV[172]VF)[169]CC:_L145,T[164]175,T:[130]T
  254. 2390 VF$[178][200]([196](VF),4):[139]VF[179]1[175]VF[177][171]1[167]VF$[178][200](VF$,1)[170]"0"[170][202](VF$,2,2)
  255. 2400 [139]VF[177]0[167]VF$[178]"+"[170][201](VF$,3)
  256. 2410 _P145,90VF$
  257. 2420 _P206,48;13GR$(0)
  258. 2430 _P200,30,1,2;5"GRUENE"
  259. 2440 _P206,60GR$(I)
  260. 2450 CC[178][171]1:[139]VG[179]0[167]CC[178]1
  261. 2460 [129]T[178]150[164]150[171][181](VV[172]VG)[169]CC:_L208,T[164]238,T:[130]T
  262. 2470 VG$[178][200]([196](VG),4):[139]VG[179]1[175]VG[177][171]1[167]VG$[178][200](VG$,1)[170]"0"[170][202](VG$,2,2)
  263. 2480 [139]VG[177]0[167]VG$[178]"+"[170][201](VG$,3)
  264. 2490 _P205,90VG$
  265. 2500 _P272,48;12AN$(0)
  266. 2510 _P266,30,1,2;1"ANDERE"
  267. 2520 _P272,60AN$(I)
  268. 2530 CC[178][171]1:[139]VA[179]0[167]CC[178]1
  269. 2540 [129]T[178]150[164]150[171][181](VV[172]VA)[169]CC:_L272,T[164]302,T:[130]T
  270. 2550 VA$[178][200]([196](VA),4):[139]VA[179]1[175]VA[177][171]1[167]VA$[178][200](VA$,1)[170]"0"[170][202](VA$,2,2)
  271. 2560 [139]VA[177]0[167]VA$[178]"+"[170][201](VA$,3)
  272. 2570 _P275,90VA$
  273. 2580 _P10,192;15"WEITER MIT TASTE (A=AUSDRUCK)"
  274. 2590 [161]A$:[139]A$[178]""[167]2590
  275. 2600 [139]A$[178]"A"[167][141]4650:[137]2590
  276. 2610 _T:[142]
  277. 2620 [143] --- GRAFIK PROZENT ---
  278. 2630 _G0:_C
  279. 2640 [129]T[178]183[164]185:_L10,T[164]320,T;15:[130]T
  280. 2650 _P270,2,2,2[200](AS$,3)
  281. 2660 _P100,3HO$:_P110,12WA$
  282. 2670 _P1,171" 5"
  283. 2680 _P1,81"50"
  284. 2690 _P1,91"45"
  285. 2700 _P1,101"40"
  286. 2710 _P1,48DA$
  287. 2720 _P1,60JA$
  288. 2730 _L20,105[164]320,105
  289. 2740 _L20,95[164]320,95
  290. 2750 _L20,85[164]320,85
  291. 2760 _L20,175[164]320,175
  292. 2770 _P21,48;14CD$(0)
  293. 2780 [129]T[178]185[164](185[171]2[172]CD(0))[169][171]1:_L17,T[164]37,T:[130]T
  294. 2790 _P22,30,2,2;6"CDU"
  295. 2800 _P21,60CD$(I)
  296. 2810 [129]T[178]185[164](185[171]2[172]CD(I))[169][171]1:_L40,T[164]60,T:[130]T
  297. 2820 _P80,48;10SP$(0)
  298. 2830 [129]T[178]185[164](185[171]2[172]SP(0))[169][171]1:_L76,T[164]95,T:[130]T
  299. 2840 _P5,2,1,2;2ZE$(I)
  300. 2850 _P80,30,2,2"SPD"
  301. 2860 _P80,60SP$(I)
  302. 2870 [129]T[178]185[164](185[171]2[172]SP(I))[169][171]1:_L99,T[164]119,T:[130]T
  303. 2880 _P144,48;7FD$(0)
  304. 2890 [129]T[178]185[164](185[171]2[172]FD(0))[169][171]1:_L137,T[164]157,T:[130]T
  305. 2900 _P140,30,2,2;8"FDP"
  306. 2910 _P144,60FD$(I)
  307. 2920 [129]T[178]185[164](185[171]2[172]FD(I))[169][171]1:_L162,T[164]182,T:[130]T
  308. 2930 _P206,48;13GR$(0)
  309. 2940 [129]T[178]185[164](185[171]2[172]GR(0))[169][171]1:_L200,T[164]220,T:[130]T
  310. 2950 _P200,30,1,2;5"GRUENE"
  311. 2960 _P206,60GR$(I)
  312. 2970 [129]T[178]185[164](185[171]2[172]GR(I))[169][171]1:_L225,T[164]245,T:[130]T
  313. 2980 _P272,48;12AN$(0)
  314. 2990 [129]T[178]185[164](185[171]2[172]AN(0))[169][171]1:_L266,T[164]286,T:[130]T
  315. 3000 _P266,30,1,2;1"ANDERE"
  316. 3010 _P272,60AN$(I)
  317. 3020 [129]T[178]185[164](185[171]2[172]AN(I))[169][171]1:_L290,T[164]310,T:[130]T
  318. 3030 _P10,192;15"WEITER MIT TASTE (A=AUSDRUCK)"
  319. 3040 [161]A$:[139]A$[178]""[167]3040
  320. 3050 [139]A$[178]"A"[167][141]4650:[137]3040
  321. 3060 _T:[142]
  322. 3070 [143] --- ZEIT ---
  323. 3080 [153]"LOAD"
  324. 3090 H[178][194](C[170]3):M[178][194](C[170]2):S[178][194](C[170]1):T[178][194](C)
  325. 3100 HH[178]1:[139]H[177]32[167]H[178]H[171]128:HH[178]0
  326. 3110 H[178][181](H[173]16)[172]10[170]H[171][181](H[173]16)[172]16:[145]HH[137]3140
  327. 3120 [139]H[178]12[167]3150
  328. 3130 H[178]H[170]12
  329. 3140 [139]H[178]12[167]H[178]0
  330. 3150 M[178][181](M[173]16)[172]10[170]M[171][181](M[173]16)[172]16
  331. 3160 S[178][181](S[173]16)[172]10[170]S[171][181](S[173]16)[172]16
  332. 3170 H$[178][196](H):[139][195](H$)[178]2[167]H$[178]" 0"[170][201](H$,1)
  333. 3180 M$[178][196](M):[139][195](M$)[178]2[167]M$[178]" 0"[170][201](M$,1)
  334. 3190 S$[178][196](S):[139][195](S$)[178]2[167]S$[178]" 0"[170][201](S$,1)
  335. 3200 ZE$[178][201](H$,2)[170]"."[170][201](M$,2)[170]"."[170][201](S$,2)
  336. 3210 [153]"POKE   "ZE$
  337. 3220 [139]EI[178]1[167]EI[178]0:[142]
  338. 3230 [153]:[153]:[153]"   FORHOCHRECHNUNG (H) / ENDERGEBNIS (E) ?"
  339. 3240 [153]:[153]"              GRAFIKEN (G)"
  340. 3250 [161]G$:[139]G$[178]"H"[176]G$[178]"E"[167]EI[178]1
  341. 3260 [139]G$[178]"G"[167]DG[178]1:[137]460
  342. 3270 [137]3090
  343. 3280 [143] --- ENDERGEBNIS ---
  344. 3290 [153]"LOAD":I[178]I[170]1
  345. 3300 [153]:[153]:[153]"   ENDERGEBNIS"
  346. 3310 [133]"  CDU:   0.0 %CMDCMDCMDCMDCMDCMDCMDCMD";CD$(I):CD(I)[178][197](CD$(I))
  347. 3320 [139]CD(I)[178]0[167]CD$(I)[178]"*":[137]3440
  348. 3330 [153]:[133]"  SPD=   0.0 %CMDCMDCMDCMDCMDCMDCMDCMD";SP$(I):SP(I)[178][197](SP$(I))
  349. 3340 [153]:[133]"FOR  FDP=   0.0 %CMDCMDCMDCMDCMDCMDCMDCMD";FD$(I):FD(I)[178][197](FD$(I))
  350. 3350 [133]"  GRUENE=   0.0 %CMDCMDCMDCMDCMDCMDCMDCMD";GR$(I):GR(I)[178][197](GR$(I))
  351. 3360 [133]"  ANDERE=   0.0 %CMDCMDCMDCMDCMDCMDCMDCMD";AN$(I):AN(I)[178][197](AN$(I))
  352. 3370 [153]"LOAD"
  353. 3380 [153]:[153]:[153]"   S I T Z E"
  354. 3390 [153]:[153]:[133]"  CDU:";SU(I)
  355. 3400 [153]:[133]"  SPD:";SD(I)
  356. 3410 [153]:[133]"FOR  FDP:";SF(I)
  357. 3420 [153]:[133]"  GRUENE:";SE(I)
  358. 3430 [153]:[133]"  ANDERE:";SA(I)
  359. 3440 AS$(I)[178]"ENDERGEBNIS":ZE$(I)[178]ZE$:AS(I)[178]0
  360. 3450 _F3450:[153]:[153]:[153]"   DISKETTE EINLEGEN!":[160]1
  361. 3460 [153]:[133]"   ";A$
  362. 3470 [159]1,8,2,"@:WAHL "[170]WA$[170]",S,W"
  363. 3480 [132]15,FE,FE$:[139]FE[178]0[167]3530
  364. 3490 [139]FE[178]26[167][153]:[153]"DISKETTE GESCHUETZT!":[137]3450
  365. 3500 [139]FE[178]72[167][153]:[153]"DISKETTE VOLL!":[137]3450
  366. 3510 [139]FE[178]74[167][153]:[153]"KEINE DISKETTE EINGELEGT!":[137]3450
  367. 3520 [153]:[153]"  FEHLER"FE": "FE$:[137]3450
  368. 3530 [152]1,WA$:[152]1,I
  369. 3540 [152]1,DA$:[152]1,JA$:[152]1,SG
  370. 3550 [129]G[178]0[164]I
  371. 3560 [152]1,CD$(G):[139]CD$(G)[178]"*"[167]3620
  372. 3570 [152]1,CD(G):[152]1,SP$(G):[152]1,SP(G)
  373. 3580 [152]1,FD$(G):[152]1,FD(G)
  374. 3590 [152]1,GR$(G):[152]1,GR(G)
  375. 3600 [152]1,AN$(G):[152]1,AN(G)
  376. 3610 [152]1,SU(G):[152]1,SD(G):[152]1,SF(G):[152]1,SE(G):[152]1,SA(G)
  377. 3620 [152]1,AS(G):[152]1,AS$(G)
  378. 3630 [152]1,ZE$(G):[139]CD$(G)[178]"*"[167]3650
  379. 3640 [130]G
  380. 3650 [160]1
  381. 3660 [153]"LOAD  F E R T I G!"
  382. 3670 [129]G[178]1[164]1000:[130]:[137]460
  383. 3680 [153]"LOAD":[143] --- SITZE ALT ---
  384. 3690 EI[178]1:[141]3070
  385. 3700 [153]:[153]:[153]"   LETZTES WAHLERGEBNIS"
  386. 3710 [153]:[153]:[153]"   "WA$
  387. 3720 [153]:[153]:[153]"   S I T Z E"
  388. 3730 [153]:[153]:[133]"  CDU:";SU(0)
  389. 3740 [153]:[133]"  SPD:";SD(0)
  390. 3750 [153]:[133]"FOR  FDP:";SF(0)
  391. 3760 [153]:[133]"  GRUENE:";SE(0)
  392. 3770 [153]:[133]"  ANDERE:";SA(0)
  393. 3780 [153]:[133]"POKE  GESAMTSITZE:";SG
  394. 3790 [142]
  395. 3800 [143] --- SITZE AUSRECHNEN ---
  396. 3810 HU[178]CD(I):HD[178]SP(I):HF[178]FD(I):HE[178]GR(I):HA[178]AN(I)
  397. 3820 [139]HU[179]5[167]HU[178]0
  398. 3830 [139]HD[179]5[167]HD[178]0
  399. 3840 [139]HF[179]5[167]HF[178]0
  400. 3850 [139]HE[179]5[167]HE[178]0
  401. 3860 [139]HA[179]5[167]HA[178]0
  402. 3870 HG[178]HU[170]HD[170]HF[170]HE[170]HA
  403. 3880 SM[178]100[173]HG
  404. 3890 HU[178]HU[172]SM:HD[178]HD[172]SM:HF[178]HF[172]SM:HE[178]HE[172]SM:HA[178]HA[172]SM
  405. 3900 SM[178]SG[173]100
  406. 3910 SU(I)[178]HU[172]SM:SD(I)[178]HD[172]SM:SF(I)[178]HF[172]SM:SE(I)[178]HE[172]SM:SA(I)[178]HA[172]SM
  407. 3920 SZ[178][181](SG[171][181](SU(I))[171][181](SD(I))[171][181](SF(I))[171][181](SE(I))[171][181](SA(I))):SW[178]0
  408. 3930 [139]SZ[178]0[167]SU(I)[178][181](SU(I)):SD(I)[178][181](SD(I)):SF(I)[178][181](SF(I))
  409. 3940 [139]SZ[178]0[167]SE(I)[178][181](SE(I)):SA(I)[178][181](SA(I)):[142]
  410. 3950 HU[178][181](SU(I))[171]SU(I):[139]HU[179]SW[167]T[178]1:SW[178]HU
  411. 3960 HD[178][181](SD(I))[171]SD(I):[139]HD[179]SW[167]T[178]2:SW[178]HD
  412. 3970 HF[178][181](SF(I))[171]SF(I):[139]HF[179]SW[167]T[178]3:SW[178]HF
  413. 3980 HE[178][181](SE(I))[171]SE(I):[139]HE[179]SW[167]T[178]4:SW[178]HE
  414. 3990 HA[178][181](SA(I))[171]SA(I):[139]HA[179]SW[167]T[178]5:SW[178]HA
  415. 4000 [145]T[141]4020,4030,4040,4050,4060
  416. 4010 SZ[178]SZ[171]1:SW[178]0:[137]3930
  417. 4020 SU(I)[178][181](SU(I)[170]1):[142]
  418. 4030 SD(I)[178][181](SD(I)[170]1):[142]
  419. 4040 SF(I)[178][181](SF(I)[170]1):[142]
  420. 4050 SE(I)[178][181](SE(I)[170]1):[142]
  421. 4060 SA(I)[178][181](SA(I)[170]1):[142]
  422. 4070 [143] --- COMPUTER HOCHRECHNUNG ---
  423. 4080 [139]I[178]1[167][142]
  424. 4090 EI[178]1:[141]3070
  425. 4100 CO[178]CO[170]1:I[178]I[170]1:AS(I)[178]CO:AS$(I)[178]"COMPUTER":ZE$(I)[178]ZE$
  426. 4110 CD(I)[178](CD(I[171]1)[170]CD(I[171]2))[173]2
  427. 4120 [139]CD(I)[178][181](CD(I))[167]CD$(I)[178][196](CD(I))[170]".0 %":[137]4140
  428. 4130 CD$(I)[178][196]([181](CD(I)))[170][202]([196](CD(I)[171][181](CD(I))),2,2)[170]" %"
  429. 4140 CD(I)[178][197](CD$(I)):CD$(I)[178][201](CD$(I),[195](CD$(I))[171]1)
  430. 4150 SP(I)[178](SP(I[171]1)[170]SP(I[171]2))[173]2
  431. 4160 [139]SP(I)[178][181](SP(I))[167]SP$(I)[178][196](SP(I))[170]".0 %":[137]4180
  432. 4170 SP$(I)[178][196]([181](SP(I)))[170][202]([196](SP(I)[171][181](SP(I))),2,2)[170]" %"
  433. 4180 SP(I)[178][197](SP$(I)):SP$(I)[178][201](SP$(I),[195](SP$(I))[171]1)
  434. 4190 FD(I)[178](FD(I[171]1)[170]FD(I[171]2))[173]2
  435. 4200 [139]FD(I)[178][181](FD(I))[167]FD$(I)[178][196](FD(I))[170]".0 %":[137]4220
  436. 4210 FD$(I)[178][196]([181](FD(I)))[170][202]([196](FD(I)[171][181](FD(I))),2,2)[170]" %"
  437. 4220 FD(I)[178][197](FD$(I)):FD$(I)[178][201](FD$(I),[195](FD$(I))[171]1)
  438. 4230 GR(I)[178](GR(I[171]1)[170]GR(I[171]2))[173]2
  439. 4240 [139]GR(I)[178][181](GR(I))[167]GR$(I)[178][196](GR(I))[170]".0 %":[137]4260
  440. 4250 GR$(I)[178][196]([181](GR(I)))[170][202]([196](GR(I)[171][181](GR(I))),2,2)[170]" %"
  441. 4260 GR(I)[178][197](GR$(I)):GR$(I)[178][201](GR$(I),[195](GR$(I))[171]1)
  442. 4270 AN(I)[178](AN(I[171]1)[170]AN(I[171]2))[173]2
  443. 4280 [139]AN(I)[178][181](AN(I))[167]AN$(I)[178][196](AN(I))[170]".0 %":[137]4300
  444. 4290 AN$(I)[178][196]([181](AN(I)))[170][202]([196](AN(I)[171][181](AN(I))),2,2)[170]" %"
  445. 4300 AN(I)[178][197](AN$(I)):AN$(I)[178][201](AN$(I),[195](AN$(I))[171]1)
  446. 4310 [141]3800:I[178]I[171]1:[142]
  447. 4320 [143] --- DATEI EINLESEN ---
  448. 4330 _F4305
  449. 4340 [160]1:[133]"WAHLNAME (0=KATALOG):";WA$:[153]:[153]:[139]WA$[178]"0"[167][141]4530:[137]4340
  450. 4350 [153]"LOAD"
  451. 4360 [159]1,8,2,"WAHL "[170]WA$[170]",S,R"
  452. 4370 [132]15,FE,FE$
  453. 4380 [139]FE[178]0[167]4420
  454. 4390 [139]FE[178]62[167][153]:[153]"  NICHT VORHANDEN!":[137]4340
  455. 4400 [139]FE[178]74[167][153]:[153]"KEINE DISKETTE EINGELEGT!":[137]4340
  456. 4410 [153]:[153]" FEHLER"FE": "FE$:[137]4340
  457. 4420 [132]1,WA$,I,DA$,JA$,SG
  458. 4430 [129]G[178]0[164]I
  459. 4440 [132]1,CD$(G):[139]CD$(G)[178]"*"[167]4470
  460. 4450 [132]1,CD(G),SP$(G),SP(G),FD$(G),FD(G),GR$(G),GR(G),AN$(G),AN(G)
  461. 4460 [132]1,SU(G),SD(G),SF(G),SE(G),SA(G)
  462. 4470 [132]1,AS(G),AS$(G)
  463. 4480 [132]1,ZE$(G):[139]CD$(G)[178]"*"[167]4500
  464. 4490 [130]G
  465. 4500 [160]1
  466. 4510 DG[178]1:[142]
  467. 4520 [143] --- DIRECTORY ---
  468. 4530 [159]1,8,4,"#":NT[178]18:NS[178]1
  469. 4540 [152]15,"B-R:";4;0;NT;NS:[152]15,"B-P:";4;0
  470. 4550 [161]#1,NT$,NS$:[139]NT$[178]""[167]4570
  471. 4560 NT[178][198](NT$):NS[178][198](NS$)
  472. 4570 [129]T[178]0[164]7:[152]15,"B-P:"4;T[172]32[170]2:[161]#1,FT$:[139]FT$[178]""[175]NT$[178]""[167][160]1:[142]
  473. 4580 [139]FT$[178]""[167][130]T:[137]4540
  474. 4590 [139][198](FT$)[179][177]129[167][130]T:[137]4540
  475. 4600 [161]#1,A$,A$
  476. 4610 A$[178]"":[129]TT[178]3[164]18:[161]#1,B$:A$[178]A$[170]B$:[130]TT
  477. 4620 [139][200](A$,5)[179][177]"WAHL "[167][130]T:[137]4540
  478. 4630 [153]"  "[201](A$,11)
  479. 4640 [130]T:[137]4540
  480. 4650 [143] --- BILDSCHIRMAUSDRUCK ---
  481. 4660 _F4610:_T:[133]"LOAD   TABULATOR:";TA
  482. 4670 [158]50944,TA,14:[143] --- DRUCKROUTINE     WIRD GESTARTET ---
  483. 4680 _G0:[142]
  484.