0 REM8/3/84
5 :
10 REMAD.MENU
20 DIMA$(80,1)
30 X=1020
100 RESTORE:FORC=1TO80:READA$(C,0),A$(C,1):IFA$(C,0)="END"THENL=C-1:GOTO120
110 NEXTC
120 A$(L+1,0)="":A$(L+1,1)=""
125 T1=PEEK(X):IFT1=PEEK(X+1)THENIFT1<=LTHENIFT1>=0THEN150
130 REM
140 POKEX,0:POKEX+1,0:RUN
150 POKE53281,5:POKE53280,2:PRINT"[144][147]";
151 PC=INT(L/10)+1:PN=INT(T1/10)+1
160 PRINT"[147]   [204][207][193][196][211][212][193][210] [193][196] [205][197][206][213] - PAGE "STR$(PN)" OF "STR$(PC)".   [146]"
170 FORY=1TO9:PRINT:IFLEN(A$(Y+(PN-1)*9,0))THENPRINTY" = "A$(Y+(PN-1)*9,0)
180 NEXT
190 GOSUB7000
195 GOSUB6000
200 GOTO160
5000 PRINT"(";STR$(PN+ABS(T1=9ORT1=18ORT1=27));"/";
5005 T2=T1+1
5007 IFT1<9THEN5020
5010 T2=T2-9:IFT2>9THEN5010
5020 PRINTSTR$(T2);")    ";
5030 RETURN
6000 POKE198,0:WAIT198,1:GETR$
6002 IFVAL(R$)>0ANDLEN(A$(VAL(R$)+(PN-1)*9,0))=0THEN6000
6005 IFVAL(R$)>0THENR=VAL(R$)+(PN-1)*9:GOTO8000
6010 IFR$=""ORR$="[157]"THENPN=PN-1:IFPN<1THENPN=1:GOTO6090
6020 IFR$="[145]"ORR$=""THENPN=PN+1:IFPN>PCTHENPN=PC:GOTO6090
6030 IFR$="X"ORR$="[216]"THEN9000
6040 IFR$="N"ORR$="[206]"THENR=T1+1:GOTO8000
6070 IFR$="[145]"ORR$=""ORR$="[157]"ORR$=""THEN6090
6080 IFR$<>"N"ANDR$<>"[206]"ANDR$<>"X"ANDR$<>"[216]"THEN6000
6090 RETURN
7000 PRINT"1-9 SELECTS AD. _CRSR^ SELECT NEXT PAGE"
7010 PRINT"[208]RESS [206] TO READ THE NEXT AD ";:GOSUB5000:PRINT"[146] [208]RESS [216] TO EXIT.";
7020 PRINT"                       [146]";
7023 POKE56295,2:POKE2023,160
7024 D$=""
7025 FORC=1TO25:PRINT"";SPC(39);MID$(D$,C);" [146][144]";:NEXT
7030 RETURN
8000 PRINT"[147]LOAD"CHR$(34)A$(R,1)CHR$(34)",8":PRINT"RUN":POKE198,0
8005 POKEX,R:POKEX+1,R+ABS(R>=L)
8010 POKE631,13:POKE632,13:POKE198,2:END
9000 PRINT"[147]LOAD"CHR$(34)"HELLO"CHR$(34)",8":PRINT"RUN":POKE198,0
9010 POKE631,13:POKE632,13:POKE198,2:END
19000 REMDATA IS THUS:
19010 REM"[205]ENU ITEM","[208]ROGRAM NAME"
20000 DATA"[215]ARP +","AD.WARP+"
20002 DATA"[211]IGN [208]AINTER","AD.SIGN PAINTER"
20160 DATA"END","END"