5 REM ***********************
6 REM CAT #8 by J.N.Macklin 7 REM *********************** 8 REM 464 version 10 h=HIMEM:MEMORY &A673:z=3:p$="":MODE 2:CAT 20 POKE &A674,&CD:POKE &A675,&60:POKE &A676,&BB:POKE &A677,&32 30 POKE &A678,&7B:POKE &A679,&A6:POKE &A67A,&C9 40 WHILE p$<>" ":z=z+1:LOCATE 1,z:GOSUB 150:WEND 50 FOR x=1 TO 16:LOCATE x,2:GOSUB 150:t$=t$+p$:NEXT 60 FOR x=1 TO 9:LOCATE x,z+1:GOSUB 150:u$=u$+p$:NEXT 70 GOSUB 200:PRINT#8," CATALOGUE";TAB(33);t$;TAB(70);u$:GOSUB 200 80 FOR y=4 TO z-1:FOR x=1 TO 80 90 LOCATE x,y:GOSUB 150:v$=v$+p$:NEXT 100 PRINT#8,v$:v$="":NEXT 110 GOSUB 200:MEMORY h:MODE 1:END 150 CALL &A674:p$=CHR$(PEEK(&A67B)):RETURN 200 PRINT#8,STRING$(80,"-"):RETURN |