Home » Archimedes archive » Zipped Apps » View » !View/!VPSPrint
!View/!VPSPrint
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 » Zipped Apps » View |
| Filename: | !View/!VPSPrint |
| Read OK: | ✔ |
| File size: | 01EE bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM > <View$dir>.!VPSPrint Version 0.70 30IF QUIT THEN 40 LIBRARY "BASIC:Shell" 50 PROCAssemble_Shell 60 FileName$=Shell_Env$ 70ELSE 80 FileName$="" 90ENDIF 110IF FileName$="" THEN 310ELSE 320 PROCParseName 330 OSCLI "<view$dir>.VPSPrint " + LeafName$ 350END 760DEFPROCParseName 770 LeafName$="" 780 PathName$="" 790 Pos%=1 800 REPEAT 810 LeafName$=RIGHT$(FileName$,Pos%) 820 Pos%+=1 830 UNTIL LEFT$(LeafName$,1)="." 840 LeafName$=RIGHT$(FileName$,Pos%-2) 850 PathName$=LEFT$(FileName$,LEN(FileName$)-Pos%+1) 860 OSCLI "%DIR "+PathName$ 870ENDPROC
*� > <View$dir>.!VPSPrint Version 0.70 � Ș � ( ț "BASIC:Shell" 2 �Assemble_Shell < FileName$=Shell_Env$ F� P FileName$="" Z� n� FileName$="" � 6� @ �ParseName J* � "<view$dir>.VPSPrint " + LeafName$ ^� ���ParseName LeafName$="" PathName$="" Pos%=1 � *" LeafName$=�FileName$,Pos%) 4 Pos%+=1 > � �LeafName$,1)="." H" LeafName$=�FileName$,Pos%-2) R/ PathName$=�FileName$,�(FileName$)-Pos%+1) \ � "%DIR "+PathName$ f� �
00000000 0d 00 0a 2a f4 20 3e 20 3c 56 69 65 77 24 64 69 |...*. > <View$di| 00000010 72 3e 2e 21 56 50 53 50 72 69 6e 74 20 20 56 65 |r>.!VPSPrint Ve| 00000020 72 73 69 6f 6e 20 30 2e 37 30 0d 00 1e 0a e7 20 |rsion 0.70..... | 00000030 c8 98 20 8c 0d 00 28 16 20 20 c8 9b 20 22 42 41 |.. ...(. .. "BA| 00000040 53 49 43 3a 53 68 65 6c 6c 22 0d 00 32 15 20 20 |SIC:Shell"..2. | 00000050 f2 41 73 73 65 6d 62 6c 65 5f 53 68 65 6c 6c 0d |.Assemble_Shell.| 00000060 00 3c 1a 20 20 46 69 6c 65 4e 61 6d 65 24 3d 53 |.<. FileName$=S| 00000070 68 65 6c 6c 5f 45 6e 76 24 0d 00 46 05 cc 0d 00 |hell_Env$..F....| 00000080 50 12 20 20 46 69 6c 65 4e 61 6d 65 24 3d 22 22 |P. FileName$=""| 00000090 0d 00 5a 05 cd 0d 00 6e 14 e7 20 46 69 6c 65 4e |..Z....n.. FileN| 000000a0 61 6d 65 24 3d 22 22 20 8c 0d 01 36 05 cc 0d 01 |ame$="" ...6....| 000000b0 40 10 20 20 f2 50 61 72 73 65 4e 61 6d 65 0d 01 |@. .ParseName..| 000000c0 4a 2a 20 20 ff 20 22 3c 76 69 65 77 24 64 69 72 |J* . "<view$dir| 000000d0 3e 2e 56 50 53 50 72 69 6e 74 20 22 20 2b 20 4c |>.VPSPrint " + L| 000000e0 65 61 66 4e 61 6d 65 24 0d 01 5e 05 e0 0d 02 f8 |eafName$..^.....| 000000f0 0f dd f2 50 61 72 73 65 4e 61 6d 65 0d 03 02 12 |...ParseName....| 00000100 20 20 4c 65 61 66 4e 61 6d 65 24 3d 22 22 0d 03 | LeafName$=""..| 00000110 0c 12 20 20 50 61 74 68 4e 61 6d 65 24 3d 22 22 |.. PathName$=""| 00000120 0d 03 16 0c 20 20 50 6f 73 25 3d 31 0d 03 20 07 |.... Pos%=1.. .| 00000130 20 20 f5 0d 03 2a 22 20 20 20 20 4c 65 61 66 4e | ...*" LeafN| 00000140 61 6d 65 24 3d c2 46 69 6c 65 4e 61 6d 65 24 2c |ame$=.FileName$,| 00000150 50 6f 73 25 29 0d 03 34 0f 20 20 20 20 50 6f 73 |Pos%)..4. Pos| 00000160 25 2b 3d 31 0d 03 3e 19 20 20 fd 20 c0 4c 65 61 |%+=1..>. . .Lea| 00000170 66 4e 61 6d 65 24 2c 31 29 3d 22 2e 22 0d 03 48 |fName$,1)="."..H| 00000180 22 20 20 4c 65 61 66 4e 61 6d 65 24 3d c2 46 69 |" LeafName$=.Fi| 00000190 6c 65 4e 61 6d 65 24 2c 50 6f 73 25 2d 32 29 0d |leName$,Pos%-2).| 000001a0 03 52 2f 20 20 50 61 74 68 4e 61 6d 65 24 3d c0 |.R/ PathName$=.| 000001b0 46 69 6c 65 4e 61 6d 65 24 2c a9 28 46 69 6c 65 |FileName$,.(File| 000001c0 4e 61 6d 65 24 29 2d 50 6f 73 25 2b 31 29 0d 03 |Name$)-Pos%+1)..| 000001d0 5c 19 20 20 ff 20 22 25 44 49 52 20 22 2b 50 61 |\. . "%DIR "+Pa| 000001e0 74 68 4e 61 6d 65 24 0d 03 66 05 e1 0d ff |thName$..f....| 000001ee
.