Listing of file='LPINIT' on disk='vmedia/701-2721C.wvd.zip'
# Sector 308, program filename = 'LPINIT'
0100 REM % LIST PROCESSING START-UP MODULE
0101 COM R3$(10)9
: COM A0$(4)62,A3$8,A5$8,B9$,R5$5,B4$6,B3,B3$5
: COM K9$124
: COM L0(5),L3,L4,L5,L6,L7,L8(5),L0$21,L0$(7)20,L1$6,L7$2,L8$1,L9$(4)3
: COM G3,G5,G6
: COM G3$(50)43
: COM R8$(40)1,R1$(3)1
: COM R1,R2$6,R4$3,R7$23
: COM R9$(19)8,R9$1,R9,I9,I9$24,I9(5),I9$(7)8,I8$3
: COM L3$(128)13
0185 COM G$(1848)1
: COM K8$(480)1
: DIM I$(24)8
: SELECT PRINT /005
: SELECT TAPE /005
: STR(K9$,7,1)=BIN(9)
: STR(K9$,8,1)=BIN(64)
: FOR I=9TO 57STEP 8
: STR(K9$,I,8)="@MENU "
: NEXT I
: L7$="NN"
: L1$=HEX(07020402000E)
: L3$(),G3$()=ALL(00)
: L0$(),G$()=ALL(20)
: L3=128
: G3=50
: L6=13
: G6=43
: L5=0
: G5=0
: L4=8
: L7=6
: L8(2)=0
: L8(4)=1
: L0(4)=0
: K4=0
0315 K6=1
: B3$,R5$=" "
: A5$="START"
: LIMITS T"609@ARCH",B3,I1,I2,I3
: IF I3<>2THEN GOTO 400
: LIMITS T"LP@XLATE",L8(1),I1,I2,I3
: IF I3<>2THEN GOTO 410
: DATA LOAD DA T(L8(1))L9$(1),L9$(2),I$()
: ERRORGOTO 410
0355 L9$(3)=I$(2*#TERM-1)
: L9$(4)=I$(2*#TERM)
: IF STR(K9$,1,6)=" "THEN GOTO 380
: L9$(3)=STR(K9$,1,3)
: L9$(4)=STR(K9$,4,3)
0380 IF R7$<>" "THEN GOTO 425
: R3$(1),R3$(2)="LPINIT"
: A0$()="LPSCREN1"&"Prime 62"
: LOAD T"LPDDOPEN"
0400 L0$=BIN(6)
: LOAD T"LPERROR"
0410 L0$=BIN(7)
: LOAD T"LPERROR"
0425 L0$(6)=R7$
: STR(K9$,1,6)=STR(R4$,1,3)&STR(R7$,21,3)
: LOAD T"DDA.DAT"7000,7050BEG 465
0465 GOSUB '140(3,"150151156")
: R9=R9+1
: A0$()="DDA.VARC"&R9$()
: LOAD T<R9>A0$()7000,7999BEG 505
0505 GOSUB '150("2 5 B 525657")
: IF M=0THEN GOTO 545
: R1=18
: LOAD TR3$(2)
0545 GOSUB '151("EQ","B",L0$(6)," "," "," "," ")
: IF M=0THEN 585
: R1=17
: LOAD TR3$(2)
0585 S=VAL(STR(K9$,7,1))
: L=VAL(STR(K9$,8,1))
: MAT COPY -K9$<S,L-24>TO -K9$<S+24,L-24>
: STR(K9$,S,24)="LPPROMPT"&STR(R3$(1),1,8)&"LPOVER05"
: GOSUB '156("ALL")
: IF M=0THEN 655
: R1=19
: LOAD TR3$(2)
0655 COM CLEAR L3$()
: A0$()="LPGETDEF"&"DDA.VARC"
: LOAD T<2>A0$()
9000 DEFFN'0"SCRATCH T ";HEX(22);"LPINIT ";HEX(22)
9100 DEFFN'1"SAVE T() ";HEX(22);"LPINIT ";HEX(22)