mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-10-10 08:23:49 +00:00
20 lines
463 B
QBasic
20 lines
463 B
QBasic
7000 HIMEM:8144
|
|
7020 POKE 232,208:POKE 233,31
|
|
7030 FOR L=8144 TO 8175: READ B:POKE L,B:NEXT L
|
|
7035 HGR:ROT=0:SCALE=2
|
|
7040 XDRAW 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
|
|
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 1,0,4,0,219,36,36,44,44,44
|
|
7101 DATA 53,53,53,54,54,54,54,63,63,45
|
|
7102 DATA 46,46,62,63,63,39,37,37,63,36
|
|
7103 DATA 36,0
|