1pageno=&EAC
   10@%=0
   20MODE7
   30ON ERROR PROCdone
   40PROCfindpage
   50chan=OPENIN("CATALOG")
   60*HOFF
   70T1$=FNstring
   80T2$=FNstring
   90PRINT'"Page Filename  Load     Exec     Size"'
  100REPEAT
  110  MCODE$=FNstring
  120  IF MCODE$="***" THEN UNTIL TRUE:PROCdone:PRINT 'T1$'T2$:END
  130  NAME$=FNstring
  140  TYPE$=FNstring
  150  SIZE$=FNstring
  160  L$=FNhex4
  170  EXEC$=FNhex4
  180  PAGENO$=FNhex2
  190  PAGENO$=MID$(PAGENO$,2,4)
  200  NAME$=NAME$+"         "
  210  NAME$=MID$(NAME$,1,8)+CHR$(135)
  220  TYPE$=TYPE$+"         "
  230  TYPE$=MID$(TYPE$,1,5)
  240  SIZE$=SIZE$+"         "
  250  SIZE$=MID$(SIZE$,1,9)
  260 IF (MCODE$<>"BBC") AND (MCODE$<>"ANY") GOTO 300
  270  PRINT" ";PAGENO$;NAME$;
  280PRINT L$;" "EXEC$;SIZE$
  290PRINT  "                               of ";TYPE$
  300UNTIL FALSE
  310DEFFNstring
  320LOCAL S$
  330 S$=""
  340 L%=BGET#chan
  350 FOR I%=1 TO L%
  360  C%=BGET#chan
  370  IF C%<32 THEN C%=C%+128
  380  S$=S$+CHR$(C%)
  390 NEXT
  400=S$
  410DEFFNhex2
  420 =FNhex1+FNhex1
  430DEFFNhex4
  440 =FNhex2+FNhex2
  450DEFFNhex1
  460 C%=BGET#chan
  470 L%=C% DIV 16
  480 R%=C% MOD 16
  490 IF L%>9 THEN L%=L%+7
  500 IF R%>9 THEN R%=R%+7
  510 L%=L%+ASC("0")
  520 R%=R%+ASC("0")
  530 =CHR$(L%)+CHR$(R%)
  540DEFPROCdone
  550 *HOFF
  560 *opt 1 128
  570 *NET
  580 END
  590ENDPROC
  600PROCdone
  610END
  620DEFPROCfindpage
  630*telesoft
  640*bbc2
  650*bbc1
  660*hon
  680*opt 1 0
  690REMENDPROC@@@@@@@@@@@@@@@@@@@@@
  700T%=TIME+200:REPEAT UNTIL TIME>T%
  710DIM parameter 15
  730parameter?0=&9E :REM CB <n> -> C0
  740PROCcall
  770parameter?0=&A1 :REM reclaim all space
  780PROCcall
  790PROClkbuffs
  840parameter?0=&A0 :REM sel init page
  850PROCcall
  860parameter?0=&9E :REM CB <n> -> CB0
  870REMPROCcall  ????
  880parameter?0=&9F :REM set selected 0
  890REMPROCcall  ???? 
  910FOR LINK%=0 TO 5
  920CLS
  930T%=TIME+300:REPEAT UNTIL TIME>T%
  940parameter?0=&96 :REM select LINK%
  950parameter?1=LINK%
  951VDU 26
  960PRINT''"Looking for link ";LINK%
  970PROCcall
  980PRINT"Grab link CC = ";parameter?2
  990IF parameter?2<>0 GOTO 940
 1000REMparameter?0=&8A
 1010REMPROCcall
 1020parameter?0=&89
 1030PROCcall
 1040PROCmoncb
 1050IF parameter?1<>&FF THEN GOTO1020
 1060REM exactly like tfs
 1070parameter?0=&89
 1080PROCcall
 1090parameter?0=&8F
 1100parameter?1=0
 1110parameter?2=&7C
 1120parameter?3=&FF
 1130parameter?4=&FF
 1140PROCcall
 1150parameter?0=&9A :REM was8A - but full   too
 1160PROCcall
 1170REM ZAP into display
 1180parameter?0=&A3
 1190PROCcall
 1200VDU 31,0,24
 1210FOR Z%=1TO7:VDU parameter?Z%:NEXT
 1220T%=TIME+300:REPEAT UNTIL TIME>T%
 1230NEXT LINK%
 1231PROCdone
 1240END
 1250DEFPROCcall
 1260A%=&7A
 1270X%=parameter MOD 256
 1280Y%=parameter DIV 256
 1290PYXA%=USR(&FFF1)
 1300ENDPROC
 1310DEFPROCmoncb
 1311FOR JUNK%=0 TO 0
 1320VDU 26
 1330PRINT''''"Buff Ho Up In Fu Cr Ok Ke US"
 1340startaddr=&EA0
 1350FOR ZZ%=0 TO 10*6 STEP 10
 1360G%=(startaddr?(ZZ%+1))*256+(startaddr?ZZ%)
 1361GG%=G%
 1370PROChex(G% DIV 256)
 1380PROChex(G% MOD 256)
 1390VDU 32
 1400FOR G%=2 TO 9
 1410PROChex(startaddr?(G%+ZZ%))
 1420VDU 32
 1430NEXT
 1440PRINT?GG%
 1450NEXT
 1451NEXT JUNK%
 1460IF INKEY(0)=-1 THEN ENDPROC
 1470REM anything goes here
 1480ENDPROC
 1490DEFPROChex(C%)
 1500L%=C% DIV 16
 1510R%=C% MOD 16
 1520IF L%>9 THEN L%=L%+7
 1530IF R%>9 THEN R%=R%+7
 1540VDU L%+ASC("0"),R%+ASC("0")
 1550ENDPROC
 8000DEFPROClkbuffs
 8010DIM space (2+48*31)*6
 8020FOR GG%=1 TO 6
 8030parameter?0=&94
 8040parameter?1=GG%
 8050parameter?2=space MOD 256
 8060parameter?3=space DIV 256
 8070space?0=31
 8080PROCcall
 8090space=space+(2+48*31)
 8100NEXT
 8110ENDPROC