Listing of file='STARTGIO' on disk='vmedia/mvp-diag-3.5.wvd.zip'
# Sector 285, program filename = 'STARTGIO' 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 0095 SELECT #1 10A 0100 IF E(I)<>0THEN J=J+1 : I=I+1 : IF I<=14THEN 100 0110 IF J=0THEN PRINT HEX(03) 0120 P$="DADIAG01" : P9=14 0130 PRINT AT(0,10);"*** TESTING BASIC-2 / $GIO ***";AT(0,50);"PASS#";P : PRINT 0140 P1=1 : CONVERT P1TO STR(P$,7,2),(##) : LOAD DC TP$