lvvrGErtENm - NotatWiki

640
650
IF C=3 THEN G ( I-J.,3) =O
I=I-llREm IKKE NOGET TILFfLDE, AT DER STAR z
I=I-1 HER OG I NCSTE LINIE. DEN øVERSTE HøRER
TIL I DEN RUTINE, DER BEGYNDER I LINTE 600T MENS
DEN ANDEN ER GENEREL *****
660 I=I-l
670 NEXT I
6€}0 GA--GA+ I
690 IF GA=lOl THEN 72O
7OO IF G(GA'S)O THEN 6eO
71.O GOTO 330
72O END
Den første del af programmet er næsten identisk med det, jeg allerede
har gennemgået. Bemærk dog, at vi i linie l0 definerer
en ny variabel GA, og at vi i linie 15 DlMensionerer et nyt sæt
G0, og at vi i linie 20 sætter tallet i RND-sætningen til 2. Det giver
flere >tØer