10 REM USER HELP=================64
20 REM (P)  COMMODORE WELT       ==
30 REM (C) BY                    ==
40 REM CH. KROELL                ==
50 REM                           ==
60 REM VERSION 1.0               ==
70 REM C64+1541;+MPS801/GP 100 VC==
80 REM ============================
90 REM
100 CK$=CHR$(17)+CHR$(29)+CHR$(158)+CHR$(18)
110 FOR I=0TO101:READ X:Z=Z+X:POKE 49152+I,X:NEXT
120 POKE53280,0:POKE53281,0:PRINTCHR$(147)
130 PRINTCHR$(158)+CHR$(17)+CHR$(29)+CHR$(18)+"  USER-HELP V1.0  "+CHR$(146)
140 PRINTCHR$(156)+CHR$(17)+CHR$(17)+CHR$(17)+CHR$(29)+"(P) COMMODORE WELT"
150 PRINTCHR$(17)+CHR$(159)+CHR$(29)+"(C) CHRISTIAN KROELL"
160 PRINTCD$+CHR$(17)+CHR$(17)
170 PRINTCHR$(129)+"      ==>"+CHR$(18)+"BITTE TASTE DRUECKEN"+CHR$(146)+"<=="
180 POKE 198,0:WAIT198,1
190 REM --MENUE
200 POKE53280,0:POKE53281,0:PRINTCHR$(147)+CHR$(159)
210 PRINTCHR$(142)CHR$(29)+CHR$(29)+"USER-HELP V1.0
220 [153][199](8)[170]CK$[170][199](17)[170]" F1 "[170][199](146)[170][199](156)[170]" DIRECTORY"
230 [153]CK$[170]" F2 "[170][199](146)[170][199](156)[170]" DIRECTORY AUSDRUCKEN"
240 [153]CK$[170]" F3 "[170][199](146)[170][199](156)[170]" FORMATIEREN"
250 [153]CK$[170]" F4 "[170][199](146)[170][199](156)[170]" VALIDIEREN"
260 [153]CK$[170]" F5 "[170][199](146)[170][199](156)[170]" PRG.-SCRATCH"
270 [153]CK$[170]" F6 "[170][199](146)[170][199](156)[170]" DISK-TIP"
280 [153]CK$[170]" F7 "[170][199](146)[170][199](156)[170]" DISK NAME/ID AENDERN"
290 [153]CK$[170]" F8 "[170][199](146)[170][199](156)[170]" LAUFWERK-NUMMER AENDERN"
300 [153]CK$[170]" _LEN "[170][199](146)[170][199](156)[170]" - ENDE -"
310 [153][199](17)[170][199](17)[170][199](29)[170]"BITTE WAEHLEN SIE !"
320 [161] A$
330 [139] A$[178][199](133) [167] 1330
340 [139] A$[178][199](137) [167] 1380
350 [139] A$[178][199](134) [167] 1270
360 [139] A$[178][199](138) [167] 1220
370 [139] A$[178][199](135) [167] 1170
380 [139] A$[178][199](139) [167] 910
390 [139] A$[178]"_" [167] 870
400 [139] A$[178][199](136) [167] 620
410 [139] A$[178][199](140) [167] 520
420 [137] 320
430 [143] -DIRECTORY DATA'S
440 [131]169,1,162,205,160,235,32,189,255,169,8,133,186,169,96,133,185,32,213
450 [131]243,165,186,32,180,255,165,185,32,150,255,169,0,133,144,160,3,132,251
460 [131]32,165,255,133,252,164,144,208,52,32,165,255,164,144,208,45,164,251
470 [131]136,208,233,166,252,32,205,189,169,32,32,210,255,32,165,255,166,144
480 [131]208,23,170,240,6,32,210,255,24,144,240,169,13,32,210,255,32,225,255
490 [131]240,4,160,2,208,193,76,66,246
500 [128]
510 [143] --LAUFWERK-NUMMER AENDERN
520 [151]53280,0:[151]53281,0:[153][199](147)[170][199](159)[170][199](29)[170]"USER-HELP V1.0"
530 [153][199](17)[170]"ALTE FLOPPY NUMBER ";:[133]D0
540 [139] D0[179]8 [176] D0[177]15 [167] 530
550 [153][199](17)[170]"NEUE FLOPPY NUMBER ";:[133]DN
560 [139] D0[179]8 [176] D0[177]15 [167] 550
570 [159]15,D0,15
580 [152]15,"M-W"[199](119)[199](0)[199](2)[199](DN[170]32)[199](DN[170]64)
590 [160]15
600 [137] 200
610 [143] -- DISK NAME+ID AENDERN
620 [153][199](147)[170][199](159):[151]53280,0:[151]53281,0
630 [153][199](29)[170][199](29)[170]"USER-HELP V1.0"
631 [153]"NEUER DISK/NAME HOECHSTENS 16 ZEICHEN !"
632 [153]"NEUE DISK-ID   HOECHSTENS   5 ZEICHEN !"
640 [151]828,8
650 GN%[178][194](828):UR%[178]0
660 [141] 680
670 [160]1:[159]1,GN%,15,"I0":[141]830:[160]1:[139][195][178]0[167][142]
680 [160]1:[160]15:[159]15,GN%,15:NR[178]0:[159]1,GN%,3,"#":[152]15,"U1:3"NR",18,0"
690 [152]15,"B-P:3,144":D$[178]"":[129]L[178]1[164]16:[161]#1,A$:D$[178]D$[170]A$:[130]
700 [153][199](147)[170]CD$[170]"ALTER DISK-NAME: "[170][199](18)D$
710 NA$[178]"DISK-NAME":[153][199](17)[170][199](17)[170]"NEUER DISK-NAME";:[133]NA$
720 NA$[178][200](NA$[170]"                 ",16)
730 [152]15,"B-P:3,144":[152]1,NA$;:[152]15,"U2:3"NR",18,0":[160]1:[160]15
740 [143]ID
750 DV[178]0:[159]15,GN%,15:[159]1,GN%,3,"#":[152]15,"U1:3"DV",18,0"
760 [152]15,"B-P:3,162":[161]#1,A$,B$,C$,D$,E$
770 [153][199](147)[170][199](17)[170][199](17)[170]"ALTE DISK-ID: "[170][199](18)A$;B$;C$;
780 [153]D$;E$:[133]"NEUE DISK-ID";I$
790 [139][195](I$)[177]5[167]780
791 [139][195](I$)[179]5[167][129]I[178][195](I$)[164]5:I$[178]I$[170][199](32):[130]
810 [152]15,"B-P:3,162":[152]1,I$;:[152]15,"U2:3";DV;" 18 0"
811 [160]1:[152]15,"I":[160]15
820 [141]670:[142]
830 [160]15:[159]15,GN%,15
840 [132]15,EN,EN$,NE,EE:[139]UR%[167][137]200
850 [160]15:[137] 200
860 [143] -- ENDE
870 [153][199](147)[170][199](159)
880 [153][199](29)[170][199](29)[170]"MIT SYS49152 DIRECTORY OHNE PROGRAMM-   VERLUST ...
890 END
900 REM -- DISK-TIP
910 PRINTCHR$(147)+CHR$(159)+CHR$(29)+CHR$(29)+"USER-HELP V1.0"
920 PRINT"  [160][160][160][160]
930 [153][199](17)[170]" HIER SEHEN SIE DIE THENTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(FN
940 PRINT" GANZ NORMALE 5,25' [167]         [164][165]
950 [153]" ZOLL DISKETTE;EIN- THEN    (null)RIGHT$   FN
960 PRINT" SEITIG BESPIELBAR. [167]    [202][203]   [163][165]
970 [153]"                    THEN          FN
980 PRINT"    ** TASTE **     [167]    [213][201]    [165]
990 [153]"                    THEN    PEEKPEEK    FN
1000 PRINT"                    [167]    [202][203]    [165]
1010 [153]"                    THENTOTOTOTOTOTOTOTOTOTOFN
1020 PRINT"
1030 [151]198,0:[146]198,1
1040 [153][199](19)[170][199](17)[170][199](17)[170][199](17)[170][199](17)[170]"                    THENTO
1050 PRINT"                     [167]
1060 [153]"                    THENTAB(
1070 PRINTCHR$(145)+CHR$(145)+CHR$(145)+CHR$(145)+CHR$(29)+"WENN MAN ABER DIE "
1080 PRINTCHR$(29)+"DISK DORT LOCHT,
1090 [153][199](29)[170]"UND  DIE 2. SEITE
1100 PRINTCHR$(29)+"FORMATIERT,SO KANN
1110 [153][199](29)[170]"MAN SIE BEIDSEITIG
1120 PRINTCHR$(29)+"BENUTZEN!      "
1130 PRINTCHR$(17)+CHR$(29)+"    ** TASTE **
1140 [151]198,0:[146]198,1
1150 [137] 200
1160 [143] -- PRG.-SCRATCH
1170 [153][199](147)[170][199](29)[170][199](29)[170]"USER-HELP V1.0"
1180 [153][199](17)[170][199](17)[170][199](29)[170]"FILE-NAME:"[170][199](5);:[133]P$
1190 [159]1,8,15,"S:"[170]P$:[160]1
1200 [137] 200
1210 [143] -- VALIDIEREN
1220 [153][199](147)[170][199](29)[170][199](29)[170]"USER-HELP V1.0"
1230 [153][199](17)[170][199](17)[170][199](29)[170]"BITTE ETWAS GEDULD"
1240 [159]1,8,15,"V:":[160]1
1250 [137] 200
1260 [143] -- FORMATIEREN
1270 [153][199](147)[170][199](29)[170][199](29)[170]"USER-HELP V1.0"
1280 [153][199](17)[170][199](17)[170][199](29)[170]"DISK-NAME ";:[133]NA$
1290 [133][199](17)[170][199](29)[170]"DISK-ID   ";ID$
1300 [159]1,8,15,"N:"[170]NA$[170]","[170]ID$:[160]1
1310 [137] 200
1320 [143] -- DIRECTORY
1330 [153][199](147):[158]49152
1340 [153][199](17)[170][199](29)[170][199](29)[170][199](158)[170]"* BITTE TASTE *"
1350 [151]198,0:[146]198,1
1360 [137] 200
1370 [143] -- DIRECTORY AUSDRUCK
1380 [153][199](147):[158]49152
1390 [153][199](17)[170][199](29)[170][199](29)[170][199](158)[170]"* BITTE TASTE *"
1400 [151]198,0:[146]198,1
1410 [153][199](145)[170][199](29)[170][199](29)[170]"* BITTE DRUCKER ANSCHALTEN *"
1420 [151]198,0:[146]198,1
1430 [153][199](145)[170]"                                 "
1440 [159]1,3
1450 [159]4,4
1460 [153][199](145)[170]"   "[170][199](19);
1470 [129]I[178]1[164]25
1480 [129]J[178]1[164]40
1490 [161]#1,A$
1500 B$[178]B$[170]A$
1510 [130]J
1520 [152]4,B$
1530 B$[178]""
1540 [130]I
1550 [143] ============================
1560 [143] =  038911 BYTES MEMORY     =
1570 [143] =  004417 BYTES PROGRAM    =
1580 [143] =  000000 BYTES VARIABLES  =
1590 [143] =  000000 BYTES STRINGS    =
1600 [143] =  000000 BYTES ARRAYS     =
1610 [143] =  034494 BYTES FREE       =
1620 [143] ============================