Listing of file='LPPOSSEL' on disk='vmedia/701-2721C.wvd.zip'
# Sector 449, program filename = 'LPPOSSEL' 0100 REM % LIST PROCESSING POST SELECTION MODULE 0140 GOSUB '242(1) 0160 %REM UPDATE POSITIONS IN CONTROL TABLE 0170 J=1 : FOR I=1TO G5STEP 1 : IF STR(G3$(I),9,1)="P"OR STR(G3$(I),9,1)="G"THEN GOTO 210 : STR(G3$(I),10,2)=BIN(J,2) : J=J+VAL(STR(G3$(I),12,2),2)+2 0210 NEXT I : COM CLEAR G7$() : LOAD T"PKEXST" 2718 DEFFN'242(C1) : IF STR(B0$(C1),16,1)="I"THEN 2725 : IF STR(B0$(C1),16,1)="O"THEN 2727 : X1=VAL(STR(B0$(C1),19,2),2) : DATA SAVE BA T(X1)B2$() : ERRORGOTO 2750 2723 S1=0 : RETURN 2725 S1=0 : RETURN 2727 X1=VAL(STR(B0$(C1),19,2),2) : Y1=VAL(STR(B0$(C1),21,2),2) : IF Y1>255THEN 2734 : STR(B2$(),Y1,2)=BIN(0,2) : DATA SAVE BA T(X1)B2$() : ERRORGOTO 2750 2732 S1=0 : RETURN 2734 IF Y1>256THEN 2736 : STR(B2$(),256,1)=BIN(0) 2736 DATA SAVE BA T(X1)B2$() : ERRORGOTO 2750 2737 X1=X1+1 : IF X1<=VAL(STR(B0$(C1),14,2),2)THEN 2741 : S1=9 : RETURN 2741 B2$()=ALL(FF) : STR(B2$(),1,2)=BIN(0,2) : DATA SAVE BA T(X1)B2$() : ERRORGOTO 2750 2744 S1=0 : RETURN 2750 PRINT "Disk Hardware Error";ERR;"Has Occurred in LPPOSSEL" : STOP 9000 DEFFN'0"SCRATCH T";HEX(22);"LPPOSSEL";HEX(22); 9100 DEFFN'1"SAVE T ()";HEX(22);"LPPOSSEL";HEX(22);