home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh4x / sh46a.d64 / d (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  23KB  |  639 lines
  1. 0 REM":"  BITTE ZEILEN 40000FF BEACHTEN
  2. 1 POKE56,128:CLR:FORI=.TO40:SP$=SP$+" ":NEXT:SY$="DATAMASTER (C) NSS 1987 V
  3. 2 [141]3300:[151]53280,.:[151]53281,11:[151]650,128:F$[178]"(null)TART":[141]3000
  4. 3 MW$[178]"M-W":[160]15:[159]15,8,15,MW$:[141]3100:[139]OK[178].[167]3
  5. 6 [151]1,55:[158]51400:ZO[178]7:B8$[178]"B-P 8 0
  6. 7 DIMM%(147),S%(147),T%(147),S$(147):DV$=CHR$(34)
  7. 8 BR=32783:SI=32780:TA=32774:IN=32777:RR=32786:ME=32768:MS=32795:ML=MS-3
  8. 9 C1=32798:CB=32813:RV=32810:OB=32816:EI=32819:WE=32822:AW=32804:VR=32825
  9. 10 CI=32771:OH=32828:SQ=32807:PA=32831:AP=PA+3:C2=C1+3:QS=32837:FI=32840
  10. 11 DD=32849:ED=32843:CK=32846:US=32852:I1=32855:I3=32861:I4=I3+3
  11. 12 SYSI3,14:SYSI1:POKE161,.
  12. 20 GOSUB3200
  13. 21 OPEN8,8,8,"#":GOSUB3100:IFOK=.THENCLOSE8:GOTO21
  14. 22 SYSBR,23,0,0:SYSSI,8,28,A$
  15. 23 IFLEFT$(A$,25)=SY$THEN200
  16. 30 F$="[196]ATENDISK VORBEREITEN":GOSUB3000
  17. 35 CLOSE8:PRINT"[194]ITTE LEGEN [211]IE EINE [196]ATENDISK EIN, ODER
  18. 36 [153]"EINE LEERE,  FORMATIERTE  STR$ISKETTE,  DIE
  19. 37 PRINT"EINE [196]ATENDISK WERDEN SOLL ! ([212][193][211][212][197])":SYSTA:GOSUB3200
  20. 40 OPEN8,8,8,"#":SYSBR,18,0,144:SYSSI,8,16,A$
  21. 42 IFA$<>"DATAMASTER[160][160][160][160][160][160]"THEN50
  22. 44 PRINT"[193]CHTUNG:[146] [196]IE [208]ROGRAMMDISK KANN NICHT ZUR
  23. 46 [153]"STR$ATENSPEICHERUNG  HERANGEZOGEN  WERDEN !
  24. 48 PRINT"[196]RUECKEN [211]IE EINE [212]ASTE.":CLOSE8:SYSTA:GOTO30
  25. 50 SYSBR,23,0,0:SYSSI,8,28,B$
  26. 51 IFLEFT$(B$,25)=SY$THEN200
  27. 52 PRINT"[211]IND [211]IE SICHER,  DASS SICH AUF DER [196]ISK
  28. 53 [153]""A$"WAIT KEINE  WICHTIGEN  STR$ATEN
  29. 54 PRINT"BEFINDEN ? [[202]A/[206]EIN]":GOSUB3010:IFOK=.THENCLOSE8:GOTO30
  30. 56 F$="[196]ATENDISK ANLEGEN":GOSUB3000
  31. 60 PRINT"[194]ITTE WARTEN - [196]ATENDISK WIRD ANGELEGT
  32. 61 [160]8:[152]15,"U9":[152]15,MW$
  33. 62 [152]15,"N:DATENDISK":[141]3100:[139]OK[178].[167]62
  34. 63 [141]300
  35. 64 [152]15,B8$:[152]8,SY$VE$
  36. 68 [152]15,"U2 8 0 23 0":[141]3100:[139]OK[178].[167]68
  37. 70 [153]"PEEKITTE GEBEN (null)IE EIN (null)ASSWORT FUER DIESE
  38. 72 PRINT"[196]ATENDISK EIN:   [157][157]";:SYSIN,20,A$:IFA$=""THENA$="-
  39. 73 [139]A$[178]"-"[167][153]"ONONONON":[137]70
  40. 74 [152]15,B8$:[152]8,A$"LET":[152]15,"U2:8 0 23 1":[141]3100
  41. 76 [139]OK[178].[167]74
  42. 78 [129]S[178]2[164]4
  43. 80 [152]15,B8$:[152]8,"LET(null)EER":[152]15,"U2:8 0 23"S
  44. 81 [141]3100:[139]OK[178].[167]80
  45. 82 [130]:[152]15,B8$:[152]8,[199](.)[199](.)[199](.)
  46. 84 [152]15,"U2:8 0 23 5":[141]3100:[139]OK[178].[167]84
  47. 86 [139]RF[178].[137]1000
  48. 88 RF[178].:[142]
  49. 100 [153][163]20[171][195](A$)[173]2)A$:ZX[178]ZX[170]1:[139]ZX[179]19[167][142]
  50. 102 ZX[178].:[153][163]12)"STOP--- (null)ASTE ---":[158]TA:[141]3000:[151]646,1:[142]
  51. 200 F$[178]"(null)ULASSUNGSPRUEFUNG":[141]3000
  52. 202 [153]"PEEKITTE GEBEN (null)IE DAS (null)ASSWORT EIN ('-':
  53. 204 PRINT"[193]BBRUCH): ";:SYSIN,20,P$:IFP$="-"THEN30
  54. 206 SYSBR,23,1,0:SYSSI,8,21,A$
  55. 208 FORI=1TOLEN(A$):IFMID$(A$,I,1)="[136]"THENA$=LEFT$(A$,I-1):GOTO210
  56. 209 NEXT
  57. 210 IFA$<>P$THENPRINT"[208]ASSWORT UNBEKANNT/[212]ASTE DRUECKEN !":SYSTA:GOTO200
  58. 212 GOSUB3610:GOTO1000
  59. 300 OPEN2,8,2,"----------------,S,W":CLOSE2:GOSUB3100:IFOK=.THEN300
  60. 302 OPEN2,8,2,"BITTE DIESE DISK,S,W":CLOSE2
  61. 304 OPEN2,8,2,"NICHT BENUTZEN !,S,W":CLOSE2
  62. 306 OPEN2,8,2,"/---------------,S,W":CLOSE2:OPEN8,8,8,"#":SYSBR,18,1,2
  63. 308 PRINT#8,CHR$(143);:PRINT#15,"B-P 8 34":PRINT#8,CHR$(143);
  64. 310 PRINT#15,"B-P 8 66":PRINT#8,CHR$(143);:PRINT#15,"B-P 8 98
  65. 312 [152]8,[199](143);:[152]15,"B-P 8 101":[152]8,"-";
  66. 314 [152]15,"U2 8 0 18 1":[142]
  67. 900 [171]
  68. 1000 F$[178]"LEFT$AUPTMENUE":[141]3000:[137]1004
  69. 1002 [141]1050:[153]" ((null)) (null)EUE STR$ATENDISK EINLESEN/ANLEGEN":[137]1010
  70. 1003 [153]" ((null)) STR$IENST":[137]1006
  71. 1004 [153]" (ATN) STR$ATEI VON STR$ATENDISK EROEFFNEN
  72. 1005 PRINT" ([194]) [206]EUE [196]ATEI ANLEGEN":GOTO1007
  73. 1006 PRINT" ([210]) [208]ROGRAMMENDE":GOTO1020
  74. 1007 PRINT" ([195]) [201]N [196]ATEI BLAETTERN
  75. 1008 [141]1050:[153]" (STR$) (null)EUEN STR$ATENSATZ EINGEBEN
  76. 1009 PRINT" ([197]) [196]ATENSATZ AENDERN":GOTO1011
  77. 1010 PRINT" ([204]) [196]ATENDISK LOESCHEN (ERNEUT ANLEGEN)";:GOTO1019
  78. 1011 GOSUB1050:PRINT" ([198]) [211]UCHE (NACH [211]CHLUESSEL)":GOTO1013
  79. 1012 GOSUB1050:PRINT" ([200]) [211]ORTIEREN":GOTO1018
  80. 1013 PRINT" ([199]) [211]UCHE IM GESAMTEN [196]ATENSATZ":GOTO1012
  81. 1014 PRINT" ([206]) [205]ASKE ZEIGEN":GOTO1016
  82. 1015 PRINT" ([208]) [200]INWEISE":GOTO1003
  83. 1016 GOSUB1050:PRINT" ([207]) [198]REIER [211]PEICHERPLATZ":GOTO1015
  84. 1017 PRINT" ([202]) [204]ISTE DRUCKEN":GOTO1002
  85. 1018 GOSUB1050:PRINT" ([201]) [196]ATENSATZ DRUCKEN":GOTO1017
  86. 1019 GOSUB1050:PRINT" ([205]) [205]ARKIERUNGEN MANAGEN":GOTO1014
  87. 1020 POKE646,.:POKE214,22:SYS58732:FORI=.TO39:PRINT"[164]";:NEXT:N5%=.
  88. 1021 PRINT"[208]ROGRAMMIERT VON [206]. [200]EUSLER,  [202]UN/[193]UG 87";
  89. 1022 IFMA$>""THENPRINT"[194]ELEGTE [211]AETZE:"NB"[157] ";
  90. 1023 PRINTLEFT$(SP$,14-(MA$="")*15);
  91. 1024 IFPEEK(211)<36THENPRINT" ";:GOTO1024
  92. 1025 A$="   ":IFMKTHENA$="[205][193][210]
  93. 1026 [153]A$:[151]56295,[194](56294):[151]2023,160[170]43[172]MK
  94. 1028 [151]2018,160[170]10[172]JQ%
  95. 1030 [161]A$:[139]A$[178]"^"[167]A$[178]"R
  96. 1031 IFA$<"A"ORA$>"R"THEN1030
  97. 1032 MP=ASC(A$)-64:ONMPGOSUB22000,23000,25000,26000,28000,29000,31000,30000
  98. 1033 IFMP<9THEN1000
  99. 1034 ONMP-8GOSUB36000,35000,20000,27000,37000,32000,34000,33000,21000,24000
  100. 1040 GOTO1000
  101. 1050 POKE646,13-PEEK(646):RETURN
  102. 2000 POKE768,185:OPEN4,4,0:PRINT#4,"";:CLOSE4:POKE768,139:RETURN
  103. 3000 PRINT:PRINT"[147][144][196][193][212][193][205][193][211][212][197][210] 64 [214]4/"VE$"        (W) [206][211][211] 1987";
  104. 3002 PRINTMA$LEFT$(SP$,40-LEN(MA$+F$))F$:RETURN
  105. 3010 POKE198,.
  106. 3012 GETA$:IFA$<>"Y"ANDA$<>"^"ANDA$<>"J"ANDA$<>"N"THEN3012
  107. 3014 OK=.:IFA$="Y"ORA$="J"THENOK=1
  108. 3016 RETURN
  109. 3100 INPUT#15,F1,F1$,F2,F3:IFF1=.THENOK=1:RETURN
  110. 3102 PRINT"[196][201][211][203][198][197][200][204][197][210] #"F1
  111. 3104 PRINT"[212]EXT: "F1$:PRINT"IN [212]RACK"F2"[211]EKTOR"F3"([212]ASTE)":SYSTA:OK=.:RETURN
  112. 3200 PRINT#15,"I0":GOSUB3100:IFOK=.THEN3200
  113. 3202 RETURN
  114. 3300 VE=PEEK(2055)
  115. 3302 VE$=CHR$(48+VE/100)+CHR$(48+(VE-(INT(VE/100)*100))/10)
  116. 3303 VE$=VE$+CHR$(48+VE-(INT(VE/10)*10))
  117. 3304 RETURN
  118. 3400 FORII=1TOLEN(A$):IFMID$(A$,II,1)=CHR$(13)THENA$=LEFT$(A$,II-1)
  119. 3402 NEXT:RETURN
  120. 3500 REM ** DATEI SCHLIESSEN
  121. 3501 PRINT"[196]ATEI '"MA$"' WIRD GESCHLOSSEN
  122. 3502 MK[178].:[139]MA$[178]""[167]JQ%[178].:[142]
  123. 3503 [139]JQ%[178].[167]MA$[178]"":[142]
  124. 3510 [152]15,B8$:[129]X[178]1[164]NB
  125. 3512 [152]8,[199](T%(X));:[130]:[152]15,"U2 8 0"30[170]ND;5:[141]3100:[139]OK[178].[167]3510
  126. 3514 [152]15,B8$:[129]X[178]1[164]NB
  127. 3516 [152]8,[199](S%(X));:[130]:[152]15,"U2 8 0"30[170]ND;6:[141]3100:[139]OK[178].[167]3514
  128. 3518 [158]BR,23,5,ND[171]1:[152]8,[199](NB);:[152]15,"U2 8 0 23 5":[141]3100
  129. 3520 [139]OK[178].[167]3518
  130. 3521 [139]NB[178].[167]3532
  131. 3522 [153]:SE[178].:IG[178].:[152]15,B8$:[129]X[178]1[164]NB:A$[178]S$(X)
  132. 3523 [153]"(null)CHREIBE (null)CHLUESSEL"X"ON
  133. 3524 IFLEN(A$)>16THENA$=LEFT$(A$,16)
  134. 3526 IFLEN(A$)<16THENA$=A$+" ":GOTO3526
  135. 3528 PRINT#8,A$;:IG=IG+1:IFIG>15THENIG=.:PRINT#15,"U2 8 0"ND+23;SE:SE=SE+1
  136. 3530 IFIG=.THENPRINT#15,B8$
  137. 3531 NEXT:PRINT:PRINT#15,"U2 8 0"ND+23;SE
  138. 3532 MA$="":JQ%=.:RETURN
  139. 3600 GOSUB3500
  140. 3601 PRINT"[196]ATENDISK WIRD GESCHLOSSEN...
  141. 3602 [158]BR,18,0,2:[152]8,"";:[152]15,"U2 8 0 18 0":[141]3100:[139]OK[178].[167]3602
  142. 3603 [152]15,"I0":[141]3100:[139]OK[178].[167]3603
  143. 3604 [142]
  144. 3610 [158]BR,18,0,0:[152]15,"M-WA":[152]15,"B-P 8 2":[152]8,"A";
  145. 3612 [152]15,"U2 8 0 18 0":[141]3100:[139]OK[178].[167]3610
  146. 3614 [160]8:[152]15,"I0":[141]3100:[139]OK[178].[167]3610
  147. 3616 [159]8,8,8,"#":[142]
  148. 3700 [139]MA$[177]""[167]OK[178]1:[142]
  149. 3702 [153]"(null)EFFNEN (null)IE ERST EINE STR$ATEI ! ((null)ASTE)":OK[178].:[158]TA:[142]
  150. 3710 [139]NB[178].[167][153]"(null)EIN STR$ATENSATZ GEFUELLT ! ((null)ASTE)":[158]TA:OK[178].:[142]
  151. 3712 OK[178]1:[142]
  152. 3800 F$[178]"STR$ATENSATZ"[170][196](I)[170]" ANZEIGEN":[141]3000
  153. 3810 [158]BR,T%(I),S%(I),0:[158]AW:[158]WE:[158]SI,8,[194](821),A$:[151]646,1
  154. 3812 [158]VR,50688,A$:[158]OB:[142]
  155. 10000 [151]2055,[194](2055)[170]1:[153]"NEW VERSION #"[194](2055)
  156. 10002 [148]"@:D":[151]631,[198]("DIM"):[151]198,1:[128]
  157. 10004 [143] DIE ZEILEN 10000 BIS 10004 KOENNEN ENTFALLEN !!!!
  158. 20000 F$[178]"(null)EUE STR$ATENDISK":[141]3000:[139]MA$[178]""[167]20010
  159. 20001 [153]"(null)IND (null)IE SICHER ? [J/N]":[141]3010:[139]OK[178].[167][142]
  160. 20010 [141]3600:RF[178]1:[137]30
  161. 21000 F$[178]"STR$IENSTMENUE":[141]3000
  162. 21002 [153]" (ATN) (null)TEUERUNG: CHR$ATN(null)PEEKATNCHR$VAL LEN(null)(null)(null)VALLEN(null)RIGHT$(null)(null)
  163. 21004 PRINT" ([194]) [205]ASKENFORMAT
  164. 21006 [153]" (LEN) (null)ASSWORT AENDERN
  165. 21008 PRINT" ([196]) [196]ATEINAMEN AENDERN
  166. 21010 [153]" (VAL) (null)EKUNDAERADRESSE STR$RUCKER ="ZO
  167. 21012 [153]" (ASC) (null)CREEN - PEEKLANKING
  168. 21014 PRINT" ([199]) [214]ERSIONSNUMMER [196]ISKETTE
  169. 21018 [153]" (LEFT$) LEFT$AUPTMENUE
  170. 21020 GETA$:IFA$="^"THENA$="H
  171. 21021 [139]A$[179]"A"[176]A$[177]"H"[167]21020
  172. 21022 [139]A$[178]"H"[167][142]
  173. 21024 [145][198](A$)[171]64[141]21100,21200,21300,21400,21500,21600,21700:[137]21000
  174. 21100 F$[178]"CHR$ATN(null)PEEKATNCHR$VAL64":[141]3000:[158]RR
  175. 21102 [153]"STR$IE CHR$ATN(null)PEEKATNCHR$VAL  LEN(null)(null)(null)VALLEN(null)RIGHT$(null)(null) WIRD VOM (null)YSTEM
  176. 21104 PRINT"AUTOMATISCH AUSGEFUEHRT, WENN DER [211]PEI-
  177. 21106 [153]"CHER  UEBERLAEUFT UND GEREINIGT  WERDEN
  178. 21108 PRINT"MUSS.  [206]ORMALERWEISE  DAUERT DIES  SEHR
  179. 21110 [153]"LANG  (BIS 1/2 (null)TUNDE !),  (null)IE  KOENNEN
  180. 21112 PRINT"ABER DIE  [197]RWEITERUNG '[199][193][210][194][193][199][197] 64' EIN-
  181. 21114 [153]"SCHALTEN,  DIE DIES AUF MAXIMAL 5 (null)INU-
  182. 21116 PRINT"TEN  VERSCHNELLERT,   ABER  BEI  EXTREM
  183. 21118 [153]"GROSSEN STR$ATENMENGEN UNZUVERLAESSIG WER-
  184. 21120 PRINT"DEN KANN.":PRINT"[196]IE [197]RWEITERUNG IST JETZT ";
  185. 21122 IFPEEK(1)=55THENPRINT"DES";
  186. 21124 PRINT"AKTIVIERT[146].
  187. 21130 [153]"ATNENDERN MIT DER (null)(null)ATNLENVALWAIT (null)ASTE, VALNDE MIT
  188. 21132 PRINT"[210][197][212][213][210][206][146].
  189. 21134 [161]A$:[139]A$[178][199](13)[176]A$[178]"^"[167][142]
  190. 21136 [139]A$[177][179]" "[167]21134
  191. 21138 [139][194](1)[178]55[167][158]51400:[137]21100
  192. 21140 [151]1,55:[137]21100
  193. 21200 F$[178]"(null)ASKENFORMAT":[141]3000
  194. 21202 [158]AP
  195. 21204 [153]"STR$IE ASCELDER WERDEN ";
  196. 21206 [139][194](2)[167][153]"(null)VAL(null)VAL(null)(null)";:[137]21208
  197. 21207 [153]"(null)(null)(null)(null)ATN(null)";
  198. 21208 [153]"WAIT DARGESTELLT.
  199. 21210 PRINT"[193]ENDERN MIT DER [211][208][193][195][197][146] [212]ASTE, [197]NDE MIT
  200. 21212 [153]"(null)VAL(null)(null)(null)(null)WAIT.
  201. 21215 GETA$:IFA$=CHR$(13)ORA$="^"THENRETURN
  202. 21216 IFA$<>" "THEN21215
  203. 21220 POKE2,1-PEEK(2):SYSPA,PEEK(2):GOTO21200
  204. 21300 F$="[208]ASSWORT AENDERN":GOSUB3000
  205. 21302 PRINT"[193]LTES [208]ASSWORT: ";:SYSBR,23,1,0:SYSSI,8,21,A$
  206. 21304 FORI=1TOLEN(A$):IFMID$(A$,I,1)="[136]"THENA$=LEFT$(A$,I-1):GOTO21306
  207. 21305 NEXT
  208. 21306 PRINTA$:PRINT"[197]INGABE VON '-': [193]BBRUCH:
  209. 21308 [153]"ON(null)EUES (null)ASSWORT: ";:[158]IN,20,A$:[139]A$[178]""[167]21308
  210. 21309 [139]A$[178]"-"[167][142]
  211. 21310 [152]15,B8$:[152]8,A$"LET":[152]15,"U2:8 0 23 1":[141]3100
  212. 21312 [139]OK[178].[167]21310
  213. 21314 [142]
  214. 21400 F$[178]"STR$ATEINAMEN AENDERN":[141]3000
  215. 21402 [141]3700:[139]OK[178].[167][142]
  216. 21404 [153]"ATNLTER STR$ATEINAME: "MA$
  217. 21406 [153]"STR$ATEINUMMER:    "ND"CMDCMDCMDWAIT "
  218. 21410 [153]"VALINGABE VON '-': ATNBBRUCH:
  219. 21412 PRINT"[145][206]EUER [196]ATEINAME: ";:SYSIN,16,A$:IFA$="-"THENRETURN
  220. 21414 IFA$=""THEN21412
  221. 21416 MA$=A$:PRINT#15,B8$:PRINT#8,MA$:PRINT#15,"U2 8 0 23"ND+1:RETURN
  222. 21500 F$="[211]EK.ADRESSE":GOSUB3000
  223. 21502 PRINT"[196]RUCK AUF [211]EKUNDAERADRESSE"ZO
  224. 21504 PRINT"[206]EUE [211]EK.ADRESSE:   [157][157]";:SYSIN,2,A$:ZO=VAL(A$)
  225. 21506 IFZO<.ORZO>255THENPRINT"[145][145]":GOTO21504
  226. 21508 RETURN
  227. 21600 F$="[211]CREENBLANKING":GOSUB3000
  228. 21602 PRINT"[215]ENN [211]IE DIESE [198]UNKTION AKTIVIEREN,
  229. 21604 [153]"SCHALTET SICH DER PEEKILDSCHIRM NACH EINER
  230. 21606 PRINT"BESTIMMTEN [218]EIT AB, WENN [211]IE KEINE [212]ASTE
  231. 21608 [153]"ONDRUECKEN, UND ERSCHEINT WIEDER, WENN (null)IE
  232. 21610 PRINT"[145]DANN EINE [212]ASTE DRUECKEN. [211]O WIRD VER-
  233. 21612 [153]"HINDERT, DASS SICH DAS PEEKILD IN DIE (null)ATT-
  234. 21614 PRINT"[145]SCHEIBE BRENNT, WENN [211]IE DAS [208]ROGRAMM
  235. 21616 [153]"LAENGERE (null)EIT NICHT BENUTZEN.
  236. 21620 PRINT" [196]IE [198]UNKTION IST ";:IFPEEK(789)=234THENPRINT"DES";
  237. 21622 PRINT"AKTIVIERT[146].   "
  238. 21624 SYSI4:PRINT" [214]ERZOEGERUNG = CA."INT(PEEK(2)*256/60+.5)"[157] [211]EK.   "
  239. 21628 PRINT"[211][208][193][195][197][146]  [198]UNKTION EIN/AUS
  240. 21630 [153]"(null)VAL(null)(null)(null)(null)WAIT (null)ENUE
  241. 21632 PRINT"+/-[146]    [214]ERZOEGERUNG WAEHLEN
  242. 21640 [161]A$:[139]A$[178]"^"[176]A$[178][199](13)[167][142]
  243. 21642 [139]A$[178]" "[167]21650
  244. 21644 [139]A$[178]"+"[167]21660
  245. 21646 [139]A$[178]"-"[167]21670
  246. 21648 [137]21640
  247. 21650 [158]I1[171]3[172]([194](789)[179][177]234):[151]53265,27:[151]161,.:[137]21620
  248. 21660 [139][194](2)[179]255[167][158]I3,[194](2)[170]1
  249. 21662 [137]21620
  250. 21670 [139][194](2)[167][158]I3,[194](2)[171]1
  251. 21672 [137]21620
  252. 21700 F$[178]"(null)ERSIONS# STR$ISK":[141]3000
  253. 21702 [158]BR,23,0,0:[158]SI,8,28,A$
  254. 21704 [153]"(null)ENNUNG: "[199](34)A$[199](34)
  255. 21706 [153]"STR$IESE STR$ISK WURDE ALSO UNTER DER (null)ERSION
  256. 21708 PRINTRIGHT$(A$,3)" DIESES [208]ROGRAMMES ANGELEGT. [196]IE AK-
  257. 21710 [153]"TUELLE (null)ERSIONSNUMMER (S.O.) IST "VE$".
  258. 21712 PRINT"([212]ASTE)":SYSTA:RETURN
  259. 22000 F$="[196]ATEI OEFFNEN":GOSUB3000:IFMA$=""THEN22003
  260. 22001 PRINT"[211]IND [211]IE SICHER ? [J/N]":GOSUB3010:IFOK=.THENRETURN
  261. 22002 GOSUB3500:PRINT
  262. 22003 FORI=1TO3:SYSBR,23,I+1,.:SYSSI,8,21,A$:GOSUB3400:NA$(I)=A$:NEXT
  263. 22004 OK=.:FORI=1TO3:IFNA$(I)<>"[136][204]EER"THENOK=1+OK:O2=I
  264. 22006 NEXT:IFOKTHEN22010
  265. 22007 PRINT"[193]LLE [196]ATEIEN AUF DIESER [196]ISKETTE SIND
  266. 22008 [153]"LEER ! ((null)ASTE)":[158]TA:[142]
  267. 22010 [139]OK[177]1[167]22020
  268. 22012 [153]"STR$ATEI "NA$(O2)" ? [J/N]":[141]3010:[139]OK[178].[167][142]
  269. 22014 MA$[178]NA$(O2):ND[178]O2:[137]22100
  270. 22020 [151]646,1:[129]I[178]1[164]3:[139]NA$(I)[179][177]"LET(null)EER"[167][153]" ("[199](192[170]I)") "NA$(I)
  271. 22022 [130]:[153]" (^) ATNBBRUCH":[153]"(null)ELCHE STR$ATEI OEFFNEN ?
  272. 22024 GETA$:IFA$="^"THENRETURN
  273. 22025 IFA$<"A"ORA$>"C"THEN22024
  274. 22026 IFNA$(ASC(A$)-64)="[136][204]EER"THEN22024
  275. 22028 ND=ASC(A$)-64:MA$=NA$(ND)
  276. 22100 PRINT"[207]KAY. [207]EFFNE '"MA$"'":SYSML,ND:MZ=147:IFND=3THENMZ=133
  277. 22101 SYSBR,23,5,ND-1:GET#8,A$:NB=ASC(A$+CHR$(0)):IFNB=.THENRETURN
  278. 22102 SE=.:IG=.:FORI=1TONB:PRINT"[204]ESE [211]CHLUESSEL"I"[145][145]
  279. 22104 [139]IG[178].[167][158]BR,23[170]ND,SE,0:SE[178]SE[170]1
  280. 22106 IG[178]IG[170]1:[139]IG[178]16[167]IG[178].
  281. 22108 [158]SI,8,16,A$:[158]FI,A$,S$:S$(I)[178]S$:[130]:[153]"(null)ESE (null)ERWALTUNGSDATEN
  282. 22114 SYSBR,30+ND,5,0:FORI=1TONB:GET#8,A$:T%(I)=ASC(A$+CHR$(0)):NEXT:SYSCK
  283. 22116 SYSBR,30+ND,6,0:FORI=1TONB:GET#8,A$:S%(I)=ASC(A$+CHR$(0)):NEXT:JQ%=.:RETURN
  284. 23000 F$="[206]EUE [196]ATEI ANLEGEN":GOSUB3000:IFMA$=""THEN23010
  285. 23001 PRINT"[211]IND [211]IE SICHER ? [J/N]":GOSUB3010:IFOK=.THENRETURN
  286. 23002 GOSUB3500:PRINT
  287. 23010 JQ%=.:PRINT"[214]ERZEICHNIS DER AUF [196]ISK GESPEICHERTEN  [196]ATEIEN:
  288. 23012 [129]I[178]1[164]3:[158]BR,23,I[170]1,.:[158]SI,8,21,A$:[141]3400:NA$(I)[178]A$
  289. 23014 [153]" ("[199](48[170]I)") "A$:[130]:[141]23100
  290. 23016 [153]"(null)ELCHE (null)UMMER SOLL DIE NEUE STR$ATEI BEKOM-MEN ? (1-3, ^ = ATNBBRUCH)
  291. 23018 GETA$:IFA$="^"THENRETURN
  292. 23020 IFA$<"1"ORA$>"3"THEN23018
  293. 23022 A=VAL(A$):IFNA$(A)="[136][204]EER"THEN23030
  294. 23024 PRINT"[193]CHTUNG: [196]IE ALTE [196]ATEI MIT DIESER [206]UM-
  295. 23026 [153]"MER WIRD RETTUNGLOS ZERSTOERT ! (null)IND (null)IESICHER ? [J/N]
  296. 23028 GOSUB3010:IFOK=.THEN23000
  297. 23030 F$="[196]ATEI"+STR$(A)+" ANLEGEN
  298. 23032 [141]3000:[153]"CHR$EBEN (null)IE BITTE EINEN (null)AMEN FUER DIE
  299. 23034 ND=A:PRINT"NEUE [196]ATEI EIN: ";:SYSIN,16,MA$:IFMA$=""THEN23032
  300. 23036 PRINT#15,B8$:PRINT#8,MA$:PRINT#15,"U2:8 0 23"ND+1:MZ=147:IFND=3THENMZ=133
  301. 23038 SYSBR,23,5,ND-1:PRINT#8,CHR$(0);:PRINT#15,"U2:8 0 23 5":GOSUB3100
  302. 23040 IFOK=.THEN23038
  303. 23042 PRINT"[199]EBEN [211]IE NUN DIE [197]INGABEMASKE EIN.
  304. 23044 [153]"STR$IE (F7) (null)ASTE BLENDET EINEN LEFT$ILFSBILD-
  305. 23045 POKE34634,17:POKE34635,147:POKE37649,169:POKE37650,0:POKE37651,133
  306. 23046 PRINT"SCHIRM EIN ! ([212]ASTE)":SYSTA
  307. 23047 POKE37652,212:POKE37653,76:POKE37654,182:POKE37655,131:REM PATCH
  308. 23048 GOSUB3000:POKE646,1:SYSRR:SYSME
  309. 23050 SYSC1:SYSMS,ND:NB=.:SYSCK:RETURN
  310. 23100 PRINT"[145][145][145][145][145]":SYSBR,23,5,0:SYSSI,8,3,A$:FORI=1TO3
  311. 23102 PRINTTAB(28)ASC(MID$(A$,I,1)+CHR$(0))"[211]AETZE":NEXT:RETURN
  312. 24000 F$="[208]ROGRAMMENDE":GOSUB3000
  313. 24002 PRINT"[215]OLLEN [211]IE WIRKLICH AUFHOEREN ? [J/N]":GOSUB3010
  314. 24004 IFOK=.THENRETURN
  315. 24006 GOSUB3600:CLOSE8:CLOSE15:POKE1,55:SYS64738
  316. 25000 F$="[194]LAETTERN":GOSUB3000
  317. 25002 GOSUB3700:IFOK=.THENRETURN
  318. 25003 GOSUB3710:IFOK=.THENRETURN
  319. 25004 PRINT"[197]S GIBT FOLGENDE [203]OMMANDOS:
  320. 25006 [153]"      + WAIT VALINEN VALINTRAG WEITERBLAETTERN
  321. 25008 PRINT"      - [146] [197]INEN [197]INTRAG ZURUECKBLAETTERN
  322. 25010 [153]"      VAL WAIT VALNDE
  323. 25012 PRINT"      [206] [146] [206]UMMER EINGEBEN
  324. 25013 [153]"      (null) WAIT (null)ATZ MARKIEREN
  325. 25014 PRINT"([212]ASTE DRUECKEN)":SYSTA:I=1
  326. 25020 GOSUB3800
  327. 25022 GETA$:IFA$="E"ORA$="^"THENRETURN
  328. 25024 IFA$="+"THEN25030
  329. 25025 IFA$="-"THEN25040
  330. 25026 IFA$="N"THEN25050
  331. 25027 IFA$="M"THENPOKE53280,1:POKE53265,11:MK=1:M%(I)=1:POKE53280,.:POKE53265,27
  332. 25029 GOTO25022
  333. 25030 I=I+1:IFI>NBTHENI=1
  334. 25032 GOTO25020
  335. 25040 I=I-1:IFI<1THENI=NB
  336. 25042 GOTO25020
  337. 25050 F$="[194]LAETTERN":GOSUB3000
  338. 25052 PRINT"[199]EBEN [211]IE DIE [206]UMMER DES NAECHSTEN [196]A-
  339. 25054 [153]"TENSATZES EIN: ";:[158]IN,3,A$
  340. 25055 [139]A$[178]"^"[167][142]
  341. 25056 I[178][197](A$):[139]I[179]1[176]I[177]NB[167]25050
  342. 25058 [137]25020
  343. 26000 F$[178]"STR$ATENSATZ EINGEBEN":[141]3000
  344. 26002 [141]3700:[139]OK[178].[167][142]
  345. 26003 [158]CB:[139]NB[178][177]MZ[167][153]"(null)EIN STR$ATENSATZ MEHR FREI ! ((null)ASTE)":[158]TA:[142]
  346. 26004 [139]N5%[178].[167][153]"(null)IND (null)IE SICHER ? [J/N]":[141]3010:[139]OK[178].[167][142]
  347. 26005 N5%[178]1:JQ%[178]1:F$[178]"STR$ATENSATZ"[170][196](NB[170]1)[170]" EINGEBEN":[141]3000
  348. 26006 [151]646,1:[158]CI:[158]OH:[158]OB:[158]EI:[158]WE:[158]RV,50688,[194](821),A$
  349. 26008 NB[178]NB[170]1:T%(NB)[178]1[170](ND[171]1)[172]7[170](NB[171]1)[172]7[173]MZ:[139]T%(NB)[177]17[167]T%(NB)[178]T%(NB)[170]1
  350. 26010 S%(NB)[178]NB[171]1[171][181]((NB[171]1)[173](MZ[173]7))[172](MZ[173]7)
  351. 26012 [152]15,B8$:[152]8,A$;:[152]15,"U2 8 0"T%(NB)S%(NB):[141]3100:[139]OK[178].[167]26012
  352. 26014 A$[178][202](A$,1[170][194](822),[194](823)):[158]FI,A$,S$:S$(NB)[178]S$:[141]3000
  353. 26016 [153]"(null)OCH EINEN STR$ATENSATZ ? [J/N]":[141]3010:[139]OK[178].[167][142]
  354. 26018 [137]26000
  355. 27000 F$[178]"STR$ATENDISK ANLEGEN":[141]3000
  356. 27002 [153]"(null)ORSICHT: STR$ABEI WERDEN ATN(null)(null)VAL DREI STR$ATEIEN
  357. 27004 PRINT"[145]DIESER [196]ISK GELOESCHT !!! [211]IND [211]IE
  358. 27006 [153]"SICHER ? [J/N]":[141]3010:[139]OK[178].[167][142]
  359. 27008 [141]3500:RF[178]1:[137]60
  360. 28000 F$[178]"STR$ATENSATZ AENDERN":[141]3000
  361. 28002 [141]3700:[139]OK[178].[167][142]
  362. 28003 [141]3710:[139]OK[178].[167][142]
  363. 28004 [153]"STR$ATENSATZNUMMER ('^' = VALNDE) ? ";:[158]IN,3,A$:[139]A$[178]"^"[167][142]
  364. 28006 I[178][197](A$):[139]I[179]1[176]I[177]NB[167]28000
  365. 28008 JQ%[178]1:F$[178]"(null)ATZ"[170][196](I)[170]" AENDERN":[141]3000:[141]3810
  366. 28010 [158]EI:[158]WE:[158]RV,50688,[194](821),A$
  367. 28012 [152]15,B8$:[152]8,A$;:[152]15,"U2 8 0"T%(I)S%(I):[141]3100
  368. 28013 [139]OK[178].[167]28012
  369. 28014 A$[178][202](A$,1[170][194](822),[194](823)):[158]FI,A$,S$:S$(I)[178]S$:[142]
  370. 29000 F$[178]"(null)UCHE":[141]3000
  371. 29002 [141]3700:[139]OK[178].[167][142]
  372. 29003 [141]3710:[139]OK[178].[167][142]
  373. 29010 [153]"CHR$EBEN (null)IE DEN (null)UCHBEGRIFF FUER DAS
  374. 29012 PRINT"[211]CHLUESSELFELD EIN ! ([202]OKER: *,?)":GOSUB29200
  375. 29014 PRINT"[211]UCHE NACH ";:SYSIN,16,SU$:IFSU$="^"THENRETURN
  376. 29016 A=1:K$="[198]":GOSUB31200:IFM%=9THENRETURN
  377. 29020 SYSSQ,SU$,S$(A),S$(NB),T%:IFT%THEN29030
  378. 29022 PRINT"[211]UCHBEGRIFF NICHT ";:IFA>1THENPRINT"NOCHMAL ";
  379. 29024 PRINT"GEFUNDEN.":PRINT"([212]ASTE)":SYSTA:RETURN
  380. 29030 I=T%:GOSUB3800:GOSUB31900:IFM%<3THENM%(T%)=2-M%:MK=1
  381. 29031 IFT%=NBTHENRETURN
  382. 29032 F$="[215]EITERSUCHEN":GOSUB3000
  383. 29034 PRINT"[215]EITERSUCHEN NACH "SU$" ?
  384. 29036 [141]29100:[139]OK[178].[167][142]
  385. 29038 A[178]T%[170]1:[137]29020
  386. 29100 [151]198,.
  387. 29102 [161]A$:[139]A$[179][177]"J"[175]A$[179][177]"N"[175]A$[179][177]"Y"[175][194](653)[179][177]1[167]29102
  388. 29104 OK[178].:[139]A$[178]"Y"[176]A$[178]"J"[176][194](653)[178]1[167]OK[178]1
  389. 29106 [142]
  390. 29200 [153]"ATNNMERKUNG: DURCH (null)LEFT$RIGHT$ASC(null)WAIT KOENNEN (null)IE BEIM
  391. 29202 PRINT"[211]UCHEN VERHINDERN, DASS BEI JEDEM [198]UND
  392. 29204 [153]"ANGEHALTEN WIRD !ONONONONONONONONONONONONONONON":[142]
  393. 30000 ZX[178].:F$[178]"(null)ORTIEREN":[141]3000
  394. 30002 [141]3700:[139]OK[178].[167][142]
  395. 30003 [141]3710:[139]OK[178].[167][142]
  396. 30004 [139]NB[178]1[167][153]"(null)UR EIN ASCELD BELEGT ! ((null)ASTE)":[158]TA:[142]
  397. 30005 [153]"STR$ATEI NACH (null)CHLUESSELFELD SORTIEREN:
  398. 30006 PRINT"[211]IND [211]IE SICHER ? [J/N]":GOSUB3010:IFOK=.THENRETURN
  399. 30008 MK=.:JQ%=1:PRINT"[211]ORTIERUNG LAEUFT - [194]ITTE WARTEN...
  400. 30010 [143] STRAIGHT INSERTION
  401. 30020 [129]X[178]2[164]NB:[153]"ONVALLEMENTE NOCH "NB[171]X"CMD ":[139]S$(X)[178][177]S$(X[171]1)[167]30030
  402. 30022 X$[178]S$(X):T%[178]T%(X):S%[178]S%(X):[129]Y[178]X[171]1[164]1[169][171]1
  403. 30024 S$(Y[170]1)[178]S$(Y):T%(Y[170]1)[178]T%(Y):S%(Y[170]1)[178]S%(Y):[139]X$[179][178]S$(Y[171]1)[167]30028
  404. 30026 S$(Y)[178]X$:T%(Y)[178]T%:S%(Y)[178]S%:[137]30030
  405. 30028 [130]Y
  406. 30030 [130]X:[142]
  407. 31000 F$[178]"CHR$ESAMTSUCHE":[141]3000
  408. 31002 [141]3700:[139]OK[178].[167][142]
  409. 31003 [141]3710:[139]OK[178].[167][142]
  410. 31010 [153]"STR$A IN DIESER (null)UCHART JEDER STR$ATENSATZ
  411. 31012 PRINT"GELADEN WERDEN MUSS, KANN DAS [211]UCHEN
  412. 31014 [153]"SEHR LANGE DAUERN ! (null)IND (null)IE SICHER ?
  413. 31016 GOSUB3010:IFOK=.THENRETURN
  414. 31020 PRINT"[194]ITTE VERWENDEN [211]IE '?' ALS [202]OKER !
  415. 31021 [153]"(null)UCHBEGRIFF ? ";:[158]IN,25,SG$:[139]SG$[178]""[167]31000
  416. 31022 [139]SG$[178]"^"[167][142]
  417. 31023 [153]"(null)UCHART: (ATN) ATNNZEIGEN, WENN PEEKEGRIFF VOR-             KOMMT
  418. 31024 PRINT"         ([194]) [193]NZEIGEN, WENN [194]EGRIFF                  NICHT VORKOMMT
  419. 31026 [161]A$:[139]A$[178]"^"[167][142]
  420. 31027 [139]A$[179][177]"A"[175]A$[179][177]"B"[167]31026
  421. 31028 F1[178]66[171][198](A$):K$[178]"ASC":[139]A$[178]"B"[167]K$[178]"(null)ICHTF
  422. 31029 GOSUB31200:IFM%=9THENRETURN
  423. 31030 SYSAW:SYSWE:FORH=1TONB:GOSUB3000:PRINT"[196]ATENSATZ"H"VON"NB
  424. 31031 PRINT"[211]UCHE NACH "SG$:PRINT"[193]NZEIGE BEI ";:IFF1=.THENPRINT"[206]ICHT-";
  425. 31032 PRINT"[198]UND.":PRINT"[193]BBRUCH MIT  F7 [146].":GOSUB31800
  426. 31033 SYSBR,T%(H),S%(H),0:SYSSI,8,PEEK(821),B$
  427. 31034 SYSQS,B$,SG$,F2%:F2%=(F2%=0)+1
  428. 31036 IFF2%<>F1THEN31100
  429. 31038 F$="[196]ATENSATZ"+STR$(H)+" ANZEIGEN":GOSUB3000:POKE646,1
  430. 31040 SYSVR,50688,B$:SYSOB:GOSUB31900
  431. 31041 IFM%<3THENM%(H)=2-M%:MK=1
  432. 31042 F$="[199]ESAMTSUCHE":GOSUB3000
  433. 31044 PRINT"[215]EITERSUCHEN ?":GOSUB29100:IFOK=.THENRETURN
  434. 31100 GETX$:IFX$="^"ORX$="[136]"THENRETURN
  435. 31101 NEXTH:PRINT"[211]UCHE BEENDET.
  436. 31102 [153]"((null)ASTE DRUECKEN)":[158]TA:[142]
  437. 31200 [153]"(null)ARKIEREN ?
  438. 31202 PRINT" ([193]) [205]ARKIERUNG SETZEN BEI "K$"UND
  439. 31204 [153]" (PEEK) (null)ARKIERUNG LOESCHEN BEI "K$"UND
  440. 31206 PRINT" ([195]) [206]ICHT MARKIEREN
  441. 31210 [161]A$:[139]A$[178]"^"[167]M%[178]9:[142]
  442. 31211 [139]A$[179]"A"[176]A$[177]"C"[167]31210
  443. 31212 M%[178][198](A$)[171]64:[142]
  444. 31800 [153]"(null)ICHT BEI JEDEM ASCUND ANHALTEN: (null)LEFT$RIGHT$ASC(null)WAIT":[142]
  445. 31900 [143] WARTET AUF TASTE ODER SHIFT
  446. 31902 [151]198,.
  447. 31904 [161]A$:[139]A$[177]""[176][194](653)[178]1[167][142]
  448. 31906 [137]31904
  449. 32000 F$[178]"(null)ASKE ZEIGEN":[141]3000
  450. 32002 [141]3700:[139]OK[178].[167][142]
  451. 32004 [151]646,1:[158]CI:[158]OH:[158]C2:[158]RR:[158]TA:[158]AW:[158]WE
  452. 32006 [141]3000:[153]" STR$ATEI (null)UMMER    "ND
  453. 32008 [153]" STR$ATEI (null)AME       "MA$
  454. 32010 [153]" STR$ATENSAETZE MAX."MZ
  455. 32012 [153]" STR$ATENSAETZE MOM."NB
  456. 32014 [153]" ASCELDLAENGE GES. "[194](821)
  457. 32016 [153]" ATNNZAHL ASCELDER   "[194](820)
  458. 32017 [153]" (null)ARKIERUNGSFLAG "MK
  459. 32018 [153]" ATNENDERUNGSFLAG  "JQ%
  460. 32020 [153]"(null)EITER MIT (null)(null)ATNLENVALWAIT ODER (null)VAL(null)(null)(null)(null)
  461. 32022 GETA$:IFA$=" "THEN32000
  462. 32024 IFA$=CHR$(13)ORA$="^"THENRETURN
  463. 32026 GOTO32022
  464. 33000 F$="[200]INWEISE":GOSUB3000:POKE646,1:ZX=.
  465. 33002 A$="[205]IT DIESEM [208]ROGRAMM KOENNEN [211]IE SEHR":GOSUB100
  466. 33004 A$="KOMFORTABEL [196]ATEN VERWALTEN. [196]IE [197]IN-":GOSUB100
  467. 33006 A$="GABEMASKE, IN DIE DIE [196]ATEN GESCHRIE-":GOSUB100
  468. 33008 A$="BEN WERDEN, KANN FREI DEFINIERT WER-":GOSUB100
  469. 33010 A$="DEN. [196][193][212][193][205][193][211][212][197][210] ARBEITET AUCH BEIM [211]U-":GOSUB100
  470. 33012 A$="CHEN RECHT SCHNELL,WAS DARAN LIEGT,DASS":GOSUB100
  471. 33014 A$="DIE [196]ATEN AUF EINE SPEZIELLE [215]EISE VER-":GOSUB100
  472. 33016 A$="WALTET WERDEN: [201]M [211]PEICHER DES [195]64":GOSUB100
  473. 33018 A$="BEFINDEN SICH ZU JEDEM [196]ATENSATZ NICHT":GOSUB100
  474. 33020 A$="ALLE [196]ATEN, SONDERN NUR DER [201]NHALT":GOSUB100
  475. 33022 A$="EINES BESTIMMTEN, FREI ZU DEFINIERENDEN":GOSUB100
  476. 33024 A$="'[211]CHLUESSELFELDES'. [211]O KANN Z.[194]. BE-":GOSUB100
  477. 33026 A$="QUEM NACH EINEM [211]CHLUESSEL GESUCHT WER-":GOSUB100
  478. 33028 A$="DEN, BEI [194]EDARF WIRD DER GESAMTE [196]ATEN-":GOSUB100
  479. 33030 A$="SATZ NACHGELADEN UND ANGEZEIGT. [198]UER":GOSUB100
  480. 33032 A$="DIESE [212]ECHNIK IST DAS NORMALE [214][195]1541":GOSUB100
  481. 33034 A$="[196]ISKETTENFORMAT LEIDER NICHT GUT GE-":GOSUB100
  482. 33036 A$="EIGNET, SO DASS FUER DIE [193]RBEIT MIT":GOSUB100
  483. 33038 A$="[196][193][212][193][205][193][211][212][197][210] EINE EIGENE [196]ATENDISK AN-":GOSUB100
  484. 33040 A$="GELEGT WERDEN MUSS. [194]EIM [193]NLEGEN GEHEN":GOSUB100
  485. 33042 A$="ALLE [196]ATEN AUF DIESER [196]ISK RETTUNGSLOS":GOSUB100
  486. 33044 A$="VERLOREN, EBENSO IST ES NICHT OHNE VOR-":GOSUB100
  487. 33046 A$="HERIGES [198]ORMATIEREN MOEGLICH, EINE [196]A-":GOSUB100
  488. 33048 A$="TENDISK DIESES [208]ROGRAMMES NORMAL ZU":GOSUB100
  489. 33050 A$="NUTZEN. [200][201][206][215][197][201][211]: [197]S IST SEHR WICHTIG,":GOSUB100
  490. 33052 A$="DASS [211]IE DIE [196]ATENDISK [206][201][197][205][193][204][211] AUS DEM":GOSUB100
  491. 33054 A$="[204]AUFWERK ENTFERNEN, WENN DIE ROTE [204]AM-":GOSUB100
  492. 33056 A$="PE AN DER [198]LOPPY LEUCHTET ! [215]ENN [211]IE":GOSUB100
  493. 33058 A$="DAS TUN, KANN DIE MOMENTAN GEOEFFNE-":GOSUB100
  494. 33060 A$="TE [196]ATEI NICHT MEHR VERWENDET WERDEN,":GOSUB100
  495. 33062 A$="SONDERN MUSS NEU ANGELEGT WERDEN, WO-":GOSUB100
  496. 33064 A$="BEI ALLE [196]ATEN DIESER [196]ATEI VERLOREN-":GOSUB100
  497. 33066 A$="GEHEN. [215]ARTEN [211]IE MIT DEM [200]ERAUSNEH-":GOSUB100
  498. 33068 A$="MEN DER [196]ISK ALSO IMMER, BIS DAS [208]RO-":GOSUB100
  499. 33070 A$="GRAMM SIE GESCHLOSSEN HAT (WIRD AUF DEM":GOSUB100
  500. 33072 A$="[194]ILDSCHIRM ANGEZEIGT). [201]N DIESEM [218]USAM-":GOSUB100
  501. 33074 A$="MENHANG IST AUCH SEHR WICHTIG, DASS":GOSUB100
  502. 33076 A$="[211]IE DAS [208]ROGRAMM [206][213][210] UEBER DIE [198]UNK-":GOSUB100
  503. 33078 A$="TION '[197]' DES [200]AUPTMENUES VERLASSEN,":GOSUB100
  504. 33080 A$="ANSONSTEN KOENNEN WERTVOLLE [196]ATEN DER":GOSUB100
  505. 33082 A$="[196]ATENDISK VERLORENGEHEN...":GOSUB100
  506. 33083 GOSUB33300
  507. 33084 A$="":GOSUB100
  508. 33086 A$="---":GOSUB100:A$="":GOSUB100
  509. 33088 A$="[193]UTOR DES [208]ROGRAMMES: [206]IKOLAUS [200]EUSLER":GOSUB100
  510. 33090 A$="(C)OPYRIGHT [205]ARKT & [212]ECHNIK [214]ERLAG [193][199]":GOSUB100
  511. 33092 A$="":GOSUB100:A$="[196]IESES [208]ROGRAMM IST URHEBERRECHTLICH":GOSUB100
  512. 33094 A$="GESCHUETZT. [213]NERLAUBTE [203]OPIERUNG, [214]ER-":GOSUB100
  513. 33096 A$="VIELFAELTIGUNG, [214]ERLEIH ODER [214]ERMIETUNG":GOSUB100
  514. 33098 A$="IST UNTERSAGT. [202]EGLICHE UNAUTORISIERTE":GOSUB100
  515. 33100 A$="[206]UTZUNG WIRD STRAF- UND ZIVILRECHTLICH":GOSUB100
  516. 33102 A$="VERFOLGT.":GOSUB100
  517. 33199 PRINTTAB(12)"[144]--- [212]ASTE ---":SYSTA:RETURN
  518. 33300 A$="[201]M [208]ROGRAMM KOENNEN [211]IE DURCH [196]RUCK AUF":GOSUB100
  519. 33302 A$="DIE [212]ASTE <^> FAST IMMER IN DAS":GOSUB100
  520. 33304 A$="NAECHSTHOEHERE [205]ENUE ZURUECKKEHREN.":GOTO100
  521. 34000 F$="[198]REIER [211]PEICHER":GOSUB3000
  522. 34002 PRINT"[199][193][210][194][193][199][197] [195][207][204][204][197][195][212][201][207][206] ... [194]ITTE WARTEN ...
  523. 34004 A[178][184](.):AA[178][194](55)[170][194](56)[172]256[171][194](45)[171][194](46)[172]256
  524. 34006 [153]"ASCREIER (null)PEICHER:  "A"PEEKYTES
  525. 34008 PRINT"                 ="INT(10000*A/AA+.5)/100"%
  526. 34010 [153]"((null)ASTE DRUECKEN)":[158]TA:[142]
  527. 35000 F$[178]"(null)ISTE DRUCKEN":[141]3000:A%[178].
  528. 35002 [141]3700:[139]OK[178].[167][142]
  529. 35003 [141]3710:[139]OK[178].[167][142]
  530. 35004 [141]2000:[139]ST[179].[167][153]"STR$RUCKER NICHT AN ! ((null)ASTE)":[158]TA:[142]
  531. 35006 [153]"PEEKITTE DEFINIEREN (null)IE JETZT DIE (null)ASKE,
  532. 35008 PRINT"DIE ZUM [196]RUCKEN HERANGEZOGEN WERDEN
  533. 35010 [153]"SOLL (F7 (null)ASTE = LEFT$RIGHT$(null)ASCVAL) ((null)ASTE)":[158]TA:[141]3000:[158]AW
  534. 35012 [151]646,1:[158]CI:[158]OH:[158]ED:[141]3000:[141]35500
  535. 35013 [153]"PEEKITTE (null)ELEKTIERUNG WAEHLEN:
  536. 35014 PRINT" ([193]) [193]USWAHL NACH [211]CHLUESSELFELD
  537. 35016 [153]" (PEEK) "DV$"VON STR$ATENSATZ X"DV$" "DV$"BIS STR$ATENS. Y"DV$
  538. 35017 [139]MK[167][153]" (LEN) (null)ARKIERTE (null)AETZE DRUCKEN
  539. 35018 PRINT" ([196])[160][193]BBRUCH
  540. 35020 [161]A$:[139]A$[178]"^"[176]A$[178]"D"[167][142]
  541. 35022 [139]A$[178]"B"[167]35100
  542. 35024 [139]A$[178]"A"[167]35200
  543. 35025 [139]A$[178]"C"[167][139]MK[167]35400
  544. 35026 [137]35020
  545. 35100 [153]"VALINGABE VON '^': ATNBBRUCH":[153]"(null)ONCLOSESTR$ATENSATZ    CMDCMDCMD";:[158]IN,3,A$
  546. 35102 [139]A$[178]"^"[167][142]
  547. 35104 VO[178][197](A$):[139]VO[179]1[176]VO[177]NB[167][153]"ONONONONON":[137]35100
  548. 35106 [153]"PEEKISCLOSESTR$ATENSATZ    CMDCMDCMD";:[158]IN,3,A$:[139]A$[178]"^"[167][142]
  549. 35108 BI[178][197](A$):[139]BI[179]VO[176]BI[177]NB[167][153]"ONONON":[137]35106
  550. 35110 [141]3000:[159]4,4,ZO:[129]I[178]VO[164]BI:[141]35300:[139]X$[178]"^"[167]I[178]BI
  551. 35115 [130]:[160]4:[142]
  552. 35200 [153]"PEEKITTE (null)UCHBEGRIFF EINGEBEN":[153]"(MID$OKER: '*', '?', ATNBBRUCH: '^')
  553. 35202 PRINT"[211]UCHE NACH: ";:SYSIN,16,SU$:IFSU$="^"THENRETURN
  554. 35204 PRINT"[211]UCHE VON [196]ATENSATZ [206]R.    [157][157][157]";:SYSIN,3,A$:VO=VAL(A$)
  555. 35205 IFA$="^"THENRETURN
  556. 35206 IFVO<1ORVO>NBTHENPRINT"[145][145][145]":GOTO35204
  557. 35208 PRINT"[211]UCHE BIS [196]ATENSATZ [206]R.    [157][157][157]";:SYSIN,3,A$:IFA$="^"THENRETURN
  558. 35210 BI=VAL(A$):IFBI<VOORBI>NBTHENPRINT"[145][145][145]":GOTO35208
  559. 35212 GOSUB3000:OPEN4,4,ZO
  560. 35214 IFVO<=BITHENSYSSQ,SU$,S$(VO),S$(BI),T%:IFT%THEN35218
  561. 35216 CLOSE4:RETURN
  562. 35218 I=T%:GOSUB35300:VO=T%+1:GOTO35214
  563. 35300 IFE%=1ANDA%=1THENPRINT"([215]EITER MIT [212]ASTENDRUCK)[145]":SYSTA
  564. 35301 A%=1:PRINT"[196]RUCKE [196]ATENSATZ"I"[157]      [145]
  565. 35302 [158]BR,T%(I),S%(I),0:[158]AW:[158]WE:[158]SI,8,[194](821),A$
  566. 35304 [158]VR,50688,A$:[158]US:[161]X$:[142]
  567. 35400 [141]3000:[159]4,4,ZO:[129]I[178]1[164]NB:[139]M%(I)[167][141]35300:[139]X$[178]"^"[167]I[178]NB
  568. 35402 [130]:[160]4:[142]
  569. 35500 [153]"VALINZELBLATTFUNKTION ? [J/N]":[141]3010:E%[178]OK:[142]
  570. 36000 F$[178]"STR$ATENSATZ DRUCKEN":[141]3000
  571. 36002 [141]3700:[139]OK[178].[167][142]
  572. 36003 [141]3710:[139]OK[178].[167][142]
  573. 36004 [141]2000:[139]ST[178][171]128[167][153]"STR$RUCKER NICHT AN ! ((null)ASTE)":[158]TA:[142]
  574. 36005 [153]"STR$ATENSATZNUMMER ('^' = VALNDE) ? ";:[158]IN,3,A$:[139]A$[178]"^"[167][142]
  575. 36006 I[178][197](A$):[139]I[179]1[176]I[177]NB[167]36000
  576. 36008 [141]3800:[159]4,4,ZO:[158]DD:[160]4:[137]36000
  577. 37000 F$[178]"(null)ARKIERUNGEN":[141]3000
  578. 37002 [139]MK[178].[167][153]"(null)EINE (null)ARKIERUNG VORHANDEN ! ((null)ASTE)":[158]TA:[142]
  579. 37004 [153]" (ATN) (null)ARKIERUNGEN ANZEIGEN
  580. 37006 PRINT" ([194]) [205]ARKIERUNGEN LOESCHEN
  581. 37007 [153]" (LEN) (null)ARKIERUNGEN MANIPULIEREN
  582. 37008 PRINT" ([196]) [205]ARKIERUNGEN INVERTIEREN":PRINT" ([197]) [205]ARKIERTE [211]AETZE ZEIGEN
  583. 37009 [153]" (ASC) (null)UM (null)ENUE
  584. 37010 GETA$:IFA$="^"THENA$="F
  585. 37011 [139]A$[179]"A"[176]A$[177]"F"[167]37010
  586. 37012 [139]A$[178]"F"[167][142]
  587. 37014 [139]A$[178]"B"[167]37100
  588. 37015 [139]A$[178]"E"[167]37400
  589. 37016 [139]A$[178]"C"[167]37200
  590. 37017 [139]A$[178]"D"[167]37300
  591. 37018 F$[178]"ANZEIGEN":[141]3000:[153]"ASCOLGENDE STR$ATENSAETZE SIND MARKIERT:":OK[178].
  592. 37020 [129]I[178]1[164]NB:[139]M%(I)[167]OK[178]1[170]OK:[153][201]("   "[170][196](I),4);
  593. 37022 [130]:[153]:[139]OK[167][153]"ATNNZAHL (null)ARKIERUNGEN:"OK:[137]37030
  594. 37024 [153]"ONON(null)EINE (null)ARKIERUNGEN GEFUNDEN !      "
  595. 37030 [153]"PEEKITTE (null)ASTE DRUECKEN !":[158]TA:[137]37000
  596. 37100 [153]"(null)IND (null)IE SICHER ? [J/N]":[141]3010:[139]OK[178]1[167]37104
  597. 37102 [137]37000
  598. 37104 [129]I[178]1[164]NB:M%(I)[178].:[130]:MK[178].:[142]
  599. 37200 F$[178]"MANIPULIEREN":[141]3000:[153]" ('^' = VALNDE)
  600. 37202 PRINT"[145][145][145][196]ATENSATZNUMMER ? ";:SYSIN,3,A$:IFA$="^"THEN37000
  601. 37204 A=VAL(A$):IFA<1ORA>NBTHEN37200
  602. 37206 PRINT"[218]USTAND DER [205]ARKIERUNG:
  603. 37208 [153]"       VORHER:  "M%(A):[151]198,1:[151]631,48[170]M%(A)
  604. 37210 [153]"       NACHHER ? ";:[158]IN,1,A$:[139]A$[179]"0"[176]A$[177]"1"[167][153]"ONONONONONON":[137]37206
  605. 37212 M%(A)[178][197](A$):[137]37200
  606. 37300 [153]"STR$ER (null)USTAND ALLER (null)ARKIERUNGEN WIRD     UMGEDREHT...
  607. 37302 FORI=1TONB:M%(I)=1-M%(I):NEXT:PRINT"([212]ASTE)":SYSTA:GOTO37000
  608. 37400 PRINT"[196]IE MARKIERTEN [211]AETZE WERDEN GEZEIGT:
  609. 37402 [153]" (NACH JEDEM (null)ATZ (null)VAL(null)(null)(null)(null)WAIT FUER WEITER,
  610. 37403 PRINT"                  _[192][146] FUER [197]NDE)":SYSTA
  611. 37404 FORI=1TONB:IFM%(I)=.THEN37420
  612. 37406 GOSUB3800:POKE198,.
  613. 37408 GETA$:IFA$="_"ORA$="^"THEN37000
  614. 37410 IFA$<>CHR$(13)THEN37408
  615. 37420 NEXT:GOTO37000
  616. 40000 :
  617. 40002 REM ***** MASTERDATA 64 *****
  618. 40003 REM *     -------------     *
  619. 40004 REM * VON NIKOLAUS HEUSLER  *
  620. 40005 REM *     ZWENGAUERWEG 18   *
  621. 40006 REM *     8000 MUENCHEN 71  *
  622. 40007 REM *                       *
  623. 40008 REM * RUECKFRAGEN WERDEN    *
  624. 40009 REM * GEGEN DM 5,00 FUER    *
  625. 40010 REM * PORTO UND VERPACKUNG  *
  626. 40011 REM * VOM AUTOR SEHR GERNE  *
  627. 40012 REM * BEANTWORTET. BITTE    *
  628. 40013 REM * KEINE POSTWERTZEICHEN *
  629. 40014 REM * UEBER 2 DM BEILEGEN ! *
  630. 40015 REM *    VIELEN DANK...     *
  631. 40016 REM *                       *
  632. 40018 REM * (C) MARKT & TECHNIK   *
  633. 40019 REM * ALLE RECHTE VORBEHAL- *
  634. 40020 REM * TEN, (W) NSS 1988     *
  635. 40021 REM *                       *
  636. 40022 REM * JULI,AUGUST,SEPT.1987 *
  637. 40023 REM *                       *
  638. 40024 REM ********* ENDE **********
  639.