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"