10 REM ********************* 20 REM Help File Generator 30 REM By Tim Surtell 40 REM ********************* 50 REM NC100/200 Version 1 : 3/98 60 REM Downloaded from Tim's NC Users' Site 70 REM http://www.ncus.org.uk 80 DIM tagname$(50),tagkey$(50),tagpos(50),ipos(50) 90 CLS 100 PRINTCHR$17"Help File generator version 1"CHR$18' 110 INPUT'"Type in filename : "f$ 120 K=OPENIN(f$+".HLP") 130 PROCgettag:PRINT'"'";LEFT$(tag$,20);"'" 140 PRINT'"Searching for pointer tags..."' 150 num=0 160 REPEAT 170 PROCgettag 180 IF tag$="START" GOTO220 190 num=num+1 200 tagkey$(num)=MID$(tag$,7,1):tagname$(num)=MID$(tag$,9):ipos(num)=PTR#K-1-LEN(tag$) 210 PRINTtagname$(num) 220 UNTIL tag$="START" 230 PRINT';num;" tags found. Seaching for text matching tags. Creating PTR values..." 240 FORI=1 TO num 250 PROCgettag 260 IF tag$<>tagname$(I) PRINT"ERROR : ";tagname$(I);" not found.":CLOSE#0:END 270 tagpos(I)=PTR#K-2-LEN(tag$):PRINTtagname$(I);" at ";tagpos(I) 280 PROCgettag 290 IF tag$<>"END" PRINT"ERROR : END tag not present.":CLOSE#0:END 300 NEXT 310 CLOSE#0 320 K=OPENUP(f$+".HLP") 330 FORI=1 TO num 340 p$=STR$(tagpos(I)) 350 IF LEN(p$)=3 p$="00"+p$ 360 IF LEN(p$)=4 p$="0"+p$ 370 PTR#K=ipos(I) 380 FORA=1 TO 5:BPUT#K,ASC(MID$(p$,A,1)):NEXT 390 NEXT 400 PRINT'"Successfully generated ";f$;".HLP file." 410 CLOSE#0:END 420 DEF PROCgettag 430 REPEAT:B=BGET#K:UNTIL B=60 OR EOF#K 440 tag$="":REPEAT:B=BGET#K:tag$=tag$+CHR$B:UNTIL B=62 OR EOF#K 450 tag$=LEFT$(tag$,LEN(tag$)-1) 460 ENDPROC