home *** CD-ROM | disk | FTP | other *** search
RISC OS BBC BASIC V Source | 1997-06-13 | 20.0 KB | 326 lines |
- ** Basic Self extractor program for TBAFS (C) 1996 TBA Software **
- ** Do not modify or self extractor will cease to work. **
- ** If you have any problems using this self extracting version **
- ** don't hesitate to contact 'TBAFS@tbalond.demon.co.uk' **
- "XHourglass_Smash":
- " at line ";
- +16+1316+19194
- blocklen%=19194
- block%=
- +1316
- pos%=block%
- (numfle%=pos%!0:total%=pos%!4:pos%+=8
- leaf$=""
- "TBAFS self extractor"
- "Found ";numfle%;" file(s) to extract."
- "Total space required is ";total%;" bytes (";
- ((total%+512)/1024);"K)"
- "Enter path to create TBAFS Read only or hit enter"
- "to create into the current directory"
- leaf$
- leaf$,1)<>"."
- leaf$<>""
- leaf$+="."
- "XHourglass_On"
- a%=1
- numfle%
- "XHourglass_Percentage",(100*(pos%-block%))/blocklen%
- file$=$pos%:pos%+=
- (file$)+2
- type%=pos%!0
- load%=pos%!4
- exec%=pos%!8
- len%=pos%!12
- attr%=pos%!16
- pos%+=20
- type%=1
- "Extracting file "+file$
- "OS_File",0,leaf$+file$,0,0,pos%,pos%+len%
- pos%+=len%
- "Extracting file "+file$
- "OS_File",8,leaf$+file$,0,0,0
- "OS_File",1,leaf$+file$,load%,exec%,,attr%
- "XHourglass_Off"
- "Finished!!"
- <Obey$Dir>
- !TBAFSrd
- !TBAFSrd.!Boot
- | !Boot for TBA Advanced Filing System Read Only - V1.00 - 14/11/96
- 1996 - TBA Software
- IconSprites <Obey$Dir>.!Sprites
- Set TBAFSrd$Dir <Obey$Dir>
- Set File$Type_B21 TBAFSarc
- IF "<Alias$@RunType_B21>" = "" Then Set Alias$@RunType_B21 Run <TBAFSrd$Dir> %*0
- !TBAFSrd.!Run
- | !Run for TBA Advanced Filing System (Read Only) - V1.00 - 15/11/96
- | (C)1996 - TBA Software
- IconSprites <Obey$Dir>.!Sprites
- Set TBAFS$Dir <Obey$Dir>
- Set File$Type_B21 TBAFSarc
- RMENSURE TBAFSMOD 1.01 RMLoad <TBAFSrd$Dir>.TBAFSmodR
- RMENSURE TBAFSMOD 1.01 ERROR You need TBAFSmod 1.01 to run !TBAFSrd
- RMensure ImageFSfix 0.11 RMload <TBAFSrd$Dir>.ImageFSfix
- WimpSlot -min 32k -max 32k
- Run <TBAFSrd$Dir>.!RunImageX %*0!TBAFSrd.Templates
- Deleted>
- Deleted>
- Deleted>
- Deleted>
- Deleted>
- Deleted>
- Deleted>
- Deleted>
- About this program
- TBA FS (read only)
- N3/;R2
- Reading TBA FS images
- N3/;R2
- 1996 TBA Software
- N3/;R2
- 1.01 (15-Nov-96)
- N3/version;R2
- Purpose
- Author
- Version
- TBAFSrd - Configuration
- Data Caching
- General Cache (Kb)
- Data Buffers
- Cancel
- !TBAFSrd.!Sprites
- file_b21
- wwwwwww
- wwwwwwwwwwwwww
- pwwwwwwwwwwwwwww
- !tbafsrd
- """""""""""""""""
- """rwww'"""""""""
- """WUUTt"""""""""
- """WUEEs"""""""""
- ""rUUT4
- '""""""""
- rwwUEE#!wwwwwww""
- WUUUT4
- "3CDURUU'"
- WUUEE#!23DT%UUU'"
- WUUT4
- "3CDURUUU'"
- WUwwwwwwwwwwwwww'
- GsUUUUUT4
- "3CDUSu
- 7rUUUUEE#!23DT5Uu
- 'qUUUUT4
- "3CDUSUu
- rUUUEE#!23DT5UUu
- 'rUUUT4
- "3CDUSUUu
- 'sUUEE#!23DT5UUUu
- 7sUUT4
- "3CDUSUUUu
- 7tUEE#!23DT5UUUUu
- GtUT4
- "3CDUSUUUUu
- GtEE#!23DT5UUUUUu
- "3CDUSUUUUUu
- WuE#!23DT5UUUUUUu
- "3CDUSUUUUUUu
- "w#!23DT5UUUUUUUu
- "rwwwwwwwwwwwwwww
- !TBAFSrd.ImageFSfix
- ImageFSFix
- ImageFSFix 0.04 (11 Jun 1996)
- ImageFSFix_ON
- ImageFSFix_OFF
- ImageFSFix module (c) Copyright David Pilling December 1992
- R!TBAFSrd.TBAFSModR
- TBAFSMod
- ZTBA FS Module (Read Only) 1.01 (14 Nov 1996)
- Error Initialising Module
- TAFS<TBAFS$DIR>.Config
- Not a TBAFS image file
- This item is locked to stop changes being made to it
- Directory not empty
- Path not found
- Alreay exists
- Serious! TBAFS File I/O Error
- This file has been left open from a previous operation
- Access violation
- You can not open a TBAFS image within another TBAFS image
- This version of TBAFS is read only!
- Unknown Call to TBAFSmod
- Unknown Compression Type
- Cache Size Too Small
- Insufficient Memory for New Cache
- Invalid number of buffers
- Insufficient Memory for New Data Buffers
- Insufficient Memory to Create New Image File
- This version of TBAFS is read only!
- Image File Not Found
- Invalid Flush Delay
- Not a CompMod Archive!
- !TBAFSrd.!RunImage
- >!RunImage
- (C)1995 - TBA Software (NOT Public Domain)
- &400c7,t%,Z%
- &400c5,,Z%
- &400c6,,Z%
- 17,18,19:
- Y%256,Z%1024,E%1024,_%1024,x%256,g%1024:J%=_%:Z%!0=0:
- &400c0,310,&4b534154,"TBA FS (Read Only)",Z%
- ,w%:V%=
- :t%=1:b%=
- C("!TBAFSrd","TBAFSrd"):
- &400d9,,"<TBAFSrd$Dir>.Templates":a%=
- A("Info"):F%=
- A("Main"):
- &400da:C=1:B=2:F=4:U=0:X=1:J=2
- P=3:M=4:G=5:L=6:S=7:D=8:N=9:H=10:Q=11:
- 34)>0:E$=
- (E$)-
- 34)):
- E$,1)=" ":E$=
- (E$)-1):
- E$<>""
- &400de,"Filer_Run "+E$
- A(M$):
- Q%,s%:
- &400db,,0,J%,_%+1024,-1,M$+
- ,,Q%:
- &400db,,Z%,J%,_%+1024,-1,M$+
- &400c1,,Z%
- s%:J%+=Q%:=s%
- &400dd,w%,&4b534154:
- z%:Y%!0=1:$(Y%+4)=
- $+" Code:"+
- )+" Ok to Continue?"+
- &400df,Y%,19,"Error from TBA FS (Read Only)"
- z%<>1
- M%,S%,L%,U%,H%:M%=Z%!0:S%=Z%!4:L%=Z%!8:U%=Z%!12:H%=Z%!16:
- U%,H%,q%:U%=Z%!0:H%=Z%!4:q%=Z%!24:
- &400dc,q%
- &400cf,,E%:L%=E%!8:
- B(Z%!4)
- 3:V%=
- M(e%,f%)
- B(D%):A%=S:C%=D%:
- 13,0,E!4
- r%:r%=Z%!16:
- 0:V%=
- M(M%-56,96+5*44+4)
- M(M%,S%):
- D%:D%=
- S(x%,"TBA FS rd",176):
- A(0,"Info",a%,0):
- A(2,"Close Image",g%,D%):
- A(2,"Options...",-1,0):
- A(128,"Quit",-1,0):
- &400d4,,x%,M%,S%:e%=M%:f%=S%:
- D%,T%:
- S(g%,"Images",128):
- :A%=S:C%=D%:
- A(128,
- M(E!8)),-1,0):D%+=1
- !Z=1:T%=0:
- D%=0T%=1
- D(F%,-1,-1,-1):
- Z:E%!0=F%:
- &400c6,,E%:
- N%,G%:N%=
- E(F%,3)):G%=
- E(F%,7)):
- N%<9999N%+=1:
- E(F%,3,
- N%>8N%-=1:
- E(F%,3,
- G%<99G%+=1:
- E(F%,7,
- G%>1G%-=1:
- E(F%,7,
- N%,G%:A%=J:
- A:N%=E!4
- 1024:A%=M:
- A:G%=E!8:
- E(F%,3,
- E(F%,7,
- N%,G%:N%=
- E(F%,3)):G%=
- E(F%,7)):A%=P:B%=N%*1024:
- 43,E!0
- A.A%=M:
- A:A%=G:B%=E!4:C%=G%:
- 43,E!0
- S(X%,Z$,R%):W%=X%:$W%=Z$+
- 0:W%!12=&70207:W%!16=R%:W%!20=44:W%!24=0:W%+=28:
- A(T%,Z$,Q%,K%):
- K%<>0K%=1
- E?W%!0=T%:W%!4=Q%:W%!8=&7000001+(K%<<22):$(W%+12)=Z$:W%+=24:
- D(U%,M%,S%,I%):
- R%,O%:
- W:E%!4=M%:E%!8=S%-O%:E%!12=M%+R%:E%!16=S%:E%!28=-1:
- &400c5,,E%:
- I%=-1
- &400d2,U%,I%,0,0,-1,-1
- Q%:E%!0=U%:
- &400cb,,E%:R%=(E%!12-E%!4):O%=(E%!16-E%!8):
- ((E%!32)
- 65536)M%=E%!4:S%=E%!16:
- d%,c%,y%:
- 53,-1,4
- ,,Q%:
- 53,-1,11
- ,,M%:M%+=1:M%=M%/2:
- Q%>0M%=M%<<Q%
- M%-=R%/2
- -2:M%=d%-64
- 53,-1,4
- ,,Q%:
- 53,-1,12
- ,,S%:S%+=1:S%=S%/2:
- Q%>0S%=S%<<Q%
- S%+=O%/2
- -2:S%=c%
- C(A$,Z$):
- I%:E%!0=-5:E%!4=0:E%!8=-16:E%!12=112:E%!16=E%!8+96:E%!20=&17003103+8:E%!24=J%:$J%=Z$+
- 0:J%+=
- (Z$)+1:E%!28=J%:$J%="S"+A$+
- 0:J%+=
- (A$)+2:E%!32=
- (A$)+1:
- &400c2,,E%
- I%:J%=(J%+3)
- -4:=I%
- E(U%,H%,A$):E%!0=U%:E%!4=H%:
- &400ce,,E%:$(E%!28)=A$:E%!8=0:E%!12=0:
- &400cd,,E%:
- E(U%,H%):
- A$:E%!0=U%:E%!4=H%:
- &400ce,,E%:=
- M(E%!28)
- M(X%):
- A$,n%:
- X%?0>=32:A$+=
- X%?0:X%+=1:
- S(A$):
- A$,".")>0:A$=
- (A$)-
- A$,".")):
- h%256:
- 2:P%=h%:[OPTX%:.W EQUS("TBAFSMOD"):DCB0:ALIGN:.A:STMFD13!,{0-12,14}:MOV0,#18:ADR1,W:SWI 30:MOV10,4:LDR12,[3,#11*4]:ADD12,12,3:LDMIA13,{0-7}:MOV14,15:MOV15,12:MOVVC8,#0:MOVVS8,#1:ADR9,E:STMIA9,{0-8}:LDMFD13!,{0-12,14}:MOVS15,14
- X<.E DCD0:DCD0:DCD0:DCD0:DCD0:DCD0:DCD0:DCD0:.Z DCD0:]:
- !TBAFSrd.Messages
- _TaskName:TBA FS (Read Only)
- !TBAFSrd.!Help
- !TBAFSrd is a read-only version of !TBAFS, to receive a price list
- contact TBA Software at.
- email: sales@tbalond.demon.co.uk
- post: TBA Software
- Mead Farm
- North Road
- Timsbury
- Nr Bath
- Acon
- BA3 1JH
- phone: 01761 470003
- Don't forget to visit our web pages for all the latest news at
- http://www.netlink.co.uk/users/tba
-