Рет қаралды 245
100 GRAPHICS HIRES 4:SET BORDER 0:SET KEY CLICK OFF:SET STATUS OFF
110 SET INK 2:PLOT 500,200;800,200;800,500;500,500;500,200
120 PRINT #101,AT 2,2:"GAME: press a key to turn direction."
130 SET INK 3:LET I=0:LET X=550:LET Y=220:LET S=0
140 LET I$=INKEY$:LET S=S+1
150 PLOT X,Y,
160 LOOK A
170 PLOT X,Y
180 IF I$ ≠ "" THEN LET I= (I+1) BAND 3
190 IF I=0 THEN LET X=X+4:LET Y=Y+0
200 IF I=1 THEN LET X=X+0:LET Y=Y+4
210 IF I=2 THEN LET X=X-4:LET Y=Y+0
220 IF I=3 THEN LET X=X+0:LET Y=Y-4
230 IF A=0 THEN GOTO 140
240 PRINT #101,AT 19,12:"YOUR SCORE:";S