1000 SCREEN 1:KEY OFF:CLS 1010 FOR I=0 TO 318 STEP 6:LINE(I,0)-(I,198),2:NEXT I 1020 FOR I=0 TO 198 STEP 6:LINE(0,I)-(318,I),2:NEXT I 1030 DIM X(3):DIM Y(3):DIM W(4,3):DIM S(4,3) 1040 X(0)= 1:Y(0)= 0 1050 X(1)= 0:Y(1)=-1 1060 X(2)=-1:Y(2)= 0 1070 X(3)= 0:Y(3)= 1 1080 W(0,0)=0:S(0,0)=0 1090 W(1,0)=1:S(1,0)=0 1100 W(2,0)=2:S(2,0)=1 1110 W(3,0)=1:S(3,0)=2 1120 W(4,0)=0:S(4,0)=2 1130 W(0,1)=0:S(0,1)=2 1140 W(1,1)=0:S(1,1)=1 1150 W(2,1)=1:S(2,1)=0 1160 W(3,1)=2:S(3,1)=1 1170 W(4,1)=2:S(4,1)=2 1180 W(0,2)=2:S(0,2)=2 1190 W(1,2)=1:S(1,2)=2 1200 W(2,2)=0:S(2,2)=1 1210 W(3,2)=1:S(3,2)=0 1220 W(4,2)=2:S(4,2)=0 1230 W(0,3)=2:S(0,3)=0 1240 W(1,3)=2:S(1,3)=1 1250 W(2,3)=1:S(2,3)=2 1260 W(3,3)=0:S(3,3)=1 1270 W(4,3)=0:S(4,3)=0 1280 X=157:Y= 97 1290 FOR J=0 TO 4:PSET(X+1+W(J,R),Y+1+S(J,R)),1-POINT(X,Y):NEXT J 1300 I$=INKEY$:IF I$="" THEN 1300 ELSE IF I$="e" THEN 1450 1310 FOR J=0 TO 4:PSET(X+1+W(J,R),Y+1+S(J,R)), POINT(X,Y):NEXT J 1320 P=POINT(X,Y):R=(R+2*P+3) MOD 4 1330 FOR J=0 TO 4:PSET(X+1+W(J,R),Y+1+S(J,R)),1-POINT(X,Y):NEXT J 1340 IF INKEY$="" THEN 1340 1350 PAINT(X,Y),1-POINT(X,Y),2 1360 FOR J=0 TO 4:PSET(X+1+W(J,R),Y+1+S(J,R)),1-POINT(X,Y):NEXT J 1370 IF INKEY$="" THEN 1370 1380 FOR J=0 TO 4:PSET(X+1+W(J,R),Y+1+S(J,R)), POINT(X,Y):NEXT J 1390 X=(X+X(R)*6+318) MOD 318:Y=(Y+Y(R)*6+198) MOD 198:GOTO 1290 1450 SCREEN 0:KEY OFF:CLS:WIDTH 80 1460 REM "C:AMEISE.BAS",A