/[james]/territories/Source/Utilities/Collate2
ViewVC logotype

Annotation of /territories/Source/Utilities/Collate2

Parent Directory Parent Directory | Revision Log Revision Log


Revision 19 - (hide annotations) (download)
Tue Feb 11 11:05:25 2003 UTC (21 years, 8 months ago) by james
File size: 376 byte(s)
Initial import.

1 james 19 REM > Territories:Utilities.Collate2
2    
3     LIBRARY"JLibraries:Error"
4     ON ERROR PROCError("Territories:Utilities.Collate2")
5    
6     INPUT"Source file name: "f$
7     f% = OPENINf$
8     IF f% = 0 THEN ERROR 1, "Could not open source file"
9    
10     DIM m% 255
11    
12     FOR c% = 0 TO 255
13     z% = BGET#f%
14     m%?z% = c%
15     NEXT
16    
17     INPUT"Destination file name: "g$
18     OSCLI"Save "+g$+" "+STR$~m%+" +100"
19     OSCLI"SetType "+g$+" Data"

  ViewVC Help
Powered by ViewVC 1.1.26