04-04-88/LOADER

Home » CEEFAX disks » telesoftware6.adl » 04-04-88/LOADER

04-04-88/LOADER

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 » telesoftware6.adl
Filename:	04-04-88/LOADER
Read OK:	✔
File size:	0FF3 bytes
Load address:	FFFF0E00
Exec address:	FFFF802B

File contents

   10REM"�(C) Jeremy Brayshaw
   20REM"�March 1988
   30:
   40REM"�For use with ATS
   50:
   60ONERROR REPORT:PRINT" at line ";ERL:GOTO360
   70MODE7
   80VDU23;8202;0;0;0;
   90*TTXON
  100*BBC2
  110*HON
  120PROCmove_oshwm
  130DIM space 20,name 12,line 15
  140DIMpage%(40),fname$(40),load%(40),exec%(40),pages$(40),mag%(40),D(5),flag%(40)
  150PROCheading("File:�Catalogue")
  160A%=TIME:REPEAT:UNTILTIME>A%+200
  170PROCfindcat(FNgetlink)
  180IFM%>9 ORN%>&FE PROCheading("�Error�- No Catalogue"):GOTO360
  190PROCheading("File:�Catalogue    �Page:�"+STR$(M%)+RIGHT$("0"+STR$~(N%),2))
  200PRINTCHR$30;" P";STR$(M%);RIGHT$("0"+STR$~(N%),2)
  210PROCdownload(M%,N%,"CATALOG",0,0,FALSE,TRUE)
  220PROCinterpret
  230IFZ%=0 MODE7:PROCheading("�No BBC files broadcast this week"):GOTO360
  240MODE7:VDU23;8202;0;0;0;:PROCselect
  250N%=0
  260FORW%=1TOZ%
  270IF NOT flag%(W%) GOTO330
  280N%=N%+1
  290MODE7:VDU23;8202;0;0;0;
  300PROCheading("File:�"+fname$(W%)+STRING$((12-LEN(fname$(W%)))," ")+"�Length:�"+pages$(W%))
  310PRINTCHR$30;" P";mag%(W%);RIGHT$("0"+STR$~(page%(W%)),2)
  320PROCdownload(mag%(W%),page%(W%),fname$(W%),load%(W%),exec%(W%),TRUE,TRUE)
  330NEXT
  340MODE7
  350PROCheading("�"+STR$(N%)+" out of "+STR$(Z%)+" files downloaded."+CHR$10)
  360*HOFF
  370*TTXOFF
  380PROCreturn_oshwm
  390END
  400:
  410DEFPROCmove_oshwm
  420S%=&5000
  430A%=&B4:X%=S%DIV256:Y%=0:CALL&FFF4
  440ENDPROC
  450:
  460DEFPROCdownload(magazine%,page%,filename$,load%,exec%,save%,reset%)
  470PROCoscli("MAGAZINE "+STR$(magazine%))
  480space?0=24
  490space?1=name MOD256:space?2=name DIV256
  500$name=filename$
  510space!3=load%
  520space!7=exec%
  530space?11=magazine%
  540space?12=page%
  550IFsave%=TRUE space?13=1 ELSE space?13=0
  560IFreset%=TRUE space?14=0 ELSE space?14=1
  570A%=&7A:X%=space MOD256:Y%=space DIV256
  580CALL&FFF1
  590ENDPROC
  600:
  610DEFPROCoscli(text$)
  620$line=text$:X%=line MOD256:Y%=line DIV256
  630CALL&FFF7
  640ENDPROC
  650:
  660DEFPROCheading(fname$)
  670CLS
  680PRINT''CHR$132;CHR$157;CHR$141;"�BBC Telesoftware File Downloader"
  690PRINTCHR$132;CHR$157;CHR$141;"�BBC Telesoftware File Downloader"
  700PRINTTAB(1,5)fname$
  710ENDPROC
  720:
  730DEFPROCreturn_oshwm
  740A%=&B4:X%=PAGE DIV256:Y%=0:CALL&FFF4
  750ENDPROC
  760:
  770DEFPROCinterpret
  780sta%=S%:Z%=0
  790sta%=sta%+1+?sta%:sta%=sta%+1+?sta%
  800Z=0:REPEAT
  810REM"�m/c:
  820len%=?sta%
  830FORA%=sta%TOsta%+len%:?A%=(?A%)AND&7F:NEXT
  840T%=?(sta%+len%+1):?(sta%+len%+1)=13:sta$=$(sta%+1):?(sta%+len%+1)=T%
  850sta%=sta%+1+?sta%
  860IFsta$<>"BBC" AND sta$<>"ANY" use%=FALSE ELSE use%=TRUE
  870IFsta$="***" GOTO1070
  880REM"�filename:
  890len%=?sta%
  900FORA%=sta%TOsta%+len%:?A%=(?A%)AND&7F
  910IF?A%>&40 ?A%=(?A%)AND&DF
  920NEXT
  930T%=?(sta%+len%+1):?(sta%+len%+1)=13:sta$=$(sta%+2):?(sta%+len%+1)=T%
  940sta%=sta%+1+?sta%
  950REM"�File type:
  960len%=?sta%
  970FORA%=sta%TOsta%+len%:?A%=((?A%)AND&7F)AND&DF:NEXT
  980T%=?(sta%+len%+1):?(sta%+len%+1)=13:sta2$=$(sta%+1):?(sta%+len%+1)=T%
  990sta%=sta%+1+?sta%
 1000len%=?sta%
 1010FORA%=sta%TOsta%+len%:?A%=(?A%)AND&7F:NEXT
 1020T%=?(sta%+len%+1):?(sta%+len%+1)=13:sta3$=$(sta%+1):?(sta%+len%+1)=T%
 1030sta%=sta%+1+?sta%
 1040REM"�TEST FOR DOWNLOADING:
 1050IFuse% Z%=Z%+1:fname$(Z%)=sta$:pages$(Z%)=sta3$:load%(Z%)=FNaddr(sta%):exec%(Z%)=FNaddr(sta%+4):mag%(Z%)=?(sta%+8):page%(Z%)=?(sta%+9):flag%(Z%)=TRUE
 1060sta%=sta%+10
 1070UNTILsta$="***"
 1080ENDPROC
 1090:
 1100DEFFNaddr(st%)
 1110=EVAL("&"+STR$~(?st%)+STR$~((st%?1*256 + st%?2)*256 + st%?3))
 1120:
 1130DEFFNgetlink
 1140space?0=15:A%=&7A:X%=space MOD256:Y%=space DIV256:CALL&FFF1
 1150IF((space?1)*100)+space?2>999 PROCheading("�Error�- No Catalogue"):GOTO360
 1160=((space?1)*100)+space?2
 1170:
 1180DEFPROCfindcat(O%)
 1190PROCoscli("PAGE "+STR$(O%))
 1200LOCALa%,pn$,row%
 1210*DATA 5000
 1220a%=&5000-42
 1230REPEAT
 1240a%=a%+42
 1250UNTIL(a%?1=27 AND FNdeham(a%?2)=0) ORa%>&5800
 1260IFa%>&5800 M%=0:PROCheading("�Error�-no catalogue"):GOTO360
 1270FORV%=0TO5
 1280D(V%)=27+V%
 1290D(V%)=FNdeham(a%?D(V%))
 1300NEXT
 1310M%=(((D(5) AND12)DIV2)OR(D(3) DIV8))EOR(O%DIV100)
 1320N%=(D(1)*16)+(D(0))
 1330ENDPROC
 1340:
 1350DEFFNdeham(byte%)
 1360space?0=25:space?1=byte%:A%=&7A:X%=space MOD256:Y%=space DIV256:CALL&FFF1
 1370=(space?2)AND&F
 1380:
 1390DEFPROCselect
 1400PROCheading("")
 1410FORA%=1TOZ%:PRINTTAB((A%DIV17)*19+4,(A%MOD17)+4-(A%>16));
 1420PRINTRIGHT$("0"+STR$(A%),2);"�";LEFT$(fname$(A%)+STRING$(8," "),8);"�";"S�"
 1430NEXT
 1440PRINTTAB(8,22)"�S�= save  �N�= ignore"'" Press 2 digit number to toggle status"'" then press RETURN ...";
 1450Q=FALSE
 1460REPEAT:Q$=GET$:IFQ$=CHR$13 Q=TRUE:GOTO1500
 1470Q$=Q$+GET$:IFRIGHT$(Q$,1)=CHR$13 Q=TRUE:GOTO1500
 1480IFVAL(Q$)>Z% OR VAL(Q$)<1 VDU7:GOTO1500
 1490PROCtoggle(VAL(Q$))
 1500UNTILQ
 1510ENDPROC
 1520:
 1530DEFPROCtoggle(no%):flag%(no%)=NOT flag%(no%)
 1540PRINTTAB((no%DIV17)*19+6,(no%MOD17)+4-(no%>16));
 1550IF flag%(no%) THEN PRINT CHR$134 ELSE PRINT CHR$129
 1560PRINTTAB((no%DIV17)*19+15,(no%MOD17)+4-(no%>16));
 1570IF flag%(no%) THEN PRINT"�S" ELSE PRINT"�N"
 1580ENDPROC


