Listing of file='PKNEWST' on disk='vmedia/701-2720C.wvd.zip'
# Sector 304, program filename = 'PKNEWST'
1000 REM % THIS IS CHAINED TO EITHER FROM PROCESS DEFINITION MODULE, OR FROM A
NY MODULE
1020 COM G3,L3,G6,L6,H7$7,K8$(490)1
: 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"PKNEWDF"
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 1168 ,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 - PKLPST"D:SELECT LIST 005(80
)
9999 % SCRATCH T "PKNEWST":SAVE T ()"PKNEWST"