mirror of
https://github.com/mbirth/gwbasic.git
synced 2024-11-14 01:06:45 +00:00
34 lines
889 B
QBasic
34 lines
889 B
QBasic
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
|
||
|