Listing of file='LPINTER2' on disk='vmedia/701-2721C.wvd.zip'
# Sector 344, program filename = 'LPINTER2'
0100 REM % IDEAS - WPFM INTERFACE MODULE TWO ***LPINTER2***
0140 COM L0(5),L3,L4,L5,L6,L7
: COM L0$(7)20,L9$(4)3
: COM V2,S2
: DIM B0$(3)23,B1$(1008)1,B2$(3)100,B9(5),D4$(64,2)8
: DIM V0$(408)V2,V1$(3)82,B$(408)V2,I,J,S,F9$(100)1,H$5,P$(123)2,A6$(4)25,A
7$(13)6,A0(5),V4$1
: J=2
: Y4=0
: Y5=0
: PRINT HEX(01)
: GOSUB '131(1,L0$(7),"I")
: B$()=ALL(80)
: GOSUB '40
0240 FOR I9=1TO L0(2)STEP 1
: GOSUB '133(1,S1)
: IF Y4*246+L0(1)+J>4129THEN GOSUB '41
: FOR I=1TO G5STEP 1
: IF STR(G3$(I),9,1)="P"OR STR(G3$(I),9,1)="G"THEN GOTO 500
: GOSUB '56
: STR(B$(),J,S)=STR(B1$(),VAL(STR(G3$(I),10,2),2),S)
: IF Y5<>0THEN GOTO 300
: Y5=Y5+S+2
: GOTO 310
0300 Y5=Y5+S+2
: IF Y5<80THEN GOTO 310
: Y5=S+2
: STR(B$(),J-2,2)=HEX(8382)
0310 STR(B$(),J+S,2)=HEX(8080)
: J=J+S+2
: IF J<=246*V2THEN GOTO 500
: Y4=Y4+1
: V0$()=STR(B$(),1,246)
: I8=Y5
: I2=I+1
0367 IF STR(G3$(I2),9,1)<>"P"AND STR(G3$(I2),9,1)<>"G"THEN GOTO 370
: I2=I2+1
: GOTO 367
0370 IF J=247OR J=248THEN I8=Y5+VAL(STR(G3$(I2),12,2),2)+2
: IF I8<80THEN GOTO 405
: IF J=248THEN GOTO 395
: STR(V0$(),245,2)=HEX(8382)
: GOTO 400
0395 STR(V0$(),246,1)=HEX(83)
: STR(B$(),247,1)=HEX(82)
0400 Y5=0
0405 $TRAN(V0$(),HEX(8020))R
: GOSUB '225(L8(2),1,1,2)
: IF R1$<>HEX(00)THEN I=G5
: B$()=STR(B$(),247)
: J=J-246
0500 NEXT I
: IF R1$<>HEX(00)THEN GOTO 720
: STR(B$(),J,2)=HEX(8083)
: Y5=0
: J=J+2
: NEXT I9
: V0$()=STR(B$(),1,J-1)&ALL(20)
: $TRAN(STR(V0$(),1,J-1),HEX(8020))R
: GOSUB '132(1)
: GOSUB '225(L8(2),1,1,2)
: IF R1$<>HEX(00)THEN GOTO 720
: GOSUB '220(L8(2),1,1,1,1)
: P$()=V1$()
: IF R1$<>HEX(00)THEN GOTO 720
: FOR K=1TO X6-1
: MAT SEARCHP$(),=HEX(FFFF)TO X4$STEP 2
: X4=VAL(X4$,2)
0620 IF X6=1THEN X=Y4+0
: ELSE X=17
: IF X6>1THEN P$(INT(X4/2)+1)=BIN(VAL(P$(INT(X4/2)),2)+X,2)
: NEXT K
: V1$()=P$()
: GOSUB '221(L8(2),1,1,1,1)
: IF R1$<>HEX(00)THEN GOTO 720
: GOSUB '220(L8(2),1,2,1,1)
: IF R1$<>HEX(00)THEN GOTO 720
0680 $UNPACK(F=HEX(A019A0066006))V1$()TO A6$(),A7$(),A0()
: A0(3)=8+X6-1
: $PACK(F=HEX(A019A0066006))V1$()FROMA6$(),A7$(),A0()
: V4$="A"
: GOSUB '221(L8(2),1,2,1,1)
: IF R1$<>HEX(00)THEN GOTO 720
: A0$()="LPINTER3"&"JCAT"
: LOAD T<2>A0$()
0720 IF R1$=HEX(01)THEN GOTO 820
: L0$=BIN(9)
: STR(L0$,2)="Created"
: LOAD T"LPERROR"
0820 L0$=BIN(11)
: STR(L0$,2)=B9$
: LOAD T"LPERROR"
0850 DEFFN'40
: X7=0
: X6=X6+1
: STR(B$(),1,1)=HEX(8F)
: FOR I8=1TO G5STEP 1
: IF STR(G3$(I8),9,1)="P"OR STR(G3$(I8),9,1)="G"THEN GOTO 930
: S=VAL(STR(G3$(I8),12,2),2)
: FOR I3=1TO S
: IF J+I3>80THEN STR(B$(),J+1,(80-J))=ALL(HEX(80))
: IF J+I3>246THEN GOTO 910
: STR(B$(),J+I3,1)=HEX(80)
: NEXT I3
0910 IF J+I3+2<80THEN GOTO 920
: I8=G5
: STR(B$(),1,80)=ALL(HEX(80))
: STR(B$(),1,2)=HEX(8F31)
: STR(B$(),5,1)=HEX(82)
: STR(B$(),80,1)=HEX(83)
: Y3=1
: J=81
: GOTO 930
0920 J=J+I3
: J=J+1
: STR(B$(),J,2)=HEX(8082)
: J=J+1
0930 NEXT I8
: IF Y3=1THEN GOTO 960
: J=J+1
: STR(B$(),J,1)=HEX(83)
: J=J+1
: STR(B$(),2,1)=HEX(31)
0960 RETURN
0970 DEFFN'41
: V0$()=STR(B$(),1,J-2)&HEX(808F)&ALL(20)
: $TRAN(STR(V0$(),1,J-2),HEX(8020))R
: GOSUB '225(L8(2),1,1,2)
: IF R1$<>HEX(00)THEN GOTO 720
: B$()=" "
: J=2
: Y5=0
: Y4=0
: GOSUB '40
: RETURN
9000 DEFFN'0"SCRATCH T ";HEX(22);"LPINTER2";HEX(22)
9100 DEFFN'1"SAVE T () ";HEX(22);"LPINTER2";HEX(22)