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,DD$[1]
25 LOAD "LB:[1,202]LOWCAS.ATK"
27 PRINT "AFTER EACH LINE ANSWER"
28 PRINT " L TO CHANGE LINE TO LOWER CASE"
29 PRINT " <CR> TO KEEP SAME"
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$
51 PRINT A$; : INPUT DD$
52 IF DD$<>"L" THEN PRINT #4, A$ : GOTO 50
55 CALL "LOWCAS"(A$,B$)
60 PRINT #4,B$
70 GOTO 50
100 CLOSE