1 POKE45,PEEK(174):POKE46,PEEK(175):CLR
10 POKE53280,0:POKE53281,0:PRINT"[147][213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]";
20 PRINT"[194][158]  D I R E C T O R Y  -  S A F E T Y   [146][194]";
30 PRINT"[171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]";
40 PRINT"[194][158]  COPYRIGHT <C> 1985 BY DIETER PLAUM  [146][194]";
50 PRINT"[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
60 PRINT"DIESES PROGRAMM SCHUETZT IHRE DIRECTORY VOR FREMDEN EINBLICKEN.";
70 PRINT" ZU SEHEN IST    LEDIGLICH DAS ERSTE PROGRAMM ( Z.B. EIN"
80 PRINT"LADEPROGRAMM ODER EIN MENUE )."
85 PRINT"[213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]";
90 PRINT"[194][158][190]     WOLLEN SIE IHRE DIRECTORY      [188][146][194]";
95 PRINT"[194][158]                                      [146][194]";
100 PRINT"[194][158]   SCHUETZEN ODER FREIGEBEN <S / F[158]>   [146][194]";
101 PRINT"[194][158]                                      [146][194]";
102 PRINT"[194][158][187]         E=PROGRAMM BEENDEN         [172][146][194]";
110 PRINT"[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
120 GETE$:IFE$=""THEN120
130 IFE$="S"THEN200
140 IFE$="F"THEN230
145 IFE$="E"THEN5000
150 GOTO120
200 OPEN1,8,15:OPEN2,8,2,"#":PRINT#1,"U1 2 0 18 1":FORI=18TO20:PRINT#1,"B-P 2 "I
210 PRINT#2,CHR$(0):NEXT
220 PRINT#1,"U2 2 0 18 1":CLOSE2:PRINT#1,"I0":CLOSE1:GOTO260
230 OPEN1,8,15:OPEN2,8,2,"#":PRINT#1,"U1 2 0 18 1":FORI=18TO20:PRINT#1,"B-P 2 "I
240 PRINT#2,CHR$(160):NEXT
250 PRINT#1,"U2 2 0 18 1":CLOSE2:PRINT#1,"I0":CLOSE1:GOTO350
260 PRINT"[147][213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]";
270 PRINT"[194]      DIRECTORY IST GESCHUETZT !      [194]";
280 PRINT"[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]":FORI=0TO3000:NEXT:GOTO10
350 PRINT"[147][213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]";
360 PRINT"[194]     DIRECTORY IST FREIGEGEBEN !      [194]";
370 PRINT"[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]":FORI=0TO3000:NEXT:GOTO10
5000 PRINT"[147]":POKE53280,0:POKE53281,0
5001 PRINTTAB(8)"PROGRAMM BEENDEN       [1]"
5002 PRINTTAB(8)"PROGRAMM WIEDERHOLEN   [2]"
5003 PRINTTAB(8)"ZUM HAUPTMENUE         [3]"
5004 POKE198,0:WAIT198,1:GETE$
5005 IFE$="1"THENSYS64738
5006 IFE$="2"THENCLR:GOTO10
5007 IFE$="3"THENPRINTTAB(13)"BITTE WARTEN":LOAD"MENUE",8
5008 GOTO5004