mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-07-13 22:29:14 +00:00
26 lines
669 B
QBasic
26 lines
669 B
QBasic
7000 HIMEM:8106
|
|
7020 POKE 232,170:POKE 233,31
|
|
7030 FOR L=8106 TO 8175: READ B:POKE L,B:NEXT L
|
|
7035 HGR:ROT=0:SCALE=2
|
|
7037 TH=0
|
|
7040 XDRAW TH+1 AT 140,80
|
|
7050 GET A$
|
|
7060 IF A$="Q" THEN END
|
|
7062 IF A$="A" THEN R=R-8
|
|
7063 IF A$="D" THEN R=R+8
|
|
7065 IF A$="Z" THEN TH=1
|
|
7067 IF A$="X" THEN TH=0
|
|
7070 IF R=64 THEN R=0
|
|
7072 IF R=-8 THEN R=56
|
|
7075 XDRAW 1 AT 140,80
|
|
7080 ROT=R
|
|
7085 GOTO 7040
|
|
7090 END
|
|
7100 DATA 2,0,6,0,34,0,219,36,36,44
|
|
7101 DATA 44,44,53,53,53,54,54,54,54,63
|
|
7102 DATA 63,45,46,46,62,63,63,39,37,37
|
|
7103 DATA 63,36,36,0,219,36,36,44,44,44
|
|
7104 DATA 53,53,53,54,54,54,54,63,63,45
|
|
7105 DATA 46,46,62,63,63,45,45,62,54,62
|
|
7106 DATA 39,36,39,39,37,37,63,36,36,0
|