10 LW=PEEK(186):DIMP$(150)
20 PRINT"":POKE53280,0:POKE53281,0:GOSUB460
160 N=10
170 PRINT"[147][159] TC PRAESENTIERT   [146][158]";
180 PRINT"  ";LEFT$(P$(0),9);"":PRINT
190 IFN<10THENN=10
200 IFN>145THENN=145
210 FORJ=(N-9)TON:IFJ<=XTHENPRINTJ;"- ";P$(J)
220 IFJ>XTHENPRINT"KEIN WEITERER EINTRAG!":J=N
230 NEXT
240 PRINT"---> [157][157][157][157][157]     [159]F1[146] WEITER    [146]";
250 PRINT"    [159]F3[146] ZURUECK  [146]"
260 PRINT"     [159]E[146][158]NDE         [146]";
270 PRINT"    [159]F5[146][158] LADEN    [146]"
280 PRINT"     [159]F7[146] LADEN + STARTEN [146]"
290 Z$="":GETZ$:IFZ$=""THEN290
300 IFZ$=CHR$(133)ANDN<XTHENN=N+10:GOTO170
310 IFZ$=CHR$(134)AND(N-10)>0THENN=N-10:GOTO170
320 IFZ$="E"THENPRINT"NEUSTART MIT 'RUN'!":END
330 IFZ$=CHR$(135)THENU=13:GOTO360
340 IFZ$=CHR$(136)THENU=131:GOTO360
350 GOTO290
360 PRINT"PROGRAM #";
370 INPUTS$:S=VAL(S$)
380 IFS<1ORS>XTHEN160
390 IFLEN(P$(S))>12THENP$(S)=LEFT$(P$(S),12)+"*"
400 PRINT"[147][144]LOAD"+CHR$(34)+P$(S)+CHR$(34)+",8";
410 POKE631,19:POKE632,U:POKE198,2:END
420 OPEN15,LW,15
430 INPUT#15,AA,BB$,CC,DD
440 IFAA<>0THENCLOSE2:CLOSE15:RETURN
450 RETURN
460 OPEN2,LW,2,"- MENUE -,S,R":GOSUB420:IFAA<>0THENPRINT"[147]":END
470 X=0
480 INPUT#2,P$(X)
490 IFST<>64THENX=X+1:GOTO480
500 CLOSE2:CLOSE15:RETURN
540 GETAU$:IFAU$<>"J"ANDAU$<>"N"THEN540
550 IFAU$="N"THENX=X-1
560 RETURN