�"�(C) Jeremy Brayshaw
�"�March 1988
:
(�"�For use with ATS
2:
<� �:�" at line ";�:�DhA
F�7
P�23;8202;0;0;0;
Z
*TTXON
d	*BBC2
n*HON
x�move_oshwm
�� space 20,name 12,line 15
�P�page%(40),fname$(40),load%(40),exec%(40),pages$(40),mag%(40),D(5),flag%(40)
��heading("File:�Catalogue")
�A%=�:�:��>A%+200
��findcat(�getlink)
�9�M%>9 �N%>&FE �heading("�Error�- No Catalogue"):�DhA
�?�heading("File:�Catalogue    �Page:�"+�(M%)+�"0"+�~(N%),2))
�"�30;" P";�(M%);�"0"+�~(N%),2)
�&�download(M%,N%,"CATALOG",0,0,�,�)
��interpret
�@�Z%=0 �7:�heading("�No BBC files broadcast this week"):�DhA
��7:�23;8202;0;0;0;:�select
�N%=0
�W%=1�Z%
� � flag%(W%) �DJA
N%=N%+1
"�7:�23;8202;0;0;0;
,Q�heading("File:�"+fname$(W%)+�(12-�(fname$(W%)))," ")+"�Length:�"+pages$(W%))
6,�30;" P";mag%(W%);�"0"+�~(page%(W%)),2)
@D�download(mag%(W%),page%(W%),fname$(W%),load%(W%),exec%(W%),�,�)
J�
T�7
^A�heading("�"+�(N%)+" out of "+�(Z%)+" files downloaded."+�10)
h	*HOFF
r*TTXOFF
|�return_oshwm
��
�:
���move_oshwm
�S%=&5000
� A%=&B4:X%=S%�256:Y%=0:�&FFF4
��
�:
�B��download(magazine%,page%,filename$,load%,exec%,save%,reset%)
�$�oscli("MAGAZINE "+�(magazine%))
�space?0=24
�'space?1=name �256:space?2=name �256
�$name=filename$
�space!3=load%
space!7=exec%
space?11=magazine%
space?12=page%
&$�save%=� space?13=1 � space?13=0
0%�reset%=� space?14=0 � space?14=1
:&A%=&7A:X%=space �256:Y%=space �256
D
�&FFF1
N�
X:
b��oscli(text$)
l)$line=text$:X%=line �256:Y%=line �256
v
�&FFF7
��
�:
���heading(fname$)
��
�9�''�132;�157;�141;"�BBC Telesoftware File Downloader"
�7�132;�157;�141;"�BBC Telesoftware File Downloader"
��1,5)fname$
��
�:
���return_oshwm
� A%=&B4:X%=� �256:Y%=0:�&FFF4
��
�:
��interpret
sta%=S%:Z%=0
'sta%=sta%+1+?sta%:sta%=sta%+1+?sta%
 	Z=0:�
