Listing of file='STRTTRAN' on disk='vmedia/mvp-diag-3.5.wvd.zip'
# Sector 102, program filename = 'STRTTRAN' 0040 COM P : P=P+1 0050 COM P1 0060 COM P9 0070 COM P$8 0080 COM E(50) 0090 I=1 : J=0 0100 IF E(I)<>0THEN J=J+1 : I=I+1 : IF I<=14THEN 100 0110 IF J=0THEN PRINT HEX(03) 0120 P$="DATRAN01" : P9=4 0130 PRINT AT(0,10);"*** TESTING BASIC-2 / $TRAN ***";AT(0,50);"PASS#";P : PRINT 0140 P1=1 : CONVERT P1TO STR(P$,7,2),(##) : LOAD DC TP$