mirror of
https://github.com/mbirth/gwbasic.git
synced 2024-09-20 01:03:26 +01:00
34 lines
889 B
QBasic
34 lines
889 B
QBasic
|
10 CLS
|
|||
|
|
20 COLOR 8
|
|||
|
|
30 LOCATE 3,1
|
|||
|
|
40 PRINT" <20><><EFBFBD> <20><><EFBFBD> <20><><EFBFBD> <20><><EFBFBD> <20><><EFBFBD>"
|
|||
|
|
50 PRINT"<22>\<5C>/<2F> <20>\<5C>/<2F> <20>\<5C>/<2F> <20>\<5C>/<2F> <20>\<5C>/<2F>"
|
|||
|
|
60 PRINT" <20><><EFBFBD> <20><><EFBFBD> <20><><EFBFBD> <20><><EFBFBD> <20><><EFBFBD>"
|
|||
|
|
70 PRINT"<22>/<2F>\<5C> <20>/<2F>\<5C> <20>/<2F>\<5C> <20>/<2F>\<5C> <20>/<2F>\<5C>"
|
|||
|
|
80 PRINT" <20><><EFBFBD> <20><><EFBFBD> <20><><EFBFBD> <20><><EFBFBD> <20><><EFBFBD>"
|
|||
|
|
90 READ A,B,C,D$,E,F
|
|||
|
|
100 IF A=0 AND B=0 AND C=0 AND D$="END" AND E=0 AND F=0 THEN RESTORE:GOTO 90
|
|||
|
|
110 COLOR A
|
|||
|
|
120 LOCATE B,C
|
|||
|
|
130 PRINT D$;
|
|||
|
|
140 FOR Z=0 TO E:NEXT
|
|||
|
|
150 LOCATE B,C:COLOR F:PRINT D$;
|
|||
|
|
160 GOTO 90
|
|||
|
|
170 DATA 15,3,2,<EFBFBD><EFBFBD><EFBFBD>,9,9
|
|||
|
|
180 DATA 15,3,9,<EFBFBD><EFBFBD><EFBFBD>,9,9
|
|||
|
|
190 DATA 15,3,16,<EFBFBD><EFBFBD><EFBFBD>,9,9
|
|||
|
|
200 DATA 15,3,23,<EFBFBD><EFBFBD><EFBFBD>,9,9
|
|||
|
|
210 DATA 15,4,3,<EFBFBD>,9,9
|
|||
|
|
220 DATA 15,4,8,<EFBFBD>,9,9
|
|||
|
|
230 DATA 15,4,15,<EFBFBD>,9,9
|
|||
|
|
240 DATA 15,4,24,<EFBFBD>,9,9
|
|||
|
|
250 DATA 15,5,9,<EFBFBD><EFBFBD><EFBFBD>,9,9
|
|||
|
|
260 DATA 15,5,16,<EFBFBD><EFBFBD><EFBFBD>,9,9
|
|||
|
|
270 DATA 15,6,3,<EFBFBD>,9,9
|
|||
|
|
280 DATA 15,6,8,<EFBFBD>,9,9
|
|||
|
|
290 DATA 15,6,19,<EFBFBD>,9,9
|
|||
|
|
300 DATA 15,6,24,<EFBFBD>,9,9
|
|||
|
|
310 DATA 15,7,9,<EFBFBD><EFBFBD><EFBFBD>,9,9
|
|||
|
|
320 DATA 15,7,16,<EFBFBD><EFBFBD><EFBFBD>,9,9
|
|||
|
|
5000 DATA 0,0,0,END,0,0
|
|||
|
|
|