Home » Archimedes archive » Acorn User » AU 1996-12 B.adf » Regulars_2 » StarInfo/Devereux/!FDDteStmp/!RunImage
StarInfo/Devereux/!FDDteStmp/!RunImage
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 » Acorn User » AU 1996-12 B.adf » Regulars_2 |
| Filename: | StarInfo/Devereux/!FDDteStmp/!RunImage |
| Read OK: | ✔ |
| File size: | 0445 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
0REM>Output
0REMProduced by BasCompress v1.69 (04 Aug 1995)
10MODE0:DIMZ%256,L%256+25:G%=0:D%=0
50PRINT"Sometimes files have incorrect datestamps (i.e. dates that are in the future), this can prevent �Update� from working properly. This program checks files� datestamps and changes them to the current date if they are not valid."
60INPUT"Directory to check (ie ADFS::4.$) "A$:IFA$=""THENA$="ADFS::4.$"
90?Z%=3:SYS7,&E,Z%:F%=Z%?4:B%=!Z%:PRINT"The following files in ";A$;" have been re-stamped :":PROCZ(A$):PRINT'"FINISHED":END
180DEFPROCZ(A$):LOCALM%,Z$:M%=0:REPEAT:SYS&C,&A,A$,Z%,1,M%,256,"*"TO,,A%,,M%:IFM%=-1THENGOTO510
250G%+=1:IF(A%!16)=2THEN
280A%+=20:Z$="":WHILE?A%<>0:Z$+=CHR$?A%:A%+=1:ENDWHILE:M$=A$+"."+Z$:PROCA(M$):PROCZ(M$)
360ELSE:D%+=A%!8:A%=A%+20:Z$="":WHILE?A%<>0:Z$+=CHR$?A%:A%+=1:ENDWHILE:M$=A$+"."+Z$:PROCA(M$)
460ENDIF
510UNTILM%=-1:ENDPROC
540DEFPROCA(S$):S%=!Z%:Q%=Z%!4:N%=Z%!&C:IFFNZTHEN
600SYS&20008,1,S$,(S%AND-256)OR(F%AND&FF),B%,,N%:PRINTS$
620ENDIF:ENDPROC
660DEFFNZ:IF(S%AND-&100000)<>-&100000THEN=FALSE
700IF(S%AND&FF)=F%ANDFNA(Q%,B%)=1THEN=TRUE
710IF(S%AND&FF)>F%THEN=TRUE
730=FALSE
750DEFFNA(U%,X%):LOCALP%,C%,W%,J%:P%=(U%>>16)AND&FFFF:C%=(X%>>16)AND&FFFF:IFP%>C%THEN=1
810IFP%<C%THEN=-1
830W%=U%AND&FFFF:J%=X%AND&FFFF:IFW%>J%THEN=1
860IFW%<J%THEN=-1
870=0
�>Output 0�Produced by BasCompress v1.69 (04 Aug 1995) �0:�Z%256,L%256+25:G%=0:D%=0 2��"Sometimes files have incorrect datestamps (i.e. dates that are in the future), this can prevent �Update� from working properly. This program checks files� datestamps and changes them to the current date if they are not valid." <A�"Directory to check (ie ADFS::4.$) "A$:�A$=""�A$="ADFS::4.$" Zp?Z%=3:ș7,&E,Z%:F%=Z%?4:B%=!Z%:�"The following files in ";A$;" have been re-stamped :":�Z(A$):�'"FINISHED":� �J��Z(A$):�M%,Z$:M%=0:�:ș&C,&A,A$,Z%,1,M%,256,"*"�,,A%,,M%:�M%=-1��d~A �G%+=1:�(A%!16)=2� EA%+=20:Z$="":ȕ?A%<>0:Z$+=�?A%:A%+=1:�:M$=A$+"."+Z$:�A(M$):�Z(M$) hK�:D%+=A%!8:A%=A%+20:Z$="":ȕ?A%<>0:Z$+=�?A%:A%+=1:�:M$=A$+"."+Z$:�A(M$) �� � �M%=-1:� (��A(S$):S%=!Z%:Q%=Z%!4:N%=Z%!&C:�Z� X/ș&20008,1,S$,(S%�-256)�(F%�&FF),B%,,N%:�S$ l�:� �#ݤZ:�(S%�-&100000)<>-&100000�=� � �(S%�&FF)=F%��A(Q%,B%)=1�=� ��(S%�&FF)>F%�=� �=� �IݤA(U%,X%):�P%,C%,W%,J%:P%=(U%>>16)�&FFFF:C%=(X%>>16)�&FFFF:�P%>C%�=1 *�P%<C%�=-1 >%W%=U%�&FFFF:J%=X%�&FFFF:�W%>J%�=1 \�W%<J%�=-1 f=0 �
00000000 0d 00 00 0c f4 3e 4f 75 74 70 75 74 0d 00 00 30 |.....>Output...0| 00000010 f4 50 72 6f 64 75 63 65 64 20 62 79 20 42 61 73 |.Produced by Bas| 00000020 43 6f 6d 70 72 65 73 73 20 76 31 2e 36 39 20 28 |Compress v1.69 (| 00000030 30 34 20 41 75 67 20 31 39 39 35 29 0d 00 0a 20 |04 Aug 1995)... | 00000040 eb 30 3a de 5a 25 32 35 36 2c 4c 25 32 35 36 2b |.0:.Z%256,L%256+| 00000050 32 35 3a 47 25 3d 30 3a 44 25 3d 30 0d 00 32 ed |25:G%=0:D%=0..2.| 00000060 f1 22 53 6f 6d 65 74 69 6d 65 73 20 66 69 6c 65 |."Sometimes file| 00000070 73 20 68 61 76 65 20 69 6e 63 6f 72 72 65 63 74 |s have incorrect| 00000080 20 64 61 74 65 73 74 61 6d 70 73 20 28 69 2e 65 | datestamps (i.e| 00000090 2e 20 64 61 74 65 73 20 74 68 61 74 20 61 72 65 |. dates that are| 000000a0 20 69 6e 20 74 68 65 20 66 75 74 75 72 65 29 2c | in the future),| 000000b0 20 20 74 68 69 73 20 63 61 6e 20 70 72 65 76 65 | this can preve| 000000c0 6e 74 20 90 55 70 64 61 74 65 91 20 66 72 6f 6d |nt .Update. from| 000000d0 20 77 6f 72 6b 69 6e 67 20 70 72 6f 70 65 72 6c | working properl| 000000e0 79 2e 20 20 54 68 69 73 20 70 72 6f 67 72 61 6d |y. This program| 000000f0 20 63 68 65 63 6b 73 20 66 69 6c 65 73 91 20 20 | checks files. | 00000100 20 20 64 61 74 65 73 74 61 6d 70 73 20 61 6e 64 | datestamps and| 00000110 20 63 68 61 6e 67 65 73 20 74 68 65 6d 20 74 6f | changes them to| 00000120 20 74 68 65 20 63 75 72 72 65 6e 74 20 64 61 74 | the current dat| 00000130 65 20 69 66 20 74 68 65 79 20 61 72 65 20 6e 6f |e if they are no| 00000140 74 20 76 61 6c 69 64 2e 22 0d 00 3c 41 e8 22 44 |t valid."..<A."D| 00000150 69 72 65 63 74 6f 72 79 20 74 6f 20 63 68 65 63 |irectory to chec| 00000160 6b 20 28 69 65 20 41 44 46 53 3a 3a 34 2e 24 29 |k (ie ADFS::4.$)| 00000170 20 22 41 24 3a e7 41 24 3d 22 22 8c 41 24 3d 22 | "A$:.A$="".A$="| 00000180 41 44 46 53 3a 3a 34 2e 24 22 0d 00 5a 70 3f 5a |ADFS::4.$"..Zp?Z| 00000190 25 3d 33 3a c8 99 37 2c 26 45 2c 5a 25 3a 46 25 |%=3:..7,&E,Z%:F%| 000001a0 3d 5a 25 3f 34 3a 42 25 3d 21 5a 25 3a f1 22 54 |=Z%?4:B%=!Z%:."T| 000001b0 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 66 69 6c |he following fil| 000001c0 65 73 20 69 6e 20 22 3b 41 24 3b 22 20 68 61 76 |es in ";A$;" hav| 000001d0 65 20 62 65 65 6e 20 72 65 2d 73 74 61 6d 70 65 |e been re-stampe| 000001e0 64 20 3a 22 3a f2 5a 28 41 24 29 3a f1 27 22 46 |d :":.Z(A$):.'"F| 000001f0 49 4e 49 53 48 45 44 22 3a e0 0d 00 b4 4a dd f2 |INISHED":....J..| 00000200 5a 28 41 24 29 3a ea 4d 25 2c 5a 24 3a 4d 25 3d |Z(A$):.M%,Z$:M%=| 00000210 30 3a f5 3a c8 99 26 43 2c 26 41 2c 41 24 2c 5a |0:.:..&C,&A,A$,Z| 00000220 25 2c 31 2c 4d 25 2c 32 35 36 2c 22 2a 22 b8 2c |%,1,M%,256,"*".,| 00000230 2c 41 25 2c 2c 4d 25 3a e7 4d 25 3d 2d 31 8c e5 |,A%,,M%:.M%=-1..| 00000240 8d 64 7e 41 0d 00 fa 15 47 25 2b 3d 31 3a e7 28 |.d~A....G%+=1:.(| 00000250 41 25 21 31 36 29 3d 32 8c 0d 01 18 45 41 25 2b |A%!16)=2....EA%+| 00000260 3d 32 30 3a 5a 24 3d 22 22 3a c8 95 3f 41 25 3c |=20:Z$="":..?A%<| 00000270 3e 30 3a 5a 24 2b 3d bd 3f 41 25 3a 41 25 2b 3d |>0:Z$+=.?A%:A%+=| 00000280 31 3a ce 3a 4d 24 3d 41 24 2b 22 2e 22 2b 5a 24 |1:.:M$=A$+"."+Z$| 00000290 3a f2 41 28 4d 24 29 3a f2 5a 28 4d 24 29 0d 01 |:.A(M$):.Z(M$)..| 000002a0 68 4b cc 3a 44 25 2b 3d 41 25 21 38 3a 41 25 3d |hK.:D%+=A%!8:A%=| 000002b0 41 25 2b 32 30 3a 5a 24 3d 22 22 3a c8 95 3f 41 |A%+20:Z$="":..?A| 000002c0 25 3c 3e 30 3a 5a 24 2b 3d bd 3f 41 25 3a 41 25 |%<>0:Z$+=.?A%:A%| 000002d0 2b 3d 31 3a ce 3a 4d 24 3d 41 24 2b 22 2e 22 2b |+=1:.:M$=A$+"."+| 000002e0 5a 24 3a f2 41 28 4d 24 29 0d 01 cc 05 cd 0d 01 |Z$:.A(M$).......| 000002f0 fe 0c fd 4d 25 3d 2d 31 3a e1 0d 02 1c 28 dd f2 |...M%=-1:....(..| 00000300 41 28 53 24 29 3a 53 25 3d 21 5a 25 3a 51 25 3d |A(S$):S%=!Z%:Q%=| 00000310 5a 25 21 34 3a 4e 25 3d 5a 25 21 26 43 3a e7 a4 |Z%!4:N%=Z%!&C:..| 00000320 5a 8c 0d 02 58 2f c8 99 26 32 30 30 30 38 2c 31 |Z...X/..&20008,1| 00000330 2c 53 24 2c 28 53 25 80 2d 32 35 36 29 84 28 46 |,S$,(S%.-256).(F| 00000340 25 80 26 46 46 29 2c 42 25 2c 2c 4e 25 3a f1 53 |%.&FF),B%,,N%:.S| 00000350 24 0d 02 6c 07 cd 3a e1 0d 02 94 23 dd a4 5a 3a |$..l..:....#..Z:| 00000360 e7 28 53 25 80 2d 26 31 30 30 30 30 30 29 3c 3e |.(S%.-&100000)<>| 00000370 2d 26 31 30 30 30 30 30 8c 3d a3 0d 02 bc 1f e7 |-&100000.=......| 00000380 28 53 25 80 26 46 46 29 3d 46 25 80 a4 41 28 51 |(S%.&FF)=F%..A(Q| 00000390 25 2c 42 25 29 3d 31 8c 3d b9 0d 02 c6 13 e7 28 |%,B%)=1.=......(| 000003a0 53 25 80 26 46 46 29 3e 46 25 8c 3d b9 0d 02 da |S%.&FF)>F%.=....| 000003b0 06 3d a3 0d 02 ee 49 dd a4 41 28 55 25 2c 58 25 |.=....I..A(U%,X%| 000003c0 29 3a ea 50 25 2c 43 25 2c 57 25 2c 4a 25 3a 50 |):.P%,C%,W%,J%:P| 000003d0 25 3d 28 55 25 3e 3e 31 36 29 80 26 46 46 46 46 |%=(U%>>16).&FFFF| 000003e0 3a 43 25 3d 28 58 25 3e 3e 31 36 29 80 26 46 46 |:C%=(X%>>16).&FF| 000003f0 46 46 3a e7 50 25 3e 43 25 8c 3d 31 0d 03 2a 0e |FF:.P%>C%.=1..*.| 00000400 e7 50 25 3c 43 25 8c 3d 2d 31 0d 03 3e 25 57 25 |.P%<C%.=-1..>%W%| 00000410 3d 55 25 80 26 46 46 46 46 3a 4a 25 3d 58 25 80 |=U%.&FFFF:J%=X%.| 00000420 26 46 46 46 46 3a e7 57 25 3e 4a 25 8c 3d 31 0d |&FFFF:.W%>J%.=1.| 00000430 03 5c 0e e7 57 25 3c 4a 25 8c 3d 2d 31 0d 03 66 |.\..W%<J%.=-1..f| 00000440 06 3d 30 0d ff |.=0..| 00000445
.