Listing of file='LPPRESEL' on disk='vmedia/701-2721C.wvd.zip'
# Sector 459, program filename = 'LPPRESEL' 0100 REM % LPPRESEL 0155 COM B0$(3)23,B1$(1008)1,B2$(3)100,B9(5) : DIM R6$(1008)1 : L0(1)=0 : FOR I=1TO G5 : IF STR(G3$(I),9,1)="P"OR STR(G3$(I),9,1)="G"THEN GOTO 510 : S=VAL(STR(G3$(I),12,2),2) : L0(1)=L0(1)+S+2 0510 NEXT I : L0(1)=L0(1)+2 : GOSUB '99 : GOSUB '241(1,L0$(7),"O") : GOSUB '70 : GOTO 580 0580 IF L0(5)=1THEN GOTO 610 : A0$()="SLE.EXEC"&"DMSE.WRS"&"LPID2SUB"&"DFA.UCAM" : IF R6$()=" "THEN LOAD T<4>A0$() : ELSE LOAD T<3>A0$() 0610 A0$()="SLE.EXEC"&"DMSE.WRS"&"LPIDSUBS" : LOAD T<3>A0$() 0620 DEFFN'99 : CONVERT #TERMTO I1$,(##) : L0$(7)="INTFIL"&I1$ : LIMITS TL0$(7),I1,I2,I3,I4 : IF I4=2THEN RETURN : ELSE IF I4=-2THEN GOTO 700 : DATA SAVE DC OPEN T(500)L0$(7) : ERRORI1=ERR : GOTO 750 0680 RETURN 0700 DATA SAVE DC OPEN T(L0$(7))L0$(7) : ERRORI1=ERR : GOTO 750 0710 RETURN 0750 IF I1=86THEN GOTO 760 : PRINT AT(23,0);"Disk Hardware Error";I1;"Has Occurred in LPPRESEL" : STOP 0760 L0$=BIN(15) : LOAD T"LPERROR" 2703 DEFFN'241(C1,STR(B0$(C1),1,8),STR(B0$(C1),16,1)) : IF STR(B0$(C1),16,1)<>"O"THEN 2706 : LIMITS TSTR(B0$(C1),1,8),B9(1),B9(2),B9(3) : ERRORDATA SAVE DC OPEN T(150)STR(B0$(C1),1,8) 2706 LIMITS TSTR(B0$(C1),1,8),B9(1),B9(2),B9(3) : ERRORSTOP "OPEN file not found"# 2707 STR(B0$(C1),12,2)=BIN(B9(1)+1,2) : STR(B0$(C1),14,2)=BIN(B9(2)-1,2) : STR(B0$(C1),19,2)=STR(B0$(C1),12,2) : STR(B0$(C1),21,2)=BIN(1,2) : IF STR(B0$(C1),16,1)="U"OR STR(B0$(C1),16,1)="I"THEN 2713 : RETURN 2713 DATA LOAD BA T(B9(1)+1)B2$() : ERRORGOTO 2716 2714 STR(B0$(C1),17,2)=STR(B2$(),1,2) : RETURN 2716 PRINT "Disk Hardware Error";ERR;"has occurred in LPPRESEL" : STOP 9000 DEFFN'0"SCRATCH T ";HEX(22);"LPPRESEL";HEX(22); 9100 DEFFN'1"SAVE T () ";HEX(22);"LPPRESEL";HEX(22);