home *** CD-ROM | disk | FTP | other *** search
/ Rockford Magazine / Rockford_Magazine_001_19xx_-_de_Side_B.d64 / termin-kalender (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  15KB  |  416 lines
  1. 10 y=365:dimd$(y,15)
  2. 20 nv$=" uhr ........................"
  3. 30 poke53280,0:poke53281,0:print"[147]     elektronischer termin-kalender     [146]";
  4. 50 o=59903:o1=781
  5. 60 a$="[171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]"
  6. 70 a1$="[194]                                      [146][194]"
  7. 80 m$="[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  8. 90 m1$="[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
  9. 100 m2$="        welche zeile ( 1-e )  ?         [146]"
  10. 110 m3$="     weitere korrekturen < j/n >  ?     [146]"
  11. 120 print"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]";
  12. 130 fori=0to19:print"[194]                                      [194]";:next
  13. 140 print"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
  14. 150 print"[194]disk-optionen:[146]   < 1 > daten einlesen [194]";
  15. 160 print"[194]                 < 2 > daten speichern[194]";a$;
  16. 170 print"[194]prg - optionen:[146]  < 3 > daten eingabe  [194]";
  17. 180 print"[194]                 < 4 > daten ausgabe  [194]";
  18. 190 print"[194]                 < 5 > daten suchen   [194]";
  19. 200 print"[194]                 < 6 > daten loeschen [194]";
  20. 210 print"[194]                 < 7 > datei loeschen [194]";
  21. 220 print"[194]                 < 8 > parameter ausg.[194]";
  22. 230 print"[194]                 < 0 > prg. beenden   [194]";a$;
  23. 240 print"[194]drucker-optionen:[146]< e > einzelausdruck [194]";
  24. 250 print"[194]                 < a > alle daten     [194]";
  25. 260 print"[194]                 < b > best. bereiche [194]";a$
  26. 270 gosub1170
  27. 280 gete$:ife$=""then280
  28. 290 ife$="1"thenprint"[147]":goto2330
  29. 300 ife$="2"thenprint"[147]":goto2120
  30. 310 ife$="3"thenprint"[147]":goto450
  31. 320 ife$="4"thenprint"[147]":goto1230
  32. 330 ife$="5"thenprint"[147]":goto1430
  33. 340 ife$="6"thenprint"[147]":goto1700
  34. 350 ife$="7"thenprint"[147]":goto1850
  35. 360 ife$="8"thenprint"[147]":goto2000
  36. 370 ife$="0"thensys64767
  37. 380 ife$="e"thenprint"[147]":goto2590
  38. 390 ife$="a"thenprint"[147]":goto2990
  39. 400 ife$="b"thenprint"[147]":goto3060
  40. 410 goto280
  41. 420 a=a+1
  42. 430 gosub670:gosub700:gosub710:gosub730:gosub750:gosub770:gosub790:gosub810
  43. 440 gosub830:gosub850:gosub860:gosub870:gosub880:gosub890:gosub900:goto920
  44. 450 gosub480:gosub490:gosub510:gosub520:gosub530:gosub540:gosub550
  45. 460 gosub560:gosub570:gosub580:gosub590:gosub600:gosub610:gosub620:gosub630:gosub640
  46. 470 gosub650:goto420
  47. 480 print""m$;:print"[180]            daten  eingabe            [146][170]";m1$
  48. 490 print" datum :[146]  ..........":printspc(10)"[163][163][163][163][163][163][163][163][163][163]":return
  49. 510 print"1)  7.00"nv$:return
  50. 520 print"2)  8.00"nv$:return
  51. 530 print"3)  9.00"nv$:return
  52. 540 print"4) 10.00"nv$:return
  53. 550 print"5) 11.00"nv$:return
  54. 560 print"6) 12.00"nv$:return
  55. 570 print"7) 13.00"nv$:return
  56. 580 print"8) 14.00"nv$:return
  57. 590 print"9) 15.00"nv$:return
  58. 600 print"a) 16.00"nv$:return
  59. 610 print"b) 17.00"nv$:return
  60. 620 print"c) 18.00"nv$:return
  61. 630 print"d) 19.00"nv$:return
  62. 640 print"e) 20.00"nv$:return
  63. 650 print"weitere eingaben < f1 >     menue < f7 >";
  64. 660 print"        eingabenkorrektur < f3 >        ";:return
  65. 670 r=4:p=10:l=10:gosub970:d$(a,1)=x$
  66. 679 ifd$(a,1)=""then670
  67. 680 ifmid$(d$(a,1),4,1)>"12"then670
  68. 681 ifleft$(d$(a,1),1)<"01"then670
  69. 682 ifleft$(d$(a,1),2)>"31"then670
  70. 683 ifmid$(d$(a,1),3,1)<>"."ormid$(d$(a,1),6,1)<>"."then670
  71. 684 ifright$(d$(a,1),4)>"2000"then670
  72. 690 return
  73. 700 r=6:p=13:l=23:gosub970:d$(a,2)=x$:return
  74. 710 r=7:gosub970:d$(a,3)=x$
  75. 720 ifd$(a,3)=""thend$(a,3)="."
  76. 725 return
  77. 730 r=8:gosub970:d$(a,4)=x$
  78. 740 ifd$(a,4)=""thend$(a,4)="."
  79. 745 return
  80. 750 r=9::gosub970:d$(a,5)=x$
  81. 760 ifd$(a,5)=""thend$(a,5)="."
  82. 765 return
  83. 770 r=10:gosub970:d$(a,6)=x$
  84. 780 ifd$(a,6)=""thend$(a,6)="."
  85. 785 return
  86. 790 r=11:gosub970:d$(a,7)=x$
  87. 800 ifd$(a,7)=""thend$(a,7)="."
  88. 805 return
  89. 810 r=12:gosub970:d$(a,8)=x$
  90. 820 ifd$(a,8)=""thend$(a,8)="."
  91. 825 return
  92. 830 r=13:gosub970:d$(a,9)=x$
  93. 840 ifd$(a,9)=""thend$(a,9)="."
  94. 845 return
  95. 850 r=14:gosub970:d$(a,10)=x$
  96. 855 ifd$(a,10)=""thend$(a,10)="."
  97. 856 return
  98. 860 r=15:gosub970:d$(a,11)=x$
  99. 865 ifd$(a,11)=""thend$(a,11)="."
  100. 866 return
  101. 870 r=16:gosub970:d$(a,12)=x$
  102. 875 ifd$(a,12)=""thend$(a,12)="."
  103. 876 return
  104. 880 r=17:gosub970:d$(a,13)=x$
  105. 885 ifd$(a,13)=""thend$(a,13)="."
  106. 886 return
  107. 890 r=18:gosub970:d$(a,14)=x$
  108. 895 ifd$(a,14)=""thend$(a,14)="."
  109. 896 return
  110. 900 r=19:gosub970:d$(a,15)=x$
  111. 905 ifd$(a,15)=""thend$(a,15)="."
  112. 910 return
  113. 920 poke198,0:wait198,1:gete$
  114. 930 ife$="[136]"thenclose1:close2:goto30
  115. 940 ife$="[133]"thenfori=4to20:poke781,i:sys59903:next:goto450
  116. 950 ife$="[134]"thengosub3220:gosub650:goto920
  117. 960 goto920
  118. 970 x$="":poke214,r:poke211,p:sys58640:z=0
  119. 980 getw$:ifw$=""thenprint"<[146][157]";:goto980
  120. 990 ifasc(w$)=136thenpoke204,1:a=a-1:goto30
  121. 1000 ifasc(w$)=35orasc(w$)=64orasc(w$)>94then980
  122. 1010 ifasc(w$)=13andlen(x$)<>lthenprint" ":goto1070
  123. 1020 ifasc(w$)=29orasc(w$)=17orasc(w$)=19orasc(w$)=145then980
  124. 1030 ifasc(w$)=13andlen(x$)=lthenprint" ":goto1070
  125. 1040 ifasc(w$)=20thenprint".":goto1080
  126. 1041 ifasc(w$)=34then980
  127. 1050 iflen(x$)=lthen980
  128. 1060 printw$;:x$=x$+w$:z=z+1:goto980
  129. 1070 return
  130. 1080 iflen(x$)=0thenw$="":goto970
  131. 1090 iflen(w$)=0goto980
  132. 1100 ifz=0goto980
  133. 1110 w$=left$(w$,len(w$)-1)
  134. 1120 x$=left$(x$,len(x$)-1)
  135. 1130 poke214,r:poke211,p:sys58640
  136. 1140 printx$;:z=z-1
  137. 1150 poke214,r:poke211,p+len(x$):sys58640:goto980
  138. 1160 return
  139. 1170 gosub2570:ifst<>-128then1190
  140. 1180 print"[194]      drucker nicht eingeschaltet [146]    [194]":goto1200
  141. 1190 print"[194]         drucker eingeschaltet [146]       [194]"
  142. 1200 gosub2580:ifst<>-128then1220
  143. 1210 print"  floppylaufwerk nicht eingeschaltet [146] [157]":return
  144. 1220 print"     floppylaufwerk  eingeschaltet [146]   [157]":return
  145. 1230 print""m$;:print"[180]            daten  ausgabe            [146][170]";m1$:l=13
  146. 1240 ifa=0thenprint"        keine daten im rechner !":fors=0to3000:next:goto30
  147. 1250 gosub490:gosub510:gosub520:gosub530:gosub540:gosub550:gosub560:gosub570:gosub580:gosub590
  148. 1260 gosub600:gosub610:gosub620:gosub630:gosub640
  149. 1270 forw=1toa:print""spc(10)d$(w,1)
  150. 1280 print""spc(l)d$(w,2):printspc(l)d$(w,3):printspc(l)d$(w,4)
  151. 1290 printspc(l)d$(w,5):printspc(l)d$(w,6):printspc(l)d$(w,7):printspc(l)d$(w,8)
  152. 1300 printspc(l)d$(w,9):printspc(l)d$(w,10):printspc(l)d$(w,11):printspc(l)d$(w,12)
  153. 1310 printspc(l)d$(w,13):printspc(l)d$(w,14):printspc(l)d$(w,15)
  154. 1320 print"weitere ausgaben < f1 >     menue < f7 >";
  155. 1330 print"            korrektur < f3 >            ";
  156. 1340 gete$:ife$=""then1340
  157. 1350 ife$="[133]"then1400
  158. 1360 ife$="[136]"then30
  159. 1370 ife$="[134]"thengosub3450:goto1320
  160. 1380 goto1340
  161. 1400 ifw=athenfori=4to19:pokeo1,i:syso:next:goto5000
  162. 1410 gosub490:gosub510:gosub520:gosub530:gosub540:gosub550:gosub560:gosub570:gosub580
  163. 1415 gosub590:gosub600:gosub610:gosub620:gosub630:gosub640
  164. 1420 next
  165. 1430 print""m$;"[180]             daten suchen             [146][170]";m1$
  166. 1440 ifa=0thenprint"        keine daten im rechner !":fors=0to3000:next:goto30
  167. 1450 print"     bitte geben sie das datum ein,"
  168. 1460 printspc(7)"dessen daten sie suchen :"
  169. 1470 printspc(15)".........."
  170. 1480 printspc(10)"zum menue mit < * >":r=12:p=15:l=16:gosub970
  171. 1490 fors=1toa:ifx$=d$(s,1)then1540
  172. 1500 next:fori=4to20:pokeo1,i:syso:next
  173. 1510 ifx$="*"then30
  174. 1520 print"        keine daten vorhanden  !"
  175. 1530 fori=0to2000:next:goto30
  176. 1540 fori=4to20:pokeo1,i:syso:next:print""m$
  177. 1550 print""m$;"[180]     ausgabe der gesuchten daten      [146][170]";:l=13
  178. 1560 gosub490:gosub510:gosub520:gosub530:gosub540:gosub550:gosub560:gosub570:gosub580:gosub590:gosub600
  179. 1570 gosub610:gosub620:gosub630:gosub640
  180. 1580 print""spc(10)d$(s,1)
  181. 1590 print""spc(l)d$(s,2):printspc(l)d$(s,3):printspc(l)d$(s,4):printspc(l)d$(s,5)
  182. 1600 printspc(l)d$(s,6):printspc(l)d$(s,7):printspc(l)d$(s,8):printspc(l)d$(s,9)
  183. 1610 printspc(l)d$(s,10):printspc(l)d$(s,11):printspc(l)d$(s,12):printspc(l)d$(s,13):printspc(l)d$(s,14)
  184. 1620 printspc(l)d$(s,15)
  185. 1630 print"weiter suchen < f1 >        menue < f7 >";
  186. 1640 print"            korrektur < f3 >            ";
  187. 1650 gete$:ife$=""then1650
  188. 1660 ife$="[133]"then1500
  189. 1670 ife$="[136]"then30
  190. 1680 ife$="[134]"thengosub3680:goto1630
  191. 1690 goto1650
  192. 1700 print""m$;:print"[180]            daten loeschen            [146][170]";m1$
  193. 1710 ifa=0thenprint"        keine daten im rechner !":fors=0to3000:next:goto30
  194. 1720 print"       bitte geben sie das datum"
  195. 1730 printspc(8)"ein, dessen daten sie zu"
  196. 1740 printspc(10)"loeschen wuenschen :"
  197. 1750 printspc(12)"................"
  198. 1760 printspc(10)"zum menue mit < * >":r=13:p=12:l=16:gosub970
  199. 1770 fors=1toa:ifx$=d$(s,1)then1820
  200. 1780 ifx$="*"then30
  201. 1790 next
  202. 1800 fori=7to15:pokeo1,i:syso:next
  203. 1810 print"zu loeschender datensatz nicht gefunden!":fori=0to2000:next:goto30
  204. 1820 fore=stoa-1:forf=1to15:d$(e,f)=d$(e+1,f):nextf,e:forf=1to10:d$(a,f)="":next:a=a-1
  205. 1830 print""m$;:print"[180]   ihr angegebener datensatz wurde    [146][170]";
  206. 1840 print"[180]          soeben geloescht !          [146][170]";m1$:fori=0to3000:next:goto30
  207. 1850 print""m$;:print"[180]            datei loeschen            [146][170]";m1$
  208. 1860 print"sie sind im begriff, ihre gesamten daten"
  209. 1870 print"  zu loeschen !  wollen sie ihre datei"
  210. 1880 printspc(6)"wirklich loeschen < j/n [146]>  ?"
  211. 1890 gete$:ife$=""then1890
  212. 1900 ife$="j"then1930
  213. 1910 ife$="n"then30
  214. 1920 goto1890
  215. 1930 gosub2580
  216. 1940 ifst<>-128then1960
  217. 1950 pokeo1,13:syso:goto2220
  218. 1960 open1,8,15,"s:dixy-daten":close1
  219. 1970 fori=7to13:pokeo1,i:syso:next
  220. 1980 print""m$;:print"[180] ihre datei wurde soeben geloescht  ! [146][170]";m1$
  221. 1990 fori=0to2000:next:goto30
  222. 2000 print""m$;:print"[180]          parameter  ausgabe          [146][170]";m1$
  223. 2010 p$=right$(str$(1000+(y-a)),3)
  224. 2020 p1$=right$(str$(1000+a),3)
  225. 2030 print""m$;:print"[180]                                      [146][170]";
  226. 2040 print"[180]        leere datensaetze "p$"         [146][170]";
  227. 2050 print"[180]                                      [146][170]";
  228. 2060 print"[180]        volle datensaetze "p1$"         [146][170]";
  229. 2069 print"[180]                                      [146][170]";m1$:se=(100*a)/y
  230. 2070 p3=int(se*10^2+.5)/10^2
  231. 2071 print""p3"% der gesamten datenkapazitaet"
  232. 2080 printspc(10)"zum menue mit < * >"
  233. 2090 gete$:ife$=""then2090
  234. 2100 ife$="*"then30
  235. 2110 goto2090
  236. 2120 print""m$;:print"[180]           daten  speichern           [146][170]";m1$
  237. 2130 ifa=0thenprint"        keine daten im rechner !":fors=0to3000:next:goto30
  238. 2140 printspc(4)"bitte datendiskette einlegen und"
  239. 2150 printspc(6)"< return [146]>  taste druecken !"
  240. 2160 printspc(10)"zum menue mit < * >"
  241. 2170 gete$:ife$=""then2170
  242. 2180 ife$="*"then30
  243. 2190 ife$=chr$(13)then2210
  244. 2200 goto2170
  245. 2210 gosub2580:ifst<>-128then2240
  246. 2220 print""m$;:print"[180]floppy-laufwerk nicht eingeschaltet ! [146][170]";m1$
  247. 2230 forw=0to3000:next:goto30
  248. 2240 close1:open1,8,15:close3:open3,8,3,"@:dixy-daten,s,w":input#1,q
  249. 2250 ifq=0then2280
  250. 2260 gosub2560:close1:close3:print""m$;
  251. 2270 print"[180]disketten - fehler ! bitte beheben  ! [146][170]";m1$:goto2230
  252. 2280 fori=6to12:pokeo1,i:syso:next:print#3,a:fork=1toa:forp=1to15
  253. 2290 t$=right$(str$(1000+k),3)
  254. 2300 print""m$;:print"[180]  datensatz nr. "t$" beim speichern !  [146][170]";m1$
  255. 2310 print#3,d$(k,p):next:next:close3:close1
  256. 2320 print""m$;:print"[180]      daten sind abgespeichert !      [146][170]";m1$:goto2230
  257. 2330 print""m$;:print"[180]            daten einlesen            [146][170]";m1$
  258. 2340 ifa=0then2370
  259. 2350 ifa>0thenprint"es befinden sich noch daten im rechner !":fors=0to3000:next
  260. 2360 goto30
  261. 2370 printspc(4)"bitte datendiskette einlegen und"
  262. 2380 printspc(6)"< return [146]>  taste druecken !":printspc(10)"zum menue mit < * >"
  263. 2400 gete$:ife$=""then2400
  264. 2410 ife$="*"then30
  265. 2420 ife$=chr$(13)then2440
  266. 2430 goto2400
  267. 2440 gosub2580:ifst<>-128then2470
  268. 2450 gosub2560
  269. 2460 print""m$;:print"[180]floppy-laufwerk nicht eingeschaltet ! [146][170]";m1$:goto2230
  270. 2470 close1:open1,8,15:close3:open3,8,3,"dixy-daten,s,r":input#1,q
  271. 2480 ifq=0then2510
  272. 2490 gosub2560:close1:close3:print""m$;
  273. 2500 print"[180]disketten - fehler ! bitte beheben  ! [146][170]";m1$:goto2230
  274. 2510 gosub2560:input#3,a:fork=1toa:forg=1to15
  275. 2520 t1$=right$(str$(1000+k),3)
  276. 2530 print""m$;:print"[180]  datensatz nr. "t1$" beim einlesen  !  [146][170]";m1$
  277. 2540 input#3,d$(k,g):next:next:close3:close1
  278. 2550 print""m$;:print"[180]       daten sind eingelesen  !       [146][170]";m1$:goto2230
  279. 2560 fori=6to12:pokeo1,i:syso:next:return
  280. 2570 poke768,61:open1,4,7:print#1,"";:close1:poke768,139:return
  281. 2580 poke768,61:open1,8,15:close1:poke768,139:return
  282. 2590 print""m$;:print"[180]         daten einzelausdruck         [146][170]";m1$
  283. 2600 ifa=0thenprint"        keine daten im rechner !":fors=0to3000:next:goto30
  284. 2610 gosub2570:ifst<>-128then2640
  285. 2620 print""m$;:print"[180]  drucker ist nicht eingeschaltet  !  [146][170]";m1$
  286. 2630 fori=0to2000:next:goto30
  287. 2640 print"     bitte geben sie das datum ein,"
  288. 2650 print"dessen daten sie ausdrucken moechten :"
  289. 2660 printspc(9)"ausdrucken moechten:"
  290. 2670 printspc(15)".........."
  291. 2680 printspc(10)"zum menue mit < * >":r=13:p=15:l=16:gosub970
  292. 2690 fors=1toa:ifx$=d$(s,1)then2730
  293. 2700 next:fori=7to17:pokeo1,i:syso:next
  294. 2710 ifx$="*"then30
  295. 2720 print"        keine daten vorhanden  !":fori=0to2000:next:goto30
  296. 2730 fori=4to20:pokeo1,i:syso:next
  297. 2740 print""m$;"[180]      daten werden ausgedruckt !      [146][170]";m1$:gosub2760
  298. 2750 goto2940
  299. 2760 open1,4,1:print#1,chr$(27)+"s"+chr$(1)+chr$(15);
  300. 2770 print#1,spc(5)" datum     : ";d$(s,1)+chr$(10)
  301. 2780 print#1,spc(5)" 7.00 uhr  : ";d$(s,2)+chr$(10)
  302. 2790 print#1,spc(5)" 8.00 uhr  : ";d$(s,3)+chr$(10)
  303. 2800 print#1,spc(5)" 9.00 uhr  : ";d$(s,4)+chr$(10)
  304. 2810 print#1,spc(5)"10.00 uhr  : ";d$(s,5)+chr$(10)
  305. 2820 print#1,spc(5)"11.00 uhr  : ";d$(s,6)+chr$(10)
  306. 2830 print#1,spc(5)"12.00 uhr  : ";d$(s,7)+chr$(10)
  307. 2840 print#1,spc(5)"13.00 uhr  : ";d$(s,8)+chr$(10)
  308. 2850 print#1,spc(5)"14.00 uhr  : ";d$(s,9)+chr$(10)
  309. 2860 print#1,spc(5)"15.00 uhr  : ";d$(s,10)+chr$(10)
  310. 2870 print#1,spc(5)"16.00 uhr  : ";d$(s,11)+chr$(10)
  311. 2880 print#1,spc(5)"17.00 uhr  : ";d$(s,12)+chr$(10)
  312. 2890 print#1,spc(5)"18.00 uhr  : ";d$(s,13)+chr$(10)
  313. 2900 print#1,spc(5)"19.00 uhr  : ";d$(s,14)+chr$(10)
  314. 2910 print#1,spc(5)"20.00 uhr  : ";d$(s,15)+chr$(10)
  315. 2920 print#1,spc(5)"-------------------------------------"
  316. 2930 print#1,chr$(24):close1:return
  317. 2940 print"weitere einzeldaten ausdrucken < j/n > ?"
  318. 2950 gete$:ife$=""then2950
  319. 2960 ife$="n"then30
  320. 2970 ife$="j"thenprint"[147]":goto2590
  321. 2980 goto2950
  322. 2990 print""m$;:print"[180]         ausdruck aller daten         [146][170]";m1$
  323. 3000 ifa=0thenprint"        keine daten im rechner !":fors=0to3000:next:goto30
  324. 3010 gosub2570:ifst<>-128then3040
  325. 3020 print""m$;:print"[180]  drucker ist nicht eingeschaltet  !  [146][170]";m1$
  326. 3030 fori=0to2000:next:goto30
  327. 3040 print""m$;"[180]      daten werden ausgedruckt !      [146][170]";m1$
  328. 3050 fors=1toa:gosub2760:next:goto30
  329. 3060 print""m$;:print"[180]    bestimmte bereiche ausdrucken     [146][170]";m1$
  330. 3070 ifa=0thenprint"        keine daten im rechner !":fors=0to3000:next:goto30
  331. 3080 gosub2570:ifst<>-128then3110
  332. 3090 print""m$;:print"[180]  drucker ist nicht eingeschaltet  !  [146][170]";m1$
  333. 3100 fori=0to2000:next:goto30
  334. 3110 print"   bitte geben sie den bereich der zu"
  335. 3120 printspc(6)"druckenden datensaetze ein :"
  336. 3130 printspc(12)"von 1.. bis"a"[157].."
  337. 3140 print"          zum menue mit < * >           "
  338. 3150 r=11:p=16:l=3:gosub970:x=val(x$)
  339. 3160 ifx$="*"then30
  340. 3170 r=11:p=24:l=3:gosub970:y=val(x$)
  341. 3180 ify>aorx>ythenx$="":x=0:y=0:goto3200
  342. 3190 goto3210
  343. 3200 print"      bereich falsch angewaehlt  !":fori=0to2000:next:goto3060
  344. 3210 fors=xtoy:gosub2760:next:goto30
  345. 3220 printm2$;"             zurueck < * >              ";
  346. 3230 gete$:ife$=""then3230
  347. 3240 ife$="*"thenreturn
  348. 3250 ife$="1"thend$(a,2)="":gosub700:goto3400
  349. 3260 ife$="2"thend$(a,3)="":gosub710:goto3400
  350. 3270 ife$="3"thend$(a,4)="":gosub730:goto3400
  351. 3280 ife$="4"thend$(a,5)="":gosub750:goto3400
  352. 3290 ife$="5"thend$(a,6)="":gosub770:goto3400
  353. 3300 ife$="6"thend$(a,7)="":gosub790:goto3400
  354. 3310 ife$="7"thend$(a,8)="":gosub810:goto3400
  355. 3320 ife$="8"thend$(a,9)="":gosub830:goto3400
  356. 3330 ife$="9"thend$(a,10)="":goto850:goto3400
  357. 3340 ife$="a"thend$(a,11)="":goto860:goto3400
  358. 3350 ife$="b"thend$(a,12)="":goto870:goto3400
  359. 3360 ife$="c"thend$(a,13)="":goto880:goto3400
  360. 3370 ife$="d"thend$(a,14)="":goto890:goto3400
  361. 3380 ife$="d"thend$(a,15)="":goto900:goto3400
  362. 3390 goto3230
  363. 3400 printm3$;"                                        ";
  364. 3410 gete$:ife$=""then3410
  365. 3420 ife$="j"then3220
  366. 3430 ife$="n"thenreturn
  367. 3440 goto3410
  368. 3450 printm2$;"             zurueck < * >              ";
  369. 3460 gete$:ife$=""then3460
  370. 3470 ife$="1"thend$(w,2)="":gosub700:d$(w,2)=d$(a,2):goto3630
  371. 3480 ife$="*"thenreturn
  372. 3490 ife$="2"thend$(w,3)="":gosub710:d$(w,3)=d$(a,3):goto3630
  373. 3500 ife$="3"thend$(w,4)="":gosub730:d$(w,4)=d$(a,4):goto3630
  374. 3510 ife$="4"thend$(w,5)="":gosub750:d$(w,5)=d$(a,5):goto3630
  375. 3520 ife$="5"thend$(w,6)="":gosub770:d$(w,6)=d$(a,6):goto3630
  376. 3530 ife$="6"thend$(w,7)="":gosub790:d$(w,7)=d$(a,7):goto3630
  377. 3540 ife$="7"thend$(w,8)="":gosub810:d$(w,8)=d$(a,8):goto3630
  378. 3550 ife$="8"thend$(w,9)="":gosub830:d$(w,9)=d$(a,9):goto3630
  379. 3560 ife$="9"thend$(w,10)="":gosub850:d$(w,10)=d$(a,10):goto3630
  380. 3570 ife$="a"thend$(w,11)="":gosub860:d$(w,11)=d$(a,11):goto3630
  381. 3580 ife$="b"thend$(w,12)="":gosub870:d$(w,12)=d$(a,12):goto3630
  382. 3590 ife$="c"thend$(w,13)="":gosub880:d$(w,13)=d$(a,13):goto3630
  383. 3600 ife$="d"thend$(w,14)="":gosub890:d$(w,14)=d$(a,14):goto3630
  384. 3610 ife$="e"thend$(w,15)="":gosub900:d$(w,15)=d$(a,15):goto3630
  385. 3620 goto3460
  386. 3630 printm3$;"                                        ";
  387. 3640 gete$:ife$=""then3640
  388. 3650 ife$="j"then3450
  389. 3660 ife$="n"thenreturn
  390. 3670 goto3640
  391. 3680 printm2$;"             zurueck < * >              ";
  392. 3690 gete$:ife$=""then3690
  393. 3700 ife$="1"thend$(s,2)="":gosub700:d$(s,2)=d$(a,2):goto3860
  394. 3710 ife$="*"thenreturn
  395. 3720 ife$="2"thend$(s,3)="":gosub710:d$(s,3)=d$(a,3):goto3860
  396. 3730 ife$="3"thend$(s,4)="":gosub730:d$(s,4)=d$(a,4):goto3860
  397. 3740 ife$="4"thend$(s,5)="":gosub750:d$(s,5)=d$(a,5):goto3860
  398. 3750 ife$="5"thend$(s,6)="":gosub770:d$(s,6)=d$(a,6):goto3860
  399. 3760 ife$="6"thend$(s,7)="":gosub790:d$(s,7)=d$(a,7):goto3860
  400. 3770 ife$="7"thend$(s,8)="":gosub810:d$(s,8)=d$(a,8):goto3860
  401. 3780 ife$="8"thend$(s,9)="":gosub830:d$(s,9)=d$(a,9):goto3860
  402. 3790 ife$="9"thend$(s,10)="":goto850:d$(s,10)=d$(a,10):goto3860
  403. 3800 ife$="a"thend$(s,11)="":goto860:d$(s,11)=d$(a,11):goto3860
  404. 3810 ife$="b"thend$(s,12)="":goto870:d$(s,12)=d$(a,12):goto3860
  405. 3820 ife$="c"thend$(s,13)="":goto880:d$(s,13)=d$(a,13):goto3860
  406. 3830 ife$="d"thend$(s,14)="":goto890:d$(s,14)=d$(a,14):goto3860
  407. 3840 ife$="e"thend$(s,15)="":goto900:d$(s,15)=d$(a,15):goto3860
  408. 3850 goto3690
  409. 3860 printm3$;"                                        ";
  410. 3870 gete$:ife$=""then3870
  411. 3880 ife$="j"then3680
  412. 3890 ife$="n"thenreturn
  413. 3900 goto3870
  414. 5000 print"[146]      keine daten mehr vorhanden !":fori=0to3000:next:goto30
  415. 0 
  416.