SUPER ZOMBIE )
REM SUPER ZOMBIE
REM MAGNUS OLSSON 820919
I=#3300;J=#3400;S=#3500;Q=#3550;W=#35A0;R=#3600
( P.$12
2 P.'"super"$255"zombie"''
< P."Q,W,E = ^"'"Z,X,C = V"'"Q,A,Z = <"'
F P."E,D,C = >"'"S = HYPERSPACE"''
PrDO IN."ANTAL SPELARE (1-9)"M;U.M>0 AND M<10
Z DO IN."SVARIGHETSGRAD (1-15)"N;U.N>0 AND N<16
d ?#90=222-12*N;N=30-N
n FOR A=0 TO 255
x A?#2800=ABSRND%N;A?I=1+ABSRND%23;A?J=1+ABSRND%11;NEXT
FOR A=1 TO 9;!(A*4+R)=0;NEXT
X=!8;Y=?12;@=2
FOR N=1 TO M
P.$12'''''''" SPELARE NR"N;FOR A=1 TO 3000;NEXT
!8=X;?12=Y
!S=0;S!4=0;!#82=0;?#81=4;!#86=0
FOR A=1 TO 7;Q?A=1+ABSRND%23;W?A=1+ABSRND%11;NEXT
P.$12;?#E1=0
FOR A=1 TO 25;P.$223;NEXT
FOR A=1 TO 11;P.'$223" "$223;NEXT
P.';DO P.$223;UNTIL COUNT=25
P.''"^ ^ ^ ^ "
FOR A=1 TO 32;B=1+ABSRND%23;C=1+ABSRND%11
?(#8000+32*C+B)=127;NEXT
FOR A=1 TO 7;?(#8000+32*(A?W)+A?Q)=#1A;NEXT
DO ?Q=1+ABSRND%23;?W=1+ABSRND%11;U.?(#8000+32*?W+?Q)=32
" ?(#8000+32*?W+?Q)=#18
, LINK #2F50;LINK #2F8E
6 K=?#86
@ IF K=0 P."DU KLARADE DIG!";G.n
J IF K=#1A P.$7"EN ZOMBIE TOG DIG!";G.n
T P.$7"DU DRUNKNADE!"
^n!(N*4+R)=#FFFF&!#82
h IF K=0;!(N*4+R)=10000-!(N*4+R)
r FOR A=1 TO 4500;NEXT
| NEXT
P.$12
FOR A=1 TO M;D=0
FOR C=1 TO M
B=!(C*4+R)
IF B>D D=B;E=C
NEXT
P.'"SPELARE NR"E;B=!(E*4+R);!(E*4+R)=-1
IF B>5000 P." VANN EFTER";B=-(B-10000);G.a
P." AVLED EFTER"
aP." "&B
NEXT
IN.''"EN OMGANG TILL"$I
IF ?I<>CH"N" G.r
END
IEF
H / I)?= /놀h `HHH /hhh`<I栥d`dI`,0`) 0;JJJJ 0<) 0= B/ /5P5 ,1 ii ئ0J LK15Π50
55P5P5L 0P5P5P55 ,1 ` V0` 5`L/L0 505P5 ,1 / 54 8P5P5Ii855Ii 5 5&5ݠ5ޠ5L05P5P5P5L0P55P5 ,1 ` 5Lq/`扤 (`I 3P5 455P5 ,1 ө 5`
`8
`L 0Ɓ
扦 3P5 45 ,1 / P/L/) 0= "1 MASKEN )R
REM *********************
REM * M A S K E N *
REM * MAGNUS OLSSON -83 *
( REM *********************
2 CLEAR 0
< MOVE 2,42;DRAW 17,42;DRAW 17,46;DRAW 32,46;DRAW 32,42
F DRAW 47,42
P !#803B=#40405959
Z P.$30''''" M A S K E N"''
d P." (MAGNUS OLSSON 1983)"''
n P." STYR VANSTER MED shift"''" STYR HOGER MED rept"''
x DO IN." SVARIGHETSGRAD (1-5)"S;U.S<6 A.S>0
!#AA=100*(5-S)+800
aW=#3A00;Z=#3B00;?#A2=#FE;!#93=RND
?#A0=3;?#A1=0;!W=#5040302;!Z=#18181818;?#88=0;?#A3=1
F.X=0 TO 250 S.2;X!#2800=#8000+ABSRND%256;N.
X=1;Y=0
!#A3=#80F001
L=#2F0F;M=#2F2F
CLEAR 0
MOVE 0,0;DRAW 63,0;DRAW 63,47;DRAW 0,47;DRAW 0,0
MOVE 2,24;DRAW 5,24
!#80F0=#40405959
F.A=0 TO 2000;N.;P.$7
DO
LI.L
IF ?#92=1 A=X;X=-Y;Y=A
IF ?#92=2 A=X;X=Y;Y=-A
" U.?#89 OR ?#A6=60
, IF ?#89<>0 F.X=0 TO 250;?#B002=X;N.
6 P.$12;@=0;P=?#A6
@ P."DU TRAFFADE "P" MAL"'
J IF P>50 P."*** SUPERBRA ***";G.e
T IF P>25 P."FENOMENALT!";G.e
^ IF P>10 P."MYCKET BRA";G.e
h IF P>5 P."BRAVO...";G.e
r IF P>1 P."INTE RIKTIGT BRA";G.e
| P."URKASST!!!"
eIF P>30 P.'"DU BORDE BLI MASKCHAUFFOR"'"PA HELTID..."
P.'''"VILL DU FORTSATTA?";LI.M;IF ?#80<>#4E G.a
END
T ൸f@@ rAUQts0b ,0,p `J/8偢8i
i J*`} :} ; ; : c.ƈ` : ;L.,0 - %`, - I1`,0榠 @ȑI Ơơ`Y``,0梦 (( @ȱ@Y`e)L.؆ . (. . -` L h$(@ @$ T@] PURUP STAR TREK Ў
REM*SUBROUTINES FOR*
REM*STAR TREK IV/3 *
?18=#29;RUN
j?#23=0;?#24=#90
DIM QQ77,BB77,SS77,NN77,XX4,YY4,ZZ4,WW4,KK95,DD7,C6,O16
F.I=0 TO 77;QQI=0;BBI=0;SSI=0;NNI=1;N.
K=26;?540=50;W=0;?550=10
F.I=1 TO K-2
J=A.R.%8+10*(A.R.%8);IFQQJ>5 G.24
QQJ=QQJ+1;N.;DO J=A.R.%8+10*(A.R.%8);U.QQJ=1;QQJ=3
F.I=0 TO 7;DDI=0;N.
F.I=0 TO 77;SSI=A.R.%10;N.
F.I=1 TO ?550;J=A.R.%8+10*(A.R.%8);IF BBJ>2 G.28
BBJ=BBJ+1;N.
$C="GREEN";$O=""
(Q=34
-X=4;Y=4;B=0;R=0;P=3000;S=0;F=15000;D=23000
2?18=#29;R.
tREM FIND TRAJECTORY
U=X-G;V=Y-H;IF G=0 G.1110
IF(A.G<>A.H)A.H<>0 G.1170
Z=SGNG;T=SGNH
I=U;J=V
U=U+Z;V=V+T
IF U>11 OR V>7 OR U<0 OR V<0 G.1070
A=KK(U*8+V)
IF A<>32 A.A<>66;U=1;G.1100
IF U=X G.1070
$G.1030
.U=0
L?18=#29;R.
VIF H=0 G.1170
`Z=SGNH;T=SGNG
jI=U;J=V
tV=V+Z;U=U+T
yIF U>11 OR V>7 OR U<0 OR V<0 G.1070
}A=KK(U*8+V)
~IF A<>32 A.A<>66;U=1;G.1100
IF V=Y G.1070
G.1130
I=X;J=Y;U=0
IFX<0 OR Y<0 OR X>11 OR Y>7 G.1070
A=KK(I*8+J)
IF A=32 OR A=66 G.1100
U=1;I=I-SGNG;J=J-SGNH
G.1175
xREM BATTLE COMPUTER
F.I=0TO4;WWI=0;N.
CU.0,13
IF B P.$7"YOU CANT FIRE WHILE DOCKED";?18=#29;G.e
#IF DD0;P.$7"BATTLE COMPUTER NOT OPERATIVE"';?18=#29;G.e
(IF QQQ=0;P.$7"*NO KLINGONS IN THIS QUADRANT*"';?18=#29;G.e
2P.$12
7F.I=0TO4;IF XXI=-1 G.1365
M;P.$7;G.1350
KG=X-XXI;H=Y-YYI;G=%SQR(G*G+H*H)
LH=%(100/G^.25)
PR=R+J;WWI=J*H*(75+A.R.%26)/10000
UN.
Z?18=#29;R.
nF.A=0TO63;LI.#284E;WAIT;?T=#80:?T;N.;R.
xyREM FIRE PHASERS
F.I=0TO4;IF WWI=0 G.1510
T=#8041+XXI+32*YYI
GOS.1390;ZZI=ZZI-WWI
CU.0,13;P.WWI" UNIT HIT AT KLINGON";?540=100
IF ZZI>0 G.1500
P.'$7"***KLINGON DESTROYED***";?T=32
KK(8*XXI+YYI)=32
XXI=-1;QQQ=QQQ-1;K=K-1
CU.27,4;@=5;P.K;@=0
F.T=0TO4000;N.;LI.#28E0
N.;?18=#29;G.d
@hREM MANUAL PHASER
DF.I=0TO4;WWI=0;N.
ECU.0,12
FIF DD1=0 G.1608
GP.$7"***PHASER CONTROL OUT***";?18=#29;G.e
HIF B G.x
JCR1;P."MANUAL FIRING:"'
TIN."ENTER VECTOR: X="G;CU.14,14;IN."Y="H
^CU.0,12;LI.#28E0
cIFG=0 A.H=0 G.1645
hIFX+G<12 A.X+G>=0 A.Y+H>-1 A.Y+H<8 G.1650
mP.$7"INCORRECT DATA"';G.1620
rP."POWER AVAILABLE: "
tIF P<1000 P.P;G.1655
uP.1000
wIN.'"POWER TO PHASER"R;IF R<0 R=0
|IF R=0;?18=#29;G.d
IF R>P OR R>1000 P.$7;G.1630
I=-1;M=X+G;N=Y+H
DOI=I+1;U.(XXI=M A.YYI=N)OR I=4
IF XXI=M A.YYI=N;G.z
T=#8041+M+32*N;GOS.1390
?18=#29;G.d
zG=X-XXI;H=Y-YYI;G=%SQR(G*G+H*H)
H=%(100/G^.25)
CR0;LI.#28E0
WWI=R*H*(75+A.R.%26)/10000;G.y
fREM KLINGONS FIRE BACK
IF B G.1910
J=?540;?540=50
F.I=0TO4;IFXXI<0 G.1900
!IFA.R.%100>J G.1900
&A=XXI-X;H=YYI-Y;G=%SQR(A*A+H*H)
0H=%(100/G^.25)
:H=H*(750+A.R.%500)/100
?M=#8041+XXI+32*YYI;?M=128:?M
DT=#8041+X+32*Y;GOS.1390
I?M=128:?M
NCU.0,13;P.H" UNIT HIT AT ENTERPRISE"
SM=100*H/(S+1);S=S-H;IF S<0 G.1920
TCU.27,8;@=5;P.S;@=0
XF.G=0TO2000;N.;LI.#28E0
_IFA.R.%20<15 A.M>4 GOS.2000
lN.
v?18=#29;G.g
F.I=0 TO 120;WAIT;?#B002=4:?#B002;N.;?T=32
G.1910
REM DAMAGE
N=A.R.%8;DDN=DDN+M/7+A.R.%5+2;IF DDN>8 DDN=8
?18=#29;RES.b;!541=!O
F.M=0TON;REA.$O;N.
CU.0,12;P.$7$O" DAMAGED BY HIT"
F.M=0TO2000;N.;!O=!541;?18=#82;LI.#28E0
IF N=5;?18=#29;GOS.s;?18=#82
R.
L
IF!#AFED=#4F524557;G.10
P.$12"THIS PROGRAM REQUIRES THE WE-ROMTO BE FITTED "
P."AT #A000."';!#2900=#FF0D;?18=#29;E.
A=!#20A;?#20A=#93;?#20B=#FE
?#D=0;?#E=#90;*NOMON
*L."STAR TREK/PART 2"
(!#20A=A;?18=#29;RUN
STAR TREK/PART 2 (
REM$%CR
REA.P
?#E1=0
IFP;?#E1=128
(EX.
) : I` @ *@@ @`
` Ā׀LN( ZRZPB^P @ ` PZ@R@@VRP@@@P@P
REM ******************
REM * STAR TREK IV/3 *
REM * MAGNUS OLSSON *
REM * 84-07-16 *
REM ******************
GOS.v
P.$12;@=0
?18=#82;GOS.j
2GOS.p;GOS.q;GOS.s
REM ***COMMAND LOOP***
DO
cCU.0,12;CR1;IN."COMMAND"$O;O?3=13;CR0;?#81A0=32
IF $O="NAV" G.n
IF $O="SRS" GOS.s;G.d
&IF $O="LRS" G.l
0IF $O="WRP" G.w
:IF $O="MAP" G.m
DIF $O="XXX"A.B=0;T=#8041+X+32*Y;S=-1;?18=#82;G.1920
NIF $O="SHI" G.i
XIF $O="DAM" G.a
bIF $O="COM" ?18=#82;GOS.x;GOS.p;GOS.s;?18=#82;G.y
lIF$O="PHA" ?18=#82;G.h
P.$7;G.c
dD=D+1;CR0;LI.#28E0
IF$O="LRS"G.g
?18=#82;G.f
gF=F-R;R=0
IF B=0 G.775
F=15000;F.I=0TO7;IF DDI;DDI=1
N.;S=0;P=3000
IF DD6;P=500
IF P>F;P=F
RES.b;$C=$O;W=0
F.I=0 TO 7;REA.$O;IF DDI=0;G.800
DDI=DDI-1;IF DDI W=1;G.800
CU.0,13;P.$7"MR.SPOCK REPORTS:"'$O" NOW REPAIRED"
IF I=6;P=3000;IF P>F P=F
F.J=0TO5000;N.;LI.#28E0
N.;$O=$C
fGOS.u
U.S<0 OR (K=0 A.B=1)
LI.#28E0;CU.0,13
IF S<0 P."ENTERPRISE DESTROYED"'
IF S>=0 P."MISSION COMPLETED. WELL DONE!"'
P."GAME OVER"
IF S<0 P." - R.I.P."
P.';CR1;E.
eF.I=0 TO 5000;N.;G.d
pP.$12;CR0;P."CONDITION:"
F.I=0 TO 13
CU.I,1;P."=";CU.I,10;P."=";N.
F.I=2 TO 9;CU.0,I;P."I";CU.13,I;P."I";N.
.CU.17,2;P."QUADRANT:"
8CU.17,3;P."STARDATE:"
BCU.17,4;P."KLINGONS:"
GCU.17,5;P."BASES:"
LCU.17,6;P."ENERGY:"
VCU.17,7;P."POWER:"
`CU.17,8;P."SHIELDS:"
jCU.17,9;P."LAST CMND:"
tR.
sIF B;KK(X*8+Y)=#65
L=0
NNQ=0
CU.1,2;CR0;LI.#2884
F.J=0 TO 7;F.I=0 TO 11
IF I=0;CU.(I+1),(J+2)
IF DD5=0 G.1545
IF A.(I-X)>2 OR A.(J-Y)>2 P.$223;G.1550
P.$KK(I*8+J)
N.;N.
u@=5
$C="GREEN";IF W $C="yellow"
IF QQQ;$C="red"
IF B;$C="DOCKED"
CU.11,0;P.$C" "
CU.27,2;P.Q+11
CU.27,3;P.D
CU.27,4;P.K
CU.27,5;P.?550
CU.27,6;P.F
CU.27,7;P.P
CU.27,8;P.S
CU.29,9;P.$O
%@=0
*R.
qF.I=0 TO 95;KKI=32;N.
KK(X*8+Y)=#45
F.I=0TO4;XXI=-1;ZZI=R.%250+1100;N.
IF QQQ;F.I=0 TO QQQ-1;GOS.r;KKJ=#4B;XXI=J/8;YYI=J%8;N.
IF SSQ;F.I=1 TO SSQ;GOS.r;KKJ=#2A;N.
IF BBQ;F.I=1 TO BBQ;GOS.r;KKJ=#42;N.
R.
2rDO J=A.R.%96;U.KKJ=32
=0 G.3041
CR0;P.$11$11$7
LI.#28E0;P."YOU ARE NOT PERMITTED TO LEAVE"'
P."THE GALAXY...";G.e
IF Q%10<7 G.3043
IF X+G>11 G.3038
IF Q/10<7 G.3050
IF Y+H>7 G.3038
I=%(SQRFLT(G*G+H*H)/.2)
IF I<=P R=I;G.3060
CR0;LI.#28E0;CU.0,13
P.$7"YOU HAVE ONLY POWER TO MOVE"';FP.P*.2" UNITS"
G.e
T=#8041+X+Y*32;?T=32
KK(X*8+Y)=32
X=X+G;Y=Y+H
?18=#82;GOS.t;IF U G.3074
IF X>11 OR Y>7 OR X<0 OR Y<0 GOS.o;L=1
IF U;P.$7;X=I;Y=J
B=0;IF DD5;L=1
IF KK(X*8+Y)=#42;B=1;BBQ=BBQ-1;?550=?550-1
T=#8041+X+32*Y;IF L=0;?T=5
KK(X*8+Y)=#45
IF B;KK(X*8+Y)=#65;IF L=0;?T=#85
IF L GOS.s
G.d
oIF X>11 X=X-12;Q=Q+1;G.o
&IF X<0 X=X+12;Q=Q-1;G.o
:IF Y>7 Y=Y-8;Q=Q+10;G.o
?IF Y<0 Y=Y+8;Q=Q-10;G.o
G.q
lIF DD4=0 G.4010
CU.0,13;P.$7"***LR SENSORS NOT OPERATIVE***";G.e
CU.1,2;P." ";LI.#2884;L=1
F.I=3 TO 11 S.4;CU.I,2
P.Q%10-1+I/3;N.
F.I=4 TO 8 S.2;CU.1,I
H=Q/10-3+I/2;IF H>-1 A.H<8 P.H+1
IF H<0 OR H>7 P." "
F.J=3 TO 11 S.4;G=Q%10-2+J/3+10*H
G.4073
P." ";G.4090
IF Q%10=7 A.J=11 G.4072
IF Q%10=0 A.J=3 G.4072
IF Q/10=0 A.I=4 G.4072
IF Q/10=7 A.I=8 G.4072
P.$144+QQG,$144+BBG,$144+SSG;NNG=0
IF J<11 P.":"
N.;N.
G.d
wIF DD2=0 G.5008
CU.0,13;P.$7"***WARP DRIVE NOT OPERATIVE***";G.e
IF P>499 G.5010
CU.0,13;P.$7"YOU HAVE NOT ENOUGH POWER";G.e
CR1;CU.0,13;IN."SPACE WARP -"'"TO WHICH QUADRANT"G;G=G-11
IF G%10<0 OR G%10>7 OR G/10<0 OR G/10>7 G.3038
Q=G
LI.#2880;F.I=0 TO 3000;N.
B=0
GOS.q;GOS.s
7R=500
PG.d
mP.$12;L=1
F.I=0 TO 7;F.J=0 TO 7;P." "
H=10*I+J
IF NNH P."***";G.5360
G=48;IF H=Q;G=144
P.$G+QQH,$G+BBH,$G+SSH
N.;IF I<7 P.'
N.
P." PRESS ANY KEY"
LI.#FFE3;GOS.p;GOS.s;G.d
|iIFDD7=0 G.5510
~CU.0,13;P.$7"***SHIELD CONTROL OUT***";G.e
CR1;CU.0,13;IN."HOW MUCH ENERGY TO SHIELDS"G
IF G<0 G.5510
CR0
IFG>5000;P.$7"MAX 5000 UNITS";G.e
IFG>S+F;P.$7"ONLY "S+F" UNITS AVAILABLE";G.e
F=F+S-G;S=G
P=3000;IF P>F P=F
G.d
NbDA."BATTLE COMPUTER","PHASER CONTROL","WARP DRIVE"
SDA."ION DRIVE"
XDA."LR SENSORS","SR SENSORS",REACTOR,"SHIELD CONTROL"
baP.$12" DAMAGE REPORT"'';L=1
lCU.2,3;P."DEVICE";CU.17,3;P."STATE OF REPAIR";RES.b
q@=2
vF.I=0 TO 7;REA.$O
CU.0,(I+5);P.$O;CU.24,(I+5)
IF DDI P.DDI;G.5780
P."OK"
N.
CU.10,15;P."PRESS ANY KEY";LI.#FFE3
@=0;$O="DAM"
GOS.p;GOS.s;G.d
pvCLEAR0;P.$30''''''" s t a r t r e k iv"
zF.I=0TO127;?#80=I+10;WAIT;WAIT;LI.#28AD
|IFI>120 F.J=0TO 8;WAIT;N.
F.J=0TOI;N.;N.;?#80=#3C
P.'''" PRESS ctrl TO START"
DOI=R.;U.#40&?#B001=0;R.
T001=MEGALIFE )5
d REM :::::::::::::::::
n REM : MEGALIFE 1.2 :
x REM : MAGNUS OLSSON :
REM : 1984-04-24 :
REM :::::::::::::::::
R=#383B;U=#38CC;O=#37AA;N=#2800
GOS.g;GOS.s
a?#A0=1
F.X=#9000 TO #94FF S.4;!X=0;N.
GOS.i;LI.#3428
CLEAR 1
?#A1=0
DO LI.#344B;LI.#3489;U.?#A1
P.$12"SAVE INITIAL POSITION (Y/N)?";LI.#34C7;P.$?#80'
IF ?#80<>CH"Y" G.n
*S."LIFEDATA"9600 9800
P.$7"STOP TAPE"'
nP."DO YOU WANT TO CONTINUE (Y/N)?";LI.#34C7;P.$?#80'
" IF ?#80<>CH"N" GOS.t;G.a
, END
6iREM INPUT
@ IF T=3 G.d
J IF T=2 G.b
T *L."LIFEDATA"8000
^ G.c
hbX=15;Y=7;CLEAR0
r DO Z=#8000+X+32*Y
| IF ?Z=#18;?Z=#98
IF ?Z=64;?Z=127
LI.#34C7;T=?#80
IF T<#60 G.j
T=T-32
IF ?Z=#98;?Z=127;G.j
?Z=#98
jV=X;W=Y
IF T=#43 OR T>#57 Y=Y+1
IF T=#51 OR T=#57 OR T=#45 Y=Y-1
IF T=#51 OR T=#41 OR T=#5A X=X-1
IF T=#45 OR T=#44 OR T=#43 X=X+1
IF X<0 G.l
IF Y<0 G.l
IF X>31 G.l
IF Y>15 G.l
IF ?Z=#98;?Z=#18
& IF ?Z=127;?Z=64
0kU.T=13
:cF.X=0 TO 511;X?#9600=X?#8000;N.
D F.Y=0 TO 15
N F.X=0 TO 144;X?N=0;N.
X F.X=0 TO 31
b IF ?(#8000+X+32*Y)=#18;N?(X+56)=1
l N.
v !#80=18*(Y+25)+#9000;!#83=N;LI.#3316;N.
R.
lX=V;Y=W;G.k
dP.$12;REM RANDOM INPUT
F.X=0 TO 511
Z=64;IF A.R.%100 P.$N?Z;N.
H F.Z=1 TO 180;WAIT;N.
R R.
\s$N=" *** M E G A L I F E ***"
f P.$12$N''
p P." - LIFE ON A 128 X 64 BOARD -"'
z P.'"DO YOU WANT INSTRUCTIONS (Y/N)?";LI.#34C7;P.$?#80'
IF ?#80=CH"Y" GOS.q
tP."SELECT INPUT:"'"1 - TAPE"'"2 - KEYBOARD"'"3 - RANDOM"'
DO LI.#34C7;P.$?#80';T=?#80-#30;U.T>0 A.T<4
IF T<>3 R.
DO
IN."PROBABILITY (0-100)"P
U.P>=0 A.P<101
R.
qP.$12$N''
P."YOU MAY ENTER THE CENTRAL 32X16"'"CELLS FROM"''
P."1: TAPE (FILE NAME 'LIFEDATA')"''
P."2: KEYBOARD. YOU HAVE THE"'"FOLLOWING CONTROLS TO MOVE"
P." THE"'"CURSOR:"
P.''"Q W E"'"A S D"'"Z X C"'
P.'"(PRESS ANY KEY)";LI.#FFE3
P.$12$N''
P.'"TO SET/RESET A CELL ,USE THE"'"SAME KEYS WITH shift"
P." DOWN"''"PRESS return TO END INPUT"''
P."3: RANDOM GENERATOR. YOU MUST"'"SPECIFY THE "
$ P."PROBABILITY (IN %)"'"OF A CELL BEING OCCUPIED"''
. P.'"TO END SIMULATION, PRESS 'E'"''
8 P."PRESS ANY KEY";LI.#FFE3
= P.''
B R.
8 P."PRESS ANY KEY";LI.#FFE3
= P.''
B R.
'FFE3
= P.''
B R.
V ` (8&Ȅ`7 2ii ;8 2ii ̅8L2 3 3 3`;8 37 38` 3
(`;8 (` (` q% ( 4 ?3 3L3 ` ii ɋ` 惥ɕ` Iii ii Ʉ` 3 3 3ii ii ɕL(4 `IHE)hL4h`L4h`
REM5L
IF!#AFED=#4F524557;G.a
P."THIS PROGRAM REQUIRES THE WE-ROMTO BE FITTED AT #A000."'
(!#2900=#FF0D;?18=#29;E.
2a?#D=0;?#E=#35;?#23=0;?#24=#35;?18=#29;RUN