10 PRINTCHR$(14):POKE 53280,11:POKE 53281,11:POKE 646,15
20 PRINT"[147]":A$="[212]HE [204][207][193][196][197][210]-[205][193][203][197][210][155] PROGRAM IS":GOSUB270
30 A$=" MACHINE CODE FOR USE AS SPECIFIED IN ":GOSUB270
40 A$="THE CURRENT ISSUE OF  ":GOSUB270:A$="[195][207][205][208][213][212][197]'S [199]AZETTE[155].":GOSUB270
50 A$=" [208]LEASE REFER TO THAT ARTICLE FOR ":GOSUB270
80 A$=" INSTRUCTIONS. ":GOSUB270
200 FORD=1TO40:PRINT"[155][164]";:NEXT
210 PRINT"    [208]RESS ANY KEY TO RELOAD THE MENU    [146]"
220 GETDH$:IFDH$=""THEN220
225 POKE53280,0:POKE53281,0:PRINT"[147]":PRINT"              [204]OADING [199][207][211]"
230 PRINT"[144]LOAD";CHR$(34);"GOS.MENU";CHR$(34);",8"
240 PRINT"RUN"
250 POKE198,4:POKE631,19:POKE632,13:POKE633,13
260 END
270 FOR X=1 TO 20-LEN(A$)/2:PRINTCHR$(32);:NEXT:PRINTA$:RETURN