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  MIT PRG,8,1      ---   [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][154]  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 SCHREIBT HINTER DEN"
61 PRINT"PROGRAMM-NAMEN "CHR$(34)",8,1"CHR$(34)". SOMIT ENTFAELLT"
62 PRINT"DAS LAESTIGE >> COURSOR LEFT. <<"
63 PRINTTAB(13)"DRUECK SPACE"
64 GETE$:IFE$=""THEN64
65 IFE$=CHR$(32)THEN70
66 GOTO64
70 PRINT"[147]"
71 PRINTTAB(5)"PROGRAMM AUSFUEHREN      [1]"
72 PRINTTAB(5)"PROGRAMM BEENDEN         [2]"
73 POKE198,0:WAIT198,1:GETE$
74 IFE$="1"THENGOTO89
75 IFE$="2"THEN5000
76 GOTO73
89 PRINT"[147]"
90 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]";
100 PRINT"[194][156]   BITTE DISKETTE EINLEGEN UND TASTE  [146][194]";
110 PRINT"[194][156]              DRUECKEN !              [146][194]";
120 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]"
130 POKE198,0:WAIT198,1:POKE198,0
140 PRINTSPC(10)"IN PROGRESS.........":GOSUB800
160 PRINTSPC(7)"[145]  NOCH EINE DISK < J/N > ?"
170 GETE$:IFE$=""THEN170
180 IFE$="N"THEN5000
190 IFE$="J"THEN10
200 GOTO170
800 OPEN1,8,15:OPEN2,8,2,"#":FORI=1TO19:PRINT#1,"U1 2 0 18 "I:FORM=17TO272STEP32
810 FORR=2TO256STEP32:PRINT#1,"B-P 2 "R:GET#2,A$
820 X=ASC(A$+CHR$(0))
830 IFX<>130THEN880
840 GOSUB900
880 NEXT:NEXT:NEXT:GOTO1400
900 Z=M-1:PRINT#1,"B-P 2 "Z
910 GET#2,B$:Y=ASC(B$+CHR$(0))
1100 IFY<>160THENRETURN
1150 PRINT#1,"B-P 2 "M
1200 A$=",8,1"
1300 PRINT#2,A$;:PRINT#1,"U2 2 0 18 "I:RETURN
1400 CLOSE2:PRINT#1,"I0":CLOSE1:RETURN
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