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

Annotation of /territories/Source/Utilities/Collate1

Parent Directory Parent Directory | Revision Log Revision Log


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

1 james 19 REM > Territories:Utilities.Collate1
2    
3     LIBRARY"JLibraries:Error"
4     ON ERROR PROCError("Territories:Utilities.Collate1")
5    
6    
7     INPUT"File name: "f$
8     f% = OPENOUTf$
9     IF f% = 0 THEN ERROR 1, "Could not open file"
10    
11     FOR a% = 32 TO 126
12     BPUT#f%, CHR$a%;
13     NEXT
14    
15     FOR a% = 128 TO 255
16     BPUT#f%, CHR$a%;
17     NEXT
18    
19     CLOSE#f%
20    
21     OSCLI"SetType "+f$+" Text"

  ViewVC Help
Powered by ViewVC 1.1.26