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

Contents of /territories/Source/Utilities/Collate1

Parent Directory Parent Directory | Revision Log Revision Log


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