jurjen.ladeniusandClaude Opus 4.8
f3340e86c6
Co-Authored-By: Claude Opus 4.8 <noreply@anthropic.com>
96 lines
3.9 KiB
QBasic
96 lines
3.9 KiB
QBasic
1 COLOR 15,0,0
|
|
2 VDP(10)=2
|
|
10 SCREEN 5: KEY OFF: CLS
|
|
20 SET PAGE 0,1: COPY "firehawk.sc5" TO (0,0)
|
|
30 SET PAGE 0,0
|
|
40 FOR I=0 TO 15: COLOR=(I,0,0,0): NEXT I
|
|
50 COPY (37,0)-(68,66),1 TO (111,73),0
|
|
55 GOSUB 100
|
|
60 COPY (0,0)-(33,66),1 TO (111,73),0
|
|
65 GOSUB 500
|
|
66 GOSUB 1000
|
|
67 GOTO 10000
|
|
70 '
|
|
100 COLOR=(2,1,1,1): FOR I=1 TO 30: NEXT I
|
|
110 COLOR=(2,2,2,2): FOR I=1 TO 30: NEXT I
|
|
120 COLOR=(2,3,3,3): FOR I=1 TO 30: NEXT I
|
|
130 COLOR=(2,4,4,4): FOR I=1 TO 30: NEXT I
|
|
140 COLOR=(2,5,5,5): FOR I=1 TO 30: NEXT I
|
|
150 COLOR=(2,6,6,6): FOR I=1 TO 30: NEXT I
|
|
160 COLOR=(2,7,7,7): FOR I=1 TO 30: NEXT I
|
|
170 COLOR=(2,7,7,7): FOR I=1 TO 30: NEXT I
|
|
180 COLOR=(2,6,6,6): FOR I=1 TO 30: NEXT I
|
|
190 COLOR=(2,5,5,5): FOR I=1 TO 30: NEXT I
|
|
200 COLOR=(2,4,4,4): FOR I=1 TO 30: NEXT I
|
|
210 COLOR=(2,3,3,3): FOR I=1 TO 30: NEXT I
|
|
220 COLOR=(2,2,2,2): FOR I=1 TO 30: NEXT I
|
|
230 COLOR=(2,1,1,1): FOR I=1 TO 30: NEXT I
|
|
240 COLOR=(2,0,0,0): FOR I=1 TO 30: NEXT I
|
|
250 '
|
|
300 COLOR=(4,1,1,1): FOR I=1 TO 30: NEXT I
|
|
310 COLOR=(4,2,2,2): FOR I=1 TO 30: NEXT I
|
|
320 COLOR=(4,3,3,3): FOR I=1 TO 30: NEXT I
|
|
330 COLOR=(4,4,4,4): FOR I=1 TO 30: NEXT I
|
|
340 COLOR=(4,5,5,5): FOR I=1 TO 30: NEXT I
|
|
350 COLOR=(4,6,6,6): FOR I=1 TO 30: NEXT I
|
|
360 COLOR=(4,7,7,7): FOR I=1 TO 30: NEXT I
|
|
370 COLOR=(4,7,7,7): FOR I=1 TO 30: NEXT I
|
|
380 COLOR=(4,6,6,6): FOR I=1 TO 30: NEXT I
|
|
390 COLOR=(4,5,5,5): FOR I=1 TO 30: NEXT I
|
|
400 COLOR=(4,4,4,4): FOR I=1 TO 30: NEXT I
|
|
410 COLOR=(4,3,3,3): FOR I=1 TO 30: NEXT I
|
|
420 COLOR=(4,2,2,2): FOR I=1 TO 30: NEXT I
|
|
430 COLOR=(4,1,1,1): FOR I=1 TO 30: NEXT I
|
|
440 COLOR=(4,0,0,0): FOR I=1 TO 30: NEXT I
|
|
445 RETURN
|
|
450 '
|
|
500 COLOR=(3,1,1,1): FOR I=1 TO 30: NEXT I
|
|
510 COLOR=(3,2,2,2): FOR I=1 TO 30: NEXT I
|
|
520 COLOR=(3,3,3,3): FOR I=1 TO 30: NEXT I
|
|
530 COLOR=(3,4,4,4): FOR I=1 TO 30: NEXT I
|
|
540 COLOR=(3,5,5,5): FOR I=1 TO 30: NEXT I
|
|
550 COLOR=(3,6,6,6): FOR I=1 TO 30: NEXT I
|
|
560 COLOR=(3,7,7,7): FOR I=1 TO 30: NEXT I
|
|
570 COLOR=(3,7,7,7): FOR I=1 TO 30: NEXT I
|
|
580 COLOR=(3,6,6,6): FOR I=1 TO 30: NEXT I
|
|
590 COLOR=(3,5,5,5): FOR I=1 TO 30: NEXT I
|
|
600 COLOR=(3,4,4,4): FOR I=1 TO 30: NEXT I
|
|
610 COLOR=(3,3,3,3): FOR I=1 TO 30: NEXT I
|
|
620 COLOR=(3,2,2,2): FOR I=1 TO 30: NEXT I
|
|
630 COLOR=(3,1,1,1): FOR I=1 TO 30: NEXT I
|
|
640 COLOR=(3,0,0,0): FOR I=1 TO 30: NEXT I
|
|
650 '
|
|
700 COLOR=(5,1,1,1): FOR I=1 TO 30: NEXT I
|
|
710 COLOR=(5,2,2,2): FOR I=1 TO 30: NEXT I
|
|
720 COLOR=(5,3,3,3): FOR I=1 TO 30: NEXT I
|
|
730 COLOR=(5,4,4,4): FOR I=1 TO 30: NEXT I
|
|
740 COLOR=(5,5,5,5): FOR I=1 TO 30: NEXT I
|
|
750 COLOR=(5,6,6,6): FOR I=1 TO 30: NEXT I
|
|
760 COLOR=(5,7,7,7): FOR I=1 TO 30: NEXT I
|
|
770 COLOR=(5,7,7,7): FOR I=1 TO 30: NEXT I
|
|
780 COLOR=(5,6,6,6): FOR I=1 TO 30: NEXT I
|
|
790 COLOR=(5,5,5,5): FOR I=1 TO 30: NEXT I
|
|
800 COLOR=(5,4,4,4): FOR I=1 TO 30: NEXT I
|
|
810 COLOR=(5,3,3,3): FOR I=1 TO 30: NEXT I
|
|
820 COLOR=(5,2,2,2): FOR I=1 TO 30: NEXT I
|
|
830 COLOR=(5,1,1,1): FOR I=1 TO 30: NEXT I
|
|
840 COLOR=(5,0,0,0): FOR I=1 TO 30: NEXT I
|
|
850 RETURN
|
|
900 '
|
|
1000 FOR C=2 TO 5: COLOR=(C,1,1,1): FOR I=1 TO 30: NEXT I: NEXT C
|
|
1010 FOR C=2 TO 5: COLOR=(C,2,2,2): FOR I=1 TO 30: NEXT I: NEXT C
|
|
1020 FOR C=2 TO 5: COLOR=(C,3,3,3): FOR I=1 TO 30: NEXT I: NEXT C
|
|
1030 FOR C=2 TO 5: COLOR=(C,4,4,4): FOR I=1 TO 30: NEXT I: NEXT C
|
|
1040 FOR C=2 TO 5: COLOR=(C,5,5,5): FOR I=1 TO 30: NEXT I: NEXT C
|
|
1050 FOR C=2 TO 5: COLOR=(C,6,6,6): FOR I=1 TO 30: NEXT I: NEXT C
|
|
1060 FOR C=2 TO 5: COLOR=(C,7,7,7): FOR I=1 TO 30: NEXT I: NEXT C
|
|
1070 FOR C=2 TO 5: COLOR=(C,6,6,6): FOR I=1 TO 30: NEXT I: NEXT C
|
|
1080 FOR C=2 TO 5: COLOR=(C,5,5,5): FOR I=1 TO 30: NEXT I: NEXT C
|
|
1090 FOR C=2 TO 5: COLOR=(C,4,4,4): FOR I=1 TO 30: NEXT I: NEXT C
|
|
1100 FOR C=2 TO 5: COLOR=(C,3,3,3): FOR I=1 TO 30: NEXT I: NEXT C
|
|
1110 FOR C=2 TO 5: COLOR=(C,2,2,2): FOR I=1 TO 30: NEXT I: NEXT C
|
|
1130 FOR C=2 TO 5: COLOR=(C,1,1,1): FOR I=1 TO 30: NEXT I: NEXT C
|
|
1140 FOR C=2 TO 5: COLOR=(C,0,0,0): FOR I=1 TO 30: NEXT I: NEXT C
|
|
1150 RETURN
|
|
10000 '
|
|
|