10 REM STARTMENUE.BAS==========C64
20 REM (P) COMMODORE DISC TEAM
30 REM ===========================
40 REM (C) BY R. ENGELHARDT   V3.5
50 REM (V) ALFONS MITTELMEYER V2.0
60 REM
70 REM BASIC V2.0
80 REM C64
90 REM ===========================
100 GOTO200
110 B$="":FORI=1TO4:GET#1,C$:NEXT
120 GET#1,C$:IFC$=CHR$(199)THENRETURN
130 IFC$<>CHR$(34)THEN120
140 GET#1,C$:IFC$<>CHR$(34)THENB$=B$+C$:GOTO140
150 RETURN
160 A$=""
170 GET#1,C$:IFC$=CHR$(32)THEN170
180 IFC$<>CHR$(32)THENA$=A$+C$:GET#1,C$:GOTO180
185 GET#1,C$:IFC$<>""THEN185
190 RETURN
200 DIMV$(207):DIMY$(15)
210 OPEN1,8,0,"$0"
220 GOSUB110
230 GOSUB110:IFC$=CHR$(199)THEN260
240 GOSUB160
250 IFA$="PRG"THENV$(X)=B$:X=X+1
255 GOTO230
260 CLOSE1
270 RE$=CHR$(0):RN$=CHR$(18)
280 FL$=CHR$(15):FO$=CHR$(143)
290 BK$=CHR$(0):RF$=CHR$(146)
300 B$=CHR$(32)
310 B2$=B$+B$:B4$=B2$+B2$
320 B5$=B4$+B$:B$=B5$+B5$
330 FORX=0TO15:Y$(X)=CHR$(65+X):NEXTX
340 PRINTCHR$(147)
350 PRINTTAB(10)RN$RE$B$B$RF$BK$
360 PRINTTAB(10)RN$RE$B5$"START-MENUE"B4$
370 PRINTTAB(10)RN$RE$B$B$RF$BK$
380 PRINT
390 FORX=0TO15STEP2:PRINTRN$RE$" "Y$(X)" "RF$BK$" "V$(X+Y);
400 PRINTTAB(20)RN$RE$" "Y$(X+1)" "RF$BK$" "V$(X+Y+1)
401 IFLEN(V$(X+Y+1))<>16THENPRINT
402 NEXT
410 PRINTTAB(12)RN$RE$FL$B$B5$RF$BK$FO$
420 PRINTTAB(12)RN$RE$FL$B2$"WAEHLE FILE"B2$RF$FO$BK$
430 PRINTTAB(12)RN$RE$FL$B$B5$RF$BK$FO$
440 GETA$:IFA$=""THEN440
445 IFY>170THEN460
450 IFA$=CHR$(13)ORA$=CHR$(17)THENY=Y+16:GOTO340
460 IFY<16THEN480
470 IFA$="^"ORA$=CHR$(145)THENY=Y-16:GOTO340
480 IFA$<"A"ORA$>"P"THEN440
490 A=ASC(A$)-65
500 PRINTCHR$(147);:PRINT"RUN"
510 PRINT"L[207]"CHR$(34)V$(A+Y)CHR$(34)",8"
520 POKE631,19:POKE632,17:POKE633,13:POKE634,19:POKE635,13:POKE198,5
530 REM ==========================
540 REM  P R O G R A M M E N D E
550 REM ==========================