Listing of file='SORTSTRT' on disk='vmedia/mvp-diag-3.5.wvd.zip'
# Sector 600, program filename = 'SORTSTRT' 0030 COM P : P=P+1 0040 COM E(50) 0052 I=1 : J=0 0055 IF E(I)<>0THEN J=J+1 : I=I+1 : IF I<=6THEN 55 0057 IF J=0THEN PRINT HEX(03) 0060 PRINT AT(0,10);"*** TESTING BASIC-2 SORT***";AT(0,50);"PASS#";P : PRINT 0070 LOAD DC T"BSORT1"