home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8507a.d64 / layout (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-30  |  18.3 KB  |  648 lines
  1. 1 REM ** CASSETTEN-LAYOUT   VON    **
  2. 2 REM ** KARL-HEINZ WOELLECKE      **
  3. 3 REM ** PETERSTR.15               **
  4. 4 REM ** 3380 GOSLAR               **
  5. 5 REM ** TEL:(05321)21246          **
  6. 6 REM ** NUR MIT INPUT-ROUTINE VON **
  7. 7 REM ** THOMAS GRAF BENUTZEN !!   **
  8. 8 REM ** SIEHE AUCH  64'ER  6/85   **
  9. 9 REM ** SEITE 148                 **
  10. 10 PRINTCHR$(147):PRINTCHR$(14):GOTO10000
  11. 11 REM **LEERFELDER BESETZEN**
  12. 12 FORI=6TO19
  13. 13 IFA$(I)="                                       "THENA$(I)="."
  14. 14 NEXT:RETURN
  15. 15 FORJ=1TO13
  16. 16 IFB$(J)="                                       "THENB$(J)="."
  17. 17 NEXT:RETURN
  18. 18 FORK=1TO3
  19. 19 IFE$(K)="                                   "THENE$(K)="."
  20. 20 NEXT:RETURN
  21. 21 FORK=5TO7
  22. 22 IFE$(K)="                                   "THENE$(K)="."
  23. 23 NEXT:RETURN
  24. 24 FORL=1TO14
  25. 25 IFF$(L)="        "THENF$(L)="."
  26. 26 NEXT:RETURN
  27. 27 FORM=1TO13
  28. 28 IFH$(M)="        "THENH$(M)="."
  29. 29 NEXT:RETURN
  30. 39 REM **** FLOPPY EINGESCHALTET ***
  31. 40 POKEQ,9:POKER,0:SYSS:PRINT"[196]ISKETTENSTATION EINGESCHALTET   J/N  "
  32. 42 GETX$:IFX$=""THEN42
  33. 44 IFX$="J"THEN48
  34. 46 IFX$="N"THEN10010
  35. 47 GOTO42
  36. 48 POKEQ,9:POKER,0:SYSS:PRINT"[196]ISKETTE EINGELEGT               J/N  "
  37. 50 GETX$:IFX$=""THEN50
  38. 52 IFX$="J"THEN56
  39. 54 IFX$="N"THEN10010
  40. 55 GOTO50
  41. 56 POKEQ,9:POKER,0:SYSS:PRINT"                                     "
  42. 58 RETURN
  43. 59 REM *** DATENEINGABE ******
  44. 60 PRINT"[147]";:POKEE,2:POKEF,2:PRINT"[158][199]EBEN [211]IE NUN DEN [195]ASSETTENTITEL EIN"
  45. 61 PRINT"39 [218]EICHEN SIND VERFUEGBAR"
  46. 62 INPUT>39,0,9,A$(5):GOTO72
  47. 63 POKEQ,13:POKER,0:SYSS:PRINT"                          "
  48. 64 POKEQ,6:POKER,0:SYSS:PRINT"[153] [193]ENDERN DES [195]ASSETTENTITELS [146]"
  49. 66 POKEQ,9:POKER,0:SYSS:PRINTA$(5)
  50. 68 INPUT>39,0,9,A$(5)
  51. 72 PRINT""C$
  52. 75 GETX$:IFX$=""THEN75
  53. 76 IFX$="J"THEN79
  54. 77 IFX$="N"THEN63
  55. 78 GOTO75
  56. 79 PRINT"[147]";:POKEE,3:POKEF,3:POKEG,1:PRINT"[193]USGEWAEHLTE [203]RITERIEN :";
  57. 80 PRINT"     W/Z/M [146]"
  58. 81 PRINT"[194]ANDSORTE:      ";A$(1)
  59. 82 PRINT"[194]ANDMECHANIK:   ";A$(2)
  60. 84 PRINT"[193]UFNAHMEART:    ";A$(3)
  61. 85 PRINT"[210]AUSCHUNTERDR.: ";A$(4)
  62. 86 PRINT"[195]ASSETTENTITEL: ":PRINT"[151]"A$(5)
  63. 87 PRINT""C$
  64. 88 GETX$:IFX$=""THEN88
  65. 89 IFX$="J"THEN100
  66. 90 IFX$="N"ORX$="M"THENRETURN
  67. 91 IFX$="W"THEN150
  68. 92 IFX$="Z"THENPRINT" M [146] ODER  W [146] DRUECKEN ![146]":FORT=1TO1000:NEXT:GOTO79
  69. 98 GOTO88
  70. 100 PRINT"[147]";:POKEE,6:POKEF,6
  71. 101 PRINT"[154]14 [218]EILEN MIT JE 39 [218]EICHEN VERFUEGBAR"
  72. 102 FORI=6TO19
  73. 104 I$="[159][211]EITE 1             [197]INGABE [146]"
  74. 106 G$="[158][197]INGABE FUER [218]EILE : "
  75. 108 POKEQ,2:POKER,9:SYSS:PRINTI$
  76. 110 POKEQ,4:POKER,9:SYSS:PRINTG$;:PRINTI-5
  77. 112 PRINT:PRINT
  78. 116 INPUT>39,0,I,A$(I):NEXT
  79. 122 PRINT:PRINTC$
  80. 124 GETX$:IFX$=""THEN124
  81. 126 IFX$="J"THENGOSUB12:GOTO200
  82. 128 IFX$="N"THEN150
  83. 130 GOTO124
  84. 150 PRINT"[147]";:POKEE,6:POKEF,6:POKEG,1
  85. 151 GOSUB12:PRINT"[211]EITE 1            [203]ONTROLLE  W/Z/M  [146]"
  86. 152 PRINT:PRINT"[154]  [193]ENDERN   1  -   5                   [146]"
  87. 153 FORI=6TO10:PRINTA$(I):NEXT
  88. 154 PRINT;:PRINT"[154]  [193]ENDERN   6  -  10                   [146]"
  89. 155 FORI=11TO15:PRINTA$(I):NEXT
  90. 156 PRINT"[154]  [193]ENDERN  11  -  14                   [146]"
  91. 157 FORI=16TO19:PRINTA$(I):NEXT
  92. 158 PRINT"[159] [193] E N D E R N  J/N ? [146]"
  93. 159 GETX$:IFX$=""THEN159
  94. 160 IFX$="J"THEN168
  95. 161 IFX$="N"THEN200
  96. 162 IFX$="W"THEN250
  97. 163 IFX$="Z"THEN79
  98. 164 IFX$="M"THENRETURN
  99. 167 GOTO159
  100. 168 POKEQ,20:POKER,0:SYSS:PRINT"[206]UMMER DIE GEAENDERT WIRD  :"
  101. 170 INPUT>2,30,20,X$:IFVAL(X$)<1ORVAL(X$)>14THEN190
  102. 172 Y=VAL(X$)+5
  103. 174 POKEQ,22:POKER,0:SYSS:PRINTA$(Y)
  104. 178 INPUT>39,0,22,A$(Y):GOTO150
  105. 190 PRINT:PRINT:PRINT" [198]ALSCHE [197]INGABE       [198]ALSCHE [197]INGABE [146]"
  106. 192 FORT=1TO1000:NEXT:GOTO150
  107. 200 POKEE,6:POKEF,6:PRINT"[147]";
  108. 201 PRINT"[154]13 [218]EILEN MIT JE 39 [218]EICHEN VERFUEGBAR"
  109. 202 FORI=1TO13
  110. 204 L$="[159][211]EITE 2             [197]INGABE [146]"
  111. 206 M$="[158][197]INGABE FUER [218]EILE : "
  112. 208 POKEQ,2:POKER,9:SYSS:PRINTL$
  113. 210 POKEQ,4:POKER,9:SYSS:PRINTM$;:PRINTI
  114. 212 PRINT:PRINT
  115. 216 INPUT>39,0,I+5,B$(I):NEXT
  116. 222 PRINT:PRINTC$
  117. 224 GETX$:IFX$=""THEN224
  118. 226 IFX$="J"THENGOSUB15:GOTO300
  119. 228 IFX$="N"THEN250
  120. 230 GOTO224
  121. 250 PRINT"[147]";:POKEE,6:POKEF,6:POKEG,1
  122. 251 GOSUB15:PRINT"[211]EITE 2            [203]ONTROLLE  W/Z/M  [146]"
  123. 252 PRINT:PRINT"[154]  [193]ENDERN   1  -   5                   [146]"
  124. 253 FORI=1TO5:PRINTB$(I):NEXT
  125. 254 PRINT;:PRINT"[154]  [193]ENDERN   6  -  10                   [146]"
  126. 255 FORI=6TO10:PRINTB$(I):NEXT
  127. 256 PRINT"[154]  [193]ENDERN  11  -  13                   [146]"
  128. 257 FORI=11TO13:PRINTB$(I):NEXT
  129. 258 PRINT"[159] [193] E N D E R N  J/N ? [146]"
  130. 259 GETX$:IFX$=""THEN259
  131. 260 IFX$="J"THEN268
  132. 261 IFX$="N"THEN300
  133. 262 IFX$="W"THEN350
  134. 263 IFX$="Z"THEN150
  135. 264 IFX$="M"THENRETURN
  136. 267 GOTO259
  137. 268 POKEQ,19:POKER,0:SYSS:PRINT"[206]UMMER DIE GEAENDERT WIRD  :"
  138. 270 INPUT>2,30,19,X$:IFVAL(X$)<1ORVAL(X$)>13THEN290
  139. 272 Y=VAL(X$)
  140. 274 POKEQ,22:POKER,0:SYSS:PRINTB$(Y)
  141. 278 INPUT>39,0,22,B$(Y):GOTO250
  142. 290 PRINT:PRINT:PRINT" [198]ALSCHE [197]INGABE       [198]ALSCHE [197]INGABE [146]"
  143. 292 FORT=1TO1000:NEXT:GOTO250
  144. 300 POKEE,4:POKEF,4:PRINT"[147]";
  145. 301 PRINT"[150]3 [218]EILEN MIT JE  35 [218]EICHEN VERFUEGBAR"
  146. 302 PRINT"1 [212]ITELZEILE MIT 29 [218]EICHEN VERFUEGBAR"
  147. 303 FORI=1TO3
  148. 304 L$="[158][195]ASSETTENSEITE 1    [197]INGABE [146]"
  149. 306 M$="[197]INGABE FUER [218]EILE : "
  150. 308 POKEQ,3:POKER,9:SYSS:PRINTL$
  151. 310 POKEQ,4:POKER,9:SYSS:PRINTM$;:PRINTI
  152. 312 PRINT:PRINT
  153. 316 INPUT>35,0,I+5,E$(I):NEXT
  154. 318 PRINT:PRINT:PRINT"         [158] [212]ITELZEILE EINGEBEN ! [146]"
  155. 320 INPUT>29,0,12,E$(4)
  156. 322 PRINT:PRINTC$
  157. 324 GETX$:IFX$=""THEN324
  158. 326 IFX$="J"THENGOSUB18:GOTO400
  159. 328 IFX$="N"THEN350
  160. 330 GOTO324
  161. 350 PRINT"[147]";:POKEE,14:POKEF,14:POKEG,1
  162. 351 GOSUB18:PRINT"[195]ASSETTENSEITE 1   [203]ONTROLLE  W/Z/M  [146]"
  163. 352 PRINT:PRINT"  [193]ENDERN   1  -  3                [146]"
  164. 353 PRINT:FORI=1TO3:PRINTE$(I):NEXT
  165. 354 PRINT:PRINT"[158]  [212]ITELZEILE    ( 4 )        [146]":PRINT
  166. 356 PRINTE$(4)
  167. 358 PRINT"[153]  [193] E N D E R N  J/N ? [146]"
  168. 359 GETX$:IFX$=""THEN359
  169. 360 IFX$="J"THEN368
  170. 361 IFX$="N"THEN400
  171. 362 IFX$="W"THEN414
  172. 363 IFX$="Z"THEN250
  173. 364 IFX$="M"THENRETURN
  174. 367 GOTO359
  175. 368 POKEQ,12:POKER,0:SYSS:PRINT"[206]UMMER DIE GEAENDERT WIRD  :"
  176. 370 INPUT>1,30,12,X$:IFVAL(X$)<1ORVAL(X$)>4THEN390
  177. 372 Y=VAL(X$):IFVAL(X$)=4THEN380
  178. 374 POKEQ,15:POKER,0:SYSS:PRINTE$(Y)
  179. 378 INPUT>35,0,15,E$(Y):GOTO350
  180. 380 POKEQ,15:POKER,0:SYSS:PRINTE$(4)
  181. 382 INPUT>29,0,15,E$(4):GOTO350
  182. 390 PRINT:PRINT:PRINT:PRINT" [198]ALSCHE [197]INGABE       [198]ALSCHE [197]INGABE [146]"
  183. 392 FORT=1TO1000:NEXT:GOTO350
  184. 400 POKEE,9:POKEF,9:PRINT"[147]";
  185. 401 PRINT"[158]3 [218]EILEN MIT JE  35 [218]EICHEN VERFUEGBAR"
  186. 402 FORI=5TO7
  187. 403 L$="[195]ASSETTENSEITE 2    [197]INGABE [146]"
  188. 404 M$="[197]INGABE FUER [218]EILE : "
  189. 405 POKEQ,2:POKER,9:SYSS:PRINTL$
  190. 406 POKEQ,3:POKER,9:SYSS:PRINTM$;:PRINTI-4
  191. 407 PRINT:PRINT
  192. 408 INPUT>35,0,I,E$(I):NEXT
  193. 409 PRINT:PRINTC$
  194. 410 GETX$:IFX$=""THEN410
  195. 411 IFX$="J"THENGOSUB21:GOTO8000
  196. 412 IFX$="N"THEN414
  197. 413 GOTO410
  198. 414 PRINT"[147]";:POKEE,14:POKEF,14:POKEG,1
  199. 415 GOSUB21:PRINT"[195]ASSETTENSEITE 2   [203]ONTROLLE  W/Z/M  [146]"
  200. 416 PRINT:PRINT"  [193]ENDERN   1  -  3                [146]"
  201. 417 FORI=5TO7:PRINTE$(I):NEXT
  202. 418 PRINT:PRINT"[158]  [212]ITELZEILE                 [146]":PRINT
  203. 420 PRINTE$(4)
  204. 422 PRINT"[153]  [193] E N D E R N  J/N ? [146]"
  205. 424 GETX$:IFX$=""THEN424
  206. 426 IFX$="J"THEN438
  207. 428 IFX$="N"THEN8000
  208. 430 IFX$="W"THEN8113
  209. 432 IFX$="Z"THEN350
  210. 434 IFX$="M"THENRETURN
  211. 436 GOTO424
  212. 438 POKEQ,12:POKER,0:SYSS:PRINT"[206]UMMER DIE GEAENDERT WIRD  :"
  213. 440 INPUT>1,30,12,X$:IFVAL(X$)<1ORVAL(X$)>3THEN448
  214. 442 Y=VAL(X$)+4
  215. 444 POKEQ,15:POKER,0:SYSS:PRINTE$(Y)
  216. 446 INPUT>35,0,15,E$(Y):GOTO414
  217. 448 PRINT:PRINT:PRINT:PRINT" [198]ALSCHE [197]INGABE       [198]ALSCHE [197]INGABE [146]"
  218. 450 FORT=1TO1000:NEXT:GOTO414
  219. 459 REM **** DATENKONTROLLE ****
  220. 460 POKEE,1:POKEF,1:POKEG,5:PRINT"[147]"
  221. 462 PRINT"-7- [196]ATEN KONTROLLIEREN                 [146]"
  222. 464 PRINT"[197]INGELADENE [196]ATEN KOENNEN"
  223. 466 PRINT"GESICHTET WERDEN."
  224. 471 PRINT"1 = [211]EITE 1"
  225. 472 PRINT"2 = [211]EITE 2"
  226. 473 PRINT"3 = [195]ASSETTENSEITE 1"
  227. 474 PRINT"4 = [195]ASSETTENSEITE 2"
  228. 475 PRINT"5 = [193]RCHIVDATEN [212]ITEL"
  229. 476 PRINT"6 = [193]RCHIVDATEN [211]EITE 1"
  230. 477 PRINT"7 = [193]RCHIVDATEN [211]EITE 2"
  231. 478 PRINT"8 = [215]EITERBLAETTERN
  232. 479 [153]"9 = (null)ENUE
  233. 481 PRINT" [194]ITTE AUSWAEHLEN --> [146]"
  234. 482 GETX$:IFVAL(X$)<1ORVAL(X$)>9THEN482
  235. 486 ONVAL(X$)GOTO150,250,350,414,8113,8214,8314,79,10010
  236. 499 REM ** DRUCKAUSGABE VORBEREITEN**
  237. 500 FORI=1TO19
  238. 502 IFA$(I)=".                                      "ORA$(I)="."THENA$(I)=""
  239. 504 NEXTI
  240. 510 FORJ=1TO13
  241. 512 IFB$(J)=".                                      "ORB$(J)="."THENB$(J)=""
  242. 514 NEXTJ
  243. 520 FORK=1TO9
  244. 522 IFE$(K)="."THENE$(K)=""
  245. 524 NEXTK
  246. 530 FORL=1TO14
  247. 532 IFF$(L)=".       "ORF$(L)="."THENF$(L)=""
  248. 534 NEXTL
  249. 540 FORM=1TO13
  250. 542 IFH$(M)=".       "ORH$(M)="."THENH$(M)=""
  251. 544 NEXTM
  252. 590 RETURN
  253. 599 REM ** LEERVARIABLEN BESETZEN **
  254. 600 FORI=1TO19
  255. 605 IFA$(I)=""THENA$(I)="."
  256. 610 NEXT
  257. 615 FORJ=1TO13
  258. 620 IFB$(J)=""THENB$(J)="."
  259. 625 NEXT
  260. 630 FORK=1TO9
  261. 635 IFE$(K)=""THENE$(K)="."
  262. 640 NEXT
  263. 645 FORL=1TO14
  264. 650 IFF$(L)=""THENF$(L)="."
  265. 655 NEXT
  266. 660 FORM=1TO13
  267. 665 IFH$(M)=""THENH$(M)="."
  268. 670 NEXT
  269. 690 RETURN
  270. 839 REM *** UP DRUCKAUSGABE ARCHIVDATEN ***
  271. 840 PRINT"[147]";:POKEE,4:POKEF,4:POKEG,1
  272. 845 PRINT"-9- [193]RCHIVDATEN EINGEBEN/AUSDRUCKEN     [146]":GOSUB500
  273. 850 POKEQ,10:POKER,5:SYSS:PRINT"[196]RUCKER EINGESCHALTET  J/N   "
  274. 860 GETX$:IFX$=""THEN860
  275. 865 IFX$="J"THEN880
  276. 870 IFX$="N"THEN8000
  277. 875 GOTO860
  278. 880 POKEQ,10:POKER,5:SYSS:PRINT" [208]APIER  EINGELEGT     J/N   "
  279. 885 GETX$:IFX$=""THEN885
  280. 888 IFX$="J"THEN892
  281. 890 IFX$="N"THEN8000
  282. 891 GOTO885
  283. 892 POKEQ,10:POKER,5:SYSS:PRINT" [196]ANN DRUCKE ICH JETZT  !    ":GOTO8900
  284. 939 REM **** UP DRUCKAUSGABE LAYOUT ***
  285. 940 PRINT"[147]";:POKEE,3:POKEF,3:POKEG,1
  286. 945 PRINT"-8- [204]AYOUT AUSDRUCKEN                   [146]":GOSUB500
  287. 950 POKEQ,10:POKER,5:SYSS:PRINT"[196]RUCKER EINGESCHALTET  J/N   "
  288. 960 GETX$:IFX$=""THEN960
  289. 965 IFX$="J"THEN980
  290. 970 IFX$="N"THENRETURN
  291. 975 GOTO960
  292. 980 POKEQ,10:POKER,5:SYSS:PRINT" [208]APIER  EINGELEGT     J/N   "
  293. 985 GETX$:IFX$=""THEN985
  294. 988 IFX$="J"THEN992
  295. 990 IFX$="N"THENRETURN
  296. 991 GOTO985
  297. 992 POKEQ,10:POKER,5:SYSS:PRINT" [196]ANN DRUCKE ICH JETZT  !    "
  298. 1000 OPEN1,4,7
  299. 1005 PRINT#1,"[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][163][163]"
  300. 1010 PRINT#1,"[165] "CHR$(16)"42[167]"
  301. 1015 PRINT#1,"[165] "A$(1)CHR$(16)"12"A$(2)CHR$(16)"42[170]"
  302. 1020 PRINT#1,"[165] "A$(3)CHR$(16)"12"A$(4)CHR$(16)"42[167]"
  303. 1025 PRINT#1,"[165] "A$(5)CHR$(16)"42[167]"
  304. 1030 PRINT#1,"[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][164][164][164][164][164][164][164][164][164]"
  305. 1035 PRINT#1,"[165] "A$(3)CHR$(16)"32"A$(4)CHR$(16)"42[167]"
  306. 1040 PRINT#1,"[165] "A$(5)CHR$(16)"42[167]"
  307. 1045 PRINT#1,"[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][164][164][164][164][164][164][164][164][164]"
  308. 1050 PRINT#1,"[165] "O$CHR$(16)"42[167]"
  309. 1055 FORI=6TO19:PRINT#1,"[165] "A$(I)CHR$(16)"42[167]":NEXT
  310. 1060 PRINT#1,"[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][163][163][163]"
  311. 1065 PRINT#1,"[165] "P$CHR$(16)"42[167]"
  312. 1070 FORI=1TO13:PRINT#1,"[165] "B$(I)CHR$(16)"42[167]":NEXT
  313. 1075 PRINT#1,"[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][163][163][163]"
  314. 1080 FORI=1TO3:PRINT#1,"[165]"E$(I)CHR$(16)"36[167]":NEXT
  315. 1085 PRINT#1,"    [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]   [167]"
  316. 1090 PRINT#1,"  1"CHR$(16)"34"A$(1)"[167]"
  317. 1095 PRINT#1,"                                  "A$(2)
  318. 1100 PRINT#1,"    [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]   [167]"
  319. 1105 PRINT#1,"[165]   "E$(4)CHR$(16)"36[167]"
  320. 1115 PRINT#1,"[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][164][164][164]"
  321. 1120 FORI=5TO7:PRINT#1,"[165]"E$(I)CHR$(16)"36[167]":NEXT
  322. 1125 PRINT#1,"    [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]   [167]"
  323. 1130 PRINT#1,"   "CHR$(16)"34"A$(1)"[167]"
  324. 1135 PRINT#1,"  2                               "A$(2)
  325. 1140 PRINT#1,"    [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]   [167]"
  326. 1143 PRINT#1
  327. 1145 PRINT#1,"[165]   "E$(4)CHR$(16)"36[167]"
  328. 1150 PRINT#1,"[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]"
  329. 1420 CLOSE1
  330. 1422 POKEQ,10:POKER,5:SYSS:PRINT" [193]LLE [196]ATEN GEDRUCKT   !     "
  331. 1424 GOSUB600:FORT=1TO3000:NEXT:RETURN
  332. 2499 REM **** ARBEITSHINWEISE ****
  333. 2500 POKEE,1:POKEF,1:POKEG,14
  334. 2505 PRINT"[147]";:PRINT"-1- [193]RBEITSHINWEISE                     [146]"
  335. 2510 PRINT"     [195] A S S E T T E N L A Y O U T    "
  336. 2520 PRINT"                                        [146]";:PRINT
  337. 2530 RETURN
  338. 3000 GOSUB2500
  339. 3002 PRINT"[201]M [208]ROGRAMMPUNKT -2- KOENNEN [211]IE [201]HR"
  340. 3004 PRINT" [197]INSPIELVERFAHREN FESTLEGEN."
  341. 3006 PRINT"Z.[194].:"
  342. 3008 PRINT" [194]ANDSORTE":PRINT" [194]ANDMECHANIK"
  343. 3010 PRINT" [193]UFNAHMEART"
  344. 3012 PRINT" [210]AUSCHUNTERDRUECKUNGSSYSTEM"
  345. 3014 PRINT""D$:POKE198,0:WAIT198,1
  346. 3016 GOSUB2500
  347. 3020 PRINT"[159] [201]M [208]ROGRAMMPUNKT -3- KOENNEN [211]IE AUF"
  348. 3022 PRINT" EIN FESTGELEGTES [197]INSPIELVERFAHREN"
  349. 3024 PRINT" ZURUECKGREIFEN."
  350. 3026 PRINT" Z.[194].:"
  351. 3028 PRINT" [194]ANDSORTE:     [198]E [146]"
  352. 3030 PRINT" [194]ANDMECHANIK:  [211][205] [146]"
  353. 3032 PRINT" [193]UFNAHMEART:   STEREO [146]"
  354. 3034 PRINT" [210]AUSCHUNTERDRUECKUNGSSYSTEM: [200][201][199][200]()[195][207][205] [146]"
  355. 3038 PRINT" [196]IE [211]TANDARDVARIABLEN[146] KOENNEN [211]IE IN"
  356. 3040 PRINT" DER [218]EILE 5010 [201]HREN EIGENEN"
  357. 3042 PRINT" [194]EDUERFNISSEN ANPASSEN."
  358. 3044 PRINT""D$:POKE198,0:WAIT198,1
  359. 3046 GOSUB2500
  360. 3048 PRINT"[150][208]ROGRAMMPUNKT -4- DIENT DER [196]ATEN="
  361. 3050 PRINT"EINGABE."
  362. 3052 PRINT"[201]HRE [197]INGABEN KOENNEN [211]IE MIT DEN"
  363. 3054 PRINT"[203]ONTROLLSEITEN JEDERZEIT UEBERPRUEFEN"
  364. 3056 PRINT"UND GEGEBENENFALLS AENDERN."
  365. 3064 PRINT:PRINT:PRINT"[155][208]ROGRAMMPUNKT -5- SICHERT [201]HRE [196]ATEN."
  366. 3082 PRINT:PRINT:PRINT"[211]ICHERHEITSABFRAGEN VERHINDERN DAS"
  367. 3084 PRINT"[213]EBERSCHREIBEN[146] VON BEREITS "
  368. 3086 PRINT"AUF [196]ISKETTE VORHANDENEN [196]ATEIEN."
  369. 3088 PRINT:PRINTD$
  370. 3090 POKE198,0:WAIT198,1
  371. 3092 GOSUB2500
  372. 3094 PRINT"[158][208]ROGRAMMPUNKT -6- LADET [201]HRE [196]ATEN."
  373. 3096 PRINT:PRINT
  374. 3106 PRINT"[196]AS [208]ROGRAMM SPRINGT BEIM [214]ERSUCH"
  375. 3108 PRINT"NICHT VORHANDENE [196]ATEIEN VON [196]ISKETTE"
  376. 3110 PRINT"ZU LESEN NACH DER [198]EHLERMELDUNG IN DAS"
  377. 3112 PRINT"[205]ENUE ZURUECK.":PRINT:PRINT
  378. 3120 PRINT"[150][205]IT [208]ROGRAMMPUNKT -7- KOENNEN [211]IE [201]HRE"
  379. 3122 PRINT"EINGELESENEN [196]ATEN UEBERPRUEFEN UND"
  380. 3124 PRINT"EVENTUELL VOR [196]RUCKAUSGABE AENDERN.":PRINT
  381. 3126 PRINT""D$
  382. 3128 POKE198,0:WAIT198,1
  383. 3130 GOSUB2500
  384. 3132 PRINT"[205]IT [208]ROGRAMMPUNKT -8- RUFEN [211]IE DIE"
  385. 3134 PRINT"[196]RUCKAUSGABE[146] DES [204]AYOUTS AUF."
  386. 3152 PRINT"[205]IT [208]ROGRAMMPUNKT -9- KOENNEN [211]IE DIE"
  387. 3154 PRINT"[193]RCHIVDATEN DER VERWENDETEN [205]USIK="
  388. 3156 PRINT"STUECKE EINGEBEN UND AUSDRUCKEN LASSEN."
  389. 3172 PRINT"[205]IT [208]ROGRAMMPUNKT -0- ENDET DAS [208]ROGRAMM";
  390. 3174 PRINT"UND SETZT DIE [200]INTERGRUND- UND [210]AHMEN="
  391. 3176 PRINT"FARBE SOWIE DIE [211]CHREIBFARBE IN DEN"
  392. 3178 PRINT"[197]INSCHALTZUSTAND ZURUECK."
  393. 3180 PRINT"**** [206]OCH EINMAL  J/N ****"
  394. 3182 GETX$:IFX$=""THEN3182
  395. 3184 IFX$="J"THEN3000
  396. 3186 IFX$="N"THENRETURN
  397. 3188 GOTO3182
  398. 3999 REM **** EINSPIELVARIANTEN AUSWAEHLEN ****
  399. 4000 PRINT"[147]";:POKEE,9:POKEF,9:POKEG,1
  400. 4002 PRINT"-2- [194]ETRIEBSVARIABLEN SETZEN            [146]";
  401. 4005 PRINT" [194] A N D S O R T E                      [146]"
  402. 4010 PRINT"-1- [198]ERRO       ([198]E)"
  403. 4020 PRINT"-2- [195]HROMDIOXID ([195]R)"
  404. 4030 PRINT"-3- [198]ERROCHROM  ([198][195])"
  405. 4040 PRINT"-4- [205]ETAL       ([205]E)"
  406. 4045 GETX$:IFX$=""THEN4045
  407. 4050 IFX$="1"THENA$(1)="[198]E":GOTO4100
  408. 4060 IFX$="2"THENA$(1)="[195]R":GOTO4100
  409. 4070 IFX$="3"THENA$(1)="[198][195]":GOTO4100
  410. 4075 IFX$="4"THENA$(1)="[205]E":GOTO4100
  411. 4080 IFX$<"1"ORX$>"4"THEN4045
  412. 4100 PRINT" [194] A N D M E C H A N I K                [146]"
  413. 4110 PRINT"-1- [211]ICHERHEITSMECHANIK"
  414. 4120 PRINT"-2- [203]EINE [211]ICHERHEITSMECHANIK"
  415. 4130 GETY$:IFY$=""THEN4130
  416. 4140 IFY$="1"THENA$(2)="[211][205]":GOTO4200
  417. 4150 IFY$="2"THENA$(2)=".":GOTO4200
  418. 4160 IFY$<"1"ORY$>"2"THEN4130
  419. 4200 PRINT" [193] U F N A H M E A R T                  [146]"
  420. 4210 PRINT"-1- STEREO"
  421. 4220 PRINT"-2- MONO"
  422. 4225 PRINT"-3- MONO/STEREO"
  423. 4230 GETZ$:IFZ$=""THEN4230
  424. 4240 IFZ$="1"THENA$(3)="STEREO":GOTO4300
  425. 4250 IFZ$="2"THENA$(3)="MONO":GOTO4300
  426. 4255 IFZ$="3"THENA$(3)="MONO/STEREO":GOTO4300
  427. 4260 IFZ$<"1"ORZ$>"3"THEN4230
  428. 4300 PRINT" [210] A U S C H M I N D E R U N G          [146]"
  429. 4310 PRINT"-1- [200][201][199][200]()[195][207][205]"
  430. 4320 PRINT"-2- [196][207][204][194][217]"
  431. 4325 PRINT"-3- [203]EINE [210]AUSCHMINDERUNG"
  432. 4330 GETV$:IFV$=""THEN4330
  433. 4340 IFV$="1"THENA$(4)="[200][201][199][200]()[195][207][205]":GOTO4400
  434. 4350 IFV$="2"THENA$(4)="[196][207][204][194][217]":GOTO4400
  435. 4355 IFV$="3"THENA$(4)=".":GOTO4400
  436. 4360 IFV$<"1"ORV$>"3"THEN4330
  437. 4400 PRINT"[147]-2- [194]ETRIEBSVARIABLEN SETZEN            [146]";
  438. 4402 PRINT" [199]ESETZTE [194]ETRIEBSVARIABLEN :"
  439. 4410 PRINT" [194] A N D S O R T E                      [146]"
  440. 4415 PRINTA$(1)""
  441. 4420 PRINT" [194] A N D M E C H A N I K                [146]"
  442. 4425 PRINTA$(2)""
  443. 4430 PRINT" [193] U F N A H M E A R T                  [146]"
  444. 4435 PRINTA$(3)""
  445. 4440 PRINT" [210] A U S C H M I N D E R U N G          [146]"
  446. 4445 PRINTA$(4)""
  447. 4450 PRINTC$
  448. 4460 GETU$:IFU$=""THEN4460
  449. 4470 IFU$="J"THENRETURN
  450. 4480 IFU$="N"THEN4000
  451. 4490 GOTO4460
  452. 4999 REM **** GESETZTE EINSPIELVARIANTEN AUFRUFEN ****
  453. 5000 PRINT"[147]";:POKEE,12:POKEF,12
  454. 5002 PRINT"-3- [211]TANDARDVARIABLEN                   [146]";
  455. 5005 PRINT" [211] T A N D A R D V A R I A B L E        [146]"
  456. 5010 A$(1)="[198]E":A$(2)="[211][205]":A$(3)="STEREO":A$(4)="[200][201][199][200]()[195][207][205]"
  457. 5030 PRINT"[194]ANDSORTE        :";A$(1)
  458. 5040 PRINT"[194]ANDMECHANIK     :";A$(2)
  459. 5050 PRINT"[193]UFNAHMEART      :";A$(3)
  460. 5060 PRINT"[210]AUSCHMINDERUNG  :";A$(4)
  461. 5080 PRINT""D$
  462. 5090 GETT$:IFT$<>""THEN5090
  463. 5095 POKE198,0:WAIT198,1
  464. 5100 RETURN
  465. 5999 REM **** DATEN SICHERN MIT DISKETTE ****
  466. 6000 PRINT"[147]";:POKEE,7:POKEF,7:POKEG,5
  467. 6010 PRINT"-5- [196]ATEN SICHERN                       [146]"
  468. 6020 PRINT" J [146]  = [215]EITER"
  469. 6025 PRINT" N [146]  = [205]ENUE"
  470. 6040 GOSUB40
  471. 6045 PRINT"[213]NTER WELCHEM [206]AMEM SOLLEN DIE"
  472. 6050 PRINT"[196]ATEN ABGESPEICHERT WERDEN ?":PRINT
  473. 6055 INPUTDN$
  474. 6060 CLOSE1:OPEN1,8,2,DN$+",S,W"
  475. 6070 CLOSE15:OPEN15,8,15:INPUT#15,A,B$,C,D
  476. 6075 IFA<>63THENCLOSE15:GOTO6160
  477. 6080 IFA=63THENPRINT"   "B$"   [146]":CLOSE15
  478. 6085 POKEQ,17:POKER,22:SYSS:PRINT"[197]RSETZEN J/N  "
  479. 6090 GETX$:IFX$=""THEN6090
  480. 6095 IFX$="J"THENPOKEQ,17:POKER,22:SYSS:PRINT"[215]IRD ERSETZT ![158]":GOTO6160
  481. 6100 IFX$="N"THENPRINT"[206]EUER [206]AME ?  DANN  Y  SONST   * [146]"
  482. 6105 IFX$="*"THENRETURN
  483. 6106 IFX$="Y"THEN6108
  484. 6107 GOTO6090
  485. 6108 PRINT"[206]EUER [206]AME:":INPUTDN$:GOTO6160
  486. 6160 CLOSE1:OPEN1,8,2,"@:"+DN$+",S,W"
  487. 6161 FORI=1TO19:PRINT#1,A$(I):NEXT
  488. 6162 FORJ=1TO13:PRINT#1,B$(J):NEXT
  489. 6163 FORK=1TO9:PRINT#1,E$(K):NEXT
  490. 6164 FORL=1TO14:PRINT#1,F$(L):NEXT
  491. 6165 FORM=1TO13:PRINT#1,H$(M):NEXT
  492. 6166 CLOSE1:CLOSE15
  493. 6167 POKEQ,23:POKER,0:SYSS:PRINT"[196]IE [196]ATEN SIND GESICHERT"
  494. 6168 FORT=1TO2500:NEXT
  495. 6169 RETURN
  496. 6999 REM *** DATEN LADEN VON DISKETTE **
  497. 7000 PRINT"[147]";:POKEE,13:POKEF,13:POKEG,1
  498. 7010 PRINT"[152]-6- [196]ATEN LADEN                         [146]"
  499. 7015 PRINT" J [146]   =  [215]EITER"
  500. 7020 PRINT" N [146]   =  [205]ENUE"
  501. 7035 GOSUB40
  502. 7040 PRINT"[152][199]EBEN [211]IE DEN [196]ATEINAMEN EIN":PRINT
  503. 7050 INPUTDN$
  504. 7055 CLOSE15:OPEN15,8,15
  505. 7060 CLOSE1:OPEN1,8,2,DN$+",S,R"
  506. 7062 INPUT#15,A:IFA=0THEN7070
  507. 7063 POKEQ,15:POKER,0:SYSS:PRINT"[144]  "DN$"  [146] NICHT VORHANDEN !"
  508. 7064 CLOSE1:CLOSE15:FORT=1TO2500:NEXT:RETURN
  509. 7070 FORI=1TO19:INPUT#1,A$(I):NEXT
  510. 7071 FORJ=1TO13:INPUT#1,B$(J):NEXT
  511. 7072 FORK=1TO9:INPUT#1,E$(K):NEXT
  512. 7073 FORL=1TO14:INPUT#1,F$(L):NEXT
  513. 7074 FORM=1TO13:INPUT#1,H$(M):NEXT
  514. 7076 CLOSE15
  515. 7078 CLOSE1:CLOSE15
  516. 7080 POKEQ,20:POKER,0:SYSS:PRINT"[196]IE [196]ATEN SIND GELADEN"
  517. 7082 FORT=1TO1500:NEXT:RETURN
  518. 7999 REM *** ARCHIVDATENEINGABE ***
  519. 8000 PRINT"[147]";:POKEE,1:POKEF,1:POKEG,0
  520. 8010 PRINT" [193]RCHIVDATEN EINGEBEN/AUSDRUCKEN      [146]"
  521. 8020 PRINT"-1- [197]INSPIELDATEN EINGEBEN"
  522. 8025 PRINT"-2- [197]INSPIELDATEN AUSDRUCKEN"
  523. 8027 PRINT"-3- [205]ENUE"
  524. 8030 PRINT"[194]ITTE AUSWAEHLEN"
  525. 8035 GETX$:IFVAL(X$)<1ORVAL(X$)>3THEN8035
  526. 8040 ONVAL(X$)GOTO8100,840,10010
  527. 8050 GOTO8035
  528. 8100 PRINT"[147]";:POKEE,2:POKEF,2:POKEG,1
  529. 8102 PRINT" [197]INSPIELDATEN EINGEBEN                 [146]"
  530. 8110 PRINT" [197]INSPIELDATUM      [146]":INPUT>10,0,5,E$(8)
  531. 8111 PRINT:PRINT:PRINT:PRINT" [198]UER WEN           [146]":INPUT>30,0,10,E$(9)
  532. 8113 POKEE,5:POKEF,5:POKEG,1
  533. 8114 PRINT"[147][197]INSPIELDATEN      [203]ONTROLLE  W/Z/M  [146]"
  534. 8116 PRINT"[153] [197]INSPIELDATUM                         [146]":PRINTE$(8)
  535. 8117 PRINT"[153] [198]UER WEN                              [146]":PRINTE$(9)
  536. 8118 PRINT"[153] [195]ASSETTENTITEL:                       [146]":PRINTA$(5)
  537. 8120 PRINT""C$
  538. 8125 GETX$:IFX$=""THEN8125
  539. 8127 IFX$="M"THENRETURN
  540. 8130 IFX$="J"THEN8200
  541. 8132 IFX$="Z"THEN414
  542. 8135 IFX$="N"THEN8100
  543. 8137 IFX$="W"THEN8214
  544. 8140 GOTO8125
  545. 8200 POKEE,6:POKEF,6:POKEG,1
  546. 8202 PRINT"[147] [197]INSPIELDATEN EINGEBEN   [211]EITE 1       [146]"
  547. 8204 PRINT"[202]ETZT DIE [193]RCHIVDATEN EINGEBEN !":PRINT" [212] I T E L [146]"
  548. 8206 PRINT" [193]RCHIVNUMMER [146]"
  549. 8208 FORI=6TO19:POKEQ,10:POKER,0:SYSS:PRINTA$(I)
  550. 8210 INPUT>8,0,14,F$(I-5):POKEQ,14:POKER,0:SYSS:PRINT"        "
  551. 8212 POKEQ,10:POKER,0:SYSS:PRINT"                                      ":NEXT
  552. 8214 PRINT"[147]";:GOSUB24:POKEE,2:POKEF,2:POKEG,1
  553. 8216 PRINT"[193]RCHIVDATEN [211]EITE 1  [203]ONTROLLE W/Z/M  [146]":PRINT:PRINT
  554. 8218 FORI=6TO19::PRINTLEFT$(A$(I),25);:PRINTTAB(27)I-5;:PRINTTAB(31)F$(I-5):NEXT
  555. 8220 PRINT""C$
  556. 8222 GETX$:IFX$=""THEN8222
  557. 8224 IFX$="J"THEN8300
  558. 8228 IFX$="N"THEN8240
  559. 8230 IFX$="Z"THEN8113
  560. 8232 IFX$="W"THEN8314
  561. 8234 IFX$="M"THENRETURN
  562. 8236 GOTO8222
  563. 8240 POKEQ,20:POKER,0:SYSS:PRINT"[206]UMMER DIE GEAENDERT WIRD  :"
  564. 8242 INPUT>2,30,20,X$:IFVAL(X$)<1ORVAL(X$)>14THEN8250
  565. 8244 Y=VAL(X$)
  566. 8246 POKEQ,22:POKER,0:SYSS:PRINTF$(Y)
  567. 8248 INPUT>8,0,22,F$(Y):GOTO8214
  568. 8250 PRINT:PRINT:PRINT" [198]ALSCHE [197]INGABE       [198]ALSCHE [197]INGABE [146]"
  569. 8252 FORT=1TO1000:NEXT:GOTO8214
  570. 8300 POKEE,6:POKEF,6:POKEG,1
  571. 8302 PRINT"[147] [197]INSPIELDATEN EINGEBEN   [211]EITE 2       [146]"
  572. 8304 PRINT"[202]ETZT DIE [193]RCHIVDATEN EINGEBEN !":PRINT" [212] I T E L [146]"
  573. 8306 PRINT" [193]RCHIVNUMMER [146]"
  574. 8308 FORI=1TO13:POKEQ,10:POKER,0:SYSS:PRINTB$(I)
  575. 8310 INPUT>8,0,14,H$(I):POKEQ,14:POKER,0:SYSS:PRINT"        "
  576. 8312 POKEQ,10:POKER,0:SYSS:PRINT"                                      ":NEXT
  577. 8314 PRINT"[147]";:GOSUB27:POKEE,2:POKEF,2:POKEG,1
  578. 8316 PRINT"[193]RCHIVDATEN [211]EITE 2  [203]ONTROLLE W/Z/M  [146]":PRINT:PRINT
  579. 8318 FORI=1TO13::PRINTLEFT$(B$(I),25);:PRINTTAB(27)I;:PRINTTAB(31)H$(I):NEXT
  580. 8320 PRINT""C$
  581. 8322 GETX$:IFX$=""THEN8322
  582. 8324 IFX$="J"THENRETURN
  583. 8328 IFX$="N"THEN8340
  584. 8330 IFX$="Z"THEN8214
  585. 8332 IFX$="W"THEN8487
  586. 8334 IFX$="M"THENRETURN
  587. 8336 GOTO8322
  588. 8340 POKEQ,19:POKER,0:SYSS:PRINT"[206]UMMER DIE GEAENDERT WIRD  :"
  589. 8342 INPUT>2,30,19,X$:IFVAL(X$)<1ORVAL(X$)>13THEN8350
  590. 8344 Y=VAL(X$)
  591. 8346 POKEQ,22:POKER,0:SYSS:PRINTH$(Y)
  592. 8348 INPUT>8,0,22,H$(Y):GOTO8314
  593. 8350 PRINT:PRINT:PRINT" [198]ALSCHE [197]INGABE       [198]ALSCHE [197]INGABE [146]"
  594. 8352 FORT=1TO1000:NEXT:GOTO8314
  595. 8487 IFX$="W"THENPRINT" J [146] ODER  M [146] DRUECKEN !":FORT=1TO1000:NEXT:GOTO8314
  596. 8898 REM *** DRUCKAUSGABE ARCHIVDATEN ***
  597. 8900 OPEN1,4,7
  598. 8903 FORI=0TO79:PRINT#1,"-";:NEXT
  599. 8905 PRINT#1,"[195] A S S E T T E N L A Y O U T                 [195] A S S E T T E N";
  600. 8910 PRINT#1," L A Y O U T"
  601. 8913 FORI=0TO79:PRINT#1,"-";:NEXT:PRINT#1:PRINT#1
  602. 8915 PRINT#1:PRINT#1,"[197] I N S P I E L D A T U M   :   ";E$(8)
  603. 8920 PRINT#1,"[198] U E R    W E N            :   ";E$(9)
  604. 8922 PRINT#1:FORI=0TO79:PRINT#1,"-";:NEXT
  605. 8925 PRINT#1,"[195] A S S E T T E N T I T E L :   ";A$(5)
  606. 8927 FORI=0TO79:PRINT#1,"-";:NEXT
  607. 8930 PRINT#1:PRINT#1
  608. 8935 PRINT#1,"[194]ANDSORTE"CHR$(16)"15[194]ANDMECHANIK"CHR$(16)"35[193]UFNAHMEART";
  609. 8940 PRINT#1,CHR$(16)"52[210]AUSCHUNTERDRUECKUNGSSYSTEM"
  610. 8945 PRINT#1,A$(1)CHR$(16)"15"A$(2)CHR$(16)"35"A$(3)CHR$(16)"52"A$(4)
  611. 8950 PRINT#1:PRINT#1:PRINT#1:PRINT#1
  612. 8951 PRINT#1,O$SPC(16)O$:PRINT#1:PRINT#1
  613. 8952 FORI=6TO19:PRINT#1,A$(I)CHR$(16)"47 "F$(I-5):NEXT
  614. 8966 PRINT#1:PRINT#1:PRINT#1
  615. 8970 PRINT#1,P$SPC(16)P$:PRINT#1:PRINT#1
  616. 8971 FORI=1TO13:PRINT#1,B$(I)CHR$(16)"47 "H$(I):NEXT
  617. 8994 PRINT#1:CLOSE1
  618. 8995 POKEQ,10:POKER,5:SYSS:PRINT" [193]LLE [196]ATEN GEDRUCKT   !     "
  619. 8996 GOSUB600:FORT=1TO3000:NEXT:GOTO10010
  620. 8999 REM *** PROGRAMMENDE ***
  621. 9000 POKEE,14:POKEF,6:POKEG,14:PRINT"[147]";:PRINTCHR$(142):END
  622. 9999 REM **** MENUE ****
  623. 10000 DIMA$(19),B$(13),F$(14),H$(13)
  624. 10001 FORI=1TO4:A$(I)=".":NEXT
  625. 10003 FORK=8TO9:E$(K)=".":NEXT
  626. 10006 Q=214:R=211:S=58640:E=53280:F=53281:G=646
  627. 10007 D$="**** [212]ASTE DRUECKEN ****"
  628. 10008 C$=" [193]LLES RICHTIG  J/N ? [146]"
  629. 10009 O$="***** [211]EITE 1 *****":P$="***** [211]EITE 2 *****"
  630. 10010 PRINT"[147]";:POKEE,0:POKEF,0
  631. 10015 PRINT"  [195] A S S E T T E N  -  [204] A Y O U T     "
  632. 10020 PRINT"-1- [193]RBEITSHINWEISE"
  633. 10022 PRINT"-2- [194]ETRIEBSVARIABLEN SETZEN "
  634. 10025 PRINT"-3- [211]TANDARDVARIABLEN"
  635. 10030 PRINT"-4- [196]ATENEINGABE"
  636. 10035 PRINT"-5- [196]ATEN SICHERN"
  637. 10040 PRINT"-6- [196]ATEN LADEN"
  638. 10045 PRINT"-7- [196]ATEN KONTROLLIEREN"
  639. 10047 PRINT"-8- [204]AYOUT AUSDRUCKEN"
  640. 10050 PRINT"-9- [193]RCHIVDATEN EINGEBEN/AUSDRUCKEN"
  641. 10052 PRINT"-0- [208]ROGRAMMENDE"
  642. 10055 PRINT"[193]USWAHL -->"
  643. 10060 GETX$:IFX$<"0"ORX$>"9"THEN10060
  644. 10062 IFX$<>"0"THEN10065
  645. 10063 GOTO9000
  646. 10065 ONVAL(X$)GOSUB3000,4000,5000,60,6000,7000,460,940,8000
  647. 10110 GOTO10010
  648.