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

Contents of /territories/Source/Utilities/Collate2

Parent Directory Parent Directory | Revision Log Revision Log


Revision 19 - (show 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 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