标题通用菜单生成器

　　10 REM TF/TB=正文前/背景色，MFMB=菜单前/背景色，N=菜单条数
　　12 REM X/Y=菜单左上角坐标，C 菜单选中项，M$()=菜单提示内容
　　14 TF = 7: TB = 1: MF = 4: MB = 2: SCREEN 0: COLOR TF， TB: CLS
　　16 S = 1: N = 4: X = 9: Y = 30: DIM M$(N)， FC(N)， BC(N): M$(1) = "1. The　　first item"
　　18 M$(2) = "2. The second item": M$(3) = "3. The third item": M$(4) =　　"4. The fourth item"
　　20 FOR J = 1 TO N: IF LEN(M$(J)) > L THEN L = LEN(M$(J))
　　22 NEXT J: FOR J = 1 TO N: M$(J) = M$(J) + SPACE$(L - LEN(M$(J))): NEXT　　J
　　24 COLOR MF， MB: LOCATE X， Y: PRINT CHR$(218); STRING$(L， CHR$(196))；　　CHR$(191)
　　26 FOR J = 1 TO N: COLOR MF， MB: LOCATE X + J， Y
　　28 PRINT CHR$(179); M$(J); CHR$(179); : COLOR 0， 0: PRINT "　": NEXT J
　　30 LOCATE X + N + 1， Y: COLOR MF， MB: PRINT CHR$(192); STRING$(L，　　CHR$(196)); CHR$(217);
　　32 COLOR 0， 0: PRINT "　": LOCATE X + N + 2， Y + 2: COLOR 0， 0: PRINT　　SPACE$(L + 2)
　　34 FOR J = 1 TO N: FC(J) = MF: BC(J) = MB: NEXT J: FC(S) = MB: BC(S) =　　MF
　　36 A$ = INKEY$: IF A$ = CHR$(13) GOTO 58 ELSE IF A$ = CHR$(27) THEN S =　　0: GOTO 58
　　38 FOR J = 1 TO N: IF A$ <> CHR$(0) + CHR$(72) OR BC(J) = MB GOTO 46
　　40 IF J = 1 THEN SWAP FC(1)， FC(N): SWAP BC(1)， BC(N): S = N
　　42 IF J > 1 THEN SWAP FC(J)， FC(J - 1): SWAP BC(J)， BC(J - 1): S = J - 1
　　44 GOTO 56
　　46 IF A$ <> CHR$(0) + CHR$(80) OR BC(J) = MB GOTO 54
　　48 IF J = N THEN SWAP FC(1)， FC(N): SWAP BC(1)， BC(N): S = 1
　　50 IF J < N THEN SWAP FC(J)， FC(J + 1): SWAP BC(J)， BC(J + 1): S = J + 1
　　52 GOTO 56
　　54 NEXT J
　　56 FOR J = 1 TO N: LOCATE X + J， Y + 1: COLOR FC(J)， BC(J): PRINT M$(J)：　　NEXT J: GOTO 36
　　58 COLOR TF， TB: LOCATE X + N + 4， Y: PRINT "Item"; S; "is selected."