Listing of file='COM' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 390, program filename = 'COM'
0010 REM ******* COM ******* RICHARD NICHOLS 12/27/75
0020 COM N5$(8)8,P8,P9,O0,O1,O2,O3,O4,O5,O8,O9,D9$(32)8,E9$(7)2,E(6),Z9(1),S8,
E1$
: DIM E1(6)
0030 IF H7$<>"OK"THEN 40
: GOTO 50
0040 S=1
0050 DATA LOAD DA T(1023,L)A$,B$,C$,D$,E$,Z9(1),S8,E1(),E1$
: E1(6)=E1(6)+S
: DATA SAVE DA T$(1023,L)A$,B$,C$,D$,E$,Z9(1),S8,E1(),E1$
0060 O8=1
0070 LOAD DC T"WCPD010A"
9000 DEFFN'15
: LOAD DC T"START"50