Listing of file='LPID2SUB' on disk='vmedia/701-2721C.wvd.zip'
# Sector 266, program filename = 'LPID2SUB' 4000 REM % LP IDEAS2 DATA ACCCESS ROUTINES 4100 DIM R6$(1008)1 4130 DEFFN'167(L0$(1),X) : IF R6$()<>" "THEN GOTO 4173 : R1=1 : GOSUB '247(L0$(1)," ","FP"," ","FE") 4160 IF N4(1)<>1THEN GOTO 4300 : R1=2 : GOSUB '247(L0$(1)," ","NP"," ","FE") 4167 IF N4(1)<>1THEN C7=0 : GOTO 90 4173 K8$()=R6$() : RETURN 4180 DEFFN'71 : IF R6$()<>" "THEN GOTO 4222 : R1=3 : GOSUB '247(L0$(1)," ","NP"," ","FE") 4210 IF N4(1)<>1THEN C7=0 : RETURN 4222 C7=0 : RETURN 4230 GOTO 6000 4300 L0$=BIN(14) : STR(L0$,2)=L0$(1) : LOAD T"LPERROR" 6000 ON R1GOTO 4160,4167,4210 9000 DEFFN'0"SCRATCH T ";HEX(22);"LPID2SUB";HEX(22); 9100 DEFFN'1"SAVE T () ";HEX(22);"LPID2SUB";HEX(22);