12000 PRINT"[147]                 MENUE                  ";
12010 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
12020 PRINT""
12021 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
12030 FORA=1TO5
12035 IFLEN(T$(A))>39THENPRINT"FEHLER"
12040 :  PRINTSPC((40-LEN(T$(A)))/2);" ";T$(A);""
12050 NEXT A
12052 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
12055 PRINT"BITTE MIT DEN CURSORTASTEN"
12056 PRINT"WAEHLEN UND MIT RETURN"
12057 PRINT"BESTAETIGEN"
12060 PO=1
12065 AW=1
12075 PRINT""
12080 FOR A = PO TO PO + 4
12085 :  IF AW = A THEN PRINT"";
12090 :  PRINTSPC((40-LEN(T$(A)))/2);" ";T$(A);""
12100 NEXT A
12110 GETA$
12111 J=PEEK(56320)
12113 IFJ=125THENA$=""
12114 IFJ=126THENA$="[145]"
12115 IFJ=111THENA$=CHR$(13)
12120 IFA$=""ANDAW<MTHENAW=AW+1:IFAW>PO+4ANDPO<MTHENPO=PO+1
12130 IFA$="[145]"ANDAW>1 THENAW=AW-1:IFAW<PO THENPO=PO-1
12135 IFA$=CHR$(13)THEN12150
12140 GOTO12075
12150 RETURN