image of READY prompt

Wang2200.org

Listing of file='LPERROR' on disk='vmedia/701-2721C.wvd.zip'

# Sector 198, program filename = 'LPERROR'
0100 REM %  LP FATAL ERROR HANDLER
0130 COM L0$21,L1$6,A5$8
   : DIM X$(2)80,I,B$6,X1$1
   : L1$=HEX(07020402000E)
   : R1=VAL(STR(L0$,1,1))
   : IF R7$<>" "THEN GOTO 1090
   : PRINT HEX(03)
   : PRINT AT(0,27);HEX(060E);"DATAMERGE Error Processing";HEX(0F);
   : PRINT AT(1,0);BOX(0,80);AT(20,0);BOX(0,80);
   : PRINT HEX(0F0202000F);
   : B$=HEX(020404000E)
   : I=POS(STR(L0$,2)=20)-1
   : IF I<1THEN I=20
0210 ON R1GOTO 220,250,280,310,340,400,450,500,550,600,650,700,720,750,780,800
0220 X$(1)="The Number of Field Names In "&B$&STR(L0$,2,I)&HEX(0F)&" Exceeds t
     he Allowed Maximum"
   : X$(2)="Please Correct the Document or Choose the Correct File"
   : GOTO 1000
0250 X$(1)="The Field Name "&B$&STR(L0$,2,I)&HEX(0F)&" Has Too Many Characters
      or Is"
   : X$(2)="Missing a Terminating NOTE Character - Please Correct the Document
     "
   : GOTO 1000
0280 X$(1)="The Document "&B$&STR(L0$,2,I)&HEX(0F)&" Is Missing a Terminating
     Note Character"
   : X$(2)="Please Correct the Document"
   : GOTO 1000
0310 X$(1)="Unable to Read Document "&B$&STR(L0$,2,I)&HEX(0F)
   : X$(2)="Contact Supervisor Immediately"
   : GOTO 1000
0340 X$(1)="Unable to Close Document "&B$&STR(L0$,2,I)&HEX(0F)
   : X$(2)="Contact Supervisor Immediately"
   : GOTO 1000
0400 X$(1)="Word Processing Library Map Not On Selected Disk"&B$&HEX(0F)
   : X$(2)="Software Was Improperly Installed - Check User Manual"
   : GOTO 1000
0450 X$(1)="DATAMERGE Translate Table Not Accessible"&B$&HEX(0F)
   : X$(2)="Software Was Improperly Installed - Check User Manual"
   : GOTO 1000
0500 X$(1)="There Are No Field Names in Document "&B$&STR(L0$,2,I)&HEX(0F)
   : X$(2)="Please Select Another Document"
   : GOTO 1000
0550 X$(1)="The Document for the Selected Records Cannot Be "&B$&STR(L0$,2,I)&
     HEX(0F)
   : X$(2)="Contact Supervisor Immediately"
   : GOTO 1000
0600 X$(1)="There Is a Missing Field Name in Document "&B$&STR(L0$,2,I)&HEX(0F
     )
   : X$(2)="Please Correct the Document"
   : GOTO 1000
0650 X$(1)="The Word Processing Volume "&B$&STR(L0$,2,I)&HEX(0F)&" Is Full"
   : X$(2)="Archive Documents or Recreate Volume to Obtain Space"
   : GOTO 1000
0700 X$(1)="The Document "&B$&STR(L0$,2,I)&HEX(0F)&" Cannot Be Opened for Prin
     ting"
   : X$(2)="Check For Other Users Accessing The Same Document"
   : GOTO 1000
0720 X$(1)="The SUPER DOCUMENT for the Selected Records Cannot Be "&B$&STR(L0$
     ,2,I)&HEX(0F)
   : X$(2)="Contact Supervisor Immediately"
   : GOTO 1000
0750 X$(1)="The File "&B$&STR(L0$,2,I)&HEX(0F)&" Cannot Be Accessed"
   : X$(2)="Check the File Definition or the Control File Address"
   : GOTO 1000
0780 X$(1)="The Disk Containing DATAMERGE Software Is Full"
   : X$(2)="Please Remove All Unnecessary Files"
   : GOTO 1000
0800 X$(1)="The SUPERDOCUMENT Contains More Than 116 Pages"
   : X$(2)="Please Respecify Record Selection Criteria"
   : GOTO 1000
1000 PRINT AT(11,(80-LEN(X$(1)))/2+3);X$(1);
   : PRINT AT(12,(80-LEN(X$(2)))/2);X$(2);
   : PRINT HEX(07)
   : PRINT AT(21,50);"Press EXEC/RUN    to Restart";
   : PRINT AT(22,50);"      CANCEL/EDIT to Terminate";
1050 KEYIN X1$
   : PRINT AT(23,0,);
   : IF X1$=HEX(82)THEN GOTO 1090
   : ELSE IF X1$=HEX(F0)THEN GOTO 1120
   : ELSE GOTO 1150
1090 COM CLEAR A0$()
   : LOAD TR3$(2)
1120 COM CLEAR
   : LOAD TA5$
1150 PRINT AT(23,0);L1$;"Invalid Key";HEX(0F);
   : GOTO 1050
9000 DEFFN'0"SCRATCH T ";HEX(22);"LPERROR";HEX(22)
9100 DEFFN'1"SAVE T () ";HEX(22);"LPERROR";HEX(22)