image of READY prompt

Wang2200.org

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$