5 REM  STRINGS.1
90 DIMGL$(20):PRINT"[147][144]         [208]REPARING THE GRAPH":POKE53281,1:POKE53280,6
100 LN$=CHR$(164):GR$=" [146]":FORI=1TO5:SP$=SP$+LN$:NEXTI
110 FORI=1TO4:READQT(I),NM$(I),PV(I):NEXTI
120 FORI=20TO1STEP-1:IFI/5=INT(I/5)THENGL$(I)=NM$(I/5):GOTO140
130 GL$(I)="  [161][146][164][164]"
140 FORJ=1TO4:IFQT(J)>=ITHENGL$(I)=GL$(I)+GR$:GOTO160
150 GL$(I)=GL$(I)+LN$
160 GL$(I)=GL$(I)+SP$
170 NEXTJ
180 NEXTI
190 PRINT"[147]";:FORI=20TO1STEP-1:PRINTGL$(I):NEXTI
200 FORI=1907TO1932:POKEI,226:NEXTI:POKE1906,124:POKE1905,48
210 FORI=1TO4:POKEPV(I),I+48:NEXTI
212 PRINT"             PRESS ANY KEY"
220 GETNL$:IFNL$=""THEN220
225 PRINT"[147]"SPC(6)"[210]ETURNING TO [211]TRINGS [205]ENU..."
227 F$="STRINGS MENU":PRINT"LOADF$,8":PRINT"RUN":POKE631,13:POKE632,13
228 POKE198,2:END
230 DATA17," 5[161][146][164][164]",1949,7,"10[161][146][164][164]"
240 DATA1955,14,"15[161][146][164][164]",1961,11,"20[161][146][164][164]",1967