Listing of file='PKDICST' on disk='vmedia/701-2720C.wvd.zip'
# Sector 114, program filename = 'PKDICST'
0016 COM G3$(G3)G6
0017 COM L3$(L3)L6
: COM G$(1848)1
: COM L3,L5,L6,G3,G5,G6
: COM G3,L3,G6,L6,H7$7,F6,S0,K8$(490)1
: COM F1$(16)2,F7
: F7=16
1050 % PRINT HEX(06);AT(0,0,80); AT(0,10);HEX(0E);"\D0\F2\EF\E3\E5\F3\F3 \C4\E
5\E6\E9\EE\E9\F4\E9\EF\EE - \D0\CB\CC\D0\D3\D4 " ;HEX(
0F);AT(16,0,); AT(18,0);BOX(0,80);
1060 % PRINT AT(16,10);HEX(0E); "Please press any key to continue";HEX(0F);: K
EYIN G$: PRINT AT(16,10,70);
1090 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.15)
: F6=FNL(1)+6
: LOAD T"PKDICT"
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 1195 ,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)
9997 % SELECT LIST 215(128):LIST"PETER KIBBLER - PKDICST"D:SELECT LIST 005(8
0)
9999 % SCRATCH T "PKDICST":SAVE T ()"PKDICST"