62 lines
1.3 KiB
QBasic
62 lines
1.3 KiB
QBasic
10 COL 0,$e6,0
|
|
20 CROFF
|
|
30 CLS
|
|
40 TLOAD 1,"font1.dat",16,11
|
|
50 STILE 1
|
|
100 MAP w
|
|
120 TILE 166,255,$80,0,0,0
|
|
130 FOR i=1 TO 38
|
|
140 TILE 148,255,$80,0,i,0
|
|
150 NEXT i
|
|
160 TILE 143,255,$80,0,39,0
|
|
170 TILE 131,255,$80,0,0,1
|
|
180 TILE 131,255,$80,0,39,1
|
|
190 TILE 147,$56,$80,0,0,2
|
|
200 FOR i=1 TO 38
|
|
210 TILE 148,$56,$80,0,i,2
|
|
220 NEXT i
|
|
230 TILE 132,$56,$80,0,39,2
|
|
240 TILE 147,$56,$80,0,0,3
|
|
250 FOR i=1 TO 38
|
|
260 TILE 148,$56,$80,0,i,3
|
|
270 NEXT i
|
|
280 TILE 132,$56,$80,0,39,3
|
|
290 FOR i=4 TO 23
|
|
300 TILE 131,$56,$80,0,0,i
|
|
310 TILE 131,$56,$80,0,39,i
|
|
320 NEXT i
|
|
330 TILE 144,$56,$80,0,0,24
|
|
340 TILE 142,$56,$80,0,39,24
|
|
350 FOR i=1 TO 38
|
|
360 TILE 148,$56,$80,0,i,24
|
|
370 NEXT i
|
|
380 TILE 166,$56,$80,0,0,25
|
|
390 TILE 144,$56,$80,0,0,29
|
|
400 TILE 143,$56,$80,0,39,25
|
|
410 TILE 142,$56,$80,0,39,29
|
|
420 FOR i=26 TO 28
|
|
430 TILE 131,$56,$80,0,0,i
|
|
440 TILE 131,$56,$80,0,39,i
|
|
450 NEXT i
|
|
460 FOR i=1 TO 38
|
|
470 TILE 148,$56,$80,0,i,25
|
|
480 TILE 148,$56,$80,0,i,29
|
|
490 NEXT i
|
|
500 TILE 146,$56,$80,0,19,3
|
|
510 TILE 145,$56,$80,0,19,24
|
|
520 FOR i=4 TO 23
|
|
530 TILE 131,$56,$80,0,19,i
|
|
540 NEXT i
|
|
550 TILE 147,$56,$80,0,0,5
|
|
560 TILE 145,$56,$80,0,19,5
|
|
570 FOR i=1 TO 18
|
|
580 TILE 148,$56,$80,0,i,5
|
|
590 NEXT i
|
|
600 TILE 158,$56,$80,0,19,5
|
|
610 TILE 132,$56,$80,0,39,5
|
|
620 FOR i=20 TO 38
|
|
630 TILE 148,$56,$80,0,i,5
|
|
640 NEXT i
|
|
1000 POS 10,10
|
|
|