MENU.BAS

10 A=3:B=1:P=1:CLS
20 INPUT "KAC SECENEKLI ";N:DIM S$(N)
30 FOR I=1 TO N
40 PRINT I ;".SECENEK ";:INPUT S$(I): K=LEN(S$(I))
50 IF P<K THEN P=K
60 NEXT I
61 FOR J=1 TO N
62 IF LEN(S$(J))<P THEN S$(J)=S$(J)+STRING$(P-LEN(S$(J))," ")
63 NEXT J
70 COLOR 7,0:CLS
80 LOCATE 5,5:PRINT "RENKLER:"
90 FOR I=1 TO 16
100 COLOR I: PRINT " ";I;
110 NEXT I: COLOR 7,0
120 INPUT "DIS RENK NO: ";C1 
130 INPUT "MENU IC RENK NO: ";C2 
140 INPUT "YAZI RENK NO: ";C3
145 INPUT "SECILENIN DlS RENK NO: ";C4
146 INPUT "SECILENIN YAZI RENK NO: ";C5
150 PX=P+Z+2*A:X1=INT(40-PX/2): X2=X1+2
160 X3=X1+A+1:X4=X1+PX+2:GX=PX+2
170 PY=N+2*B:Y1=INT(12.5-PY/2): Y2=Y1+1
180 Y3=Y2+B:Y4=Y3+N-1:Y6=PY+Y1+1:Y5=Y6-1:Y7=Y6+1
190 CLS
200 LOCATE 2,1:PRINT "1 KEY OFF: R=0: CLS: ";: FOR J=1 TO N:PRINT CHR$(83);CHR$(36);CHR$(40);J;CHR$(41);CHR$(61);CHR$(34);S$(J);CHR$(34);CHR$(58);:NEXT J:PRINT " "
240 PRINT "19 COLOR 1, ";C1;": CLS:COLOR "; C3;",";C2
250 PRINT "20 LOCATE ";Y1;",";X1;":? CHR$(201);STRING$(";PX;",205);CHR$(187)  "
260 PRINT "30 LOCATE ";Y6;",";X1;":? CHR$(200);STRING$(";PX;",205);CHR$(188)"
280 PRINT "50 FOR I=";Y2;" TO";Y5;":LOCATE I,";X1;":? CHR$(186);STRING$(";PX;",255);CHR$(186):NEXT I"
300 PRINT "70 FOR I=";Y3;" TO";Y4;":R=R+1:LOCATE I,";X3;":? S$(R):NEXT I:COLOR 7,0"
350 PRINT "100 LOCATE ";Y7;",";X2;":? STRING$(";GX;",255)"
370 PRINT "120 FOR J=";Y2;" TO";Y6;":LOCATE J,";X4;":? STRING$(2,255):NEXT J:S=1:P=";Y3;":GOTO 270"
410 PRINT "210 A$=INKEY$: B$=MID$(A$,2,1):IF A$=";CHR$(34);CHR$(34);" THEN 210"
420 PRINT "220 IF A$=CHR$(13) THEN 300"
430 PRINT "230 IF B$=";CHR$(34);"H";CHR$(34);" THEN COLOR";C3;",";C2;":LOCATE P,";X3;":? S$(S):P=P-1:S=S-1"
440 PRINT "240 IF B$=";CHR$(34);"P";CHR$(34);" THEN COLOR";C3;",";C2;":LOCATE P,";X3;":? S$(S):P=P+1:S=S+1"
460 PRINT "260 IF S<1 THEN P=";Y4;":S=";N
465 PRINT "265 IF S>";N;" THEN P=";Y3;":S=1"
470 PRINT "270 COLOR ";C5;",";C4;":LOCATE P,";X3;":? S$(S)"
480 PRINT "280 GOTO 210"
490 PRINT "300 END"
500 LOCATE 1,1: NEW