1 POKE45,PEEK(174):POKE46,PEEK(175):CLR
10 CLR:POKE53280,0:POKE53281,0
20 PRINT"[147][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][195][195]";
30 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]";
40 PRINT"[194][158]    SYS - ORTER   COMMODOORE VC-64    [194]";
50 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]";
60 PRINT"[194][129]  COPYRIGHT <C> 1985 BY DIETER PLAUM  [194]";
70 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]";
75 PRINT"[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][195][195]";
80 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]BITTE GEBEN SIE DEN PROGRAMM-NAMEN EIN[194]";
100 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]"
105 PRINTTAB(11)"[158][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][145][145][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";:POKE204,0:FORI=1TO16
110 GETD$
111 IFD$=""THEN110
120 IFD$=CHR$(13)THEN200
130 PRINTD$;:G$=G$+D$:NEXT
200 OPEN1,8,0,G$:GET#1,A$,B$
220 IFA$=""THENA$=CHR$(0)
230 IFB$=""THENB$=CHR$(0)
240 PRINT:PRINT"START-ADRESSE DES PROGRAMMES ":PRINTG$" BEI :[158]";ASC(A$)+256*ASC(B$)
250 CLOSE1:PRINT"NOCH EINE START-ADRESSE SUCHEN < J/N > ?":POKE204,1
260 GETE$:IFE$=""THEN260
270 IFE$="J"THEN10
280 IFE$="N"THEN5000
290 GOTO260
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