17-02-88/GRABBER

Home » CEEFAX disks » telesoftware5.adl » 17-02-88/GRABBER

17-02-88/GRABBER

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk:	Home » CEEFAX disks » telesoftware5.adl
Filename:	17-02-88/GRABBER
Read OK:	✔
File size:	269C bytes
Load address:	FFFF1900
Exec address:	FFFF8023

File contents

   10ONERRORGOTO3370
   20REM PAGE GRABBER
   30REM By J R Crellin
   40REM Based on News by R J J Orton
   50REM Version 2
   60filesystem=FNfs
   70IF filesystem<>4 AND filesystem<>8 THEN PROCerror(100,"Only ADFS or DFS please!")
   80IF filesystem=8 THEN ADFS=TRUE ELSE ADFS=FALSE
   90IF NOT ADFS THEN140
  100ONERRORGOTO3220
  110*DIR $.pages
  115*DIR $
  120ONERRORGOTO3290
  130*DIR $.frames
  140ONERRORGOTO3370
  150MODE 7
  160D%=1
  170PROCinit
  180D%=2
  190PROCchoose
  200D%=3
  210PROCgrabber
  220D%=4
  230PROCdisplay
  240PROCerror(200,"FINISHED")
  250END
  260:
  270DEFPROCinit
  280*FX4,1
  290TIME=0
  300np%=30:save%=1:shown%=0:stime%=TIME+1000000
  310DIM block% 18,ospace 100
  320DIM list%(np%-1)
  330FOR N%=0 TO np%-1
  340DIM x 79
  350FOR n%= x TO x+75 STEP 4
  360!n%=0
  370NEXT
  380list%(N%)=x
  390NEXT
  400DIM P%(np%)
  410P%(np%)=0
  420DIM sp%(np%),lsp%(np%),cp%(5),dp%(7),round%(np%),finds%(np%)
  430FOR N%= 0 TO np%
  440sp%(N%)=0:lsp%(N%)=0:round%(N%)=0:finds%(N%)=0
  450NEXT
  460DIM X%-1
  470PROCprint(0,10,"Enter channel required",6)
  480PRINTTAB(1,13)CHR$130;">>";
  490INPUT""CH%
  500IF CH%>4 OR CH%<1 THEN CLS:GOTO470
  510IF CH%>2 THEN CRCsig=FALSE ELSE CRCsig=TRUE
  520RESTORE5240
  530REPEAT
  540REPEAT
  550READ X$
  560UNTIL X$="#"
  570READ X$
  580UNTIL VAL(X$)=CH%
  590IF CH%>2 THEN rows=24 ELSE rows=30
  600*TTXON
  610PROCoscli("CH"+STR$(CH%))
  620?block%=7
  630block%?1=rows
  640PROCow:REM no of rows
  650space=HIMEM-X%-1200
  660rec%=space DIV (30*42+10)
  670IF rec%>20 THEN rec%=20
  680rec%=rec%-2
  690DIM record(rec%),pt%(rec%)
  700FOR N%=0TOrec%
  710DIM x 30*42
  720record(N%)=x
  730NEXT
  740space=record(0)
  750ENDPROC
  760:
  770DEFPROCgrabber
  780CLS
  790*HON
  800PROCoff
  810PRINTTAB(0,1)"�Searching for:-";
  820?block%=14:PROCow:REM clear records
  830B%=0
  840REPEAT
  850PB%=P%(B%)
  860PROCsetup(B%,PB%,B%)
  870B%=B%+1
  880UNTIL P%(B%)=0 OR B%>rec%
  890rec%=B%-1
  900PROCcheck
  910ENDPROC
  920:
  930DEFPROCsetup(E%,p%,ln%)
  940pt%(E%)=ln%
  950PRINTTAB(0,E%+3)"�P"STR$(p%);SPC(39-POS);
  960PROCsetrec(E%,p%)
  970ENDPROC
  980:
  990DEFPROCow
 1000LOCAL A%,X%,Y%
 1010X%=block% MOD 256
 1020Y%=block% DIV 256
 1030A%=&7A
 1040CALL &FFF1
 1050ENDPROC
 1060:
 1070DEFFNbcd(X%)
 1080IF X%>99 THEN PROCerror(99,"!!!")
 1090topnib%=X% DIV 10
 1100botnib%=X% MOD 10
 1110=topnib%*16+botnib%
 1120:
 1130DEFPROCerror(X%,X$)
 1140$space=CHR$0+CHR$(X%)+X$+CHR$0
 1150CALL space
 1160ENDPROC
 1170:
 1180DEFPROCcheck
 1190LOCAL E%
 1200REPEAT
 1210finished=TRUE
 1220FOR E%=0 TO rec%
 1230IF (finds%(pt%(E%))=0) AND (TIME-stime%>10000) THEN P%(pt%(E%))=0
 1240IF P%(pt%(E%))=0 THEN 1270
 1250finished = FALSE
 1260IF FNready(E%) THEN PROCsave(E%)
 1270NEXT
 1280UNTIL finished
 1290ENDPROC
 1300:
 1310DEFPROCcrc
 1320LOCAL l%
 1330IF CRC=0 THEN list%(R%)?L%=0:ENDPROC
 1340l%=list%(R%)?L%
 1350IF l%=0 THEN list%(R%)?L%=CRC:GOTO1390
 1360IF l%>&FD THEN list%(R%)?L%=l%-1:GOTO1390
 1370IF l%=&FD THEN list%(R%)?L%=0:GOTO1390
 1380ENDPROC
 1390PROCrep(CRC,list%(R%)?L%)
 1400ENDPROC
 1410:
 1420DEFPROCsave(Y%)
 1430LOCAL L%,N%,R%
 1440R%=pt%(Y%)
 1450?block%=3:block%?1=Y%:block%?2=1:PROCow:REM HOLD
 1460SP%=FNsp(record(Y%)):IF MAX%>0 THEN sp%(Y%)=MAX%+&100
 1470IF SP%>79 OR SP%<0 THEN SP%=0
 1480PRINTTAB(0,22)CHR$132STR$(P%(R%))"/"STR$(SP%)"  "
 1490IF sp%(R%)>0 THEN IF (SP%=0 AND lsp%(R%)<>0) THEN SP%=lsp%(R%)+1
 1500L%=SP%-1:IF L%=-1 THEN L%=0
 1510IF CRC>0 OR (list%(R%)?(L%)>240) THEN PROCcrc
 1520IF SP%=0 AND (?list%(R%)=0 OR round%(R%)=3) THEN ?list%(R%)=save%:PROCssave:P%(R%)=0:PROCsetupanother(Y%):GOTO1700
 1530IF (list%(R%)?(L%))=0 THEN list%(R%)?(L%)=save%:PROCssave
 1540IF ((sp%(R%) AND &FF)<SP%) THEN sp%(R%)=SP%:GOTO1670
 1550IF SP%<lsp%(R%) THEN sp%(R%)=lsp%(R%) OR &100
 1560IF SP%=0 OR (SP%<lsp%(R%)) THENround%(R%)=round%(R%)+1
 1570l%=sp%(R%) AND &FF:IF l%=0 THEN l%=1
 1580IF (finds%(R%) DIV l%) > 5 THEN PROCfillin(R%):complete=TRUE:GOTO1660
 1590IF (sp%(R%) AND &100)=0 OR SP%=0 THEN 1670
 1600complete=TRUE
 1610FOR N%=1 TO (sp%(R%) AND &FF)
 1620l%=list%(R%)?(N%-1)
 1630IF l%=0 OR l%>240 THEN complete=FALSE
 1640NEXT
 1650IF round%(R%)>4 THEN PROCfillin(R%):complete=TRUE
 1660IF complete THEN P%(R%)=0:PRINTTAB(7,Y%+3)"�found"SPC(39-POS);:PROCsetupanother(Y%):GOTO1700
 1670?block%=3:block%?1=Y%:block%?2=0:PROCow
 1680lsp%(R%)=SP%
 1690finds%(R%)=finds%(R%)+1
 1700ENDPROC
 1710:
 1720DEFPROCsetupanother(X%)
 1730IF P%(B%)=0 THEN stime%=TIME:ENDPROC
 1740PB%=P%(B%)
 1750PROCsetup(X%,PB%,B%)
 1760B%=B%+1
 1770ENDPROC
 1780:
 1790DEFPROCssave
 1800PRINTTAB(1,0)STR$(P%(R%));
 1810IF (sp%(R%) AND &100) THEN X$=" of "+STR$(sp%(R%) AND &FF) ELSE X$=""
 1820IF SP%=0 THENPRINTTAB(7,Y%+3)"�found";SPC(39-POS); ELSE PRINTTAB(7,Y%+3)"�Subpage�";STR$(SP%);X$"�found"SPC(39-POS);
 1830X$=FNdir(save%)
 1840IF save%>240 THEN 3510
 1850PROCoscli ("SAVE "+X$+STR$(save%)+" "+STR$~(record(Y%))+" +4E0")
 1860save%=save%+1
 1870ENDPROC
 1880:
 1890DEFPROCrep(C,E%)
 1900IF C=&FF THEN M$=" No CRC   " ELSE M$=" Bad CRC  "
 1910PRINTTAB(0,18)CHR$129;STR$(P%(R%))"/"STR$(SP%)M$;CHR$132;STR$~(E%)"   "
 1920ENDPROC
 1930:
 1940DEFPROCdisplay
 1950RESTORE 5180
 1960FOR n%=1 TO CH%
 1970READ CH$
 1980NEXT
 1990*HOFF
 2000?block%=14:PROCow
 2010LOCAL N%,n%,next%,X%
 2020FOR N%=0 TO np%-1
 2030n%=0
 2040REPEAT
 2050next%=list%(N%)?n%
 2060IF next%=0 THEN 2250
 2070IF next%=&FF THEN VDU26,12:PROCprint(2,10,"MISSING PAGE",5):GOTO2170
 2080X$=FNdir(next%)
 2090IF next%>240 THEN PROCerror(100,"Run out!")
 2100shown%=shown%+1
 2110PROCoscli("LOAD "+X$+STR$(next%)+" "+STR$~(space))
 2120PROCoscli("DISPLAY "+STR$~(space))
 2130PRINTTAB(0,0)CHR$134;FNfulp(space);CHR$135;
 2140PROCw
 2150PRINT"�RETURN(print) TAB(dump) ](next) R [";
 2160PROCoff
 2170REPEAT X$=GET$:UNTIL INSTR("bBsSrR ��"+CHR$9+CHR$13,X$)
 2180IF X$=CHR$9 THEN PROCdumproutine(1)
 2190IF X$=CHR$13 THEN PROCdumproutine(2)
 2200IF X$="�" OR X$="b" OR X$="B" THEN PROCback:GOTO2250
 2210IF X$="r" OR X$="R" THEN PROCreveal:GOTO2170
 2220IF NOT ADFS AND(X$="s" OR X$="S") THEN PROCoscli("SAVE "+FNfulp(space)+" 7C00 8000"):GOTO2170
 2230IF ADFS AND(X$="s" OR X$="S") THEN PROCoscli("SAVE "+"^.pages."+CH$+FNfulp(space)+" 7C00 8000"):GOTO2170
 2240n%=n%+1
 2250UNTIL next%=0
 2260NEXT
 2270ENDPROC
 2280:
 2290DEFPROCback
 2300IF n%>0 THEN n%=n%-1:ENDPROC
 2310IF N%>0 THEN N%=N%-2:next%=0
 2320ENDPROC
 2330:
 2340DEFFNfulp(E%)
 2350LOCAL S%,P%
 2360P%=100*?E%
 2370S%=E%?2
 2380P%=P%+(S% AND &F0)*10 DIV16 +(S% AND &F)
 2390S%=FNsp(E%)
 2400IF S%>0 THEN=STR$(P%)+"/"+STR$(FNsp(E%)) ELSE =STR$(P%)
 2410:
 2420DEFFNsp(E%)
 2430LOCAL S%
 2440S%=75
 2450found=FALSE
 2460REPEAT
 2470S%=S%+1
 2480IF ((E%?S%)AND &7F)=ASC"/" THEN found=TRUE
 2490UNTIL found OR S%=85
 2500IF NOT found THEN SP%=0:MAX%=-1:GOTO2530
 2510SP%=FNeval(S%-2)
 2520MAX%=FNeval(S%+1)
 2530S%=E%?4
 2540SP2%=(S% AND &70) *10 DIV 16 +(S% AND &F)
 2550S%=E%?3
 2560SP2%=SP2%+(S% AND &30) *1000 DIV 16 +(S% AND &F)*100
 2570IF SP%<=0 OR SP%>79 THEN=SP2%
 2580IF SP2%=0 THEN =SP%
 2590IF SP%<>SP2% THEN = SP2%
 2600=SP%
 2610:
 2620DEFFNeval(C%)
 2630LOCAL S%,U%
 2640U%=0:S%=(E%?C%)AND &7F
 2650IF S%>&2F AND S%<&3A THEN U%=(S%-&30)
 2660S%=(E%?(C%+1)) AND &7F
 2670IF S%>&2F AND S%<&3A THEN U%=U%*10+(S%-&30)
 2680=U%
 2690:
 2700DEFPROCchoose
 2710R%=0
 2720*HON
 2730?block%=14:PROCow
 2740N%=0
 2750REPEAT
 2760READ X$
 2770IF X$="!" THEN GOTO2820
 2780IF N%=rec% THEN X$="!":GOTO2820
 2790N%=N%+1
 2800P%=VAL(X$)
 2810dp%(N%)=P%:PROCsetrec(N%,P%)
 2820UNTIL X$="!"
 2830E%=1
 2840REPEAT
 2850READ X$
 2860cp%(E%)=VAL(X$)
 2870E%=E%+1
 2880UNTIL X$="#"
 2890REPEAT
 2900finished =TRUE
 2910FOR E%=1 TO N%
 2920IF R%>=30 THEN 2950
 2930IF (dp%(E%) AND &1000)=0 THENIF FNready(E%) THEN dp%(E%)=dp%(E%) OR &1000:PROCinput(E%)
 2940IF (dp%(E%) AND &1000)=0 THEN finished =FALSE
 2950NEXT
 2960UNTIL finished
 2970R%=0
 2980ENDPROC
 2990:
 3000DEFPROCinput(Y%)
 3010PROCoscli("DISPLAY "+STR$~(record(Y%)))
 3020PROCsetrec(Y%,0):REM clear?
 3030PROCoff
 3040current%=dp%(Y%) AND&FFF
 3050PRINTTAB(0,0)"�"STR$(current%);
 3060PROCw
 3070fin=FALSE
 3080REPEAT
 3090X%=FNcheckpage
 3100IF X%=0 THEN fin=TRUE:GOTO3170
 3110FOR n%=0 TO R%-1
 3120IF X%=P%(n%) THEN VDU7:PRINT"Chosen!  ";:GOTO3170
 3130NEXT
 3140P%(R%)=X%
 3150R%=R%+1
 3160IF R%>=30 THEN fin=TRUE
 3170UNTIL fin
 3180dp%(Y%)=&1000
 3190VDU26
 3200ENDPROC
 3210:
 3220IF ERR<>214 THEN 3370
 3230*CDIR pages
 3240*CDIR pages.BBC1
 3250*CDIR pages.BBC2
 3260*CDIR pages.ITV
 3270*CDIR pages.CH4
 3280RUN
 3290IF ERR<>214 THEN 3370
 3300*CDIR frames
 3310*CDIR frames.41
 3320*CDIR frames.42
 3330*CDIR frames.43
 3340*CDIR frames.44
 3350*CDIR frames.45
 3360RUN
 3370ONERROROFF
 3380*HOFF
 3390VDU3
 3400MODE 7
 3410IF ERR=17 AND INKEY(-2) THEN 3430
 3420IF ERR =17 OR ERR=179 OR ERR=198 OR ERR=190 THEN 3500
 3430*TTXOFF
 3440PRINT'''
 3450*FX4
 3460IF ADFS THEN*DIR ^
 3470REPORT
 3480PRINT" at "ERL
 3490END
 3500ONERRORGOTO3370
 3510ON D% GOTO 3430,180,3520,3430
 3520PROCcleanup:GOTO220
 3530:
 3540DEFPROCprint(X%,Y%,X$,C%)
 3550PRINTTAB(X%,Y%)CHR$141;CHR$(128+C%);X$
 3560PRINTTAB(X%,Y%+1)CHR$141;CHR$(128+C%);X$
 3570ENDPROC
 3580:
 3590DEFPROCsetrec(N%,P%)
 3600?block%=2:block%?1=N%:block%?2=0:PROCow
 3610IF (block%?2 AND 4)=4 THENPROCdel(20):GOTO3600
 3620?block%=5
 3630block%?1=N%
 3640block%?2=P% DIV 100
 3650block%?3=FNbcd(P% MOD 100)
 3660block%?4=&3F
 3670block%?5=&7F
 3680block%?6=record(N%) MOD 256
 3690block%?7=record(N%) DIV 256
 3700PROCow
 3710?block%=3
 3720block%?1=N%
 3730block%?2=0
 3740PROCow:REM init flag
 3750ENDPROC
 3760:
 3770DEFFNready(X%)
 3780LOCAL N%,n%
 3790CRC=0
 3800?block%=2
 3810block%?1=X%
 3820block%?2=0
 3830PROCow:REM check flag
 3840IF (block%?2 AND 4)=4 THEN PROCdel(20):GOTO3800
 3850IF (block%?2 AND 2)=0 THEN =FALSE
 3860?block%=23
 3870block%?1=record(X%) MOD 256
 3880block%?2=record(X%) DIV 256
 3890block%?3=0
 3900PROCow
 3910N%=block%?3
 3920IF N%=1 THEN =TRUE
 3930FOR n%=909 TO 1256 STEP4
 3940record(X%)!n%=0
 3950NEXT
 3960IF NOT CRCsig THEN =TRUE
 3970CRC=&FF:record(X%)?10=ASC"!"
 3980IFN%=&FF THENrecord(X%)?11=ASC"!":CRC=&FE
 3990=TRUE
 4000:
 4010DEFPROCw:VDU28,0,24,39,24:ENDPROC
 4020DEFPROCoff:VDU23,1,0,0,0,0,0,0,0,0:ENDPROC
 4030DEFPROCon:VDU23,1,1,0,0,0,0,0,0,0:ENDPROC
 4040:
 4050DEFPROCcleanup
 4060FOR E%= 0 TO np%-1
 4070IF P%(E%)=0 THEN 4100
 4080IF sp%(E%)=0 AND (?list%(E%)=0 OR ?list%(E%)>240) THEN ?list%(E%)=&FF:GOTO4100
 4090PROCfillin(E%)
 4100NEXT
 4110ENDPROC
 4120:
 4130DEFPROCfillin(R%)
 4140LOCAL N%
 4150FOR N%=1 TO (sp%(R%) AND &FF)
 4160IF (list%(R%)?(N%-1)=0 OR list%(R%)?(N%-1)>240) THEN list%(R%)?(N%-1)=&FF
 4170NEXT
 4180ENDPROC
 4190:
 4200DEFPROCrequest(X%)
 4210LOCAL E%
 4220ok=FALSE:IF NOT FNwildset THENENDPROC
 4230chan%=0
 4240IF X%=0 THEN X%=current%
 4250FOR E%= 1 TO N%
 4260IF dp%(E%)=X% THEN chan%=E%
 4270NEXT
 4280IF chan%=0 THEN PROCsetrec(0,X%)
 4290PRINTTAB(0,0)"�"STR$(X%);
 4300REPEAT UNTILFNready(chan%)
 4310PROCoscli("DISPLAY "+STR$~(record(chan%)))
 4320PROCoff
 4330current%=X%
 4340PRINTTAB(0,0)"�"STR$(X%);
 4350PROCw
 4360dp%(chan%)=&1000
 4370ENDPROC
 4380:
 4390DEFFNcheckpage
 4400REPEAT
 4410INPUT"Enter page required >>"X$
 4420 IF LEFT$(X$,1)="#" THEN PROCrequest(VAL(RIGHT$(X$,LEN(X$)-1))):GOTO4440 ELSE X%=VAL(X$)
 4430ok=FNwildset
 4440UNTIL ok
 4450=X%
 4460:
 4470DEFFNwildset
 4480LOCAL E%,ok
 4490E%=1:ok=FALSE
 4500IF X%=0 THEN =TRUE
 4510T%=(X% DIV 100)*100
 4520REPEAT
 4530IF T%=cp%(E%) THEN ok=TRUE
 4540E%=E%+1
 4550UNTIL cp%(E%)=0
 4560IF NOT ok THEN VDU7
 4570=ok
 4580:
 4590DEFPROChold(E%)
 4600?block%=3
 4610block%?1=E%
 4620block%?2=block%?2 OR 1
 4630block%?2=(block%?2) OR 1
 4640ENDPROC
 4650:
 4660DEFPROCdel(T%)
 4670T%=TIME+T%
 4680REPEAT UNTIL TIME>=T%
 4690ENDPROC
 4700:
 4710DEFPROCreveal
 4720LOCALn%
 4730FOR n%=&7C00 TO &7FFF
 4740IF ?n%=152 THEN ?n%=32
 4750NEXT
 4760ENDPROC
 4770:
 4780DEFFNfs
 4790A%=0:Y%=0
 4800A%=USR(&FFDA)
 4810=A% AND &FF
 4820:
 4830DEFFNdir(n%)
 4840LOCAL dir%
 4850dir%=(n%-1) DIV 40
 4860IF dir%=0 THEN =""
 4870dir%=dir%+40
 4880=STR$(dir%)+"."
 4890:
 4900DEFPROCoscli(X$)
 4910LOCAL X%,Y%
 4920$ospace=X$
 4930X%=ospace MOD 256
 4940Y%=ospace DIV 256
 4950CALL &FFF7
 4960ENDPROC
 4970:
 4980DEFPROCdumproutine(X%)
 4990REM Commands here are for "MYROM"
 5000REM Insert suitable commands for other
 5010REM screendump roms
 5020IF X%=1 THEN 5060
 5030REM Text only dump
 5040*TEXT
 5050ENDPROC
 5060IF INKEY(-1) THEN 5120
 5070IF INKEY(-2) THEN 5150
 5080REM Screen image
 5090*IMAGE
 5100ENDPROC
 5110REM <SHIFT> makes blue = black
 5120*IMAGE NOBLUE
 5130ENDPROC
 5140REM <CTRL> gives inverted dump
 5150*IMAGE INVERT
 5160ENDPROC
 5170:
 5180DATA"BBC1","BBC2","ITV","CH4"
 5190:
 5200REM Data sets default index pages and
 5210REM allowed page numbers
 5220REM #,channel,list of index pages
 5230REM !,allowed pages (blocks of 100)
 5240DATA #,1,102,120,151,170,300,180,!,100,300
 5250DATA #,2,251,700,230,202,270,!,200,300,700
 5260DATA #,3,160,230,210,220,120,101,!,100,200
 5270DATA #,4,690,530,580,550,480,450,!,600,400,500
 5280DATA #


��TjM
� PAGE GRABBER
� By J R Crellin
("� Based on News by R J J Orton
2� Version 2
<filesystem=�fs
FL� filesystem<>4 � filesystem<>8 � �error(100,"Only ADFS or DFS please!")
P$� filesystem=8 � ADFS=� � ADFS=�
Z� � ADFS ��tL@
d��tTL
n*DIR $.pages
s
*DIR $
x��dZL
�*DIR $.frames
���TjM
�� 7
�D%=1
�	�init
�D%=2
��choose
�D%=3
��grabber
�D%=4
��display
��error(200,"FINISHED")
��
:

��init

*FX4,1
"�=0
,,np%=30:save%=1:shown%=0:stime%=�+1000000
6� block% 18,ospace 100
@� list%(np%-1)
J� N%=0 � np%-1
T
� x 79
^� n%= x � x+75 � 4
h	!n%=0
r�
|list%(N%)=x
��
�
� P%(np%)
�
P%(np%)=0
�>� sp%(np%),lsp%(np%),cp%(5),dp%(7),round%(np%),finds%(np%)
�� N%= 0 � np%
�2sp%(N%)=0:lsp%(N%)=0:round%(N%)=0:finds%(N%)=0
��
�
� X%-1
�+�print(0,10,"Enter channel required",6)
��1,13)�130;">>";
�
�""CH%
�� CH%>4 � CH%<1 � �:�dVA
�!� CH%>2 � CRCsig=� � CRCsig=�
	��DxT
�
�
&� X$
0� X$="#"
:� X$
D� �(X$)=CH%
N� CH%>2 � rows=24 � rows=30
X
*TTXON
b�oscli("CH"+�(CH%))
l
?block%=7
vblock%?1=rows
��ow:� no of rows
�space=�-X%-1200
�rec%=space � (30*42+10)
�� rec%>20 � rec%=20
�rec%=rec%-2
�� record(rec%),pt%(rec%)
�� N%=0�rec%
�
� x 30*42
�record(N%)=x
��
�space=record(0)
��
�:

��grabber
�
*HON
 �off
*�0,1)"�Searching for:-";
4"?block%=14:�ow:� clear records
>B%=0
H�
RPB%=P%(B%)
\�setup(B%,PB%,B%)
fB%=B%+1
p� P%(B%)=0 � B%>rec%
z
rec%=B%-1
�
�check
��
�:
���setup(E%,p%,ln%)
�pt%(E%)=ln%
��0,E%+3)"�P"�(p%);�(39-�);
��setrec(E%,p%)
��
�:
���ow
�� A%,X%,Y%
�X%=block% � 256
�Y%=block% � 256

A%=&7A
� &FFF1
�
$:
.
ݤbcd(X%)
8� X%>99 � �error(99,"!!!")
Btopnib%=X% � 10
Lbotnib%=X% � 10
V=topnib%*16+botnib%
`:
j��error(X%,X$)
t$space=�0+�(X%)+X$+�0
~� space
��
�:
���check
�� E%
��
�finished=�
�� E%=0 � rec%
�<� (finds%(pt%(E%))=0) � (�-stime%>10000) � P%(pt%(E%))=0
�� P%(pt%(E%))=0 � �dvD
�finished = �
�� �ready(E%) � �save(E%)
��
� finished

�
:
	��crc
(� l%
2� CRC=0 � list%(R%)?L%=0:�
<l%=list%(R%)?L%
F#� l%=0 � list%(R%)?L%=CRC:�DnE
P&� l%>&FD � list%(R%)?L%=l%-1:�DnE
Z#� l%=&FD � list%(R%)?L%=0:�DnE
d�
n�rep(CRC,list%(R%)?L%)
x�
�:
���save(Y%)
�� L%,N%,R%
�R%=pt%(Y%)
�/?block%=3:block%?1=Y%:block%?2=1:�ow:� HOLD
�4SP%=�sp(record(Y%)):� MAX%>0 � sp%(Y%)=MAX%+&100
�� SP%>79 � SP%<0 � SP%=0
�%�0,22)�132�(P%(R%))"/"�(SP%)"  "
�:� sp%(R%)>0 � � (SP%=0 � lsp%(R%)<>0) � SP%=lsp%(R%)+1
�L%=SP%-1:� L%=-1 � L%=0
�)� CRC>0 � (list%(R%)?(L%)>240) � �crc
�f� SP%=0 � (?list%(R%)=0 � round%(R%)=3) � ?list%(R%)=save%:�ssave:P%(R%)=0:�setupanother(Y%):�tdF
�6� (list%(R%)?(L%))=0 � list%(R%)?(L%)=save%:�ssave
/� ((sp%(R%) � &FF)<SP%) � sp%(R%)=SP%:�tFF
,� SP%<lsp%(R%) � sp%(R%)=lsp%(R%) � &100
5� SP%=0 � (SP%<lsp%(R%)) �round%(R%)=round%(R%)+1
""l%=sp%(R%) � &FF:� l%=0 � l%=1
,:� (finds%(R%) � l%) > 5 � �fillin(R%):complete=�:�D|F
6'� (sp%(R%) � &100)=0 � SP%=0 � �tFF
@complete=�
J� N%=1 � (sp%(R%) � &FF)
Tl%=list%(R%)?(N%-1)
^ � l%=0 � l%>240 � complete=�
h�
r+� round%(R%)>4 � �fillin(R%):complete=�
|K� complete � P%(R%)=0:�7,Y%+3)"�found"�(39-�);:�setupanother(Y%):�tdF
�(?block%=3:block%?1=Y%:block%?2=0:�ow
�lsp%(R%)=SP%
�finds%(R%)=finds%(R%)+1
��
�:
���setupanother(X%)
�� P%(B%)=0 � stime%=�:�
�PB%=P%(B%)
��setup(X%,PB%,B%)
�B%=B%+1
��
�:
���ssave
�1,0)�(P%(R%));
;� (sp%(R%) � &100) � X$=" of "+�(sp%(R%) � &FF) � X$=""
X� SP%=0 ��7,Y%+3)"�found";�(39-�); � �7,Y%+3)"�Subpage�";�(SP%);X$"�found"�(39-�);
&X$=�dir(save%)
0� save%>240 � �tvM
:;�oscli ("SAVE "+X$+�(save%)+" "+�~(record(Y%))+" +4E0")
Dsave%=save%+1
N�
X:
b��rep(C,E%)
l/� C=&FF � M$=" No CRC   " � M$=" Bad CRC  "
v5�0,18)�129;�(P%(R%))"/"�(SP%)M$;�132;�~(E%)"   "
��
�:
�
��display
�
� �T|T
�� n%=1 � CH%
�	� CH$
��
�	*HOFF
�?block%=14:�ow
�� N%,n%,next%,X%
�� N%=0 � np%-1
�n%=0
��
next%=list%(N%)?n%
� next%=0 � �dJH
<� next%=&FF � �26,12:�print(2,10,"MISSING PAGE",5):�DzH
 X$=�dir(next%)
*(� next%>240 � �error(100,"Run out!")
4shown%=shown%+1
>-�oscli("LOAD "+X$+�(next%)+" "+�~(space))
H �oscli("DISPLAY "+�~(space))
R!�0,0)�134;�fulp(space);�135;
\�w
f,�"�RETURN(print) TAB(dump) ](next) R [";
p�off
z$� X$=�:� �"bBsSrR ��"+�9+�13,X$)
�� X$=�9 � �dumproutine(1)
�� X$=�13 � �dumproutine(2)
�,� X$="�" � X$="b" � X$="B" � �back:�dJH
�%� X$="r" � X$="R" � �reveal:�DzH
�Q� � ADFS �(X$="s" � X$="S") � �oscli("SAVE "+�fulp(space)+" 7C00 8000"):�DzH
�^� ADFS �(X$="s" � X$="S") � �oscli("SAVE "+"^.pages."+CH$+�fulp(space)+" 7C00 8000"):�DzH
�n%=n%+1
�
� next%=0
��
��
�:
�
��back
�� n%>0 � n%=n%-1:�
	� N%>0 � N%=N%-2:next%=0
	�
	:
	$ݤfulp(E%)
	.� S%,P%
	8P%=100*?E%
	BS%=E%?2
	L&P%=P%+(S% � &F0)*10 �16 +(S% � &F)
	VS%=�sp(E%)
	`*� S%>0 �=�(P%)+"/"+�(�sp(E%)) � =�(P%)
	j:
	tݤsp(E%)
	~� S%
	�	S%=75
	�found=�
	��
	�S%=S%+1
	�#� ((E%?S%)� &7F)=�"/" � found=�
	�� found � S%=85
	�#� � found � SP%=0:MAX%=-1:�dbI
	�SP%=�eval(S%-2)
	�MAX%=�eval(S%+1)
	�S%=E%?4
	�'SP2%=(S% � &70) *10 � 16 +(S% � &F)
	�S%=E%?3
2SP2%=SP2%+(S% � &30) *1000 � 16 +(S% � &F)*100

� SP%<=0 � SP%>79 �=SP2%
� SP2%=0 � =SP%
� SP%<>SP2% � = SP2%
(=SP%
2:
<ݤeval(C%)
F� S%,U%
PU%=0:S%=(E%?C%)� &7F
Z#� S%>&2F � S%<&3A � U%=(S%-&30)
dS%=(E%?(C%+1)) � &7F
n)� S%>&2F � S%<&3A � U%=U%*10+(S%-&30)
x=U%
�:
���choose
�R%=0
�*HON
�?block%=14:�ow
�N%=0
��
�� X$
�� X$="!" � �TDK
�� N%=rec% � X$="!":�TDK
�N%=N%+1
�P%=�(X$)
�dp%(N%)=P%:�setrec(N%,P%)
� X$="!"
E%=1
�
"� X$
,cp%(E%)=�(X$)
6E%=E%+1
@� X$="#"
J�
Tfinished =�
^� E%=1 � N%
h� R%>=30 � �tFK
rL� (dp%(E%) � &1000)=0 �� �ready(E%) � dp%(E%)=dp%(E%) � &1000:�input(E%)
|'� (dp%(E%) � &1000)=0 � finished =�
��
�� finished
�R%=0
��
�:
���input(Y%)
�%�oscli("DISPLAY "+�~(record(Y%)))
��setrec(Y%,0):� clear?
��off
�current%=dp%(Y%) �&FFF
��0,0)"�"�(current%);
��w
�	fin=�
�
X%=�checkpage
� X%=0 � fin=�:�DbL
&� n%=0 � R%-1
0(� X%=P%(n%) � �7:�"Chosen!  ";:�DbL
:�
D
P%(R%)=X%
NR%=R%+1
X� R%>=30 � fin=�
b	� fin
ldp%(Y%)=&1000
v�26
��
�:
�� �<>214 � �TjM
�*CDIR pages
�*CDIR pages.BBC1
�*CDIR pages.BBC2
�*CDIR pages.ITV
�*CDIR pages.CH4
��
�� �<>214 � �TjM
�*CDIR frames
�*CDIR frames.41
�*CDIR frames.42

*CDIR frames.43

*CDIR frames.44

*CDIR frames.45

 �

*

4	*HOFF

>�3

H� 7

R� �=17 � �(-2) � �DfM

\*� � =17 � �=179 � �=198 � �=190 � �tlM

f*TTXOFF

p�'''