*�"�m/c:
4len%=?sta%
>&�A%=sta%�sta%+len%:?A%=(?A%)�&7F:�
HHT%=?(sta%+len%+1):?(sta%+len%+1)=13:sta$=$(sta%+1):?(sta%+len%+1)=T%
Rsta%=sta%+1+?sta%
\.�sta$<>"BBC" � sta$<>"ANY" use%=� � use%=�
f�sta$="***" �TnD
p�"�filename:
zlen%=?sta%
�$�A%=sta%�sta%+len%:?A%=(?A%)�&7F
��?A%>&40 ?A%=(?A%)�&DF
��
�HT%=?(sta%+len%+1):?(sta%+len%+1)=13:sta$=$(sta%+2):?(sta%+len%+1)=T%
�sta%=sta%+1+?sta%
��"�File type:
�len%=?sta%
�,�A%=sta%�sta%+len%:?A%=((?A%)�&7F)�&DF:�
�IT%=?(sta%+len%+1):?(sta%+len%+1)=13:sta2$=$(sta%+1):?(sta%+len%+1)=T%
�sta%=sta%+1+?sta%
�len%=?sta%
�&�A%=sta%�sta%+len%:?A%=(?A%)�&7F:�
�IT%=?(sta%+len%+1):?(sta%+len%+1)=13:sta3$=$(sta%+1):?(sta%+len%+1)=T%
sta%=sta%+1+?sta%
�"�TEST FOR DOWNLOADING:
��use% Z%=Z%+1:fname$(Z%)=sta$:pages$(Z%)=sta3$:load%(Z%)=�addr(sta%):exec%(Z%)=�addr(sta%+4):mag%(Z%)=?(sta%+8):page%(Z%)=?(sta%+9):flag%(Z%)=�
$sta%=sta%+10
.�sta$="***"
8�
B:
Lݤaddr(st%)
V8=�("&"+�~(?st%)+�~((st%?1*256 + st%?2)*256 + st%?3))
`:
j
ݤgetlink
t8space?0=15:A%=&7A:X%=space �256:Y%=space �256:�&FFF1
~H�((space?1)*100)+space?2>999 �heading("�Error�- No Catalogue"):�DhA
�=((space?1)*100)+space?2
�:
���findcat(O%)
��oscli("PAGE "+�(O%))
��a%,pn$,row%
�*DATA 5000
�a%=&5000-42
��
�a%=a%+42
�)�(a%?1=27 � �deham(a%?2)=0) �a%>&5800
�9�a%>&5800 M%=0:�heading("�Error�-no catalogue"):�DhA
��V%=0�5
D(V%)=27+V%

D(V%)=�deham(a%?D(V%))
�
*M%=(((D(5) �12)�2)�(D(3) �8))�(O%�100)
(N%=(D(1)*16)+(D(0))
2�
<:
Fݤdeham(byte%)
PFspace?0=25:space?1=byte%:A%=&7A:X%=space �256:Y%=space �256:�&FFF1
Z=(space?2)�&F
d:
n��select
x�heading("")
�/�A%=1�Z%:�(A%�17)*19+4,(A%�17)+4-(A%>16));
�6��"0"+�(A%),2);"�";�fname$(A%)+�8," "),8);"�";"S�"
��
�f�8,22)"�S�= save  �N�= ignore"'" Press 2 digit number to toggle status"'" then press RETURN ...";
�Q=�
��:Q$=�:�Q$=�13 Q=�:�d\E
�!Q$=Q$+�:��Q$,1)=�13 Q=�:�d\E
� �(Q$)>Z% � �(Q$)<1 �7:�d\E
��toggle(�(Q$))
��Q
��
�:
�)��toggle(no%):flag%(no%)=� flag%(no%)
)�(no%�17)*19+6,(no%�17)+4-(no%>16));
"� flag%(no%) � � �134 � � �129
*�(no%�17)*19+15,(no%�17)+4-(no%>16));
" � flag%(no%) � �"�S" � �"�N"
,�
�

00000000  0d 00 0a 1a f4 22 81 28  43 29 20 4a 65 72 65 6d  |.....".(C) Jerem|
00000010  79 20 42 72 61 79 73 68  61 77 0d 00 14 11 f4 22  |y Brayshaw....."|
00000020  86 4d 61 72 63 68 20 31  39 38 38 0d 00 1e 05 3a  |.March 1988....:|
00000030  0d 00 28 17 f4 22 85 46  6f 72 20 75 73 65 20 77  |..(..".For use w|
00000040  69 74 68 20 41 54 53 0d  00 32 05 3a 0d 00 3c 1d  |ith ATS..2.:..<.|
00000050  ee 85 20 f6 3a f1 22 20  61 74 20 6c 69 6e 65 20  |.. .:." at line |
00000060  22 3b 9e 3a e5 8d 44 68  41 0d 00 46 06 eb 37 0d  |";.:..DhA..F..7.|
00000070  00 50 13 ef 32 33 3b 38  32 30 32 3b 30 3b 30 3b  |.P..23;8202;0;0;|
00000080  30 3b 0d 00 5a 0a 2a 54  54 58 4f 4e 0d 00 64 09  |0;..Z.*TTXON..d.|
00000090  2a 42 42 43 32 0d 00 6e  08 2a 48 4f 4e 0d 00 78  |*BBC2..n.*HON..x|
000000a0  0f f2 6d 6f 76 65 5f 6f  73 68 77 6d 0d 00 82 1e  |..move_oshwm....|
000000b0  de 20 73 70 61 63 65 20  32 30 2c 6e 61 6d 65 20  |. space 20,name |
000000c0  31 32 2c 6c 69 6e 65 20  31 35 0d 00 8c 50 de 70  |12,line 15...P.p|
000000d0  61 67 65 25 28 34 30 29  2c 66 6e 61 6d 65 24 28  |age%(40),fname$(|
000000e0  34 30 29 2c 6c 6f 61 64  25 28 34 30 29 2c 65 78  |40),load%(40),ex|
000000f0  65 63 25 28 34 30 29 2c  70 61 67 65 73 24 28 34  |ec%(40),pages$(4|
00000100  30 29 2c 6d 61 67 25 28  34 30 29 2c 44 28 35 29  |0),mag%(40),D(5)|
00000110  2c 66 6c 61 67 25 28 34  30 29 0d 00 96 1f f2 68  |,flag%(40).....h|
00000120  65 61 64 69 6e 67 28 22  46 69 6c 65 3a 86 43 61  |eading("File:.Ca|
00000130  74 61 6c 6f 67 75 65 22  29 0d 00 a0 14 41 25 3d  |talogue")....A%=|
00000140  91 3a f5 3a fd 91 3e 41  25 2b 32 30 30 0d 00 aa  |.:.:..>A%+200...|
00000150  16 f2 66 69 6e 64 63 61  74 28 a4 67 65 74 6c 69  |..findcat(.getli|
00000160  6e 6b 29 0d 00 b4 39 e7  4d 25 3e 39 20 84 4e 25  |nk)...9.M%>9 .N%|
00000170  3e 26 46 45 20 f2 68 65  61 64 69 6e 67 28 22 81  |>&FE .heading(".|
00000180  45 72 72 6f 72 86 2d 20  4e 6f 20 43 61 74 61 6c  |Error.- No Catal|
00000190  6f 67 75 65 22 29 3a e5  8d 44 68 41 0d 00 be 3f  |ogue"):..DhA...?|
000001a0  f2 68 65 61 64 69 6e 67  28 22 46 69 6c 65 3a 86  |.heading("File:.|
000001b0  43 61 74 61 6c 6f 67 75  65 20 20 20 20 87 50 61  |Catalogue    .Pa|
000001c0  67 65 3a 86 22 2b c3 28  4d 25 29 2b c2 22 30 22  |ge:."+.(M%)+."0"|
000001d0  2b c3 7e 28 4e 25 29 2c  32 29 29 0d 00 c8 22 f1  |+.~(N%),2))...".|
000001e0  bd 33 30 3b 22 20 50 22  3b c3 28 4d 25 29 3b c2  |.30;" P";.(M%);.|
000001f0  22 30 22 2b c3 7e 28 4e  25 29 2c 32 29 0d 00 d2  |"0"+.~(N%),2)...|
00000200  26 f2 64 6f 77 6e 6c 6f  61 64 28 4d 25 2c 4e 25  |&.download(M%,N%|
00000210  2c 22 43 41 54 41 4c 4f  47 22 2c 30 2c 30 2c a3  |,"CATALOG",0,0,.|
00000220  2c b9 29 0d 00 dc 0e f2  69 6e 74 65 72 70 72 65  |,.).....interpre|
00000230  74 0d 00 e6 40 e7 5a 25  3d 30 20 eb 37 3a f2 68  |t...@.Z%=0 .7:.h|
00000240  65 61 64 69 6e 67 28 22  81 4e 6f 20 42 42 43 20  |eading(".No BBC |
00000250  66 69 6c 65 73 20 62 72  6f 61 64 63 61 73 74 20  |files broadcast |
00000260  74 68 69 73 20 77 65 65  6b 22 29 3a e5 8d 44 68  |this week"):..Dh|
00000270  41 0d 00 f0 1e eb 37 3a  ef 32 33 3b 38 32 30 32  |A.....7:.23;8202|
00000280  3b 30 3b 30 3b 30 3b 3a  f2 73 65 6c 65 63 74 0d  |;0;0;0;:.select.|
00000290  00 fa 08 4e 25 3d 30 0d  01 04 0c e3 57 25 3d 31  |...N%=0.....W%=1|
000002a0  b8 5a 25 0d 01 0e 17 e7  20 ac 20 66 6c 61 67 25  |.Z%..... . flag%|
000002b0  28 57 25 29 20 e5 8d 44  4a 41 0d 01 18 0b 4e 25  |(W%) ..DJA....N%|
000002c0  3d 4e 25 2b 31 0d 01 22  16 eb 37 3a ef 32 33 3b  |=N%+1.."..7:.23;|
000002d0  38 32 30 32 3b 30 3b 30  3b 30 3b 0d 01 2c 51 f2  |8202;0;0;0;..,Q.|
000002e0  68 65 61 64 69 6e 67 28  22 46 69 6c 65 3a 86 22  |heading("File:."|
000002f0  2b 66 6e 61 6d 65 24 28  57 25 29 2b c4 28 31 32  |+fname$(W%)+.(12|
00000300  2d a9 28 66 6e 61 6d 65  24 28 57 25 29 29 29 2c  |-.(fname$(W%))),|
00000310  22 20 22 29 2b 22 87 4c  65 6e 67 74 68 3a 86 22  |" ")+".Length:."|
00000320  2b 70 61 67 65 73 24 28  57 25 29 29 0d 01 36 2c  |+pages$(W%))..6,|
00000330  f1 bd 33 30 3b 22 20 50  22 3b 6d 61 67 25 28 57  |..30;" P";mag%(W|
00000340  25 29 3b c2 22 30 22 2b  c3 7e 28 70 61 67 65 25  |%);."0"+.~(page%|
00000350  28 57 25 29 29 2c 32 29  0d 01 40 44 f2 64 6f 77  |(W%)),2)..@D.dow|
00000360  6e 6c 6f 61 64 28 6d 61  67 25 28 57 25 29 2c 70  |nload(mag%(W%),p|
00000370  61 67 65 25 28 57 25 29  2c 66 6e 61 6d 65 24 28  |age%(W%),fname$(|
00000380  57 25 29 2c 6c 6f 61 64  25 28 57 25 29 2c 65 78  |W%),load%(W%),ex|
00000390  65 63 25 28 57 25 29 2c  b9 2c b9 29 0d 01 4a 05  |ec%(W%),.,.)..J.|
000003a0  ed 0d 01 54 06 eb 37 0d  01 5e 41 f2 68 65 61 64  |...T..7..^A.head|
000003b0  69 6e 67 28 22 86 22 2b  c3 28 4e 25 29 2b 22 20  |ing("."+.(N%)+" |
000003c0  6f 75 74 20 6f 66 20 22  2b c3 28 5a 25 29 2b 22  |out of "+.(Z%)+"|
000003d0  20 66 69 6c 65 73 20 64  6f 77 6e 6c 6f 61 64 65  | files downloade|
000003e0  64 2e 22 2b bd 31 30 29  0d 01 68 09 2a 48 4f 46  |d."+.10)..h.*HOF|
000003f0  46 0d 01 72 0b 2a 54 54  58 4f 46 46 0d 01 7c 11  |F..r.*TTXOFF..|.|
00000400  f2 72 65 74 75 72 6e 5f  6f 73 68 77 6d 0d 01 86  |.return_oshwm...|
00000410  05 e0 0d 01 90 05 3a 0d  01 9a 10 dd f2 6d 6f 76  |......:......mov|
00000420  65 5f 6f 73 68 77 6d 0d  01 a4 0c 53 25 3d 26 35  |e_oshwm....S%=&5|
00000430  30 30 30 0d 01 ae 20 41  25 3d 26 42 34 3a 58 25  |000... A%=&B4:X%|
00000440  3d 53 25 81 32 35 36 3a  59 25 3d 30 3a d6 26 46  |=S%.256:Y%=0:.&F|
00000450  46 46 34 0d 01 b8 05 e1  0d 01 c2 05 3a 0d 01 cc  |FF4.........:...|
00000460  42 dd f2 64 6f 77 6e 6c  6f 61 64 28 6d 61 67 61  |B..download(maga|
00000470  7a 69 6e 65 25 2c 70 61  67 65 25 2c 66 69 6c 65  |zine%,page%,file|
00000480  6e 61 6d 65 24 2c 6c 6f  61 64 25 2c 65 78 65 63  |name$,load%,exec|
00000490  25 2c 73 61 76 65 25 2c  72 65 73 65 74 25 29 0d  |%,save%,reset%).|
000004a0  01 d6 24 f2 6f 73 63 6c  69 28 22 4d 41 47 41 5a  |..$.oscli("MAGAZ|
000004b0  49 4e 45 20 22 2b c3 28  6d 61 67 61 7a 69 6e 65  |INE "+.(magazine|
000004c0  25 29 29 0d 01 e0 0e 73  70 61 63 65 3f 30 3d 32  |%))....space?0=2|
000004d0  34 0d 01 ea 27 73 70 61  63 65 3f 31 3d 6e 61 6d  |4...'space?1=nam|
000004e0  65 20 83 32 35 36 3a 73  70 61 63 65 3f 32 3d 6e  |e .256:space?2=n|
000004f0  61 6d 65 20 81 32 35 36  0d 01 f4 13 24 6e 61 6d  |ame .256....$nam|
00000500  65 3d 66 69 6c 65 6e 61  6d 65 24 0d 01 fe 11 73  |e=filename$....s|
00000510  70 61 63 65 21 33 3d 6c  6f 61 64 25 0d 02 08 11  |pace!3=load%....|
00000520  73 70 61 63 65 21 37 3d  65 78 65 63 25 0d 02 12  |space!7=exec%...|
00000530  16 73 70 61 63 65 3f 31  31 3d 6d 61 67 61 7a 69  |.space?11=magazi|
00000540  6e 65 25 0d 02 1c 12 73  70 61 63 65 3f 31 32 3d  |ne%....space?12=|
00000550  70 61 67 65 25 0d 02 26  24 e7 73 61 76 65 25 3d  |page%..&$.save%=|
00000560  b9 20 73 70 61 63 65 3f  31 33 3d 31 20 8b 20 73  |. space?13=1 . s|
00000570  70 61 63 65 3f 31 33 3d  30 0d 02 30 25 e7 72 65  |pace?13=0..0%.re|
00000580  73 65 74 25 3d b9 20 73  70 61 63 65 3f 31 34 3d  |set%=. space?14=|
00000590  30 20 8b 20 73 70 61 63  65 3f 31 34 3d 31 0d 02  |0 . space?14=1..|
000005a0  3a 26 41 25 3d 26 37 41  3a 58 25 3d 73 70 61 63  |:&A%=&7A:X%=spac|
000005b0  65 20 83 32 35 36 3a 59  25 3d 73 70 61 63 65 20  |e .256:Y%=space |
000005c0  81 32 35 36 0d 02 44 0a  d6 26 46 46 46 31 0d 02  |.256..D..&FFF1..|
000005d0  4e 05 e1 0d 02 58 05 3a  0d 02 62 12 dd f2 6f 73  |N....X.:..b...os|
000005e0  63 6c 69 28 74 65 78 74  24 29 0d 02 6c 29 24 6c  |cli(text$)..l)$l|
000005f0  69 6e 65 3d 74 65 78 74  24 3a 58 25 3d 6c 69 6e  |ine=text$:X%=lin|
00000600  65 20 83 32 35 36 3a 59  25 3d 6c 69 6e 65 20 81  |e .256:Y%=line .|
00000610  32 35 36 0d 02 76 0a d6  26 46 46 46 37 0d 02 80  |256..v..&FFF7...|
00000620  05 e1 0d 02 8a 05 3a 0d  02 94 15 dd f2 68 65 61  |......:......hea|
00000630  64 69 6e 67 28 66 6e 61  6d 65 24 29 0d 02 9e 05  |ding(fname$)....|
00000640  db 0d 02 a8 39 f1 27 27  bd 31 33 32 3b bd 31 35  |....9.''.132;.15|
00000650  37 3b bd 31 34 31 3b 22  83 42 42 43 20 54 65 6c  |7;.141;".BBC Tel|
00000660  65 73 6f 66 74 77 61 72  65 20 46 69 6c 65 20 44  |esoftware File D|
00000670  6f 77 6e 6c 6f 61 64 65  72 22 0d 02 b2 37 f1 bd  |ownloader"...7..|
00000680  31 33 32 3b bd 31 35 37  3b bd 31 34 31 3b 22 83  |132;.157;.141;".|
00000690  42 42 43 20 54 65 6c 65  73 6f 66 74 77 61 72 65  |BBC Telesoftware|
000006a0  20 46 69 6c 65 20 44 6f  77 6e 6c 6f 61 64 65 72  | File Downloader|
000006b0  22 0d 02 bc 10 f1 8a 31  2c 35 29 66 6e 61 6d 65  |"......1,5)fname|
000006c0  24 0d 02 c6 05 e1 0d 02  d0 05 3a 0d 02 da 12 dd  |$.........:.....|
000006d0  f2 72 65 74 75 72 6e 5f  6f 73 68 77 6d 0d 02 e4  |.return_oshwm...|
000006e0  20 41 25 3d 26 42 34 3a  58 25 3d 90 20 81 32 35  | A%=&B4:X%=. .25|
000006f0  36 3a 59 25 3d 30 3a d6  26 46 46 46 34 0d 02 ee  |6:Y%=0:.&FFF4...|
00000700  05 e1 0d 02 f8 05 3a 0d  03 02 0f dd f2 69 6e 74  |......:......int|
00000710  65 72 70 72 65 74 0d 03  0c 10 73 74 61 25 3d 53  |erpret....sta%=S|
00000720  25 3a 5a 25 3d 30 0d 03  16 27 73 74 61 25 3d 73  |%:Z%=0...'sta%=s|
00000730  74 61 25 2b 31 2b 3f 73  74 61 25 3a 73 74 61 25  |ta%+1+?sta%:sta%|
00000740  3d 73 74 61 25 2b 31 2b  3f 73 74 61 25 0d 03 20  |=sta%+1+?sta%.. |
00000750  09 5a 3d 30 3a f5 0d 03  2a 0b f4 22 81 6d 2f 63  |.Z=0:...*..".m/c|
00000760  3a 0d 03 34 0e 6c 65 6e  25 3d 3f 73 74 61 25 0d  |:..4.len%=?sta%.|
00000770  03 3e 26 e3 41 25 3d 73  74 61 25 b8 73 74 61 25  |.>&.A%=sta%.sta%|
00000780  2b 6c 65 6e 25 3a 3f 41  25 3d 28 3f 41 25 29 80  |+len%:?A%=(?A%).|
00000790  26 37 46 3a ed 0d 03 48  48 54 25 3d 3f 28 73 74  |&7F:...HHT%=?(st|
000007a0  61 25 2b 6c 65 6e 25 2b  31 29 3a 3f 28 73 74 61  |a%+len%+1):?(sta|
000007b0  25 2b 6c 65 6e 25 2b 31  29 3d 31 33 3a 73 74 61  |%+len%+1)=13:sta|
000007c0  24 3d 24 28 73 74 61 25  2b 31 29 3a 3f 28 73 74  |$=$(sta%+1):?(st|
000007d0  61 25 2b 6c 65 6e 25 2b  31 29 3d 54 25 0d 03 52  |a%+len%+1)=T%..R|
000007e0  15 73 74 61 25 3d 73 74  61 25 2b 31 2b 3f 73 74  |.sta%=sta%+1+?st|
000007f0  61 25 0d 03 5c 2e e7 73  74 61 24 3c 3e 22 42 42  |a%..\..sta$<>"BB|
00000800  43 22 20 80 20 73 74 61  24 3c 3e 22 41 4e 59 22  |C" . sta$<>"ANY"|
00000810  20 75 73 65 25 3d a3 20  8b 20 75 73 65 25 3d b9  | use%=. . use%=.|
00000820  0d 03 66 15 e7 73 74 61  24 3d 22 2a 2a 2a 22 20  |..f..sta$="***" |
00000830  e5 8d 54 6e 44 0d 03 70  10 f4 22 81 66 69 6c 65  |..TnD..p..".file|
00000840  6e 61 6d 65 3a 0d 03 7a  0e 6c 65 6e 25 3d 3f 73  |name:..z.len%=?s|
00000850  74 61 25 0d 03 84 24 e3  41 25 3d 73 74 61 25 b8  |ta%...$.A%=sta%.|
00000860  73 74 61 25 2b 6c 65 6e  25 3a 3f 41 25 3d 28 3f  |sta%+len%:?A%=(?|
00000870  41 25 29 80 26 37 46 0d  03 8e 1a e7 3f 41 25 3e  |A%).&7F.....?A%>|
00000880  26 34 30 20 3f 41 25 3d  28 3f 41 25 29 80 26 44  |&40 ?A%=(?A%).&D|
00000890  46 0d 03 98 05 ed 0d 03  a2 48 54 25 3d 3f 28 73  |F........HT%=?(s|
000008a0  74 61 25 2b 6c 65 6e 25  2b 31 29 3a 3f 28 73 74  |ta%+len%+1):?(st|
000008b0  61 25 2b 6c 65 6e 25 2b  31 29 3d 31 33 3a 73 74  |a%+len%+1)=13:st|
000008c0  61 24 3d 24 28 73 74 61  25 2b 32 29 3a 3f 28 73  |a$=$(sta%+2):?(s|
000008d0  74 61 25 2b 6c 65 6e 25  2b 31 29 3d 54 25 0d 03  |ta%+len%+1)=T%..|
000008e0  ac 15 73 74 61 25 3d 73  74 61 25 2b 31 2b 3f 73  |..sta%=sta%+1+?s|
000008f0  74 61 25 0d 03 b6 11 f4  22 81 46 69 6c 65 20 74  |ta%.....".File t|
00000900  79 70 65 3a 0d 03 c0 0e  6c 65 6e 25 3d 3f 73 74  |ype:....len%=?st|
00000910  61 25 0d 03 ca 2c e3 41  25 3d 73 74 61 25 b8 73  |a%...,.A%=sta%.s|
00000920  74 61 25 2b 6c 65 6e 25  3a 3f 41 25 3d 28 28 3f  |ta%+len%:?A%=((?|
00000930  41 25 29 80 26 37 46 29  80 26 44 46 3a ed 0d 03  |A%).&7F).&DF:...|
00000940  d4 49 54 25 3d 3f 28 73  74 61 25 2b 6c 65 6e 25  |.IT%=?(sta%+len%|
00000950  2b 31 29 3a 3f 28 73 74  61 25 2b 6c 65 6e 25 2b  |+1):?(sta%+len%+|
00000960  31 29 3d 31 33 3a 73 74  61 32 24 3d 24 28 73 74  |1)=13:sta2$=$(st|
00000970  61 25 2b 31 29 3a 3f 28  73 74 61 25 2b 6c 65 6e  |a%+1):?(sta%+len|
00000980  25 2b 31 29 3d 54 25 0d  03 de 15 73 74 61 25 3d  |%+1)=T%....sta%=|
00000990  73 74 61 25 2b 31 2b 3f  73 74 61 25 0d 03 e8 0e  |sta%+1+?sta%....|
000009a0  6c 65 6e 25 3d 3f 73 74  61 25 0d 03 f2 26 e3 41  |len%=?sta%...&.A|
000009b0  25 3d 73 74 61 25 b8 73  74 61 25 2b 6c 65 6e 25  |%=sta%.sta%+len%|
000009c0  3a 3f 41 25 3d 28 3f 41  25 29 80 26 37 46 3a ed  |:?A%=(?A%).&7F:.|
000009d0  0d 03 fc 49 54 25 3d 3f  28 73 74 61 25 2b 6c 65  |...IT%=?(sta%+le|
000009e0  6e 25 2b 31 29 3a 3f 28  73 74 61 25 2b 6c 65 6e  |n%+1):?(sta%+len|
000009f0  25 2b 31 29 3d 31 33 3a  73 74 61 33 24 3d 24 28  |%+1)=13:sta3$=$(|
00000a00  73 74 61 25 2b 31 29 3a  3f 28 73 74 61 25 2b 6c  |sta%+1):?(sta%+l|
00000a10  65 6e 25 2b 31 29 3d 54  25 0d 04 06 15 73 74 61  |en%+1)=T%....sta|
00000a20  25 3d 73 74 61 25 2b 31  2b 3f 73 74 61 25 0d 04  |%=sta%+1+?sta%..|
00000a30  10 1c f4 22 86 54 45 53  54 20 46 4f 52 20 44 4f  |...".TEST FOR DO|
00000a40  57 4e 4c 4f 41 44 49 4e  47 3a 0d 04 1a 93 e7 75  |WNLOADING:.....u|
00000a50  73 65 25 20 5a 25 3d 5a  25 2b 31 3a 66 6e 61 6d  |se% Z%=Z%+1:fnam|
00000a60  65 24 28 5a 25 29 3d 73  74 61 24 3a 70 61 67 65  |e$(Z%)=sta$:page|
00000a70  73 24 28 5a 25 29 3d 73  74 61 33 24 3a 6c 6f 61  |s$(Z%)=sta3$:loa|
00000a80  64 25 28 5a 25 29 3d a4  61 64 64 72 28 73 74 61  |d%(Z%)=.addr(sta|
00000a90  25 29 3a 65 78 65 63 25  28 5a 25 29 3d a4 61 64  |%):exec%(Z%)=.ad|
00000aa0  64 72 28 73 74 61 25 2b  34 29 3a 6d 61 67 25 28  |dr(sta%+4):mag%(|
00000ab0  5a 25 29 3d 3f 28 73 74  61 25 2b 38 29 3a 70 61  |Z%)=?(sta%+8):pa|
00000ac0  67 65 25 28 5a 25 29 3d  3f 28 73 74 61 25 2b 39  |ge%(Z%)=?(sta%+9|
00000ad0  29 3a 66 6c 61 67 25 28  5a 25 29 3d b9 0d 04 24  |):flag%(Z%)=...$|
00000ae0  10 73 74 61 25 3d 73 74  61 25 2b 31 30 0d 04 2e  |.sta%=sta%+10...|
00000af0  0f fd 73 74 61 24 3d 22  2a 2a 2a 22 0d 04 38 05  |..sta$="***"..8.|
00000b00  e1 0d 04 42 05 3a 0d 04  4c 0f dd a4 61 64 64 72  |...B.:..L...addr|
00000b10  28 73 74 25 29 0d 04 56  38 3d a0 28 22 26 22 2b  |(st%)..V8=.("&"+|
00000b20  c3 7e 28 3f 73 74 25 29  2b c3 7e 28 28 73 74 25  |.~(?st%)+.~((st%|
00000b30  3f 31 2a 32 35 36 20 2b  20 73 74 25 3f 32 29 2a  |?1*256 + st%?2)*|
00000b40  32 35 36 20 2b 20 73 74  25 3f 33 29 29 0d 04 60  |256 + st%?3))..`|
00000b50  05 3a 0d 04 6a 0d dd a4  67 65 74 6c 69 6e 6b 0d  |.:..j...getlink.|
00000b60  04 74 38 73 70 61 63 65  3f 30 3d 31 35 3a 41 25  |.t8space?0=15:A%|
00000b70  3d 26 37 41 3a 58 25 3d  73 70 61 63 65 20 83 32  |=&7A:X%=space .2|
00000b80  35 36 3a 59 25 3d 73 70  61 63 65 20 81 32 35 36  |56:Y%=space .256|
00000b90  3a d6 26 46 46 46 31 0d  04 7e 48 e7 28 28 73 70  |:.&FFF1..~H.((sp|
00000ba0  61 63 65 3f 31 29 2a 31  30 30 29 2b 73 70 61 63  |ace?1)*100)+spac|
00000bb0  65 3f 32 3e 39 39 39 20  f2 68 65 61 64 69 6e 67  |e?2>999 .heading|
00000bc0  28 22 81 45 72 72 6f 72  86 2d 20 4e 6f 20 43 61  |(".Error.- No Ca|
00000bd0  74 61 6c 6f 67 75 65 22  29 3a e5 8d 44 68 41 0d  |talogue"):..DhA.|
00000be0  04 88 1c 3d 28 28 73 70  61 63 65 3f 31 29 2a 31  |...=((space?1)*1|
00000bf0  30 30 29 2b 73 70 61 63  65 3f 32 0d 04 92 05 3a  |00)+space?2....:|
00000c00  0d 04 9c 11 dd f2 66 69  6e 64 63 61 74 28 4f 25  |......findcat(O%|
00000c10  29 0d 04 a6 19 f2 6f 73  63 6c 69 28 22 50 41 47  |).....oscli("PAG|
00000c20  45 20 22 2b c3 28 4f 25  29 29 0d 04 b0 10 ea 61  |E "+.(O%)).....a|
00000c30  25 2c 70 6e 24 2c 72 6f  77 25 0d 04 ba 0e 2a 44  |%,pn$,row%....*D|
00000c40  41 54 41 20 35 30 30 30  0d 04 c4 0f 61 25 3d 26  |ATA 5000....a%=&|
00000c50  35 30 30 30 2d 34 32 0d  04 ce 05 f5 0d 04 d8 0c  |5000-42.........|
00000c60  61 25 3d 61 25 2b 34 32  0d 04 e2 29 fd 28 61 25  |a%=a%+42...).(a%|
00000c70  3f 31 3d 32 37 20 80 20  a4 64 65 68 61 6d 28 61  |?1=27 . .deham(a|
00000c80  25 3f 32 29 3d 30 29 20  84 61 25 3e 26 35 38 30  |%?2)=0) .a%>&580|
00000c90  30 0d 04 ec 39 e7 61 25  3e 26 35 38 30 30 20 4d  |0...9.a%>&5800 M|
00000ca0  25 3d 30 3a f2 68 65 61  64 69 6e 67 28 22 81 45  |%=0:.heading(".E|
00000cb0  72 72 6f 72 86 2d 6e 6f  20 63 61 74 61 6c 6f 67  |rror.-no catalog|
00000cc0  75 65 22 29 3a e5 8d 44  68 41 0d 04 f6 0b e3 56  |ue"):..DhA.....V|
00000cd0  25 3d 30 b8 35 0d 05 00  0f 44 28 56 25 29 3d 32  |%=0.5....D(V%)=2|
00000ce0  37 2b 56 25 0d 05 0a 1a  44 28 56 25 29 3d a4 64  |7+V%....D(V%)=.d|
00000cf0  65 68 61 6d 28 61 25 3f  44 28 56 25 29 29 0d 05  |eham(a%?D(V%))..|
00000d00  14 05 ed 0d 05 1e 2a 4d  25 3d 28 28 28 44 28 35  |......*M%=(((D(5|
00000d10  29 20 80 31 32 29 81 32  29 84 28 44 28 33 29 20  |) .12).2).(D(3) |
00000d20  81 38 29 29 82 28 4f 25  81 31 30 30 29 0d 05 28  |.8)).(O%.100)..(|
00000d30  17 4e 25 3d 28 44 28 31  29 2a 31 36 29 2b 28 44  |.N%=(D(1)*16)+(D|
00000d40  28 30 29 29 0d 05 32 05  e1 0d 05 3c 05 3a 0d 05  |(0))..2....<.:..|
00000d50  46 12 dd a4 64 65 68 61  6d 28 62 79 74 65 25 29  |F...deham(byte%)|
00000d60  0d 05 50 46 73 70 61 63  65 3f 30 3d 32 35 3a 73  |..PFspace?0=25:s|
00000d70  70 61 63 65 3f 31 3d 62  79 74 65 25 3a 41 25 3d  |pace?1=byte%:A%=|
00000d80  26 37 41 3a 58 25 3d 73  70 61 63 65 20 83 32 35  |&7A:X%=space .25|
00000d90  36 3a 59 25 3d 73 70 61  63 65 20 81 32 35 36 3a  |6:Y%=space .256:|
00000da0  d6 26 46 46 46 31 0d 05  5a 11 3d 28 73 70 61 63  |.&FFF1..Z.=(spac|
00000db0  65 3f 32 29 80 26 46 0d  05 64 05 3a 0d 05 6e 0c  |e?2).&F..d.:..n.|
00000dc0  dd f2 73 65 6c 65 63 74  0d 05 78 10 f2 68 65 61  |..select..x..hea|
00000dd0  64 69 6e 67 28 22 22 29  0d 05 82 2f e3 41 25 3d  |ding("").../.A%=|
00000de0  31 b8 5a 25 3a f1 8a 28  41 25 81 31 37 29 2a 31  |1.Z%:..(A%.17)*1|
00000df0  39 2b 34 2c 28 41 25 83  31 37 29 2b 34 2d 28 41  |9+4,(A%.17)+4-(A|
00000e00  25 3e 31 36 29 29 3b 0d  05 8c 36 f1 c2 22 30 22  |%>16));...6.."0"|
00000e10  2b c3 28 41 25 29 2c 32  29 3b 22 86 22 3b c0 66  |+.(A%),2);".";.f|
00000e20  6e 61 6d 65 24 28 41 25  29 2b c4 38 2c 22 20 22  |name$(A%)+.8," "|
00000e30  29 2c 38 29 3b 22 83 22  3b 22 53 87 22 0d 05 96  |),8);".";"S."...|
00000e40  05 ed 0d 05 a0 66 f1 8a  38 2c 32 32 29 22 83 53  |.....f..8,22)".S|
00000e50  86 3d 20 73 61 76 65 20  20 81 4e 86 3d 20 69 67  |.= save  .N.= ig|
00000e60  6e 6f 72 65 22 27 22 20  50 72 65 73 73 20 32 20  |nore"'" Press 2 |
00000e70  64 69 67 69 74 20 6e 75  6d 62 65 72 20 74 6f 20  |digit number to |
00000e80  74 6f 67 67 6c 65 20 73  74 61 74 75 73 22 27 22  |toggle status"'"|
00000e90  20 74 68 65 6e 20 70 72  65 73 73 20 52 45 54 55  | then press RETU|
00000ea0  52 4e 20 2e 2e 2e 22 3b  0d 05 aa 07 51 3d a3 0d  |RN ...";....Q=..|
00000eb0  05 b4 1c f5 3a 51 24 3d  be 3a e7 51 24 3d bd 31  |....:Q$=.:.Q$=.1|
00000ec0  33 20 51 3d b9 3a e5 8d  64 5c 45 0d 05 be 21 51  |3 Q=.:..d\E...!Q|
00000ed0  24 3d 51 24 2b be 3a e7  c2 51 24 2c 31 29 3d bd  |$=Q$+.:..Q$,1)=.|
00000ee0  31 33 20 51 3d b9 3a e5  8d 64 5c 45 0d 05 c8 20  |13 Q=.:..d\E... |
00000ef0  e7 bb 28 51 24 29 3e 5a  25 20 84 20 bb 28 51 24  |..(Q$)>Z% . .(Q$|
00000f00  29 3c 31 20 ef 37 3a e5  8d 64 5c 45 0d 05 d2 12  |)<1 .7:..d\E....|
00000f10  f2 74 6f 67 67 6c 65 28  bb 28 51 24 29 29 0d 05  |.toggle(.(Q$))..|
00000f20  dc 06 fd 51 0d 05 e6 05  e1 0d 05 f0 05 3a 0d 05  |...Q.........:..|
00000f30  fa 29 dd f2 74 6f 67 67  6c 65 28 6e 6f 25 29 3a  |.)..toggle(no%):|
00000f40  66 6c 61 67 25 28 6e 6f  25 29 3d ac 20 66 6c 61  |flag%(no%)=. fla|
00000f50  67 25 28 6e 6f 25 29 0d  06 04 29 f1 8a 28 6e 6f  |g%(no%)...)..(no|
00000f60  25 81 31 37 29 2a 31 39  2b 36 2c 28 6e 6f 25 83  |%.17)*19+6,(no%.|
00000f70  31 37 29 2b 34 2d 28 6e  6f 25 3e 31 36 29 29 3b  |17)+4-(no%>16));|
00000f80  0d 06 0e 22 e7 20 66 6c  61 67 25 28 6e 6f 25 29  |...". flag%(no%)|
00000f90  20 8c 20 f1 20 bd 31 33  34 20 8b 20 f1 20 bd 31  | . . .134 . . .1|
00000fa0  32 39 0d 06 18 2a f1 8a  28 6e 6f 25 81 31 37 29  |29...*..(no%.17)|
00000fb0  2a 31 39 2b 31 35 2c 28  6e 6f 25 83 31 37 29 2b  |*19+15,(no%.17)+|
00000fc0  34 2d 28 6e 6f 25 3e 31  36 29 29 3b 0d 06 22 20  |4-(no%>16));.." |
00000fd0  e7 20 66 6c 61 67 25 28  6e 6f 25 29 20 8c 20 f1  |. flag%(no%) . .|
00000fe0  22 83 53 22 20 8b 20 f1  22 81 4e 22 0d 06 2c 05  |".S" . .".N"..,.|
00000ff0  e1 0d ff                                          |...|
00000ff3

04-04-88/LOADER.m0

04-04-88/LOADER.m1

04-04-88/LOADER.m2

04-04-88/LOADER.m4

04-04-88/LOADER.m5

Our privacy policy is here.
Last updated: 13 Jul 2024, 14:29 UTC
Website designed by .