Bug Alert

Somewhere in between the Editor’s in-box and the printer, a piece of Shawn Byrne‘s World Geography program (SWN Vol. 5 No. 4) got lost. The lines of the BASIC part of the program between Line 130 and Line 1040 are still floating around somewhere–either in that world that Shawn was quizzing us on, or in some parallel (or skewed) universe.

The missing lines, with their immediate context, are printed here, with our apologies to Shawn and to our readers. By the way, the apparent gap between Line 2100 and Line 5000 is not an accident. Shawn didn’t program any lines in that area.

I probably should have pointed out that this program built on Shawn’s fine GET routine, which was published in our Vol. 3 No. 3.

 100 PRINT "DO YOU WANT TO ";TAB 2;"1-REVIEW";TAB 2;"2-IDENTIFY";AT 4,2;"PRESS 1 OR 2";AT 4,0;
 110 LET G$=" "
 112 IF NOT USR GET THEN GOTO 112
 113 REM 1,2
 120 PRINT AT 4,2;"            "
 130 LET O$=G$
 190 PRINT AT 9,0;"CHOOSE";TAB 2;"A-COUNTRIES AND ISLANDS";TAB 2;"B-CONTINENTS, OCEANS, AND SEAS";AT 13,2;"PRESS A OR B";AT 13,0;
 200 IF NOT USR GET THEN GOTO 200
 202 REM A,B
 210 CLS
 220 LET C$=G$
 240 IF C$="B" THEN GOTO 2000
1000 LET LN=17
1002 LET NN=19
1016 DIM N$(NN,LN)
1018 LET A$="FRANCE          ▒ITALY           ▒BRITISH ISLES   $CANADA          ▒MEXICO          ▒NORWAY          ▒SPAIN           ▒INDIA           ▒SAUDI ARABIA    £GRENADA         ▒FALKLAND ISLANDS(GREENLAND       ▒JAPAN           ▒CUBA            ▒NEWFOUNDLAND    £NEW ZEALAND     "+CHR$ 11+"HAWAII          ▒ICELAND         ▒INDONESIA       ▒"
1020 FOR A=1 TO NN
1030 LET N$(A)=A$(1+LN*(A-1) TO )
1040 NEXT A
1060 DIM P$(NN,2)
1070 LET A$="[illegible]▒1▒[illegible] $0 RETURN [illegible]▒H$9"+CHR$ 11+CHR$ 11+"7£8( SAVE W▒▒▒▒$£▒ "+CHR$ 69+"2"+CHR$ 72+"[illegible]+ CLEAR S<"
1080 FOR A=1 TO NN
1090 LET P$(A)=A$(2*A-1 TO )
1100 NEXT A
1110 GOTO 5000
2000 LET LN=18
2002 LET NN=17
2016 DIM N$(NN,LN)
2018 LET A$="NORTH AMERICA    $SOUTH AMERICA    $AFRICA           ▒EUROPE           ▒ASIA             ▒AUSTRALIA        ▒PACIFIC OCEAN    $ATLANTIC OCEAN   :INDIAN OCEAN     £ARCTIC OCEAN     £MEDITERRANEAN SEA)GREAT LAKES      "+CHR$ 11+"GULF OF MEXICO   :RED SEA          ▒HUDSON BAY       ▒BERING STRAIT    $PERSIAN GULF     £"
2020 FOR A=1 TO NN
2030 LET N$(A)=A$(1+LN*(A-1) TO )
2040 NEXT A
2060 DIM P$(NN,2)