z*FX4

�� ADFS �*DIR ^

��

��" at "�

��

���TjM

�� D% � �DfM,�tt@,�d@M,�DfM

��cleanup:�d\@

�:

���print(X%,Y%,X$,C%)

��X%,Y%)�141;�(128+C%);X$

��X%,Y%+1)�141;�(128+C%);X$

��

�:
��setrec(N%,P%)
(?block%=2:block%?1=N%:block%?2=0:�ow
&� (block%?2 � 4)=4 ��del(20):�TPN
$
?block%=5
.block%?1=N%
8block%?2=P% � 100
Bblock%?3=�bcd(P% � 100)
Lblock%?4=&3F
Vblock%?5=&7F
`block%?6=record(N%) � 256
jblock%?7=record(N%) � 256
t�ow
~
?block%=3
�block%?1=N%
�block%?2=0
��ow:� init flag
��
�:
�ݤready(X%)
�� N%,n%
�	CRC=0
�
?block%=2
�block%?1=X%
�block%?2=0
��ow:� check flag
'� (block%?2 � 4)=4 � �del(20):�dXN

� (block%?2 � 2)=0 � =�
?block%=23
block%?1=record(X%) � 256
(block%?2=record(X%) � 256
2block%?3=0
<�ow
FN%=block%?3
P� N%=1 � =�
Z� n%=909 � 1256 �4
drecord(X%)!n%=0
n�
x� � CRCsig � =�
�CRC=&FF:record(X%)?10=�"!"
�'�N%=&FF �record(X%)?11=�"!":CRC=&FE
�=�
�:
���w:�28,0,24,39,24:�
�!��off:�23,1,0,0,0,0,0,0,0,0:�
� ��on:�23,1,1,0,0,0,0,0,0,0:�
�:
�
��cleanup
�� E%= 0 � np%-1
�� P%(E%)=0 � �TDP
�H� sp%(E%)=0 � (?list%(E%)=0 � ?list%(E%)>240) � ?list%(E%)=&FF:�TDP
��fillin(E%)
�
�
:
"��fillin(R%)
,� N%
6� N%=1 � (sp%(R%) � &FF)
@H� (list%(R%)?(N%-1)=0 � list%(R%)?(N%-1)>240) � list%(R%)?(N%-1)=&FF
J�
T�
^:
h��request(X%)
r� E%
|ok=�:� � �wildset ��
�chan%=0
�� X%=0 � X%=current%
�� E%= 1 � N%
�� dp%(E%)=X% � chan%=E%
��
�� chan%=0 � �setrec(0,X%)
��0,0)"�"�(X%);
�� ��ready(chan%)
�(�oscli("DISPLAY "+�~(record(chan%)))
��off
�current%=X%
��0,0)"�"�(X%);
��w
dp%(chan%)=&1000
�
:
&ݤcheckpage
0�
:�"Enter page required >>"X$
D> � �X$,1)="#" � �request(�(�X$,�(X$)-1))):�DXQ � X%=�(X$)
Nok=�wildset
X� ok
b=X%
l:
v
ݤwildset
�� E%,ok
�
E%=1:ok=�
�� X%=0 � =�
�T%=(X% � 100)*100
��
�� T%=cp%(E%) � ok=�
�E%=E%+1
�� cp%(E%)=0
�� � ok � �7
�=ok
�:
���hold(E%)
�
?block%=3
block%?1=E%
block%?2=block%?2 � 1
block%?2=(block%?2) � 1
 �
*:
4
��del(T%)
>T%=�+T%
H
� � �>=T%
R�
\:
f��reveal
p�n%
z� n%=&7C00 � &7FFF
�� ?n%=152 � ?n%=32
��
��
�:
�ݤfs
�
A%=0:Y%=0
�A%=�(&FFDA)
�
=A% � &FF
�:
�
ݤdir(n%)
�
� dir%
�dir%=(n%-1) � 40
�� dir%=0 � =""
dir%=dir%+40
=�(dir%)+"."
:
$��oscli(X$)
.� X%,Y%
8$ospace=X$
BX%=ospace � 256
LY%=ospace � 256
V� &FFF7
`�
j:
t��dumproutine(X%)
~#� Commands here are for "MYROM"
�(� Insert suitable commands for other
�� screendump roms
�� X%=1 � �dDS
�� Text only dump
�	*TEXT
��
�� �(-1) � �T@T
�� �(-2) � �T^T
�� Screen image
�
*IMAGE
��
� � <SHIFT> makes blue = black
*IMAGE NOBLUE

�
 � <CTRL> gives inverted dump
*IMAGE INVERT
(�
2:
<�"BBC1","BBC2","ITV","CH4"
F:
P'� Data sets default index pages and
Z� allowed page numbers
d#� #,channel,list of index pages
n%� !,allowed pages (blocks of 100)
x+� #,1,102,120,151,170,300,180,!,100,300
�+� #,2,251,700,230,202,270,!,200,300,700
�+� #,3,160,230,210,220,120,101,!,100,200
�/� #,4,690,530,580,550,480,450,!,600,400,500
�� #
�

00000000  0d 00 0a 0b ee 85 e5 8d  54 6a 4d 0d 00 14 12 f4  |........TjM.....|
00000010  20 50 41 47 45 20 47 52  41 42 42 45 52 0d 00 1e  | PAGE GRABBER...|
00000020  14 f4 20 42 79 20 4a 20  52 20 43 72 65 6c 6c 69  |.. By J R Crelli|
00000030  6e 0d 00 28 22 f4 20 42  61 73 65 64 20 6f 6e 20  |n..(". Based on |
00000040  4e 65 77 73 20 62 79 20  52 20 4a 20 4a 20 4f 72  |News by R J J Or|
00000050  74 6f 6e 0d 00 32 0f f4  20 56 65 72 73 69 6f 6e  |ton..2.. Version|
00000060  20 32 0d 00 3c 12 66 69  6c 65 73 79 73 74 65 6d  | 2..<.filesystem|
00000070  3d a4 66 73 0d 00 46 4c  e7 20 66 69 6c 65 73 79  |=.fs..FL. filesy|
00000080  73 74 65 6d 3c 3e 34 20  80 20 66 69 6c 65 73 79  |stem<>4 . filesy|
00000090  73 74 65 6d 3c 3e 38 20  8c 20 f2 65 72 72 6f 72  |stem<>8 . .error|
000000a0  28 31 30 30 2c 22 4f 6e  6c 79 20 41 44 46 53 20  |(100,"Only ADFS |
000000b0  6f 72 20 44 46 53 20 70  6c 65 61 73 65 21 22 29  |or DFS please!")|
000000c0  0d 00 50 24 e7 20 66 69  6c 65 73 79 73 74 65 6d  |..P$. filesystem|
000000d0  3d 38 20 8c 20 41 44 46  53 3d b9 20 8b 20 41 44  |=8 . ADFS=. . AD|
000000e0  46 53 3d a3 0d 00 5a 12  e7 20 ac 20 41 44 46 53  |FS=...Z.. . ADFS|
000000f0  20 8c 8d 74 4c 40 0d 00  64 0b ee 85 e5 8d 74 54  | ..tL@..d.....tT|
00000100  4c 0d 00 6e 10 2a 44 49  52 20 24 2e 70 61 67 65  |L..n.*DIR $.page|
00000110  73 0d 00 73 0a 2a 44 49  52 20 24 0d 00 78 0b ee  |s..s.*DIR $..x..|
00000120  85 e5 8d 64 5a 4c 0d 00  82 11 2a 44 49 52 20 24  |...dZL....*DIR $|
00000130  2e 66 72 61 6d 65 73 0d  00 8c 0b ee 85 e5 8d 54  |.frames........T|
00000140  6a 4d 0d 00 96 07 eb 20  37 0d 00 a0 08 44 25 3d  |jM..... 7....D%=|
00000150  31 0d 00 aa 09 f2 69 6e  69 74 0d 00 b4 08 44 25  |1.....init....D%|
00000160  3d 32 0d 00 be 0b f2 63  68 6f 6f 73 65 0d 00 c8  |=2.....choose...|
00000170  08 44 25 3d 33 0d 00 d2  0c f2 67 72 61 62 62 65  |.D%=3.....grabbe|
00000180  72 0d 00 dc 08 44 25 3d  34 0d 00 e6 0c f2 64 69  |r....D%=4.....di|
00000190  73 70 6c 61 79 0d 00 f0  1a f2 65 72 72 6f 72 28  |splay.....error(|
000001a0  32 30 30 2c 22 46 49 4e  49 53 48 45 44 22 29 0d  |200,"FINISHED").|
000001b0  00 fa 05 e0 0d 01 04 05  3a 0d 01 0e 0a dd f2 69  |........:......i|
000001c0  6e 69 74 0d 01 18 0a 2a  46 58 34 2c 31 0d 01 22  |nit....*FX4,1.."|
000001d0  07 d1 3d 30 0d 01 2c 2c  6e 70 25 3d 33 30 3a 73  |..=0..,,np%=30:s|
000001e0  61 76 65 25 3d 31 3a 73  68 6f 77 6e 25 3d 30 3a  |ave%=1:shown%=0:|
000001f0  73 74 69 6d 65 25 3d 91  2b 31 30 30 30 30 30 30  |stime%=.+1000000|
00000200  0d 01 36 1a de 20 62 6c  6f 63 6b 25 20 31 38 2c  |..6.. block% 18,|
00000210  6f 73 70 61 63 65 20 31  30 30 0d 01 40 12 de 20  |ospace 100..@.. |
00000220  6c 69 73 74 25 28 6e 70  25 2d 31 29 0d 01 4a 12  |list%(np%-1)..J.|
00000230  e3 20 4e 25 3d 30 20 b8  20 6e 70 25 2d 31 0d 01  |. N%=0 . np%-1..|
00000240  54 0a de 20 78 20 37 39  0d 01 5e 16 e3 20 6e 25  |T.. x 79..^.. n%|
00000250  3d 20 78 20 b8 20 78 2b  37 35 20 88 20 34 0d 01  |= x . x+75 . 4..|
00000260  68 09 21 6e 25 3d 30 0d  01 72 05 ed 0d 01 7c 0f  |h.!n%=0..r....|.|
00000270  6c 69 73 74 25 28 4e 25  29 3d 78 0d 01 86 05 ed  |list%(N%)=x.....|
00000280  0d 01 90 0d de 20 50 25  28 6e 70 25 29 0d 01 9a  |..... P%(np%)...|
00000290  0d 50 25 28 6e 70 25 29  3d 30 0d 01 a4 3e de 20  |.P%(np%)=0...>. |
000002a0  73 70 25 28 6e 70 25 29  2c 6c 73 70 25 28 6e 70  |sp%(np%),lsp%(np|
000002b0  25 29 2c 63 70 25 28 35  29 2c 64 70 25 28 37 29  |%),cp%(5),dp%(7)|
000002c0  2c 72 6f 75 6e 64 25 28  6e 70 25 29 2c 66 69 6e  |,round%(np%),fin|
000002d0  64 73 25 28 6e 70 25 29  0d 01 ae 11 e3 20 4e 25  |ds%(np%)..... N%|
000002e0  3d 20 30 20 b8 20 6e 70  25 0d 01 b8 32 73 70 25  |= 0 . np%...2sp%|
000002f0  28 4e 25 29 3d 30 3a 6c  73 70 25 28 4e 25 29 3d  |(N%)=0:lsp%(N%)=|
00000300  30 3a 72 6f 75 6e 64 25  28 4e 25 29 3d 30 3a 66  |0:round%(N%)=0:f|
00000310  69 6e 64 73 25 28 4e 25  29 3d 30 0d 01 c2 05 ed  |inds%(N%)=0.....|
00000320  0d 01 cc 0a de 20 58 25  2d 31 0d 01 d6 2b f2 70  |..... X%-1...+.p|
00000330  72 69 6e 74 28 30 2c 31  30 2c 22 45 6e 74 65 72  |rint(0,10,"Enter|
00000340  20 63 68 61 6e 6e 65 6c  20 72 65 71 75 69 72 65  | channel require|
00000350  64 22 2c 36 29 0d 01 e0  15 f1 8a 31 2c 31 33 29  |d",6)......1,13)|
00000360  bd 31 33 30 3b 22 3e 3e  22 3b 0d 01 ea 0a e8 22  |.130;">>";....."|
00000370  22 43 48 25 0d 01 f4 1d  e7 20 43 48 25 3e 34 20  |"CH%..... CH%>4 |
00000380  84 20 43 48 25 3c 31 20  8c 20 db 3a e5 8d 64 56  |. CH%<1 . .:..dV|
00000390  41 0d 01 fe 21 e7 20 43  48 25 3e 32 20 8c 20 43  |A...!. CH%>2 . C|
000003a0  52 43 73 69 67 3d a3 20  8b 20 43 52 43 73 69 67  |RCsig=. . CRCsig|
000003b0  3d b9 0d 02 08 09 f7 8d  44 78 54 0d 02 12 05 f5  |=.......DxT.....|
000003c0  0d 02 1c 05 f5 0d 02 26  08 f3 20 58 24 0d 02 30  |.......&.. X$..0|
000003d0  0c fd 20 58 24 3d 22 23  22 0d 02 3a 08 f3 20 58  |.. X$="#"..:.. X|
000003e0  24 0d 02 44 0f fd 20 bb  28 58 24 29 3d 43 48 25  |$..D.. .(X$)=CH%|
000003f0  0d 02 4e 1f e7 20 43 48  25 3e 32 20 8c 20 72 6f  |..N.. CH%>2 . ro|
00000400  77 73 3d 32 34 20 8b 20  72 6f 77 73 3d 33 30 0d  |ws=24 . rows=30.|
00000410  02 58 0a 2a 54 54 58 4f  4e 0d 02 62 17 f2 6f 73  |.X.*TTXON..b..os|
00000420  63 6c 69 28 22 43 48 22  2b c3 28 43 48 25 29 29  |cli("CH"+.(CH%))|
00000430  0d 02 6c 0d 3f 62 6c 6f  63 6b 25 3d 37 0d 02 76  |..l.?block%=7..v|
00000440  11 62 6c 6f 63 6b 25 3f  31 3d 72 6f 77 73 0d 02  |.block%?1=rows..|
00000450  80 14 f2 6f 77 3a f4 20  6e 6f 20 6f 66 20 72 6f  |...ow:. no of ro|
00000460  77 73 0d 02 8a 13 73 70  61 63 65 3d 93 2d 58 25  |ws....space=.-X%|
00000470  2d 31 32 30 30 0d 02 94  1b 72 65 63 25 3d 73 70  |-1200....rec%=sp|
00000480  61 63 65 20 81 20 28 33  30 2a 34 32 2b 31 30 29  |ace . (30*42+10)|
00000490  0d 02 9e 17 e7 20 72 65  63 25 3e 32 30 20 8c 20  |..... rec%>20 . |
000004a0  72 65 63 25 3d 32 30 0d  02 a8 0f 72 65 63 25 3d  |rec%=20....rec%=|
000004b0  72 65 63 25 2d 32 0d 02  b2 1c de 20 72 65 63 6f  |rec%-2..... reco|
000004c0  72 64 28 72 65 63 25 29  2c 70 74 25 28 72 65 63  |rd(rec%),pt%(rec|
000004d0  25 29 0d 02 bc 0f e3 20  4e 25 3d 30 b8 72 65 63  |%)..... N%=0.rec|
000004e0  25 0d 02 c6 0d de 20 78  20 33 30 2a 34 32 0d 02  |%..... x 30*42..|
000004f0  d0 10 72 65 63 6f 72 64  28 4e 25 29 3d 78 0d 02  |..record(N%)=x..|
00000500  da 05 ed 0d 02 e4 13 73  70 61 63 65 3d 72 65 63  |.......space=rec|
00000510  6f 72 64 28 30 29 0d 02  ee 05 e1 0d 02 f8 05 3a  |ord(0).........:|
00000520  0d 03 02 0d dd f2 67 72  61 62 62 65 72 0d 03 0c  |......grabber...|
00000530  05 db 0d 03 16 08 2a 48  4f 4e 0d 03 20 08 f2 6f  |......*HON.. ..o|
00000540  66 66 0d 03 2a 1d f1 8a  30 2c 31 29 22 82 53 65  |ff..*...0,1)".Se|
00000550  61 72 63 68 69 6e 67 20  66 6f 72 3a 2d 22 3b 0d  |arching for:-";.|
00000560  03 34 22 3f 62 6c 6f 63  6b 25 3d 31 34 3a f2 6f  |.4"?block%=14:.o|
00000570  77 3a f4 20 63 6c 65 61  72 20 72 65 63 6f 72 64  |w:. clear record|
00000580  73 0d 03 3e 08 42 25 3d  30 0d 03 48 05 f5 0d 03  |s..>.B%=0..H....|
00000590  52 0e 50 42 25 3d 50 25  28 42 25 29 0d 03 5c 15  |R.PB%=P%(B%)..\.|
000005a0  f2 73 65 74 75 70 28 42  25 2c 50 42 25 2c 42 25  |.setup(B%,PB%,B%|
000005b0  29 0d 03 66 0b 42 25 3d  42 25 2b 31 0d 03 70 18  |)..f.B%=B%+1..p.|
000005c0  fd 20 50 25 28 42 25 29  3d 30 20 84 20 42 25 3e  |. P%(B%)=0 . B%>|
000005d0  72 65 63 25 0d 03 7a 0d  72 65 63 25 3d 42 25 2d  |rec%..z.rec%=B%-|
000005e0  31 0d 03 84 0a f2 63 68  65 63 6b 0d 03 8e 05 e1  |1.....check.....|
000005f0  0d 03 98 05 3a 0d 03 a2  16 dd f2 73 65 74 75 70  |....:......setup|
00000600  28 45 25 2c 70 25 2c 6c  6e 25 29 0d 03 ac 0f 70  |(E%,p%,ln%)....p|
00000610  74 25 28 45 25 29 3d 6c  6e 25 0d 03 b6 1f f1 8a  |t%(E%)=ln%......|
00000620  30 2c 45 25 2b 33 29 22  86 50 22 c3 28 70 25 29  |0,E%+3)".P".(p%)|
00000630  3b 89 28 33 39 2d b1 29  3b 0d 03 c0 12 f2 73 65  |;.(39-.);.....se|
00000640  74 72 65 63 28 45 25 2c  70 25 29 0d 03 ca 05 e1  |trec(E%,p%).....|
00000650  0d 03 d4 05 3a 0d 03 de  08 dd f2 6f 77 0d 03 e8  |....:......ow...|
00000660  0e ea 20 41 25 2c 58 25  2c 59 25 0d 03 f2 13 58  |.. A%,X%,Y%....X|
00000670  25 3d 62 6c 6f 63 6b 25  20 83 20 32 35 36 0d 03  |%=block% . 256..|
00000680  fc 13 59 25 3d 62 6c 6f  63 6b 25 20 81 20 32 35  |..Y%=block% . 25|
00000690  36 0d 04 06 0a 41 25 3d  26 37 41 0d 04 10 0b d6  |6....A%=&7A.....|
000006a0  20 26 46 46 46 31 0d 04  1a 05 e1 0d 04 24 05 3a  | &FFF1.......$.:|
000006b0  0d 04 2e 0d dd a4 62 63  64 28 58 25 29 0d 04 38  |......bcd(X%)..8|
000006c0  1e e7 20 58 25 3e 39 39  20 8c 20 f2 65 72 72 6f  |.. X%>99 . .erro|
000006d0  72 28 39 39 2c 22 21 21  21 22 29 0d 04 42 13 74  |r(99,"!!!")..B.t|
000006e0  6f 70 6e 69 62 25 3d 58  25 20 81 20 31 30 0d 04  |opnib%=X% . 10..|
000006f0  4c 13 62 6f 74 6e 69 62  25 3d 58 25 20 83 20 31  |L.botnib%=X% . 1|
00000700  30 0d 04 56 17 3d 74 6f  70 6e 69 62 25 2a 31 36  |0..V.=topnib%*16|
00000710  2b 62 6f 74 6e 69 62 25  0d 04 60 05 3a 0d 04 6a  |+botnib%..`.:..j|
00000720  12 dd f2 65 72 72 6f 72  28 58 25 2c 58 24 29 0d  |...error(X%,X$).|
00000730  04 74 19 24 73 70 61 63  65 3d bd 30 2b bd 28 58  |.t.$space=.0+.(X|
00000740  25 29 2b 58 24 2b bd 30  0d 04 7e 0b d6 20 73 70  |%)+X$+.0..~.. sp|
00000750  61 63 65 0d 04 88 05 e1  0d 04 92 05 3a 0d 04 9c  |ace.........:...|
00000760  0b dd f2 63 68 65 63 6b  0d 04 a6 08 ea 20 45 25  |...check..... E%|
00000770  0d 04 b0 05 f5 0d 04 ba  0e 66 69 6e 69 73 68 65  |.........finishe|
00000780  64 3d b9 0d 04 c4 11 e3  20 45 25 3d 30 20 b8 20  |d=...... E%=0 . |
00000790  72 65 63 25 0d 04 ce 3c  e7 20 28 66 69 6e 64 73  |rec%...<. (finds|
000007a0  25 28 70 74 25 28 45 25  29 29 3d 30 29 20 80 20  |%(pt%(E%))=0) . |
000007b0  28 91 2d 73 74 69 6d 65  25 3e 31 30 30 30 30 29  |(.-stime%>10000)|
000007c0  20 8c 20 50 25 28 70 74  25 28 45 25 29 29 3d 30  | . P%(pt%(E%))=0|
000007d0  0d 04 d8 1a e7 20 50 25  28 70 74 25 28 45 25 29  |..... P%(pt%(E%)|
000007e0  29 3d 30 20 8c 20 8d 64  76 44 0d 04 e2 10 66 69  |)=0 . .dvD....fi|
000007f0  6e 69 73 68 65 64 20 3d  20 a3 0d 04 ec 1c e7 20  |nished = ...... |
00000800  a4 72 65 61 64 79 28 45  25 29 20 8c 20 f2 73 61  |.ready(E%) . .sa|
00000810  76 65 28 45 25 29 0d 04  f6 05 ed 0d 05 00 0e fd  |ve(E%)..........|
00000820  20 66 69 6e 69 73 68 65  64 0d 05 0a 05 e1 0d 05  | finished.......|
00000830  14 05 3a 0d 05 1e 09 dd  f2 63 72 63 0d 05 28 08  |..:......crc..(.|
00000840  ea 20 6c 25 0d 05 32 1e  e7 20 43 52 43 3d 30 20  |. l%..2.. CRC=0 |
00000850  8c 20 6c 69 73 74 25 28  52 25 29 3f 4c 25 3d 30  |. list%(R%)?L%=0|
00000860  3a e1 0d 05 3c 13 6c 25  3d 6c 69 73 74 25 28 52  |:...<.l%=list%(R|
00000870  25 29 3f 4c 25 0d 05 46  23 e7 20 6c 25 3d 30 20  |%)?L%..F#. l%=0 |
00000880  8c 20 6c 69 73 74 25 28  52 25 29 3f 4c 25 3d 43  |. list%(R%)?L%=C|
00000890  52 43 3a e5 8d 44 6e 45  0d 05 50 26 e7 20 6c 25  |RC:..DnE..P&. l%|
000008a0  3e 26 46 44 20 8c 20 6c  69 73 74 25 28 52 25 29  |>&FD . list%(R%)|
000008b0  3f 4c 25 3d 6c 25 2d 31  3a e5 8d 44 6e 45 0d 05  |?L%=l%-1:..DnE..|
000008c0  5a 23 e7 20 6c 25 3d 26  46 44 20 8c 20 6c 69 73  |Z#. l%=&FD . lis|
000008d0  74 25 28 52 25 29 3f 4c  25 3d 30 3a e5 8d 44 6e  |t%(R%)?L%=0:..Dn|
000008e0  45 0d 05 64 05 e1 0d 05  6e 1a f2 72 65 70 28 43  |E..d....n..rep(C|
000008f0  52 43 2c 6c 69 73 74 25  28 52 25 29 3f 4c 25 29  |RC,list%(R%)?L%)|
00000900  0d 05 78 05 e1 0d 05 82  05 3a 0d 05 8c 0e dd f2  |..x......:......|
00000910  73 61 76 65 28 59 25 29  0d 05 96 0e ea 20 4c 25  |save(Y%)..... L%|
00000920  2c 4e 25 2c 52 25 0d 05  a0 0e 52 25 3d 70 74 25  |,N%,R%....R%=pt%|
00000930  28 59 25 29 0d 05 aa 2f  3f 62 6c 6f 63 6b 25 3d  |(Y%).../?block%=|
00000940  33 3a 62 6c 6f 63 6b 25  3f 31 3d 59 25 3a 62 6c  |3:block%?1=Y%:bl|
00000950  6f 63 6b 25 3f 32 3d 31  3a f2 6f 77 3a f4 20 48  |ock%?2=1:.ow:. H|
00000960  4f 4c 44 0d 05 b4 34 53  50 25 3d a4 73 70 28 72  |OLD...4SP%=.sp(r|
00000970  65 63 6f 72 64 28 59 25  29 29 3a e7 20 4d 41 58  |ecord(Y%)):. MAX|
00000980  25 3e 30 20 8c 20 73 70  25 28 59 25 29 3d 4d 41  |%>0 . sp%(Y%)=MA|
00000990  58 25 2b 26 31 30 30 0d  05 be 1c e7 20 53 50 25  |X%+&100..... SP%|
000009a0  3e 37 39 20 84 20 53 50  25 3c 30 20 8c 20 53 50  |>79 . SP%<0 . SP|
000009b0  25 3d 30 0d 05 c8 25 f1  8a 30 2c 32 32 29 bd 31  |%=0...%..0,22).1|
000009c0  33 32 c3 28 50 25 28 52  25 29 29 22 2f 22 c3 28  |32.(P%(R%))"/".(|
000009d0  53 50 25 29 22 20 20 22  0d 05 d2 3a e7 20 73 70  |SP%)"  "...:. sp|
000009e0  25 28 52 25 29 3e 30 20  8c 20 e7 20 28 53 50 25  |%(R%)>0 . . (SP%|
000009f0  3d 30 20 80 20 6c 73 70  25 28 52 25 29 3c 3e 30  |=0 . lsp%(R%)<>0|
00000a00  29 20 8c 20 53 50 25 3d  6c 73 70 25 28 52 25 29  |) . SP%=lsp%(R%)|
00000a10  2b 31 0d 05 dc 1b 4c 25  3d 53 50 25 2d 31 3a e7  |+1....L%=SP%-1:.|
00000a20  20 4c 25 3d 2d 31 20 8c  20 4c 25 3d 30 0d 05 e6  | L%=-1 . L%=0...|
00000a30  29 e7 20 43 52 43 3e 30  20 84 20 28 6c 69 73 74  |). CRC>0 . (list|
00000a40  25 28 52 25 29 3f 28 4c  25 29 3e 32 34 30 29 20  |%(R%)?(L%)>240) |
00000a50  8c 20 f2 63 72 63 0d 05  f0 66 e7 20 53 50 25 3d  |. .crc...f. SP%=|
00000a60  30 20 80 20 28 3f 6c 69  73 74 25 28 52 25 29 3d  |0 . (?list%(R%)=|
00000a70  30 20 84 20 72 6f 75 6e  64 25 28 52 25 29 3d 33  |0 . round%(R%)=3|
00000a80  29 20 8c 20 3f 6c 69 73  74 25 28 52 25 29 3d 73  |) . ?list%(R%)=s|
00000a90  61 76 65 25 3a f2 73 73  61 76 65 3a 50 25 28 52  |ave%:.ssave:P%(R|
00000aa0  25 29 3d 30 3a f2 73 65  74 75 70 61 6e 6f 74 68  |%)=0:.setupanoth|
00000ab0  65 72 28 59 25 29 3a e5  8d 74 64 46 0d 05 fa 36  |er(Y%):..tdF...6|
00000ac0  e7 20 28 6c 69 73 74 25  28 52 25 29 3f 28 4c 25  |. (list%(R%)?(L%|
00000ad0  29 29 3d 30 20 8c 20 6c  69 73 74 25 28 52 25 29  |))=0 . list%(R%)|
00000ae0  3f 28 4c 25 29 3d 73 61  76 65 25 3a f2 73 73 61  |?(L%)=save%:.ssa|
00000af0  76 65 0d 06 04 2f e7 20  28 28 73 70 25 28 52 25  |ve.../. ((sp%(R%|
00000b00  29 20 80 20 26 46 46 29  3c 53 50 25 29 20 8c 20  |) . &FF)<SP%) . |
00000b10  73 70 25 28 52 25 29 3d  53 50 25 3a e5 8d 74 46  |sp%(R%)=SP%:..tF|
00000b20  46 0d 06 0e 2c e7 20 53  50 25 3c 6c 73 70 25 28  |F...,. SP%<lsp%(|
00000b30  52 25 29 20 8c 20 73 70  25 28 52 25 29 3d 6c 73  |R%) . sp%(R%)=ls|
00000b40  70 25 28 52 25 29 20 84  20 26 31 30 30 0d 06 18  |p%(R%) . &100...|
00000b50  35 e7 20 53 50 25 3d 30  20 84 20 28 53 50 25 3c  |5. SP%=0 . (SP%<|
00000b60  6c 73 70 25 28 52 25 29  29 20 8c 72 6f 75 6e 64  |lsp%(R%)) .round|
00000b70  25 28 52 25 29 3d 72 6f  75 6e 64 25 28 52 25 29  |%(R%)=round%(R%)|
00000b80  2b 31 0d 06 22 22 6c 25  3d 73 70 25 28 52 25 29  |+1..""l%=sp%(R%)|
00000b90  20 80 20 26 46 46 3a e7  20 6c 25 3d 30 20 8c 20  | . &FF:. l%=0 . |
00000ba0  6c 25 3d 31 0d 06 2c 3a  e7 20 28 66 69 6e 64 73  |l%=1..,:. (finds|
00000bb0  25 28 52 25 29 20 81 20  6c 25 29 20 3e 20 35 20  |%(R%) . l%) > 5 |
00000bc0  8c 20 f2 66 69 6c 6c 69  6e 28 52 25 29 3a 63 6f  |. .fillin(R%):co|
00000bd0  6d 70 6c 65 74 65 3d b9  3a e5 8d 44 7c 46 0d 06  |mplete=.:..D|F..|
00000be0  36 27 e7 20 28 73 70 25  28 52 25 29 20 80 20 26  |6'. (sp%(R%) . &|
00000bf0  31 30 30 29 3d 30 20 84  20 53 50 25 3d 30 20 8c  |100)=0 . SP%=0 .|
00000c00  20 8d 74 46 46 0d 06 40  0e 63 6f 6d 70 6c 65 74  | .tFF..@.complet|
00000c10  65 3d b9 0d 06 4a 1c e3  20 4e 25 3d 31 20 b8 20  |e=...J.. N%=1 . |
00000c20  28 73 70 25 28 52 25 29  20 80 20 26 46 46 29 0d  |(sp%(R%) . &FF).|
00000c30  06 54 17 6c 25 3d 6c 69  73 74 25 28 52 25 29 3f  |.T.l%=list%(R%)?|
00000c40  28 4e 25 2d 31 29 0d 06  5e 20 e7 20 6c 25 3d 30  |(N%-1)..^ . l%=0|
00000c50  20 84 20 6c 25 3e 32 34  30 20 8c 20 63 6f 6d 70  | . l%>240 . comp|
00000c60  6c 65 74 65 3d a3 0d 06  68 05 ed 0d 06 72 2b e7  |lete=...h....r+.|
00000c70  20 72 6f 75 6e 64 25 28  52 25 29 3e 34 20 8c 20  | round%(R%)>4 . |
00000c80  f2 66 69 6c 6c 69 6e 28  52 25 29 3a 63 6f 6d 70  |.fillin(R%):comp|
00000c90  6c 65 74 65 3d b9 0d 06  7c 4b e7 20 63 6f 6d 70  |lete=...|K. comp|
00000ca0  6c 65 74 65 20 8c 20 50  25 28 52 25 29 3d 30 3a  |lete . P%(R%)=0:|
00000cb0  f1 8a 37 2c 59 25 2b 33  29 22 83 66 6f 75 6e 64  |..7,Y%+3)".found|
00000cc0  22 89 28 33 39 2d b1 29  3b 3a f2 73 65 74 75 70  |".(39-.);:.setup|
00000cd0  61 6e 6f 74 68 65 72 28  59 25 29 3a e5 8d 74 64  |another(Y%):..td|
00000ce0  46 0d 06 86 28 3f 62 6c  6f 63 6b 25 3d 33 3a 62  |F...(?block%=3:b|
00000cf0  6c 6f 63 6b 25 3f 31 3d  59 25 3a 62 6c 6f 63 6b  |lock%?1=Y%:block|
00000d00  25 3f 32 3d 30 3a f2 6f  77 0d 06 90 10 6c 73 70  |%?2=0:.ow....lsp|
00000d10  25 28 52 25 29 3d 53 50  25 0d 06 9a 1b 66 69 6e  |%(R%)=SP%....fin|
00000d20  64 73 25 28 52 25 29 3d  66 69 6e 64 73 25 28 52  |ds%(R%)=finds%(R|
00000d30  25 29 2b 31 0d 06 a4 05  e1 0d 06 ae 05 3a 0d 06  |%)+1.........:..|
00000d40  b8 16 dd f2 73 65 74 75  70 61 6e 6f 74 68 65 72  |....setupanother|
00000d50  28 58 25 29 0d 06 c2 1b  e7 20 50 25 28 42 25 29  |(X%)..... P%(B%)|
00000d60  3d 30 20 8c 20 73 74 69  6d 65 25 3d 91 3a e1 0d  |=0 . stime%=.:..|
00000d70  06 cc 0e 50 42 25 3d 50  25 28 42 25 29 0d 06 d6  |...PB%=P%(B%)...|
00000d80  15 f2 73 65 74 75 70 28  58 25 2c 50 42 25 2c 42  |..setup(X%,PB%,B|
00000d90  25 29 0d 06 e0 0b 42 25  3d 42 25 2b 31 0d 06 ea  |%)....B%=B%+1...|
00000da0  05 e1 0d 06 f4 05 3a 0d  06 fe 0b dd f2 73 73 61  |......:......ssa|
00000db0  76 65 0d 07 08 14 f1 8a  31 2c 30 29 c3 28 50 25  |ve......1,0).(P%|
00000dc0  28 52 25 29 29 3b 0d 07  12 3b e7 20 28 73 70 25  |(R%));...;. (sp%|
00000dd0  28 52 25 29 20 80 20 26  31 30 30 29 20 8c 20 58  |(R%) . &100) . X|
00000de0  24 3d 22 20 6f 66 20 22  2b c3 28 73 70 25 28 52  |$=" of "+.(sp%(R|
00000df0  25 29 20 80 20 26 46 46  29 20 8b 20 58 24 3d 22  |%) . &FF) . X$="|
00000e00  22 0d 07 1c 58 e7 20 53  50 25 3d 30 20 8c f1 8a  |"...X. SP%=0 ...|
00000e10  37 2c 59 25 2b 33 29 22  83 66 6f 75 6e 64 22 3b  |7,Y%+3)".found";|
00000e20  89 28 33 39 2d b1 29 3b  20 8b 20 f1 8a 37 2c 59  |.(39-.); . ..7,Y|
00000e30  25 2b 33 29 22 86 53 75  62 70 61 67 65 83 22 3b  |%+3)".Subpage.";|
00000e40  c3 28 53 50 25 29 3b 58  24 22 86 66 6f 75 6e 64  |.(SP%);X$".found|
00000e50  22 89 28 33 39 2d b1 29  3b 0d 07 26 12 58 24 3d  |".(39-.);..&.X$=|
00000e60  a4 64 69 72 28 73 61 76  65 25 29 0d 07 30 16 e7  |.dir(save%)..0..|
00000e70  20 73 61 76 65 25 3e 32  34 30 20 8c 20 8d 74 76  | save%>240 . .tv|
00000e80  4d 0d 07 3a 3b f2 6f 73  63 6c 69 20 28 22 53 41  |M..:;.oscli ("SA|
00000e90  56 45 20 22 2b 58 24 2b  c3 28 73 61 76 65 25 29  |VE "+X$+.(save%)|
00000ea0  2b 22 20 22 2b c3 7e 28  72 65 63 6f 72 64 28 59  |+" "+.~(record(Y|
00000eb0  25 29 29 2b 22 20 2b 34  45 30 22 29 0d 07 44 11  |%))+" +4E0")..D.|
00000ec0  73 61 76 65 25 3d 73 61  76 65 25 2b 31 0d 07 4e  |save%=save%+1..N|
00000ed0  05 e1 0d 07 58 05 3a 0d  07 62 0f dd f2 72 65 70  |....X.:..b...rep|
00000ee0  28 43 2c 45 25 29 0d 07  6c 2f e7 20 43 3d 26 46  |(C,E%)..l/. C=&F|
00000ef0  46 20 8c 20 4d 24 3d 22  20 4e 6f 20 43 52 43 20  |F . M$=" No CRC |
00000f00  20 20 22 20 8b 20 4d 24  3d 22 20 42 61 64 20 43  |  " . M$=" Bad C|
00000f10  52 43 20 20 22 0d 07 76  35 f1 8a 30 2c 31 38 29  |RC  "..v5..0,18)|
00000f20  bd 31 32 39 3b c3 28 50  25 28 52 25 29 29 22 2f  |.129;.(P%(R%))"/|
00000f30  22 c3 28 53 50 25 29 4d  24 3b bd 31 33 32 3b c3  |".(SP%)M$;.132;.|
00000f40  7e 28 45 25 29 22 20 20  20 22 0d 07 80 05 e1 0d  |~(E%)"   "......|
00000f50  07 8a 05 3a 0d 07 94 0d  dd f2 64 69 73 70 6c 61  |...:......displa|
00000f60  79 0d 07 9e 0a f7 20 8d  54 7c 54 0d 07 a8 10 e3  |y..... .T|T.....|
00000f70  20 6e 25 3d 31 20 b8 20  43 48 25 0d 07 b2 09 f3  | n%=1 . CH%.....|
00000f80  20 43 48 24 0d 07 bc 05  ed 0d 07 c6 09 2a 48 4f  | CH$.........*HO|
00000f90  46 46 0d 07 d0 12 3f 62  6c 6f 63 6b 25 3d 31 34  |FF....?block%=14|
00000fa0  3a f2 6f 77 0d 07 da 14  ea 20 4e 25 2c 6e 25 2c  |:.ow..... N%,n%,|
00000fb0  6e 65 78 74 25 2c 58 25  0d 07 e4 12 e3 20 4e 25  |next%,X%..... N%|
00000fc0  3d 30 20 b8 20 6e 70 25  2d 31 0d 07 ee 08 6e 25  |=0 . np%-1....n%|
00000fd0  3d 30 0d 07 f8 05 f5 0d  08 02 16 6e 65 78 74 25  |=0.........next%|
00000fe0  3d 6c 69 73 74 25 28 4e  25 29 3f 6e 25 0d 08 0c  |=list%(N%)?n%...|
00000ff0  14 e7 20 6e 65 78 74 25  3d 30 20 8c 20 8d 64 4a  |.. next%=0 . .dJ|
00001000  48 0d 08 16 3c e7 20 6e  65 78 74 25 3d 26 46 46  |H...<. next%=&FF|
00001010  20 8c 20 ef 32 36 2c 31  32 3a f2 70 72 69 6e 74  | . .26,12:.print|
00001020  28 32 2c 31 30 2c 22 4d  49 53 53 49 4e 47 20 50  |(2,10,"MISSING P|
00001030  41 47 45 22 2c 35 29 3a  e5 8d 44 7a 48 0d 08 20  |AGE",5):..DzH.. |
00001040  12 58 24 3d a4 64 69 72  28 6e 65 78 74 25 29 0d  |.X$=.dir(next%).|
00001050  08 2a 28 e7 20 6e 65 78  74 25 3e 32 34 30 20 8c  |.*(. next%>240 .|
00001060  20 f2 65 72 72 6f 72 28  31 30 30 2c 22 52 75 6e  | .error(100,"Run|
00001070  20 6f 75 74 21 22 29 0d  08 34 13 73 68 6f 77 6e  | out!")..4.shown|
00001080  25 3d 73 68 6f 77 6e 25  2b 31 0d 08 3e 2d f2 6f  |%=shown%+1..>-.o|
00001090  73 63 6c 69 28 22 4c 4f  41 44 20 22 2b 58 24 2b  |scli("LOAD "+X$+|
000010a0  c3 28 6e 65 78 74 25 29  2b 22 20 22 2b c3 7e 28  |.(next%)+" "+.~(|
000010b0  73 70 61 63 65 29 29 0d  08 48 20 f2 6f 73 63 6c  |space))..H .oscl|
000010c0  69 28 22 44 49 53 50 4c  41 59 20 22 2b c3 7e 28  |i("DISPLAY "+.~(|
000010d0  73 70 61 63 65 29 29 0d  08 52 21 f1 8a 30 2c 30  |space))..R!..0,0|
000010e0  29 bd 31 33 34 3b a4 66  75 6c 70 28 73 70 61 63  |).134;.fulp(spac|
000010f0  65 29 3b bd 31 33 35 3b  0d 08 5c 06 f2 77 0d 08  |e);.135;..\..w..|
00001100  66 2c f1 22 85 52 45 54  55 52 4e 28 70 72 69 6e  |f,.".RETURN(prin|
00001110  74 29 20 54 41 42 28 64  75 6d 70 29 20 5d 28 6e  |t) TAB(dump) ](n|
00001120  65 78 74 29 20 52 20 5b  22 3b 0d 08 70 08 f2 6f  |ext) R [";..p..o|
00001130  66 66 0d 08 7a 24 f5 20  58 24 3d be 3a fd 20 a7  |ff..z$. X$=.:. .|
00001140  22 62 42 73 53 72 52 20  88 89 22 2b bd 39 2b bd  |"bBsSrR .."+.9+.|
00001150  31 33 2c 58 24 29 0d 08  84 1d e7 20 58 24 3d bd  |13,X$)..... X$=.|
00001160  39 20 8c 20 f2 64 75 6d  70 72 6f 75 74 69 6e 65  |9 . .dumproutine|
00001170  28 31 29 0d 08 8e 1e e7  20 58 24 3d bd 31 33 20  |(1)..... X$=.13 |
00001180  8c 20 f2 64 75 6d 70 72  6f 75 74 69 6e 65 28 32  |. .dumproutine(2|
00001190  29 0d 08 98 2c e7 20 58  24 3d 22 88 22 20 84 20  |)...,. X$="." . |
000011a0  58 24 3d 22 62 22 20 84  20 58 24 3d 22 42 22 20  |X$="b" . X$="B" |
000011b0  8c 20 f2 62 61 63 6b 3a  e5 8d 64 4a 48 0d 08 a2  |. .back:..dJH...|
000011c0  25 e7 20 58 24 3d 22 72  22 20 84 20 58 24 3d 22  |%. X$="r" . X$="|
000011d0  52 22 20 8c 20 f2 72 65  76 65 61 6c 3a e5 8d 44  |R" . .reveal:..D|
000011e0  7a 48 0d 08 ac 51 e7 20  ac 20 41 44 46 53 20 80  |zH...Q. . ADFS .|
000011f0  28 58 24 3d 22 73 22 20  84 20 58 24 3d 22 53 22  |(X$="s" . X$="S"|
00001200  29 20 8c 20 f2 6f 73 63  6c 69 28 22 53 41 56 45  |) . .oscli("SAVE|
00001210  20 22 2b a4 66 75 6c 70  28 73 70 61 63 65 29 2b  | "+.fulp(space)+|
00001220  22 20 37 43 30 30 20 38  30 30 30 22 29 3a e5 8d  |" 7C00 8000"):..|
00001230  44 7a 48 0d 08 b6 5e e7  20 41 44 46 53 20 80 28  |DzH...^. ADFS .(|
00001240  58 24 3d 22 73 22 20 84  20 58 24 3d 22 53 22 29  |X$="s" . X$="S")|
00001250  20 8c 20 f2 6f 73 63 6c  69 28 22 53 41 56 45 20  | . .oscli("SAVE |
00001260  22 2b 22 5e 2e 70 61 67  65 73 2e 22 2b 43 48 24  |"+"^.pages."+CH$|
00001270  2b a4 66 75 6c 70 28 73  70 61 63 65 29 2b 22 20  |+.fulp(space)+" |
00001280  37 43 30 30 20 38 30 30  30 22 29 3a e5 8d 44 7a  |7C00 8000"):..Dz|
00001290  48 0d 08 c0 0b 6e 25 3d  6e 25 2b 31 0d 08 ca 0d  |H....n%=n%+1....|
000012a0  fd 20 6e 65 78 74 25 3d  30 0d 08 d4 05 ed 0d 08  |. next%=0.......|
000012b0  de 05 e1 0d 08 e8 05 3a  0d 08 f2 0a dd f2 62 61  |.......:......ba|
000012c0  63 6b 0d 08 fc 16 e7 20  6e 25 3e 30 20 8c 20 6e  |ck..... n%>0 . n|
000012d0  25 3d 6e 25 2d 31 3a e1  0d 09 06 1c e7 20 4e 25  |%=n%-1:...... N%|
000012e0  3e 30 20 8c 20 4e 25 3d  4e 25 2d 32 3a 6e 65 78  |>0 . N%=N%-2:nex|
000012f0  74 25 3d 30 0d 09 10 05  e1 0d 09 1a 05 3a 0d 09  |t%=0.........:..|
00001300  24 0e dd a4 66 75 6c 70  28 45 25 29 0d 09 2e 0b  |$...fulp(E%)....|
00001310  ea 20 53 25 2c 50 25 0d  09 38 0e 50 25 3d 31 30  |. S%,P%..8.P%=10|
00001320  30 2a 3f 45 25 0d 09 42  0b 53 25 3d 45 25 3f 32  |0*?E%..B.S%=E%?2|
00001330  0d 09 4c 26 50 25 3d 50  25 2b 28 53 25 20 80 20  |..L&P%=P%+(S% . |
00001340  26 46 30 29 2a 31 30 20  81 31 36 20 2b 28 53 25  |&F0)*10 .16 +(S%|
00001350  20 80 20 26 46 29 0d 09  56 0e 53 25 3d a4 73 70  | . &F)..V.S%=.sp|
00001360  28 45 25 29 0d 09 60 2a  e7 20 53 25 3e 30 20 8c  |(E%)..`*. S%>0 .|
00001370  3d c3 28 50 25 29 2b 22  2f 22 2b c3 28 a4 73 70  |=.(P%)+"/"+.(.sp|
00001380  28 45 25 29 29 20 8b 20  3d c3 28 50 25 29 0d 09  |(E%)) . =.(P%)..|
00001390  6a 05 3a 0d 09 74 0c dd  a4 73 70 28 45 25 29 0d  |j.:..t...sp(E%).|
000013a0  09 7e 08 ea 20 53 25 0d  09 88 09 53 25 3d 37 35  |.~.. S%....S%=75|
000013b0  0d 09 92 0b 66 6f 75 6e  64 3d a3 0d 09 9c 05 f5  |....found=......|
000013c0  0d 09 a6 0b 53 25 3d 53  25 2b 31 0d 09 b0 23 e7  |....S%=S%+1...#.|
000013d0  20 28 28 45 25 3f 53 25  29 80 20 26 37 46 29 3d  | ((E%?S%). &7F)=|
000013e0  97 22 2f 22 20 8c 20 66  6f 75 6e 64 3d b9 0d 09  |."/" . found=...|
000013f0  ba 13 fd 20 66 6f 75 6e  64 20 84 20 53 25 3d 38  |... found . S%=8|
00001400  35 0d 09 c4 23 e7 20 ac  20 66 6f 75 6e 64 20 8c  |5...#. . found .|
00001410  20 53 50 25 3d 30 3a 4d  41 58 25 3d 2d 31 3a e5  | SP%=0:MAX%=-1:.|
00001420  8d 64 62 49 0d 09 ce 13  53 50 25 3d a4 65 76 61  |.dbI....SP%=.eva|
00001430  6c 28 53 25 2d 32 29 0d  09 d8 14 4d 41 58 25 3d  |l(S%-2)....MAX%=|
00001440  a4 65 76 61 6c 28 53 25  2b 31 29 0d 09 e2 0b 53  |.eval(S%+1)....S|
00001450  25 3d 45 25 3f 34 0d 09  ec 27 53 50 32 25 3d 28  |%=E%?4...'SP2%=(|
00001460  53 25 20 80 20 26 37 30  29 20 2a 31 30 20 81 20  |S% . &70) *10 . |
00001470  31 36 20 2b 28 53 25 20  80 20 26 46 29 0d 09 f6  |16 +(S% . &F)...|
00001480  0b 53 25 3d 45 25 3f 33  0d 0a 00 32 53 50 32 25  |.S%=E%?3...2SP2%|
00001490  3d 53 50 32 25 2b 28 53  25 20 80 20 26 33 30 29  |=SP2%+(S% . &30)|
000014a0  20 2a 31 30 30 30 20 81  20 31 36 20 2b 28 53 25  | *1000 . 16 +(S%|
000014b0  20 80 20 26 46 29 2a 31  30 30 0d 0a 0a 1c e7 20  | . &F)*100..... |
000014c0  53 50 25 3c 3d 30 20 84  20 53 50 25 3e 37 39 20  |SP%<=0 . SP%>79 |
000014d0  8c 3d 53 50 32 25 0d 0a  14 13 e7 20 53 50 32 25  |.=SP2%..... SP2%|
000014e0  3d 30 20 8c 20 3d 53 50  25 0d 0a 1e 18 e7 20 53  |=0 . =SP%..... S|
000014f0  50 25 3c 3e 53 50 32 25  20 8c 20 3d 20 53 50 32  |P%<>SP2% . = SP2|
00001500  25 0d 0a 28 08 3d 53 50  25 0d 0a 32 05 3a 0d 0a  |%..(.=SP%..2.:..|
00001510  3c 0e dd a4 65 76 61 6c  28 43 25 29 0d 0a 46 0b  |<...eval(C%)..F.|
00001520  ea 20 53 25 2c 55 25 0d  0a 50 18 55 25 3d 30 3a  |. S%,U%..P.U%=0:|
00001530  53 25 3d 28 45 25 3f 43  25 29 80 20 26 37 46 0d  |S%=(E%?C%). &7F.|
00001540  0a 5a 23 e7 20 53 25 3e  26 32 46 20 80 20 53 25  |.Z#. S%>&2F . S%|
00001550  3c 26 33 41 20 8c 20 55  25 3d 28 53 25 2d 26 33  |<&3A . U%=(S%-&3|
00001560  30 29 0d 0a 64 18 53 25  3d 28 45 25 3f 28 43 25  |0)..d.S%=(E%?(C%|
00001570  2b 31 29 29 20 80 20 26  37 46 0d 0a 6e 29 e7 20  |+1)) . &7F..n). |
00001580  53 25 3e 26 32 46 20 80  20 53 25 3c 26 33 41 20  |S%>&2F . S%<&3A |
00001590  8c 20 55 25 3d 55 25 2a  31 30 2b 28 53 25 2d 26  |. U%=U%*10+(S%-&|
000015a0  33 30 29 0d 0a 78 07 3d  55 25 0d 0a 82 05 3a 0d  |30)..x.=U%....:.|
000015b0  0a 8c 0c dd f2 63 68 6f  6f 73 65 0d 0a 96 08 52  |.....choose....R|
000015c0  25 3d 30 0d 0a a0 08 2a  48 4f 4e 0d 0a aa 12 3f  |%=0....*HON....?|
000015d0  62 6c 6f 63 6b 25 3d 31  34 3a f2 6f 77 0d 0a b4  |block%=14:.ow...|
000015e0  08 4e 25 3d 30 0d 0a be  05 f5 0d 0a c8 08 f3 20  |.N%=0.......... |
000015f0  58 24 0d 0a d2 14 e7 20  58 24 3d 22 21 22 20 8c  |X$..... X$="!" .|
00001600  20 e5 8d 54 44 4b 0d 0a  dc 1c e7 20 4e 25 3d 72  | ..TDK..... N%=r|
00001610  65 63 25 20 8c 20 58 24  3d 22 21 22 3a e5 8d 54  |ec% . X$="!":..T|
00001620  44 4b 0d 0a e6 0b 4e 25  3d 4e 25 2b 31 0d 0a f0  |DK....N%=N%+1...|
00001630  0c 50 25 3d bb 28 58 24  29 0d 0a fa 1d 64 70 25  |.P%=.(X$)....dp%|
00001640  28 4e 25 29 3d 50 25 3a  f2 73 65 74 72 65 63 28  |(N%)=P%:.setrec(|
00001650  4e 25 2c 50 25 29 0d 0b  04 0c fd 20 58 24 3d 22  |N%,P%)..... X$="|
00001660  21 22 0d 0b 0e 08 45 25  3d 31 0d 0b 18 05 f5 0d  |!"....E%=1......|
00001670  0b 22 08 f3 20 58 24 0d  0b 2c 11 63 70 25 28 45  |.".. X$..,.cp%(E|
00001680  25 29 3d bb 28 58 24 29  0d 0b 36 0b 45 25 3d 45  |%)=.(X$)..6.E%=E|
00001690  25 2b 31 0d 0b 40 0c fd  20 58 24 3d 22 23 22 0d  |%+1..@.. X$="#".|
000016a0  0b 4a 05 f5 0d 0b 54 0f  66 69 6e 69 73 68 65 64  |.J....T.finished|
000016b0  20 3d b9 0d 0b 5e 0f e3  20 45 25 3d 31 20 b8 20  | =...^.. E%=1 . |
000016c0  4e 25 0d 0b 68 13 e7 20  52 25 3e 3d 33 30 20 8c  |N%..h.. R%>=30 .|
000016d0  20 8d 74 46 4b 0d 0b 72  4c e7 20 28 64 70 25 28  | .tFK..rL. (dp%(|
000016e0  45 25 29 20 80 20 26 31  30 30 30 29 3d 30 20 8c  |E%) . &1000)=0 .|
000016f0  e7 20 a4 72 65 61 64 79  28 45 25 29 20 8c 20 64  |. .ready(E%) . d|
00001700  70 25 28 45 25 29 3d 64  70 25 28 45 25 29 20 84  |p%(E%)=dp%(E%) .|
00001710  20 26 31 30 30 30 3a f2  69 6e 70 75 74 28 45 25  | &1000:.input(E%|
00001720  29 0d 0b 7c 27 e7 20 28  64 70 25 28 45 25 29 20  |)..|'. (dp%(E%) |
00001730  80 20 26 31 30 30 30 29  3d 30 20 8c 20 66 69 6e  |. &1000)=0 . fin|
00001740  69 73 68 65 64 20 3d a3  0d 0b 86 05 ed 0d 0b 90  |ished =.........|
00001750  0e fd 20 66 69 6e 69 73  68 65 64 0d 0b 9a 08 52  |.. finished....R|
00001760  25 3d 30 0d 0b a4 05 e1  0d 0b ae 05 3a 0d 0b b8  |%=0.........:...|
00001770  0f dd f2 69 6e 70 75 74  28 59 25 29 0d 0b c2 25  |...input(Y%)...%|
00001780  f2 6f 73 63 6c 69 28 22  44 49 53 50 4c 41 59 20  |.oscli("DISPLAY |
00001790  22 2b c3 7e 28 72 65 63  6f 72 64 28 59 25 29 29  |"+.~(record(Y%))|
000017a0  29 0d 0b cc 1a f2 73 65  74 72 65 63 28 59 25 2c  |).....setrec(Y%,|
000017b0  30 29 3a f4 20 63 6c 65  61 72 3f 0d 0b d6 08 f2  |0):. clear?.....|
000017c0  6f 66 66 0d 0b e0 1a 63  75 72 72 65 6e 74 25 3d  |off....current%=|
000017d0  64 70 25 28 59 25 29 20  80 26 46 46 46 0d 0b ea  |dp%(Y%) .&FFF...|
000017e0  19 f1 8a 30 2c 30 29 22  80 22 c3 28 63 75 72 72  |...0,0)".".(curr|
000017f0  65 6e 74 25 29 3b 0d 0b  f4 06 f2 77 0d 0b fe 09  |ent%);.....w....|
00001800  66 69 6e 3d a3 0d 0c 08  05 f5 0d 0c 12 11 58 25  |fin=..........X%|
00001810  3d a4 63 68 65 63 6b 70  61 67 65 0d 0c 1c 18 e7  |=.checkpage.....|
00001820  20 58 25 3d 30 20 8c 20  66 69 6e 3d b9 3a e5 8d  | X%=0 . fin=.:..|
00001830  44 62 4c 0d 0c 26 11 e3  20 6e 25 3d 30 20 b8 20  |DbL..&.. n%=0 . |
00001840  52 25 2d 31 0d 0c 30 28  e7 20 58 25 3d 50 25 28  |R%-1..0(. X%=P%(|
00001850  6e 25 29 20 8c 20 ef 37  3a f1 22 43 68 6f 73 65  |n%) . .7:."Chose|
00001860  6e 21 20 20 22 3b 3a e5  8d 44 62 4c 0d 0c 3a 05  |n!  ";:..DbL..:.|
00001870  ed 0d 0c 44 0d 50 25 28  52 25 29 3d 58 25 0d 0c  |...D.P%(R%)=X%..|
00001880  4e 0b 52 25 3d 52 25 2b  31 0d 0c 58 14 e7 20 52  |N.R%=R%+1..X.. R|
00001890  25 3e 3d 33 30 20 8c 20  66 69 6e 3d b9 0d 0c 62  |%>=30 . fin=...b|
000018a0  09 fd 20 66 69 6e 0d 0c  6c 11 64 70 25 28 59 25  |.. fin..l.dp%(Y%|
000018b0  29 3d 26 31 30 30 30 0d  0c 76 07 ef 32 36 0d 0c  |)=&1000..v..26..|
000018c0  80 05 e1 0d 0c 8a 05 3a  0d 0c 94 13 e7 20 9f 3c  |.......:..... .<|
000018d0  3e 32 31 34 20 8c 20 8d  54 6a 4d 0d 0c 9e 0f 2a  |>214 . .TjM....*|
000018e0  43 44 49 52 20 70 61 67  65 73 0d 0c a8 14 2a 43  |CDIR pages....*C|
000018f0  44 49 52 20 70 61 67 65  73 2e 42 42 43 31 0d 0c  |DIR pages.BBC1..|
00001900  b2 14 2a 43 44 49 52 20  70 61 67 65 73 2e 42 42  |..*CDIR pages.BB|
00001910  43 32 0d 0c bc 13 2a 43  44 49 52 20 70 61 67 65  |C2....*CDIR page|
00001920  73 2e 49 54 56 0d 0c c6  13 2a 43 44 49 52 20 70  |s.ITV....*CDIR p|
00001930  61 67 65 73 2e 43 48 34  0d 0c d0 05 f9 0d 0c da  |ages.CH4........|
00001940  13 e7 20 9f 3c 3e 32 31  34 20 8c 20 8d 54 6a 4d  |.. .<>214 . .TjM|
00001950  0d 0c e4 10 2a 43 44 49  52 20 66 72 61 6d 65 73  |....*CDIR frames|
00001960  0d 0c ee 13 2a 43 44 49  52 20 66 72 61 6d 65 73  |....*CDIR frames|
00001970  2e 34 31 0d 0c f8 13 2a  43 44 49 52 20 66 72 61  |.41....*CDIR fra|
00001980  6d 65 73 2e 34 32 0d 0d  02 13 2a 43 44 49 52 20  |mes.42....*CDIR |
00001990  66 72 61 6d 65 73 2e 34  33 0d 0d 0c 13 2a 43 44  |frames.43....*CD|
000019a0  49 52 20 66 72 61 6d 65  73 2e 34 34 0d 0d 16 13  |IR frames.44....|
000019b0  2a 43 44 49 52 20 66 72  61 6d 65 73 2e 34 35 0d  |*CDIR frames.45.|
000019c0  0d 20 05 f9 0d 0d 2a 07  ee 85 87 0d 0d 34 09 2a  |. ....*......4.*|
000019d0  48 4f 46 46 0d 0d 3e 06  ef 33 0d 0d 48 07 eb 20  |HOFF..>..3..H.. |
000019e0  37 0d 0d 52 19 e7 20 9f  3d 31 37 20 80 20 a6 28  |7..R.. .=17 . .(|
000019f0  2d 32 29 20 8c 20 8d 44  66 4d 0d 0d 5c 2a e7 20  |-2) . .DfM..\*. |
00001a00  9f 20 3d 31 37 20 84 20  9f 3d 31 37 39 20 84 20  |. =17 . .=179 . |
00001a10  9f 3d 31 39 38 20 84 20  9f 3d 31 39 30 20 8c 20  |.=198 . .=190 . |
00001a20  8d 74 6c 4d 0d 0d 66 0b  2a 54 54 58 4f 46 46 0d  |.tlM..f.*TTXOFF.|
00001a30  0d 70 08 f1 27 27 27 0d  0d 7a 08 2a 46 58 34 0d  |.p..'''..z.*FX4.|
00001a40  0d 84 12 e7 20 41 44 46  53 20 8c 2a 44 49 52 20  |.... ADFS .*DIR |
00001a50  5e 0d 0d 8e 05 f6 0d 0d  98 0c f1 22 20 61 74 20  |^.........." at |
00001a60  22 9e 0d 0d a2 05 e0 0d  0d ac 0b ee 85 e5 8d 54  |"..............T|
00001a70  6a 4d 0d 0d b6 1e ee 20  44 25 20 e5 20 8d 44 66  |jM..... D% . .Df|
00001a80  4d 2c 8d 74 74 40 2c 8d  64 40 4d 2c 8d 44 66 4d  |M,.tt@,.d@M,.DfM|
00001a90  0d 0d c0 12 f2 63 6c 65  61 6e 75 70 3a e5 8d 64  |.....cleanup:..d|
00001aa0  5c 40 0d 0d ca 05 3a 0d  0d d4 18 dd f2 70 72 69  |\@....:......pri|
00001ab0  6e 74 28 58 25 2c 59 25  2c 58 24 2c 43 25 29 0d  |nt(X%,Y%,X$,C%).|
00001ac0  0d de 1d f1 8a 58 25 2c  59 25 29 bd 31 34 31 3b  |.....X%,Y%).141;|
00001ad0  bd 28 31 32 38 2b 43 25  29 3b 58 24 0d 0d e8 1f  |.(128+C%);X$....|
00001ae0  f1 8a 58 25 2c 59 25 2b  31 29 bd 31 34 31 3b bd  |..X%,Y%+1).141;.|
00001af0  28 31 32 38 2b 43 25 29  3b 58 24 0d 0d f2 05 e1  |(128+C%);X$.....|
00001b00  0d 0d fc 05 3a 0d 0e 06  13 dd f2 73 65 74 72 65  |....:......setre|
00001b10  63 28 4e 25 2c 50 25 29  0d 0e 10 28 3f 62 6c 6f  |c(N%,P%)...(?blo|
00001b20  63 6b 25 3d 32 3a 62 6c  6f 63 6b 25 3f 31 3d 4e  |ck%=2:block%?1=N|
00001b30  25 3a 62 6c 6f 63 6b 25  3f 32 3d 30 3a f2 6f 77  |%:block%?2=0:.ow|
00001b40  0d 0e 1a 26 e7 20 28 62  6c 6f 63 6b 25 3f 32 20  |...&. (block%?2 |
00001b50  80 20 34 29 3d 34 20 8c  f2 64 65 6c 28 32 30 29  |. 4)=4 ..del(20)|
00001b60  3a e5 8d 54 50 4e 0d 0e  24 0d 3f 62 6c 6f 63 6b  |:..TPN..$.?block|
00001b70  25 3d 35 0d 0e 2e 0f 62  6c 6f 63 6b 25 3f 31 3d  |%=5....block%?1=|
00001b80  4e 25 0d 0e 38 15 62 6c  6f 63 6b 25 3f 32 3d 50  |N%..8.block%?2=P|
00001b90  25 20 81 20 31 30 30 0d  0e 42 1b 62 6c 6f 63 6b  |% . 100..B.block|
00001ba0  25 3f 33 3d a4 62 63 64  28 50 25 20 83 20 31 30  |%?3=.bcd(P% . 10|
00001bb0  30 29 0d 0e 4c 10 62 6c  6f 63 6b 25 3f 34 3d 26  |0)..L.block%?4=&|
00001bc0  33 46 0d 0e 56 10 62 6c  6f 63 6b 25 3f 35 3d 26  |3F..V.block%?5=&|
00001bd0  37 46 0d 0e 60 1d 62 6c  6f 63 6b 25 3f 36 3d 72  |7F..`.block%?6=r|
00001be0  65 63 6f 72 64 28 4e 25  29 20 83 20 32 35 36 0d  |ecord(N%) . 256.|
00001bf0  0e 6a 1d 62 6c 6f 63 6b  25 3f 37 3d 72 65 63 6f  |.j.block%?7=reco|
00001c00  72 64 28 4e 25 29 20 81  20 32 35 36 0d 0e 74 07  |rd(N%) . 256..t.|
00001c10  f2 6f 77 0d 0e 7e 0d 3f  62 6c 6f 63 6b 25 3d 33  |.ow..~.?block%=3|
00001c20  0d 0e 88 0f 62 6c 6f 63  6b 25 3f 31 3d 4e 25 0d  |....block%?1=N%.|
00001c30  0e 92 0e 62 6c 6f 63 6b  25 3f 32 3d 30 0d 0e 9c  |...block%?2=0...|
00001c40  13 f2 6f 77 3a f4 20 69  6e 69 74 20 66 6c 61 67  |..ow:. init flag|
00001c50  0d 0e a6 05 e1 0d 0e b0  05 3a 0d 0e ba 0f dd a4  |.........:......|
00001c60  72 65 61 64 79 28 58 25  29 0d 0e c4 0b ea 20 4e  |ready(X%)..... N|
00001c70  25 2c 6e 25 0d 0e ce 09  43 52 43 3d 30 0d 0e d8  |%,n%....CRC=0...|
00001c80  0d 3f 62 6c 6f 63 6b 25  3d 32 0d 0e e2 0f 62 6c  |.?block%=2....bl|
00001c90  6f 63 6b 25 3f 31 3d 58  25 0d 0e ec 0e 62 6c 6f  |ock%?1=X%....blo|
00001ca0  63 6b 25 3f 32 3d 30 0d  0e f6 14 f2 6f 77 3a f4  |ck%?2=0.....ow:.|
00001cb0  20 63 68 65 63 6b 20 66  6c 61 67 0d 0f 00 27 e7  | check flag...'.|
00001cc0  20 28 62 6c 6f 63 6b 25  3f 32 20 80 20 34 29 3d  | (block%?2 . 4)=|
00001cd0  34 20 8c 20 f2 64 65 6c  28 32 30 29 3a e5 8d 64  |4 . .del(20):..d|
00001ce0  58 4e 0d 0f 0a 1b e7 20  28 62 6c 6f 63 6b 25 3f  |XN..... (block%?|
00001cf0  32 20 80 20 32 29 3d 30  20 8c 20 3d a3 0d 0f 14  |2 . 2)=0 . =....|
00001d00  0e 3f 62 6c 6f 63 6b 25  3d 32 33 0d 0f 1e 1d 62  |.?block%=23....b|
00001d10  6c 6f 63 6b 25 3f 31 3d  72 65 63 6f 72 64 28 58  |lock%?1=record(X|
00001d20  25 29 20 83 20 32 35 36  0d 0f 28 1d 62 6c 6f 63  |%) . 256..(.bloc|
00001d30  6b 25 3f 32 3d 72 65 63  6f 72 64 28 58 25 29 20  |k%?2=record(X%) |
00001d40  81 20 32 35 36 0d 0f 32  0e 62 6c 6f 63 6b 25 3f  |. 256..2.block%?|
00001d50  33 3d 30 0d 0f 3c 07 f2  6f 77 0d 0f 46 0f 4e 25  |3=0..<..ow..F.N%|
00001d60  3d 62 6c 6f 63 6b 25 3f  33 0d 0f 50 0f e7 20 4e  |=block%?3..P.. N|
00001d70  25 3d 31 20 8c 20 3d b9  0d 0f 5a 16 e3 20 6e 25  |%=1 . =...Z.. n%|
00001d80  3d 39 30 39 20 b8 20 31  32 35 36 20 88 34 0d 0f  |=909 . 1256 .4..|
00001d90  64 13 72 65 63 6f 72 64  28 58 25 29 21 6e 25 3d  |d.record(X%)!n%=|
00001da0  30 0d 0f 6e 05 ed 0d 0f  78 13 e7 20 ac 20 43 52  |0..n....x.. . CR|
00001db0  43 73 69 67 20 8c 20 3d  b9 0d 0f 82 1e 43 52 43  |Csig . =.....CRC|
00001dc0  3d 26 46 46 3a 72 65 63  6f 72 64 28 58 25 29 3f  |=&FF:record(X%)?|
00001dd0  31 30 3d 97 22 21 22 0d  0f 8c 27 e7 4e 25 3d 26  |10=."!"...'.N%=&|
00001de0  46 46 20 8c 72 65 63 6f  72 64 28 58 25 29 3f 31  |FF .record(X%)?1|
00001df0  31 3d 97 22 21 22 3a 43  52 43 3d 26 46 45 0d 0f  |1=."!":CRC=&FE..|
00001e00  96 06 3d b9 0d 0f a0 05  3a 0d 0f aa 18 dd f2 77  |..=.....:......w|
00001e10  3a ef 32 38 2c 30 2c 32  34 2c 33 39 2c 32 34 3a  |:.28,0,24,39,24:|
00001e20  e1 0d 0f b4 21 dd f2 6f  66 66 3a ef 32 33 2c 31  |....!..off:.23,1|
00001e30  2c 30 2c 30 2c 30 2c 30  2c 30 2c 30 2c 30 2c 30  |,0,0,0,0,0,0,0,0|
00001e40  3a e1 0d 0f be 20 dd f2  6f 6e 3a ef 32 33 2c 31  |:.... ..on:.23,1|
00001e50  2c 31 2c 30 2c 30 2c 30  2c 30 2c 30 2c 30 2c 30  |,1,0,0,0,0,0,0,0|
00001e60  3a e1 0d 0f c8 05 3a 0d  0f d2 0d dd f2 63 6c 65  |:.....:......cle|
00001e70  61 6e 75 70 0d 0f dc 13  e3 20 45 25 3d 20 30 20  |anup..... E%= 0 |
00001e80  b8 20 6e 70 25 2d 31 0d  0f e6 15 e7 20 50 25 28  |. np%-1..... P%(|
00001e90  45 25 29 3d 30 20 8c 20  8d 54 44 50 0d 0f f0 48  |E%)=0 . .TDP...H|
00001ea0  e7 20 73 70 25 28 45 25  29 3d 30 20 80 20 28 3f  |. sp%(E%)=0 . (?|
00001eb0  6c 69 73 74 25 28 45 25  29 3d 30 20 84 20 3f 6c  |list%(E%)=0 . ?l|
00001ec0  69 73 74 25 28 45 25 29  3e 32 34 30 29 20 8c 20  |ist%(E%)>240) . |
00001ed0  3f 6c 69 73 74 25 28 45  25 29 3d 26 46 46 3a e5  |?list%(E%)=&FF:.|
00001ee0  8d 54 44 50 0d 0f fa 0f  f2 66 69 6c 6c 69 6e 28  |.TDP.....fillin(|
00001ef0  45 25 29 0d 10 04 05 ed  0d 10 0e 05 e1 0d 10 18  |E%).............|
00001f00  05 3a 0d 10 22 10 dd f2  66 69 6c 6c 69 6e 28 52  |.:.."...fillin(R|
00001f10  25 29 0d 10 2c 08 ea 20  4e 25 0d 10 36 1c e3 20  |%)..,.. N%..6.. |
00001f20  4e 25 3d 31 20 b8 20 28  73 70 25 28 52 25 29 20  |N%=1 . (sp%(R%) |
00001f30  80 20 26 46 46 29 0d 10  40 48 e7 20 28 6c 69 73  |. &FF)..@H. (lis|
00001f40  74 25 28 52 25 29 3f 28  4e 25 2d 31 29 3d 30 20  |t%(R%)?(N%-1)=0 |
00001f50  84 20 6c 69 73 74 25 28  52 25 29 3f 28 4e 25 2d  |. list%(R%)?(N%-|
00001f60  31 29 3e 32 34 30 29 20  8c 20 6c 69 73 74 25 28  |1)>240) . list%(|
00001f70  52 25 29 3f 28 4e 25 2d  31 29 3d 26 46 46 0d 10  |R%)?(N%-1)=&FF..|
00001f80  4a 05 ed 0d 10 54 05 e1  0d 10 5e 05 3a 0d 10 68  |J....T....^.:..h|
00001f90  11 dd f2 72 65 71 75 65  73 74 28 58 25 29 0d 10  |...request(X%)..|
00001fa0  72 08 ea 20 45 25 0d 10  7c 18 6f 6b 3d a3 3a e7  |r.. E%..|.ok=.:.|
00001fb0  20 ac 20 a4 77 69 6c 64  73 65 74 20 8c e1 0d 10  | . .wildset ....|
00001fc0  86 0b 63 68 61 6e 25 3d  30 0d 10 90 18 e7 20 58  |..chan%=0..... X|
00001fd0  25 3d 30 20 8c 20 58 25  3d 63 75 72 72 65 6e 74  |%=0 . X%=current|
00001fe0  25 0d 10 9a 10 e3 20 45  25 3d 20 31 20 b8 20 4e  |%..... E%= 1 . N|
00001ff0  25 0d 10 a4 1b e7 20 64  70 25 28 45 25 29 3d 58  |%..... dp%(E%)=X|
00002000  25 20 8c 20 63 68 61 6e  25 3d 45 25 0d 10 ae 05  |% . chan%=E%....|
00002010  ed 0d 10 b8 1d e7 20 63  68 61 6e 25 3d 30 20 8c  |...... chan%=0 .|
00002020  20 f2 73 65 74 72 65 63  28 30 2c 58 25 29 0d 10  | .setrec(0,X%)..|
00002030  c2 13 f1 8a 30 2c 30 29  22 82 22 c3 28 58 25 29  |....0,0)".".(X%)|
00002040  3b 0d 10 cc 14 f5 20 fd  a4 72 65 61 64 79 28 63  |;..... ..ready(c|
00002050  68 61 6e 25 29 0d 10 d6  28 f2 6f 73 63 6c 69 28  |han%)...(.oscli(|
00002060  22 44 49 53 50 4c 41 59  20 22 2b c3 7e 28 72 65  |"DISPLAY "+.~(re|
00002070  63 6f 72 64 28 63 68 61  6e 25 29 29 29 0d 10 e0  |cord(chan%)))...|
00002080  08 f2 6f 66 66 0d 10 ea  0f 63 75 72 72 65 6e 74  |..off....current|
00002090  25 3d 58 25 0d 10 f4 13  f1 8a 30 2c 30 29 22 80  |%=X%......0,0)".|
000020a0  22 c3 28 58 25 29 3b 0d  10 fe 06 f2 77 0d 11 08  |".(X%);.....w...|
000020b0  14 64 70 25 28 63 68 61  6e 25 29 3d 26 31 30 30  |.dp%(chan%)=&100|
000020c0  30 0d 11 12 05 e1 0d 11  1c 05 3a 0d 11 26 0f dd  |0.........:..&..|
000020d0  a4 63 68 65 63 6b 70 61  67 65 0d 11 30 05 f5 0d  |.checkpage..0...|
000020e0  11 3a 1f e8 22 45 6e 74  65 72 20 70 61 67 65 20  |.:.."Enter page |
000020f0  72 65 71 75 69 72 65 64  20 3e 3e 22 58 24 0d 11  |required >>"X$..|
00002100  44 3e 20 e7 20 c0 58 24  2c 31 29 3d 22 23 22 20  |D> . .X$,1)="#" |
00002110  8c 20 f2 72 65 71 75 65  73 74 28 bb 28 c2 58 24  |. .request(.(.X$|
00002120  2c a9 28 58 24 29 2d 31  29 29 29 3a e5 8d 44 58  |,.(X$)-1))):..DX|
00002130  51 20 8b 20 58 25 3d bb  28 58 24 29 0d 11 4e 0f  |Q . X%=.(X$)..N.|
00002140  6f 6b 3d a4 77 69 6c 64  73 65 74 0d 11 58 08 fd  |ok=.wildset..X..|
00002150  20 6f 6b 0d 11 62 07 3d  58 25 0d 11 6c 05 3a 0d  | ok..b.=X%..l.:.|
00002160  11 76 0d dd a4 77 69 6c  64 73 65 74 0d 11 80 0b  |.v...wildset....|
00002170  ea 20 45 25 2c 6f 6b 0d  11 8a 0d 45 25 3d 31 3a  |. E%,ok....E%=1:|
00002180  6f 6b 3d a3 0d 11 94 0f  e7 20 58 25 3d 30 20 8c  |ok=...... X%=0 .|
00002190  20 3d b9 0d 11 9e 15 54  25 3d 28 58 25 20 81 20  | =.....T%=(X% . |
000021a0  31 30 30 29 2a 31 30 30  0d 11 a8 05 f5 0d 11 b2  |100)*100........|
000021b0  17 e7 20 54 25 3d 63 70  25 28 45 25 29 20 8c 20  |.. T%=cp%(E%) . |
000021c0  6f 6b 3d b9 0d 11 bc 0b  45 25 3d 45 25 2b 31 0d  |ok=.....E%=E%+1.|
000021d0  11 c6 0f fd 20 63 70 25  28 45 25 29 3d 30 0d 11  |.... cp%(E%)=0..|
000021e0  d0 0f e7 20 ac 20 6f 6b  20 8c 20 ef 37 0d 11 da  |... . ok . .7...|
000021f0  07 3d 6f 6b 0d 11 e4 05  3a 0d 11 ee 0e dd f2 68  |.=ok....:......h|
00002200  6f 6c 64 28 45 25 29 0d  11 f8 0d 3f 62 6c 6f 63  |old(E%)....?bloc|
00002210  6b 25 3d 33 0d 12 02 0f  62 6c 6f 63 6b 25 3f 31  |k%=3....block%?1|
00002220  3d 45 25 0d 12 0c 19 62  6c 6f 63 6b 25 3f 32 3d  |=E%....block%?2=|
00002230  62 6c 6f 63 6b 25 3f 32  20 84 20 31 0d 12 16 1b  |block%?2 . 1....|
00002240  62 6c 6f 63 6b 25 3f 32  3d 28 62 6c 6f 63 6b 25  |block%?2=(block%|
00002250  3f 32 29 20 84 20 31 0d  12 20 05 e1 0d 12 2a 05  |?2) . 1.. ....*.|
00002260  3a 0d 12 34 0d dd f2 64  65 6c 28 54 25 29 0d 12  |:..4...del(T%)..|
00002270  3e 0b 54 25 3d 91 2b 54  25 0d 12 48 0d f5 20 fd  |>.T%=.+T%..H.. .|
00002280  20 91 3e 3d 54 25 0d 12  52 05 e1 0d 12 5c 05 3a  | .>=T%..R....\.:|
00002290  0d 12 66 0c dd f2 72 65  76 65 61 6c 0d 12 70 07  |..f...reveal..p.|
000022a0  ea 6e 25 0d 12 7a 16 e3  20 6e 25 3d 26 37 43 30  |.n%..z.. n%=&7C0|
000022b0  30 20 b8 20 26 37 46 46  46 0d 12 84 16 e7 20 3f  |0 . &7FFF..... ?|
000022c0  6e 25 3d 31 35 32 20 8c  20 3f 6e 25 3d 33 32 0d  |n%=152 . ?n%=32.|
000022d0  12 8e 05 ed 0d 12 98 05  e1 0d 12 a2 05 3a 0d 12  |.............:..|
000022e0  ac 08 dd a4 66 73 0d 12  b6 0d 41 25 3d 30 3a 59  |....fs....A%=0:Y|
000022f0  25 3d 30 0d 12 c0 0f 41  25 3d ba 28 26 46 46 44  |%=0....A%=.(&FFD|
00002300  41 29 0d 12 ca 0d 3d 41  25 20 80 20 26 46 46 0d  |A)....=A% . &FF.|
00002310  12 d4 05 3a 0d 12 de 0d  dd a4 64 69 72 28 6e 25  |...:......dir(n%|
00002320  29 0d 12 e8 0a ea 20 64  69 72 25 0d 12 f2 14 64  |)..... dir%....d|
00002330  69 72 25 3d 28 6e 25 2d  31 29 20 81 20 34 30 0d  |ir%=(n%-1) . 40.|
00002340  12 fc 12 e7 20 64 69 72  25 3d 30 20 8c 20 3d 22  |.... dir%=0 . ="|
00002350  22 0d 13 06 10 64 69 72  25 3d 64 69 72 25 2b 34  |"....dir%=dir%+4|
00002360  30 0d 13 10 10 3d c3 28  64 69 72 25 29 2b 22 2e  |0....=.(dir%)+".|
00002370  22 0d 13 1a 05 3a 0d 13  24 0f dd f2 6f 73 63 6c  |"....:..$...oscl|
00002380  69 28 58 24 29 0d 13 2e  0b ea 20 58 25 2c 59 25  |i(X$)..... X%,Y%|
00002390  0d 13 38 0e 24 6f 73 70  61 63 65 3d 58 24 0d 13  |..8.$ospace=X$..|
000023a0  42 13 58 25 3d 6f 73 70  61 63 65 20 83 20 32 35  |B.X%=ospace . 25|
000023b0  36 0d 13 4c 13 59 25 3d  6f 73 70 61 63 65 20 81  |6..L.Y%=ospace .|
000023c0  20 32 35 36 0d 13 56 0b  d6 20 26 46 46 46 37 0d  | 256..V.. &FFF7.|
000023d0  13 60 05 e1 0d 13 6a 05  3a 0d 13 74 15 dd f2 64  |.`....j.:..t...d|
000023e0  75 6d 70 72 6f 75 74 69  6e 65 28 58 25 29 0d 13  |umproutine(X%)..|
000023f0  7e 23 f4 20 43 6f 6d 6d  61 6e 64 73 20 68 65 72  |~#. Commands her|
00002400  65 20 61 72 65 20 66 6f  72 20 22 4d 59 52 4f 4d  |e are for "MYROM|
00002410  22 0d 13 88 28 f4 20 49  6e 73 65 72 74 20 73 75  |"...(. Insert su|
00002420  69 74 61 62 6c 65 20 63  6f 6d 6d 61 6e 64 73 20  |itable commands |
00002430  66 6f 72 20 6f 74 68 65  72 0d 13 92 15 f4 20 73  |for other..... s|
00002440  63 72 65 65 6e 64 75 6d  70 20 72 6f 6d 73 0d 13  |creendump roms..|
00002450  9c 11 e7 20 58 25 3d 31  20 8c 20 8d 64 44 53 0d  |... X%=1 . .dDS.|
00002460  13 a6 14 f4 20 54 65 78  74 20 6f 6e 6c 79 20 64  |.... Text only d|
00002470  75 6d 70 0d 13 b0 09 2a  54 45 58 54 0d 13 ba 05  |ump....*TEXT....|
00002480  e1 0d 13 c4 12 e7 20 a6  28 2d 31 29 20 8c 20 8d  |...... .(-1) . .|
00002490  54 40 54 0d 13 ce 12 e7  20 a6 28 2d 32 29 20 8c  |T@T..... .(-2) .|
000024a0  20 8d 54 5e 54 0d 13 d8  12 f4 20 53 63 72 65 65  | .T^T..... Scree|
000024b0  6e 20 69 6d 61 67 65 0d  13 e2 0a 2a 49 4d 41 47  |n image....*IMAG|
000024c0  45 0d 13 ec 05 e1 0d 13  f6 20 f4 20 3c 53 48 49  |E........ . <SHI|
000024d0  46 54 3e 20 6d 61 6b 65  73 20 62 6c 75 65 20 3d  |FT> makes blue =|
000024e0  20 62 6c 61 63 6b 0d 14  00 11 2a 49 4d 41 47 45  | black....*IMAGE|
000024f0  20 4e 4f 42 4c 55 45 0d  14 0a 05 e1 0d 14 14 20  | NOBLUE........ |
00002500  f4 20 3c 43 54 52 4c 3e  20 67 69 76 65 73 20 69  |. <CTRL> gives i|
00002510  6e 76 65 72 74 65 64 20  64 75 6d 70 0d 14 1e 11  |nverted dump....|
00002520  2a 49 4d 41 47 45 20 49  4e 56 45 52 54 0d 14 28  |*IMAGE INVERT..(|
00002530  05 e1 0d 14 32 05 3a 0d  14 3c 1e dc 22 42 42 43  |....2.:..<.."BBC|
00002540  31 22 2c 22 42 42 43 32  22 2c 22 49 54 56 22 2c  |1","BBC2","ITV",|
00002550  22 43 48 34 22 0d 14 46  05 3a 0d 14 50 27 f4 20  |"CH4"..F.:..P'. |
00002560  44 61 74 61 20 73 65 74  73 20 64 65 66 61 75 6c  |Data sets defaul|
00002570  74 20 69 6e 64 65 78 20  70 61 67 65 73 20 61 6e  |t index pages an|
00002580  64 0d 14 5a 1a f4 20 61  6c 6c 6f 77 65 64 20 70  |d..Z.. allowed p|
00002590  61 67 65 20 6e 75 6d 62  65 72 73 0d 14 64 23 f4  |age numbers..d#.|
000025a0  20 23 2c 63 68 61 6e 6e  65 6c 2c 6c 69 73 74 20  | #,channel,list |
000025b0  6f 66 20 69 6e 64 65 78  20 70 61 67 65 73 0d 14  |of index pages..|
000025c0  6e 25 f4 20 21 2c 61 6c  6c 6f 77 65 64 20 70 61  |n%. !,allowed pa|
000025d0  67 65 73 20 28 62 6c 6f  63 6b 73 20 6f 66 20 31  |ges (blocks of 1|
000025e0  30 30 29 0d 14 78 2b dc  20 23 2c 31 2c 31 30 32  |00)..x+. #,1,102|
000025f0  2c 31 32 30 2c 31 35 31  2c 31 37 30 2c 33 30 30  |,120,151,170,300|
00002600  2c 31 38 30 2c 21 2c 31  30 30 2c 33 30 30 0d 14  |,180,!,100,300..|
00002610  82 2b dc 20 23 2c 32 2c  32 35 31 2c 37 30 30 2c  |.+. #,2,251,700,|
00002620  32 33 30 2c 32 30 32 2c  32 37 30 2c 21 2c 32 30  |230,202,270,!,20|
00002630  30 2c 33 30 30 2c 37 30  30 0d 14 8c 2b dc 20 23  |0,300,700...+. #|
00002640  2c 33 2c 31 36 30 2c 32  33 30 2c 32 31 30 2c 32  |,3,160,230,210,2|
00002650  32 30 2c 31 32 30 2c 31  30 31 2c 21 2c 31 30 30  |20,120,101,!,100|
00002660  2c 32 30 30 0d 14 96 2f  dc 20 23 2c 34 2c 36 39  |,200.../. #,4,69|
00002670  30 2c 35 33 30 2c 35 38  30 2c 35 35 30 2c 34 38  |0,530,580,550,48|
00002680  30 2c 34 35 30 2c 21 2c  36 30 30 2c 34 30 30 2c  |0,450,!,600,400,|
00002690  35 30 30 0d 14 a0 07 dc  20 23 0d ff              |500..... #..|
0000269c

17-02-88/GRABBER.m0

17-02-88/GRABBER.m1

17-02-88/GRABBER.m2

17-02-88/GRABBER.m4

17-02-88/GRABBER.m5

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .