10 PRINT"[147]MIT DIESEM PROGRAMM KANNST DU AN DIE    FILE-NAMEN EINES DIRECTORYS"
20 PRINT" ,8:  [146] (BASIC-START) ODER":PRINT" ,8,1 [146] ANHAENGEN."
30 PRINT"MIT '^' BLAETTERST DU IM DIRECTORY      WEITER,"
40 PRINT"MIT '@' KANNST DU AUS EINEM MIT DIESEM  PROGRAMM BEARBEITETEN DIR.";
50 PRINT" DEN 'ANHANG'":PRINT"WIEDER ENTFERNEN."
60 PRINT"            TASTE ZUM START!"
70 POKE198,0:WAIT198,1:POKE198,0
90 REM **
100 REM ***************************
110 REM ^ = PFEIL NACH OBEN
120 REM @ = KLAMMERAFFE
130 REM ***************************
140 REM **  DIREKTORY ROUTINE
150 REM ***************************
160 REM
170 REM
180 DATA169,36,133,251,169,251,133,187,169,0,133,188,169,1,133,183,169,8
190 DATA133,186,169,96,133,185,32,213,243,165,186,32,180,255,165,185,32,150
200 DATA255,169,0,133,144,160,3,132,251,32,165,255,133,252,164,144,208,47
210 DATA32,165,255,164,144,208,40,164,251,136,208,233,166,252,32,205,189
220 DATA169,32,32,210,255,32,165,255,166,144,208,18,170,240,6,32,210,255
230 DATA76,76,192,169,13,32,210,255,160,2,208,198,32,66,246,96,234
240 FOR I=49152 TO 49152+105:READD:POKEI,D:O=O+D:NEXT
250 IF O<>15577 THEN POKE199,1:PRINT"  FEHLER IN DATAS  ":STOP
260 REM
270 REM
280 REM ****************************
290 REM ** TITEL
300 REM ****************************
310 REM
320 REM
330 POKE53280,0:POKE53281,0:PRINTCHR$(152)
340 PRINTCHR$(14):PRINTCHR$(147)
350 PRINT"     [185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
360 PRINT"     [181]                           [182]"
370 PRINT"     [181]     [196]IRECTORY [204]OADER      [182]"
380 PRINT"     [181]                           [182]"
390 PRINT"     [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
400 PRINT
410 PRINT"
420 [153]"     ";[199](18);" PEEKITTE AUSWAEHLEN ";[199](146):[153]:[153]
430 [153]"        ";[199](18);"1";[199](146);"   STR$IRECTORY ANZEIGEN":[153]
440 [153]"        ";[199](18);"2";[199](146);"   STR$IRECTORY BEARBEITEN":[153]
450 [153]"        ";[199](18);"3";[199](146);"   (null)UIT":[153]
470 [161] X$:[139] X$[178]"" [167] 470
480 K[178][197](X$):[139] K[179]1 [176] K[177]3 [167] 470
490 [145] K [137] 510,660,1740
500 [137] 330
510 [143]
520 [143]
530 [143] *******************************
540 [143] **   DIREKTORY ANZEIGEN
550 [143] *******************************
560 [143]
570 [143]
580 [153][199](147):[153]:[153]:[151]199,1:[153]" PEEKITTE STR$ISK EINLEGEN UND (null)ASTE DRUECKEN "
590 [161] X$:[139] X$[178]"" [167] 590
600 [153][199](147) :[158] 49152
610 [153]:[153]:[151]199,1:[153]" (null)ASTE DRUECKEN "
620 [161] X$:[139] X$[178]"" [167] 620
630 [137] 330
640 [143]
650 [143]
660 [143] ***************************
670 [143] ***  KOMMA ACHTER
680 [143] ***************************
690 [143]
700 [143]
710 T[178]18:S[178]1:Z[178]5
720 [159] 1,8,15
730 [159] 2,8,2,"#"
740 [152]1,"U1";2;0;T;S
750 [161]#2,T$,S$
760 P[178]T:Q[178]S
770 [139] T$[178]"" [167] T[178]0:S[178]255:[137]800
780 T[178][198](T$):S[178][198](S$):
790 [152]1,"B-P";2;1
800 [152]1,"B-P";2;Z:
810 [129] I[178]1 [164] 16
820 [161]#2,N$
830 D$[178]D$[170]N$
840 [130] I
850 [152]1,"B-P";2;Z
860 [139] D$[178]"" [167] 1510
870 [153][199](147):[153]:[153]:[153]"   (null)EXT STR$IRECTORY PEEKLOCK :"
880 [153]:[153]"   (null)RACK :";T;" (null)EKTOR :";S
890 [153]:[153]:[153]:[153]:[153]"   (null)ROGRAMM :";D$
900 [153]:[153]
915 [153]"   ";[199](18);"PEEK";[199](146);"ASIC ODER ";[199](18);"(null)";[199](146);"ASCHINENPROGRAMM"
920 [153]
930 [153]:[153]:[153]:[153]:[151]199,1:[153]"    <^> (null)EITER   <@> (null)OESCHEN      "
940 [161] X$:[139] X$[178]"" [167] 940
950 [139] X$[178]"B"[167] 1070
960 [139] X$[178]"M"[167] 1160
970 [139] X$[178]"^"[167] 1300
980 [139] X$[178]"@" [167] 1420
990 [137] 940
1000 [143]
1010 [143]
1020 [143] **************************
1030 [143] ** BASICPROGRAMM
1040 [143] **************************
1050 [143]
1060 [143]
1070 D$[178][200](D$,12)
1080 NE$[178]D$[170][199](160)[170]",8:"
1100 [152]2,NE$
1110 NE$[178]"":D$[178]"":Z[178]Z[170]32
1120 [139] Z[177]256 [167] Z[178]5:[137] 1510
1130 [137] 800
1140 [143]
1150 [143]
1160 [143] **************************
1170 [143] ** MASCHPROGRAMM
1180 [143] **************************
1190 [143]
1200 [143]
1210 D$[178][200](D$,11)
1220 NE$[178]D$[170][199](160)[170]",8,1"
1240 [152]2,NE$
1250 NE$[178]"":D$[178]"":Z[178]Z[170]32
1260 [139] Z[177]256 [167]Z[178]5:[137] 1510
1270 [137] 800
1280 [143]
1290 [143]
1300 [143] ****************************
1310 [143] ** KEINE AENDERUNG
1320 [143] ****************************
1330 [143]
1340 [143]
1350 [152]2,D$:D$[178]""
1360 Z[178]Z[170]32
1370 [139] Z[177]256 [167]Z[178]5:[137] 1510
1380 [137] 800
1390 [143]
1400 [143]
1410 [143] ****************************
1420 [143] ** LOESCHEN DES ANHANGS
1430 [143] ****************************
1440 [143]
1450 [143]
1460 D$[178][200](D$,12)[170][199](160)[170][199](160)[170][199](160)[170][199](160)
1470 [152]2,D$:D$[178]""
1480 Z[178]Z[170]32
1490 [139] Z[177]256 [167] Z[178]5:[137] 1510
1500 [137] 800
1510 [143]
1520 [143]
1530 [143] ****************************
1540 [143] ** RUECKSCHREIBEN
1550 [143] ****************************
1560 [143]
1570 [143]
1580 [139] T[178]0 [175] S[178]255 [167] [152]1,"U2";2;0;P;Q:[137] 1690
1590 [152]1,"U2";2;0;P,Q
1600 P[178]T:Q[178]S:[160]2:[160]1:[137]720
1610 [143]
1620 [143]
1630 [143]
1640 [143] ****************************
1650 [143] ** ENDE
1660 [143] ****************************
1670 [143]
1680 [143]
1690 [153]:[153]:[151]199,1:[153]"           (null)ASTE STR$RUECKEN          "
1720 [161] X$:[139] X$[178]"" [167] 1720
1730 [160]2:[160]1:[137] 330
1740 [158] 64738