Quiz on geography.
Content
Image Gallery
Source Code
1 REM CB
Skip to content
World Geography
Quiz on geography.
Content
Image Gallery
Source Code
1 REM \3C\5B\51\63\00\00\3B\1A\21\3E\6F\32\7A\41\32\C6\41\3E\67\32\87\41\32\D3\41\C9\3E\67\32\7A\41\32\C6\41\3E\6F\32\87\41\32\D3\41\ED\5B\0C\40\3A\8A\40\CB\4F\28\2C\CB\47\3A\89\40\20\0F\FE\1A\C8\3C\21\21\00\19\01\F7\02\ED\B0\18\5B\FE\00\C8\3D\21\17\03\19\54\5D\01\21\00\ED\42\01\F7\02\ED\B8\18\45\06\00\CB\47\3A\88\40\20\1C\3C\FE\55\20\01\AF\32\88\40\13\62\6B\23\3E\18\0E\1F\ED\B0\23\23\13\13\3D\20\F5\18\23\3D\FE\FF\20\02\3E\54\32\88\40\21\17\03\19\54\5D\2B\3E\18\0E\1F\ED\B8\2B\2B\1B\1B\3D\20\F5\18\03\32\89\40\ED\4B\88\40\04\3A\8A\40\FE\22\20\04\3E\17\80\47\11\C3\09\2A\0C\40\AF\ED\52\11\55\00\C5\78\D6\1A\C1\38\05\3C\47\CD\8B\40\19\10\FD\E5\09\3A\8A\40\CB\4F\28\2F\E5\2A\0C\40\23\CB\47\20\04\11\F7\02\19\EB\E1\06\20\3E\56\0C\B9\20\02\E1\E5\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\23\13\10\E4\C1\C9\C1\ED\4B\88\40\CB\47\20\0D\3E\1F\5F\19\81\1E\55\BB\38\03\ED\52\37\E5\2A\0C\40\23\30\03\1E\1F\19\EB\E1\48\06\18\18\0F\3E\19\B9\20\0A\CD\8B\40\D5\11\4D\08\ED\52\D1\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\D5\11\55\00\19\E3\1E\21\19\D1\EB\0C\10\D3\C9
2 REM M$5 DIM INKEY$6-RNDLN 0)777 FAST E£RND)7 ;SGN \' 3 GOSUB %K7:4 GOSUB %KTAN
4 REM ***\ :%W%O%R%L%D% %G%E%O%G%R%A%P%H%Y\: *** BY SHAWN BYRNE
5 RAND
7 SLOW
10 LET DF=PEEK 16396+256*PEEK 16397
20 LET GET=DF-289
30 LET M=16540
40 LET M$=" "
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$=",\. 1\.';\ '\' \' \' $0 RETURN ;\.'H$9"+CHR$ 11+CHR$ 11+"?£8( SAVE W\.'\.'$£\. "+CHR$ 69+"2"+CHR$ 72+":+ 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)
2070 LET A$=CHR$ 84+"\.'"+CHR$ 11+",2<2\''M\''V,"+CHR$ 77+">:?H-"+CHR$ 72+" PLOT 2\##\: \: \. £8$\: "+CHR$ 71+" CLEAR B"+CHR$ 11
2080 FOR A=1 TO NN
2090 LET P$(A)=A$(2*A-1 TO )
2100 NEXT A
5000 POKE 16520,0
5002 POKE 16521,0
5004 POKE 16522,36
5010 FOR A=1 TO 8
5012 IF USR M OR USR M OR USR M OR USR M THEN REM
5014 NEXT A
5016 DIM T$(NN)
5018 LET CT=0
5030 LET D=INT (RND*NN)+1
5032 IF CODE T$(D) THEN GOTO 5030
5034 LET T$(D)="1"
5040 LET L$=N$(D, TO CODE N$(D,LN))
5060 LET Y=CODE P$(D,2)
5065 IF Y>128 THEN LET Y=Y-256
5070 POKE 16522,34+(Y<PEEK 16521)
5080 FOR A=1 TO ABS (Y-PEEK 16521)
5090 IF USR M THEN REM
5100 NEXT A
5110 LET B=PEEK 16520-CODE P$(D)
5120 POKE 16522,36-3*(B>0 AND B<42 OR B<-42)
5130 FOR A=1 TO ABS (85*(ABS B>42)-ABS B)
5132 IF USR M THEN REM
5134 NEXT A
5140 LET A=USR 16875
5160 PRINT AT 1,1;
5165 IF O$="1" THEN PRINT L$
5170 LET A=Y-26*(Y>26)
5180 LET B=DF+412+33*A*(Y<1 OR Y>26)
5190 LET F=PEEK B
5200 LET C=23+128*(F>127)
5210 FOR A=1 TO 15
5220 POKE B,C
5225 FOR D=1 TO 2
5226 NEXT D
5230 POKE B,F
5240 NEXT A
5245 IF O$="1" THEN GOTO 5500
5250 LET G$=L$+" "
5260 LET G$=G$( TO USR GET)
5262 REM A-Z,
5270 IF L$<>G$ THEN GOTO 5300
5280 LET A=INT (RND*3)*6+1
5282 PRINT AT 2,1;"RIGHT.GREAT.SUPER."(A TO A+5)
5290 FOR A=1 TO 12
5292 NEXT A
5295 GOTO 5500
5300 PRINT AT 2,1;"NO, THIS IS ";L$;"."
5310 FOR A=1 TO 35
5312 NEXT A
5500 LET CT=CT+1
5502 IF CT=NN THEN GOTO 5000
5510 PRINT AT 1,1;M$
5520 GOTO 5030
9998 SAVE "GE%O"
9999 RUN
People
Skip to content
World Geography
Quiz on geography.
Content
Image Gallery
Source Code
1 REM \3C\5B\51\63\00\00\3B\1A\21\3E\6F\32\7A\41\32\C6\41\3E\67\32\87\41\32\D3\41\C9\3E\67\32\7A\41\32\C6\41\3E\6F\32\87\41\32\D3\41\ED\5B\0C\40\3A\8A\40\CB\4F\28\2C\CB\47\3A\89\40\20\0F\FE\1A\C8\3C\21\21\00\19\01\F7\02\ED\B0\18\5B\FE\00\C8\3D\21\17\03\19\54\5D\01\21\00\ED\42\01\F7\02\ED\B8\18\45\06\00\CB\47\3A\88\40\20\1C\3C\FE\55\20\01\AF\32\88\40\13\62\6B\23\3E\18\0E\1F\ED\B0\23\23\13\13\3D\20\F5\18\23\3D\FE\FF\20\02\3E\54\32\88\40\21\17\03\19\54\5D\2B\3E\18\0E\1F\ED\B8\2B\2B\1B\1B\3D\20\F5\18\03\32\89\40\ED\4B\88\40\04\3A\8A\40\FE\22\20\04\3E\17\80\47\11\C3\09\2A\0C\40\AF\ED\52\11\55\00\C5\78\D6\1A\C1\38\05\3C\47\CD\8B\40\19\10\FD\E5\09\3A\8A\40\CB\4F\28\2F\E5\2A\0C\40\23\CB\47\20\04\11\F7\02\19\EB\E1\06\20\3E\56\0C\B9\20\02\E1\E5\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\23\13\10\E4\C1\C9\C1\ED\4B\88\40\CB\47\20\0D\3E\1F\5F\19\81\1E\55\BB\38\03\ED\52\37\E5\2A\0C\40\23\30\03\1E\1F\19\EB\E1\48\06\18\18\0F\3E\19\B9\20\0A\CD\8B\40\D5\11\4D\08\ED\52\D1\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\D5\11\55\00\19\E3\1E\21\19\D1\EB\0C\10\D3\C9
2 REM M$5 DIM INKEY$6-RNDLN 0)777 FAST E£RND)7 ;SGN \' 3 GOSUB %K7:4 GOSUB %KTAN
4 REM ***\ :%W%O%R%L%D% %G%E%O%G%R%A%P%H%Y\: *** BY SHAWN BYRNE
5 RAND
7 SLOW
10 LET DF=PEEK 16396+256*PEEK 16397
20 LET GET=DF-289
30 LET M=16540
40 LET M$=" "
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$=",\. 1\.';\ '\' \' \' $0 RETURN ;\.'H$9"+CHR$ 11+CHR$ 11+"?£8( SAVE W\.'\.'$£\. "+CHR$ 69+"2"+CHR$ 72+":+ 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)
2070 LET A$=CHR$ 84+"\.'"+CHR$ 11+",2<2\''M\''V,"+CHR$ 77+">:?H-"+CHR$ 72+" PLOT 2\##\: \: \. £8$\: "+CHR$ 71+" CLEAR B"+CHR$ 11
2080 FOR A=1 TO NN
2090 LET P$(A)=A$(2*A-1 TO )
2100 NEXT A
5000 POKE 16520,0
5002 POKE 16521,0
5004 POKE 16522,36
5010 FOR A=1 TO 8
5012 IF USR M OR USR M OR USR M OR USR M THEN REM
5014 NEXT A
5016 DIM T$(NN)
5018 LET CT=0
5030 LET D=INT (RND*NN)+1
5032 IF CODE T$(D) THEN GOTO 5030
5034 LET T$(D)="1"
5040 LET L$=N$(D, TO CODE N$(D,LN))
5060 LET Y=CODE P$(D,2)
5065 IF Y>128 THEN LET Y=Y-256
5070 POKE 16522,34+(Y<PEEK 16521)
5080 FOR A=1 TO ABS (Y-PEEK 16521)
5090 IF USR M THEN REM
5100 NEXT A
5110 LET B=PEEK 16520-CODE P$(D)
5120 POKE 16522,36-3*(B>0 AND B<42 OR B<-42)
5130 FOR A=1 TO ABS (85*(ABS B>42)-ABS B)
5132 IF USR M THEN REM
5134 NEXT A
5140 LET A=USR 16875
5160 PRINT AT 1,1;
5165 IF O$="1" THEN PRINT L$
5170 LET A=Y-26*(Y>26)
5180 LET B=DF+412+33*A*(Y<1 OR Y>26)
5190 LET F=PEEK B
5200 LET C=23+128*(F>127)
5210 FOR A=1 TO 15
5220 POKE B,C
5225 FOR D=1 TO 2
5226 NEXT D
5230 POKE B,F
5240 NEXT A
5245 IF O$="1" THEN GOTO 5500
5250 LET G$=L$+" "
5260 LET G$=G$( TO USR GET)
5262 REM A-Z,
5270 IF L$<>G$ THEN GOTO 5300
5280 LET A=INT (RND*3)*6+1
5282 PRINT AT 2,1;"RIGHT.GREAT.SUPER."(A TO A+5)
5290 FOR A=1 TO 12
5292 NEXT A
5295 GOTO 5500
5300 PRINT AT 2,1;"NO, THIS IS ";L$;"."
5310 FOR A=1 TO 35
5312 NEXT A
5500 LET CT=CT+1
5502 IF CT=NN THEN GOTO 5000
5510 PRINT AT 1,1;M$
5520 GOTO 5030
9998 SAVE "GE%O"
9999 RUN
People
B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56746 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"AEFA\C6E\D3\C9EA\C6EF\D3\EDB
Skip to content
World Geography
Quiz on geography.
Content
Image Gallery
Source Code
1 REM \3C\5B\51\63\00\00\3B\1A\21\3E\6F\32\7A\41\32\C6\41\3E\67\32\87\41\32\D3\41\C9\3E\67\32\7A\41\32\C6\41\3E\6F\32\87\41\32\D3\41\ED\5B\0C\40\3A\8A\40\CB\4F\28\2C\CB\47\3A\89\40\20\0F\FE\1A\C8\3C\21\21\00\19\01\F7\02\ED\B0\18\5B\FE\00\C8\3D\21\17\03\19\54\5D\01\21\00\ED\42\01\F7\02\ED\B8\18\45\06\00\CB\47\3A\88\40\20\1C\3C\FE\55\20\01\AF\32\88\40\13\62\6B\23\3E\18\0E\1F\ED\B0\23\23\13\13\3D\20\F5\18\23\3D\FE\FF\20\02\3E\54\32\88\40\21\17\03\19\54\5D\2B\3E\18\0E\1F\ED\B8\2B\2B\1B\1B\3D\20\F5\18\03\32\89\40\ED\4B\88\40\04\3A\8A\40\FE\22\20\04\3E\17\80\47\11\C3\09\2A\0C\40\AF\ED\52\11\55\00\C5\78\D6\1A\C1\38\05\3C\47\CD\8B\40\19\10\FD\E5\09\3A\8A\40\CB\4F\28\2F\E5\2A\0C\40\23\CB\47\20\04\11\F7\02\19\EB\E1\06\20\3E\56\0C\B9\20\02\E1\E5\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\23\13\10\E4\C1\C9\C1\ED\4B\88\40\CB\47\20\0D\3E\1F\5F\19\81\1E\55\BB\38\03\ED\52\37\E5\2A\0C\40\23\30\03\1E\1F\19\EB\E1\48\06\18\18\0F\3E\19\B9\20\0A\CD\8B\40\D5\11\4D\08\ED\52\D1\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\D5\11\55\00\19\E3\1E\21\19\D1\EB\0C\10\D3\C9
2 REM M$5 DIM INKEY$6-RNDLN 0)777 FAST E£RND)7 ;SGN \' 3 GOSUB %K7:4 GOSUB %KTAN
4 REM ***\ :%W%O%R%L%D% %G%E%O%G%R%A%P%H%Y\: *** BY SHAWN BYRNE
5 RAND
7 SLOW
10 LET DF=PEEK 16396+256*PEEK 16397
20 LET GET=DF-289
30 LET M=16540
40 LET M$=" "
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$=",\. 1\.';\ '\' \' \' $0 RETURN ;\.'H$9"+CHR$ 11+CHR$ 11+"?£8( SAVE W\.'\.'$£\. "+CHR$ 69+"2"+CHR$ 72+":+ 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)
2070 LET A$=CHR$ 84+"\.'"+CHR$ 11+",2<2\''M\''V,"+CHR$ 77+">:?H-"+CHR$ 72+" PLOT 2\##\: \: \. £8$\: "+CHR$ 71+" CLEAR B"+CHR$ 11
2080 FOR A=1 TO NN
2090 LET P$(A)=A$(2*A-1 TO )
2100 NEXT A
5000 POKE 16520,0
5002 POKE 16521,0
5004 POKE 16522,36
5010 FOR A=1 TO 8
5012 IF USR M OR USR M OR USR M OR USR M THEN REM
5014 NEXT A
5016 DIM T$(NN)
5018 LET CT=0
5030 LET D=INT (RND*NN)+1
5032 IF CODE T$(D) THEN GOTO 5030
5034 LET T$(D)="1"
5040 LET L$=N$(D, TO CODE N$(D,LN))
5060 LET Y=CODE P$(D,2)
5065 IF Y>128 THEN LET Y=Y-256
5070 POKE 16522,34+(Y<PEEK 16521)
5080 FOR A=1 TO ABS (Y-PEEK 16521)
5090 IF USR M THEN REM
5100 NEXT A
5110 LET B=PEEK 16520-CODE P$(D)
5120 POKE 16522,36-3*(B>0 AND B<42 OR B<-42)
5130 FOR A=1 TO ABS (85*(ABS B>42)-ABS B)
5132 IF USR M THEN REM
5134 NEXT A
5140 LET A=USR 16875
5160 PRINT AT 1,1;
5165 IF O$="1" THEN PRINT L$
5170 LET A=Y-26*(Y>26)
5180 LET B=DF+412+33*A*(Y<1 OR Y>26)
5190 LET F=PEEK B
5200 LET C=23+128*(F>127)
5210 FOR A=1 TO 15
5220 POKE B,C
5225 FOR D=1 TO 2
5226 NEXT D
5230 POKE B,F
5240 NEXT A
5245 IF O$="1" THEN GOTO 5500
5250 LET G$=L$+" "
5260 LET G$=G$( TO USR GET)
5262 REM A-Z,
5270 IF L$<>G$ THEN GOTO 5300
5280 LET A=INT (RND*3)*6+1
5282 PRINT AT 2,1;"RIGHT.GREAT.SUPER."(A TO A+5)
5290 FOR A=1 TO 12
5292 NEXT A
5295 GOTO 5500
5300 PRINT AT 2,1;"NO, THIS IS ";L$;"."
5310 FOR A=1 TO 35
5312 NEXT A
5500 LET CT=CT+1
5502 IF CT=NN THEN GOTO 5000
5510 PRINT AT 1,1;M$
5520 GOTO 5030
9998 SAVE "GE%O"
9999 RUN
People
CAA\CBF
Skip to content
World Geography
Quiz on geography.
Content
Image Gallery
Source Code
1 REM \3C\5B\51\63\00\00\3B\1A\21\3E\6F\32\7A\41\32\C6\41\3E\67\32\87\41\32\D3\41\C9\3E\67\32\7A\41\32\C6\41\3E\6F\32\87\41\32\D3\41\ED\5B\0C\40\3A\8A\40\CB\4F\28\2C\CB\47\3A\89\40\20\0F\FE\1A\C8\3C\21\21\00\19\01\F7\02\ED\B0\18\5B\FE\00\C8\3D\21\17\03\19\54\5D\01\21\00\ED\42\01\F7\02\ED\B8\18\45\06\00\CB\47\3A\88\40\20\1C\3C\FE\55\20\01\AF\32\88\40\13\62\6B\23\3E\18\0E\1F\ED\B0\23\23\13\13\3D\20\F5\18\23\3D\FE\FF\20\02\3E\54\32\88\40\21\17\03\19\54\5D\2B\3E\18\0E\1F\ED\B8\2B\2B\1B\1B\3D\20\F5\18\03\32\89\40\ED\4B\88\40\04\3A\8A\40\FE\22\20\04\3E\17\80\47\11\C3\09\2A\0C\40\AF\ED\52\11\55\00\C5\78\D6\1A\C1\38\05\3C\47\CD\8B\40\19\10\FD\E5\09\3A\8A\40\CB\4F\28\2F\E5\2A\0C\40\23\CB\47\20\04\11\F7\02\19\EB\E1\06\20\3E\56\0C\B9\20\02\E1\E5\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\23\13\10\E4\C1\C9\C1\ED\4B\88\40\CB\47\20\0D\3E\1F\5F\19\81\1E\55\BB\38\03\ED\52\37\E5\2A\0C\40\23\30\03\1E\1F\19\EB\E1\48\06\18\18\0F\3E\19\B9\20\0A\CD\8B\40\D5\11\4D\08\ED\52\D1\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\D5\11\55\00\19\E3\1E\21\19\D1\EB\0C\10\D3\C9
2 REM M$5 DIM INKEY$6-RNDLN 0)777 FAST E£RND)7 ;SGN \' 3 GOSUB %K7:4 GOSUB %KTAN
4 REM ***\ :%W%O%R%L%D% %G%E%O%G%R%A%P%H%Y\: *** BY SHAWN BYRNE
5 RAND
7 SLOW
10 LET DF=PEEK 16396+256*PEEK 16397
20 LET GET=DF-289
30 LET M=16540
40 LET M$=" "
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$=",\. 1\.';\ '\' \' \' $0 RETURN ;\.'H$9"+CHR$ 11+CHR$ 11+"?£8( SAVE W\.'\.'$£\. "+CHR$ 69+"2"+CHR$ 72+":+ 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)
2070 LET A$=CHR$ 84+"\.'"+CHR$ 11+",2<2\''M\''V,"+CHR$ 77+">:?H-"+CHR$ 72+" PLOT 2\##\: \: \. £8$\: "+CHR$ 71+" CLEAR B"+CHR$ 11
2080 FOR A=1 TO NN
2090 LET P$(A)=A$(2*A-1 TO )
2100 NEXT A
5000 POKE 16520,0
5002 POKE 16521,0
5004 POKE 16522,36
5010 FOR A=1 TO 8
5012 IF USR M OR USR M OR USR M OR USR M THEN REM
5014 NEXT A
5016 DIM T$(NN)
5018 LET CT=0
5030 LET D=INT (RND*NN)+1
5032 IF CODE T$(D) THEN GOTO 5030
5034 LET T$(D)="1"
5040 LET L$=N$(D, TO CODE N$(D,LN))
5060 LET Y=CODE P$(D,2)
5065 IF Y>128 THEN LET Y=Y-256
5070 POKE 16522,34+(Y<PEEK 16521)
5080 FOR A=1 TO ABS (Y-PEEK 16521)
5090 IF USR M THEN REM
5100 NEXT A
5110 LET B=PEEK 16520-CODE P$(D)
5120 POKE 16522,36-3*(B>0 AND B<42 OR B<-42)
5130 FOR A=1 TO ABS (85*(ABS B>42)-ABS B)
5132 IF USR M THEN REM
5134 NEXT A
5140 LET A=USR 16875
5160 PRINT AT 1,1;
5165 IF O$="1" THEN PRINT L$
5170 LET A=Y-26*(Y>26)
5180 LET B=DF+412+33*A*(Y<1 OR Y>26)
5190 LET F=PEEK B
5200 LET C=23+128*(F>127)
5210 FOR A=1 TO 15
5220 POKE B,C
5225 FOR D=1 TO 2
5226 NEXT D
5230 POKE B,F
5240 NEXT A
5245 IF O$="1" THEN GOTO 5500
5250 LET G$=L$+" "
5260 LET G$=G$( TO USR GET)
5262 REM A-Z,
5270 IF L$<>G$ THEN GOTO 5300
5280 LET A=INT (RND*3)*6+1
5282 PRINT AT 2,1;"RIGHT.GREAT.SUPER."(A TO A+5)
5290 FOR A=1 TO 12
5292 NEXT A
5295 GOTO 5500
5300 PRINT AT 2,1;"NO, THIS IS ";L$;"."
5310 FOR A=1 TO 35
5312 NEXT A
5500 LET CT=CT+1
5502 IF CT=NN THEN GOTO 5000
5510 PRINT AT 1,1;M$
5520 GOTO 5030
9998 SAVE "GE%O"
9999 RUN
People
C\CBA
Skip to content
World Geography
Quiz on geography.
Content
Image Gallery
Source Code
1 REM \3C\5B\51\63\00\00\3B\1A\21\3E\6F\32\7A\41\32\C6\41\3E\67\32\87\41\32\D3\41\C9\3E\67\32\7A\41\32\C6\41\3E\6F\32\87\41\32\D3\41\ED\5B\0C\40\3A\8A\40\CB\4F\28\2C\CB\47\3A\89\40\20\0F\FE\1A\C8\3C\21\21\00\19\01\F7\02\ED\B0\18\5B\FE\00\C8\3D\21\17\03\19\54\5D\01\21\00\ED\42\01\F7\02\ED\B8\18\45\06\00\CB\47\3A\88\40\20\1C\3C\FE\55\20\01\AF\32\88\40\13\62\6B\23\3E\18\0E\1F\ED\B0\23\23\13\13\3D\20\F5\18\23\3D\FE\FF\20\02\3E\54\32\88\40\21\17\03\19\54\5D\2B\3E\18\0E\1F\ED\B8\2B\2B\1B\1B\3D\20\F5\18\03\32\89\40\ED\4B\88\40\04\3A\8A\40\FE\22\20\04\3E\17\80\47\11\C3\09\2A\0C\40\AF\ED\52\11\55\00\C5\78\D6\1A\C1\38\05\3C\47\CD\8B\40\19\10\FD\E5\09\3A\8A\40\CB\4F\28\2F\E5\2A\0C\40\23\CB\47\20\04\11\F7\02\19\EB\E1\06\20\3E\56\0C\B9\20\02\E1\E5\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\23\13\10\E4\C1\C9\C1\ED\4B\88\40\CB\47\20\0D\3E\1F\5F\19\81\1E\55\BB\38\03\ED\52\37\E5\2A\0C\40\23\30\03\1E\1F\19\EB\E1\48\06\18\18\0F\3E\19\B9\20\0A\CD\8B\40\D5\11\4D\08\ED\52\D1\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\D5\11\55\00\19\E3\1E\21\19\D1\EB\0C\10\D3\C9
2 REM M$5 DIM INKEY$6-RNDLN 0)777 FAST E£RND)7 ;SGN \' 3 GOSUB %K7:4 GOSUB %KTAN
4 REM ***\ :%W%O%R%L%D% %G%E%O%G%R%A%P%H%Y\: *** BY SHAWN BYRNE
5 RAND
7 SLOW
10 LET DF=PEEK 16396+256*PEEK 16397
20 LET GET=DF-289
30 LET M=16540
40 LET M$=" "
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$=",\. 1\.';\ '\' \' \' $0 RETURN ;\.'H$9"+CHR$ 11+CHR$ 11+"?£8( SAVE W\.'\.'$£\. "+CHR$ 69+"2"+CHR$ 72+":+ 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)
2070 LET A$=CHR$ 84+"\.'"+CHR$ 11+",2<2\''M\''V,"+CHR$ 77+">:?H-"+CHR$ 72+" PLOT 2\##\: \: \. £8$\: "+CHR$ 71+" CLEAR B"+CHR$ 11
2080 FOR A=1 TO NN
2090 LET P$(A)=A$(2*A-1 TO )
2100 NEXT A
5000 POKE 16520,0
5002 POKE 16521,0
5004 POKE 16522,36
5010 FOR A=1 TO 8
5012 IF USR M OR USR M OR USR M OR USR M THEN REM
5014 NEXT A
5016 DIM T$(NN)
5018 LET CT=0
5030 LET D=INT (RND*NN)+1
5032 IF CODE T$(D) THEN GOTO 5030
5034 LET T$(D)="1"
5040 LET L$=N$(D, TO CODE N$(D,LN))
5060 LET Y=CODE P$(D,2)
5065 IF Y>128 THEN LET Y=Y-256
5070 POKE 16522,34+(Y<PEEK 16521)
5080 FOR A=1 TO ABS (Y-PEEK 16521)
5090 IF USR M THEN REM
5100 NEXT A
5110 LET B=PEEK 16520-CODE P$(D)
5120 POKE 16522,36-3*(B>0 AND B<42 OR B<-42)
5130 FOR A=1 TO ABS (85*(ABS B>42)-ABS B)
5132 IF USR M THEN REM
5134 NEXT A
5140 LET A=USR 16875
5160 PRINT AT 1,1;
5165 IF O$="1" THEN PRINT L$
5170 LET A=Y-26*(Y>26)
5180 LET B=DF+412+33*A*(Y<1 OR Y>26)
5190 LET F=PEEK B
5200 LET C=23+128*(F>127)
5210 FOR A=1 TO 15
5220 POKE B,C
5225 FOR D=1 TO 2
5226 NEXT D
5230 POKE B,F
5240 NEXT A
5245 IF O$="1" THEN GOTO 5500
5250 LET G$=L$+" "
5260 LET G$=G$( TO USR GET)
5262 REM A-Z,
5270 IF L$<>G$ THEN GOTO 5300
5280 LET A=INT (RND*3)*6+1
5282 PRINT AT 2,1;"RIGHT.GREAT.SUPER."(A TO A+5)
5290 FOR A=1 TO 12
5292 NEXT A
5295 GOTO 5500
5300 PRINT AT 2,1;"NO, THIS IS ";L$;"."
5310 FOR A=1 TO 35
5312 NEXT A
5500 LET CT=CT+1
5502 IF CT=NN THEN GOTO 5000
5510 PRINT AT 1,1;M$
5520 GOTO 5030
9998 SAVE "GE%O"
9999 RUN
People
F\FE itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56746 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"A\C8C
Skip to content
World Geography
Quiz on geography.
Content
Image Gallery
Source Code
1 REM \3C\5B\51\63\00\00\3B\1A\21\3E\6F\32\7A\41\32\C6\41\3E\67\32\87\41\32\D3\41\C9\3E\67\32\7A\41\32\C6\41\3E\6F\32\87\41\32\D3\41\ED\5B\0C\40\3A\8A\40\CB\4F\28\2C\CB\47\3A\89\40\20\0F\FE\1A\C8\3C\21\21\00\19\01\F7\02\ED\B0\18\5B\FE\00\C8\3D\21\17\03\19\54\5D\01\21\00\ED\42\01\F7\02\ED\B8\18\45\06\00\CB\47\3A\88\40\20\1C\3C\FE\55\20\01\AF\32\88\40\13\62\6B\23\3E\18\0E\1F\ED\B0\23\23\13\13\3D\20\F5\18\23\3D\FE\FF\20\02\3E\54\32\88\40\21\17\03\19\54\5D\2B\3E\18\0E\1F\ED\B8\2B\2B\1B\1B\3D\20\F5\18\03\32\89\40\ED\4B\88\40\04\3A\8A\40\FE\22\20\04\3E\17\80\47\11\C3\09\2A\0C\40\AF\ED\52\11\55\00\C5\78\D6\1A\C1\38\05\3C\47\CD\8B\40\19\10\FD\E5\09\3A\8A\40\CB\4F\28\2F\E5\2A\0C\40\23\CB\47\20\04\11\F7\02\19\EB\E1\06\20\3E\56\0C\B9\20\02\E1\E5\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\23\13\10\E4\C1\C9\C1\ED\4B\88\40\CB\47\20\0D\3E\1F\5F\19\81\1E\55\BB\38\03\ED\52\37\E5\2A\0C\40\23\30\03\1E\1F\19\EB\E1\48\06\18\18\0F\3E\19\B9\20\0A\CD\8B\40\D5\11\4D\08\ED\52\D1\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\D5\11\55\00\19\E3\1E\21\19\D1\EB\0C\10\D3\C9
2 REM M$5 DIM INKEY$6-RNDLN 0)777 FAST E£RND)7 ;SGN \' 3 GOSUB %K7:4 GOSUB %KTAN
4 REM ***\ :%W%O%R%L%D% %G%E%O%G%R%A%P%H%Y\: *** BY SHAWN BYRNE
5 RAND
7 SLOW
10 LET DF=PEEK 16396+256*PEEK 16397
20 LET GET=DF-289
30 LET M=16540
40 LET M$=" "
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$=",\. 1\.';\ '\' \' \' $0 RETURN ;\.'H$9"+CHR$ 11+CHR$ 11+"?£8( SAVE W\.'\.'$£\. "+CHR$ 69+"2"+CHR$ 72+":+ 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)
2070 LET A$=CHR$ 84+"\.'"+CHR$ 11+",2<2\''M\''V,"+CHR$ 77+">:?H-"+CHR$ 72+" PLOT 2\##\: \: \. £8$\: "+CHR$ 71+" CLEAR B"+CHR$ 11
2080 FOR A=1 TO NN
2090 LET P$(A)=A$(2*A-1 TO )
2100 NEXT A
5000 POKE 16520,0
5002 POKE 16521,0
5004 POKE 16522,36
5010 FOR A=1 TO 8
5012 IF USR M OR USR M OR USR M OR USR M THEN REM
5014 NEXT A
5016 DIM T$(NN)
5018 LET CT=0
5030 LET D=INT (RND*NN)+1
5032 IF CODE T$(D) THEN GOTO 5030
5034 LET T$(D)="1"
5040 LET L$=N$(D, TO CODE N$(D,LN))
5060 LET Y=CODE P$(D,2)
5065 IF Y>128 THEN LET Y=Y-256
5070 POKE 16522,34+(Y<PEEK 16521)
5080 FOR A=1 TO ABS (Y-PEEK 16521)
5090 IF USR M THEN REM
5100 NEXT A
5110 LET B=PEEK 16520-CODE P$(D)
5120 POKE 16522,36-3*(B>0 AND B<42 OR B<-42)
5130 FOR A=1 TO ABS (85*(ABS B>42)-ABS B)
5132 IF USR M THEN REM
5134 NEXT A
5140 LET A=USR 16875
5160 PRINT AT 1,1;
5165 IF O$="1" THEN PRINT L$
5170 LET A=Y-26*(Y>26)
5180 LET B=DF+412+33*A*(Y<1 OR Y>26)
5190 LET F=PEEK B
5200 LET C=23+128*(F>127)
5210 FOR A=1 TO 15
5220 POKE B,C
5225 FOR D=1 TO 2
5226 NEXT D
5230 POKE B,F
5240 NEXT A
5245 IF O$="1" THEN GOTO 5500
5250 LET G$=L$+" "
5260 LET G$=G$( TO USR GET)
5262 REM A-Z,
5270 IF L$<>G$ THEN GOTO 5300
5280 LET A=INT (RND*3)*6+1
5282 PRINT AT 2,1;"RIGHT.GREAT.SUPER."(A TO A+5)
5290 FOR A=1 TO 12
5292 NEXT A
5295 GOTO 5500
5300 PRINT AT 2,1;"NO, THIS IS ";L$;"."
5310 FOR A=1 TO 35
5312 NEXT A
5500 LET CT=CT+1
5502 IF CT=NN THEN GOTO 5000
5510 PRINT AT 1,1;M$
5520 GOTO 5030
9998 SAVE "GE%O"
9999 RUN
People
itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56746 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"\F7
Skip to content
World Geography
Quiz on geography.
Content
Image Gallery
Source Code
1 REM \3C\5B\51\63\00\00\3B\1A\21\3E\6F\32\7A\41\32\C6\41\3E\67\32\87\41\32\D3\41\C9\3E\67\32\7A\41\32\C6\41\3E\6F\32\87\41\32\D3\41\ED\5B\0C\40\3A\8A\40\CB\4F\28\2C\CB\47\3A\89\40\20\0F\FE\1A\C8\3C\21\21\00\19\01\F7\02\ED\B0\18\5B\FE\00\C8\3D\21\17\03\19\54\5D\01\21\00\ED\42\01\F7\02\ED\B8\18\45\06\00\CB\47\3A\88\40\20\1C\3C\FE\55\20\01\AF\32\88\40\13\62\6B\23\3E\18\0E\1F\ED\B0\23\23\13\13\3D\20\F5\18\23\3D\FE\FF\20\02\3E\54\32\88\40\21\17\03\19\54\5D\2B\3E\18\0E\1F\ED\B8\2B\2B\1B\1B\3D\20\F5\18\03\32\89\40\ED\4B\88\40\04\3A\8A\40\FE\22\20\04\3E\17\80\47\11\C3\09\2A\0C\40\AF\ED\52\11\55\00\C5\78\D6\1A\C1\38\05\3C\47\CD\8B\40\19\10\FD\E5\09\3A\8A\40\CB\4F\28\2F\E5\2A\0C\40\23\CB\47\20\04\11\F7\02\19\EB\E1\06\20\3E\56\0C\B9\20\02\E1\E5\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\23\13\10\E4\C1\C9\C1\ED\4B\88\40\CB\47\20\0D\3E\1F\5F\19\81\1E\55\BB\38\03\ED\52\37\E5\2A\0C\40\23\30\03\1E\1F\19\EB\E1\48\06\18\18\0F\3E\19\B9\20\0A\CD\8B\40\D5\11\4D\08\ED\52\D1\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\D5\11\55\00\19\E3\1E\21\19\D1\EB\0C\10\D3\C9
2 REM M$5 DIM INKEY$6-RNDLN 0)777 FAST E£RND)7 ;SGN \' 3 GOSUB %K7:4 GOSUB %KTAN
4 REM ***\ :%W%O%R%L%D% %G%E%O%G%R%A%P%H%Y\: *** BY SHAWN BYRNE
5 RAND
7 SLOW
10 LET DF=PEEK 16396+256*PEEK 16397
20 LET GET=DF-289
30 LET M=16540
40 LET M$=" "
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$=",\. 1\.';\ '\' \' \' $0 RETURN ;\.'H$9"+CHR$ 11+CHR$ 11+"?£8( SAVE W\.'\.'$£\. "+CHR$ 69+"2"+CHR$ 72+":+ 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)
2070 LET A$=CHR$ 84+"\.'"+CHR$ 11+",2<2\''M\''V,"+CHR$ 77+">:?H-"+CHR$ 72+" PLOT 2\##\: \: \. £8$\: "+CHR$ 71+" CLEAR B"+CHR$ 11
2080 FOR A=1 TO NN
2090 LET P$(A)=A$(2*A-1 TO )
2100 NEXT A
5000 POKE 16520,0
5002 POKE 16521,0
5004 POKE 16522,36
5010 FOR A=1 TO 8
5012 IF USR M OR USR M OR USR M OR USR M THEN REM
5014 NEXT A
5016 DIM T$(NN)
5018 LET CT=0
5030 LET D=INT (RND*NN)+1
5032 IF CODE T$(D) THEN GOTO 5030
5034 LET T$(D)="1"
5040 LET L$=N$(D, TO CODE N$(D,LN))
5060 LET Y=CODE P$(D,2)
5065 IF Y>128 THEN LET Y=Y-256
5070 POKE 16522,34+(Y<PEEK 16521)
5080 FOR A=1 TO ABS (Y-PEEK 16521)
5090 IF USR M THEN REM
5100 NEXT A
5110 LET B=PEEK 16520-CODE P$(D)
5120 POKE 16522,36-3*(B>0 AND B<42 OR B<-42)
5130 FOR A=1 TO ABS (85*(ABS B>42)-ABS B)
5132 IF USR M THEN REM
5134 NEXT A
5140 LET A=USR 16875
5160 PRINT AT 1,1;
5165 IF O$="1" THEN PRINT L$
5170 LET A=Y-26*(Y>26)
5180 LET B=DF+412+33*A*(Y<1 OR Y>26)
5190 LET F=PEEK B
5200 LET C=23+128*(F>127)
5210 FOR A=1 TO 15
5220 POKE B,C
5225 FOR D=1 TO 2
5226 NEXT D
5230 POKE B,F
5240 NEXT A
5245 IF O$="1" THEN GOTO 5500
5250 LET G$=L$+" "
5260 LET G$=G$( TO USR GET)
5262 REM A-Z,
5270 IF L$<>G$ THEN GOTO 5300
5280 LET A=INT (RND*3)*6+1
5282 PRINT AT 2,1;"RIGHT.GREAT.SUPER."(A TO A+5)
5290 FOR A=1 TO 12
5292 NEXT A
5295 GOTO 5500
5300 PRINT AT 2,1;"NO, THIS IS ";L$;"."
5310 FOR A=1 TO 35
5312 NEXT A
5500 LET CT=CT+1
5502 IF CT=NN THEN GOTO 5000
5510 PRINT AT 1,1;M$
5520 GOTO 5030
9998 SAVE "GE%O"
9999 RUN
People
\ED\B0B\FE
Skip to content
World Geography
Quiz on geography.
Content
Image Gallery
Source Code
1 REM \3C\5B\51\63\00\00\3B\1A\21\3E\6F\32\7A\41\32\C6\41\3E\67\32\87\41\32\D3\41\C9\3E\67\32\7A\41\32\C6\41\3E\6F\32\87\41\32\D3\41\ED\5B\0C\40\3A\8A\40\CB\4F\28\2C\CB\47\3A\89\40\20\0F\FE\1A\C8\3C\21\21\00\19\01\F7\02\ED\B0\18\5B\FE\00\C8\3D\21\17\03\19\54\5D\01\21\00\ED\42\01\F7\02\ED\B8\18\45\06\00\CB\47\3A\88\40\20\1C\3C\FE\55\20\01\AF\32\88\40\13\62\6B\23\3E\18\0E\1F\ED\B0\23\23\13\13\3D\20\F5\18\23\3D\FE\FF\20\02\3E\54\32\88\40\21\17\03\19\54\5D\2B\3E\18\0E\1F\ED\B8\2B\2B\1B\1B\3D\20\F5\18\03\32\89\40\ED\4B\88\40\04\3A\8A\40\FE\22\20\04\3E\17\80\47\11\C3\09\2A\0C\40\AF\ED\52\11\55\00\C5\78\D6\1A\C1\38\05\3C\47\CD\8B\40\19\10\FD\E5\09\3A\8A\40\CB\4F\28\2F\E5\2A\0C\40\23\CB\47\20\04\11\F7\02\19\EB\E1\06\20\3E\56\0C\B9\20\02\E1\E5\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\23\13\10\E4\C1\C9\C1\ED\4B\88\40\CB\47\20\0D\3E\1F\5F\19\81\1E\55\BB\38\03\ED\52\37\E5\2A\0C\40\23\30\03\1E\1F\19\EB\E1\48\06\18\18\0F\3E\19\B9\20\0A\CD\8B\40\D5\11\4D\08\ED\52\D1\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\D5\11\55\00\19\E3\1E\21\19\D1\EB\0C\10\D3\C9
2 REM M$5 DIM INKEY$6-RNDLN 0)777 FAST E£RND)7 ;SGN \' 3 GOSUB %K7:4 GOSUB %KTAN
4 REM ***\ :%W%O%R%L%D% %G%E%O%G%R%A%P%H%Y\: *** BY SHAWN BYRNE
5 RAND
7 SLOW
10 LET DF=PEEK 16396+256*PEEK 16397
20 LET GET=DF-289
30 LET M=16540
40 LET M$=" "
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$=",\. 1\.';\ '\' \' \' $0 RETURN ;\.'H$9"+CHR$ 11+CHR$ 11+"?£8( SAVE W\.'\.'$£\. "+CHR$ 69+"2"+CHR$ 72+":+ 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)
2070 LET A$=CHR$ 84+"\.'"+CHR$ 11+",2<2\''M\''V,"+CHR$ 77+">:?H-"+CHR$ 72+" PLOT 2\##\: \: \. £8$\: "+CHR$ 71+" CLEAR B"+CHR$ 11
2080 FOR A=1 TO NN
2090 LET P$(A)=A$(2*A-1 TO )
2100 NEXT A
5000 POKE 16520,0
5002 POKE 16521,0
5004 POKE 16522,36
5010 FOR A=1 TO 8
5012 IF USR M OR USR M OR USR M OR USR M THEN REM
5014 NEXT A
5016 DIM T$(NN)
5018 LET CT=0
5030 LET D=INT (RND*NN)+1
5032 IF CODE T$(D) THEN GOTO 5030
5034 LET T$(D)="1"
5040 LET L$=N$(D, TO CODE N$(D,LN))
5060 LET Y=CODE P$(D,2)
5065 IF Y>128 THEN LET Y=Y-256
5070 POKE 16522,34+(Y<PEEK 16521)
5080 FOR A=1 TO ABS (Y-PEEK 16521)
5090 IF USR M THEN REM
5100 NEXT A
5110 LET B=PEEK 16520-CODE P$(D)
5120 POKE 16522,36-3*(B>0 AND B<42 OR B<-42)
5130 FOR A=1 TO ABS (85*(ABS B>42)-ABS B)
5132 IF USR M THEN REM
5134 NEXT A
5140 LET A=USR 16875
5160 PRINT AT 1,1;
5165 IF O$="1" THEN PRINT L$
5170 LET A=Y-26*(Y>26)
5180 LET B=DF+412+33*A*(Y<1 OR Y>26)
5190 LET F=PEEK B
5200 LET C=23+128*(F>127)
5210 FOR A=1 TO 15
5220 POKE B,C
5225 FOR D=1 TO 2
5226 NEXT D
5230 POKE B,F
5240 NEXT A
5245 IF O$="1" THEN GOTO 5500
5250 LET G$=L$+" "
5260 LET G$=G$( TO USR GET)
5262 REM A-Z,
5270 IF L$<>G$ THEN GOTO 5300
5280 LET A=INT (RND*3)*6+1
5282 PRINT AT 2,1;"RIGHT.GREAT.SUPER."(A TO A+5)
5290 FOR A=1 TO 12
5292 NEXT A
5295 GOTO 5500
5300 PRINT AT 2,1;"NO, THIS IS ";L$;"."
5310 FOR A=1 TO 35
5312 NEXT A
5500 LET CT=CT+1
5502 IF CT=NN THEN GOTO 5000
5510 PRINT AT 1,1;M$
5520 GOTO 5030
9998 SAVE "GE%O"
9999 RUN
People
\C8DD itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56746 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"
Skip to content
World Geography
Quiz on geography.
Content
Image Gallery
Source Code
1 REM \3C\5B\51\63\00\00\3B\1A\21\3E\6F\32\7A\41\32\C6\41\3E\67\32\87\41\32\D3\41\C9\3E\67\32\7A\41\32\C6\41\3E\6F\32\87\41\32\D3\41\ED\5B\0C\40\3A\8A\40\CB\4F\28\2C\CB\47\3A\89\40\20\0F\FE\1A\C8\3C\21\21\00\19\01\F7\02\ED\B0\18\5B\FE\00\C8\3D\21\17\03\19\54\5D\01\21\00\ED\42\01\F7\02\ED\B8\18\45\06\00\CB\47\3A\88\40\20\1C\3C\FE\55\20\01\AF\32\88\40\13\62\6B\23\3E\18\0E\1F\ED\B0\23\23\13\13\3D\20\F5\18\23\3D\FE\FF\20\02\3E\54\32\88\40\21\17\03\19\54\5D\2B\3E\18\0E\1F\ED\B8\2B\2B\1B\1B\3D\20\F5\18\03\32\89\40\ED\4B\88\40\04\3A\8A\40\FE\22\20\04\3E\17\80\47\11\C3\09\2A\0C\40\AF\ED\52\11\55\00\C5\78\D6\1A\C1\38\05\3C\47\CD\8B\40\19\10\FD\E5\09\3A\8A\40\CB\4F\28\2F\E5\2A\0C\40\23\CB\47\20\04\11\F7\02\19\EB\E1\06\20\3E\56\0C\B9\20\02\E1\E5\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\23\13\10\E4\C1\C9\C1\ED\4B\88\40\CB\47\20\0D\3E\1F\5F\19\81\1E\55\BB\38\03\ED\52\37\E5\2A\0C\40\23\30\03\1E\1F\19\EB\E1\48\06\18\18\0F\3E\19\B9\20\0A\CD\8B\40\D5\11\4D\08\ED\52\D1\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\D5\11\55\00\19\E3\1E\21\19\D1\EB\0C\10\D3\C9
2 REM M$5 DIM INKEY$6-RNDLN 0)777 FAST E£RND)7 ;SGN \' 3 GOSUB %K7:4 GOSUB %KTAN
4 REM ***\ :%W%O%R%L%D% %G%E%O%G%R%A%P%H%Y\: *** BY SHAWN BYRNE
5 RAND
7 SLOW
10 LET DF=PEEK 16396+256*PEEK 16397
20 LET GET=DF-289
30 LET M=16540
40 LET M$=" "
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$=",\. 1\.';\ '\' \' \' $0 RETURN ;\.'H$9"+CHR$ 11+CHR$ 11+"?£8( SAVE W\.'\.'$£\. "+CHR$ 69+"2"+CHR$ 72+":+ 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)
2070 LET A$=CHR$ 84+"\.'"+CHR$ 11+",2<2\''M\''V,"+CHR$ 77+">:?H-"+CHR$ 72+" PLOT 2\##\: \: \. £8$\: "+CHR$ 71+" CLEAR B"+CHR$ 11
2080 FOR A=1 TO NN
2090 LET P$(A)=A$(2*A-1 TO )
2100 NEXT A
5000 POKE 16520,0
5002 POKE 16521,0
5004 POKE 16522,36
5010 FOR A=1 TO 8
5012 IF USR M OR USR M OR USR M OR USR M THEN REM
5014 NEXT A
5016 DIM T$(NN)
5018 LET CT=0
5030 LET D=INT (RND*NN)+1
5032 IF CODE T$(D) THEN GOTO 5030
5034 LET T$(D)="1"
5040 LET L$=N$(D, TO CODE N$(D,LN))
5060 LET Y=CODE P$(D,2)
5065 IF Y>128 THEN LET Y=Y-256
5070 POKE 16522,34+(Y<PEEK 16521)
5080 FOR A=1 TO ABS (Y-PEEK 16521)
5090 IF USR M THEN REM
5100 NEXT A
5110 LET B=PEEK 16520-CODE P$(D)
5120 POKE 16522,36-3*(B>0 AND B<42 OR B<-42)
5130 FOR A=1 TO ABS (85*(ABS B>42)-ABS B)
5132 IF USR M THEN REM
5134 NEXT A
5140 LET A=USR 16875
5160 PRINT AT 1,1;
5165 IF O$="1" THEN PRINT L$
5170 LET A=Y-26*(Y>26)
5180 LET B=DF+412+33*A*(Y<1 OR Y>26)
5190 LET F=PEEK B
5200 LET C=23+128*(F>127)
5210 FOR A=1 TO 15
5220 POKE B,C
5225 FOR D=1 TO 2
5226 NEXT D
5230 POKE B,F
5240 NEXT A
5245 IF O$="1" THEN GOTO 5500
5250 LET G$=L$+" "
5260 LET G$=G$( TO USR GET)
5262 REM A-Z,
5270 IF L$<>G$ THEN GOTO 5300
5280 LET A=INT (RND*3)*6+1
5282 PRINT AT 2,1;"RIGHT.GREAT.SUPER."(A TO A+5)
5290 FOR A=1 TO 12
5292 NEXT A
5295 GOTO 5500
5300 PRINT AT 2,1;"NO, THIS IS ";L$;"."
5310 FOR A=1 TO 35
5312 NEXT A
5500 LET CT=CT+1
5502 IF CT=NN THEN GOTO 5000
5510 PRINT AT 1,1;M$
5520 GOTO 5030
9998 SAVE "GE%O"
9999 RUN
People
\ED itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56746 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"\F7
Skip to content
World Geography
Quiz on geography.
Content
Image Gallery
Source Code
1 REM \3C\5B\51\63\00\00\3B\1A\21\3E\6F\32\7A\41\32\C6\41\3E\67\32\87\41\32\D3\41\C9\3E\67\32\7A\41\32\C6\41\3E\6F\32\87\41\32\D3\41\ED\5B\0C\40\3A\8A\40\CB\4F\28\2C\CB\47\3A\89\40\20\0F\FE\1A\C8\3C\21\21\00\19\01\F7\02\ED\B0\18\5B\FE\00\C8\3D\21\17\03\19\54\5D\01\21\00\ED\42\01\F7\02\ED\B8\18\45\06\00\CB\47\3A\88\40\20\1C\3C\FE\55\20\01\AF\32\88\40\13\62\6B\23\3E\18\0E\1F\ED\B0\23\23\13\13\3D\20\F5\18\23\3D\FE\FF\20\02\3E\54\32\88\40\21\17\03\19\54\5D\2B\3E\18\0E\1F\ED\B8\2B\2B\1B\1B\3D\20\F5\18\03\32\89\40\ED\4B\88\40\04\3A\8A\40\FE\22\20\04\3E\17\80\47\11\C3\09\2A\0C\40\AF\ED\52\11\55\00\C5\78\D6\1A\C1\38\05\3C\47\CD\8B\40\19\10\FD\E5\09\3A\8A\40\CB\4F\28\2F\E5\2A\0C\40\23\CB\47\20\04\11\F7\02\19\EB\E1\06\20\3E\56\0C\B9\20\02\E1\E5\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\23\13\10\E4\C1\C9\C1\ED\4B\88\40\CB\47\20\0D\3E\1F\5F\19\81\1E\55\BB\38\03\ED\52\37\E5\2A\0C\40\23\30\03\1E\1F\19\EB\E1\48\06\18\18\0F\3E\19\B9\20\0A\CD\8B\40\D5\11\4D\08\ED\52\D1\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\D5\11\55\00\19\E3\1E\21\19\D1\EB\0C\10\D3\C9
2 REM M$5 DIM INKEY$6-RNDLN 0)777 FAST E£RND)7 ;SGN \' 3 GOSUB %K7:4 GOSUB %KTAN
4 REM ***\ :%W%O%R%L%D% %G%E%O%G%R%A%P%H%Y\: *** BY SHAWN BYRNE
5 RAND
7 SLOW
10 LET DF=PEEK 16396+256*PEEK 16397
20 LET GET=DF-289
30 LET M=16540
40 LET M$=" "
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$=",\. 1\.';\ '\' \' \' $0 RETURN ;\.'H$9"+CHR$ 11+CHR$ 11+"?£8( SAVE W\.'\.'$£\. "+CHR$ 69+"2"+CHR$ 72+":+ 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)
2070 LET A$=CHR$ 84+"\.'"+CHR$ 11+",2<2\''M\''V,"+CHR$ 77+">:?H-"+CHR$ 72+" PLOT 2\##\: \: \. £8$\: "+CHR$ 71+" CLEAR B"+CHR$ 11
2080 FOR A=1 TO NN
2090 LET P$(A)=A$(2*A-1 TO )
2100 NEXT A
5000 POKE 16520,0
5002 POKE 16521,0
5004 POKE 16522,36
5010 FOR A=1 TO 8
5012 IF USR M OR USR M OR USR M OR USR M THEN REM
5014 NEXT A
5016 DIM T$(NN)
5018 LET CT=0
5030 LET D=INT (RND*NN)+1
5032 IF CODE T$(D) THEN GOTO 5030
5034 LET T$(D)="1"
5040 LET L$=N$(D, TO CODE N$(D,LN))
5060 LET Y=CODE P$(D,2)
5065 IF Y>128 THEN LET Y=Y-256
5070 POKE 16522,34+(Y<PEEK 16521)
5080 FOR A=1 TO ABS (Y-PEEK 16521)
5090 IF USR M THEN REM
5100 NEXT A
5110 LET B=PEEK 16520-CODE P$(D)
5120 POKE 16522,36-3*(B>0 AND B<42 OR B<-42)
5130 FOR A=1 TO ABS (85*(ABS B>42)-ABS B)
5132 IF USR M THEN REM
5134 NEXT A
5140 LET A=USR 16875
5160 PRINT AT 1,1;
5165 IF O$="1" THEN PRINT L$
5170 LET A=Y-26*(Y>26)
5180 LET B=DF+412+33*A*(Y<1 OR Y>26)
5190 LET F=PEEK B
5200 LET C=23+128*(F>127)
5210 FOR A=1 TO 15
5220 POKE B,C
5225 FOR D=1 TO 2
5226 NEXT D
5230 POKE B,F
5240 NEXT A
5245 IF O$="1" THEN GOTO 5500
5250 LET G$=L$+" "
5260 LET G$=G$( TO USR GET)
5262 REM A-Z,
5270 IF L$<>G$ THEN GOTO 5300
5280 LET A=INT (RND*3)*6+1
5282 PRINT AT 2,1;"RIGHT.GREAT.SUPER."(A TO A+5)
5290 FOR A=1 TO 12
5292 NEXT A
5295 GOTO 5500
5300 PRINT AT 2,1;"NO, THIS IS ";L$;"."
5310 FOR A=1 TO 35
5312 NEXT A
5500 LET CT=CT+1
5502 IF CT=NN THEN GOTO 5000
5510 PRINT AT 1,1;M$
5520 GOTO 5030
9998 SAVE "GE%O"
9999 RUN
People
\ED\B8
Skip to content
World Geography
Quiz on geography.
Content
Image Gallery
Source Code
1 REM \3C\5B\51\63\00\00\3B\1A\21\3E\6F\32\7A\41\32\C6\41\3E\67\32\87\41\32\D3\41\C9\3E\67\32\7A\41\32\C6\41\3E\6F\32\87\41\32\D3\41\ED\5B\0C\40\3A\8A\40\CB\4F\28\2C\CB\47\3A\89\40\20\0F\FE\1A\C8\3C\21\21\00\19\01\F7\02\ED\B0\18\5B\FE\00\C8\3D\21\17\03\19\54\5D\01\21\00\ED\42\01\F7\02\ED\B8\18\45\06\00\CB\47\3A\88\40\20\1C\3C\FE\55\20\01\AF\32\88\40\13\62\6B\23\3E\18\0E\1F\ED\B0\23\23\13\13\3D\20\F5\18\23\3D\FE\FF\20\02\3E\54\32\88\40\21\17\03\19\54\5D\2B\3E\18\0E\1F\ED\B8\2B\2B\1B\1B\3D\20\F5\18\03\32\89\40\ED\4B\88\40\04\3A\8A\40\FE\22\20\04\3E\17\80\47\11\C3\09\2A\0C\40\AF\ED\52\11\55\00\C5\78\D6\1A\C1\38\05\3C\47\CD\8B\40\19\10\FD\E5\09\3A\8A\40\CB\4F\28\2F\E5\2A\0C\40\23\CB\47\20\04\11\F7\02\19\EB\E1\06\20\3E\56\0C\B9\20\02\E1\E5\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\23\13\10\E4\C1\C9\C1\ED\4B\88\40\CB\47\20\0D\3E\1F\5F\19\81\1E\55\BB\38\03\ED\52\37\E5\2A\0C\40\23\30\03\1E\1F\19\EB\E1\48\06\18\18\0F\3E\19\B9\20\0A\CD\8B\40\D5\11\4D\08\ED\52\D1\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\D5\11\55\00\19\E3\1E\21\19\D1\EB\0C\10\D3\C9
2 REM M$5 DIM INKEY$6-RNDLN 0)777 FAST E£RND)7 ;SGN \' 3 GOSUB %K7:4 GOSUB %KTAN
4 REM ***\ :%W%O%R%L%D% %G%E%O%G%R%A%P%H%Y\: *** BY SHAWN BYRNE
5 RAND
7 SLOW
10 LET DF=PEEK 16396+256*PEEK 16397
20 LET GET=DF-289
30 LET M=16540
40 LET M$=" "
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$=",\. 1\.';\ '\' \' \' $0 RETURN ;\.'H$9"+CHR$ 11+CHR$ 11+"?£8( SAVE W\.'\.'$£\. "+CHR$ 69+"2"+CHR$ 72+":+ 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)
2070 LET A$=CHR$ 84+"\.'"+CHR$ 11+",2<2\''M\''V,"+CHR$ 77+">:?H-"+CHR$ 72+" PLOT 2\##\: \: \. £8$\: "+CHR$ 71+" CLEAR B"+CHR$ 11
2080 FOR A=1 TO NN
2090 LET P$(A)=A$(2*A-1 TO )
2100 NEXT A
5000 POKE 16520,0
5002 POKE 16521,0
5004 POKE 16522,36
5010 FOR A=1 TO 8
5012 IF USR M OR USR M OR USR M OR USR M THEN REM
5014 NEXT A
5016 DIM T$(NN)
5018 LET CT=0
5030 LET D=INT (RND*NN)+1
5032 IF CODE T$(D) THEN GOTO 5030
5034 LET T$(D)="1"
5040 LET L$=N$(D, TO CODE N$(D,LN))
5060 LET Y=CODE P$(D,2)
5065 IF Y>128 THEN LET Y=Y-256
5070 POKE 16522,34+(Y<PEEK 16521)
5080 FOR A=1 TO ABS (Y-PEEK 16521)
5090 IF USR M THEN REM
5100 NEXT A
5110 LET B=PEEK 16520-CODE P$(D)
5120 POKE 16522,36-3*(B>0 AND B<42 OR B<-42)
5130 FOR A=1 TO ABS (85*(ABS B>42)-ABS B)
5132 IF USR M THEN REM
5134 NEXT A
5140 LET A=USR 16875
5160 PRINT AT 1,1;
5165 IF O$="1" THEN PRINT L$
5170 LET A=Y-26*(Y>26)
5180 LET B=DF+412+33*A*(Y<1 OR Y>26)
5190 LET F=PEEK B
5200 LET C=23+128*(F>127)
5210 FOR A=1 TO 15
5220 POKE B,C
5225 FOR D=1 TO 2
5226 NEXT D
5230 POKE B,F
5240 NEXT A
5245 IF O$="1" THEN GOTO 5500
5250 LET G$=L$+" "
5260 LET G$=G$( TO USR GET)
5262 REM A-Z,
5270 IF L$<>G$ THEN GOTO 5300
5280 LET A=INT (RND*3)*6+1
5282 PRINT AT 2,1;"RIGHT.GREAT.SUPER."(A TO A+5)
5290 FOR A=1 TO 12
5292 NEXT A
5295 GOTO 5500
5300 PRINT AT 2,1;"NO, THIS IS ";L$;"."
5310 FOR A=1 TO 35
5312 NEXT A
5500 LET CT=CT+1
5502 IF CT=NN THEN GOTO 5000
5510 PRINT AT 1,1;M$
5520 GOTO 5030
9998 SAVE "GE%O"
9999 RUN
People
\CBA itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56746 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"CC\FE itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56746 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"\AFBE
Skip to content
World Geography
Quiz on geography.
Content
Image Gallery
Source Code
1 REM \3C\5B\51\63\00\00\3B\1A\21\3E\6F\32\7A\41\32\C6\41\3E\67\32\87\41\32\D3\41\C9\3E\67\32\7A\41\32\C6\41\3E\6F\32\87\41\32\D3\41\ED\5B\0C\40\3A\8A\40\CB\4F\28\2C\CB\47\3A\89\40\20\0F\FE\1A\C8\3C\21\21\00\19\01\F7\02\ED\B0\18\5B\FE\00\C8\3D\21\17\03\19\54\5D\01\21\00\ED\42\01\F7\02\ED\B8\18\45\06\00\CB\47\3A\88\40\20\1C\3C\FE\55\20\01\AF\32\88\40\13\62\6B\23\3E\18\0E\1F\ED\B0\23\23\13\13\3D\20\F5\18\23\3D\FE\FF\20\02\3E\54\32\88\40\21\17\03\19\54\5D\2B\3E\18\0E\1F\ED\B8\2B\2B\1B\1B\3D\20\F5\18\03\32\89\40\ED\4B\88\40\04\3A\8A\40\FE\22\20\04\3E\17\80\47\11\C3\09\2A\0C\40\AF\ED\52\11\55\00\C5\78\D6\1A\C1\38\05\3C\47\CD\8B\40\19\10\FD\E5\09\3A\8A\40\CB\4F\28\2F\E5\2A\0C\40\23\CB\47\20\04\11\F7\02\19\EB\E1\06\20\3E\56\0C\B9\20\02\E1\E5\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\23\13\10\E4\C1\C9\C1\ED\4B\88\40\CB\47\20\0D\3E\1F\5F\19\81\1E\55\BB\38\03\ED\52\37\E5\2A\0C\40\23\30\03\1E\1F\19\EB\E1\48\06\18\18\0F\3E\19\B9\20\0A\CD\8B\40\D5\11\4D\08\ED\52\D1\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\D5\11\55\00\19\E3\1E\21\19\D1\EB\0C\10\D3\C9
2 REM M$5 DIM INKEY$6-RNDLN 0)777 FAST E£RND)7 ;SGN \' 3 GOSUB %K7:4 GOSUB %KTAN
4 REM ***\ :%W%O%R%L%D% %G%E%O%G%R%A%P%H%Y\: *** BY SHAWN BYRNE
5 RAND
7 SLOW
10 LET DF=PEEK 16396+256*PEEK 16397
20 LET GET=DF-289
30 LET M=16540
40 LET M$=" "
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$=",\. 1\.';\ '\' \' \' $0 RETURN ;\.'H$9"+CHR$ 11+CHR$ 11+"?£8( SAVE W\.'\.'$£\. "+CHR$ 69+"2"+CHR$ 72+":+ 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)
2070 LET A$=CHR$ 84+"\.'"+CHR$ 11+",2<2\''M\''V,"+CHR$ 77+">:?H-"+CHR$ 72+" PLOT 2\##\: \: \. £8$\: "+CHR$ 71+" CLEAR B"+CHR$ 11
2080 FOR A=1 TO NN
2090 LET P$(A)=A$(2*A-1 TO )
2100 NEXT A
5000 POKE 16520,0
5002 POKE 16521,0
5004 POKE 16522,36
5010 FOR A=1 TO 8
5012 IF USR M OR USR M OR USR M OR USR M THEN REM
5014 NEXT A
5016 DIM T$(NN)
5018 LET CT=0
5030 LET D=INT (RND*NN)+1
5032 IF CODE T$(D) THEN GOTO 5030
5034 LET T$(D)="1"
5040 LET L$=N$(D, TO CODE N$(D,LN))
5060 LET Y=CODE P$(D,2)
5065 IF Y>128 THEN LET Y=Y-256
5070 POKE 16522,34+(Y<PEEK 16521)
5080 FOR A=1 TO ABS (Y-PEEK 16521)
5090 IF USR M THEN REM
5100 NEXT A
5110 LET B=PEEK 16520-CODE P$(D)
5120 POKE 16522,36-3*(B>0 AND B<42 OR B<-42)
5130 FOR A=1 TO ABS (85*(ABS B>42)-ABS B)
5132 IF USR M THEN REM
5134 NEXT A
5140 LET A=USR 16875
5160 PRINT AT 1,1;
5165 IF O$="1" THEN PRINT L$
5170 LET A=Y-26*(Y>26)
5180 LET B=DF+412+33*A*(Y<1 OR Y>26)
5190 LET F=PEEK B
5200 LET C=23+128*(F>127)
5210 FOR A=1 TO 15
5220 POKE B,C
5225 FOR D=1 TO 2
5226 NEXT D
5230 POKE B,F
5240 NEXT A
5245 IF O$="1" THEN GOTO 5500
5250 LET G$=L$+" "
5260 LET G$=G$( TO USR GET)
5262 REM A-Z,
5270 IF L$<>G$ THEN GOTO 5300
5280 LET A=INT (RND*3)*6+1
5282 PRINT AT 2,1;"RIGHT.GREAT.SUPER."(A TO A+5)
5290 FOR A=1 TO 12
5292 NEXT A
5295 GOTO 5500
5300 PRINT AT 2,1;"NO, THIS IS ";L$;"."
5310 FOR A=1 TO 35
5312 NEXT A
5500 LET CT=CT+1
5502 IF CT=NN THEN GOTO 5000
5510 PRINT AT 1,1;M$
5520 GOTO 5030
9998 SAVE "GE%O"
9999 RUN
People
E itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56746 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"F\ED\B0D\F5D\FE\FF
Skip to content
World Geography
Quiz on geography.
Content
Image Gallery
Source Code
1 REM \3C\5B\51\63\00\00\3B\1A\21\3E\6F\32\7A\41\32\C6\41\3E\67\32\87\41\32\D3\41\C9\3E\67\32\7A\41\32\C6\41\3E\6F\32\87\41\32\D3\41\ED\5B\0C\40\3A\8A\40\CB\4F\28\2C\CB\47\3A\89\40\20\0F\FE\1A\C8\3C\21\21\00\19\01\F7\02\ED\B0\18\5B\FE\00\C8\3D\21\17\03\19\54\5D\01\21\00\ED\42\01\F7\02\ED\B8\18\45\06\00\CB\47\3A\88\40\20\1C\3C\FE\55\20\01\AF\32\88\40\13\62\6B\23\3E\18\0E\1F\ED\B0\23\23\13\13\3D\20\F5\18\23\3D\FE\FF\20\02\3E\54\32\88\40\21\17\03\19\54\5D\2B\3E\18\0E\1F\ED\B8\2B\2B\1B\1B\3D\20\F5\18\03\32\89\40\ED\4B\88\40\04\3A\8A\40\FE\22\20\04\3E\17\80\47\11\C3\09\2A\0C\40\AF\ED\52\11\55\00\C5\78\D6\1A\C1\38\05\3C\47\CD\8B\40\19\10\FD\E5\09\3A\8A\40\CB\4F\28\2F\E5\2A\0C\40\23\CB\47\20\04\11\F7\02\19\EB\E1\06\20\3E\56\0C\B9\20\02\E1\E5\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\23\13\10\E4\C1\C9\C1\ED\4B\88\40\CB\47\20\0D\3E\1F\5F\19\81\1E\55\BB\38\03\ED\52\37\E5\2A\0C\40\23\30\03\1E\1F\19\EB\E1\48\06\18\18\0F\3E\19\B9\20\0A\CD\8B\40\D5\11\4D\08\ED\52\D1\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\D5\11\55\00\19\E3\1E\21\19\D1\EB\0C\10\D3\C9
2 REM M$5 DIM INKEY$6-RNDLN 0)777 FAST E£RND)7 ;SGN \' 3 GOSUB %K7:4 GOSUB %KTAN
4 REM ***\ :%W%O%R%L%D% %G%E%O%G%R%A%P%H%Y\: *** BY SHAWN BYRNE
5 RAND
7 SLOW
10 LET DF=PEEK 16396+256*PEEK 16397
20 LET GET=DF-289
30 LET M=16540
40 LET M$=" "
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$=",\. 1\.';\ '\' \' \' $0 RETURN ;\.'H$9"+CHR$ 11+CHR$ 11+"?£8( SAVE W\.'\.'$£\. "+CHR$ 69+"2"+CHR$ 72+":+ 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)
2070 LET A$=CHR$ 84+"\.'"+CHR$ 11+",2<2\''M\''V,"+CHR$ 77+">:?H-"+CHR$ 72+" PLOT 2\##\: \: \. £8$\: "+CHR$ 71+" CLEAR B"+CHR$ 11
2080 FOR A=1 TO NN
2090 LET P$(A)=A$(2*A-1 TO )
2100 NEXT A
5000 POKE 16520,0
5002 POKE 16521,0
5004 POKE 16522,36
5010 FOR A=1 TO 8
5012 IF USR M OR USR M OR USR M OR USR M THEN REM
5014 NEXT A
5016 DIM T$(NN)
5018 LET CT=0
5030 LET D=INT (RND*NN)+1
5032 IF CODE T$(D) THEN GOTO 5030
5034 LET T$(D)="1"
5040 LET L$=N$(D, TO CODE N$(D,LN))
5060 LET Y=CODE P$(D,2)
5065 IF Y>128 THEN LET Y=Y-256
5070 POKE 16522,34+(Y<PEEK 16521)
5080 FOR A=1 TO ABS (Y-PEEK 16521)
5090 IF USR M THEN REM
5100 NEXT A
5110 LET B=PEEK 16520-CODE P$(D)
5120 POKE 16522,36-3*(B>0 AND B<42 OR B<-42)
5130 FOR A=1 TO ABS (85*(ABS B>42)-ABS B)
5132 IF USR M THEN REM
5134 NEXT A
5140 LET A=USR 16875
5160 PRINT AT 1,1;
5165 IF O$="1" THEN PRINT L$
5170 LET A=Y-26*(Y>26)
5180 LET B=DF+412+33*A*(Y<1 OR Y>26)
5190 LET F=PEEK B
5200 LET C=23+128*(F>127)
5210 FOR A=1 TO 15
5220 POKE B,C
5225 FOR D=1 TO 2
5226 NEXT D
5230 POKE B,F
5240 NEXT A
5245 IF O$="1" THEN GOTO 5500
5250 LET G$=L$+" "
5260 LET G$=G$( TO USR GET)
5262 REM A-Z,
5270 IF L$<>G$ THEN GOTO 5300
5280 LET A=INT (RND*3)*6+1
5282 PRINT AT 2,1;"RIGHT.GREAT.SUPER."(A TO A+5)
5290 FOR A=1 TO 12
5292 NEXT A
5295 GOTO 5500
5300 PRINT AT 2,1;"NO, THIS IS ";L$;"."
5310 FOR A=1 TO 35
5312 NEXT A
5500 LET CT=CT+1
5502 IF CT=NN THEN GOTO 5000
5510 PRINT AT 1,1;M$
5520 GOTO 5030
9998 SAVE "GE%O"
9999 RUN
People
ED
Skip to content
World Geography
Quiz on geography.
Content
Image Gallery
Source Code
1 REM \3C\5B\51\63\00\00\3B\1A\21\3E\6F\32\7A\41\32\C6\41\3E\67\32\87\41\32\D3\41\C9\3E\67\32\7A\41\32\C6\41\3E\6F\32\87\41\32\D3\41\ED\5B\0C\40\3A\8A\40\CB\4F\28\2C\CB\47\3A\89\40\20\0F\FE\1A\C8\3C\21\21\00\19\01\F7\02\ED\B0\18\5B\FE\00\C8\3D\21\17\03\19\54\5D\01\21\00\ED\42\01\F7\02\ED\B8\18\45\06\00\CB\47\3A\88\40\20\1C\3C\FE\55\20\01\AF\32\88\40\13\62\6B\23\3E\18\0E\1F\ED\B0\23\23\13\13\3D\20\F5\18\23\3D\FE\FF\20\02\3E\54\32\88\40\21\17\03\19\54\5D\2B\3E\18\0E\1F\ED\B8\2B\2B\1B\1B\3D\20\F5\18\03\32\89\40\ED\4B\88\40\04\3A\8A\40\FE\22\20\04\3E\17\80\47\11\C3\09\2A\0C\40\AF\ED\52\11\55\00\C5\78\D6\1A\C1\38\05\3C\47\CD\8B\40\19\10\FD\E5\09\3A\8A\40\CB\4F\28\2F\E5\2A\0C\40\23\CB\47\20\04\11\F7\02\19\EB\E1\06\20\3E\56\0C\B9\20\02\E1\E5\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\23\13\10\E4\C1\C9\C1\ED\4B\88\40\CB\47\20\0D\3E\1F\5F\19\81\1E\55\BB\38\03\ED\52\37\E5\2A\0C\40\23\30\03\1E\1F\19\EB\E1\48\06\18\18\0F\3E\19\B9\20\0A\CD\8B\40\D5\11\4D\08\ED\52\D1\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\D5\11\55\00\19\E3\1E\21\19\D1\EB\0C\10\D3\C9
2 REM M$5 DIM INKEY$6-RNDLN 0)777 FAST E£RND)7 ;SGN \' 3 GOSUB %K7:4 GOSUB %KTAN
4 REM ***\ :%W%O%R%L%D% %G%E%O%G%R%A%P%H%Y\: *** BY SHAWN BYRNE
5 RAND
7 SLOW
10 LET DF=PEEK 16396+256*PEEK 16397
20 LET GET=DF-289
30 LET M=16540
40 LET M$=" "
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$=",\. 1\.';\ '\' \' \' $0 RETURN ;\.'H$9"+CHR$ 11+CHR$ 11+"?£8( SAVE W\.'\.'$£\. "+CHR$ 69+"2"+CHR$ 72+":+ 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)
2070 LET A$=CHR$ 84+"\.'"+CHR$ 11+",2<2\''M\''V,"+CHR$ 77+">:?H-"+CHR$ 72+" PLOT 2\##\: \: \. £8$\: "+CHR$ 71+" CLEAR B"+CHR$ 11
2080 FOR A=1 TO NN
2090 LET P$(A)=A$(2*A-1 TO )
2100 NEXT A
5000 POKE 16520,0
5002 POKE 16521,0
5004 POKE 16522,36
5010 FOR A=1 TO 8
5012 IF USR M OR USR M OR USR M OR USR M THEN REM
5014 NEXT A
5016 DIM T$(NN)
5018 LET CT=0
5030 LET D=INT (RND*NN)+1
5032 IF CODE T$(D) THEN GOTO 5030
5034 LET T$(D)="1"
5040 LET L$=N$(D, TO CODE N$(D,LN))
5060 LET Y=CODE P$(D,2)
5065 IF Y>128 THEN LET Y=Y-256
5070 POKE 16522,34+(Y<PEEK 16521)
5080 FOR A=1 TO ABS (Y-PEEK 16521)
5090 IF USR M THEN REM
5100 NEXT A
5110 LET B=PEEK 16520-CODE P$(D)
5120 POKE 16522,36-3*(B>0 AND B<42 OR B<-42)
5130 FOR A=1 TO ABS (85*(ABS B>42)-ABS B)
5132 IF USR M THEN REM
5134 NEXT A
5140 LET A=USR 16875
5160 PRINT AT 1,1;
5165 IF O$="1" THEN PRINT L$
5170 LET A=Y-26*(Y>26)
5180 LET B=DF+412+33*A*(Y<1 OR Y>26)
5190 LET F=PEEK B
5200 LET C=23+128*(F>127)
5210 FOR A=1 TO 15
5220 POKE B,C
5225 FOR D=1 TO 2
5226 NEXT D
5230 POKE B,F
5240 NEXT A
5245 IF O$="1" THEN GOTO 5500
5250 LET G$=L$+" "
5260 LET G$=G$( TO USR GET)
5262 REM A-Z,
5270 IF L$<>G$ THEN GOTO 5300
5280 LET A=INT (RND*3)*6+1
5282 PRINT AT 2,1;"RIGHT.GREAT.SUPER."(A TO A+5)
5290 FOR A=1 TO 12
5292 NEXT A
5295 GOTO 5500
5300 PRINT AT 2,1;"NO, THIS IS ";L$;"."
5310 FOR A=1 TO 35
5312 NEXT A
5500 LET CT=CT+1
5502 IF CT=NN THEN GOTO 5000
5510 PRINT AT 1,1;M$
5520 GOTO 5030
9998 SAVE "GE%O"
9999 RUN
People
BE
Skip to content
World Geography
Quiz on geography.
Content
Image Gallery
Source Code
1 REM \3C\5B\51\63\00\00\3B\1A\21\3E\6F\32\7A\41\32\C6\41\3E\67\32\87\41\32\D3\41\C9\3E\67\32\7A\41\32\C6\41\3E\6F\32\87\41\32\D3\41\ED\5B\0C\40\3A\8A\40\CB\4F\28\2C\CB\47\3A\89\40\20\0F\FE\1A\C8\3C\21\21\00\19\01\F7\02\ED\B0\18\5B\FE\00\C8\3D\21\17\03\19\54\5D\01\21\00\ED\42\01\F7\02\ED\B8\18\45\06\00\CB\47\3A\88\40\20\1C\3C\FE\55\20\01\AF\32\88\40\13\62\6B\23\3E\18\0E\1F\ED\B0\23\23\13\13\3D\20\F5\18\23\3D\FE\FF\20\02\3E\54\32\88\40\21\17\03\19\54\5D\2B\3E\18\0E\1F\ED\B8\2B\2B\1B\1B\3D\20\F5\18\03\32\89\40\ED\4B\88\40\04\3A\8A\40\FE\22\20\04\3E\17\80\47\11\C3\09\2A\0C\40\AF\ED\52\11\55\00\C5\78\D6\1A\C1\38\05\3C\47\CD\8B\40\19\10\FD\E5\09\3A\8A\40\CB\4F\28\2F\E5\2A\0C\40\23\CB\47\20\04\11\F7\02\19\EB\E1\06\20\3E\56\0C\B9\20\02\E1\E5\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\23\13\10\E4\C1\C9\C1\ED\4B\88\40\CB\47\20\0D\3E\1F\5F\19\81\1E\55\BB\38\03\ED\52\37\E5\2A\0C\40\23\30\03\1E\1F\19\EB\E1\48\06\18\18\0F\3E\19\B9\20\0A\CD\8B\40\D5\11\4D\08\ED\52\D1\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\D5\11\55\00\19\E3\1E\21\19\D1\EB\0C\10\D3\C9
2 REM M$5 DIM INKEY$6-RNDLN 0)777 FAST E£RND)7 ;SGN \' 3 GOSUB %K7:4 GOSUB %KTAN
4 REM ***\ :%W%O%R%L%D% %G%E%O%G%R%A%P%H%Y\: *** BY SHAWN BYRNE
5 RAND
7 SLOW
10 LET DF=PEEK 16396+256*PEEK 16397
20 LET GET=DF-289
30 LET M=16540
40 LET M$=" "
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$=",\. 1\.';\ '\' \' \' $0 RETURN ;\.'H$9"+CHR$ 11+CHR$ 11+"?£8( SAVE W\.'\.'$£\. "+CHR$ 69+"2"+CHR$ 72+":+ 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)
2070 LET A$=CHR$ 84+"\.'"+CHR$ 11+",2<2\''M\''V,"+CHR$ 77+">:?H-"+CHR$ 72+" PLOT 2\##\: \: \. £8$\: "+CHR$ 71+" CLEAR B"+CHR$ 11
2080 FOR A=1 TO NN
2090 LET P$(A)=A$(2*A-1 TO )
2100 NEXT A
5000 POKE 16520,0
5002 POKE 16521,0
5004 POKE 16522,36
5010 FOR A=1 TO 8
5012 IF USR M OR USR M OR USR M OR USR M THEN REM
5014 NEXT A
5016 DIM T$(NN)
5018 LET CT=0
5030 LET D=INT (RND*NN)+1
5032 IF CODE T$(D) THEN GOTO 5030
5034 LET T$(D)="1"
5040 LET L$=N$(D, TO CODE N$(D,LN))
5060 LET Y=CODE P$(D,2)
5065 IF Y>128 THEN LET Y=Y-256
5070 POKE 16522,34+(Y<PEEK 16521)
5080 FOR A=1 TO ABS (Y-PEEK 16521)
5090 IF USR M THEN REM
5100 NEXT A
5110 LET B=PEEK 16520-CODE P$(D)
5120 POKE 16522,36-3*(B>0 AND B<42 OR B<-42)
5130 FOR A=1 TO ABS (85*(ABS B>42)-ABS B)
5132 IF USR M THEN REM
5134 NEXT A
5140 LET A=USR 16875
5160 PRINT AT 1,1;
5165 IF O$="1" THEN PRINT L$
5170 LET A=Y-26*(Y>26)
5180 LET B=DF+412+33*A*(Y<1 OR Y>26)
5190 LET F=PEEK B
5200 LET C=23+128*(F>127)
5210 FOR A=1 TO 15
5220 POKE B,C
5225 FOR D=1 TO 2
5226 NEXT D
5230 POKE B,F
5240 NEXT A
5245 IF O$="1" THEN GOTO 5500
5250 LET G$=L$+" "
5260 LET G$=G$( TO USR GET)
5262 REM A-Z,
5270 IF L$<>G$ THEN GOTO 5300
5280 LET A=INT (RND*3)*6+1
5282 PRINT AT 2,1;"RIGHT.GREAT.SUPER."(A TO A+5)
5290 FOR A=1 TO 12
5292 NEXT A
5295 GOTO 5500
5300 PRINT AT 2,1;"NO, THIS IS ";L$;"."
5310 FOR A=1 TO 35
5312 NEXT A
5500 LET CT=CT+1
5502 IF CT=NN THEN GOTO 5000
5510 PRINT AT 1,1;M$
5520 GOTO 5030
9998 SAVE "GE%O"
9999 RUN
People
E itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56746 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"F\ED\B8
Skip to content
World Geography
Quiz on geography.
Content
Image Gallery
Source Code
1 REM \3C\5B\51\63\00\00\3B\1A\21\3E\6F\32\7A\41\32\C6\41\3E\67\32\87\41\32\D3\41\C9\3E\67\32\7A\41\32\C6\41\3E\6F\32\87\41\32\D3\41\ED\5B\0C\40\3A\8A\40\CB\4F\28\2C\CB\47\3A\89\40\20\0F\FE\1A\C8\3C\21\21\00\19\01\F7\02\ED\B0\18\5B\FE\00\C8\3D\21\17\03\19\54\5D\01\21\00\ED\42\01\F7\02\ED\B8\18\45\06\00\CB\47\3A\88\40\20\1C\3C\FE\55\20\01\AF\32\88\40\13\62\6B\23\3E\18\0E\1F\ED\B0\23\23\13\13\3D\20\F5\18\23\3D\FE\FF\20\02\3E\54\32\88\40\21\17\03\19\54\5D\2B\3E\18\0E\1F\ED\B8\2B\2B\1B\1B\3D\20\F5\18\03\32\89\40\ED\4B\88\40\04\3A\8A\40\FE\22\20\04\3E\17\80\47\11\C3\09\2A\0C\40\AF\ED\52\11\55\00\C5\78\D6\1A\C1\38\05\3C\47\CD\8B\40\19\10\FD\E5\09\3A\8A\40\CB\4F\28\2F\E5\2A\0C\40\23\CB\47\20\04\11\F7\02\19\EB\E1\06\20\3E\56\0C\B9\20\02\E1\E5\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\23\13\10\E4\C1\C9\C1\ED\4B\88\40\CB\47\20\0D\3E\1F\5F\19\81\1E\55\BB\38\03\ED\52\37\E5\2A\0C\40\23\30\03\1E\1F\19\EB\E1\48\06\18\18\0F\3E\19\B9\20\0A\CD\8B\40\D5\11\4D\08\ED\52\D1\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\D5\11\55\00\19\E3\1E\21\19\D1\EB\0C\10\D3\C9
2 REM M$5 DIM INKEY$6-RNDLN 0)777 FAST E£RND)7 ;SGN \' 3 GOSUB %K7:4 GOSUB %KTAN
4 REM ***\ :%W%O%R%L%D% %G%E%O%G%R%A%P%H%Y\: *** BY SHAWN BYRNE
5 RAND
7 SLOW
10 LET DF=PEEK 16396+256*PEEK 16397
20 LET GET=DF-289
30 LET M=16540
40 LET M$=" "
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$=",\. 1\.';\ '\' \' \' $0 RETURN ;\.'H$9"+CHR$ 11+CHR$ 11+"?£8( SAVE W\.'\.'$£\. "+CHR$ 69+"2"+CHR$ 72+":+ 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)
2070 LET A$=CHR$ 84+"\.'"+CHR$ 11+",2<2\''M\''V,"+CHR$ 77+">:?H-"+CHR$ 72+" PLOT 2\##\: \: \. £8$\: "+CHR$ 71+" CLEAR B"+CHR$ 11
2080 FOR A=1 TO NN
2090 LET P$(A)=A$(2*A-1 TO )
2100 NEXT A
5000 POKE 16520,0
5002 POKE 16521,0
5004 POKE 16522,36
5010 FOR A=1 TO 8
5012 IF USR M OR USR M OR USR M OR USR M THEN REM
5014 NEXT A
5016 DIM T$(NN)
5018 LET CT=0
5030 LET D=INT (RND*NN)+1
5032 IF CODE T$(D) THEN GOTO 5030
5034 LET T$(D)="1"
5040 LET L$=N$(D, TO CODE N$(D,LN))
5060 LET Y=CODE P$(D,2)
5065 IF Y>128 THEN LET Y=Y-256
5070 POKE 16522,34+(Y<PEEK 16521)
5080 FOR A=1 TO ABS (Y-PEEK 16521)
5090 IF USR M THEN REM
5100 NEXT A
5110 LET B=PEEK 16520-CODE P$(D)
5120 POKE 16522,36-3*(B>0 AND B<42 OR B<-42)
5130 FOR A=1 TO ABS (85*(ABS B>42)-ABS B)
5132 IF USR M THEN REM
5134 NEXT A
5140 LET A=USR 16875
5160 PRINT AT 1,1;
5165 IF O$="1" THEN PRINT L$
5170 LET A=Y-26*(Y>26)
5180 LET B=DF+412+33*A*(Y<1 OR Y>26)
5190 LET F=PEEK B
5200 LET C=23+128*(F>127)
5210 FOR A=1 TO 15
5220 POKE B,C
5225 FOR D=1 TO 2
5226 NEXT D
5230 POKE B,F
5240 NEXT A
5245 IF O$="1" THEN GOTO 5500
5250 LET G$=L$+" "
5260 LET G$=G$( TO USR GET)
5262 REM A-Z,
5270 IF L$<>G$ THEN GOTO 5300
5280 LET A=INT (RND*3)*6+1
5282 PRINT AT 2,1;"RIGHT.GREAT.SUPER."(A TO A+5)
5290 FOR A=1 TO 12
5292 NEXT A
5295 GOTO 5500
5300 PRINT AT 2,1;"NO, THIS IS ";L$;"."
5310 FOR A=1 TO 35
5312 NEXT A
5500 LET CT=CT+1
5502 IF CT=NN THEN GOTO 5000
5510 PRINT AT 1,1;M$
5520 GOTO 5030
9998 SAVE "GE%O"
9999 RUN
People
B
Skip to content
World Geography
Quiz on geography.
Content
Image Gallery
Source Code
1 REM \3C\5B\51\63\00\00\3B\1A\21\3E\6F\32\7A\41\32\C6\41\3E\67\32\87\41\32\D3\41\C9\3E\67\32\7A\41\32\C6\41\3E\6F\32\87\41\32\D3\41\ED\5B\0C\40\3A\8A\40\CB\4F\28\2C\CB\47\3A\89\40\20\0F\FE\1A\C8\3C\21\21\00\19\01\F7\02\ED\B0\18\5B\FE\00\C8\3D\21\17\03\19\54\5D\01\21\00\ED\42\01\F7\02\ED\B8\18\45\06\00\CB\47\3A\88\40\20\1C\3C\FE\55\20\01\AF\32\88\40\13\62\6B\23\3E\18\0E\1F\ED\B0\23\23\13\13\3D\20\F5\18\23\3D\FE\FF\20\02\3E\54\32\88\40\21\17\03\19\54\5D\2B\3E\18\0E\1F\ED\B8\2B\2B\1B\1B\3D\20\F5\18\03\32\89\40\ED\4B\88\40\04\3A\8A\40\FE\22\20\04\3E\17\80\47\11\C3\09\2A\0C\40\AF\ED\52\11\55\00\C5\78\D6\1A\C1\38\05\3C\47\CD\8B\40\19\10\FD\E5\09\3A\8A\40\CB\4F\28\2F\E5\2A\0C\40\23\CB\47\20\04\11\F7\02\19\EB\E1\06\20\3E\56\0C\B9\20\02\E1\E5\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\23\13\10\E4\C1\C9\C1\ED\4B\88\40\CB\47\20\0D\3E\1F\5F\19\81\1E\55\BB\38\03\ED\52\37\E5\2A\0C\40\23\30\03\1E\1F\19\EB\E1\48\06\18\18\0F\3E\19\B9\20\0A\CD\8B\40\D5\11\4D\08\ED\52\D1\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\D5\11\55\00\19\E3\1E\21\19\D1\EB\0C\10\D3\C9
2 REM M$5 DIM INKEY$6-RNDLN 0)777 FAST E£RND)7 ;SGN \' 3 GOSUB %K7:4 GOSUB %KTAN
4 REM ***\ :%W%O%R%L%D% %G%E%O%G%R%A%P%H%Y\: *** BY SHAWN BYRNE
5 RAND
7 SLOW
10 LET DF=PEEK 16396+256*PEEK 16397
20 LET GET=DF-289
30 LET M=16540
40 LET M$=" "
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$=",\. 1\.';\ '\' \' \' $0 RETURN ;\.'H$9"+CHR$ 11+CHR$ 11+"?£8( SAVE W\.'\.'$£\. "+CHR$ 69+"2"+CHR$ 72+":+ 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)
2070 LET A$=CHR$ 84+"\.'"+CHR$ 11+",2<2\''M\''V,"+CHR$ 77+">:?H-"+CHR$ 72+" PLOT 2\##\: \: \. £8$\: "+CHR$ 71+" CLEAR B"+CHR$ 11
2080 FOR A=1 TO NN
2090 LET P$(A)=A$(2*A-1 TO )
2100 NEXT A
5000 POKE 16520,0
5002 POKE 16521,0
5004 POKE 16522,36
5010 FOR A=1 TO 8
5012 IF USR M OR USR M OR USR M OR USR M THEN REM
5014 NEXT A
5016 DIM T$(NN)
5018 LET CT=0
5030 LET D=INT (RND*NN)+1
5032 IF CODE T$(D) THEN GOTO 5030
5034 LET T$(D)="1"
5040 LET L$=N$(D, TO CODE N$(D,LN))
5060 LET Y=CODE P$(D,2)
5065 IF Y>128 THEN LET Y=Y-256
5070 POKE 16522,34+(Y<PEEK 16521)
5080 FOR A=1 TO ABS (Y-PEEK 16521)
5090 IF USR M THEN REM
5100 NEXT A
5110 LET B=PEEK 16520-CODE P$(D)
5120 POKE 16522,36-3*(B>0 AND B<42 OR B<-42)
5130 FOR A=1 TO ABS (85*(ABS B>42)-ABS B)
5132 IF USR M THEN REM
5134 NEXT A
5140 LET A=USR 16875
5160 PRINT AT 1,1;
5165 IF O$="1" THEN PRINT L$
5170 LET A=Y-26*(Y>26)
5180 LET B=DF+412+33*A*(Y<1 OR Y>26)
5190 LET F=PEEK B
5200 LET C=23+128*(F>127)
5210 FOR A=1 TO 15
5220 POKE B,C
5225 FOR D=1 TO 2
5226 NEXT D
5230 POKE B,F
5240 NEXT A
5245 IF O$="1" THEN GOTO 5500
5250 LET G$=L$+" "
5260 LET G$=G$( TO USR GET)
5262 REM A-Z,
5270 IF L$<>G$ THEN GOTO 5300
5280 LET A=INT (RND*3)*6+1
5282 PRINT AT 2,1;"RIGHT.GREAT.SUPER."(A TO A+5)
5290 FOR A=1 TO 12
5292 NEXT A
5295 GOTO 5500
5300 PRINT AT 2,1;"NO, THIS IS ";L$;"."
5310 FOR A=1 TO 35
5312 NEXT A
5500 LET CT=CT+1
5502 IF CT=NN THEN GOTO 5000
5510 PRINT AT 1,1;M$
5520 GOTO 5030
9998 SAVE "GE%O"
9999 RUN
People
B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56746 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56746 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"BD\F5\EDBAA\FEE\C3
Skip to content
World Geography
Quiz on geography.
Content
Image Gallery
Source Code
1 REM \3C\5B\51\63\00\00\3B\1A\21\3E\6F\32\7A\41\32\C6\41\3E\67\32\87\41\32\D3\41\C9\3E\67\32\7A\41\32\C6\41\3E\6F\32\87\41\32\D3\41\ED\5B\0C\40\3A\8A\40\CB\4F\28\2C\CB\47\3A\89\40\20\0F\FE\1A\C8\3C\21\21\00\19\01\F7\02\ED\B0\18\5B\FE\00\C8\3D\21\17\03\19\54\5D\01\21\00\ED\42\01\F7\02\ED\B8\18\45\06\00\CB\47\3A\88\40\20\1C\3C\FE\55\20\01\AF\32\88\40\13\62\6B\23\3E\18\0E\1F\ED\B0\23\23\13\13\3D\20\F5\18\23\3D\FE\FF\20\02\3E\54\32\88\40\21\17\03\19\54\5D\2B\3E\18\0E\1F\ED\B8\2B\2B\1B\1B\3D\20\F5\18\03\32\89\40\ED\4B\88\40\04\3A\8A\40\FE\22\20\04\3E\17\80\47\11\C3\09\2A\0C\40\AF\ED\52\11\55\00\C5\78\D6\1A\C1\38\05\3C\47\CD\8B\40\19\10\FD\E5\09\3A\8A\40\CB\4F\28\2F\E5\2A\0C\40\23\CB\47\20\04\11\F7\02\19\EB\E1\06\20\3E\56\0C\B9\20\02\E1\E5\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\23\13\10\E4\C1\C9\C1\ED\4B\88\40\CB\47\20\0D\3E\1F\5F\19\81\1E\55\BB\38\03\ED\52\37\E5\2A\0C\40\23\30\03\1E\1F\19\EB\E1\48\06\18\18\0F\3E\19\B9\20\0A\CD\8B\40\D5\11\4D\08\ED\52\D1\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\D5\11\55\00\19\E3\1E\21\19\D1\EB\0C\10\D3\C9
2 REM M$5 DIM INKEY$6-RNDLN 0)777 FAST E£RND)7 ;SGN \' 3 GOSUB %K7:4 GOSUB %KTAN
4 REM ***\ :%W%O%R%L%D% %G%E%O%G%R%A%P%H%Y\: *** BY SHAWN BYRNE
5 RAND
7 SLOW
10 LET DF=PEEK 16396+256*PEEK 16397
20 LET GET=DF-289
30 LET M=16540
40 LET M$=" "
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$=",\. 1\.';\ '\' \' \' $0 RETURN ;\.'H$9"+CHR$ 11+CHR$ 11+"?£8( SAVE W\.'\.'$£\. "+CHR$ 69+"2"+CHR$ 72+":+ 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)
2070 LET A$=CHR$ 84+"\.'"+CHR$ 11+",2<2\''M\''V,"+CHR$ 77+">:?H-"+CHR$ 72+" PLOT 2\##\: \: \. £8$\: "+CHR$ 71+" CLEAR B"+CHR$ 11
2080 FOR A=1 TO NN
2090 LET P$(A)=A$(2*A-1 TO )
2100 NEXT A
5000 POKE 16520,0
5002 POKE 16521,0
5004 POKE 16522,36
5010 FOR A=1 TO 8
5012 IF USR M OR USR M OR USR M OR USR M THEN REM
5014 NEXT A
5016 DIM T$(NN)
5018 LET CT=0
5030 LET D=INT (RND*NN)+1
5032 IF CODE T$(D) THEN GOTO 5030
5034 LET T$(D)="1"
5040 LET L$=N$(D, TO CODE N$(D,LN))
5060 LET Y=CODE P$(D,2)
5065 IF Y>128 THEN LET Y=Y-256
5070 POKE 16522,34+(Y<PEEK 16521)
5080 FOR A=1 TO ABS (Y-PEEK 16521)
5090 IF USR M THEN REM
5100 NEXT A
5110 LET B=PEEK 16520-CODE P$(D)
5120 POKE 16522,36-3*(B>0 AND B<42 OR B<-42)
5130 FOR A=1 TO ABS (85*(ABS B>42)-ABS B)
5132 IF USR M THEN REM
5134 NEXT A
5140 LET A=USR 16875
5160 PRINT AT 1,1;
5165 IF O$="1" THEN PRINT L$
5170 LET A=Y-26*(Y>26)
5180 LET B=DF+412+33*A*(Y<1 OR Y>26)
5190 LET F=PEEK B
5200 LET C=23+128*(F>127)
5210 FOR A=1 TO 15
5220 POKE B,C
5225 FOR D=1 TO 2
5226 NEXT D
5230 POKE B,F
5240 NEXT A
5245 IF O$="1" THEN GOTO 5500
5250 LET G$=L$+" "
5260 LET G$=G$( TO USR GET)
5262 REM A-Z,
5270 IF L$<>G$ THEN GOTO 5300
5280 LET A=INT (RND*3)*6+1
5282 PRINT AT 2,1;"RIGHT.GREAT.SUPER."(A TO A+5)
5290 FOR A=1 TO 12
5292 NEXT A
5295 GOTO 5500
5300 PRINT AT 2,1;"NO, THIS IS ";L$;"."
5310 FOR A=1 TO 35
5312 NEXT A
5500 LET CT=CT+1
5502 IF CT=NN THEN GOTO 5000
5510 PRINT AT 1,1;M$
5520 GOTO 5030
9998 SAVE "GE%O"
9999 RUN
People
A
Skip to content
World Geography
Quiz on geography.
Content
Image Gallery
Source Code
1 REM \3C\5B\51\63\00\00\3B\1A\21\3E\6F\32\7A\41\32\C6\41\3E\67\32\87\41\32\D3\41\C9\3E\67\32\7A\41\32\C6\41\3E\6F\32\87\41\32\D3\41\ED\5B\0C\40\3A\8A\40\CB\4F\28\2C\CB\47\3A\89\40\20\0F\FE\1A\C8\3C\21\21\00\19\01\F7\02\ED\B0\18\5B\FE\00\C8\3D\21\17\03\19\54\5D\01\21\00\ED\42\01\F7\02\ED\B8\18\45\06\00\CB\47\3A\88\40\20\1C\3C\FE\55\20\01\AF\32\88\40\13\62\6B\23\3E\18\0E\1F\ED\B0\23\23\13\13\3D\20\F5\18\23\3D\FE\FF\20\02\3E\54\32\88\40\21\17\03\19\54\5D\2B\3E\18\0E\1F\ED\B8\2B\2B\1B\1B\3D\20\F5\18\03\32\89\40\ED\4B\88\40\04\3A\8A\40\FE\22\20\04\3E\17\80\47\11\C3\09\2A\0C\40\AF\ED\52\11\55\00\C5\78\D6\1A\C1\38\05\3C\47\CD\8B\40\19\10\FD\E5\09\3A\8A\40\CB\4F\28\2F\E5\2A\0C\40\23\CB\47\20\04\11\F7\02\19\EB\E1\06\20\3E\56\0C\B9\20\02\E1\E5\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\23\13\10\E4\C1\C9\C1\ED\4B\88\40\CB\47\20\0D\3E\1F\5F\19\81\1E\55\BB\38\03\ED\52\37\E5\2A\0C\40\23\30\03\1E\1F\19\EB\E1\48\06\18\18\0F\3E\19\B9\20\0A\CD\8B\40\D5\11\4D\08\ED\52\D1\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\D5\11\55\00\19\E3\1E\21\19\D1\EB\0C\10\D3\C9
2 REM M$5 DIM INKEY$6-RNDLN 0)777 FAST E£RND)7 ;SGN \' 3 GOSUB %K7:4 GOSUB %KTAN
4 REM ***\ :%W%O%R%L%D% %G%E%O%G%R%A%P%H%Y\: *** BY SHAWN BYRNE
5 RAND
7 SLOW
10 LET DF=PEEK 16396+256*PEEK 16397
20 LET GET=DF-289
30 LET M=16540
40 LET M$=" "
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$=",\. 1\.';\ '\' \' \' $0 RETURN ;\.'H$9"+CHR$ 11+CHR$ 11+"?£8( SAVE W\.'\.'$£\. "+CHR$ 69+"2"+CHR$ 72+":+ 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)
2070 LET A$=CHR$ 84+"\.'"+CHR$ 11+",2<2\''M\''V,"+CHR$ 77+">:?H-"+CHR$ 72+" PLOT 2\##\: \: \. £8$\: "+CHR$ 71+" CLEAR B"+CHR$ 11
2080 FOR A=1 TO NN
2090 LET P$(A)=A$(2*A-1 TO )
2100 NEXT A
5000 POKE 16520,0
5002 POKE 16521,0
5004 POKE 16522,36
5010 FOR A=1 TO 8
5012 IF USR M OR USR M OR USR M OR USR M THEN REM
5014 NEXT A
5016 DIM T$(NN)
5018 LET CT=0
5030 LET D=INT (RND*NN)+1
5032 IF CODE T$(D) THEN GOTO 5030
5034 LET T$(D)="1"
5040 LET L$=N$(D, TO CODE N$(D,LN))
5060 LET Y=CODE P$(D,2)
5065 IF Y>128 THEN LET Y=Y-256
5070 POKE 16522,34+(Y<PEEK 16521)
5080 FOR A=1 TO ABS (Y-PEEK 16521)
5090 IF USR M THEN REM
5100 NEXT A
5110 LET B=PEEK 16520-CODE P$(D)
5120 POKE 16522,36-3*(B>0 AND B<42 OR B<-42)
5130 FOR A=1 TO ABS (85*(ABS B>42)-ABS B)
5132 IF USR M THEN REM
5134 NEXT A
5140 LET A=USR 16875
5160 PRINT AT 1,1;
5165 IF O$="1" THEN PRINT L$
5170 LET A=Y-26*(Y>26)
5180 LET B=DF+412+33*A*(Y<1 OR Y>26)
5190 LET F=PEEK B
5200 LET C=23+128*(F>127)
5210 FOR A=1 TO 15
5220 POKE B,C
5225 FOR D=1 TO 2
5226 NEXT D
5230 POKE B,F
5240 NEXT A
5245 IF O$="1" THEN GOTO 5500
5250 LET G$=L$+" "
5260 LET G$=G$( TO USR GET)
5262 REM A-Z,
5270 IF L$<>G$ THEN GOTO 5300
5280 LET A=INT (RND*3)*6+1
5282 PRINT AT 2,1;"RIGHT.GREAT.SUPER."(A TO A+5)
5290 FOR A=1 TO 12
5292 NEXT A
5295 GOTO 5500
5300 PRINT AT 2,1;"NO, THIS IS ";L$;"."
5310 FOR A=1 TO 35
5312 NEXT A
5500 LET CT=CT+1
5502 IF CT=NN THEN GOTO 5000
5510 PRINT AT 1,1;M$
5520 GOTO 5030
9998 SAVE "GE%O"
9999 RUN
People
C\AF\ED
Skip to content
World Geography
Quiz on geography.
Content
Image Gallery
Source Code
1 REM \3C\5B\51\63\00\00\3B\1A\21\3E\6F\32\7A\41\32\C6\41\3E\67\32\87\41\32\D3\41\C9\3E\67\32\7A\41\32\C6\41\3E\6F\32\87\41\32\D3\41\ED\5B\0C\40\3A\8A\40\CB\4F\28\2C\CB\47\3A\89\40\20\0F\FE\1A\C8\3C\21\21\00\19\01\F7\02\ED\B0\18\5B\FE\00\C8\3D\21\17\03\19\54\5D\01\21\00\ED\42\01\F7\02\ED\B8\18\45\06\00\CB\47\3A\88\40\20\1C\3C\FE\55\20\01\AF\32\88\40\13\62\6B\23\3E\18\0E\1F\ED\B0\23\23\13\13\3D\20\F5\18\23\3D\FE\FF\20\02\3E\54\32\88\40\21\17\03\19\54\5D\2B\3E\18\0E\1F\ED\B8\2B\2B\1B\1B\3D\20\F5\18\03\32\89\40\ED\4B\88\40\04\3A\8A\40\FE\22\20\04\3E\17\80\47\11\C3\09\2A\0C\40\AF\ED\52\11\55\00\C5\78\D6\1A\C1\38\05\3C\47\CD\8B\40\19\10\FD\E5\09\3A\8A\40\CB\4F\28\2F\E5\2A\0C\40\23\CB\47\20\04\11\F7\02\19\EB\E1\06\20\3E\56\0C\B9\20\02\E1\E5\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\23\13\10\E4\C1\C9\C1\ED\4B\88\40\CB\47\20\0D\3E\1F\5F\19\81\1E\55\BB\38\03\ED\52\37\E5\2A\0C\40\23\30\03\1E\1F\19\EB\E1\48\06\18\18\0F\3E\19\B9\20\0A\CD\8B\40\D5\11\4D\08\ED\52\D1\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\D5\11\55\00\19\E3\1E\21\19\D1\EB\0C\10\D3\C9
2 REM M$5 DIM INKEY$6-RNDLN 0)777 FAST E£RND)7 ;SGN \' 3 GOSUB %K7:4 GOSUB %KTAN
4 REM ***\ :%W%O%R%L%D% %G%E%O%G%R%A%P%H%Y\: *** BY SHAWN BYRNE
5 RAND
7 SLOW
10 LET DF=PEEK 16396+256*PEEK 16397
20 LET GET=DF-289
30 LET M=16540
40 LET M$=" "
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$=",\. 1\.';\ '\' \' \' $0 RETURN ;\.'H$9"+CHR$ 11+CHR$ 11+"?£8( SAVE W\.'\.'$£\. "+CHR$ 69+"2"+CHR$ 72+":+ 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)
2070 LET A$=CHR$ 84+"\.'"+CHR$ 11+",2<2\''M\''V,"+CHR$ 77+">:?H-"+CHR$ 72+" PLOT 2\##\: \: \. £8$\: "+CHR$ 71+" CLEAR B"+CHR$ 11
2080 FOR A=1 TO NN
2090 LET P$(A)=A$(2*A-1 TO )
2100 NEXT A
5000 POKE 16520,0
5002 POKE 16521,0
5004 POKE 16522,36
5010 FOR A=1 TO 8
5012 IF USR M OR USR M OR USR M OR USR M THEN REM
5014 NEXT A
5016 DIM T$(NN)
5018 LET CT=0
5030 LET D=INT (RND*NN)+1
5032 IF CODE T$(D) THEN GOTO 5030
5034 LET T$(D)="1"
5040 LET L$=N$(D, TO CODE N$(D,LN))
5060 LET Y=CODE P$(D,2)
5065 IF Y>128 THEN LET Y=Y-256
5070 POKE 16522,34+(Y<PEEK 16521)
5080 FOR A=1 TO ABS (Y-PEEK 16521)
5090 IF USR M THEN REM
5100 NEXT A
5110 LET B=PEEK 16520-CODE P$(D)
5120 POKE 16522,36-3*(B>0 AND B<42 OR B<-42)
5130 FOR A=1 TO ABS (85*(ABS B>42)-ABS B)
5132 IF USR M THEN REM
5134 NEXT A
5140 LET A=USR 16875
5160 PRINT AT 1,1;
5165 IF O$="1" THEN PRINT L$
5170 LET A=Y-26*(Y>26)
5180 LET B=DF+412+33*A*(Y<1 OR Y>26)
5190 LET F=PEEK B
5200 LET C=23+128*(F>127)
5210 FOR A=1 TO 15
5220 POKE B,C
5225 FOR D=1 TO 2
5226 NEXT D
5230 POKE B,F
5240 NEXT A
5245 IF O$="1" THEN GOTO 5500
5250 LET G$=L$+" "
5260 LET G$=G$( TO USR GET)
5262 REM A-Z,
5270 IF L$<>G$ THEN GOTO 5300
5280 LET A=INT (RND*3)*6+1
5282 PRINT AT 2,1;"RIGHT.GREAT.SUPER."(A TO A+5)
5290 FOR A=1 TO 12
5292 NEXT A
5295 GOTO 5500
5300 PRINT AT 2,1;"NO, THIS IS ";L$;"."
5310 FOR A=1 TO 35
5312 NEXT A
5500 LET CT=CT+1
5502 IF CT=NN THEN GOTO 5000
5510 PRINT AT 1,1;M$
5520 GOTO 5030
9998 SAVE "GE%O"
9999 RUN
People
\C5\D6 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56746 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"A\C1C\CDB\FD\E5AA\CBF
Skip to content
World Geography
Quiz on geography.
Content
Image Gallery
Source Code
1 REM \3C\5B\51\63\00\00\3B\1A\21\3E\6F\32\7A\41\32\C6\41\3E\67\32\87\41\32\D3\41\C9\3E\67\32\7A\41\32\C6\41\3E\6F\32\87\41\32\D3\41\ED\5B\0C\40\3A\8A\40\CB\4F\28\2C\CB\47\3A\89\40\20\0F\FE\1A\C8\3C\21\21\00\19\01\F7\02\ED\B0\18\5B\FE\00\C8\3D\21\17\03\19\54\5D\01\21\00\ED\42\01\F7\02\ED\B8\18\45\06\00\CB\47\3A\88\40\20\1C\3C\FE\55\20\01\AF\32\88\40\13\62\6B\23\3E\18\0E\1F\ED\B0\23\23\13\13\3D\20\F5\18\23\3D\FE\FF\20\02\3E\54\32\88\40\21\17\03\19\54\5D\2B\3E\18\0E\1F\ED\B8\2B\2B\1B\1B\3D\20\F5\18\03\32\89\40\ED\4B\88\40\04\3A\8A\40\FE\22\20\04\3E\17\80\47\11\C3\09\2A\0C\40\AF\ED\52\11\55\00\C5\78\D6\1A\C1\38\05\3C\47\CD\8B\40\19\10\FD\E5\09\3A\8A\40\CB\4F\28\2F\E5\2A\0C\40\23\CB\47\20\04\11\F7\02\19\EB\E1\06\20\3E\56\0C\B9\20\02\E1\E5\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\23\13\10\E4\C1\C9\C1\ED\4B\88\40\CB\47\20\0D\3E\1F\5F\19\81\1E\55\BB\38\03\ED\52\37\E5\2A\0C\40\23\30\03\1E\1F\19\EB\E1\48\06\18\18\0F\3E\19\B9\20\0A\CD\8B\40\D5\11\4D\08\ED\52\D1\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\D5\11\55\00\19\E3\1E\21\19\D1\EB\0C\10\D3\C9
2 REM M$5 DIM INKEY$6-RNDLN 0)777 FAST E£RND)7 ;SGN \' 3 GOSUB %K7:4 GOSUB %KTAN
4 REM ***\ :%W%O%R%L%D% %G%E%O%G%R%A%P%H%Y\: *** BY SHAWN BYRNE
5 RAND
7 SLOW
10 LET DF=PEEK 16396+256*PEEK 16397
20 LET GET=DF-289
30 LET M=16540
40 LET M$=" "
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$=",\. 1\.';\ '\' \' \' $0 RETURN ;\.'H$9"+CHR$ 11+CHR$ 11+"?£8( SAVE W\.'\.'$£\. "+CHR$ 69+"2"+CHR$ 72+":+ 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)
2070 LET A$=CHR$ 84+"\.'"+CHR$ 11+",2<2\''M\''V,"+CHR$ 77+">:?H-"+CHR$ 72+" PLOT 2\##\: \: \. £8$\: "+CHR$ 71+" CLEAR B"+CHR$ 11
2080 FOR A=1 TO NN
2090 LET P$(A)=A$(2*A-1 TO )
2100 NEXT A
5000 POKE 16520,0
5002 POKE 16521,0
5004 POKE 16522,36
5010 FOR A=1 TO 8
5012 IF USR M OR USR M OR USR M OR USR M THEN REM
5014 NEXT A
5016 DIM T$(NN)
5018 LET CT=0
5030 LET D=INT (RND*NN)+1
5032 IF CODE T$(D) THEN GOTO 5030
5034 LET T$(D)="1"
5040 LET L$=N$(D, TO CODE N$(D,LN))
5060 LET Y=CODE P$(D,2)
5065 IF Y>128 THEN LET Y=Y-256
5070 POKE 16522,34+(Y<PEEK 16521)
5080 FOR A=1 TO ABS (Y-PEEK 16521)
5090 IF USR M THEN REM
5100 NEXT A
5110 LET B=PEEK 16520-CODE P$(D)
5120 POKE 16522,36-3*(B>0 AND B<42 OR B<-42)
5130 FOR A=1 TO ABS (85*(ABS B>42)-ABS B)
5132 IF USR M THEN REM
5134 NEXT A
5140 LET A=USR 16875
5160 PRINT AT 1,1;
5165 IF O$="1" THEN PRINT L$
5170 LET A=Y-26*(Y>26)
5180 LET B=DF+412+33*A*(Y<1 OR Y>26)
5190 LET F=PEEK B
5200 LET C=23+128*(F>127)
5210 FOR A=1 TO 15
5220 POKE B,C
5225 FOR D=1 TO 2
5226 NEXT D
5230 POKE B,F
5240 NEXT A
5245 IF O$="1" THEN GOTO 5500
5250 LET G$=L$+" "
5260 LET G$=G$( TO USR GET)
5262 REM A-Z,
5270 IF L$<>G$ THEN GOTO 5300
5280 LET A=INT (RND*3)*6+1
5282 PRINT AT 2,1;"RIGHT.GREAT.SUPER."(A TO A+5)
5290 FOR A=1 TO 12
5292 NEXT A
5295 GOTO 5500
5300 PRINT AT 2,1;"NO, THIS IS ";L$;"."
5310 FOR A=1 TO 35
5312 NEXT A
5500 LET CT=CT+1
5502 IF CT=NN THEN GOTO 5000
5510 PRINT AT 1,1;M$
5520 GOTO 5030
9998 SAVE "GE%O"
9999 RUN
People
F\E5
Skip to content
World Geography
Quiz on geography.
Content
Image Gallery
Source Code
1 REM \3C\5B\51\63\00\00\3B\1A\21\3E\6F\32\7A\41\32\C6\41\3E\67\32\87\41\32\D3\41\C9\3E\67\32\7A\41\32\C6\41\3E\6F\32\87\41\32\D3\41\ED\5B\0C\40\3A\8A\40\CB\4F\28\2C\CB\47\3A\89\40\20\0F\FE\1A\C8\3C\21\21\00\19\01\F7\02\ED\B0\18\5B\FE\00\C8\3D\21\17\03\19\54\5D\01\21\00\ED\42\01\F7\02\ED\B8\18\45\06\00\CB\47\3A\88\40\20\1C\3C\FE\55\20\01\AF\32\88\40\13\62\6B\23\3E\18\0E\1F\ED\B0\23\23\13\13\3D\20\F5\18\23\3D\FE\FF\20\02\3E\54\32\88\40\21\17\03\19\54\5D\2B\3E\18\0E\1F\ED\B8\2B\2B\1B\1B\3D\20\F5\18\03\32\89\40\ED\4B\88\40\04\3A\8A\40\FE\22\20\04\3E\17\80\47\11\C3\09\2A\0C\40\AF\ED\52\11\55\00\C5\78\D6\1A\C1\38\05\3C\47\CD\8B\40\19\10\FD\E5\09\3A\8A\40\CB\4F\28\2F\E5\2A\0C\40\23\CB\47\20\04\11\F7\02\19\EB\E1\06\20\3E\56\0C\B9\20\02\E1\E5\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\23\13\10\E4\C1\C9\C1\ED\4B\88\40\CB\47\20\0D\3E\1F\5F\19\81\1E\55\BB\38\03\ED\52\37\E5\2A\0C\40\23\30\03\1E\1F\19\EB\E1\48\06\18\18\0F\3E\19\B9\20\0A\CD\8B\40\D5\11\4D\08\ED\52\D1\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\D5\11\55\00\19\E3\1E\21\19\D1\EB\0C\10\D3\C9
2 REM M$5 DIM INKEY$6-RNDLN 0)777 FAST E£RND)7 ;SGN \' 3 GOSUB %K7:4 GOSUB %KTAN
4 REM ***\ :%W%O%R%L%D% %G%E%O%G%R%A%P%H%Y\: *** BY SHAWN BYRNE
5 RAND
7 SLOW
10 LET DF=PEEK 16396+256*PEEK 16397
20 LET GET=DF-289
30 LET M=16540
40 LET M$=" "
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$=",\. 1\.';\ '\' \' \' $0 RETURN ;\.'H$9"+CHR$ 11+CHR$ 11+"?£8( SAVE W\.'\.'$£\. "+CHR$ 69+"2"+CHR$ 72+":+ 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)
2070 LET A$=CHR$ 84+"\.'"+CHR$ 11+",2<2\''M\''V,"+CHR$ 77+">:?H-"+CHR$ 72+" PLOT 2\##\: \: \. £8$\: "+CHR$ 71+" CLEAR B"+CHR$ 11
2080 FOR A=1 TO NN
2090 LET P$(A)=A$(2*A-1 TO )
2100 NEXT A
5000 POKE 16520,0
5002 POKE 16521,0
5004 POKE 16522,36
5010 FOR A=1 TO 8
5012 IF USR M OR USR M OR USR M OR USR M THEN REM
5014 NEXT A
5016 DIM T$(NN)
5018 LET CT=0
5030 LET D=INT (RND*NN)+1
5032 IF CODE T$(D) THEN GOTO 5030
5034 LET T$(D)="1"
5040 LET L$=N$(D, TO CODE N$(D,LN))
5060 LET Y=CODE P$(D,2)
5065 IF Y>128 THEN LET Y=Y-256
5070 POKE 16522,34+(Y<PEEK 16521)
5080 FOR A=1 TO ABS (Y-PEEK 16521)
5090 IF USR M THEN REM
5100 NEXT A
5110 LET B=PEEK 16520-CODE P$(D)
5120 POKE 16522,36-3*(B>0 AND B<42 OR B<-42)
5130 FOR A=1 TO ABS (85*(ABS B>42)-ABS B)
5132 IF USR M THEN REM
5134 NEXT A
5140 LET A=USR 16875
5160 PRINT AT 1,1;
5165 IF O$="1" THEN PRINT L$
5170 LET A=Y-26*(Y>26)
5180 LET B=DF+412+33*A*(Y<1 OR Y>26)
5190 LET F=PEEK B
5200 LET C=23+128*(F>127)
5210 FOR A=1 TO 15
5220 POKE B,C
5225 FOR D=1 TO 2
5226 NEXT D
5230 POKE B,F
5240 NEXT A
5245 IF O$="1" THEN GOTO 5500
5250 LET G$=L$+" "
5260 LET G$=G$( TO USR GET)
5262 REM A-Z,
5270 IF L$<>G$ THEN GOTO 5300
5280 LET A=INT (RND*3)*6+1
5282 PRINT AT 2,1;"RIGHT.GREAT.SUPER."(A TO A+5)
5290 FOR A=1 TO 12
5292 NEXT A
5295 GOTO 5500
5300 PRINT AT 2,1;"NO, THIS IS ";L$;"."
5310 FOR A=1 TO 35
5312 NEXT A
5500 LET CT=CT+1
5502 IF CT=NN THEN GOTO 5000
5510 PRINT AT 1,1;M$
5520 GOTO 5030
9998 SAVE "GE%O"
9999 RUN
People
A
Skip to content
World Geography
Quiz on geography.
Content
Image Gallery
Source Code
1 REM \3C\5B\51\63\00\00\3B\1A\21\3E\6F\32\7A\41\32\C6\41\3E\67\32\87\41\32\D3\41\C9\3E\67\32\7A\41\32\C6\41\3E\6F\32\87\41\32\D3\41\ED\5B\0C\40\3A\8A\40\CB\4F\28\2C\CB\47\3A\89\40\20\0F\FE\1A\C8\3C\21\21\00\19\01\F7\02\ED\B0\18\5B\FE\00\C8\3D\21\17\03\19\54\5D\01\21\00\ED\42\01\F7\02\ED\B8\18\45\06\00\CB\47\3A\88\40\20\1C\3C\FE\55\20\01\AF\32\88\40\13\62\6B\23\3E\18\0E\1F\ED\B0\23\23\13\13\3D\20\F5\18\23\3D\FE\FF\20\02\3E\54\32\88\40\21\17\03\19\54\5D\2B\3E\18\0E\1F\ED\B8\2B\2B\1B\1B\3D\20\F5\18\03\32\89\40\ED\4B\88\40\04\3A\8A\40\FE\22\20\04\3E\17\80\47\11\C3\09\2A\0C\40\AF\ED\52\11\55\00\C5\78\D6\1A\C1\38\05\3C\47\CD\8B\40\19\10\FD\E5\09\3A\8A\40\CB\4F\28\2F\E5\2A\0C\40\23\CB\47\20\04\11\F7\02\19\EB\E1\06\20\3E\56\0C\B9\20\02\E1\E5\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\23\13\10\E4\C1\C9\C1\ED\4B\88\40\CB\47\20\0D\3E\1F\5F\19\81\1E\55\BB\38\03\ED\52\37\E5\2A\0C\40\23\30\03\1E\1F\19\EB\E1\48\06\18\18\0F\3E\19\B9\20\0A\CD\8B\40\D5\11\4D\08\ED\52\D1\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\D5\11\55\00\19\E3\1E\21\19\D1\EB\0C\10\D3\C9
2 REM M$5 DIM INKEY$6-RNDLN 0)777 FAST E£RND)7 ;SGN \' 3 GOSUB %K7:4 GOSUB %KTAN
4 REM ***\ :%W%O%R%L%D% %G%E%O%G%R%A%P%H%Y\: *** BY SHAWN BYRNE
5 RAND
7 SLOW
10 LET DF=PEEK 16396+256*PEEK 16397
20 LET GET=DF-289
30 LET M=16540
40 LET M$=" "
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$=",\. 1\.';\ '\' \' \' $0 RETURN ;\.'H$9"+CHR$ 11+CHR$ 11+"?£8( SAVE W\.'\.'$£\. "+CHR$ 69+"2"+CHR$ 72+":+ 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)
2070 LET A$=CHR$ 84+"\.'"+CHR$ 11+",2<2\''M\''V,"+CHR$ 77+">:?H-"+CHR$ 72+" PLOT 2\##\: \: \. £8$\: "+CHR$ 71+" CLEAR B"+CHR$ 11
2080 FOR A=1 TO NN
2090 LET P$(A)=A$(2*A-1 TO )
2100 NEXT A
5000 POKE 16520,0
5002 POKE 16521,0
5004 POKE 16522,36
5010 FOR A=1 TO 8
5012 IF USR M OR USR M OR USR M OR USR M THEN REM
5014 NEXT A
5016 DIM T$(NN)
5018 LET CT=0
5030 LET D=INT (RND*NN)+1
5032 IF CODE T$(D) THEN GOTO 5030
5034 LET T$(D)="1"
5040 LET L$=N$(D, TO CODE N$(D,LN))
5060 LET Y=CODE P$(D,2)
5065 IF Y>128 THEN LET Y=Y-256
5070 POKE 16522,34+(Y<PEEK 16521)
5080 FOR A=1 TO ABS (Y-PEEK 16521)
5090 IF USR M THEN REM
5100 NEXT A
5110 LET B=PEEK 16520-CODE P$(D)
5120 POKE 16522,36-3*(B>0 AND B<42 OR B<-42)
5130 FOR A=1 TO ABS (85*(ABS B>42)-ABS B)
5132 IF USR M THEN REM
5134 NEXT A
5140 LET A=USR 16875
5160 PRINT AT 1,1;
5165 IF O$="1" THEN PRINT L$
5170 LET A=Y-26*(Y>26)
5180 LET B=DF+412+33*A*(Y<1 OR Y>26)
5190 LET F=PEEK B
5200 LET C=23+128*(F>127)
5210 FOR A=1 TO 15
5220 POKE B,C
5225 FOR D=1 TO 2
5226 NEXT D
5230 POKE B,F
5240 NEXT A
5245 IF O$="1" THEN GOTO 5500
5250 LET G$=L$+" "
5260 LET G$=G$( TO USR GET)
5262 REM A-Z,
5270 IF L$<>G$ THEN GOTO 5300
5280 LET A=INT (RND*3)*6+1
5282 PRINT AT 2,1;"RIGHT.GREAT.SUPER."(A TO A+5)
5290 FOR A=1 TO 12
5292 NEXT A
5295 GOTO 5500
5300 PRINT AT 2,1;"NO, THIS IS ";L$;"."
5310 FOR A=1 TO 35
5312 NEXT A
5500 LET CT=CT+1
5502 IF CT=NN THEN GOTO 5000
5510 PRINT AT 1,1;M$
5520 GOTO 5030
9998 SAVE "GE%O"
9999 RUN
People
C\CB\F7
Skip to content
World Geography
Quiz on geography.
Content
Image Gallery
Source Code
1 REM \3C\5B\51\63\00\00\3B\1A\21\3E\6F\32\7A\41\32\C6\41\3E\67\32\87\41\32\D3\41\C9\3E\67\32\7A\41\32\C6\41\3E\6F\32\87\41\32\D3\41\ED\5B\0C\40\3A\8A\40\CB\4F\28\2C\CB\47\3A\89\40\20\0F\FE\1A\C8\3C\21\21\00\19\01\F7\02\ED\B0\18\5B\FE\00\C8\3D\21\17\03\19\54\5D\01\21\00\ED\42\01\F7\02\ED\B8\18\45\06\00\CB\47\3A\88\40\20\1C\3C\FE\55\20\01\AF\32\88\40\13\62\6B\23\3E\18\0E\1F\ED\B0\23\23\13\13\3D\20\F5\18\23\3D\FE\FF\20\02\3E\54\32\88\40\21\17\03\19\54\5D\2B\3E\18\0E\1F\ED\B8\2B\2B\1B\1B\3D\20\F5\18\03\32\89\40\ED\4B\88\40\04\3A\8A\40\FE\22\20\04\3E\17\80\47\11\C3\09\2A\0C\40\AF\ED\52\11\55\00\C5\78\D6\1A\C1\38\05\3C\47\CD\8B\40\19\10\FD\E5\09\3A\8A\40\CB\4F\28\2F\E5\2A\0C\40\23\CB\47\20\04\11\F7\02\19\EB\E1\06\20\3E\56\0C\B9\20\02\E1\E5\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\23\13\10\E4\C1\C9\C1\ED\4B\88\40\CB\47\20\0D\3E\1F\5F\19\81\1E\55\BB\38\03\ED\52\37\E5\2A\0C\40\23\30\03\1E\1F\19\EB\E1\48\06\18\18\0F\3E\19\B9\20\0A\CD\8B\40\D5\11\4D\08\ED\52\D1\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\D5\11\55\00\19\E3\1E\21\19\D1\EB\0C\10\D3\C9
2 REM M$5 DIM INKEY$6-RNDLN 0)777 FAST E£RND)7 ;SGN \' 3 GOSUB %K7:4 GOSUB %KTAN
4 REM ***\ :%W%O%R%L%D% %G%E%O%G%R%A%P%H%Y\: *** BY SHAWN BYRNE
5 RAND
7 SLOW
10 LET DF=PEEK 16396+256*PEEK 16397
20 LET GET=DF-289
30 LET M=16540
40 LET M$=" "
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$=",\. 1\.';\ '\' \' \' $0 RETURN ;\.'H$9"+CHR$ 11+CHR$ 11+"?£8( SAVE W\.'\.'$£\. "+CHR$ 69+"2"+CHR$ 72+":+ 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)
2070 LET A$=CHR$ 84+"\.'"+CHR$ 11+",2<2\''M\''V,"+CHR$ 77+">:?H-"+CHR$ 72+" PLOT 2\##\: \: \. £8$\: "+CHR$ 71+" CLEAR B"+CHR$ 11
2080 FOR A=1 TO NN
2090 LET P$(A)=A$(2*A-1 TO )
2100 NEXT A
5000 POKE 16520,0
5002 POKE 16521,0
5004 POKE 16522,36
5010 FOR A=1 TO 8
5012 IF USR M OR USR M OR USR M OR USR M THEN REM
5014 NEXT A
5016 DIM T$(NN)
5018 LET CT=0
5030 LET D=INT (RND*NN)+1
5032 IF CODE T$(D) THEN GOTO 5030
5034 LET T$(D)="1"
5040 LET L$=N$(D, TO CODE N$(D,LN))
5060 LET Y=CODE P$(D,2)
5065 IF Y>128 THEN LET Y=Y-256
5070 POKE 16522,34+(Y<PEEK 16521)
5080 FOR A=1 TO ABS (Y-PEEK 16521)
5090 IF USR M THEN REM
5100 NEXT A
5110 LET B=PEEK 16520-CODE P$(D)
5120 POKE 16522,36-3*(B>0 AND B<42 OR B<-42)
5130 FOR A=1 TO ABS (85*(ABS B>42)-ABS B)
5132 IF USR M THEN REM
5134 NEXT A
5140 LET A=USR 16875
5160 PRINT AT 1,1;
5165 IF O$="1" THEN PRINT L$
5170 LET A=Y-26*(Y>26)
5180 LET B=DF+412+33*A*(Y<1 OR Y>26)
5190 LET F=PEEK B
5200 LET C=23+128*(F>127)
5210 FOR A=1 TO 15
5220 POKE B,C
5225 FOR D=1 TO 2
5226 NEXT D
5230 POKE B,F
5240 NEXT A
5245 IF O$="1" THEN GOTO 5500
5250 LET G$=L$+" "
5260 LET G$=G$( TO USR GET)
5262 REM A-Z,
5270 IF L$<>G$ THEN GOTO 5300
5280 LET A=INT (RND*3)*6+1
5282 PRINT AT 2,1;"RIGHT.GREAT.SUPER."(A TO A+5)
5290 FOR A=1 TO 12
5292 NEXT A
5295 GOTO 5500
5300 PRINT AT 2,1;"NO, THIS IS ";L$;"."
5310 FOR A=1 TO 35
5312 NEXT A
5500 LET CT=CT+1
5502 IF CT=NN THEN GOTO 5000
5510 PRINT AT 1,1;M$
5520 GOTO 5030
9998 SAVE "GE%O"
9999 RUN
People
\EB\E1E
Skip to content
World Geography
Quiz on geography.
Content
Image Gallery
Source Code
1 REM \3C\5B\51\63\00\00\3B\1A\21\3E\6F\32\7A\41\32\C6\41\3E\67\32\87\41\32\D3\41\C9\3E\67\32\7A\41\32\C6\41\3E\6F\32\87\41\32\D3\41\ED\5B\0C\40\3A\8A\40\CB\4F\28\2C\CB\47\3A\89\40\20\0F\FE\1A\C8\3C\21\21\00\19\01\F7\02\ED\B0\18\5B\FE\00\C8\3D\21\17\03\19\54\5D\01\21\00\ED\42\01\F7\02\ED\B8\18\45\06\00\CB\47\3A\88\40\20\1C\3C\FE\55\20\01\AF\32\88\40\13\62\6B\23\3E\18\0E\1F\ED\B0\23\23\13\13\3D\20\F5\18\23\3D\FE\FF\20\02\3E\54\32\88\40\21\17\03\19\54\5D\2B\3E\18\0E\1F\ED\B8\2B\2B\1B\1B\3D\20\F5\18\03\32\89\40\ED\4B\88\40\04\3A\8A\40\FE\22\20\04\3E\17\80\47\11\C3\09\2A\0C\40\AF\ED\52\11\55\00\C5\78\D6\1A\C1\38\05\3C\47\CD\8B\40\19\10\FD\E5\09\3A\8A\40\CB\4F\28\2F\E5\2A\0C\40\23\CB\47\20\04\11\F7\02\19\EB\E1\06\20\3E\56\0C\B9\20\02\E1\E5\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\23\13\10\E4\C1\C9\C1\ED\4B\88\40\CB\47\20\0D\3E\1F\5F\19\81\1E\55\BB\38\03\ED\52\37\E5\2A\0C\40\23\30\03\1E\1F\19\EB\E1\48\06\18\18\0F\3E\19\B9\20\0A\CD\8B\40\D5\11\4D\08\ED\52\D1\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\D5\11\55\00\19\E3\1E\21\19\D1\EB\0C\10\D3\C9
2 REM M$5 DIM INKEY$6-RNDLN 0)777 FAST E£RND)7 ;SGN \' 3 GOSUB %K7:4 GOSUB %KTAN
4 REM ***\ :%W%O%R%L%D% %G%E%O%G%R%A%P%H%Y\: *** BY SHAWN BYRNE
5 RAND
7 SLOW
10 LET DF=PEEK 16396+256*PEEK 16397
20 LET GET=DF-289
30 LET M=16540
40 LET M$=" "
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$=",\. 1\.';\ '\' \' \' $0 RETURN ;\.'H$9"+CHR$ 11+CHR$ 11+"?£8( SAVE W\.'\.'$£\. "+CHR$ 69+"2"+CHR$ 72+":+ 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)
2070 LET A$=CHR$ 84+"\.'"+CHR$ 11+",2<2\''M\''V,"+CHR$ 77+">:?H-"+CHR$ 72+" PLOT 2\##\: \: \. £8$\: "+CHR$ 71+" CLEAR B"+CHR$ 11
2080 FOR A=1 TO NN
2090 LET P$(A)=A$(2*A-1 TO )
2100 NEXT A
5000 POKE 16520,0
5002 POKE 16521,0
5004 POKE 16522,36
5010 FOR A=1 TO 8
5012 IF USR M OR USR M OR USR M OR USR M THEN REM
5014 NEXT A
5016 DIM T$(NN)
5018 LET CT=0
5030 LET D=INT (RND*NN)+1
5032 IF CODE T$(D) THEN GOTO 5030
5034 LET T$(D)="1"
5040 LET L$=N$(D, TO CODE N$(D,LN))
5060 LET Y=CODE P$(D,2)
5065 IF Y>128 THEN LET Y=Y-256
5070 POKE 16522,34+(Y<PEEK 16521)
5080 FOR A=1 TO ABS (Y-PEEK 16521)
5090 IF USR M THEN REM
5100 NEXT A
5110 LET B=PEEK 16520-CODE P$(D)
5120 POKE 16522,36-3*(B>0 AND B<42 OR B<-42)
5130 FOR A=1 TO ABS (85*(ABS B>42)-ABS B)
5132 IF USR M THEN REM
5134 NEXT A
5140 LET A=USR 16875
5160 PRINT AT 1,1;
5165 IF O$="1" THEN PRINT L$
5170 LET A=Y-26*(Y>26)
5180 LET B=DF+412+33*A*(Y<1 OR Y>26)
5190 LET F=PEEK B
5200 LET C=23+128*(F>127)
5210 FOR A=1 TO 15
5220 POKE B,C
5225 FOR D=1 TO 2
5226 NEXT D
5230 POKE B,F
5240 NEXT A
5245 IF O$="1" THEN GOTO 5500
5250 LET G$=L$+" "
5260 LET G$=G$( TO USR GET)
5262 REM A-Z,
5270 IF L$<>G$ THEN GOTO 5300
5280 LET A=INT (RND*3)*6+1
5282 PRINT AT 2,1;"RIGHT.GREAT.SUPER."(A TO A+5)
5290 FOR A=1 TO 12
5292 NEXT A
5295 GOTO 5500
5300 PRINT AT 2,1;"NO, THIS IS ";L$;"."
5310 FOR A=1 TO 35
5312 NEXT A
5500 LET CT=CT+1
5502 IF CT=NN THEN GOTO 5000
5510 PRINT AT 1,1;M$
5520 GOTO 5030
9998 SAVE "GE%O"
9999 RUN
People
C\B9
Skip to content
World Geography
Quiz on geography.
Content
Image Gallery
Source Code
1 REM \3C\5B\51\63\00\00\3B\1A\21\3E\6F\32\7A\41\32\C6\41\3E\67\32\87\41\32\D3\41\C9\3E\67\32\7A\41\32\C6\41\3E\6F\32\87\41\32\D3\41\ED\5B\0C\40\3A\8A\40\CB\4F\28\2C\CB\47\3A\89\40\20\0F\FE\1A\C8\3C\21\21\00\19\01\F7\02\ED\B0\18\5B\FE\00\C8\3D\21\17\03\19\54\5D\01\21\00\ED\42\01\F7\02\ED\B8\18\45\06\00\CB\47\3A\88\40\20\1C\3C\FE\55\20\01\AF\32\88\40\13\62\6B\23\3E\18\0E\1F\ED\B0\23\23\13\13\3D\20\F5\18\23\3D\FE\FF\20\02\3E\54\32\88\40\21\17\03\19\54\5D\2B\3E\18\0E\1F\ED\B8\2B\2B\1B\1B\3D\20\F5\18\03\32\89\40\ED\4B\88\40\04\3A\8A\40\FE\22\20\04\3E\17\80\47\11\C3\09\2A\0C\40\AF\ED\52\11\55\00\C5\78\D6\1A\C1\38\05\3C\47\CD\8B\40\19\10\FD\E5\09\3A\8A\40\CB\4F\28\2F\E5\2A\0C\40\23\CB\47\20\04\11\F7\02\19\EB\E1\06\20\3E\56\0C\B9\20\02\E1\E5\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\23\13\10\E4\C1\C9\C1\ED\4B\88\40\CB\47\20\0D\3E\1F\5F\19\81\1E\55\BB\38\03\ED\52\37\E5\2A\0C\40\23\30\03\1E\1F\19\EB\E1\48\06\18\18\0F\3E\19\B9\20\0A\CD\8B\40\D5\11\4D\08\ED\52\D1\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\D5\11\55\00\19\E3\1E\21\19\D1\EB\0C\10\D3\C9
2 REM M$5 DIM INKEY$6-RNDLN 0)777 FAST E£RND)7 ;SGN \' 3 GOSUB %K7:4 GOSUB %KTAN
4 REM ***\ :%W%O%R%L%D% %G%E%O%G%R%A%P%H%Y\: *** BY SHAWN BYRNE
5 RAND
7 SLOW
10 LET DF=PEEK 16396+256*PEEK 16397
20 LET GET=DF-289
30 LET M=16540
40 LET M$=" "
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$=",\. 1\.';\ '\' \' \' $0 RETURN ;\.'H$9"+CHR$ 11+CHR$ 11+"?£8( SAVE W\.'\.'$£\. "+CHR$ 69+"2"+CHR$ 72+":+ 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)
2070 LET A$=CHR$ 84+"\.'"+CHR$ 11+",2<2\''M\''V,"+CHR$ 77+">:?H-"+CHR$ 72+" PLOT 2\##\: \: \. £8$\: "+CHR$ 71+" CLEAR B"+CHR$ 11
2080 FOR A=1 TO NN
2090 LET P$(A)=A$(2*A-1 TO )
2100 NEXT A
5000 POKE 16520,0
5002 POKE 16521,0
5004 POKE 16522,36
5010 FOR A=1 TO 8
5012 IF USR M OR USR M OR USR M OR USR M THEN REM
5014 NEXT A
5016 DIM T$(NN)
5018 LET CT=0
5030 LET D=INT (RND*NN)+1
5032 IF CODE T$(D) THEN GOTO 5030
5034 LET T$(D)="1"
5040 LET L$=N$(D, TO CODE N$(D,LN))
5060 LET Y=CODE P$(D,2)
5065 IF Y>128 THEN LET Y=Y-256
5070 POKE 16522,34+(Y<PEEK 16521)
5080 FOR A=1 TO ABS (Y-PEEK 16521)
5090 IF USR M THEN REM
5100 NEXT A
5110 LET B=PEEK 16520-CODE P$(D)
5120 POKE 16522,36-3*(B>0 AND B<42 OR B<-42)
5130 FOR A=1 TO ABS (85*(ABS B>42)-ABS B)
5132 IF USR M THEN REM
5134 NEXT A
5140 LET A=USR 16875
5160 PRINT AT 1,1;
5165 IF O$="1" THEN PRINT L$
5170 LET A=Y-26*(Y>26)
5180 LET B=DF+412+33*A*(Y<1 OR Y>26)
5190 LET F=PEEK B
5200 LET C=23+128*(F>127)
5210 FOR A=1 TO 15
5220 POKE B,C
5225 FOR D=1 TO 2
5226 NEXT D
5230 POKE B,F
5240 NEXT A
5245 IF O$="1" THEN GOTO 5500
5250 LET G$=L$+" "
5260 LET G$=G$( TO USR GET)
5262 REM A-Z,
5270 IF L$<>G$ THEN GOTO 5300
5280 LET A=INT (RND*3)*6+1
5282 PRINT AT 2,1;"RIGHT.GREAT.SUPER."(A TO A+5)
5290 FOR A=1 TO 12
5292 NEXT A
5295 GOTO 5500
5300 PRINT AT 2,1;"NO, THIS IS ";L$;"."
5310 FOR A=1 TO 35
5312 NEXT A
5500 LET CT=CT+1
5502 IF CT=NN THEN GOTO 5000
5510 PRINT AT 1,1;M$
5520 GOTO 5030
9998 SAVE "GE%O"
9999 RUN
People
\E1\E5\AF\EDF\EB\CBF\CB\FE\CBE\EB\ED\E4\C1\C9\C1\EDB\CB
Skip to content
World Geography
Quiz on geography.
Content
Image Gallery
Source Code
1 REM \3C\5B\51\63\00\00\3B\1A\21\3E\6F\32\7A\41\32\C6\41\3E\67\32\87\41\32\D3\41\C9\3E\67\32\7A\41\32\C6\41\3E\6F\32\87\41\32\D3\41\ED\5B\0C\40\3A\8A\40\CB\4F\28\2C\CB\47\3A\89\40\20\0F\FE\1A\C8\3C\21\21\00\19\01\F7\02\ED\B0\18\5B\FE\00\C8\3D\21\17\03\19\54\5D\01\21\00\ED\42\01\F7\02\ED\B8\18\45\06\00\CB\47\3A\88\40\20\1C\3C\FE\55\20\01\AF\32\88\40\13\62\6B\23\3E\18\0E\1F\ED\B0\23\23\13\13\3D\20\F5\18\23\3D\FE\FF\20\02\3E\54\32\88\40\21\17\03\19\54\5D\2B\3E\18\0E\1F\ED\B8\2B\2B\1B\1B\3D\20\F5\18\03\32\89\40\ED\4B\88\40\04\3A\8A\40\FE\22\20\04\3E\17\80\47\11\C3\09\2A\0C\40\AF\ED\52\11\55\00\C5\78\D6\1A\C1\38\05\3C\47\CD\8B\40\19\10\FD\E5\09\3A\8A\40\CB\4F\28\2F\E5\2A\0C\40\23\CB\47\20\04\11\F7\02\19\EB\E1\06\20\3E\56\0C\B9\20\02\E1\E5\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\23\13\10\E4\C1\C9\C1\ED\4B\88\40\CB\47\20\0D\3E\1F\5F\19\81\1E\55\BB\38\03\ED\52\37\E5\2A\0C\40\23\30\03\1E\1F\19\EB\E1\48\06\18\18\0F\3E\19\B9\20\0A\CD\8B\40\D5\11\4D\08\ED\52\D1\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\D5\11\55\00\19\E3\1E\21\19\D1\EB\0C\10\D3\C9
2 REM M$5 DIM INKEY$6-RNDLN 0)777 FAST E£RND)7 ;SGN \' 3 GOSUB %K7:4 GOSUB %KTAN
4 REM ***\ :%W%O%R%L%D% %G%E%O%G%R%A%P%H%Y\: *** BY SHAWN BYRNE
5 RAND
7 SLOW
10 LET DF=PEEK 16396+256*PEEK 16397
20 LET GET=DF-289
30 LET M=16540
40 LET M$=" "
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$=",\. 1\.';\ '\' \' \' $0 RETURN ;\.'H$9"+CHR$ 11+CHR$ 11+"?£8( SAVE W\.'\.'$£\. "+CHR$ 69+"2"+CHR$ 72+":+ 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)
2070 LET A$=CHR$ 84+"\.'"+CHR$ 11+",2<2\''M\''V,"+CHR$ 77+">:?H-"+CHR$ 72+" PLOT 2\##\: \: \. £8$\: "+CHR$ 71+" CLEAR B"+CHR$ 11
2080 FOR A=1 TO NN
2090 LET P$(A)=A$(2*A-1 TO )
2100 NEXT A
5000 POKE 16520,0
5002 POKE 16521,0
5004 POKE 16522,36
5010 FOR A=1 TO 8
5012 IF USR M OR USR M OR USR M OR USR M THEN REM
5014 NEXT A
5016 DIM T$(NN)
5018 LET CT=0
5030 LET D=INT (RND*NN)+1
5032 IF CODE T$(D) THEN GOTO 5030
5034 LET T$(D)="1"
5040 LET L$=N$(D, TO CODE N$(D,LN))
5060 LET Y=CODE P$(D,2)
5065 IF Y>128 THEN LET Y=Y-256
5070 POKE 16522,34+(Y<PEEK 16521)
5080 FOR A=1 TO ABS (Y-PEEK 16521)
5090 IF USR M THEN REM
5100 NEXT A
5110 LET B=PEEK 16520-CODE P$(D)
5120 POKE 16522,36-3*(B>0 AND B<42 OR B<-42)
5130 FOR A=1 TO ABS (85*(ABS B>42)-ABS B)
5132 IF USR M THEN REM
5134 NEXT A
5140 LET A=USR 16875
5160 PRINT AT 1,1;
5165 IF O$="1" THEN PRINT L$
5170 LET A=Y-26*(Y>26)
5180 LET B=DF+412+33*A*(Y<1 OR Y>26)
5190 LET F=PEEK B
5200 LET C=23+128*(F>127)
5210 FOR A=1 TO 15
5220 POKE B,C
5225 FOR D=1 TO 2
5226 NEXT D
5230 POKE B,F
5240 NEXT A
5245 IF O$="1" THEN GOTO 5500
5250 LET G$=L$+" "
5260 LET G$=G$( TO USR GET)
5262 REM A-Z,
5270 IF L$<>G$ THEN GOTO 5300
5280 LET A=INT (RND*3)*6+1
5282 PRINT AT 2,1;"RIGHT.GREAT.SUPER."(A TO A+5)
5290 FOR A=1 TO 12
5292 NEXT A
5295 GOTO 5500
5300 PRINT AT 2,1;"NO, THIS IS ";L$;"."
5310 FOR A=1 TO 35
5312 NEXT A
5500 LET CT=CT+1
5502 IF CT=NN THEN GOTO 5000
5510 PRINT AT 1,1;M$
5520 GOTO 5030
9998 SAVE "GE%O"
9999 RUN
People
DE itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56746 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"FF itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56746 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"E\BB\ED\E5
Skip to content
World Geography
Quiz on geography.
Content
Image Gallery
Source Code
1 REM \3C\5B\51\63\00\00\3B\1A\21\3E\6F\32\7A\41\32\C6\41\3E\67\32\87\41\32\D3\41\C9\3E\67\32\7A\41\32\C6\41\3E\6F\32\87\41\32\D3\41\ED\5B\0C\40\3A\8A\40\CB\4F\28\2C\CB\47\3A\89\40\20\0F\FE\1A\C8\3C\21\21\00\19\01\F7\02\ED\B0\18\5B\FE\00\C8\3D\21\17\03\19\54\5D\01\21\00\ED\42\01\F7\02\ED\B8\18\45\06\00\CB\47\3A\88\40\20\1C\3C\FE\55\20\01\AF\32\88\40\13\62\6B\23\3E\18\0E\1F\ED\B0\23\23\13\13\3D\20\F5\18\23\3D\FE\FF\20\02\3E\54\32\88\40\21\17\03\19\54\5D\2B\3E\18\0E\1F\ED\B8\2B\2B\1B\1B\3D\20\F5\18\03\32\89\40\ED\4B\88\40\04\3A\8A\40\FE\22\20\04\3E\17\80\47\11\C3\09\2A\0C\40\AF\ED\52\11\55\00\C5\78\D6\1A\C1\38\05\3C\47\CD\8B\40\19\10\FD\E5\09\3A\8A\40\CB\4F\28\2F\E5\2A\0C\40\23\CB\47\20\04\11\F7\02\19\EB\E1\06\20\3E\56\0C\B9\20\02\E1\E5\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\23\13\10\E4\C1\C9\C1\ED\4B\88\40\CB\47\20\0D\3E\1F\5F\19\81\1E\55\BB\38\03\ED\52\37\E5\2A\0C\40\23\30\03\1E\1F\19\EB\E1\48\06\18\18\0F\3E\19\B9\20\0A\CD\8B\40\D5\11\4D\08\ED\52\D1\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\D5\11\55\00\19\E3\1E\21\19\D1\EB\0C\10\D3\C9
2 REM M$5 DIM INKEY$6-RNDLN 0)777 FAST E£RND)7 ;SGN \' 3 GOSUB %K7:4 GOSUB %KTAN
4 REM ***\ :%W%O%R%L%D% %G%E%O%G%R%A%P%H%Y\: *** BY SHAWN BYRNE
5 RAND
7 SLOW
10 LET DF=PEEK 16396+256*PEEK 16397
20 LET GET=DF-289
30 LET M=16540
40 LET M$=" "
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$=",\. 1\.';\ '\' \' \' $0 RETURN ;\.'H$9"+CHR$ 11+CHR$ 11+"?£8( SAVE W\.'\.'$£\. "+CHR$ 69+"2"+CHR$ 72+":+ 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)
2070 LET A$=CHR$ 84+"\.'"+CHR$ 11+",2<2\''M\''V,"+CHR$ 77+">:?H-"+CHR$ 72+" PLOT 2\##\: \: \. £8$\: "+CHR$ 71+" CLEAR B"+CHR$ 11
2080 FOR A=1 TO NN
2090 LET P$(A)=A$(2*A-1 TO )
2100 NEXT A
5000 POKE 16520,0
5002 POKE 16521,0
5004 POKE 16522,36
5010 FOR A=1 TO 8
5012 IF USR M OR USR M OR USR M OR USR M THEN REM
5014 NEXT A
5016 DIM T$(NN)
5018 LET CT=0
5030 LET D=INT (RND*NN)+1
5032 IF CODE T$(D) THEN GOTO 5030
5034 LET T$(D)="1"
5040 LET L$=N$(D, TO CODE N$(D,LN))
5060 LET Y=CODE P$(D,2)
5065 IF Y>128 THEN LET Y=Y-256
5070 POKE 16522,34+(Y<PEEK 16521)
5080 FOR A=1 TO ABS (Y-PEEK 16521)
5090 IF USR M THEN REM
5100 NEXT A
5110 LET B=PEEK 16520-CODE P$(D)
5120 POKE 16522,36-3*(B>0 AND B<42 OR B<-42)
5130 FOR A=1 TO ABS (85*(ABS B>42)-ABS B)
5132 IF USR M THEN REM
5134 NEXT A
5140 LET A=USR 16875
5160 PRINT AT 1,1;
5165 IF O$="1" THEN PRINT L$
5170 LET A=Y-26*(Y>26)
5180 LET B=DF+412+33*A*(Y<1 OR Y>26)
5190 LET F=PEEK B
5200 LET C=23+128*(F>127)
5210 FOR A=1 TO 15
5220 POKE B,C
5225 FOR D=1 TO 2
5226 NEXT D
5230 POKE B,F
5240 NEXT A
5245 IF O$="1" THEN GOTO 5500
5250 LET G$=L$+" "
5260 LET G$=G$( TO USR GET)
5262 REM A-Z,
5270 IF L$<>G$ THEN GOTO 5300
5280 LET A=INT (RND*3)*6+1
5282 PRINT AT 2,1;"RIGHT.GREAT.SUPER."(A TO A+5)
5290 FOR A=1 TO 12
5292 NEXT A
5295 GOTO 5500
5300 PRINT AT 2,1;"NO, THIS IS ";L$;"."
5310 FOR A=1 TO 35
5312 NEXT A
5500 LET CT=CT+1
5502 IF CT=NN THEN GOTO 5000
5510 PRINT AT 1,1;M$
5520 GOTO 5030
9998 SAVE "GE%O"
9999 RUN
People
A
Skip to content
World Geography
Quiz on geography.
Content
Image Gallery
Source Code
1 REM \3C\5B\51\63\00\00\3B\1A\21\3E\6F\32\7A\41\32\C6\41\3E\67\32\87\41\32\D3\41\C9\3E\67\32\7A\41\32\C6\41\3E\6F\32\87\41\32\D3\41\ED\5B\0C\40\3A\8A\40\CB\4F\28\2C\CB\47\3A\89\40\20\0F\FE\1A\C8\3C\21\21\00\19\01\F7\02\ED\B0\18\5B\FE\00\C8\3D\21\17\03\19\54\5D\01\21\00\ED\42\01\F7\02\ED\B8\18\45\06\00\CB\47\3A\88\40\20\1C\3C\FE\55\20\01\AF\32\88\40\13\62\6B\23\3E\18\0E\1F\ED\B0\23\23\13\13\3D\20\F5\18\23\3D\FE\FF\20\02\3E\54\32\88\40\21\17\03\19\54\5D\2B\3E\18\0E\1F\ED\B8\2B\2B\1B\1B\3D\20\F5\18\03\32\89\40\ED\4B\88\40\04\3A\8A\40\FE\22\20\04\3E\17\80\47\11\C3\09\2A\0C\40\AF\ED\52\11\55\00\C5\78\D6\1A\C1\38\05\3C\47\CD\8B\40\19\10\FD\E5\09\3A\8A\40\CB\4F\28\2F\E5\2A\0C\40\23\CB\47\20\04\11\F7\02\19\EB\E1\06\20\3E\56\0C\B9\20\02\E1\E5\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\23\13\10\E4\C1\C9\C1\ED\4B\88\40\CB\47\20\0D\3E\1F\5F\19\81\1E\55\BB\38\03\ED\52\37\E5\2A\0C\40\23\30\03\1E\1F\19\EB\E1\48\06\18\18\0F\3E\19\B9\20\0A\CD\8B\40\D5\11\4D\08\ED\52\D1\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\D5\11\55\00\19\E3\1E\21\19\D1\EB\0C\10\D3\C9
2 REM M$5 DIM INKEY$6-RNDLN 0)777 FAST E£RND)7 ;SGN \' 3 GOSUB %K7:4 GOSUB %KTAN
4 REM ***\ :%W%O%R%L%D% %G%E%O%G%R%A%P%H%Y\: *** BY SHAWN BYRNE
5 RAND
7 SLOW
10 LET DF=PEEK 16396+256*PEEK 16397
20 LET GET=DF-289
30 LET M=16540
40 LET M$=" "
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$=",\. 1\.';\ '\' \' \' $0 RETURN ;\.'H$9"+CHR$ 11+CHR$ 11+"?£8( SAVE W\.'\.'$£\. "+CHR$ 69+"2"+CHR$ 72+":+ 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)
2070 LET A$=CHR$ 84+"\.'"+CHR$ 11+",2<2\''M\''V,"+CHR$ 77+">:?H-"+CHR$ 72+" PLOT 2\##\: \: \. £8$\: "+CHR$ 71+" CLEAR B"+CHR$ 11
2080 FOR A=1 TO NN
2090 LET P$(A)=A$(2*A-1 TO )
2100 NEXT A
5000 POKE 16520,0
5002 POKE 16521,0
5004 POKE 16522,36
5010 FOR A=1 TO 8
5012 IF USR M OR USR M OR USR M OR USR M THEN REM
5014 NEXT A
5016 DIM T$(NN)
5018 LET CT=0
5030 LET D=INT (RND*NN)+1
5032 IF CODE T$(D) THEN GOTO 5030
5034 LET T$(D)="1"
5040 LET L$=N$(D, TO CODE N$(D,LN))
5060 LET Y=CODE P$(D,2)
5065 IF Y>128 THEN LET Y=Y-256
5070 POKE 16522,34+(Y<PEEK 16521)
5080 FOR A=1 TO ABS (Y-PEEK 16521)
5090 IF USR M THEN REM
5100 NEXT A
5110 LET B=PEEK 16520-CODE P$(D)
5120 POKE 16522,36-3*(B>0 AND B<42 OR B<-42)
5130 FOR A=1 TO ABS (85*(ABS B>42)-ABS B)
5132 IF USR M THEN REM
5134 NEXT A
5140 LET A=USR 16875
5160 PRINT AT 1,1;
5165 IF O$="1" THEN PRINT L$
5170 LET A=Y-26*(Y>26)
5180 LET B=DF+412+33*A*(Y<1 OR Y>26)
5190 LET F=PEEK B
5200 LET C=23+128*(F>127)
5210 FOR A=1 TO 15
5220 POKE B,C
5225 FOR D=1 TO 2
5226 NEXT D
5230 POKE B,F
5240 NEXT A
5245 IF O$="1" THEN GOTO 5500
5250 LET G$=L$+" "
5260 LET G$=G$( TO USR GET)
5262 REM A-Z,
5270 IF L$<>G$ THEN GOTO 5300
5280 LET A=INT (RND*3)*6+1
5282 PRINT AT 2,1;"RIGHT.GREAT.SUPER."(A TO A+5)
5290 FOR A=1 TO 12
5292 NEXT A
5295 GOTO 5500
5300 PRINT AT 2,1;"NO, THIS IS ";L$;"."
5310 FOR A=1 TO 35
5312 NEXT A
5500 LET CT=CT+1
5502 IF CT=NN THEN GOTO 5000
5510 PRINT AT 1,1;M$
5520 GOTO 5030
9998 SAVE "GE%O"
9999 RUN
People
C itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56746 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"E itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56746 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"F\EB\E1
Skip to content
World Geography
Quiz on geography.
Content
Image Gallery
Source Code
1 REM \3C\5B\51\63\00\00\3B\1A\21\3E\6F\32\7A\41\32\C6\41\3E\67\32\87\41\32\D3\41\C9\3E\67\32\7A\41\32\C6\41\3E\6F\32\87\41\32\D3\41\ED\5B\0C\40\3A\8A\40\CB\4F\28\2C\CB\47\3A\89\40\20\0F\FE\1A\C8\3C\21\21\00\19\01\F7\02\ED\B0\18\5B\FE\00\C8\3D\21\17\03\19\54\5D\01\21\00\ED\42\01\F7\02\ED\B8\18\45\06\00\CB\47\3A\88\40\20\1C\3C\FE\55\20\01\AF\32\88\40\13\62\6B\23\3E\18\0E\1F\ED\B0\23\23\13\13\3D\20\F5\18\23\3D\FE\FF\20\02\3E\54\32\88\40\21\17\03\19\54\5D\2B\3E\18\0E\1F\ED\B8\2B\2B\1B\1B\3D\20\F5\18\03\32\89\40\ED\4B\88\40\04\3A\8A\40\FE\22\20\04\3E\17\80\47\11\C3\09\2A\0C\40\AF\ED\52\11\55\00\C5\78\D6\1A\C1\38\05\3C\47\CD\8B\40\19\10\FD\E5\09\3A\8A\40\CB\4F\28\2F\E5\2A\0C\40\23\CB\47\20\04\11\F7\02\19\EB\E1\06\20\3E\56\0C\B9\20\02\E1\E5\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\23\13\10\E4\C1\C9\C1\ED\4B\88\40\CB\47\20\0D\3E\1F\5F\19\81\1E\55\BB\38\03\ED\52\37\E5\2A\0C\40\23\30\03\1E\1F\19\EB\E1\48\06\18\18\0F\3E\19\B9\20\0A\CD\8B\40\D5\11\4D\08\ED\52\D1\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\D5\11\55\00\19\E3\1E\21\19\D1\EB\0C\10\D3\C9
2 REM M$5 DIM INKEY$6-RNDLN 0)777 FAST E£RND)7 ;SGN \' 3 GOSUB %K7:4 GOSUB %KTAN
4 REM ***\ :%W%O%R%L%D% %G%E%O%G%R%A%P%H%Y\: *** BY SHAWN BYRNE
5 RAND
7 SLOW
10 LET DF=PEEK 16396+256*PEEK 16397
20 LET GET=DF-289
30 LET M=16540
40 LET M$=" "
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$=",\. 1\.';\ '\' \' \' $0 RETURN ;\.'H$9"+CHR$ 11+CHR$ 11+"?£8( SAVE W\.'\.'$£\. "+CHR$ 69+"2"+CHR$ 72+":+ 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)
2070 LET A$=CHR$ 84+"\.'"+CHR$ 11+",2<2\''M\''V,"+CHR$ 77+">:?H-"+CHR$ 72+" PLOT 2\##\: \: \. £8$\: "+CHR$ 71+" CLEAR B"+CHR$ 11
2080 FOR A=1 TO NN
2090 LET P$(A)=A$(2*A-1 TO )
2100 NEXT A
5000 POKE 16520,0
5002 POKE 16521,0
5004 POKE 16522,36
5010 FOR A=1 TO 8
5012 IF USR M OR USR M OR USR M OR USR M THEN REM
5014 NEXT A
5016 DIM T$(NN)
5018 LET CT=0
5030 LET D=INT (RND*NN)+1
5032 IF CODE T$(D) THEN GOTO 5030
5034 LET T$(D)="1"
5040 LET L$=N$(D, TO CODE N$(D,LN))
5060 LET Y=CODE P$(D,2)
5065 IF Y>128 THEN LET Y=Y-256
5070 POKE 16522,34+(Y<PEEK 16521)
5080 FOR A=1 TO ABS (Y-PEEK 16521)
5090 IF USR M THEN REM
5100 NEXT A
5110 LET B=PEEK 16520-CODE P$(D)
5120 POKE 16522,36-3*(B>0 AND B<42 OR B<-42)
5130 FOR A=1 TO ABS (85*(ABS B>42)-ABS B)
5132 IF USR M THEN REM
5134 NEXT A
5140 LET A=USR 16875
5160 PRINT AT 1,1;
5165 IF O$="1" THEN PRINT L$
5170 LET A=Y-26*(Y>26)
5180 LET B=DF+412+33*A*(Y<1 OR Y>26)
5190 LET F=PEEK B
5200 LET C=23+128*(F>127)
5210 FOR A=1 TO 15
5220 POKE B,C
5225 FOR D=1 TO 2
5226 NEXT D
5230 POKE B,F
5240 NEXT A
5245 IF O$="1" THEN GOTO 5500
5250 LET G$=L$+" "
5260 LET G$=G$( TO USR GET)
5262 REM A-Z,
5270 IF L$<>G$ THEN GOTO 5300
5280 LET A=INT (RND*3)*6+1
5282 PRINT AT 2,1;"RIGHT.GREAT.SUPER."(A TO A+5)
5290 FOR A=1 TO 12
5292 NEXT A
5295 GOTO 5500
5300 PRINT AT 2,1;"NO, THIS IS ";L$;"."
5310 FOR A=1 TO 35
5312 NEXT A
5500 LET CT=CT+1
5502 IF CT=NN THEN GOTO 5000
5510 PRINT AT 1,1;M$
5520 GOTO 5030
9998 SAVE "GE%O"
9999 RUN
People
FE\B9
Skip to content
World Geography
Quiz on geography.
Content
Image Gallery
Source Code
1 REM \3C\5B\51\63\00\00\3B\1A\21\3E\6F\32\7A\41\32\C6\41\3E\67\32\87\41\32\D3\41\C9\3E\67\32\7A\41\32\C6\41\3E\6F\32\87\41\32\D3\41\ED\5B\0C\40\3A\8A\40\CB\4F\28\2C\CB\47\3A\89\40\20\0F\FE\1A\C8\3C\21\21\00\19\01\F7\02\ED\B0\18\5B\FE\00\C8\3D\21\17\03\19\54\5D\01\21\00\ED\42\01\F7\02\ED\B8\18\45\06\00\CB\47\3A\88\40\20\1C\3C\FE\55\20\01\AF\32\88\40\13\62\6B\23\3E\18\0E\1F\ED\B0\23\23\13\13\3D\20\F5\18\23\3D\FE\FF\20\02\3E\54\32\88\40\21\17\03\19\54\5D\2B\3E\18\0E\1F\ED\B8\2B\2B\1B\1B\3D\20\F5\18\03\32\89\40\ED\4B\88\40\04\3A\8A\40\FE\22\20\04\3E\17\80\47\11\C3\09\2A\0C\40\AF\ED\52\11\55\00\C5\78\D6\1A\C1\38\05\3C\47\CD\8B\40\19\10\FD\E5\09\3A\8A\40\CB\4F\28\2F\E5\2A\0C\40\23\CB\47\20\04\11\F7\02\19\EB\E1\06\20\3E\56\0C\B9\20\02\E1\E5\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\23\13\10\E4\C1\C9\C1\ED\4B\88\40\CB\47\20\0D\3E\1F\5F\19\81\1E\55\BB\38\03\ED\52\37\E5\2A\0C\40\23\30\03\1E\1F\19\EB\E1\48\06\18\18\0F\3E\19\B9\20\0A\CD\8B\40\D5\11\4D\08\ED\52\D1\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\D5\11\55\00\19\E3\1E\21\19\D1\EB\0C\10\D3\C9
2 REM M$5 DIM INKEY$6-RNDLN 0)777 FAST E£RND)7 ;SGN \' 3 GOSUB %K7:4 GOSUB %KTAN
4 REM ***\ :%W%O%R%L%D% %G%E%O%G%R%A%P%H%Y\: *** BY SHAWN BYRNE
5 RAND
7 SLOW
10 LET DF=PEEK 16396+256*PEEK 16397
20 LET GET=DF-289
30 LET M=16540
40 LET M$=" "
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$=",\. 1\.';\ '\' \' \' $0 RETURN ;\.'H$9"+CHR$ 11+CHR$ 11+"?£8( SAVE W\.'\.'$£\. "+CHR$ 69+"2"+CHR$ 72+":+ 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)
2070 LET A$=CHR$ 84+"\.'"+CHR$ 11+",2<2\''M\''V,"+CHR$ 77+">:?H-"+CHR$ 72+" PLOT 2\##\: \: \. £8$\: "+CHR$ 71+" CLEAR B"+CHR$ 11
2080 FOR A=1 TO NN
2090 LET P$(A)=A$(2*A-1 TO )
2100 NEXT A
5000 POKE 16520,0
5002 POKE 16521,0
5004 POKE 16522,36
5010 FOR A=1 TO 8
5012 IF USR M OR USR M OR USR M OR USR M THEN REM
5014 NEXT A
5016 DIM T$(NN)
5018 LET CT=0
5030 LET D=INT (RND*NN)+1
5032 IF CODE T$(D) THEN GOTO 5030
5034 LET T$(D)="1"
5040 LET L$=N$(D, TO CODE N$(D,LN))
5060 LET Y=CODE P$(D,2)
5065 IF Y>128 THEN LET Y=Y-256
5070 POKE 16522,34+(Y<PEEK 16521)
5080 FOR A=1 TO ABS (Y-PEEK 16521)
5090 IF USR M THEN REM
5100 NEXT A
5110 LET B=PEEK 16520-CODE P$(D)
5120 POKE 16522,36-3*(B>0 AND B<42 OR B<-42)
5130 FOR A=1 TO ABS (85*(ABS B>42)-ABS B)
5132 IF USR M THEN REM
5134 NEXT A
5140 LET A=USR 16875
5160 PRINT AT 1,1;
5165 IF O$="1" THEN PRINT L$
5170 LET A=Y-26*(Y>26)
5180 LET B=DF+412+33*A*(Y<1 OR Y>26)
5190 LET F=PEEK B
5200 LET C=23+128*(F>127)
5210 FOR A=1 TO 15
5220 POKE B,C
5225 FOR D=1 TO 2
5226 NEXT D
5230 POKE B,F
5240 NEXT A
5245 IF O$="1" THEN GOTO 5500
5250 LET G$=L$+" "
5260 LET G$=G$( TO USR GET)
5262 REM A-Z,
5270 IF L$<>G$ THEN GOTO 5300
5280 LET A=INT (RND*3)*6+1
5282 PRINT AT 2,1;"RIGHT.GREAT.SUPER."(A TO A+5)
5290 FOR A=1 TO 12
5292 NEXT A
5295 GOTO 5500
5300 PRINT AT 2,1;"NO, THIS IS ";L$;"."
5310 FOR A=1 TO 35
5312 NEXT A
5500 LET CT=CT+1
5502 IF CT=NN THEN GOTO 5000
5510 PRINT AT 1,1;M$
5520 GOTO 5030
9998 SAVE "GE%O"
9999 RUN
People
A\CDB\D5D\ED\D1\AF\EDF\EB\CBF\CB\FE\CBE\EB\ED\D5
Skip to content
World Geography
Quiz on geography.
Content
Image Gallery
Source Code
1 REM \3C\5B\51\63\00\00\3B\1A\21\3E\6F\32\7A\41\32\C6\41\3E\67\32\87\41\32\D3\41\C9\3E\67\32\7A\41\32\C6\41\3E\6F\32\87\41\32\D3\41\ED\5B\0C\40\3A\8A\40\CB\4F\28\2C\CB\47\3A\89\40\20\0F\FE\1A\C8\3C\21\21\00\19\01\F7\02\ED\B0\18\5B\FE\00\C8\3D\21\17\03\19\54\5D\01\21\00\ED\42\01\F7\02\ED\B8\18\45\06\00\CB\47\3A\88\40\20\1C\3C\FE\55\20\01\AF\32\88\40\13\62\6B\23\3E\18\0E\1F\ED\B0\23\23\13\13\3D\20\F5\18\23\3D\FE\FF\20\02\3E\54\32\88\40\21\17\03\19\54\5D\2B\3E\18\0E\1F\ED\B8\2B\2B\1B\1B\3D\20\F5\18\03\32\89\40\ED\4B\88\40\04\3A\8A\40\FE\22\20\04\3E\17\80\47\11\C3\09\2A\0C\40\AF\ED\52\11\55\00\C5\78\D6\1A\C1\38\05\3C\47\CD\8B\40\19\10\FD\E5\09\3A\8A\40\CB\4F\28\2F\E5\2A\0C\40\23\CB\47\20\04\11\F7\02\19\EB\E1\06\20\3E\56\0C\B9\20\02\E1\E5\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\23\13\10\E4\C1\C9\C1\ED\4B\88\40\CB\47\20\0D\3E\1F\5F\19\81\1E\55\BB\38\03\ED\52\37\E5\2A\0C\40\23\30\03\1E\1F\19\EB\E1\48\06\18\18\0F\3E\19\B9\20\0A\CD\8B\40\D5\11\4D\08\ED\52\D1\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\D5\11\55\00\19\E3\1E\21\19\D1\EB\0C\10\D3\C9
2 REM M$5 DIM INKEY$6-RNDLN 0)777 FAST E£RND)7 ;SGN \' 3 GOSUB %K7:4 GOSUB %KTAN
4 REM ***\ :%W%O%R%L%D% %G%E%O%G%R%A%P%H%Y\: *** BY SHAWN BYRNE
5 RAND
7 SLOW
10 LET DF=PEEK 16396+256*PEEK 16397
20 LET GET=DF-289
30 LET M=16540
40 LET M$=" "
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$=",\. 1\.';\ '\' \' \' $0 RETURN ;\.'H$9"+CHR$ 11+CHR$ 11+"?£8( SAVE W\.'\.'$£\. "+CHR$ 69+"2"+CHR$ 72+":+ 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)
2070 LET A$=CHR$ 84+"\.'"+CHR$ 11+",2<2\''M\''V,"+CHR$ 77+">:?H-"+CHR$ 72+" PLOT 2\##\: \: \. £8$\: "+CHR$ 71+" CLEAR B"+CHR$ 11
2080 FOR A=1 TO NN
2090 LET P$(A)=A$(2*A-1 TO )
2100 NEXT A
5000 POKE 16520,0
5002 POKE 16521,0
5004 POKE 16522,36
5010 FOR A=1 TO 8
5012 IF USR M OR USR M OR USR M OR USR M THEN REM
5014 NEXT A
5016 DIM T$(NN)
5018 LET CT=0
5030 LET D=INT (RND*NN)+1
5032 IF CODE T$(D) THEN GOTO 5030
5034 LET T$(D)="1"
5040 LET L$=N$(D, TO CODE N$(D,LN))
5060 LET Y=CODE P$(D,2)
5065 IF Y>128 THEN LET Y=Y-256
5070 POKE 16522,34+(Y<PEEK 16521)
5080 FOR A=1 TO ABS (Y-PEEK 16521)
5090 IF USR M THEN REM
5100 NEXT A
5110 LET B=PEEK 16520-CODE P$(D)
5120 POKE 16522,36-3*(B>0 AND B<42 OR B<-42)
5130 FOR A=1 TO ABS (85*(ABS B>42)-ABS B)
5132 IF USR M THEN REM
5134 NEXT A
5140 LET A=USR 16875
5160 PRINT AT 1,1;
5165 IF O$="1" THEN PRINT L$
5170 LET A=Y-26*(Y>26)
5180 LET B=DF+412+33*A*(Y<1 OR Y>26)
5190 LET F=PEEK B
5200 LET C=23+128*(F>127)
5210 FOR A=1 TO 15
5220 POKE B,C
5225 FOR D=1 TO 2
5226 NEXT D
5230 POKE B,F
5240 NEXT A
5245 IF O$="1" THEN GOTO 5500
5250 LET G$=L$+" "
5260 LET G$=G$( TO USR GET)
5262 REM A-Z,
5270 IF L$<>G$ THEN GOTO 5300
5280 LET A=INT (RND*3)*6+1
5282 PRINT AT 2,1;"RIGHT.GREAT.SUPER."(A TO A+5)
5290 FOR A=1 TO 12
5292 NEXT A
5295 GOTO 5500
5300 PRINT AT 2,1;"NO, THIS IS ";L$;"."
5310 FOR A=1 TO 35
5312 NEXT A
5500 LET CT=CT+1
5502 IF CT=NN THEN GOTO 5000
5510 PRINT AT 1,1;M$
5520 GOTO 5030
9998 SAVE "GE%O"
9999 RUN
People
\E3 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56746 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"E\D1\EB
Skip to content
World Geography
Quiz on geography.
Content
Image Gallery
Source Code
1 REM \3C\5B\51\63\00\00\3B\1A\21\3E\6F\32\7A\41\32\C6\41\3E\67\32\87\41\32\D3\41\C9\3E\67\32\7A\41\32\C6\41\3E\6F\32\87\41\32\D3\41\ED\5B\0C\40\3A\8A\40\CB\4F\28\2C\CB\47\3A\89\40\20\0F\FE\1A\C8\3C\21\21\00\19\01\F7\02\ED\B0\18\5B\FE\00\C8\3D\21\17\03\19\54\5D\01\21\00\ED\42\01\F7\02\ED\B8\18\45\06\00\CB\47\3A\88\40\20\1C\3C\FE\55\20\01\AF\32\88\40\13\62\6B\23\3E\18\0E\1F\ED\B0\23\23\13\13\3D\20\F5\18\23\3D\FE\FF\20\02\3E\54\32\88\40\21\17\03\19\54\5D\2B\3E\18\0E\1F\ED\B8\2B\2B\1B\1B\3D\20\F5\18\03\32\89\40\ED\4B\88\40\04\3A\8A\40\FE\22\20\04\3E\17\80\47\11\C3\09\2A\0C\40\AF\ED\52\11\55\00\C5\78\D6\1A\C1\38\05\3C\47\CD\8B\40\19\10\FD\E5\09\3A\8A\40\CB\4F\28\2F\E5\2A\0C\40\23\CB\47\20\04\11\F7\02\19\EB\E1\06\20\3E\56\0C\B9\20\02\E1\E5\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\23\13\10\E4\C1\C9\C1\ED\4B\88\40\CB\47\20\0D\3E\1F\5F\19\81\1E\55\BB\38\03\ED\52\37\E5\2A\0C\40\23\30\03\1E\1F\19\EB\E1\48\06\18\18\0F\3E\19\B9\20\0A\CD\8B\40\D5\11\4D\08\ED\52\D1\AF\ED\6F\EB\77\CB\5F\28\04\CB\FE\CB\9E\EB\ED\67\D5\11\55\00\19\E3\1E\21\19\D1\EB\0C\10\D3\C9
2 REM M$5 DIM INKEY$6-RNDLN 0)777 FAST E£RND)7 ;SGN \' 3 GOSUB %K7:4 GOSUB %KTAN
4 REM ***\ :%W%O%R%L%D% %G%E%O%G%R%A%P%H%Y\: *** BY SHAWN BYRNE
5 RAND
7 SLOW
10 LET DF=PEEK 16396+256*PEEK 16397
20 LET GET=DF-289
30 LET M=16540
40 LET M$=" "
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$=",\. 1\.';\ '\' \' \' $0 RETURN ;\.'H$9"+CHR$ 11+CHR$ 11+"?£8( SAVE W\.'\.'$£\. "+CHR$ 69+"2"+CHR$ 72+":+ 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)
2070 LET A$=CHR$ 84+"\.'"+CHR$ 11+",2<2\''M\''V,"+CHR$ 77+">:?H-"+CHR$ 72+" PLOT 2\##\: \: \. £8$\: "+CHR$ 71+" CLEAR B"+CHR$ 11
2080 FOR A=1 TO NN
2090 LET P$(A)=A$(2*A-1 TO )
2100 NEXT A
5000 POKE 16520,0
5002 POKE 16521,0
5004 POKE 16522,36
5010 FOR A=1 TO 8
5012 IF USR M OR USR M OR USR M OR USR M THEN REM
5014 NEXT A
5016 DIM T$(NN)
5018 LET CT=0
5030 LET D=INT (RND*NN)+1
5032 IF CODE T$(D) THEN GOTO 5030
5034 LET T$(D)="1"
5040 LET L$=N$(D, TO CODE N$(D,LN))
5060 LET Y=CODE P$(D,2)
5065 IF Y>128 THEN LET Y=Y-256
5070 POKE 16522,34+(Y<PEEK 16521)
5080 FOR A=1 TO ABS (Y-PEEK 16521)
5090 IF USR M THEN REM
5100 NEXT A
5110 LET B=PEEK 16520-CODE P$(D)
5120 POKE 16522,36-3*(B>0 AND B<42 OR B<-42)
5130 FOR A=1 TO ABS (85*(ABS B>42)-ABS B)
5132 IF USR M THEN REM
5134 NEXT A
5140 LET A=USR 16875
5160 PRINT AT 1,1;
5165 IF O$="1" THEN PRINT L$
5170 LET A=Y-26*(Y>26)
5180 LET B=DF+412+33*A*(Y<1 OR Y>26)
5190 LET F=PEEK B
5200 LET C=23+128*(F>127)
5210 FOR A=1 TO 15
5220 POKE B,C
5225 FOR D=1 TO 2
5226 NEXT D
5230 POKE B,F
5240 NEXT A
5245 IF O$="1" THEN GOTO 5500
5250 LET G$=L$+" "
5260 LET G$=G$( TO USR GET)
5262 REM A-Z,
5270 IF L$<>G$ THEN GOTO 5300
5280 LET A=INT (RND*3)*6+1
5282 PRINT AT 2,1;"RIGHT.GREAT.SUPER."(A TO A+5)
5290 FOR A=1 TO 12
5292 NEXT A
5295 GOTO 5500
5300 PRINT AT 2,1;"NO, THIS IS ";L$;"."
5310 FOR A=1 TO 35
5312 NEXT A
5500 LET CT=CT+1
5502 IF CT=NN THEN GOTO 5000
5510 PRINT AT 1,1;M$
5520 GOTO 5030
9998 SAVE "GE%O"
9999 RUN
People
C\D3\C9
2 REM M$5 DIM INKEY$6-RNDLN 0)777 FAST E£RND)7 ;SGN \' 3 GOSUB %K7:4 GOSUB %KTAN
4 REM ***\ :%W%O%R%L%D% %G%E%O%G%R%A%P%H%Y\: *** BY SHAWN BYRNE
5 RAND
7 SLOW
10 LET DF=PEEK 16396+256*PEEK 16397
20 LET GET=DF-289
30 LET M=16540
40 LET M$=" "
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
\n1000 LET LN=17
\n1002 LET NN=19
\n1016 DIM N$(NN,LN)
\n1018 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 \,,"
\n1020 FOR A=1 TO NN
\n1030 LET N$(A)=A$(1+LN*(A-1) TO )
\n1040 NEXT A
\n1060 DIM P$(NN,2)
\n1070 LET A$=",\. 1\.';\ '\' \' \' $0 RETURN ;\.'H$9"+CHR$ 11+CHR$ 11+"?£8( SAVE W\.'\.'$£\. "+CHR$ 69+"2"+CHR$ 72+":+ CLEAR S<"
\n1080 FOR A=1 TO NN
\n1090 LET P$(A)=A$(2*A-1 TO )
\n1100 NEXT A
\n1110 GOTO 5000
\n2000 LET LN=18
\n2002 LET NN=17
\n2016 DIM N$(NN,LN)
\n2018 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 £"
\n2020 FOR A=1 TO NN
\n2030 LET N$(A)=A$(1+LN*(A-1) TO )
\n2040 NEXT A
\n2060 DIM P$(NN,2)
\n2070 LET A$=CHR$ 84+"\.'"+CHR$ 11+",2<2\''M\''V,"+CHR$ 77+">:?H-"+CHR$ 72+" PLOT 2\##\: \: \. £8$\: "+CHR$ 71+" CLEAR B"+CHR$ 11
\n2080 FOR A=1 TO NN
\n2090 LET P$(A)=A$(2*A-1 TO )
\n2100 NEXT A
\n5000 POKE 16520,0
\n5002 POKE 16521,0
\n5004 POKE 16522,36
\n5010 FOR A=1 TO 8
\n5012 IF USR M OR USR M OR USR M OR USR M THEN REM
\n5014 NEXT A
\n5016 DIM T$(NN)
\n5018 LET CT=0
\n5030 LET D=INT (RND*NN)+1
\n5032 IF CODE T$(D) THEN GOTO 5030
\n5034 LET T$(D)="1"
\n5040 LET L$=N$(D, TO CODE N$(D,LN))
\n5060 LET Y=CODE P$(D,2)
\n5065 IF Y>128 THEN LET Y=Y-256
\n5070 POKE 16522,34+(Y<PEEK 16521)
\n5080 FOR A=1 TO ABS (Y-PEEK 16521)
\n5090 IF USR M THEN REM
\n5100 NEXT A
\n5110 LET B=PEEK 16520-CODE P$(D)
\n5120 POKE 16522,36-3*(B>0 AND B<42 OR B<-42)
\n5130 FOR A=1 TO ABS (85*(ABS B>42)-ABS B)
\n5132 IF USR M THEN REM
\n5134 NEXT A
\n5140 LET A=USR 16875
\n5160 PRINT AT 1,1;
\n5165 IF O$="1" THEN PRINT L$
\n5170 LET A=Y-26*(Y>26)
\n5180 LET B=DF+412+33*A*(Y<1 OR Y>26)
\n5190 LET F=PEEK B
\n5200 LET C=23+128*(F>127)
\n5210 FOR A=1 TO 15
\n5220 POKE B,C
\n5225 FOR D=1 TO 2
\n5226 NEXT D
\n5230 POKE B,F
\n5240 NEXT A
\n5245 IF O$="1" THEN GOTO 5500
\n5250 LET G$=L$+" "
\n5260 LET G$=G$( TO USR GET)
\n5262 REM A-Z,
\n5270 IF L$<>G$ THEN GOTO 5300
\n5280 LET A=INT (RND*3)*6+1
\n5282 PRINT AT 2,1;"RIGHT.GREAT.SUPER."(A TO A+5)
\n5290 FOR A=1 TO 12
\n5292 NEXT A
\n5295 GOTO 5500
\n5300 PRINT AT 2,1;"NO, THIS IS ";L$;"."
\n5310 FOR A=1 TO 35
\n5312 NEXT A
\n5500 LET CT=CT+1
\n5502 IF CT=NN THEN GOTO 5000
\n5510 PRINT AT 1,1;M$
\n5520 GOTO 5030
\n9998 SAVE "GE%O"
\n9999 RUN
