Home » Archimedes archive » Zipped Apps » View » !View/!VPrint
!View/!VPrint
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/!VPrint |
| Read OK: | ✔ |
| File size: | 01EA bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM > <View$dir>.!VPrint 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>.VPrint " + 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>.!VPrint Version 0.70 � Ș � ( ț "BASIC:Shell" 2 �Assemble_Shell < FileName$=Shell_Env$ F� P FileName$="" Z� n� FileName$="" � 6� @ �ParseName J( � "<view$dir>.VPrint " + 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 28 f4 20 3e 20 3c 56 69 65 77 24 64 69 |...(. > <View$di| 00000010 72 3e 2e 21 56 50 72 69 6e 74 20 20 56 65 72 73 |r>.!VPrint Vers| 00000020 69 6f 6e 20 30 2e 37 30 0d 00 1e 0a e7 20 c8 98 |ion 0.70..... ..| 00000030 20 8c 0d 00 28 16 20 20 c8 9b 20 22 42 41 53 49 | ...(. .. "BASI| 00000040 43 3a 53 68 65 6c 6c 22 0d 00 32 15 20 20 f2 41 |C:Shell"..2. .A| 00000050 73 73 65 6d 62 6c 65 5f 53 68 65 6c 6c 0d 00 3c |ssemble_Shell..<| 00000060 1a 20 20 46 69 6c 65 4e 61 6d 65 24 3d 53 68 65 |. FileName$=She| 00000070 6c 6c 5f 45 6e 76 24 0d 00 46 05 cc 0d 00 50 12 |ll_Env$..F....P.| 00000080 20 20 46 69 6c 65 4e 61 6d 65 24 3d 22 22 0d 00 | FileName$=""..| 00000090 5a 05 cd 0d 00 6e 14 e7 20 46 69 6c 65 4e 61 6d |Z....n.. FileNam| 000000a0 65 24 3d 22 22 20 8c 0d 01 36 05 cc 0d 01 40 10 |e$="" ...6....@.| 000000b0 20 20 f2 50 61 72 73 65 4e 61 6d 65 0d 01 4a 28 | .ParseName..J(| 000000c0 20 20 ff 20 22 3c 76 69 65 77 24 64 69 72 3e 2e | . "<view$dir>.| 000000d0 56 50 72 69 6e 74 20 22 20 2b 20 4c 65 61 66 4e |VPrint " + LeafN| 000000e0 61 6d 65 24 0d 01 5e 05 e0 0d 02 f8 0f dd f2 50 |ame$..^........P| 000000f0 61 72 73 65 4e 61 6d 65 0d 03 02 12 20 20 4c 65 |arseName.... Le| 00000100 61 66 4e 61 6d 65 24 3d 22 22 0d 03 0c 12 20 20 |afName$="".... | 00000110 50 61 74 68 4e 61 6d 65 24 3d 22 22 0d 03 16 0c |PathName$=""....| 00000120 20 20 50 6f 73 25 3d 31 0d 03 20 07 20 20 f5 0d | Pos%=1.. . ..| 00000130 03 2a 22 20 20 20 20 4c 65 61 66 4e 61 6d 65 24 |.*" LeafName$| 00000140 3d c2 46 69 6c 65 4e 61 6d 65 24 2c 50 6f 73 25 |=.FileName$,Pos%| 00000150 29 0d 03 34 0f 20 20 20 20 50 6f 73 25 2b 3d 31 |)..4. Pos%+=1| 00000160 0d 03 3e 19 20 20 fd 20 c0 4c 65 61 66 4e 61 6d |..>. . .LeafNam| 00000170 65 24 2c 31 29 3d 22 2e 22 0d 03 48 22 20 20 4c |e$,1)="."..H" L| 00000180 65 61 66 4e 61 6d 65 24 3d c2 46 69 6c 65 4e 61 |eafName$=.FileNa| 00000190 6d 65 24 2c 50 6f 73 25 2d 32 29 0d 03 52 2f 20 |me$,Pos%-2)..R/ | 000001a0 20 50 61 74 68 4e 61 6d 65 24 3d c0 46 69 6c 65 | PathName$=.File| 000001b0 4e 61 6d 65 24 2c a9 28 46 69 6c 65 4e 61 6d 65 |Name$,.(FileName| 000001c0 24 29 2d 50 6f 73 25 2b 31 29 0d 03 5c 19 20 20 |$)-Pos%+1)..\. | 000001d0 ff 20 22 25 44 49 52 20 22 2b 50 61 74 68 4e 61 |. "%DIR "+PathNa| 000001e0 6d 65 24 0d 03 66 05 e1 0d ff |me$..f....| 000001ea
.