1 &"LTRUPD V01A-01":&
2 &" TO RUN THIS PROGRAM YOU SHOULD BE UNDER [1,2]"
4 DIM Q$(50)
5 DIM X(2)
6 INPUT "DEV: THAT ALPH.DAT IS ON";D2$
7 &"ACCOUNT ALPH.DAT IS ON IE. [1,51]";
8 INPUTLINE  A$
9 A$=MID(A$,1%,LEN(A$)-2%)
10 OPEN D2$+A$+"ALPH.DAT" AS FILE 1%, RECORD SIZE 512
15 &" TO EXIT TYPE EXIT"
20 INPUT "CHARACTER TO UPDATE"; A$
30 IF A$="EXIT" THEN 140
40 INPUT" # OF PAIRS OF POINTS";N
45 CHANGE A$ TO X
46 I%=(X(1)-32%+4%)/5
47 J%=(((I%*5%)+32%)-X(1))
48 & X(1);A$;I%;J%
50 FOR W=0 TO 50
51 FIELD #1%,((J%)*100) AS D$, 2%*W AS D1$, 2% AS Q$(W)
52 NEXT W
60 GET #1%,RECORDI%
70 FOR H=1 TO N
80 INPUT"X,Y"X%,Y%
90 LSETQ$(2*H-1)=CVT%$(X%)
91 LSET Q$(2*H)=CVT%$(Y%)
100 NEXT H
110 LSET Q$(0)=CVT%$(N)
120 PUT #1%,RECORD I%
130 GO TO 20
140 CLOSE 1%
145 STOP
150 END