98 lines
1.9 KiB
QBasic
98 lines
1.9 KiB
QBasic
|
5 COL 0,$e6,0
|
||
|
|
8 CROFF
|
||
|
|
10 CLS
|
||
|
|
15 MOUSE 1,1
|
||
|
|
20 TLOAD 1,"font1.dat",16,11
|
||
|
|
30 STILE 1
|
||
|
|
35 MAP w
|
||
|
|
40 TILE 165,0,$92,0,2,2
|
||
|
|
50 FOR i=3 TO 25
|
||
|
|
60 TILE 157,0,$92,0,i,2
|
||
|
|
70 NEXT i
|
||
|
|
80 TILE 143,0,$92,0,26,2
|
||
|
|
90 FOR i=3 TO 10
|
||
|
|
100 TILE 138,0,$92,0,2,i
|
||
|
|
110 TILE 138,0,$92,0,26,i
|
||
|
|
120 NEXT i
|
||
|
|
130 TILE 156,0,$92,0,2,11
|
||
|
|
140 FOR i=3 TO 25
|
||
|
|
150 TILE 157,0,$92,0,i,11
|
||
|
|
160 NEXT i
|
||
|
|
170 TILE 149,0,255,0,11,11
|
||
|
|
180 TILE 132,255,$92,0,26,11
|
||
|
|
190 TILE 155,255,$92,0,15,11
|
||
|
|
200 FOR i=12 TO 20
|
||
|
|
210 TILE 131,0,$92,0,2,i
|
||
|
|
220 TILE 131,0,$92,0,15,i
|
||
|
|
230 TILE 131,0,$92,0,26,i
|
||
|
|
250 NEXT i
|
||
|
|
260 TILE 159,0,$92,0,15,21
|
||
|
|
270 TILE 132,0,$92,0,26,21
|
||
|
|
280 FOR i=16 TO 25
|
||
|
|
290 TILE 157,0,$92,0,i,21
|
||
|
|
300 NEXT i
|
||
|
|
310 TILE 157,0,$92,0,14,21
|
||
|
|
320 TILE 165,0,$92,0,13,21
|
||
|
|
330 TILE 131,0,$92,0,2,21
|
||
|
|
340 FOR i=22 TO 25
|
||
|
|
350 TILE 131,0,$92,0,2,i
|
||
|
|
360 TILE 131,0,$92,0,13,i
|
||
|
|
370 TILE 131,0,$92,0,26,i
|
||
|
|
400 NEXT i
|
||
|
|
410 TILE 144,0,$92,0,2,26
|
||
|
|
412 FOR i=3 TO 25
|
||
|
|
413 TILE 157,0,$92,0,i,26
|
||
|
|
415 NEXT i
|
||
|
|
420 TILE 154,0,$92,0,13,26
|
||
|
|
430 TILE 142,0,$92,0,26,26
|
||
|
|
450 FOR i=3 TO 10
|
||
|
|
460 FOR x=3 TO 25
|
||
|
|
470 TILE 108,$56,$10,$20,x,i
|
||
|
|
500 NEXT x
|
||
|
|
510 NEXT i
|
||
|
|
520 TILE 103,0,$f0,$80,8,6
|
||
|
|
530 TILE 42,0,255,0,14,4
|
||
|
|
540 FOR i=1 TO 7
|
||
|
|
550 x=RND (20)+3
|
||
|
|
560 y=RND (8)+3
|
||
|
|
570 TILE 124,0,255,0,x,y
|
||
|
|
580 NEXT i
|
||
|
|
600 FOR y=12 TO 20
|
||
|
|
610 FOR x=16 TO 25
|
||
|
|
620 TILE 128,0,$1f,0,x,y
|
||
|
|
650 NEXT x
|
||
|
|
660 NEXT y
|
||
|
|
700 FOR y=22 TO 25
|
||
|
|
710 FOR x=14 TO 25
|
||
|
|
720 TILE 129,0,$c0,$f0,x,y
|
||
|
|
730 NEXT x
|
||
|
|
750 NEXT y
|
||
|
|
800 FOR y=12 TO 20
|
||
|
|
810 FOR x=3 TO 14
|
||
|
|
820 TILE 35,0,255,$fc,x,y
|
||
|
|
830 NEXT x
|
||
|
|
840 NEXT y
|
||
|
|
900 FOR y=21 TO 25
|
||
|
|
910 FOR x=3 TO 12
|
||
|
|
930 TILE 35,0,255,$fc,x,y
|
||
|
|
940 NEXT x
|
||
|
|
950 NEXT y
|
||
|
|
1000 TILE 115,0,255,0,16,12
|
||
|
|
1010 TILE 98,0,255,0,24,12
|
||
|
|
1020 FOR y=15 TO 17
|
||
|
|
1030 FOR x=19 TO 21
|
||
|
|
1040 TILE 61,0,$fc,0,x,y
|
||
|
|
1050 NEXT x
|
||
|
|
1060 NEXT y
|
||
|
|
1070 TILE 114,0,$92,0,20,16
|
||
|
|
1080 TILE 149,0,$fc,0,20,11
|
||
|
|
1090 TILE 149,0,$fc,0,18,26
|
||
|
|
1100 TILE 168,0,$fc,0,21,21
|
||
|
|
1110 TILE 167,0,$fc,0,5,26
|
||
|
|
1120 TILE 62,0,$fc,0,3,3
|
||
|
|
2060 TILE 125,$80,$1f,0,23,22
|
||
|
|
2070 TILE 47,$80,$fc,$54,15,24
|
||
|
|
10000 POS 30,3:PRINT MX ;" ",MY ;" "
|
||
|
|
10010 GOTO 10000
|
||
|
|
|