' From April 1991 Edition of 321 Contact magazine ' Unedited code from magazine 10 RANDOMIZE TIMER 20 DIM E(4),T(4),N1$(4),N2$(4) 30 FOR I=1 TO 4:READ N1$(I):NEXT I 40 FOR I=1 TO 4:READ N2$(I):NEXT I 50 PRINT "GAME LEVEL (E=EASY, H=HARD)"; 60 INPUT B$ 70 IF B$="H" OR B$="h" THEN GL=1 ELSE GL=0 80 GOSUB 310 90 TEST=0 100 PRINT "ASSIGN ENERGY SOURCES:" 110 FOR I=1 TO 4 120 PRINT "ZONE"L; 130 INPUT ":",E(I) 140 E(I)=INT(E(I)) 150 IF E(I)<1 OR E(I)>4 THEN 130 160 IF E(I)=T(I) THEN TEST=TEST+E(I) 170 NEXT I 180 PRINT "Your energy rating is:"TEST 190 PRINT "Possible energy: "PE 200 IF TEST4 THEN T(I)=1 410 GOTO 340 420 NEXT I 430 PE=0:FOR I=1 TO 4 440 PE=PE+T(I) 450 NEXT I 460 RETURN 470 DATA solar, hydroelectric, wind, alcohol 480 DATA desert, mountain, plain, forest