Listing of file='PKEXST' on disk='vmedia/701-2720C.wvd.zip'
# Sector 188, program filename = 'PKEXST'
1000 REM % THIS MODULE INITIALIZES ARRAY SIZES
1020 COM G3,L3,G6,L6,H7$7
: COM F1$(16)2,F7
: F7=16
: 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
: LOAD T"PKEX0"
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 0000 ,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 "PKEXST":SAVE T ()"PKEXST"