image of READY prompt

Wang2200.org

Listing of file='SORTSTRT' on disk='vmedia/mvp-diag-3.5.wvd.zip'

# Sector 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"