Home » Archimedes archive » Archimedes World » AW-1996-01.adf » !Webite_Webite » !Webite/FastTemp
!Webite/FastTemp
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 » Archimedes archive » Archimedes World » AW-1996-01.adf » !Webite_Webite |
| Filename: | !Webite/FastTemp |
| Read OK: | ✔ |
| File size: | 0421 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
1REM >FastTemp
2
3REM FastTemp - setup FastTemp for Webite
4REM (c) DoggySoft, 1995
5
6ON ERROR PRINT REPORT$;" at line ";ERL:END
7
8IF NOT FNexist("Termite$FastTemp") THEN
9 IF FNexist("Wimp$ScrapDir") THEN
10 *Set Termite$FastTemp <Wimp$ScrapDir>
11 ELSE
12 IF FNexist("Webite$Dir") THEN
13 *Set Termite$FastTemp <Webite$Dir>.TempDir
14 ELSE
15 PROCbox("Warning","Termite$FastTemp is not set up. Foreign images in Webite (e.g. JPEG pictures) may not be displayed.")
16 END
17 ENDIF
18 ENDIF
19ENDIF
20
21ON ERROR ON ERROR OFF:PROCcantwrite:END
22
23A%=0
24REPEAT
25 A%=A%+1
26 F%=OPENIN("<Termite$FastTemp>."+STR$ A%)
27 IF F%<>0 THEN CLOSE#F%
28UNTIL F%=0
29
30F%=OPENOUT("<Termite$FastTemp>."+STR$ A%)
31CLOSE#F%
32SYS "XOS_File",6,"<Termite$FastTemp>."+STR$ A%
33END
34
35DEF FNexist(var$)
36LOCAL flags%
37 SYS "XOS_ReadVarVal",var$,STRING$(255," "),255,0,0 TO ;flags%
38=(flags%AND1)=0
39
40DEF PROCcantwrite
41 PROCbox("Warning","Cannot write to <Termite$FastTemp>. Foreign images in Webite (e.g. JPEG pictures) may not be displayed.")
42ENDPROC
43
44DEF PROCbox(t$, m$)
45 SYS "Wimp_ReportError","Fish"+m$,17,t$
46ENDPROC
� >FastTemp
*� FastTemp - setup FastTemp for Webite
� (c) DoggySoft, 1995
� � � �$;" at line ";�:�
$� � �exist("Termite$FastTemp") �
! � �exist("Wimp$ScrapDir") �
- *Set Termite$FastTemp <Wimp$ScrapDir>
�
� �exist("Webite$Dir") �
4 *Set Termite$FastTemp <Webite$Dir>.TempDir
�
�box("Warning","Termite$FastTemp is not set up. Foreign images in Webite (e.g. JPEG pictures) may not be displayed.")
�
�
�
�
� � � � �:�cantwrite:�
A%=0
�
A%=A%+1
& F%=�("<Termite$FastTemp>."+� A%)
� F%<>0 � �#F%
� F%=0
$F%=�("<Termite$FastTemp>."+� A%)
�#F%
.ș "XOS_File",6,"<Termite$FastTemp>."+� A%
!�
"
#� �exist(var$)
$ � flags%
%: ș "XOS_ReadVarVal",var$,�255," "),255,0,0 � ;flags%
&=(flags%�1)=0
'
(� �cantwrite
) �box("Warning","Cannot write to <Termite$FastTemp>. Foreign images in Webite (e.g. JPEG pictures) may not be displayed.")
*�
+
,� �box(t$, m$)
-+ ș "Wimp_ReportError","Fish"+m$,17,t$
.�
� 00000000 0d 00 01 0f f4 20 3e 46 61 73 74 54 65 6d 70 0d |..... >FastTemp.|
00000010 00 02 04 0d 00 03 2a f4 20 46 61 73 74 54 65 6d |......*. FastTem|
00000020 70 20 2d 20 73 65 74 75 70 20 46 61 73 74 54 65 |p - setup FastTe|
00000030 6d 70 20 66 6f 72 20 57 65 62 69 74 65 0d 00 04 |mp for Webite...|
00000040 19 f4 20 28 63 29 20 44 6f 67 67 79 53 6f 66 74 |.. (c) DoggySoft|
00000050 2c 20 31 39 39 35 0d 00 05 04 0d 00 06 1c ee 20 |, 1995......... |
00000060 85 20 f1 20 f6 24 3b 22 20 61 74 20 6c 69 6e 65 |. . .$;" at line|
00000070 20 22 3b 9e 3a e0 0d 00 07 04 0d 00 08 24 e7 20 | ";.:........$. |
00000080 ac 20 a4 65 78 69 73 74 28 22 54 65 72 6d 69 74 |. .exist("Termit|
00000090 65 24 46 61 73 74 54 65 6d 70 22 29 20 8c 0d 00 |e$FastTemp") ...|
000000a0 09 21 20 20 e7 20 a4 65 78 69 73 74 28 22 57 69 |.! . .exist("Wi|
000000b0 6d 70 24 53 63 72 61 70 44 69 72 22 29 20 8c 0d |mp$ScrapDir") ..|
000000c0 00 0a 2d 20 20 20 20 2a 53 65 74 20 54 65 72 6d |..- *Set Term|
000000d0 69 74 65 24 46 61 73 74 54 65 6d 70 20 3c 57 69 |ite$FastTemp <Wi|
000000e0 6d 70 24 53 63 72 61 70 44 69 72 3e 0d 00 0b 08 |mp$ScrapDir>....|
000000f0 20 20 20 cc 0d 00 0c 20 20 20 20 20 e7 20 a4 65 | .... . .e|
00000100 78 69 73 74 28 22 57 65 62 69 74 65 24 44 69 72 |xist("Webite$Dir|
00000110 22 29 20 8c 0d 00 0d 34 20 20 20 20 20 20 2a 53 |") ....4 *S|
00000120 65 74 20 54 65 72 6d 69 74 65 24 46 61 73 74 54 |et Termite$FastT|
00000130 65 6d 70 20 3c 57 65 62 69 74 65 24 44 69 72 3e |emp <Webite$Dir>|
00000140 2e 54 65 6d 70 44 69 72 0d 00 0e 0a 20 20 20 20 |.TempDir.... |
00000150 20 cc 0d 00 0f 7f 20 20 20 20 20 20 f2 62 6f 78 | ..... .box|
00000160 28 22 57 61 72 6e 69 6e 67 22 2c 22 54 65 72 6d |("Warning","Term|
00000170 69 74 65 24 46 61 73 74 54 65 6d 70 20 69 73 20 |ite$FastTemp is |
00000180 6e 6f 74 20 73 65 74 20 75 70 2e 20 46 6f 72 65 |not set up. Fore|
00000190 69 67 6e 20 69 6d 61 67 65 73 20 69 6e 20 57 65 |ign images in We|
000001a0 62 69 74 65 20 28 65 2e 67 2e 20 4a 50 45 47 20 |bite (e.g. JPEG |
000001b0 70 69 63 74 75 72 65 73 29 20 6d 61 79 20 6e 6f |pictures) may no|
000001c0 74 20 62 65 20 64 69 73 70 6c 61 79 65 64 2e 22 |t be displayed."|
000001d0 29 0d 00 10 0b 20 20 20 20 20 20 e0 0d 00 11 09 |).... .....|
000001e0 20 20 20 20 cd 0d 00 12 07 20 20 cd 0d 00 13 05 | ..... .....|
000001f0 cd 0d 00 14 04 0d 00 15 1a ee 20 85 20 ee 20 85 |.......... . . .|
00000200 20 87 3a f2 63 61 6e 74 77 72 69 74 65 3a e0 0d | .:.cantwrite:..|
00000210 00 16 04 0d 00 17 08 41 25 3d 30 0d 00 18 05 f5 |.......A%=0.....|
00000220 0d 00 19 0d 20 20 41 25 3d 41 25 2b 31 0d 00 1a |.... A%=A%+1...|
00000230 26 20 20 46 25 3d 8e 28 22 3c 54 65 72 6d 69 74 |& F%=.("<Termit|
00000240 65 24 46 61 73 74 54 65 6d 70 3e 2e 22 2b c3 20 |e$FastTemp>."+. |
00000250 41 25 29 0d 00 1b 14 20 20 e7 20 46 25 3c 3e 30 |A%).... . F%<>0|
00000260 20 8c 20 d9 23 46 25 0d 00 1c 0a fd 20 46 25 3d | . .#F%..... F%=|
00000270 30 0d 00 1d 04 0d 00 1e 24 46 25 3d ae 28 22 3c |0.......$F%=.("<|
00000280 54 65 72 6d 69 74 65 24 46 61 73 74 54 65 6d 70 |Termite$FastTemp|
00000290 3e 2e 22 2b c3 20 41 25 29 0d 00 1f 08 d9 23 46 |>."+. A%).....#F|
000002a0 25 0d 00 20 2e c8 99 20 22 58 4f 53 5f 46 69 6c |%.. ... "XOS_Fil|
000002b0 65 22 2c 36 2c 22 3c 54 65 72 6d 69 74 65 24 46 |e",6,"<Termite$F|
000002c0 61 73 74 54 65 6d 70 3e 2e 22 2b c3 20 41 25 0d |astTemp>."+. A%.|
000002d0 00 21 05 e0 0d 00 22 04 0d 00 23 12 dd 20 a4 65 |.!...."...#.. .e|
000002e0 78 69 73 74 28 76 61 72 24 29 0d 00 24 0c ea 20 |xist(var$)..$.. |
000002f0 66 6c 61 67 73 25 0d 00 25 3a 20 20 c8 99 20 22 |flags%..%: .. "|
00000300 58 4f 53 5f 52 65 61 64 56 61 72 56 61 6c 22 2c |XOS_ReadVarVal",|
00000310 76 61 72 24 2c c4 32 35 35 2c 22 20 22 29 2c 32 |var$,.255," "),2|
00000320 35 35 2c 30 2c 30 20 b8 20 3b 66 6c 61 67 73 25 |55,0,0 . ;flags%|
00000330 0d 00 26 11 3d 28 66 6c 61 67 73 25 80 31 29 3d |..&.=(flags%.1)=|
00000340 30 0d 00 27 04 0d 00 28 10 dd 20 f2 63 61 6e 74 |0..'...(.. .cant|
00000350 77 72 69 74 65 0d 00 29 7f 20 20 f2 62 6f 78 28 |write..). .box(|
00000360 22 57 61 72 6e 69 6e 67 22 2c 22 43 61 6e 6e 6f |"Warning","Canno|
00000370 74 20 77 72 69 74 65 20 74 6f 20 3c 54 65 72 6d |t write to <Term|
00000380 69 74 65 24 46 61 73 74 54 65 6d 70 3e 2e 20 46 |ite$FastTemp>. F|
00000390 6f 72 65 69 67 6e 20 69 6d 61 67 65 73 20 69 6e |oreign images in|
000003a0 20 57 65 62 69 74 65 20 28 65 2e 67 2e 20 4a 50 | Webite (e.g. JP|
000003b0 45 47 20 70 69 63 74 75 72 65 73 29 20 6d 61 79 |EG pictures) may|
000003c0 20 6e 6f 74 20 62 65 20 64 69 73 70 6c 61 79 65 | not be displaye|
000003d0 64 2e 22 29 0d 00 2a 05 e1 0d 00 2b 04 0d 00 2c |d.")..*....+...,|
000003e0 12 dd 20 f2 62 6f 78 28 74 24 2c 20 6d 24 29 0d |.. .box(t$, m$).|
000003f0 00 2d 2b 20 20 c8 99 20 22 57 69 6d 70 5f 52 65 |.-+ .. "Wimp_Re|
00000400 70 6f 72 74 45 72 72 6f 72 22 2c 22 46 69 73 68 |portError","Fish|
00000410 22 2b 6d 24 2c 31 37 2c 74 24 0d 00 2e 05 e1 0d |"+m$,17,t$......|
00000420 ff |.|
00000421 
.