mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-08-18 23:29:26 +00:00
154 lines
4.8 KiB
QBasic
154 lines
4.8 KiB
QBasic
10 HGR
|
|
20 HCOLOR=3
|
|
25 X=10:Y=10
|
|
30 HPLOT X,Y TO X+3,Y :HPLOT X+5,Y TO X+7,Y:HPLOT X+9,Y TO X+12,Y
|
|
31 HPLOT X,Y+1 TO X+2,Y+1: HPLOT X+10,Y+1 TO X+12,Y+1
|
|
32 HPLOT X,Y+2 TO X+1,Y+2: HPLOT X+11,Y+2 TO X+12,Y+2
|
|
33 HPLOT X,Y+4 TO X+1,Y+4: HPLOT X+11,Y+4 TO X+12,Y+4
|
|
34 HPLOT X,Y+5 TO X+1,Y+5: HPLOT X+11,Y+5 TO X+12,Y+5
|
|
35 HPLOT X,Y+7 TO X+1,Y+7: HPLOT X+11,Y+7 TO X+12,Y+7
|
|
36 HPLOT X,Y+8 TO X+2,Y+8: HPLOT X+10,Y+8 TO X+12,Y+8
|
|
37 HPLOT X,Y+9 TO X+3,Y+9:HPLOT X+5,Y+9 TO X+7,Y+9:HPLOT X+9,Y+9 TO X+12,Y+9
|
|
' 0123456789012
|
|
'0 #### ### ####
|
|
'1 ### ###
|
|
'2 ## ##
|
|
'3 ## ##
|
|
'4 ## ##### ##
|
|
'5 ## ##### ##
|
|
'6 ###
|
|
'7 ## # #
|
|
'8 ### ###
|
|
'9 #### ### ####
|
|
' HEART
|
|
38 HPLOT X+4,Y+3 TO X+5,Y+3:HPLOT X+7,Y+3 TO X+8,Y+3
|
|
39 HPLOT X+4,Y+4 TO X+8,Y+4
|
|
40 HPLOT X+4,Y+5 TO X+8,Y+5
|
|
41 HPLOT X+5,Y+6 TO X+7,Y+6
|
|
42 HPLOT X+6,Y+7
|
|
'
|
|
45 FOR I=0 TO 13:X=100+I:Y=I*10
|
|
51 HCOLOR=5:REM RED
|
|
52 HPLOT X+0,Y+0 TO X+8,Y+0:HPLOT X+0,Y+1 TO X+8,Y+1
|
|
53 HPLOT X+2,Y+2 TO X+6,Y+2:HPLOT X+2,Y+3 TO X+6,Y+3
|
|
54 HPLOT X+4,Y+4 TO X+4,Y+5
|
|
61 HCOLOR=1:REM GREEN
|
|
62 HPLOT X+12,Y+0 TO X+12,Y+1
|
|
63 HPLOT X+10,Y+2 TO X+14,Y+2:HPLOT X+10,Y+3 TO X+14,Y+3
|
|
64 HPLOT X+8,Y+4 TO X+16,Y+4:HPLOT X+8,Y+5 TO X+16,Y+5
|
|
65 HPLOT X+26,Y+0 TO X+26,Y+1
|
|
66 HPLOT X+24,Y+2 TO X+28,Y+2:HPLOT X+24,Y+3 TO X+28,Y+3
|
|
67 HPLOT X+22,Y+4 TO X+30,Y+4:HPLOT X+22,Y+5 TO X+30,Y+5
|
|
71 HCOLOR=2:REM PURPLE
|
|
72 HPLOT X+15,Y+0 TO X+23,Y+0:HPLOT X+15,Y+1 TO X+23,Y+1
|
|
73 HPLOT X+17,Y+2 TO X+21,Y+2:HPLOT X+17,Y+3 TO X+21,Y+3
|
|
74 HPLOT X+19,Y+4 TO X+19,Y+5
|
|
75 HPLOT X+29,Y+0 TO X+37,Y+0:HPLOT X+29,Y+1 TO X+37,Y+1
|
|
76 HPLOT X+31,Y+2 TO X+35,Y+2:HPLOT X+31,Y+3 TO X+35,Y+3
|
|
77 HPLOT X+33,Y+4 TO X+33,Y+5
|
|
80 NEXT I
|
|
'
|
|
100 X=50:Y=100:HCOLOR=3
|
|
102 FOR I=0 TO 10:HPLOT X,Y+I TO X+12,Y+I:NEXT I
|
|
103 HCOLOR=0:HPLOT X+2,Y+5 TO X+10,Y+5
|
|
104 HPLOT X+8,Y+4 TO X+9,Y+4:HPLOT X+8,Y+6 TO X+9,Y+6
|
|
105 HPLOT X+7,Y+3 TO X+8,Y+3:HPLOT X+7,Y+7 TO X+8,Y+7
|
|
106 HPLOT X+6,Y+2 TO X+7,Y+2:HPLOT X+6,Y+8 TO X+7,Y+8
|
|
107 HPLOT X+5,Y+1 TO X+6,Y+1:HPLOT X+5,Y+9 TO X+6,Y+9
|
|
'
|
|
|
|
115 HCOLOR=5
|
|
120 FOR X=0 TO 278 STEP 5:HPLOT X,0 TO 120,85:V=PEEK(-16336):NEXT X
|
|
122 FOR Y=0 TO 159 STEP 5:HPLOT 278,Y TO 120,85:V=PEEK(-16336):NEXT Y
|
|
124 FOR X=278 TO 0 STEP -5:HPLOT X,159 TO 120,85:V=PEEK(-16336):NEXT X
|
|
126 FOR Y=159 TO 0 STEP -5:HPLOT 0,Y TO 120,85:V=PEEK(-16336):NEXT Y
|
|
|
|
|
|
200 REM SPRITE EDIT
|
|
210 X=0:Y=0:ROT=0:SCALE=1
|
|
220 HIMEM:8170
|
|
230 POKE 232,234:POKE 233,31
|
|
240 FOR L=8170 TO 8175: READ B:POKE L,B:NEXT L
|
|
250 DATA 1,0,4,0,6,0
|
|
'
|
|
510 GET A$
|
|
515 XDRAW 1 AT X,Y
|
|
517 IF A$="Q" THEN END
|
|
520 IF A$="I" THEN Y=Y-1
|
|
530 IF A$="J" THEN X=X-1
|
|
540 IF A$="K" THEN X=X+1
|
|
550 IF A$="M" THEN Y=Y+1
|
|
560 IF Y<0 THEN Y=0
|
|
570 IF X<0 THEN X=0
|
|
580 IF A$="0" THEN HCOLOR=0:HPLOT X,Y
|
|
585 IF A$="1" THEN HCOLOR=1:HPLOT X,Y
|
|
590 IF A$="2" THEN HCOLOR=2:HPLOT X,Y
|
|
595 IF A$="3" THEN HCOLOR=3:HPLOT X,Y
|
|
600 IF A$="4" THEN HCOLOR=4:HPLOT X,Y
|
|
605 IF A$="5" THEN HCOLOR=5:HPLOT X,Y
|
|
610 IF A$="6" THEN HCOLOR=6:HPLOT X,Y
|
|
615 IF A$="7" THEN HCOLOR=7:HPLOT X,Y
|
|
620 XDRAW 1 AT X,Y
|
|
630 GOTO 510
|
|
900 HOME:L=1:POKE 32,8:PRINT
|
|
901 PRINT"************************"
|
|
902 PRINT"* *"
|
|
903 IF L=1 GOTO 920
|
|
904 IF L=19 GOTO 930
|
|
' Too lazy to implement full number printing routine
|
|
906 PRINT"* ??? ??? *"
|
|
908 PRINT"* ? ? ? ? *"
|
|
910 PRINT"* ? ? *"
|
|
912 PRINT"* ? ? *"
|
|
914 PRINT"* o o *"
|
|
916 GOTO 940
|
|
920 PRINT"* @@@@@ @@ *"
|
|
922 PRINT"* @ @ @ @ *"
|
|
924 PRINT"* @ @ @ *"
|
|
926 PRINT"* @ @ @ *"
|
|
928 PRINT"* @@@@@ @@@@@ *"
|
|
929 GOTO 940
|
|
930 PRINT"* @@ @@@@@ *"
|
|
932 PRINT"* @ @ @ @ *"
|
|
934 PRINT"* @ @@@@@ *"
|
|
936 PRINT"* @ @ *"
|
|
938 PRINT"* @@@@@ @@@@@ *"
|
|
940 REM
|
|
942 PRINT"* *"
|
|
944 PRINT"* ";:IF L<10 THEN PRINT "0";
|
|
946 PRINT L;"/19 *"
|
|
948 PRINT"* ___________________ *"
|
|
949 PRINT"* ";
|
|
950 FOR I=1 TO L:PRINT "|";:NEXT I
|
|
952 FOR I=L TO 19:PRINT " ";:NEXT I
|
|
954 PRINT" *"
|
|
956 PRINT"* *"
|
|
958 PRINT"* ___________________ *"
|
|
959 PRINT"* ___ *"
|
|
960 PRINT"* \o/ [] [] o () *"
|
|
962 PRINT"* ~~~~~ [ V ] /< _ *"
|
|
964 PRINT"* / \ []_[] <=> | *"
|
|
966 PRINT"* *"
|
|
968 PRINT"************************"
|
|
' ************************
|
|
' * *
|
|
' * @@@@@ @@ *
|
|
' * @ @ @ @ *
|
|
' * @ @ @ *
|
|
' * @ @ @ *
|
|
' * @@@@@ @@@@@ *
|
|
' * *
|
|
' * 01/19 *
|
|
' * ___________________ *
|
|
' * ||||||||||||||||||| *
|
|
' * *
|
|
' * ___________________ *
|
|
' * ___ *
|
|
' * \o/ [] [] o () *
|
|
' * ~~~~~ [ V ] /< _ *
|
|
' * / \ []_[] <=> | *
|
|
' * *
|
|
' ************************
|
|
998 POKE 32,0
|
|
999 END
|