image of READY prompt

Wang2200.org

Listing of file='STRTTRAN' on disk='vmedia/mvp-diag-2.6.2.wvd.zip'

# Sector 2664, 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$