100 DEFINT A-Z

autoexec.bas

100 DEFINT A-Z
105 COLOR 15,1,1:SCREEN 2,0,0
110 M=4:DIM C(M):AX=1:AY=1:CX=124:CY=92
115 SPRITE$(0)=STRING$(8,255):SPRITE$(1)=STRING$(3,16)+CHR$(254)+STRING$(3,16)
120 FOR I=M TO 0 STEP -1:READ C(M):LINE (124-8*I,152-8*I)-(124+8*I+7,152+8*I+7),C(M),B :NEXT I:DATA 10,9,8,6,13
125 LINE (0,0)-STEP(255,119),4,BF
130 PUT SPRITE 0,(124+8*X,151+8*Y),15
135 PUT SPRITE 1,(CX-3,CY-4),15
140 O=J:J=STICK(0)
145 IF J=0 THEN AY=1:AX=1:X=0:Y=0
150 IF J=O AND J>0 THEN GOSUB 210
155 IF J=8 OR J=1 OR J=2 THEN Y=-AY
160 IF J=6 OR J=5 OR J=4 THEN Y=AY
165 IF J=1 OR J=5 THEN X=0:AX=1
170 IF J=8 OR J=7 OR J=6 THEN X=-AX
175 IF J=2 OR J=3 OR J=4 THEN X=AX
180 IF J=3 OR J=7 THEN Y=0:AY=1
185 CX=CX+(2^ABS(X)*SGN(X))
190 CY=CY+(2^ABS(Y)*SGN(Y))
195 IF CX<0 THEN CX=0 ELSE IF CX>255 THEN CX=255
200 IF CY<0 THEN CY=0 ELSE IF CY>119 THEN CY=119
205 GOTO 130
210 AX=AX+1:IF AX>M THEN AX=M
215 AY=AY+1:IF AY>M THEN AY=M
220 RETURN