home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 September / 64er_Magazin_85-09_1985_Markt__Technik_de.d64 / pruefungsfragen (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  11KB  |  441 lines
  1. 10 rem programmierte fragen
  2. 20 poke 53280,12:poke53281,0
  3. 100 print chr$(147)
  4. 101 if a=0 then a=1:load"print obj",8,1
  5. 102 if a=1 then a=2:load"in21 obj",8,1
  6. 103 if a=2 then a=3:load"bildschirm obj",8,1
  7. 104 if a=3 then a=4:load"read10 obj",8,1
  8. 105 if a=4 then a=5:load"drucker obj",8,1
  9. 110 pr=12*16^3   : dr=pr+6*16^2
  10. 111 in=pr+1*16^2 : bi=pr+3*16^2
  11. 112 wr=pr+5*16^2 : re=wr+13*16+10
  12. 113 dim l(99,2),m$(15),sp(15),ze(15)
  13. 114 printchr$(14):poke 657,128
  14. 118 au=0:ko$="[208]ruefungsfragen":gosub 11000:rem kopf
  15. 119 sys pr,01,01,"[200]. [199]oelker / 28.03.84[154]"
  16. 125 m$(1)= " [196]ruck.einst. ":sp(1)=0:ze(1)=24
  17. 130 m$(2)= " [194]eschreibung ":sp(2)=16:ze(2)=24
  18. 135 m$(3)= " [211]tart ":sp(3)=32:ze(3)=24:nn=3:j=2:gosub14010
  19. 140 if x$=chr$(136) then 118
  20. 145 if j=3 then 156
  21. 150 on j gosub 15000,16000
  22. 151 goto 118
  23. 156 ko$="[208]ruefungsfragen":gosub11000
  24. 158 gosub 13000
  25. 159 if x$=chr$(136) then 118
  26. 160 gosub10700:ko$="[208]ruefungsfragen":gosub 11000
  27. 162 m$(1)=" lernen ":sp(1)=7:ze(1)=24
  28. 164 m$(2)=" bearbeiten ":sp(2)=22:ze(2)=24 :nn=2
  29. 166 gosub 14000
  30. 168 if x$=chr$(136) then 118
  31. 170 on j gosub 200,800
  32. 180 goto 160
  33. 190 :
  34. 200 rem aufgaben lernen ***************
  35. 210 ko$="[193]ufgaben lernen":gosub11000
  36. 230 gosub 12500
  37. 240 if x$=chr$(136)then return
  38. 245 if f=0 then gosub 10000
  39. 250 if n>0  then 300
  40. 255 gosub 11400
  41. 260 sys pr,07,24,"[203]eine [193]ufgaben gespeichert"chr$(145)
  42. 270 get x$:if x$=""then 270
  43. 280 sa$="":return
  44. 300 for i=1 to n:l(i,1)=i:l(i,2)=0:next
  45. 310 max=n
  46. 320 t=int(rnd(1)*max)+1:r=l(t,1)
  47. 330 if l(t,2)=0 then fr=fr+1
  48. 340 gosub17000:gosub10600:remkopf/frage
  49. 350 sys pr,00,24,"[196]eine [193]ntwort   ?";
  50. 360 sys in,18,24,21,1,er$
  51. 365 if peek(828)=136 then 700
  52. 370 if er$<>aw$ then 500
  53. 380 if l(t,2)=0 then ri=ri+1
  54. 390 l(t,1)=l(max,1):l(t,2)=l(max,2)
  55. 400 max=max-1
  56. 410 gosub11400:rem fusszeilen loeschen
  57. 420 sys pr,12,23," ** richtig ** "
  58. 440 getx$:if x$<>chr$(13)andx$<>chr$(136)then 440
  59. 450 if x$=chr$(136) or max=0 then 700
  60. 460 goto 320
  61. 470 :
  62. 500 rem falsche antwort
  63. 510 l(t,2)=1
  64. 520 gosub 12000 :rem falsche antwort
  65. 530 gosub11400
  66. 540 sys pr,00,24,"[196]eine [193]ntwort   ?";
  67. 550 sys in,18,24,21,1,er$
  68. 560 if er$=aw$ then fa=0:goto410
  69. 570 gosub 12000:fa=fa+1:if fa<2 then 530
  70. 580 gosub 11400:gosub13200
  71. 581 sys pr,(40-l)/2,23," * richtig ist :"aw$" * "
  72. 600 fa=0: goto 440
  73. 610 :
  74. 700 gosub 11000:rem kopf
  75. 710 sys pr,2,12,"[193]nzahl der [198]ragen :";fr
  76. 720 sys pr,2,14,"richtige [193]ntworten:";ri
  77. 730 fa=0:ri=0:fr=0:sa$=""
  78. 740 get x$:if x$="" then 740
  79. 750 return
  80. 760 :
  81. 800 rem aufgaben bearbeiten ***********
  82. 810 if s$="001  "then 890
  83. 820 ko$="[193]ufgaben bearbeiten":gosub11000
  84. 830 sys pr,01,05,"[194]itte [195]ode-[206]r. eingeben:"
  85. 840 sys in,01,07,5,1,s$
  86. 850 if s$="001  "then 890
  87. 860 sys pr,01,24,"[195]ode-[206]r. unbekannt / weiter mit [210][197][212][213][210][206]"chr$(145)
  88. 870 getx$:ifx$<>chr$(13) then 870
  89. 880 goto 800
  90. 890 gosub 11000:rem kopf
  91. 900 gosub 12200:if a=136 then sa$="": return
  92. 980 :
  93. 1000 rem aufgaben bearbeiten teil 2 ---
  94. 1010 ko$="[193]ufgaben bearbeiten":gosub 11000:rem kopf
  95. 1020 m$(1)=" [197]ingabe ":sp(1)=6:ze(1)=24
  96. 1030 m$(2)=" [193]usgabe ":sp(2)=24:ze(2)=24
  97. 1090 nn=2:gosub14000
  98. 1095 if x$=chr$(136) then sa$="":return
  99. 1100 onj gosub 1140,3000,1090:goto 1000
  100. 1110 :
  101. 1140 rem eingabe ----------------------
  102. 1145 ko$="[193]ufgaben eingeben":aw$=""
  103. 1146 if n+1<99 then 1150
  104. 1147 gosub11400:syspr,5,23,"[203]eine [197]ingabe mehr moeglich[146]":gosub11100:goto 1280
  105. 1150 r=n+1:gosub 11000:rem kopf
  106. 1160 sys pr,10,24,"f1=[212]ext uebernehmen"chr$(145)
  107. 1170 sys bi,0,3,39,20
  108. 1180 a=peek(828)
  109. 1195 if a=136 then 1280
  110. 1200 gosub 11400:rem zeile 24 loeschen
  111. 1205 poke781,21:sys 59903
  112. 1210 sys pr,0,24,"richtige [193]ntwort: "aw$;chr$(145)
  113. 1220 sys in,18,24,21,1,aw$
  114. 1225 a=peek(828)
  115. 1226 if a=136 then 1280
  116. 1230 a=peek(828):if a=17 or a=145 or aw$="                     "then1220
  117. 1240 if ko=0 then n=n+1:r=n
  118. 1260 gosub 10500:rem aufgaben write
  119. 1270 gosub 10200:rem status write
  120. 1280 r=0:return
  121. 1290 :
  122. 3000 rem ausgabe
  123. 3010 r=0: ko$="[193]usgabe/[203]orrektur":ifn<1 then 3700
  124. 3015 goto 3200
  125. 3020 gosub11000
  126. 3100 gosub10600
  127. 3102 gosub13200:sys pr,(52-l)/2,21," -- "aw$" -- "
  128. 3105 gosub11400
  129. 3110 m$(1)=" weiter ":sp(1)=1:ze(1)=23
  130. 3111 m$(2)=" zurueck  ":sp(2)=13:ze(2)=23
  131. 3112 m$(3)=" [193]ufg.[206]r.  ":sp(3)=27:ze(3)=23
  132. 3120 m$(4)=" drucken ":sp(4)=1:ze(4)=24
  133. 3121 m$(5)=" loeschen ":sp(5)=13:ze(5)=24
  134. 3122 m$(6)=" [203]orrektur ":sp(6)=27:ze(6)=24
  135. 3130 nn=6:gosub 14000
  136. 3135 if x$=chr$(136) then 3800
  137. 3140 on j goto 3200,3300,3400,5000,4000,3600
  138. 3150 :
  139. 3200 rem weiter -----------------------
  140. 3210 r=r+1:if r<=n then 3020
  141. 3220 gosub 11400
  142. 3230 sys pr,8,24,"[197]nde des [193]ufgabensatzes"chr$(145)
  143. 3240 get x$:if x$=""then 3240
  144. 3250 goto 3800
  145. 3260 :
  146. 3300 rem zurueck ----------------------
  147. 3310 r=r-1:if r>=1 then 3020
  148. 3320 goto 3220
  149. 3330 :
  150. 3400 rem nummer eingeben --------------
  151. 3410 r=0:gosub 11000
  152. 3420 sys pr,1,24,"[193]ufgaben-[206]ummer ?"chr$(145)
  153. 3430 sys in,19,24,3,0,b$:b=int(val(b$))
  154. 3435 if peek(828)=136 then 3020
  155. 3440 if b>n or b<1  then sys pr,1,23,"ungueltige [206]ummer":goto 3420
  156. 3450 r=b:goto 3020
  157. 3460 :
  158. 3600 rem korrektur --------------------
  159. 3610 gosub11400:rem fusszeilen loeschen
  160. 3615 sys pr,09,23,"[199]ib die [203]orrektur ein !"
  161. 3620 ko=r:gosub 1160:r=ko:ko=0
  162. 3630 if a=136 then return
  163. 3640 goto 3105
  164. 3650 :
  165. 3700 gosub11000:sys pr,8,24,"[203]eine [193]ufgabe gespeichert "chr$(145)
  166. 3710 get x$:if x$=""then 3710
  167. 3800 r=0:return
  168. 3810 :
  169. 4000 rem loeschen ---------------------
  170. 4100 gosub 11400
  171. 4110 sys pr,4,24,"[193]ufgabe wirklich loeschen (j/n) ?"chr$(145)
  172. 4120 getx$:ifx$<>"j" and x$<>"n" then 4120
  173. 4130 if x$="n" then 3105
  174. 4135 gosub 11400:sys pr,5,24,"... [193]ufgabe wird geloescht ..."chr$(145)
  175. 4140 if n=1 or n=r then 4570
  176. 4500 open 15,8,15
  177. 4510 print#15,"s:"str$(r)+sa$
  178. 4520 print#15,"r:"str$(r)+sa$"="str$(n)+sa$
  179. 4530 close15
  180. 4570 n=n-1
  181. 4580 gosub10200:rem statusdatei
  182. 4590 goto 3800
  183. 4600 :
  184. 5000 rem drucken **********************
  185. 5001 gosub 11400
  186. 5002 poke2,4:sys dr
  187. 5003 if peek(2)=0 then au=au+1:goto5008
  188. 5004 sys pr,07,24,"[196]rucker nicht eingeschaltet"chr$(145)
  189. 5005 get x$:if x$=""then 5005
  190. 5006 goto 3105
  191. 5007 :
  192. 5008 on d goto 5009,5100
  193. 5009 rem epson drucker ----------------
  194. 5010 open2,4,0:cmd2
  195. 5020 print chr$(27);"3";chr$(22);:print chr$(15);
  196. 5026 print chr$(27);"l";chr$(5);
  197. 5027 print   "[193]ufg.";au
  198. 5028 print chr$(27);"l";chr$(15);
  199. 5030 sys wr:close2
  200. 5070 goto 3105
  201. 5080 :
  202. 5100 rem vc 1526 drucker --------------
  203. 5102 open2,4,7:print#2,"[193]ufg.";au
  204. 5103 print#2,left$("[183][183][183][183][183][183][183][183][183][183][183][183][183][183]",5+len(str$(au)))
  205. 5105 open6,4,6:print#6,chr$(16);
  206. 5130 sys wr
  207. 5140 print#2:close2:close6: goto 3105
  208. 10000 rem dateien *********************
  209. 10010 :
  210. 10020 rem statusdatei read ------------
  211. 10100 n=0:r=0:open15,8,15
  212. 10110 open2,8,2,sa$+"/s,s,r"
  213. 10120 input#15,f:if f<>0 then 10140
  214. 10130 input#2,n:rem anzahl aufgaben
  215. 10140 close 2:close15:return
  216. 10195 :
  217. 10200 rem statusdatei anlegen ---------
  218. 10230 open2,8,2,"@:"+sa$+"/s,s,w"
  219. 10240 print#2,n
  220. 10250 close2:return
  221. 10260 :
  222. 10300 rem sachgebiete write -----------
  223. 10310 if ii>0 then 10350
  224. 10320 open15,8,15,"s:[211]achgebiete"
  225. 10325 sa$(1)=""
  226. 10330 close15:return
  227. 10340 :
  228. 10350 open2,8,2,"@:[211]achgebiete,s,w"
  229. 10360 for i=1 to ii:print#2,sa$(i):next
  230. 10370 close2:close15:return
  231. 10500 rem aufgaben write --------------
  232. 10504 gosub 11400:rem zeile 24 loeschen
  233. 10505 sys pr,08,24,"... bitte warten ..."chr$(145)
  234. 10510 sys pr,00,3,"";
  235. 10520 open3,3
  236. 10530 open2,8,2,"@:"+str$(r)+sa$+",s,w"
  237. 10540 sys wr
  238. 10565 print#2,aw$
  239. 10570 close2:close3
  240. 10580 return
  241. 10590 :
  242. 10600 rem aufgaben read ---------------
  243. 10610 open2,8,2,str$(r)+sa$+",s,r"
  244. 10620 sys re
  245. 10630 input#2,aw$
  246. 10660 close2:return
  247. 10700 rem sachgebiete pruefen/einlesen
  248. 10705 ii=0
  249. 10710 open 15,8,15
  250. 10720 open 2,8,2,"[211]achgebiete,s,r"
  251. 10730 input#15,f
  252. 10740 if f<>0 then 10780
  253. 10750 ii=ii+1
  254. 10760 input#2,sa$(ii)
  255. 10770 if st<>64 then 10750
  256. 10780 close2:close15:return
  257. 10790 :
  258. 11000 rem kopf ------------------------
  259. 11010 print chr$(147);:print tab(1)ko$
  260. 11015 if sa$="" then 11020
  261. 11016 sys pr,1,1,sa$
  262. 11017 sys pr,28,0,"[193]ufg.[206]r.:"r
  263. 11018 sys pr,28,1,"[193]nzahl  :"n
  264. 11020 sys pr,00,02,"[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][163][163][163][163][163][163]"chr$(145)
  265. 11021 sys pr,27,0,"[170]"
  266. 11022 sys pr,27,1,"[170]"
  267. 11030 sys pr,00,22,"[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][163][163][163][163][163][163]"chr$(145)
  268. 11040 sys pr,00,03,"";
  269. 11050 return
  270. 11060 :
  271. 11100 rem weiter mit return -----------
  272. 11110 sys pr,10,24,"[215]eiter mit [210][197][212][213][210][206]"chr$(145)
  273. 11120 getx$:ifx$<>chr$(13) then 11120
  274. 11130 a=136:return
  275. 11140 :
  276. 11400 rem zeile 24 loeschen -----------
  277. 11410 poke781,23:sys 59903
  278. 11420 poke781,24:sys 59903:return
  279. 11430 :
  280. 11580 :
  281. 12000 rem falsche antwort -------------
  282. 12010 for j=1 to 5
  283. 12020 sys pr,25,24,"** [198][193][204][211][195][200] **";
  284. 12030 for jj=1 to 60:next
  285. 12040 sys pr,25,24,"** [198][193][204][211][195][200] **[146]";
  286. 12050 for jj=1 to 60:next:next
  287. 12060 return
  288. 12070 :
  289. 12200 rem sachgebiet waehlen/anlegen --
  290. 12205 n=0:sa$="":a=0
  291. 12210 if ii=0 then 12320
  292. 12215 sys pr,05,4,"[211]achgebiete"
  293. 12216 sys pr,05,5,"[163][163][163][163][163][163][163][163][163][163][163]"
  294. 12220 for i=1 to ii
  295. 12230 m$(i)=sa$(i):sp(i)=5:ze(i)=i+5
  296. 12240 next
  297. 12245 m$(ii+1)="neues [211]achgebiet anlegen ":sp(ii+1)=5:ze(ii+1)=18
  298. 12246 m$(ii+2)="[211]achgebiet loeschen      ":sp(ii+2)=5:ze(ii+2)=19
  299. 12260 nn=ii+2:gosub 14500
  300. 12270 if x$=chr$(136) then a=136:return
  301. 12280 if j=ii+1 then 12320
  302. 12290 if j=ii+2 then 12700
  303. 12310 sa$=sa$(j):gosub 10000:goto 12430
  304. 12320 gosub 11400:rem statuszeile loeschen
  305. 12322 if ii<10 then 12330
  306. 12324 sys pr,08,23," ** nicht moeglich ** [146]":gosub 11100:return
  307. 12330 sys pr,00,24,"[206]eues [211]achgebiet eingeben: "chr$(145)
  308. 12340 sys in,27,24,12,1,sa$
  309. 12344 a=peek(828):if a=136 thensa$="":return
  310. 12345 if a=145 or a=17 or sa$="            "then 12340
  311. 12350 for i=1 to ii
  312. 12360 if sa$=sa$(i) then syspr,00,23,"-- [206]ame existiert schon --":goto 12330
  313. 12370 next
  314. 12380 ii=ii+1:sa$(ii)=sa$
  315. 12390 gosub 10300:rem sachgebiete write
  316. 12420 gosub 10200:rem statusdatei anlegen
  317. 12430 return
  318. 12440 :
  319. 12500 rem sachgebiete waehlen ---------
  320. 12510 n=0:sa$="":f=0:a=0
  321. 12520 if ii=0 then f=1:return
  322. 12530 if ii=1 then sa$=sa$(1):return
  323. 12534 sys pr,05,4,"[211]achgebiete"
  324. 12535 sys pr,05,5,"[163][163][163][163][163][163][163][163][163][163][163]"
  325. 12536 for i=1 to ii
  326. 12537 m$(i)=sa$(i):sp(i)=5:ze(i)=i+5
  327. 12538 next:nn=ii
  328. 12540 gosub 14500
  329. 12545 if x$=chr$(136) then return
  330. 12550 sa$=m$(j):return
  331. 12630 :
  332. 12700 rem sachgebiet loeschen ---------
  333. 12710 ko$="[211]achgebiet loeschen[146]":gosub11000:gosub12500
  334. 12720 if a=136 then return
  335. 12725 a=j:if ii=1 thena=1
  336. 12730 gosub 11400:sys pr,1,23,"zu loeschendes [211]achgebiet:"sa$(a)
  337. 12740 sys pr,10,24,"sicher (j/n)?"chr$(145)
  338. 12750 getx$:if x$<>"j"and x$<>"n" then 12750
  339. 12760 if x$="n" then a=136:return
  340. 12765 gosub 11400:sys pr,3,24,"... "sa$(a)" wird geloescht ..."chr$(145)
  341. 12770 if a=ii then 12810
  342. 12780 for i=a to ii-1
  343. 12790 sa$(i)=sa$(i+1)
  344. 12800 next
  345. 12810 ii=ii-1
  346. 12820 gosub10300:rem  sachgebiete write
  347. 12830 open15,8,15,"s:"+sa$(a)+"*":close15
  348. 12831 open15,8,15,"s:??"+sa$(a)+"*":close15
  349. 12832 open15,8,15,"s:???"+sa$(a)+"*":close15
  350. 12840 close15:a=136:return
  351. 12850 :
  352. 13000 rem "[193]ufgabendiskette einlegen"
  353. 13010 sys pr,6,23," [193]ufgabendiskette einlegen "
  354. 13020 for j=1 to 80:next
  355. 13030 get x$:if x$<>""then 13070
  356. 13040 sys pr,6,23," [193]ufgabendiskette einlegen [146]"
  357. 13050 for j=1 to 80:next
  358. 13060 goto 13010
  359. 13070 gosub11400:return
  360. 13080 :
  361. 13200 rem ausgabe richtige antwort
  362. 13210 jj=0:for j=0 to len(aw$)
  363. 13220 if mid$(aw$,len(aw$)-j,1)<>" "then 13240
  364. 13230 jj=jj+1:next
  365. 13240 aw$=left$(aw$,len(aw$)-jj)
  366. 13250 l=len(aw$)+19
  367. 13270 return
  368. 13280 :
  369. 14000 rem menue ***********************
  370. 14005 j=1
  371. 14010 gosub 14100:syspr,sp(j),ze(j),""m$(j)chr$(145)
  372. 14015 get x$
  373. 14017 if x$=chr$(13) then 14060
  374. 14020 if x$=chr$(133)orx$=chr$(29)orx$=chr$(157)orx$=chr$(136)then14025
  375. 14022 if x$<>chr$(17)andx$<>chr$(145)then 14015
  376. 14025 if x$=chr$(17)andze(j)=23andj+3<=nn then j=j+3
  377. 14026 if x$=chr$(145)andze(j)=24andnn>4then j=j-3
  378. 14030 if x$=chr$(133)or x$=chr$(136)then 14060
  379. 14040 if x$=chr$(157)then j=j-1:if j=0 then j=nn
  380. 14045 if x$=chr$(29)then j=j+1:if j=nn+1 then j=1
  381. 14050 goto 14010
  382. 14060 return
  383. 14070 :
  384. 14100 for i=1 to nn
  385. 14110 sys pr,sp(i),ze(i),m$(i)chr$(145)
  386. 14120 next:return
  387. 14500 rem menue ***********************
  388. 14505 j=1
  389. 14510 gosub 14100:syspr,sp(j),ze(j),""m$(j)chr$(145)
  390. 14515 get x$
  391. 14518 if x$=chr$(13) then 14560
  392. 14520 if x$<>chr$(133)andx$<>chr$(17)andx$<>chr$(145)andx$<>chr$(136)then 14515
  393. 14530 if x$=chr$(133)or x$=chr$(136) then 14560
  394. 14540 if x$=chr$(145)then j=j-1:if j=0 then j=nn
  395. 14545 if x$=chr$(17)then j=j+1:if j=nn+1 then j=1
  396. 14550 goto 14510
  397. 14560 return
  398. 15000 rem druckeranpassung ************
  399. 15010 gosub11400
  400. 15020 m$(1)=" [197][208][211][207][206] ":sp(1)=5:ze(1)=24
  401. 15030 m$(2)=" [205][208][211] 801 ":sp(2)=23:ze(2)=24:nn=2:gosub14000
  402. 15040 d=j:return
  403. 16000 rem programmbeschreibung ********
  404. 16010 print chr$(147)
  405. 16020 print " [205]it diesem [208]rogramm kann man"
  406. 16030 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]"
  407. 16040 print "  - [208]ruefungsfragen lernen
  408. 16050 [153] "  - (NULL)ruefungsfragen eingeben / aendern"
  409. 16060 [153] "  - (NULL)ruefungsfragen ausdrucken
  410. 16070 print
  411. 16080 print " [197]s ist besonders fuer programmierte     [198]ragen geeignet.
  412. 16090 [153]:[153]
  413. 16100 [153] " ascolgendende (NULL)asten werden benutzt:"
  414. 16110 [153] " tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(":[153]
  415. 16120 [153] " f1 / (NULL)val(NULL)(NULL)(NULL)(NULL) zur (NULL)ebernahme von (NULL)erten
  416. 16130 print "             und [205]enuepunkten":print
  417. 16140 print" f7          zur [210]ueckkehr zum vorher-               gehenden [208]ro";:
  418. 16150 print "grammteil":print
  419. 16160 print " [195]ursorsteu- zur [193]nwahl der einzelnen"
  420. 16170 print " ertasten    [205]enuepunkte"
  421. 16180 syspr,12,24,"[158][218]urueck mit f7[154]"chr$(145)
  422. 16190 get x$:ifx$<>chr$(136)then16190
  423. 16200 return
  424. 17000 rem kopf ------------------------
  425. 17010 print chr$(147);:print tab(1)ko$
  426. 17015 if sa$="" then 11020
  427. 17016 sys pr,1,1,sa$
  428. 17017 sys pr,28,0,"[193]ufg.[206]r.:"n-max+1
  429. 17018 sys pr,28,1,"[193]nzahl  :"n
  430. 17020 sys pr,00,02,"[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][163][163][163][163][163][163]"chr$(145)
  431. 17021 sys pr,27,0,"[170]"
  432. 17022 sys pr,27,1,"[170]"
  433. 17030 sys pr,00,22,"[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][163][163][163][163][163][163]"chr$(145)
  434. 17040 sys pr,00,03,"";
  435. 17050 return
  436. 17060 :
  437. 30000 open 15,8,15
  438. 30010 input#15,a,a$
  439. 30020 print a,a$
  440. 30030 close 15
  441.