100 POKE53280,14:POKE53281,6 110 PRINT"[147] "; 120 PRINT" DIRECTORY-LOAD WRITTEN BY UDO WOEHLER "; 130 PRINT" " 140 PRINT"HEX-EINGABE MIT $" 150 PRINT:PRINT:PRINT"ANFANGSADRESSE = 256*"; 160 OPEN1,0:INPUT#1,AD$:CLOSE1 170 PRINT:PRINT:INPUT"FILENAME :";FI$ 180 OPEN1,8,15 190 OPEN2,8,2,FI$+",P,W" 200 INPUT#1,A,A$ 210 IFA=63THENCLOSE2:CLOSE1:GOTO330 220 IFA>19THENPRINT"[147]DISKFEHLER";A;A$:CLOSE2:END 230 IFLEFT$(AD$,1)<>"$"THENAD=VAL(AD$)*256:GOTO370 240 AD=0:FORT=1TO2 250 X=ASC(MID$(AD$,T+1,1)+CHR$(0)) 260 IFX>47ANDX<58THENX=X-48 270 IFX>64ANDX<71THENX=X-55 280 IFX<0ORX>15THENCLOSE2:RUN 290 AD=AD+X*16^(2-T) 300 NEXT 310 AD=AD*256 320 GOTO370 330 PRINT:PRINT:PRINT"ALTEN FILE LOESCHEN ?(J/N)" 340 GETS$:IFS$<>"J"ANDS$<>"N"THEN340 350 IFS$="J"THENOPEN1,8,15,"S:"+FI$:CLOSE1:GOTO180 360 RUN 370 IFAD>256*251ORAD<0THENRUN 380 PRINT"[147] "; 390 PRINT" DIRECTORY-LOAD WRITTEN BY UDO WOEHLER "; 400 PRINT" " 410 PRINT"SYNTAX: SYS";AD;",NA$,ZH%,FI$,BL%, "; 420 PRINT" TY%,TR%,SE%,TY$" 430 PRINT:PRINT" NA$ = NAME DER DISKETTE" 440 PRINT" ZH% = ANZAHL EINGELESENER FILES" 450 PRINT" FI$(N) = NAME DER FILES" 460 PRINT" BL%(N) = LAENGE DER FILES" 470 PRINT" TY%(N) = DATEITYPEN DER FILES" 480 PRINT" TR%(N) = ANFANGSTRACKS DER FILES" 490 PRINT" SE%(N) = ANFANGSSEKTOREN DER FILES" 500 PRINT" TY$ = ZU UEBERNEHMENDE DATEITYPEN" 510 PRINT" P = PROGRAMM DATEIEN" 520 PRINT" S = SEQUENTIELE DATEIEN" 530 PRINT" R = RELATIVE DATEIEN" 540 PRINT" U = USER DATEIEN" 550 PRINT" D = DELETED DATEIEN" 560 PRINT"SIE MUESSEN NUR GEWUENSCHTE VARIABLEN (ABER ALLE KOMMATA "; 570 PRINT"UND TY$) ANGEBEN." 580 PRINT:PRINT"FI$,BL%,TY%,TR% UND SE% SIND FELDER !" 590 PRINT" BITTE WARTEN[145]" 600 HI=INT(AD/256):LO=AD-HI*256 610 PRINT#2,CHR$(LO);CHR$(HI); 620 RESTORE 630 READB:PU=PU+B:IFB=-1THEN680 640 IFB<86ORB>91THENPRINT#2,CHR$(B);:GOTO630 650 AN=B-86+AD/256 660 PRINT#2,CHR$(AN); 670 GOTO630 680 CLOSE2:CLOSE1 690 IFPU<>138172THENPRINT"[147]PRUEFSUMMENFEHLER":OPEN1,8,15,"S:"+FI$:CLOSE1:END 700 PRINT" [145][145][145][145][145][145][145][145][145][145][154]" 710 END 720 DATA169,36,32,180,89,173,19,91,141,25,91,165,69,166,70,141,205,90,142,206 730 DATA90,169,37,32,180,89,173,19,91,141,26,91,165,69,166,70,141,145,90,142 740 DATA146,90,169,36,32,180,89,173,19,91,141,20,91,165,69,166,70,141,114,90 750 DATA142,115,90,169,37,32,180,89,173,19,91,141,21,91,165,69,166,70,141,153 760 DATA90,142,154,90,169,37,32,180,89,173,19,91,141,22,91,165,69,166,70,141 770 DATA166,90,142,167,90,169,37,32,180,89,173,19,91,141,23,91,165,69,166,70 780 DATA141,179,90,142,180,90,169,37,32,180,89,173,19,91,141,24,91,165,69,166 790 DATA70,141,192,90,142,193,90,32,253,174,160,5,169,255,136,153,8,91,200 800 DATA136,208,248,32,158,173,32,163,182,160,0,177,100,141,18,91,200,177,100 810 DATA133,34,200,177,100,133,35,160,0,162,5,202,177,34,221,233,90,240,7,202 820 DATA232,208,244,76,214,86,138,157,8,91,200,204,18,91,208,229,169,2,133 830 DATA184,133,185,169,8,133,186,169,1,133,183,169,238,162,90,133,187,134 840 DATA188,32,192,255,169,15,133,184,133,185,169,8,133,186,169,0,133,183,32 850 DATA192,255,169,18,141,13,91,169,0,141,14,91,173,25,91,240,83,32,67,89 860 DATA162,2,32,198,255,162,144,32,228,255,202,208,250,162,0,32,228,255,208 870 DATA2,169,32,157,210,90,232,224,16,240,7,224,18,208,237,76,64,87,32,228 880 DATA255,32,228,255,76,33,87,32,204,255,165,122,141,112,90,165,123,141,113 890 DATA90,169,205,133,122,169,90,133,123,32,165,169,173,112,90,133,122,173 900 DATA113,90,133,123,169,1,141,14,91,169,0,141,15,91,32,67,89,162,2,32,198 910 DATA255,32,228,255,141,13,91,32,228,255,141,14,91,169,8,141,16,91,32,228 920 DATA255,141,17,91,32,228,255,133,99,173,23,91,240,42,169,0,133,98,162,144 930 DATA56,32,73,188,32,223,189,24,8,162,0,189,0,1,40,8,176,7,201,0,208,5,40 940 DATA56,8,169,32,157,188,90,232,224,3,208,232,40,32,228,255,133,99,173,24 950 DATA91,240,42,169,0,133,98,162,144,56,32,73,188,32,223,189,24,8,162,0,189 960 DATA0,1,40,8,176,7,201,0,208,5,40,56,8,169,32,157,201,90,232,224,3,208 970 DATA232,40,162,0,32,228,255,208,2,169,32,157,124,90,232,224,16,208,241 980 DATA162,9,32,228,255,202,208,250,32,228,255,133,99,32,228,255,133,98,173 990 DATA21,91,240,38,162,144,56,32,73,188,32,223,189,24,8,162,0,189,0,1,40 1000 DATA8,176,7,201,0,208,5,40,56,8,169,32,157,162,90,232,224,3,208,232,40 1010 DATA173,22,91,240,47,174,17,91,169,0,133,98,134,99,162,144,56,32,73,188 1020 DATA32,223,189,24,8,162,0,189,0,1,40,8,176,7,201,0,208,5,40,56,8,169,32 1030 DATA157,175,90,232,224,3,208,232,40,173,17,91,41,7,162,0,221,8,91,240,29 1040 DATA232,224,5,208,246,206,16,91,240,9,32,228,255,32,228,255,76,133,87,173 1050 DATA13,91,201,0,240,71,76,108,87,174,15,91,169,0,133,98,134,99,162,144 1060 DATA56,32,73,188,32,223,189,24,8,162,0,189,0,1,40,8,176,7,201,0,208,5,40 1070 DATA56,8,169,32,157,118,90,157,157,90,157,170,90,157,183,90,157,196,90 1080 DATA232,224,3,208,220,40,238,15,91,32,255,89,76,134,88,173,26,91,240,78 1090 DATA173,15,91,133,99,169,0,133,98,162,144,56,32,73,188,32,223,189,24,8 1100 DATA162,0,189,0,1,40,8,176,7,201,0,208,5,40,56,8,169,32,157,149,90,232 1110 DATA224,3,208,232,40,165,122,141,112,90,165,123,141,113,90,169,145,133 1120 DATA122,169,90,133,123,32,165,169,173,112,90,133,122,173,113,90,133,123 1130 DATA32,204,255,169,2,32,195,255,169,15,32,195,255,96,174,13,91,169,0,133 1140 DATA98,134,99,32,204,255,162,144,56,32,73,188,32,223,189,173,0,1,141,248 1150 DATA90,173,1,1,201,0,208,2,169,32,141,249,90,174,14,91,169,0,133,98,134 1160 DATA99,162,144,56,32,73,188,32,223,189,173,0,1,141,251,90,173,1,1,201,0 1170 DATA208,2,169,32,141,252,90,162,15,32,201,255,160,0,185,239,90,240,13,32 1180 DATA168,255,201,13,208,3,32,171,89,200,208,238,32,204,255,96,32,204,255 1190 DATA162,15,32,201,255,96,72,32,253,174,32,121,0,133,69,162,0,142,19,91 1200 DATA201,44,240,55,32,121,0,32,19,177,176,3,76,8,175,162,32,32,115,0,144 1210 DATA5,32,19,177,144,11,170,32,115,0,144,251,32,19,177,176,246,104,133,70 1220 DATA32,121,0,197,70,208,220,32,115,0,134,70,162,255,142,19,91,96,104,96 1230 DATA165,122,141,112,90,165,123,141,113,90,169,114,133,122,169,90,133,123 1240 DATA173,20,91,240,6,32,165,169,32,115,0,173,21,91,240,14,169,153,133,122 1250 DATA169,90,133,123,32,165,169,32,115,0,173,22,91,240,14,169,166,133,122 1260 DATA169,90,133,123,32,165,169,32,115,0,173,23,91,240,14,169,179,133,122 1270 DATA169,90,133,123,32,165,169,32,115,0,173,24,91,240,11,169,192,133,122 1280 DATA169,90,133,123,32,165,169,173,112,90,133,122,173,113,90,133,123,96 1290 DATA0,0,32,32,36,40,32,32,32,41,178,34,32,32,32,32,32,32,32,32,32,32,32 1300 DATA32,32,32,32,32,34,170,34,34,0,32,32,37,178,32,32,32,0,32,32,37,40,32 1310 DATA32,32,41,178,32,32,32,0,32,32,37,40,32,32,32,41,178,32,32,32,0,32,32 1320 DATA37,40,32,32,32,41,178,32,32,32,0,32,32,37,40,32,32,32,41,178,32,32 1330 DATA32,0,32,32,36,178,34,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 1340 DATA32,32,34,170,34,34,0,68,83,80,85,82,35,85,49,58,32,50,32,32,48,32,32 1350 DATA32,32,32,32,13,66,45,80,32,50,32,32,48,13,0 1360 DATA-1