home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 April / 64er_Magazin_86-04_1986_Markt__Technik_de.d64 / quizmaster (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  9.7 KB  |  299 lines
  1. 10 rem ***     quizmaster    ***
  2. 11 rem ***        von        ***
  3. 12 rem ***      matthias     ***
  4. 13 rem ***      gerloff      ***
  5. 14 rem *** weidenbaumsweg 94 ***
  6. 15 rem ***  2050 hamburg 80  ***
  7. 16 rem *** tel.(040) 7211517 ***
  8. 17 rem ***                   ***
  9. 18 rem ***    c 64 + 1541    ***
  10. 99 gosub32005
  11. 100 printchr$(8)chr$(14)"[144]"chr$(147);:poke53280,10:poke53281,10
  12. 110 sys36631
  13. 119 ifpeek(2)=0then149
  14. 123 print"[204]adefehler":print"[206]euer [214]ersuch mit <[211][208][193][195][197][146]>."
  15. 124 gosub11000:ifk$=" "thenprint"[147]";:goto110
  16. 125 goto124
  17. 149 clr:dim re(99)
  18. 151 rem b1/2 - bildschirm an
  19. 152 rem bw   - bewegung
  20. 153 rem f1/2 - suchstart 1/2
  21. 154 rem fc   - suche continue
  22. 155 rem pl   - plot text
  23. 157 rem zs   - zeichensatz speichern
  24. 158 rem ch   - zeichensaetze copy
  25. 159 rem eb   - box einblenden
  26. 160 rem sa   - bild save
  27. 161 rem lo   - bild laden
  28. 162 rem ed   - editor
  29. 163 rem sp   - sprite copy
  30. 164 rem in   - init routine
  31. 165 rem bf   - bewegungsflag
  32. 166 rem e1/2 - ende der bildschirme
  33. 170 rem *** sys list ***
  34. 171 b1=49152:b2=49202:bw=49291:f1=49662:f2=49675:fc=49391:pl=49636:bf=32247
  35. 172 ch=50266:eb=49528:sa=50066:lo=49987:ed=49696:sp=49561:in=50190:zs=50283
  36. 173 e1=33792:e2=34816
  37. 174 tx$="[144]":bl$="":tx=0:bl=1:rem*** farb combo fuer menue
  38. 180 rem *** such wert fn ***
  39. 181 hm=1:em=1:fm=1:lm=1:sm=1:rem ** init der menues ***
  40. 185 def fn fi(x)=peek(251)+256*peek(252)
  41. 186 fb$="[144][159][156][158][129][149][150][151][152][153][154][155]"
  42. 188 sysin:syssp:print"[147]":sysb2:poke53280,10:poke53281,10:print"[147]":poke32247,0
  43. 189 syspl,10,13,"[144]booting [209]uizmaster..."
  44. 190 gosub920:a$="_quizchar":au=1:gosub31500:syseb
  45. 200 a$="_quiztitel":gosub31510:au=0:ife=0then300
  46. 210 print"[147][158]          [209] [213] [201] [218] [205][160][193][160][211][160][212][160][197][160][210]"
  47. 211 print"          [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  48. 212 syspl,18,5,"von"
  49. 213 syspl,11,9,"[205]atthias [199]erloff"
  50. 214 gosub11000:goto400
  51. 300 gosub40000:rem *** show pic ***
  52. 399 rem *** hauptmenue ***
  53. 400 printtx$"[147]"
  54. 401 syspl,15,6,bl$"[200]auptmenue":syspl,15,7,tx$"[184][184][184][184][184][184][184][184][184][184]"
  55. 402 syspl,12,9,bl$"@"tx$" [209]uiz spielen"
  56. 403 syspl,12,11,bl$"@"tx$" [197]ditormenue"
  57. 404 syspl,12,13,bl$"@"tx$" [198]arbmenue"
  58. 405 syspl,12,15,bl$"@"tx$" [197]nde"
  59. 410 fs=f2:en=e2:f=hm:gosub34000:gosub33000
  60. 420 hm=f:onfgosub1000,500,700,430
  61. 425 goto400
  62. 430 print"[147]":end
  63. 499 rem *** editormenue ***
  64. 500 printtx$"[147]"
  65. 501 syspl,13,0,bl$"[197]ditormenue":syspl,13,1,tx$"[184][184][184][184][184][184][184][184][184][184][184]"
  66. 502 syspl,10,4,bl$"@"tx$" [194]ild zeigen
  67. 503 [158]pl,10,5,bl$"@"tx$" peekild editieren"
  68. 504 [158]pl,10,6,bl$"@"tx$" peekild laden"
  69. 505 [158]pl,10,7,bl$"@"tx$" peekild speichern"
  70. 506 [158]pl,10,8,bl$"@"tx$" (NULL)eichensatz laden"
  71. 507 [158]pl,10,9,bl$"@"tx$" (NULL)eichensatz speichern"
  72. 508 [158]pl,10,10,bl$"@"tx$" (NULL)itelbild laden"
  73. 509 [158]pl,10,11,bl$"@"tx$" (NULL)itelbild speichern"
  74. 510 [158]pl,10,12,bl$"@"tx$" (NULL)uiz anlegen"
  75. 511 [158]pl,10,13,bl$"@"tx$" peekewegung : atnn ":[139][194](bf)[178]0[167][158]pl,23,13,tx$"atnus"
  76. 512 [158]pl,10,14,bl$"@"tx$" left$auptmenue"
  77. 513 f[178]em:[141]34000:[141]33000
  78. 516 em[178]f:[139]f[178]11[167]em[178]1:[142]
  79. 517 [139]f[179][177]3[175]f[179][177]4[167][151][165]fi(0),0
  80. 518 [145]f[137]521,520,530,535,519,522,540,541,551,550
  81. 519 [141]900:[137]500
  82. 520 [158]ed:[153]"wait";:[137]513
  83. 521 [141]40000:[137]513
  84. 522 [141]800:[137]500
  85. 530 [141]32500:x[178]xx:[141]63500:[139]a$[178]"00"[176]f[177]xx[167][141]10000:[137]513
  86. 531 a$[178]"frage "[170]a$:[141]31510:[141]10000:[151][165]fi(0),0:em[178]1
  87. 532 [139][194](bf)[178]1[167][158]pl,23,13,tx$"atnn "
  88. 533 [139][194](bf)[178]0[167][158]pl,23,13,tx$"atnus"
  89. 534 [137]513
  90. 535 fs[178]f1:en[178]e1:[151]2,128:[158]fs:[139][165]fi(0)[179][177]en[167]538
  91. 536 [151]2,0:[158]fs:[139][165]fi(0)[178]en[167]595
  92. 537 [158]b1:[141]33000:[158]b2:[151][165]fi(0),128
  93. 538 fs[178]f2:en[178]e2:[141]32500:x[178]xx[170]1:[141]63500:[139]a$[178]"00"[176]f[177]x[167][141]10000:[137]513
  94. 539 a$[178]"frage "[170]a$:[141]31520:xx[178]xx[171](x[178]f):[141]32600:[141]10000:[137]513
  95. 540 [158]pl,15,24,bl$"loading...";:a$[178]"_quiztitel":[141]31510:[141]10000:em[178]1:[137]513
  96. 541 [158]pl,15,24,bl$"saving...";:a$[178]"_quiztitel":[141]31520:[141]10000:[137]513
  97. 550 [151]bf,1[171][194](bf):[137]511
  98. 551 [141]63000:[139]in$[178]""[167][141]10000:[137]513
  99. 552 [141]10000:[158]pl,0,24,bl$"(NULL)eere str$iskette einlegen. <(NULL)(NULL)atnlenvalwait>";
  100. 553 [141]11000:[141]10000:[139]k$[179][177]" "[167]513
  101. 554 [158]pl,10,24,bl$"ascormatiere "in$;
  102. 555 [141]38000:[159]1,8,15,"n:"[170]in$[170]",mg":[141]61000:[139]e[179][177]0[167][141]10000:[160]1:[137]513
  103. 556 xx[178]0:[141]32600:[141]10000:[152]1,"i":[160]1:[137]513
  104. 595 [141]10000:[158]pl,5,24,bl$"(NULL)eine atnntwort moeglich. <(NULL)(NULL)atnlenvalwait>";
  105. 596 [141]11000:[139]k$[179][177]" "[167]596
  106. 597 [141]10000:fs[178]f2:en[178]e2:[137]513
  107. 599 [143] *** farbwahlmenue ***
  108. 600 [153]tx$"load"
  109. 601 [158]pl,13,0,bl$"ascarbwahlmenue":[158]pl,13,1,tx$"frefrefrefrefrefrefrefrefrefrefrefrefre"
  110. 602 [158]pl,14,4,bl$"@"tx$" (NULL)chwarz"
  111. 603 [158]pl,14,5,bl$"@"tx$" (NULL)eiss"
  112. 604 [158]pl,14,6,bl$"@"tx$" (NULL)ot"
  113. 605 [158]pl,14,7,bl$"@"tx$" (NULL)uerkis"
  114. 606 [158]pl,14,8,bl$"@"tx$" (NULL)iolett"
  115. 607 [158]pl,14,9,bl$"@"tx$" chr$ruen"
  116. 608 [158]pl,14,10,bl$"@"tx$" peeklau"
  117. 609 [158]pl,14,11,bl$"@"tx$" chr$elb"
  118. 610 [158]pl,14,12,bl$"@"tx$" (NULL)range"
  119. 611 [158]pl,14,13,bl$"@"tx$" peekraun"
  120. 612 [158]pl,14,14,bl$"@"tx$" left$ellrot"
  121. 613 [158]pl,14,15,bl$"@"tx$" str$unkelgrau"
  122. 614 [158]pl,14,16,bl$"@"tx$" chr$rau"
  123. 615 [158]pl,14,17,bl$"@"tx$" left$ellgruen"
  124. 616 [158]pl,14,18,bl$"@"tx$" left$ellblau"
  125. 617 [158]pl,14,19,bl$"@"tx$" left$ellgrau"
  126. 620 [141]34000:[141]33000:f[178]f[171]1:[142]
  127. 699 [143] *** farbmenue ***
  128. 700 [153]"load"
  129. 701 [158]pl,15,5,bl$"ascarbmenue":[158]pl,15,6,tx$"frefrefrefrefrefrefrefrefre"
  130. 702 [158]pl,13,8,bl$"@"tx$" left$intergrund"
  131. 703 [158]pl,13,10,bl$"@"tx$" peeklock u. (NULL)itel"
  132. 704 [158]pl,13,12,bl$"@"tx$" (NULL)chrift"
  133. 705 [158]pl,13,14,bl$"@"tx$" left$auptmenue"
  134. 710 f[178]fm:[141]34000:[141]33000
  135. 725 [139]f[178]4[167]fm[178]1:[142]
  136. 726 fm[178]f:[145]f[141]732,730,731
  137. 727 [137]700
  138. 730 f[178]bl[170]1:[141]600:bl[178]f:bl$[178][202](fb$,f[170]1,1):[142]
  139. 731 f[178]tx[170]1:[141]600:tx[178]f:tx$[178][202](fb$,f[170]1,1):[142]
  140. 732 f[178]([194](53280)[175]15)[170]1:[141]600:[151]53280,f:[151]53281,f:[142]
  141. 799 [143] ** zs - saver **
  142. 800 [153]"load":[158]pl,10,5,bl$"(NULL)eichensatz speichern"
  143. 801 [158]pl,10,6,tx$"frefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefre"
  144. 802 [158]pl,12,9,bl$"@"tx$" 1.(NULL)eichensatz"
  145. 804 [158]pl,12,11,bl$"@"tx$" str$oppelzeichensatz"
  146. 805 [158]pl,12,13,bl$"@"tx$" valditormenue"
  147. 806 f[178]sm:[141]34000:[141]33000
  148. 810 [139]f[178]3[167]sm[178]1:[142]
  149. 811 sm[178]f:[145]f[141]820,822:[141]63000:[139]in$[178]""[167]806
  150. 812 [129]i[178]1[164][195](in$):[151]829[170]i,[198]([202](in$,i,1)):[130]:[151]2,[195](in$):[158]zs
  151. 813 [139][194](2)[178]5[167][141]60000:[137]812
  152. 814 [141]61000:[141]10000:[137]806
  153. 820 [151]50349,168:[142]
  154. 822 [151]50349,176:[142]
  155. 899 [143] ** zs laden **
  156. 900 [153]"load":[158]pl,11,5,bl$"(NULL)eichensatz laden"
  157. 901 [158]pl,11,6,tx$"frefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefre"
  158. 902 [158]pl,12,9,bl$"@"tx$" 1.(NULL)eichensatz"
  159. 903 [158]pl,12,11,bl$"@"tx$" 2.(NULL)eichensatz"
  160. 904 [158]pl,12,13,bl$"@"tx$" str$oppelzeichensatz"
  161. 905 [158]pl,12,15,bl$"@"tx$" valditormenue"
  162. 906 f[178]lm:[141]34000:[141]33000
  163. 910 [139]f[178]4[167]lm[178]1:[142]
  164. 911 lm[178]f:[145]f[141]920,921,920:[141]63000:[139]in$[178]""[167]906
  165. 912 a$[178]in$:[141]31500
  166. 915 [158]eb:[141]10000:[137]906
  167. 920 [151]36686,160:[142]
  168. 921 [151]36686,168:[142]
  169. 999 [143] *** quiz spielen ***
  170. 1000 [141]10000:[158]pl,3,24,bl$"(NULL)pieldiskette einlegen. <(NULL)(NULL)atnlenvalwait>";
  171. 1005 [141]11000:[139]k$[179][177]" "[167]1005
  172. 1006 [141]10000:[158]pl,13,24,tx$"booting (NULL)uiz...";
  173. 1010 [141]920:au[178]1:a$[178]"_quizchar":[141]31500:a$[178]"_quiztitel":[141]31510:au[178]0
  174. 1020 [141]10000:[158]eb:[139]e[178]0[167][141]40000
  175. 1030 [153]"load":[141]32500:[141]32800
  176. 1040 [153]tx$"load":[158]pl,13,0,bl$"(NULL)uiz spielen":[158]pl,13,1,tx$"frefrefrefrefrefrefrefrefrefrefrefre"
  177. 1050 [158]pl,10,5,bl$"(NULL)ame: "tx$qu$
  178. 1060 [158]pl,16,7,tx$"cmd"xx"ascragen":[139]xx[178]0[167][141]11000:[142]
  179. 1070 [158]pl,10,10,bl$"(NULL)ie viele wollen (NULL)ie ? ";:in$[178]"":e[178]0
  180. 1080 [153]"poscmd";:[141]11000:[139]k$[178][199](13)[167][153]" ";:[137]1100
  181. 1090 [139]e[177]0[175]k$[178][199](20)[167]e[178]e[171]1:in$[178][200](in$,e):[153]k$;:[137]1080
  182. 1095 [139]k$[177][178]"0"[175]k$[179][178]"9"[175]e[179]2[167]in$[178]in$[170]k$:[153]k$;
  183. 1096 [137]1080
  184. 1100 nu[178][197](in$):[158]pl,10,10,tx$"chr$ewaehlte atnnzahl:"nu"cmd         ";:[139]nu[178]0[167][142]
  185. 1101 [158]pl,10,15,tx$"ascragen: ":[158]pl,10,17,tx$"(NULL)ichtige atnntworten:"
  186. 1102 [158]pl,10,19,tx$"ascalsche atnntworten :"
  187. 1105 [129]i[178]1[164]xx:re(i)[178]i:[130]
  188. 1106 [141]10000:[158]pl,5,24,bl$"chr$waitemischt oder der (NULL)waiteihe nach.";
  189. 1107 [141]11000:[139]k$[178]"r"[167]1150
  190. 1108 [139]k$[179][177]"g"[167]1107
  191. 1109 [141]10000
  192. 1110 [129]i[178]1[164]xx
  193. 1120 a%[178][187](ti)[172]xx[170]1:b%[178][187](ti)[172]xx[170]1
  194. 1130 e[178]re(a%):re(a%)[178]re(b%):re(b%)[178]e
  195. 1140 [130]
  196. 1150 ri[178]0:fa[178]0
  197. 1160 [129]yy[178]1[164]nu
  198. 1170 a$[178]"frage "[170][201]("00"[170][202]([196](re(yy)),2),2)
  199. 1180 [141]31510:[139]e[179][177]0[167][142]
  200. 1190 [151]2,128:[158]f1:at[178][165]fi(0):[151]at,0
  201. 1200 [158]b1:mo[178]1:fs[178]f1:en[178]e1:[151]198,0:[141]33000:[158]b2:mo[178]0
  202. 1210 [139][165]fi(0)[178]at[167]ri[178]ri[170]1:[137]1220
  203. 1211 fa[178]fa[170]1:[141]10000:[158]pl,3,24,bl$"(NULL)eider falsch. (NULL)ichtig war..<(NULL)(NULL)atnlenvalwait>";
  204. 1212 [151][165]fi(0),0:[151]at,128:[141]11000:[141]40000:[141]10000
  205. 1213 [137]1230
  206. 1220 [141]10000:[158]pl,10,24,bl$"str$ie atnntwort ist richtig.";
  207. 1230 [158]pl,18,15,tx$yy
  208. 1231 [158]pl,29,17,ri:po[178]ri:[141]32900:[158]pl,33,17,"     ";:[158]pl,35,17,po$;
  209. 1232 [158]pl,29,19,fa:po[178]fa:[141]32900:[158]pl,33,19,"     ";:[158]pl,35,19,po$;
  210. 1240 [130]yy
  211. 1250 [141]10000:[158]pl,6,24,bl$"valnde des (NULL)uizspiels. <(NULL)(NULL)atnlenvalwait>";
  212. 1260 [141]11000:[139]k$[179][177]" "[167]1260
  213. 1270 [142]
  214. 10000 [158]pl,0,24,"                                       ";:[142]
  215. 10002 [142]
  216. 11000 [161]k$:[139]mo[178]1[175][194](bf)[178]1[167][158]bw
  217. 11001 [139]k$[178]""[167]11000
  218. 11010 [142]
  219. 31499 [143] *** zeichen satz load ***
  220. 31500 [129]i[178]1[164][195](a$):[151]36614[170]i,[198]([202](a$,i,1)):[130]:[151]2,[195](a$)
  221. 31501 [158]36665:[139][194](2)[178]5[167][141]60000:[137]31500
  222. 31502 [137]61000
  223. 31509 [143] ** bild load **
  224. 31510 [129]i[178]1[164][195](a$):[151]829[170]i,[198]([202](a$,i,1)):[130]:[151]2,[195](a$)
  225. 31512 [158]lo
  226. 31513 [139][194](2)[178]5[167][141]60000:[137]31510
  227. 31515 [137]61000
  228. 31519 [143] ** bild save **
  229. 31520 [129]i[178]1[164][195](a$):[151]829[170]i,[198]([202](a$,i,1)):[130]:[151]2,[195](a$)
  230. 31522 [158]sa
  231. 31523 [139][194](2)[178]5[167][141]60000:[137]31520
  232. 31525 [137]61000
  233. 31530 [142]
  234. 31999 [143] *** data 8f00 ***
  235. 32000 [131]95,81,85,73,90,77,76,95,81,85,73,90,67,72,65,82,0,0,0,0,0,0,0,162,8
  236. 32001 [131]160,0,32,186,255,162,0,160,143,169,7,32,189,255,169,0,162,0,160,192
  237. 32002 [131]32,213,255,160,0,132,2,144,2,133,2,96,162,8,160,0,32,186,255,162,7
  238. 32003 [131]160,143,165,2,32,189,255,169,0,162,0,160,160,32,213,255,160,0,132,2
  239. 32004 [131]144,2,133,2,96,-1
  240. 32005 a[178]36608
  241. 32006 [135]x:[139]x[179][177][171]1[167][151]a,x:a[178]a[170]1:[137]32006
  242. 32007 [142]
  243. 32499 [143]*** read max frage ***
  244. 32500 [141]38000:[159]15,8,15,"i":[159]5,8,5,"#"
  245. 32510 [152]15,"u1 5 0 18 0":[152]15,"b-p 5 165"
  246. 32515 [161]#5,a$,b$:xx[178][197](a$[170]b$):[160]5:[160]15:[141]61000:[139]e[179][177]0[167]xx[178]0
  247. 32520 [142]
  248. 32599 [143]*** write max frage ***
  249. 32600 [141]38000:[159]15,8,15,"i":[159]5,8,5,"#":[152]15,"u1 5 0 18 0"
  250. 32605 [152]15,"b-p 5 165":a$[178][200]([201]([196](xx),2),1)[170][201]([196](xx),1)
  251. 32610 [152]5,a$;:[152]15,"u2 5 0 18 0":[160]5:[160]15:[142]
  252. 32799 [143] *** read quizname ***
  253. 32800 [159]15,8,15,"i":[159]5,8,5,"#":[152]15,"u1 5 0 18 0":[152]15,"b-p 5 144"
  254. 32810 qu$[178]"":[129]i[178]1[164]16:[161]#5,k$:qu$[178]qu$[170]k$:[130]:[160]5:[160]15:[142]
  255. 32899 [143] *** po --> po$ ***
  256. 32900 po$[178]"":po[178][181](po[173]yy[172]100[170].5):po$[178][202]([196](po),2)[170]" %"
  257. 32910 po$[178][200]("cmdcmd",[195](po$)[171]3)[170]po$:[142]
  258. 32999 [143] ** menue auswahl ** ed=ende:fs=f1 bzw. f2
  259. 33000 [151]2,128:[158]fs:[139][165]fi(0)[179][177]en[167][141]35000:mx[178]e[170]1:[158]fs:[151]2,0:[137]33007
  260. 33001 [141]35000:mx[178]e:f[178]1:[151]2,0:[158]fs:[139][165]fi(0)[178]en[167][142]
  261. 33006 [151][165]fi(0),128
  262. 33007 [141]11000:[139]k$[178][199](13)[167][151][165]fi(0),0:[142]
  263. 33008 [139]k$[178]""[167][151][165]fi(0),0:f[178]f[171]1[171]mx[172](f[178]1):[141]34000:[137]33006
  264. 33010 [139]k$[179][177]""[167]33007
  265. 33015 [151][165]fi(0),0:f[178]f[170]1:[158]fc:[139][165]fi(0)[178]en[167][158]fs:f[178]1
  266. 33020 [137]33006
  267. 33035 .
  268. 34000 [151]2,0:[158]fs:[139]f[178]1[167][151][165]fi(0),128:[142]
  269. 34001 [129]i[178]1[164]f[171]1:[158]fc:[130]:[151][165]fi(0),128:[142]
  270. 34999 [143] *** finde ma ***
  271. 35000 po[178][194](2):[151]2,0:[158]fs:e[178]0
  272. 35010 [139]en[179][177][165]fi(0)[167]e[178]e[170]1:[158]fc:[137]35010
  273. 35020 [151]2,po:[142]
  274. 37999 [143] *** test floppy an **
  275. 38000 a$[178][199](0):au[178]1:[141]31510:au[178]0:[142]
  276. 40000 [158]b1
  277. 40001 [139][194](bf)[178]1[167][158]bw
  278. 40002 [161]k$:[139]k$[178]""[167]40001
  279. 40003 [158]b2:[142]
  280. 59999 [143] ** floppy aus hinweis **
  281. 60000 [141]10000:[158]pl,10,24,bl$"ascloppy anschalten";:[141]11000:[142]
  282. 60999 [143] *** error kanal ***
  283. 61000 [159]8,8,15:[132]8,e,e$,tr,se:[160]8:[139]e[178]0[176]au[178]1[167][142]
  284. 61010 [141]10000:[158]pl,0,24,bl$"ascehler : ";e;e$;tr;se;:[141]11000:[141]10000:[142]
  285. 62999 [143] *** file eingabe ***
  286. 63000 [141]10000:[158]pl,0,24,tx$"(NULL)ame:";
  287. 63001 in$[178]"":e[178]0
  288. 63002 [153]"poscmd";:[141]11000:[139]k$[178][199](13)[167][153]" ";:[142]
  289. 63003 [139]k$[178][199](20)[175]e[177]0[167]e[178]e[171]1:in$[178][200](in$,e):[153]k$;:[137]63002
  290. 63004 [139]e[178]16[176]k$[178][199](34)[176]k$[179][199](32)[176](k$[177][199](127)[175]k$[179][199](160))[167]63002
  291. 63005 [153]k$;:e[178]e[170]1:in$[178]in$[170]k$:[137]63002
  292. 63499 [143] ** eingabe bild nummer **
  293. 63500 a$[178]"00":[141]10000:[158]pl,0,24,tx$"peekildnummer 00  "bl$"max ";
  294. 63501 f[178]0:[153][201]("00"[170][202]([196](x[170](x[178]100)),2),2)tx$;
  295. 63502 [141]11000:[139]k$[178][199](13)[167][142]
  296. 63503 [139]k$[179]"0"[176]k$[177]"9"[167]63502
  297. 63504 f[178]10[172](f[171]10[172][181](f[173]10))[170][197](k$):a$[178][201]("00"[170][202]([196](f),2),2)
  298. 63505 [158]pl,11,24,a$;:[137]63502
  299.