100 REM SYS-STEMPEL
110 REM VON N.HEUSLER, ZWENGAUERWEG 18, 8000 MUENCHEN 71
120 POKE53280,.:POKE53281,.:POKE788,52:N$=CHR$(.)
130 GOTO270
140 PRINT"[147][154][142]"TAB(14)"SYS - STEMPEL
150 [153]"   VON N. HEUSLER    VERS. 1 (C) 4.92
160 PRINT"[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]
170 [142]
180 [152]15,"I
190 INPUT#15,F1,F1$,F2,F3:IFF1<2THENOK=1:RETURN
200 PRINT:PRINT"ACHTUNG[146]: DISKETTENFEHLER NR."F1:PRINT
210 PRINTF1$" TRACK"F2" SEKTOR"F3
220 PRINT"A[154]BBRUCH, W[154]IEDERHOLEN, I[154]GNORIEREN?":POKE198,.
230 GETDM$:IFDM$="I"THENOK=1:RETURN
240 IFDM$="W"THENOK=.:RETURN
250 IFDM$="A"THENRUN
260 GOTO230
270 OPEN15,8,15,"U9
280 [141]140
290 [153]"DIESES UTILITY AENDERT DIE ZAHLENANGABE
300 PRINT"VOR PRG-DATEIEN IM DIRECTORY
310 [153]"PROGRAMMWAHL:"[166]27)"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
320 PRINT"   1[154]  -  LADEADRESSE EINIGE DATEIEN
330 [153]"   2CONT  -  LADEADRESSE ALLE   DATEIEN
340 PRINT"   3[154]  -  BLOCKLAENGE EINIGE DATEIEN
350 [153]"   4CONT  -  BLOCKLAENGE ALLE   DATEIEN
360 PRINT"   5[154]  -  BELIEB.ZAHL EINIGE DATEIEN
370 [153]"   6CONT  -  DIRECTORY ZEIGEN
380 PRINT"   7[154]  -  PROGRAMMENDE
390 [153]""[163]14);
400 [151]204,.:[151]198,.
410 [161]FK$:[139]FK$[179]"1"[176]FK$[177]"7"[167]410
420 FK[178][197](FK$):[151]205,2:[146]207,1,1:[151]204,1
430 [139]FK[178]7[167][158]64738
440 [139]FK[179][177]6[167]510
450 [153]"LOADCONT"[163]8)"-DIRECTORY WIRD GELADEN-
460 GOSUB180:IFOK=.THEN460
470 SYS57812"$",8,.:POKE44,192:POKE768,174:POKE769,167:SYS47003,1
480 POKE782,192:SYS65493:SYS42291:PRINT"[147]
490 [155]:[151]44,8:[151]768,139:[151]769,227:[153]
500 [153]"(WEITER MIT TASTECONT)":[151]198,.:[146]198,1:[138]
510 [153]"LOADCONTDIRECTORY WIRD GELESEN
520 GOSUB180:IFOK=.THEN510
530 OPEN8,8,8,"#
540 [152]15,"U1:8 0 18 0":[141]190:[139]OK[178].[167]540
550 [161]#8,TR$,SE$:TR[178][198](TR$[170]N$):SE[178][198](SE$[170]N$)
560 [152]15,"B-P 8 144
570 GET#8,DR$:IFDR$<>"[160]"THENDN$=DN$+DR$:GOTO570
580 PRINT"NAME DER DISKETTE: "DN$:PRINT
590 IFSE<30THEN620
600 CLOSE8:PRINT"BEARBEITUNG DIESER DISKETTE ABGESCHLOS- SEN. (TASTE[154])
610 [151]198,.:[146]198,1:[138]
620 [152]15,"U1:8 0"TR;SE:[141]190:[139]OK[178].[167]620
630 OT[178]TR:OS[178]SE:[161]#8,TR$,SE$:TR[178][198](TR$[170]N$):SE[178][198](SE$[170]N$)
640 [129]D[178].[164]7
650 [152]15,"B-P 8"32[172]D[170]2
660 [161]#8,A$:A[178][198](A$[170]N$)
670 [139]A[179]128[176](A[175]7)[179][177]2[167]1000
680 [161]#8,TR$,SE$:T1[178][198](TR$[170]N$):S1[178][198](SE$[170]N$):FE$[178]""
690 [161]#8,A$:[139]A$[179][177]"CLOSE"[175][195](FE$)[179]16[167]FE$[178]FE$[170]A$:[137]690
700 [152]15,"B-P 8"32[172]D[170]30
710 [161]#8,L$,H$
720 BO[178]256[172][198](H$[170]N$)[170][198](L$[170]N$)
730 [153][201]("    "[170][196](BO),5)" "[199](34)FE$[199](34);
740 [153][163]25)"PRG ";
750 [139]FK[178]2[176]FK[178]4[167]790
760 [153]"JCONTA/NCONTEINCMDCMDCMDCMDCMDCMDCMD";:[151]198,.
770 [161]WA$:[139]WA$[178]"N"[167][153]"BLEIBT  ":[137]1000
780 [139]WA$[179][177]"J"[167]770
790 [153]"->      CMDCMDCMDCMDCMDCMD";
800 [139]FK[179]3[167][141]830:[137]930
810 [139]FK[178]5[167][141]900:[137]930
820 [141]850:[137]930
830 [152]15,"U1:8 0"T1;S1:[141]190:[139]OK[178].[167]830
840 [161]#8,A$,A$,L$,H$:NW[178]256[172][198](H$[170]N$)[170][198](L$[170]N$):[142]
850 NW[178]1:T2[178]T1:S2[178]S1
860 [152]15,"U1:8 0"T2;S2:[141]190:[139]OK[178].[167]860
870 [161]#8,TR$,SE$:T2[178][198](TR$[170]N$):S2[178][198](SE$[170]N$)
880 [139]T2[167]NW[178]NW[170]1:[137]860
890 [142]
900 [141]830:[153]:[153]""NW:RI[178][194](214)[171]1
910 [133]"ONZAHLENEINGABE";NW:[139]NW[179]0[176]NW[177]65535[167][153]"ONONONON":[137]900
920 [151]781,RI:[158]59903:[153]"CONTONONON"[163]31);:[142]
930 [152]15,"U1:8 0"OT;OS:[141]190:[139]OK[178].[167]930
940 [139]BO[178]NW[167][153]"CMDCMDBLEIBT!":[137]1000
950 [153][201]("    "[170][196](NW),6)
960 [152]15,"B-P 8"32[172]D[170]30
970 H[178][181](NW[173]256):L[178]NW[171]256[172]H
980 [152]8,[199](L)[199](H);
990 [152]15,"U2:8 0"OT;OS:[141]190:[139]OK[178].[167]990
1000 [130]D:[137]590