Listing of file='LPINTER3' on disk='vmedia/701-2721C.wvd.zip'
# Sector 357, program filename = 'LPINTER3'
0100 REM % IDEAS - WPFM INTERFACE MODULE THREE
0150 GOSUB '212(L8(2))
: IF R1$<>HEX(00)THEN GOTO 340
: COM CLEAR K9$
: GOSUB '32("LPOVER01")
: L0(3)=1
: LIMITS TL0$(7),L8(5),I2,I3
: ERRORI2=ERR
: GOTO 500
0255 DATA SAVE DA T(L8(5))L8(),L0()
: DATA SAVE DA T(L8(5)+1)L0$()
: DATA SAVE DA T(L8(5)+2)G3$(),R1,R2$,R4$,R7$,G6,L4,G5
: $PSTAT=" "
: LOAD T"609start"
0340 L0$=BIN(9)
: STR(L0$,2)="Closed"
: LOAD T"LPERROR"
0500 PRINT AT(21,0,);"DISK HARWARE ERROR";I2;
: STOP
9000 DEFFN'0"SCRATCH T ";HEX(22);"LPINTER3";HEX(22)
9100 DEFFN'1"SAVE T () ";HEX(22);"LPINTER3";HEX(22)
9230 DEFFN'32(N$)
: Y=FIX((LEN(N$)-1)/9)+1
: X=LEN(STR(R3$()))-Y*9
: MAT COPY -R3$()<1,X>TO -R3$()<Y*9+1,X>
: STR(R3$(),,Y*9)=N$
: RETURN
9290 % SCRATCH T "KGPUSH": SAVE T() "KGPUSH" 9000,9100