Listing of file='HLDA010D' on disk='vmedia/letter_editor.wvd.zip'
# Sector 98, program filename = 'HLDA010D'
0010 REM ***** HLDA010D - REVISED 1550 08/18/76 ***** COPYRIGHT WANG LABS, 197
6
0030 COM N$(16),Q$64,E$(1)2,C$(2)40,P$(60)40,G$(1)10,Q1$64,Q2$64,A$2,B$(80)1,B
1$2,B2$2
: COM CLEAR N$()
: SELECT PRINT 005(80)
: PRINT HEX(03);TAB(8);"D E L E T E A D O C U M E N T F R O M D I S
K"
: A$=HEX(0000)
: GOSUB 8530
0100 GOSUB 9210
: M$=Q$
: DATA LOAD BA T#2,(5*S2+U+1,A)N$()
: D$=HEX(0F)
: MAT SEARCHN$(),=D$TO E$()
: D=256*VAL(E$(1))+VAL(STR(E$(1),2))
: J0=1
: PRINT HEX(010A0A0A0A);
0180 IF J0>=DTHEN 220
: $GIO/005,(400DA000400A,I0$)N$()<J0,W>
: J0=J0+W
: GOTO 180
0220 Q$=M$
: STR(Q$,LEN(M$)+2)="IS ON DISK. DO YOU WISH TO DELETE IT? (Y/N)"
: GOSUB '32(Q$,1)
0260 IF Q$="Y"THEN 300
: IF Q$="y"THEN 300
: IF Q$="N"THEN 450
: IF Q$="n"THEN 450
: GOSUB 295
: GOTO 260
0295 GOSUB '34("INVALID REPLY. ANSWER 'Y' OR 'N'.")
: RETURN
0300 N=INT((S2-1)/50)
: DATA LOAD BA T#2,(N+U+1,A)N$()
: INIT(20)G$()
: MAT COPY G$()TO N$()<5*(S2-50*N)-4,5>
: DATA SAVE BA T#2,(A-1,A)N$()
: IF F=0THEN 342
: BIN(T$(F0))=S2
0320 IF T$(F0)=HEX(00)THEN 350
: F0=VAL(T$(F0))
: GOTO 320
0342 F,F0=S2
: GOTO 320
0350 GOSUB 9450
0360 Q$=M$
: STR(Q$,LEN(M$)+2)="IS DELETED FROM DISK. DELETE ANOTHER DOCUMENT? (Y/N)
"
: PRINT HEX(03);TAB(8);"D E L E T E A D O C U M E N T F R O M D I S
K"
: GOSUB '32(Q$,1)
0390 IF Q$="Y"THEN 100
: IF Q$="y"THEN 100
: IF Q$="N"THEN 420
: IF Q$="n"THEN 420
: GOSUB 295
: GOTO 390
0420 PRINT HEX(03);"END OF JOB"
: GOSUB '15
0450 M$="NOTHING"
: GOTO 360
8050 DEFFN'32(Q1$,N)
: GOSUB 8460
8070 PRINT HEX(010A);Q1$;HEX(0D0A)
: INIT(2D)Q$
: $GIO/005(40204020A000402F400D,I0$)Q$<1,N>
: Q$=" "
: D=1
: PRINT "? ";
8150 KEYIN D$,8160,8150
: GOTO 8150
8160 IF D$=HEX(0D)THEN 8330
: IF D$=HEX(08)THEN 8280
: IF D$=HEX(A1)THEN 8250
: IF D>NTHEN 8150
: IF D$=HEX(84)THEN 8350
: STR(Q$,D,1)=D$
8220 PRINT D$;
: D=D+1
: GOTO 8150
8250 PRINT HEX(0D0909);
: D=1
: GOTO 8150
8280 IF D=1THEN 8150
: D=D-1
: STR(Q$,D,1)=" "
: PRINT HEX(082008);
: GOTO 8150
8330 PRINT HEX(0D0A)
: RETURN
8350 OR (STR(Q$,D,1),80)
: D$=STR(Q$,D,1)
: GOTO 8220
8400 DEFFN'34(Q2$)
: GOSUB 8460
: PRINT HEX(010A0A0A);Q2$
: GOTO 8070
8460 PRINT HEX(010A);
: GOSUB 8490
: GOSUB 8490
8490 $GIO/005(400DA000400A,I$)B$()<1,W>
: RETURN
8530 Q1$="MOUNT DISK AND ENTER VOLUME NAME."
: Q2$="DEFAULT NAME ="
: STR(Q2$,16)=F$
: N=8
: GOSUB '34(Q2$)
8540 IF Q$=" "THEN 8700
: IF Q$="STOP"THEN 8760
: IF Q$="stop"THEN 8760
: F$=Q$
8570 GOSUB 8790
: IF I>0THEN 8610
: GOSUB '34("VOL. NAME DOES NOT EXIST OR IS SCRATCHED.")
: GOTO 8540
8610 GOSUB 8960
: IF U>0THEN 8650
: GOSUB '34("THIS VOL. IS ALREADY IN USE.")
: GOTO 8540
8650 DATA LOAD BA T#2,(U,B1$)N$()
: MAT COPY N$()TO T$()
: F=VAL(STR(N$(13),9))
: F0=VAL(STR(N$(13),10))
: IF W=VAL(STR(N$(13),11))THEN 8690
: GOSUB '34("LINE LENGTH FOR VOLUME IS WRONG SIZE.")
: GOTO 8540
8690 RETURN
8700 Q$=F$
: IF Q$<>" "THEN 8570
: GOSUB '34("A VOL. NAME MUST BE ENTERED.")
: GOTO 8540
8750 DEFFN'15
8760 LOAD DC T#1,"HLDA010A"
8790 B1$,B2$=A$
: DATA LOAD BA T#2,(B1$,B1$)N$()
: I=0
: STR(B2$,2)=STR(N$(1),2)
8830 D=9
8840 MAT SEARCHN$()<D,257-D>,=STR(Q$,1,8)TO E$()STEP 16
: IF E$(1)>A$THEN 8890
8860 IF B1$>=B2$THEN 8920
: DATA LOAD BA T#2,(B1$,B1$)N$()
: GOTO 8830
8890 D=D+VAL(STR(E$(1),2))-1
: I=(D+7)/16
: IF STR(N$(I),1,1)=HEX(10)THEN 8920
: I=0
: D=D+16
: IF D<256THEN 8840
: GOTO 8860
8920 RETURN
8950 I=9
: GOTO 8970
8960 I=1
8970 LIMITS T#1,"ACTIVE",U1,U2,U2
: U=0
: DATA LOAD BA T#6,(U1,A)N$()
: STR(N$(VAL(Z$)),I,8)=F$
: FOR J=1TO 4
: IF J=VAL(Z$)THEN 9015
: IF STR(N$(J),1,8)=F$THEN 9040
: IF STR(N$(J),9,8)=F$THEN 9040
9015 NEXT J
: DATA SAVE BA T#1,(U1,A)N$()
: LIMITS T#2,F$,U,U1,U2
9040 VERIFY T#1,(1,1)
: RETURN
9090 T2=1
: FOR I=1TO 4
: DATA LOAD BA T#2,(U+I,B1$)N$()
: MAT SEARCHN$()<1,250>,=STR(Q$,1,5)TO E$()STEP 5
: IF E$(1)=A$THEN 9160
: S2=50*(I-1)+(VAL(STR(E$(1),2))+4)/5
: RETURN
9160 NEXT I
: S2=0
: RETURN
9210 GOSUB '32("ENTER NAME OF LETTER OR DOCUMENT",5)
9212 IF Q$<>" "THEN 9220
: GOSUB '34("A DOCUMENT NAME MUST BE ENTERED.")
: GOTO 9212
9220 GOSUB 9090
: GOSUB 8460
: IF S2>0THEN 9490
: GOSUB '34("DOCUMENT IS NOT ON DISK.")
: GOTO 9212
9450 MAT COPY T$()TO N$()<1,200>
: BIN(STR(N$(13),9))=F
: BIN(STR(N$(13),10))=F0
: BIN(STR(N$(13),11))=W
: DATA SAVE BA T#2,(U,A)N$()
9490 RETURN