340 IF PEEK(J) = 160 AND PEEK(J +1) = 160 THEN J = I +34: GOTO 360
350 NM$(NF) = NM$(NF) + CHR$( PEEK(J))
360 NEXT J
370 NEXT I
380 IF NT < >0 THEN TRK = NT:SEC = NS: GOTO 190
390 PRINT D$"BLOAD MENUFONT,A$9100"
400 PRINT D$"BRUN HI-GEN"
410 FOR I = 1 TO T
420 VTAB I +1: HTAB FN T(I): PRINT T$(I)
430 NEXT I
440 HCOLOR= 1
450 HPLOT 7,0 TO 259,0 TO 259,40 TO 7,40 TO 7,0
460 HPLOT 11,2 TO 255,2 TO 255,38 TO 11,38 TO 11,2
470 HCOLOR= 5: HPLOT 1,45 TO 263,45 TO 263,150 TO 1,150 TO 1,45: HPLOT 25,45 TO 25,150
480 HPLOT 3,46 TO 261,46 TO 261,149 TO 3,149 TO 3,46: HPLOT 27,45 TO 27,150
490 VTAB 21: PRINT "USE <- AND -> TO SELECT, RETURN TO RUN": PRINT : PRINT "(C) 1986 BY GREEN VALLEY PUBLISHING": HTAB 5: PRINT "A DIVISION OF SHAREDATA, INC.";
500 HCOLOR= 3: HPLOT 252,173 TO 258,173: HPLOT 255,173 TO 255,177
510 HPLOT 260,173 TO 260,177: HPLOT 260,173 TO 263,176 TO 266,173: HPLOT 267,173 TO 267,177
520 H = 40:MM = 0: FOR I = 1 TO NF
530 IF ASC( MID$ (NM$(I), LEN(NM$(I)) -1,1)) < >174 THEN 560
540 MM = MM +1:M = ASC( RIGHT$(NM$(I),1)) -192:M(M) = I:M$(M) = LEFT$(NM$(I), LEN(NM$(I)) -2)
550 A = FN M(M): IF A <H THEN H = A
560 NEXT I
570 V = 6
580 FOR I = 1 TO MM
590 V = V +2: VTAB V: HTAB H: PRINT M$(I)
600 NEXT
610 B = 28672: FOR I = 0 TO 25: READ A: POKE B +I,A: NEXT : CALL B