mirror of
https://github.com/mbirth/gwbasic.git
synced 2024-09-19 16:53:26 +01:00
23 lines
520 B
QBasic
23 lines
520 B
QBasic
10 CLS
|
||
20 KEY OFF
|
||
30 A=1:B=1:X=1:Y=1
|
||
40 LOCATE A,B:PRINT"Û";
|
||
50 H=0
|
||
60 C=STICK(0):D=STICK(1):E=STRIG(0):F=STRIG(4)
|
||
70 IF C<90 THEN Y=Y-1
|
||
80 IF C>120 THEN Y=Y+1
|
||
90 IF D<100 THEN X=X-1
|
||
100 IF D>120 THEN X=X+1
|
||
110 IF X<1 THEN X=1
|
||
120 IF X>25 THEN X=25
|
||
130 IF Y<1 THEN Y=1
|
||
140 IF Y>80 THEN Y=80
|
||
150 IF E=-1 AND F=-1 THEN COLOR H:H=H+1:I=1:IF H>31 THEN H=0
|
||
160 IF I=1 THEN I=0:GOTO 180
|
||
170 IF F=-1 THEN CLS
|
||
180 IF E=-1 THEN 210
|
||
190 LOCATE A,B:PRINT" ";
|
||
200 A=X:B=Y
|
||
210 LOCATE X,Y:PRINT"Û";
|
||
220 GOTO 60
|
||
|