mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-07-05 00:28:59 +00:00
13 lines
179 B
QBasic
13 lines
179 B
QBasic
|
10 HGR
|
||
|
|
20 CX=100:CY=100
|
||
|
|
30 HCOLOR=3
|
||
|
|
35 HPLOT CX,CY-7 TO CX,CY+7
|
||
|
|
40 GET A$
|
||
|
|
42 HCOLOR=0
|
||
|
|
43 HPLOT CX,CY-7 TO CX,CY+7
|
||
|
|
45 IF A$="D" THEN CX=CX+1
|
||
|
|
46 IF A$="A" THEN CX=CX-1
|
||
|
|
50 GOTO 30
|
||
|
|
|
||
|
|
|