10 POKE 53280,14:POKE 53281,14:POKE 646,0
20 PRINTCHR$(14)"[147][212]HE DISK FILE [151][199][197][207][208][213][218][218][204][197].[211][210][195][144] IS THE"
30 PRINT"SOURCE CODE FOR LAST MONTH'S [199]EO[208]UZZLE"
40 PRINT"GAME. [201]T IS SAVED IN [208][193][204] FORMAT AND IS"
50 PRINT"INCLUDED FOR PROGRAMMERS WHO WISH TO"
60 PRINT"STUDY AND LEARN HOW TO WRITE [199][197][207][211]"
70 PRINT"APPLICATIONS."
80 PRINT"[208]LEASE CONSULT THE ARTICLE FOR"
90 PRINT"MORE DETAILED INFORMATION ABOUT [199][197][207][211]"
100 PRINT"APPLICATIONS.[151]"
110 FORD=1TO39:PRINT"[164]";:NEXT:PRINT
120 PRINT"[151]    [208][210][197][211][211] [210][197][212][213][210][206] [212][207] [210][197][204][207][193][196] [212][200][197] [205][197][206][213]    [146]"
130 FORD=1TO39:PRINT"[164]";:NEXT:PRINT
140 PRINT"[151]  [208][210][197][211][211] [193] [203][197][217] [212][207] [204][207][193][196] [199]EO[208]UZZLE [211][207][213][210][195][197] [146]"
150 POKE198,0:WAIT198,1:GETDH$
160 IF DH$=CHR$(13)THEN180
170 IF DH$<>CHR$(13)THEN220
180 PRINT"[147]":S$="L[207]"+CHR$(34)+"MN"+CHR$(34)+",8:"+CHR$(131)
190 FORI=1TOLEN(S$):POKE630+I,ASC(MID$(S$,I)):NEXT:POKE198,I
200 POKE53281,15:POKE53280,15
210 PRINTCHR$(142)"[145]          RELOADING THE MENU[155]":END
220 PRINT"[147][154]LOAD"CHR$(34)"GEOPUZZLE.SRC"CHR$(34)",8"
230 PRINT"POKE646,0:LIST"
240 PRINTCHR$(142)"[144]JUST A MOMENT...LOADING GEOPUZZLE.SRC[146][154]";
250 FORI=1TO2:POKE630+I,13:NEXT:POKE198,I