mbirth/gwbasic
Archived
1
0
Fork 0
Code Pull Requests Activity

Added TEST.BAS.

Browse Source
This commit is contained in:
Markus Birth
1995-12-14 19:11:38 +01:00
parent 86847c2fb4
commit b2c5143555
1 changed files with 34 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
DIGIT/TEST.BAS Normal file
View File

@ -0,0 +1,34 @@
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