home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8604.d64 / quizmaster (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  10KB  |  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.