image of READY prompt

Wang2200.org

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

# Sector 573, program filename = 'LPSCREN1'
0010 COM K8$(480)1
0170 DATA 4,0,0,"2200 DATAMERGE - Version 2.2"
   : DATA 4,6,10,"Please Select the Mode of Operation"
   : DATA 1,08,21,1,"Create DATAMERGE Definition for an IDEAS-2 File"
   : DATA "Create DATAMERGE Definition for an IDEAS-1 File"
   : DATA "Access Previously Defined DATAMERGE Definitions"
0220 DATA "DATAMERGE General Maintenance Utility Functions"
   : DATA "DATAMERGE Definition File Supervisory Functions"
   : DATA "\DE"
   : DATA 4,17,10,"DATAMERGE User ID"
   : DATA 4,17,38,"DATAMERGE Definition Address"
   : DATA 4,21,50,"Press EXEC/RUN    to Continue"
0280 DATA 4,22,50,"      CANCEL/EDIT to Terminate"
   : DATA 2,17,29,3," "
   : DATA 2,17,68,3," "
   : DATA 0
   : DIM S5(1),S0(1),T5(1),S3(1)
   : DIM T1$(5)48,S1$(5)2
   : DIM T1(6),S6(6),S1(6),T2$(6)39
   : DIM T2(3),S7(3),S2(3),S4(3),T5$(3)20
   : DIM S2$(26)2,S1$3
   : DIM S2$1,T1$80,T2$2,F$80
   : PRINT HEX(03)
   : O=1
0450 GOSUB '61
   : T5$(1)=L9$(3)
   : T5$(2)=L9$(4)
   : T5(1)=O
   : PRINT AT(1,0);BOX(0,80);AT(20,0);BOX(0,80)
0490 GOSUB '62
   : IF T5<=0THEN GOTO 1100
   : IF T5>1THEN GOTO 490
   : IF T5$(1)<>" "THEN GOTO 510
   : F$="Invalid User ID"
   : GOTO 1180
0510 L9$(3)=T5$(1)
   : L9$(4)=T5$(2)
   : O=T5(1)
   : IF VER(T5$(2),"HHH")=3THEN GOTO 580
   : F$="Illegal Definition Address"
   : GOTO 1180
0580 SELECT #10<T5$(2)>
   : ERRORF$="Invalid Definition Address"
   : GOTO 1180
0600 LIMITS T#10,"DD.DEF",I1,I2,I3,I4
   : ERRORI4=ERR
0605 IF I4=2THEN GOTO 610
   : F$="Definition File Does Not Exist"
   : GOTO 1180
0610 LIMITS T#10,"DD.REL",I1,I2,I3,I4
   : ERRORI4=ERR
0615 IF I4=2THEN GOTO 630
   : F$="Definition File Does Not Exist"
   : GOTO 1180
0630 STR(K9$,1,6)=STR(T5$(1),1,3)&T5$(2)
   : K6$()="2 28"
   : GOSUB '150(K6$())
   : IF M=0THEN GOTO 740
   : IF M=77THEN F$="DATAMERGE User ID Is Already In Use"
   : ELSE IF M=70THEN F$="Definition File Is Being Sorted"
   : ELSE GOSUB '74(0,"LPSCREN1","Opening")
   : GOTO 1180
0740 IF T5(1)=1THEN GOTO 750
   : GOSUB '156(K6$())
   : IF M<>0THEN GOSUB '74(0,"LPSCREN1","Closing")
0750 ON T5(1)GOTO 830,770,910,1020,1060
0770 L0(5)=1
   : PRINT HEX(03)
   : COM CLEAR K8$()
   : A0$()="LPIDEAS1"&"Prime 62"&"LPCTLID1"
   : LOAD T<3>A0$()
0830 L0(5)=2
   : PRINT HEX(03)
   : A0$()="LPIDEAS2"&"Prime 62"&"LPREADFD"
   : LOAD T"LPDDREAD"
0910 A0$()="LPSAVDEF"&"DDA.VARC"
   : COM CLEAR L3$()
   : LOAD T<2>A0$()
1020 COM CLEAR K8$()
   : A0$()="LPMAINT "&"LPPRTABS"&"Prime 62"
   : LOAD T<3>A0$()
1060 COM CLEAR L0()
   : LOAD T"LPSUPER"
1100 COM CLEAR
   : LOAD TA5$
1130 RESTORE LINE170
   : O=1
   : PRINT AT(17,0,80)
   : GOTO 450
1180 PRINT AT(23,0);L1$;F$;HEX(0F);
   : GOTO 490
2000 DEFFN'74(M4,L0$(3),L0$(4))
   : LOAD T"DDA.DAT"7000,7999BEG 2030
2030 GOSUB '140(1,"160")
   : LOAD T<R9>R9$()7050,7999BEG 2050
2050 GOSUB '160(M4,L0$(3),L0$(4))
   : COM CLEAR A0$()
   : LOAD TR3$(2)
9000 DEFFN'0"SCRATCH T ";HEX(22);"LPSCREN1";HEX(22)
9100 DEFFN'1"SAVE T()  ";HEX(22);"LPSCREN1";HEX(22)