isolantz

Instructions: Install the Altirra Atari emulator, and configure as 800XL. 

Load isolantz.atr disk into emulator using File->Disk Drives->D1

Boot into BASIC and type

LOAD"D:ISOLATZ.BAS"

then type

RUN

Use System->Warp Speed to make it faster and more fun

Description: An isolated ant wanders an ant farm of shells, rocks, and sand. A Boulderant sandbox.

Use WASD to move. Rocks will fall.

We must imagine the ant is happy and content.

Files:

file_id.diz

isolantz.ATR (ATARI disk to load into disk drive)

isolantz.bas (BASIC executable)

antz.png     (image photos)

antz2.png

antz3.png

antz4.png

antz5.png

antz6.png

boulderant.png

If you cant get it to load from the disk BASIC file try to cut and paste the BASIC program  using

View->Paste text

3 OPEN #1,4,0,"K"

5  DIM K$(1)

10 DIM A(23,22)

20 FOR Y = 1 TO 23

30   FOR X = 1 TO 22

40     IF Y = 9 AND X = 11 THEN A(Y,X) = 143 : REM Ant

50     IF Y < 9 THEN A(Y,X) = 176 : REM Sand

60     IF Y >= 9 AND Y <= 12 AND X >= 7 AND X <= 16 THEN A(Y,X) = 42 : REM Rocks

70     IF Y > 12 THEN A(Y,X) = 64 : REM Shells

80   NEXT X

90 NEXT Y

100 X = 11

110 Y = 9

120 GRAPHICS 0

130 FOR Y1 = 0 TO 22

140   FOR X1 = 0 TO 21

150     PRINT CHR$(A(Y1+1,X1+1));

160   NEXT X1

170  IF X1 <> 21 THEN PRINT

180 NEXT Y1

200 GET #1,K : K$=CHR$(K)

205 A(Y,X) = 32

210 IF K$ = "W" AND Y > 1 THEN Y = Y - 1 : GOTO 250: REM Move up

220 IF K$ = "S" AND Y < 22 THEN Y = Y + 1 : GOTO 250: REM Move down

230 IF K$ = "A" AND X > 1 THEN X = X - 1 :IF A(Y-1,X+1) = 42 THEN A(Y-1,X+1) = 32: A(Y,X+1) = 42: GOTO 250: REM Move left

240 IF K$ = "D" AND X < 22 THEN X = X + 1 :IF A(Y-1,X-1) = 42 THEN A(Y-1,X-1) = 32: A(Y,X-1) = 42: REM Move right

250 A(Y,X) = 143 : REM Update ant position

270 GOTO 130