10 ! PROGRAM TO CHANGE A DOCUMENT FILE IN UPPER CASE ONLY
11 ! TO ALL LOWER CASE SO YOU CAN GO IN WITH THE EDITOR AND
12 ! MAKE A FEW CHARACTER CHANGES AND HAVE TEXT-LIKE DOCUMENTATION
13 ! WHERE CONVERSION TO RUNOFF SOURCE IS NOT VIABLE
20 DIM A$[132]V,B$[132]V,NA$[30]V
25 LOAD "LB:[1,202]LOWCAS.ATK"
30 INPUT "FILE NAME ";NA$
35 OPEN #3,NA$+"/RO/LN:132"
40 OPEN #4,NA$+"/WR/LN:132"
45 IF END #3 THEN 100
50 INPUT LINE #3,A$
55 CALL "LOWCAS"(A$,B$)
60 PRINT #4,B$
70 GOTO 50
100 CLOSE