mbirth/gwbasic
1
0
Fork 0
mirror of https://github.com/mbirth/gwbasic.git synced 2025-02-20 15:38:19 +00:00
Code Issues Releases Wiki 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
Signed by: mbirth
GPG Key ID: A9928D7A098C3A9A
1 changed files with 34 additions and 0 deletions
Show Stats 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" ÄÄÄ ÄÄÄ ÄÄÄ ÄÄÄ ÄÄÄ"
50 PRINT"³\³/³ ³\³/³ ³\³/³ ³\³/³ ³\³/³"
60 PRINT" ÄÄÄ ÄÄÄ ÄÄÄ ÄÄÄ ÄÄÄ"
70 PRINT"³/³\³ ³/³\³ ³/³\³ ³/³\³ ³/³\³"
80 PRINT" ÄÄÄ ÄÄÄ ÄÄÄ ÄÄÄ ÄÄÄ"
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,ÄÄÄ,9,9
180 DATA 15,3,9,ÄÄÄ,9,9
190 DATA 15,3,16,ÄÄÄ,9,9
200 DATA 15,3,23,ÄÄÄ,9,9
210 DATA 15,4,3,³,9,9
220 DATA 15,4,8,³,9,9
230 DATA 15,4,15,³,9,9
240 DATA 15,4,24,³,9,9
250 DATA 15,5,9,ÄÄÄ,9,9
260 DATA 15,5,16,ÄÄÄ,9,9
270 DATA 15,6,3,³,9,9
280 DATA 15,6,8,³,9,9
290 DATA 15,6,19,³,9,9
300 DATA 15,6,24,³,9,9
310 DATA 15,7,9,ÄÄÄ,9,9
320 DATA 15,7,16,ÄÄÄ,9,9
5000 DATA 0,0,0,END,0,0