dgrigorev/gw-basic-cpp: Переписанный на современный лад интерпретатор GW-BASIC

examples/commander.bas

53 строки2 KB

dagrigorev

Added text rendering and commander example

22 апр 2026, 00:31

22 апр 2026, 00:310edda99

10 SCREEN 2: CLS
20 KEY OFF: COLOR 15,1
30 LOCATE 1,1: PRINT " LEFT PANEL                     GW COMMANDER                     RIGHT PANEL "
40 LINE (0,8)-(319,180),9,B
50 LINE (320,8)-(639,180),9,B
60 LINE (0,181)-(639,199),1,BF
70 COLOR 14,1: LOCATE 24,2: PRINT "F1 HELP  F3 VIEW  F5 COPY  F6 REN  F8 DEL  TAB SWITCH  W/S MOVE  ESC EXIT"
80 A1$="README.MD":A2$="SRC":A3$="INCLUDE":A4$="EXAMPLES":A5$="BUILD":A6$="DOCS":A7$="TESTS":A8$="CMAKE.TXT"
90 B1$="HOME":B2$="GAMES":B3$="TOOLS":B4$="TMP":B5$="SYSTEM":B6$="DATA":B7$="MEDIA":B8$="CONFIG"
100 SEL=1: PANEL=1
110 GOSUB 1000
120 K$=INKEY$
130 IF K$="" THEN GOTO 120
140 IF K$="W" OR K$="w" THEN IF SEL>1 THEN SEL=SEL-1
150 IF K$="S" OR K$="s" THEN IF SEL<8 THEN SEL=SEL+1
160 IF K$=CHR$(9) THEN IF PANEL=1 THEN PANEL=2 ELSE PANEL=1
170 IF K$=CHR$(27) THEN END
180 GOSUB 1000
190 GOTO 120
1000 REM DRAW UI
1010 COLOR 11,1: LOCATE 2,3: PRINT "D:\PROJECT\\"
1020 COLOR 11,1: LOCATE 2,44: PRINT "C:\ARCHIVE\\"
1030 FOR I=1 TO 8
1040 GOSUB 2000
1050 NEXT I
1060 COLOR 15,1: LOCATE 22,3: PRINT "8 FILES"
1070 COLOR 15,1: LOCATE 22,44: PRINT "8 FILES"
1080 RETURN
2000 REM DRAW ONE ROW
2010 Y=4+I
2020 IF PANEL=1 AND SEL=I THEN COLOR 0,14 ELSE COLOR 15,1
2030 LOCATE Y,3: PRINT "                    "
2040 LOCATE Y,3
2050 IF I=1 THEN PRINT A1$
2060 IF I=2 THEN PRINT A2$
2070 IF I=3 THEN PRINT A3$
2080 IF I=4 THEN PRINT A4$
2090 IF I=5 THEN PRINT A5$
2100 IF I=6 THEN PRINT A6$
2110 IF I=7 THEN PRINT A7$
2120 IF I=8 THEN PRINT A8$
2130 IF PANEL=2 AND SEL=I THEN COLOR 0,14 ELSE COLOR 15,1
2140 LOCATE Y,44: PRINT "                    "
2150 LOCATE Y,44
2160 IF I=1 THEN PRINT B1$
2170 IF I=2 THEN PRINT B2$
2180 IF I=3 THEN PRINT B3$
2190 IF I=4 THEN PRINT B4$
2200 IF I=5 THEN PRINT B5$
2210 IF I=6 THEN PRINT B6$
2220 IF I=7 THEN PRINT B7$
2230 IF I=8 THEN PRINT B8$
2240 RETURN