image of READY prompt

Wang2200.org

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$