home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9004a.d64 / business-grafics (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  19KB  |  670 lines
  1. 10 REM -- BUSINESS-GRAFIK --
  2. 20 REM - 09.11.89 -
  3. 30 POKE53280,0:POKE53281,0
  4. 50 PRINTCHR$(142)"[147]"TAB(9)"                       "
  5. 60 PRINTTAB(9)"   BUSINESS-GRAPHICS   "
  6. 70 U$="                       ":PRINTTAB(9)U$
  7. 80 PRINTTAB(9)"         V 5.0         "
  8. 90 PRINTTAB(9)U$
  9. 100 PRINT""TAB(15)"(C) 1987-89"
  10. 110 PRINTTAB(9)"AUTOR:  WOLFGANG DEHMER"
  11. 120 PRINT""TAB(9)U$
  12. 140 DIMZZ$(9,60),JZ$(9,60),ZZ(9,60),JZ(9,60),TT(40),VV(40),MN$(12)
  13. 150 GOSUB5980
  14. 160 DD$="":DA$="1":C=1:S=1:J=5:DS$=""
  15. 162 TI$="000000":U$="      ":PRINT"[147]"CHR$(14);
  16. 170 PRINT""U$" <<      [205] [197] [206] [213]   [201]    [146] >>"
  17. 190 PRINTU$"[196][193][212][197][206] [204][193][196][197][206] ...........  [198]1 [146]"
  18. 200 PRINTU$"[196][193][212][197][206][160][197][201][206][199][197][194][197][206] ........  [198]2 [146]"
  19. 210 PRINTU$"[199][210][193][198][201][203] [218][197][201][199][197][206] .........  [198]3 [146]"
  20. 220 PRINTU$"[196][201][210][197][195][212][207][210][217] .............  [198]4 [146]"
  21. 230 PRINTU$"[198][201][204][197] [204][207][197][211][195][200][197][206] .........  [198]5 [146]"
  22. 235 PRINTU$"[198][201][204][197] [213][205][194][197][206][197][206][206][197][206] .......  [198]6 [146]"
  23. 240 PRINTU$"[205][197][206][213] [201][201] ...............  [198]7 [146]"
  24. 260 GETE$:GOSUB25000:IFE$=""THEN260
  25. 266 IFE$="^"THENTI$="000000":POKE53265,27
  26. 270 IFE$="[135]"THENPRINT"[147]"CHR$(142):INPUT"SCRATCH: FILENAME ";FI$
  27. 280 IFE$="[135]"ANDFI$="M"THEN160
  28. 290 IFE$="[135]"THENOPEN1,8,15,"S:"+FI$:CLOSE1:GOTO160
  29. 300 IFE$="[137]"THENPRINT"[147]":GOTO370
  30. 310 IFE$="[133]"THENPRINT"[147]":GOTO3840
  31. 320 IFE$="[134]"THEN(null):GOTO2340
  32. 330 IFE$="[138]"THEN5450
  33. 340 IFE$="[136]"THENPRINT"[147]":GOTO3320
  34. 354 IFE$="[139]"THENPRINT"[147]"CHR$(142):INPUT"RENAME: FILE-NEU ";F1$
  35. 355 IFE$="[139]"ANDF1$="M"THEN160
  36. 356 IFE$="[139]"THENINPUT"        FILE-ALT ";F2$
  37. 357 IFE$="[139]"THENOPEN1,8,15,"R:"+F1$+"="+F2$:CLOSE1:GOTO160
  38. 365 GOTO260
  39. 370 REM - EINGABE -
  40. 380 PRINT"   [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  41. 390 PRINTTAB(11)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  42. 400 PRINTTAB(11)"[212][201][212][197][204] [196][197][211] [196][201][193][199][210][193][205][205][211]":PRINT
  43. 410 PRINT"   (2 [218]EILEN ZU JE MAX. 34 [218]EICHEN !)"
  44. 420 PRINT"  ([215]ENN 2.[218]EILE LEER -> '-' EINGEBEN!)"
  45. 440 PRINT"   [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  46. 450 PRINT"                 ";:PRINT"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
  47. 460 OPEN1,0
  48. 470 INPUT#1,TT$:PRINT
  49. 480 IFTT$="M"THENCLOSE1:GOTO160
  50. 490 L1=LEN(TT$)
  51. 500 CLOSE1
  52. 510 IFL1>34THENPRINT"[147]":GOTO370
  53. 520 PRINT"                 ";"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
  54. 530 OPEN1,0
  55. 540 INPUT#1,VV$:PRINT
  56. 550 IFVV$="M"THENCLOSE1:GOTO160
  57. 560 CLOSE1
  58. 570 L2=LEN(VV$)
  59. 580 IFL2>34THENPRINT"[147]":GOTO370
  60. 590 PRINT"[147]"TAB(9)"[196]IAGRAMMTYP ? ([206]/-/[203])"
  61. 600 GETKD$:IFKD$=""THEN600
  62. 610 WT$="[203]URVEN"
  63. 613 IFKD$="K"THENWT$="[203]REISE"
  64. 625 IFKD$="-"THENDS$="*.-"
  65. 630 PRINT"[147]         ** [215]IEVIELE "WT$" ? ** "
  66. 640 W=9:IFKD$="K"THENKD$="J":W=6
  67. 650 PRINT""TAB(16)"(MAX."W"[157])"
  68. 660 GETS$:IFS$=""THEN660
  69. 670 IFVAL(S$)<1THEN660
  70. 680 S=VAL(S$):SS=S
  71. 690 POKE19,1:INPUT"[147]    [215]IEVIEL [215]ERTE JE [196]ATENBLOCK: ";Z:POKE19,0
  72. 700 IFKD$="J"THENA$="-":BR$="5":GOTO780
  73. 710 PRINT"[147]      [194]EZEICHNUNG DER [215]ERTE-[211]KALA"
  74. 720 PRINT"       ([203]EINE [194]EZEICHNUNG = '-')"
  75. 750 OPEN1,0
  76. 760 PRINT"                 ";:INPUT#1,A$:PRINT:CLOSE1
  77. 780 FORK=1TOS:REM KURVEN
  78. 790 B=1:PRINT"[147]"
  79. 800 BZ$="[202]AHRESZAHL: ":IFKD$="J"THENBZ$="[197]LEMENT:    "
  80. 810 FORW=BTOZ:REM WERTE
  81. 820 PRINT""TAB(12)K"[157].[196][193][212][197][206][194][204][207][195][203]: [146]"
  82. 830 PRINT""""W"[157].";
  83. 840 PRINTBZ$"[146] ";:OPEN1,0:INPUT#1,JZ$(K,W):PRINT:CLOSE1:JZ(K,W)=VAL(JZ$(K,W))
  84. 860 PRINT""W"[157].";
  85. 870 PRINT"[215]ERT: [146]       ";:OPEN1,0:INPUT#1,ZZ$(K,W):PRINT:CLOSE1
  86. 875 ZZ(K,W)=VAL(ZZ$(K,W))
  87. 880 PRINT"";:PRINTTAB(11)"[203][207][210][210][197][203][212][213][210] ? ([202]/[206])"
  88. 900 GETKY$:IFKY$<>"J"ANDKY$<>"N"THEN900
  89. 910 IFKY$="J"THENPRINT"[147]":GOTO820
  90. 920 PRINT"                [145][145][145][145][145][145][145][145][145][145]     "
  91. 930 PRINT""SPC(16)"          "
  92. 935 PRINTTAB(11)"                 "
  93. 950 NEXT
  94. 960 NEXT
  95. 970 DZ=JZ(1,Z)-JZ(1,1)
  96. 980 IFJZ(1,Z)<JZ(1,1)THENDZ=100-JZ(1,1)+JZ(1,Z)
  97. 990 IFKD$="J"THEN1070
  98. 1000 REM - BEREICHSSKALA -
  99. 1010 IFDZ<=6THENBR$="5"
  100. 1020 IFDZ>6THENBR$="4"
  101. 1030 IFDZ>11THENBR$="3"
  102. 1040 IFDZ>23THENBR$="2"
  103. 1050 IFDZ>29THENBR$="1"
  104. 1060 IFDZ>47THENBR$="0"
  105. 1070 GOSUB4180:REM MAXIMUM
  106. 1080 ART$="K":PRINT"[147]"
  107. 1090 S=SS:REM ORIG.KURVENZAEHLER
  108. 1100 IFBD$="A"ORBD$="[133]"ORBD$="[137]"ORBD$="[134]"ORBD$="[138]"ORBD$="[135]"ORBD$="[139]"THEN1270
  109. 1110 IFBD$="[136]"ORBD$="[140]"ORBD$=CHR$(32)ORBD$="S"ORBD$="9"ORBD$="-"THEN1270
  110. 1120 IFBD$="*"ORBD$="_"ORBD$="O"ORBD$="@"THEN1270
  111. 1130 IFBD$="B"THEN1230
  112. 1140 REM -- GRAPHIK --
  113. 1150 BR=VAL(BR$)
  114. 1160 L1=LEN(TT$):FORQ=1TOL1
  115. 1170 TT(Q)=ASC(MID$(TT$,Q,1))
  116. 1180 NEXTQ
  117. 1190 L2=LEN(VV$):FORQ=1TOL2
  118. 1200 VV(Q)=ASC(MID$(VV$,Q,1))
  119. 1210 NEXTQ
  120. 1220 IFBD$="U"THEN1270
  121. 1230 T3=LEN(A$):FORQ=1TOT3
  122. 1240 A(Q)=ASC(MID$(A$,Q,1))
  123. 1250 NEXTQ
  124. 1260 REM --
  125. 1270 IFBD$=CHR$(32)OR(BD$="@"ANDART$<>"K"ANDART$<>"S")THENGOSUB5810
  126. 1280 IFKD$="J"ORRIGHT$(DS$,2)=".K"THENDA$="2":BD$="O"
  127. 1290 IFEZ$<>"J"ANDEZ$<>"@"ANDBD$<>"K"THEN(null)
  128. 1300 IFM2=1THENM2=0:GOSUB6080
  129. 1310 (null)1,0:(null)
  130. 1320 IFDA$="2"THENGOSUB5220
  131. 1330 TI$="000000"
  132. 1350 IFDA$="2"THEN1580
  133. 1360 (null)1
  134. 1370 (null)70,30,70,180
  135. 1380 IFRIGHT$(DS$,1)="-"THEN(null)70,105,310,105
  136. 1385 IFD3$<>"J"OR(D3$="J"ANDBR$<>"4")THEN(null)70,180,310,180
  137. 1390 IFAR$="S"THEN1470
  138. 1400 IFBR$="2"THENSP=20:GOTO1440
  139. 1410 IFBR$<>"5"THENSP=20
  140. 1420 IFBR$="5"THENSP=40
  141. 1430 FORAA=70TO310STEPSP
  142. 1440 FORAA=70TO310STEP40
  143. 1450 (null)AA,180,AA,183
  144. 1460 NEXT
  145. 1470 FORBB=180TO30STEP-15
  146. 1480 (null)70,BB,66,BB
  147. 1490 NEXT
  148. 1500 REM
  149. 1505 IFRIGHT$(DS$,1)="-"THEN20000
  150. 1510 MF=10:TE=B/10
  151. 1520 FORX=27TO162STEP15
  152. 1530 ZA=TE*MF
  153. 1540 (null)1,1,7,0
  154. 1550 (null)56-(6*LEN(STR$(ZA))),X,STR$(ZA)
  155. 1560 MF=MF-1
  156. 1570 NEXT
  157. 1580 A$="":FORQ=1TOT3
  158. 1590 A$=A$+CHR$(A(Q))
  159. 1600 NEXT
  160. 1605 IFA$="-"THENA$=" "
  161. 1610 IFBD$<>"O"THEN(null)58-(6*(LEN(A$))),15,CHR$(14)+A$
  162. 1620 TT$=""
  163. 1630 FORQ=1TOL1
  164. 1640 TT$=TT$+CHR$(TT(Q))
  165. 1650 NEXT
  166. 1660 VV$="":FORQ=1TOL2
  167. 1670 VV$=VV$+CHR$(VV(Q))
  168. 1680 NEXT
  169. 1690 BR$=RIGHT$(STR$(BR),1)
  170. 1710 IFVV$="-"THENVV$=" "
  171. 1720 (null)72,5,CHR$(14)+TT$:(null)72,15,CHR$(14)+VV$
  172. 1730 IFDA$="2"THEN2340
  173. 1740 IFBD$="@"ORBD$="F"THENU=0:GOTO1760
  174. 1750 AJ=JZ(1,1):U=0
  175. 1760 REM
  176. 1770 IFBR$="3"THENDF=4:IFART$="S"THENU=3
  177. 1780 IFBR$="1"THENDF=8:IFART$="S"THENU=2
  178. 1790 IFBR$="0"THENDF=10:IFART$="S"THENU=1
  179. 1800 IFBR$="2"THENDF=5:IFART$="S"THENU=2
  180. 1810 IFBR$="4"THENDF=2:IFART$="S"THENU=8
  181. 1820 IFBR$="5"THENDF=1:IFART$="S"THENU=17
  182. 1830 (null)56+U,187,STR$(AJ)
  183. 1840 IF(AJ+DF)>=100THEN(null)96+U,187,STR$(AJ+DF-100):GOTO1860
  184. 1850 (null)96+U,187,STR$(AJ+DF)
  185. 1860 IF(AJ+DF*2)>=100THEN(null)136+U,187,STR$(AJ+DF*2-100):GOTO1880
  186. 1870 (null)136+U,187,STR$(AJ+DF*2)
  187. 1880 IF(AJ+DF*3)>=100THEN(null)176+U,187,STR$(AJ+DF*3-100):GOTO1900
  188. 1890 (null)176+U,187,STR$(AJ+DF*3)
  189. 1900 IF(AJ+DF*4)>=100THEN(null)216+U,187,STR$(AJ+DF*4-100):GOTO1920
  190. 1910 (null)216+U,187,STR$(AJ+DF*4)
  191. 1920 IF(AJ+DF*5)>=100THEN(null)256+U,187,STR$(AJ+DF*5-100):GOTO1940
  192. 1930 (null)256+U,187,STR$(AJ+DF*5)
  193. 1940 REM
  194. 1950 V=180:U=150
  195. 1960 IF(BD$<>"@"ANDBD$<>"F")THENJK=1
  196. 1970 IFART$="K"THENFORK=CTOS
  197. 1980 IFART$="S"THENFORK=BLTOBL
  198. 1990 IFART$="K"THENFORW=JKTOZ-1
  199. 2000 IFART$="S"THENFORW=JKTOZ
  200. 2010 IFBR$="4"THENJA=12:RE=16:REM JA=JAHRE IM INTERVALL-RE=STR$BREITE
  201. 2020 IFBR$="2"THENJA=30:RE=4
  202. 2030 IFBR$="1"THENJA=48:RE=3
  203. 2040 IFBR$="0"THENJA=60:RE=1
  204. 2050 IFBR$="5"THENJA=6:RE=35
  205. 2060 IFBR$="3"THENJA=24:RE=6
  206. 2070 IFJZ(K,1)=0THEN2340:REM OVERFLOW-CONTROL
  207. 2080 F=240/JA:REM RASTER/JAHRE
  208. 2090 FF=U/B
  209. 2100 IFART$="S"ANDRA$<>"R"THEN2190
  210. 2110 IFART$="S"ANDRA$="R"THENAJ=JZ(1,JK):GOTO2210
  211. 2120 IF70+(JZ(K,W+1)-AJ)*F>318THEN2180:REM OVERFLOW
  212. 2130 IFBD$="@"ORBD$="F"THENAJ=JZ(1,JK)
  213. 2140 :IFJZ(K,W+1)<JZ(K,W)THENJZ(K,W+1)=JZ(K,W+1)+100:REM >JAHR 2000
  214. 2142 IFRIGHT$(DS$,1)="-"THENOE=(V-FF*ZZ(K,W))/2:GE=(V-FF*ZZ(K,W+1))/2:GOTO2150
  215. 2145 (null)70+(JZ(K,W)-AJ)*F,V-FF*ZZ(K,W),70+(JZ(K,W+1)-AJ)*F,V-FF*ZZ(K,W+1)
  216. 2146 GOTO2160
  217. 2150 (null)70+(JZ(K,W)-AJ)*F,OE+15,70+(JZ(K,W+1)-AJ)*F,GE+15
  218. 2160 FG$="14545222237473638444527"
  219. 2164 IFRIGHT$(DS$,1)="-"THENOE=(V-FF*ZZ(K,W))/2+15
  220. 2165 IFBD$="K"ANDRIGHT$(DS$,1)="-"THEN(null)70+(JZ(K,W)-AJ)*F,OE,FG$
  221. 2166 IFBD$="K"ANDRIGHT$(DS$,1)="-"THEN2180
  222. 2170 IFBD$="K"THEN(null)70+(JZ(K,W)-AJ)*F,V-FF*ZZ(K,W),FG$
  223. 2180 GOTO2300
  224. 2190 IF(70+(JZ(K,W)-AJ)*F)+RE>318THEN2300
  225. 2191 :IFJZ(K,W+1)<JZ(K,W)THENJZ(K,W+1)=JZ(K,W+1)+100:REM >JAHR 2000
  226. 2195 IFRIGHT$(DS$,1)="-"THENOE=(V-FF*ZZ(K,W))/2+15:GOTO2200
  227. 2197 GOTO2205
  228. 2200 (null)(70+(JZ(K,W)-AJ)*F),OE,(70+(JZ(K,W)-AJ)*F)+RE,105:GOTO2300
  229. 2205 (null)(70+(JZ(K,W)-AJ)*F),V-FF*ZZ(K,W),(70+(JZ(K,W)-AJ)*F)+RE,180:GOTO2300
  230. 2210 IF70+(JZ(K,W)-AJ)*F+RE>318THEN2300
  231. 2212 IFRIGHT$(DS$,1)="-"THENOE=(V-FF*ZZ(K,W))/2+15:GOTO2215
  232. 2213 GOTO2220
  233. 2215 (null)(70+(JZ(K,W)-AJ)*F),OE,(70+(JZ(K,W)-AJ)*F)+RE,105:GOTO2224
  234. 2220 (null)(70+(JZ(K,W)-AJ)*F),V-FF*ZZ(K,W),(70+(JZ(K,W)-AJ)*F)+RE,180
  235. 2224 WS$=""
  236. 2225 OD=103:IFZZ(K,W)<0THENOD=107
  237. 2226 IFBD$="F"THENGOSUB10000:BD$="F"
  238. 2227 IFBD$="F"ANDRIGHT$(DS$,1)="-"THEN(null)0,MU$:GOTO2229
  239. 2228 IFBD$="F"THEN(null)0,MU$:(null)(70+(JZ(K,W)-AJ)*F)+2,179:GOTO2230
  240. 2229 IFBD$="F"THEN(null)(70+(JZ(K,W)-AJ)*F)+2,OD:DS$="*.-"
  241. 2230 S1=70+(JZ(K,W)-AJ)*F:Z1=FF*ZZ(K,W)
  242. 2240 IFD3$<>"J"ORBR$<>"4"THEN2300
  243. 2250 (null)S1,V-Z1,S1+4,V-Z1-4
  244. 2260 (null)S1+16,V-Z1,S1+20,V-Z1-4
  245. 2270 (null)S1+4,V-Z1-4,S1+20,V-Z1-4
  246. 2280 (null)S1+16,180,S1+20,176
  247. 2290 (null)S1+20,176,S1+20,V-Z1-4
  248. 2300 NEXTW:IF70+(JZ(K,W)-AJ)*F>319THEN2320
  249. 2303 OE=(V-FF*ZZ(K,W))/2+15
  250. 2305 IFBD$="K"ANDRIGHT$(DS$,1)="-"THEN(null)70+(JZ(K,W)-AJ)*F,OE,FG$:GOTO2320
  251. 2310 IFBD$="K"THEN(null)70+(JZ(K,W)-AJ)*F,V-FF*ZZ(K,W),FG$
  252. 2320 NEXTK
  253. 2330 D3$="":EZ$="N"
  254. 2335 REM - GRAFIK-MENU -
  255. 2340 GETBD$:GOSUB25015:IFBD$=""THEN2340
  256. 2410 (null)1
  257. 2415 IFBD$=""THEN(null)
  258. 2420 IFBD$="J"THENPRINT"[147]"
  259. 2428 BR$=RIGHT$(STR$(BR),1)
  260. 2430 IFBD$="J"THEN(null):PRINTCHR$(14):PRINT"       [206]EUER [218]EITRAUM (0-5) ? ("BR$")"
  261. 2440 IFBD$="J"THENGETBR$:IFBR$=""THEN2440
  262. 2445 BR=VAL(BR$)
  263. 2450 IFBD$="J"ANDVAL(BR$)>5THENBR$="":GOTO2440
  264. 2460 IFBD$="J"THENPRINT"[147]":GOTO1260:REM GRAFIK
  265. 2470 IFBD$="C"ORBD$="[195]"THENOPEN1,4,1:CLOSE1:IFST=-128THEN2340
  266. 2480 IFBD$="C"ORBD$="[195]"THENOPEN1,4,1:PRINT#1,CHR$(27);CHR$(108);CHR$(0);:CLOSE1
  267. 2490 IFBD$="C"THEN(null)0
  268. 2500 IFBD$="[195]"THEN(null)0,1
  269. 2510 IFBD$=CHR$(32)THENRA$="R":ART$="S":(null):PRINT"[147]":PRINTCHR$(147):GOTO2545
  270. 2520 IFBD$="R"THEN(null)2:(null) 0,0,319,199
  271. 2530 IFBD$="K"ANDART$="K"THEN1290
  272. 2540 IFBD$="S"THENART$="S":RA$="B":(null):PRINT"[147]";CHR$(142);
  273. 2545 IF(BD$="S"ORBD$=CHR$(32))ANDS=1THENBL$="1":GOTO2590
  274. 2550 IFBD$="S"ORBD$=CHR$(32)THENBL$="0":KD$="N":DA$="1":PRINT"";
  275. 2560 IFBD$="S"ORBD$=CHR$(32)THENPRINT"         * SAEULENDARSTELLUNG *"
  276. 2570 IFBD$="S"ORBD$=CHR$(32)THENPRINTCHR$(142);"        NUMMER DES DATENBLOCKS ?"
  277. 2580 IFBD$="S"ORBD$=CHR$(32)THENGETBL$:IFBL$=""THEN2580
  278. 2590 BL=VAL(BL$)
  279. 2600 IF(BD$="S"ORBD$=CHR$(32))ANDBL<=S THEN6010
  280. 2610 IFBD$=CHR$(32)AND(BL<1ORBL>S)THEN2580
  281. 2620 IFBD$="S"AND(BL<1ORBL>S)THEN2570
  282. 2630 IFBD$="G"THENFORMN=60TO150STEP30:FORNM=70TO310STEPJ:(null)NM,MN:NEXT:NEXT
  283. 2640 IFBD$="G"THENFORNM=70+SP*2TO280STEPSP*2:FORMN=30TO180STEPJ:(null)NM,MN:NEXT:NEXT
  284. 2650 IFBD$=CHR$(13)THEN3050
  285. 2660 IFBD$="[199]"THEN(null):PRINTCHR$(14):INPUT"[147][208]UNKTWEITE (1,2,5,10) ";J:PRINT"[147]":(null)
  286. 2670 IFBD$="*"THEN(null)70+(JZ(S,Z)-AJ)*F,V-FF*ZZ(S,Z),70+(JZ(S,Z)-AJ)*F,180
  287. 2680 IFBD$="*"THEN(null)0,OA$:(null) 67+(JZ(S,Z)-AJ)*F,178
  288. 2690 IFBD$="1"THENGOSUB10000:OA$=O1$
  289. 2700 IFBD$="2"THENGOSUB10000:OA$=O2$
  290. 2710 IFBD$="3"THENGOSUB10000:OA$=O3$
  291. 2720 IFBD$="4"THENGOSUB10000:OA$=O4$
  292. 2730 IFBD$="5"THENGOSUB10000:OA$=O5$
  293. 2740 IFBD$="6"THENGOSUB10000:OA$=O6$
  294. 2760 IFBD$="H"THENPRINT"[147]":(null):ME$="2":PRINTCHR$(14):GOTO4240
  295. 2770 IFBD$="T"THENPRINT"[147]":(null):PRINTCHR$(14):INPUT"[218]EILE-1 ";TT$
  296. 2780 IFBD$="T"THENPRINT"";:INPUT"[218]EILE-2 ";VV$:PRINT"[147]":GOTO1110
  297. 2790 IFBD$="B"THENPRINT"[147]":(null):PRINTCHR$(14): INPUT"[206]EUE [211]KALENBEZEICHNUNG ";A$
  298. 2800 IFBD$="B"THENPRINT"[147]":GOSUB4180:GOTO1090
  299. 2810 IFBD$="[205]"THENPRINT"[147]":(null):GOTO3320
  300. 2820 IFBD$="[133]"THENC=1:S=1:ART$="K":GOTO6010
  301. 2830 IFBD$="[137]"THENC=2:S=2:ART$="K":GOTO6010
  302. 2840 IFBD$="[134]"THENC=3:S=3:ART$="K":GOTO6010
  303. 2850 IFBD$="[138]"THENC=4:S=4:ART$="K":GOTO6010
  304. 2860 IFBD$="[135]"THENC=5:S=5:ART$="K":GOTO6010
  305. 2870 IFBD$="[139]"THENC=6:S=6:ART$="K":GOTO6010
  306. 2880 IFBD$="[136]"THENC=7:S=7:ART$="K":GOTO6010
  307. 2890 IFBD$="[140]"THENC=8:S=8:ART$="K":GOTO6010
  308. 2920 IFBD$="9"THENC=9:S=9:ART$="K":GOTO6010
  309. 2930 IFBD$="Z"THEN4810
  310. 2940 IFBD$="A"THENC=1:DA$="1":ART$="K":KD$="N":DS$=" ":GOTO1090
  311. 2945 IFBD$="-"THENC=1:DA$="1":ART$="K":KD$="N":DS$="X.-":GOTO1090
  312. 2950 IFBD$="O"THENDA$="2":GOTO1100
  313. 2960 IFBD$=""THEN(null):PRINTCHR$(142);:INPUT"[147]LADEN:GRAFIK-NAME ";NA$
  314. 2965 IFBD$="[145]"THEN(null):PRINTCHR$(142);:INPUT"[147]SPEICHERN:GRAFIK-NAME ";NA$
  315. 2970 IF(BD$=""ORBD$="[145]")ANDNA$="G"THEN(null):GOTO2340
  316. 2975 IF(BD$=""ORBD$="[145]")ANDNA$="G"THEN(null):GOTO2340
  317. 2980 IFBD$="[145]"THEN(null):(null)0,NA$,8
  318. 2990 IFBD$=""THEN(null):(null)0,NA$,8
  319. 3000 IFBD$="@"THEN(null):PRINTCHR$(14):INPUT"[147][211]TARTJAHR ";AJ
  320. 3010 IFBD$="@"ANDJZ(1,Z)-JZ(1,1)+1=ZTHENJK=AJ-JZ(1,1)+1:PRINT"[147]":GOTO1110
  321. 3020 IFBD$="@"THENGOSUB5550:GOTO1110
  322. 3030 IFBD$="M"THENPRINT"[147]":(null):GOTO160
  323. 3034 IFBD$="F"THENART$="S":BR$=RIGHT$(BR$,1):RA$="R":GOTO1750
  324. 3035 IFBD$="\"THEN(null)0:(null)60,187,"                                    "
  325. 3037 FR=0:IFART$="S"THENFR=7
  326. 3038 IFBD$="\"THEN(null)1:FORX=0TO11:READMN$(X):(null)FR+67+X*20,187,MN$(X):NEXT
  327. 3039 RESTORE
  328. 3040 IFBD$="/"THENFORW=JKTOZ:DU=DU+ZZ(C,W):NEXT
  329. 3041 IFBD$="/"ANDRIGHT$(DS$,1)<>"-"THEN3043
  330. 3042 IFBD$="/"THEN(null)2:(null)71,(V-FF*DU/Z)/2+15,310,(V-FF*DU/Z)/2+15:DU=0:GOTO3044
  331. 3043 IFBD$="/"THEN(null)2:(null)71,V-FF*DU/Z,310,V-FF*DU/Z:DU=0
  332. 3044 GOTO2340
  333. 3045 REM --
  334. 3050 (null):PRINT"[147]"
  335. 3060 PRINTCHR$(142);"";:PRINT"             * DATENLISTE * "
  336. 3070 PRINT"         (B[146]ILDSCHIRM / D[146]RUCKER)"
  337. 3080 GETAB$:IFAB$=""THEN3080
  338. 3082 IFAB$="D"THENINPUT"[147] TABELLENTITEL ";TL$
  339. 3090 IFAB$="B"THEN3150
  340. 3100 IFAB$="D"THENOPEN1,4,1:CLOSE1:IFST=-128THEN3080
  341. 3110 IFAB$="D"THENOPEN1,4,1:PRINT#1,CHR$(27);CHR$(108);CHR$(7);:CLOSE1
  342. 3120 IFAB$="D"THENOPEN1,4:CMD1:GOTO3150
  343. 3130 IFAB$=CHR$(13)THEN3320
  344. 3140 GOTO3080
  345. 3150 PRINTCHR$(147);
  346. 3155 IFAB$="D"THENPRINTTL$:PRINT
  347. 3160 J$="JAHR"
  348. 3170 FORK=1TOSS
  349. 3180 PRINT"DATENBLOCK"K"[157]:[146]":PRINT
  350. 3190 FORW=1TOZ
  351. 3200 IFAB$="B"THENGETWS$:IFWS$=CHR$(32)THENGOSUB5980
  352. 3210 IFJZ(K,W)>=100THENJZ(K,W)=JZ(K,W)-100
  353. 3220 SU=SU+ZZ(K,W)
  354. 3230 PRINT""W"[146]"TAB(5)J$":";JZ(K,W),"    WERT:"ZZ(K,W)
  355. 3240 NEXTW
  356. 3250 FORX=1TO40:PRINT"-";:NEXT
  357. 3260 IFAB$="D"THENPRINT"---"
  358. 3270 PRINT
  359. 3280 IFAB$<>"D"THENGOSUB5980
  360. 3285 IFWS$="/"THENPRINT"MITTELWERT:"SU/Z:SU=0:GOSUB5980
  361. 3290 PRINTCHR$(147);
  362. 3300 NEXTK
  363. 3310 IFAB$="D"THEN PRINT#1:CLOSE1
  364. 3315 REM - MENU II -
  365. 3320 PRINTCHR$(142)"[147]       <<      M E N U  II    [146] >>"
  366. 3330 TI$="000000":U$="      ":SU=0
  367. 3340 PRINTU$"DATEN SPEICHERN .......  F1 [146]"
  368. 3345 PRINTU$"DATEN AUFLISTEN .......  F2 [146]"
  369. 3350 PRINTU$"GRAFIK ZEIGEN .........  F3 [146]"
  370. 3360 PRINTU$"DATEI ERWEITERN .......  F4 [146]"
  371. 3370 PRINTU$"DATEN AENDERN .........  F5 [146]"
  372. 3380 PRINTU$"DATEN EINFUEGEN .......  F6 [146]"
  373. 3390 PRINTU$"MENU I ................  F7 [146]"
  374. 3400 PRINTU$"PROGRAMMENDE ..........  F8 [146]"
  375. 3420 GETSP$:GOSUB25000:IFSP$=""THEN3420
  376. 3425 IFSP$="^"THENTI$="000000":POKE53265,27
  377. 3430 IFSP$="[133]"THEN3510
  378. 3435 IFSP$="[137]"THENPRINT"[147]":GOTO3060
  379. 3440 IFSP$="[136]"THENPRINT"[147]":GOTO160
  380. 3450 IFSP$="[140]"THENPRINTTAB(7)" SIND SIE SICHER ? (J/N) [146]";
  381. 3451 IFSP$="[140]"THENGETWS$:IFWS$=""THEN3451
  382. 3452 IFSP$="[140]"ANDWS$<>"J"THEN3320
  383. 3455 IFSP$="[140]"THENSYS64738
  384. 3460 IFSP$="[134]"THEN(null):PRINT"[147]":TI$="000000":GOTO2340:REM GRAFIK
  385. 3470 IFSP$="[138]"THENPRINT"[147]":SP$="":GOTO4470
  386. 3480 IFSP$="[135]"THEN4650
  387. 3490 IFSP$="[139]"THEN5600
  388. 3500 GOTO3420
  389. 3510 REM - SPEICHERN -
  390. 3550 INPUT"[147]    SAVE: DATEI-NAME ";DD$
  391. 3560 IFDD$="M"THENPRINT"[147]":GOTO3320
  392. 3580 OPEN1,8,15,"S:"+DD$:CLOSE1
  393. 3590 OPEN2,8,2,DD$+",S,W"
  394. 3600 PRINT"[147]"
  395. 3610 OPEN1,8,15:INPUT#1,PO:CLOSE1:CLOSE2
  396. 3620 DD$=DD$+",S,A"
  397. 3630 OPEN 2,8,2,DD$
  398. 3650 PRINT#2,S
  399. 3660 PRINT#2,SS
  400. 3670 PRINT#2,Z
  401. 3675 IFA$=" "THENA$="-"
  402. 3680 PRINT#2,A$
  403. 3690 PRINT#2,T
  404. 3700 PRINT#2,BR$
  405. 3710 PRINT#2,AJ
  406. 3720 PRINT#2,TT$
  407. 3725 IFVV$=" "THENVV$="-"
  408. 3730 PRINT#2,VV$
  409. 3750 FORK=1TOS:REM KURVEN
  410. 3760 FORW=1TOZ:REM WERTE
  411. 3770 IFJZ(K,W)>100THENJZ(K,W)=JZ(K,W)-100
  412. 3780 PRINT#2,JZ(K,W)
  413. 3790 PRINT#2,ZZ(K,W)
  414. 3800 NEXTW
  415. 3810 NEXTK
  416. 3820 CLOSE2
  417. 3830 GOTO3320
  418. 3840 REM - LESEN -
  419. 3850 PRINTCHR$(142):M2=1
  420. 3860 INPUT"[147]    LOAD: DATEI-NAME ";DD$
  421. 3865 DS$=DD$
  422. 3870 IFDD$="M"THEN160
  423. 3890 DD$=DD$+",S,R":PRINT"[147]"
  424. 3900 OPEN2,8,2,DD$
  425. 3910 OPEN1,8,15:INPUT#1,PO,PO$:CLOSE2:CLOSE1
  426. 3920 IFPO=62THENPRINTPO$:CLOSE2:FORX=1TO2000:NEXT:GOTO3860
  427. 3925 IFPO=74THENPRINTPO$:CLOSE2:FORX=1TO2000:NEXT:GOTO3860
  428. 3930 OPEN2,8,2,DD$
  429. 3940 INPUT#2,S:INPUT#2,SS:INPUT#2,Z:INPUT#2,A$:INPUT#2,T
  430. 3950 T3=LEN(A$):FORQ=1TOT3
  431. 3960 A(Q)=ASC(MID$(A$,Q,1))
  432. 3970 NEXTQ
  433. 3980 INPUT#2,BR$:INPUT#2,AJ:INPUT#2,TT$:INPUT#2,VV$
  434. 3990 L1=LEN(TT$):FORQ=1TOL1
  435. 4000 TT(Q)=ASC(MID$(TT$,Q,1))
  436. 4010 NEXTQ
  437. 4020 L2=LEN(VV$):FORQ=1TOL2
  438. 4030 VV(Q)=ASC(MID$(VV$,Q,1))
  439. 4040 NEXTQ
  440. 4050 FORK=1TOS:REM KURVEN
  441. 4060 FORW=1TOZ:REM WERTE
  442. 4070 INPUT#2,JZ(K,W)
  443. 4080 INPUT#2,ZZ(K,W)
  444. 4090 NEXTW
  445. 4100 NEXTK
  446. 4140 CLOSE2
  447. 4150 IFSP$="4"THEN SP$="":GOTO4470
  448. 4160 ART$="K":GOSUB4180
  449. 4170 GOTO1100
  450. 4180 REM - MAXIMUM -
  451. 4200 T=0
  452. 4210 PRINTCHR$(14)
  453. 4220 ME$="1"
  454. 4230 PRINT"[147]":GOTO4260
  455. 4240 IFME$="2"THENINPUT"[147]    [206]EUER [200]OECHSTWERT ";T1:PRINT"[147]"
  456. 4250 GOTO4410
  457. 4260 FORX=1TOS
  458. 4270 FORY=1TOZ
  459. 4280 IFX=1ANDY=2ANDABS(ZZ(1,1))>ABS(ZZ(1,2))THENT=ABS(ZZ(1,1)):GOTO4300
  460. 4290 IFABS(ZZ(X,Y))>TTHENT=ABS(ZZ(X,Y))
  461. 4300 NEXTY
  462. 4310 NEXTX
  463. 4320 T$=STR$(T):HZ=T
  464. 4330 IFVAL(T$)<1THENT=1:GOTO4410
  465. 4340 IFVAL(T$)<=10THENT=10:GOTO4410
  466. 4350 T=VAL(T$):T=INT(T):T$=STR$(T):REM GANZZAHLIG
  467. 4360 IFVAL(T$)<=100THENT=(T+10)-VAL(RIGHT$(T$,1)):GOTO4410
  468. 4370 IFVAL(T$)<=1000THENT=(T+100)-VAL(RIGHT$(T$,2)):GOTO4410
  469. 4380 IFVAL(T$)<=10000THENT=(T+1000)-VAL(RIGHT$(T$,3)):GOTO4410
  470. 4390 IFVAL(T$)<=100000THENT=(T+10000)-VAL(RIGHT$(T$,4)):GOTO4410
  471. 4400 IFVAL(T$)<=1000000THENT=(T+100000)-VAL(RIGHT$(T$,5)):GOTO4410
  472. 4405 IFVAL(T$)<=10000000THENT=(T+1000000)-VAL(RIGHT$(T$,6))
  473. 4410 IFBD$="H"ANDT1<T ANDT1>HZTHENB=T1:GOTO4440
  474. 4420 IFBD$="H"ANDT1>TTHENB=T1:GOTO4440
  475. 4430 B=T
  476. 4440 IFBD$=""THENC=1
  477. 4450 IFBD$="H"THENPRINT"[147]":GOTO1140:REM GRAFIK
  478. 4460 RETURN
  479. 4470 REM - ERWEITERUNG -
  480. 4480 FORK=1TOS
  481. 4490 PRINT"LETZTE JAHRESZAHL:"JZ(C,Z)
  482. 4500 PRINT"";
  483. 4510 PRINTK"[157].DATENBLOCK:[146]"
  484. 4520 PRINT"NEUE JAHRESZAHL "JZ(C,Z)+1"[157][157][157][157][157]";:INPUTJZ(K,Z+1)
  485. 4530 IFJZ(K,Z+1)=-1THEN3320
  486. 4550 INPUT"NEUER WERT ";ZZ(K,Z+1)
  487. 4560 PRINT"[147]"
  488. 4570 NEXTK
  489. 4580 Z=Z+1
  490. 4585 GOSUB4180:REM MAX
  491. 4590 PRINT"[147]         GRAFIK/ERWEITERN/DATEN"
  492. 4600 PRINTTAB(16)"(G/E/D) ?"
  493. 4610 GETGS$:IFGS$<>"G"ANDGS$<>"E"ANDGS$<>"D"THEN4610
  494. 4620 IFGS$="G"THEN1140
  495. 4630 IFGS$="D"THENAB$="B":GOTO3150
  496. 4640 IFGS$="E"THENPRINT"[147]":GOTO4480
  497. 4650 REM -- KORREKTUR --
  498. 4655 IFS=1THENDB=1:PRINT"[147]":GOTO4700
  499. 4660 PRINT"[147]       WELCHER DATENBLOCK ? (1-9)"
  500. 4670 GETDB$:IFDB$=""THEN4670
  501. 4680 DB=VAL(DB$)
  502. 4690 IFDB=0THEN3320
  503. 4700 INPUT"       WELCHES ELEMENT (1-60) ";EL
  504. 4705 IFEL=0THEN3320
  505. 4710 INPUT"NEUE JAHRESZAHL ";JZ(DB,EL)
  506. 4720 INPUT"NEUER WERT ";ZZ(DB,EL)
  507. 4730 GOSUB4180:REM MAX
  508. 4735 PRINTCHR$(142)
  509. 4740 PRINT"[147]           GRAFIK/AENDERN/DATEN"
  510. 4750 PRINTTAB(17)"(G/A/D) ?"
  511. 4760 GETWS$:IFWS$=""THEN4760
  512. 4770 IFWS$="G"THEN1140
  513. 4780 IFWS$="A"THENPRINT"[147]":GOTO4655
  514. 4790 IFWS$="D"THENAB$="B":GOTO3150
  515. 4800 GOTO4760
  516. 4810 REM - MALEN -
  517. 4820 ZK=0:FA=2:Q=2:X=160:Y=100
  518. 4830 (null)1:IFX>318THENX=318:GOTO4880
  519. 4840 IFX<2THENX=2:GOTO4880
  520. 4850 IFY<2THENY=2:GOTO4880
  521. 4860 IFY>198THENY=198:GOTO4880
  522. 4870 (null)1:(null)X,Y
  523. 4880 GETPA$:IFPA$=""THEN4880
  524. 4885 TI$="000000"
  525. 4890 IFPA$=CHR$(141)THEN(null)X,Y:GOTO4880
  526. 4900 IFPA$="_"THEN(null)0:(null)X,Y:(null)1:GOTO2340
  527. 4910 IFPA$=CHR$(20)THENX=X-7:(null)0:(null)X,Y," [146]":ZK=ZK-7:GOTO4880
  528. 4920 IFPA$=CHR$(13)THENX=X-ZK:Y=Y+8:ZK=0:GOTO4880
  529. 4930 IFPA$="[133]"THENFA=1:Q=1:GOTO4880
  530. 4940 IFPA$="[134]"THENFA=0:Q=1:GOTO4880
  531. 4950 IFPA$="[135]"THENFA=0:Q=2:GOTO4880
  532. 4970 IFPA$="[140]"THENFK=0:FA=0:GOTO4880
  533. 4980 IFPA$="[136]"THENFK=10:FA=0:GOTO4880
  534. 4990 IFPA$="[145]"AND(null)(X,Y-1)=1THEN(null)FA:(null)X,Y:Y=Y-Q-FK:GOTO4830
  535. 5000 IFPA$="[145]"THEN(null)FA:(null)X,Y:Y=Y-1-FK:GOTO4830
  536. 5010 IFPA$=""AND(null)(X+1,Y)=1THEN(null)FA:(null)X,Y:X=X+Q+FK:GOTO4830
  537. 5020 IFPA$=""THEN(null)FA:(null)X,Y:X=X+1+FK:ZK=0:GOTO4830
  538. 5030 IFPA$=""AND(null)(X,Y+1)=1THEN(null)FA:(null)X,Y:Y=Y+Q+FK:GOTO4830
  539. 5040 IFPA$=""THEN(null)FA:(null)X,Y:Y=Y+1+FK:GOTO4830
  540. 5050 IFPA$="[157]"AND(null)(X-1,Y)=1THEN(null)FA:(null)X,Y:X=X-Q-FK:GOTO4830
  541. 5060 IFPA$="[157]"THEN(null)FA:(null)X,Y:X=X-1-FK:GOTO4830
  542. 5070 IFPA$="*"THEN(null)0:(null)X,Y:(null)1:(null)0,OA$:(null) X+1,Y:GOTO2340
  543. 5080 IFPA$="[176]"THEN(null)0:(null)X,Y:X=10:Y=10:GOTO4830
  544. 5090 IFPA$="[191]"THEN(null)0:(null)X,Y:X=10:Y=90:GOTO4830
  545. 5100 IFPA$="[188]"THEN(null)0:(null)X,Y:X=10:Y=190:GOTO4830
  546. 5110 IFPA$="[172]"THEN(null)0:(null)X,Y:X=160:Y=10:GOTO4830
  547. 5120 IFPA$="[177]"THEN(null)0:(null)X,Y:X=160:Y=90:GOTO4830
  548. 5130 IFPA$="[187]"THEN(null)0:(null)X,Y:X=160:Y=190:GOTO4830
  549. 5140 IFPA$="[165]"THEN(null)0:(null)X,Y:X=310:Y=10:GOTO4830
  550. 5150 IFPA$="[180]"THEN(null)0:(null)X,Y:X=310:Y=90:GOTO4830
  551. 5160 IFPA$="[162]"THEN(null)0:(null)X,Y:X=310:Y=187:GOTO4830
  552. 5170 IFPA$<>""ANDPA$<>"[145]"ANDPA$<>""ANDPA$<>"[157]"ANDPA$<>"*"THEN5190
  553. 5180 GOTO4880
  554. 5190 IFPA$="[215]"THEN(null)0:(null)X,Y:(null)1:(null)X,Y,CHR$(14)+PA$:X=X+8:ZK=ZK+8:GOTO4880
  555. 5200 IFPA$="[205]"THEN(null)0:(null)X,Y:(null)1:(null)X,Y,CHR$(14)+PA$:X=X+8:ZK=ZK+8:GOTO4880
  556. 5210 (null)0:(null)X,Y:(null)1:(null)X,Y,CHR$(14)+PA$:X=X+7:ZK=ZK+7:GOTO4880
  557. 5220 REM - KREIS -
  558. 5230 S1=0:S2=0:FL=0
  559. 5240 (null):PRINTCHR$(14)
  560. 5250 IFS=1ORS=2THENNN=1:MM=2:GOTO5270
  561. 5260 INPUT"[147] [215]ELCHE BEIDEN [196]ATENBLOECKE (A,B) ";NN,MM
  562. 5270 (null)
  563. 5280 FORQW=1TOZ:S2=S2+ZZ(MM,QW)
  564. 5290 S1=S1+ZZ(NN,QW):NEXT
  565. 5300 (null)80,100,45,.9*56
  566. 5310 (null)80,51,80,100
  567. 5320 FORWE=1TOZ-1
  568. 5330 (null)80,100,44,.9*55,ZZ(NN,WE)*100/S1*3.6+FL
  569. 5340 FL=FL+ZZ(NN,WE)*100/S1*3.6
  570. 5350 NEXT
  571. 5360 IFS=1THENRETURN
  572. 5370 FL=0:REM 2.KREIS
  573. 5380 (null)240,100,45,.9*56
  574. 5390 (null)240,51,240,100
  575. 5400 FORWE=1TOZ-1
  576. 5410 (null)240,100,44,.9*55,ZZ(MM,WE)*100/S2*3.6+FL
  577. 5420 FL=FL+ZZ(MM,WE)*100/S2*3.6
  578. 5430 NEXT
  579. 5440 RETURN
  580. 5450 REM - DIR -
  581. 5460 PRINT"[147] 0 ";:OPEN1,8,0,"$":POKE781,1:SYS65478:GETA$,A$,A$,A$:X$=CHR$(0)
  582. 5470 FORI=1TO7:GETA$,B$,C$,D$:PRINTA$B$C$D$;:NEXT:PRINT:GETA$,A$,A$,B$
  583. 5480 IFSTTHENSYS65484:CLOSE1:GOSUB5990:PRINT"[147]":GOTO160
  584. 5490 PRINTASC(A$+X$)+256*ASC(B$+X$);
  585. 5500 GOTO5470
  586. 5510 REM - @-KORREKTUR -
  587. 5520 IFJK>W-1THENJK=W-1
  588. 5530 IFJK<1THENJK=1
  589. 5540 RETURN
  590. 5550 REM - BEREICHSDARSTELLUNG -
  591. 5560 FORX=1TOZ
  592. 5570 IFAJ=JZ(1,X)THENJK=X
  593. 5580 NEXTX
  594. 5590 RETURN
  595. 5600 REM - EINFUEGEN -
  596. 5610 INPUT"[147]AN WELCHER STELLE EINFUEGEN ";SL
  597. 5620 IFSL=0THEN3320
  598. 5625 IFSL>ZTHEN5610
  599. 5630 Z=Z+1
  600. 5640 FORX=1TOS
  601. 5650 FORY=ZTOSLSTEP-1
  602. 5660 JZ(X,Y)=JZ(X,Y-1):ZZ(X,Y)=ZZ(X,Y-1)
  603. 5670 NEXT:NEXT
  604. 5680 FORX=1TOS
  605. 5690 INPUT"NEUE JAHRESZAHL ";JZ(X,SL)
  606. 5700 INPUT"NEUER WERT ";ZZ(X,SL)
  607. 5710 NEXT
  608. 5720 AB$="B":GOTO3150
  609. 5810 REM - 3D -
  610. 5815 IFRIGHT$(DS$,2)=".-"THENRETURN
  611. 5820 IFBR$<>"4"THENRETURN
  612. 5830 PRINT"[147]"CHR$(142)
  613. 5840 PRINT"3-D-DARSTELLUNG ? (J/N)"
  614. 5850 GETD3$:IFD3$=""THEN5850
  615. 5860 PRINT"[147]":RETURN
  616. 5980 REM - WARTESCHLEIFE -
  617. 5990 GETWS$:IFWS$=""THEN5990
  618. 6000 RETURN
  619. 6010 REM - UEBERZEICHNEN -
  620. 6020 (null):PRINT"[147]"CHR$(14)"        [213]EBERZEICHNEN ? ([202]/[206]/@)"
  621. 6030 GETEZ$:IFEZ$=""THEN6030
  622. 6040 IFEZ$="@"THENBD$="@"
  623. 6050 PRINT"[147]":GOTO1100
  624. 6070 REM - LISTE -
  625. 6080 PRINTCHR$(142)"[147]"TAB(10)"GRAPHIK/DATEN ? (G/D)"
  626. 6090 GETWS$:IFWS$=""THEN6090
  627. 6100 IFWS$="G"THENPRINT"[147]":RETURN
  628. 6110 AB$="B":GOTO3150
  629. 10000 REM - MUSTERWAHL -
  630. 10001 O1$="FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF"
  631. 10002 O2$="4444111144441111444411114444111144441111444411114444111144441111"
  632. 10003 O3$="FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000"
  633. 10004 O4$="5555555555555555555555555555555555555555555555555555555555555555"
  634. 10005 O5$="8888444422221111888844442222111188884444222211118888444422221111"
  635. 10006 O6$="1111222244448888111122224444888811112222444488881111222244448888"
  636. 10007 O7$="0000000000000000000000000000000000000000000000000000000000000000"
  637. 10008 IFBD$<>"F"THENRETURN
  638. 10009 GETWS$:IFWS$=""THEN10009
  639. 10010 IFWS$="1"THENMU$=O1$
  640. 10020 IFWS$="2"THENMU$=O2$
  641. 10030 IFWS$="3"THENMU$=O3$
  642. 10040 IFWS$="4"THENMU$=O4$
  643. 10050 IFWS$="5"THENMU$=O5$
  644. 10060 IFWS$="6"THENMU$=O6$
  645. 10065 IFWS$="0"THENMU$=O7$
  646. 10070 BD$="F":RETURN
  647. 20000 REM - MIN-SKALA -
  648. 21510 MF=10:TE=B/10
  649. 21520 FORX=27TO91STEP15
  650. 21530 ZA=TE*MF
  651. 21540 (null)1,1,7,0
  652. 21550 (null)56-(6*LEN(STR$(ZA))),X,STR$(ZA)
  653. 21560 MF=MF-2
  654. 21570 NEXT
  655. 22510 MF=2:TE=B/10:REM MINUSBEREICH
  656. 22520 FORX=117TO177STEP15
  657. 22530 ZA=-TE*MF
  658. 22540 (null)1,1,7,0
  659. 22550 (null)56-(6*LEN(STR$(ZA))),X,STR$(ZA)
  660. 22560 MF=MF+2
  661. 22570 NEXT
  662. 23000 GOTO1580
  663. 25000 REM - TIME -
  664. 25010 IFVAL(TI$)>120THENPOKE53265,11:TI$="000000":RETURN
  665. 25012 GOTO25020
  666. 25015 IFVAL(TI$)>120THENPRINT"[147]":(null):GOTO3320
  667. 25020 RETURN
  668. 30000 REM - DATAS -
  669. 30010 DATAJ,F,M,A,M,J,J,A,S,O,N,D
  670.