0 IFX=1THENGOTO30
5 POKE53280,6:POKE53281,6:POKE646,1
10 PRINT"[147]";CHR$(14):DN=PEEK(186)
20 X=1:LOAD"SEC AD",DN,1
30 GETA$:IFA$=""GOTO30
1000 PRINT"[147]          [204]OADING [205]ENU [208]ROGRAM"
1001 PRINT"             [208]LEASE [215]AIT..."
1002 PRINT"NEW"
1003 PRINT"LOAD"+CHR$(34)+"MENU.ADVERT"+CHR$(34)+",8"
1004 PRINT"RUN"
1005 POKE 630+1,19
1010 FORI=2TO4:POKE630+I,13:NEXT
1020 POKE198,4