Listing of file='PKLPST' on disk='vmedia/701-2720C.wvd.zip'
# Sector 220, program filename = 'PKLPST'
1000 REM % THIS IS CHAINED TO FROM MODULES CONTAINING THE COMMON DATA STRUCTUR
E
1015 COM G3$(50)43,L3$(128)13
: COM G3,L3,G6,L6,H7$7,F6,S0
: COM F1$(16)2,F7
: F7=16
: PRINT AT(1,0,);
: DIM A1$1
: FOR I=1TO F7
: READ I1,I2
: F1$(I)=BIN(I1)&BIN(I2)
: NEXT I
: G6=43
: G3=50
: L6=13
: L3=128
1153 DATA 1,8
: DATA 9,1
: DATA 10,2
: DATA 12,2
: DATA 14,6
: DATA 20,1
: DATA 21,1
: DATA 22,3
: DATA 25,1
: DATA 26,8
: DATA 34,1
: DATA 35,8
: DATA 43,1
: DATA 1,1
: DATA 2,2
: DATA 4,2
: S0=INT(G3*1.24)
: F6=FNL(1)+6
: DIM G3$43
: IF G5<=1THEN 2000
: Z=0
: FOR I=1TO G5
: FOR J=1TO G5-1
: IF STR(G3$(J),FNS(6),2)<STR(G3$(J+1),FNS(6),2)THEN 1197
: G3$=G3$(J)
: G3$(J)=G3$(J+1)
: G3$(J+1)=G3$
: Z=1
1197 NEXT J
: IF Z=0THEN 2000
: NEXT I
2000 LOAD T"PKFIELDS"
9701 DEFFNS(Q)=VAL(STR(F1$(Q),1,1))
9702 DEFFNL(Q)=VAL(STR(F1$(Q),2,1))
9900 DEFFN'0"PRINT HEX(03);: LISTSD 1190 ,9699";HEX(0D)
9990 DEFFN'12"PRINT HEX(03);:LISTSD ,9699";HEX(0D)
9994 DEFFN'27
: PRINT HEX(03);AT(22,0);
9995 DEFFN'10"PRINT HEX(03);:LISTD1150:LISTS 1151,1169";HEX(0D)
9999 % SCRATCH T "PKLPST":SAVE T ()"PKLPST"