Listing of file='609Enewc' on disk='vmedia/731-0067F-disk1.wvd.zip'
# Sector 1396, program filename = '609Enewc' 0100 REM %609Enewc - create new document : DIM U1$(8),U2$(8)4,V0$(1000)1 0110 GOSUB '210(B0$,B9$,B4$) : IF R1$<>HEX(00)THEN 1010 : GOSUB '211(B0$,B9$,B4$,HEX(FF)) : IF R1$<>HEX(00)THEN 1020 : A1=V3 : GOSUB '222(A1,1,1,4,2) : IF R1$=HEX(01)THEN 1060 : IF R1$<>HEX(00)THEN 1070 : GOSUB '223(A1,1,4) : IF R1$<>HEX(00)THEN 1080 : A5$()="609EnewwRECMGR" : LOAD T<2>A5$() 1000 % This is line 1000 - do not renumber lines 1000-1100 1010 IF R1$<>HEX(01)THEN 1015 : B2$="Volume full, unable to create document" : GOTO 1035 1015 B2$="Error in create new document" : GOTO 1030 1020 B2$="Error in open document" 1030 IF R1$>HEX(29)THEN CONVERT VAL(R1$)TO I$,(##) : ELSE HEXUNPACKR1$TO I$ : B2$=B2$&" - error = "&I$ 1035 IF Y5$=" "THEN B2$=B2$&" - please Cancel" : IF Y5$<>" "THEN 1049 1040 PRINT AT(23,0,80);HEX(07);B5$(2);B2$;B5$(1); : KEYIN S2$,,1050 : GOTO 1040 1049 S2$=HEX(F0) 1050 IF POS(HEX(F050)=S2$)=0THEN 1040 : IF R1$<>HEX(01)THEN GOSUB '31 : GOSUB '214(A1) : IF R1$<>HEX(00)THEN 1090 : A1=-1 : GOSUB '31 1060 B2$="Volume full" : GOTO 1035 1070 B2$="Error saving space test records" : GOTO 1030 1080 B2$="Error deleting space test records" : GOTO 1030 1090 B2$="Error deleting document" : GOTO 1030 3000 DEFFN'31 : A5=0 : A5$()="609CloseJCATSMAL" : A5$=R3$() : R3$()=STR(R3$(),10) : IF A1>-1OR A2>-1THEN LOAD T<2>A5$() : COM CLEAR C : LOAD TA5$