image of READY prompt

Wang2200.org

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

# Sector sector 965, program filename = 'BDIAG13 '
0020 PRINT AT(13,00);"VER............ <-- TESTING",
0080 S=SPACE
0090 DIM A$(256)1,V$(256)1
0100 FOR I=1TO 256
   : A$(I)=BIN(I-1)
   : NEXT I
   : V$()=ALL(00)
0110 STR(V$(),49,10)=ALL(01)
   : FOR I=1TO 256
   : IF VERA$(I),"#")<>VAL(V$(I))THEN 8990
   : NEXT I
0120 STR(V$(),66,6)=ALL(01)
   : FOR I=1TO 256
   : IF VERA$(I),"H")<>VAL(V$(I))THEN 8990
   : NEXT I
0130 STR(V$(),66,26),STR(V$(),98,26)=ALL(01)
   : FOR I=1TO 256
   : IF VERA$(I),"N")<>VAL(V$(I))THEN 8990
   : NEXT I
0140 STR(V$(),49,10)=ALL(00)
   : FOR I=1TO 256
   : IF VERA$(I),"A")<>VAL(V$(I))THEN 8990
   : NEXT I
0150 V$()=ALL(01)
   : FOR I=1TO 256
   : IF VERA$(I),"X")<>VAL(V$(I))THEN 8990
   : NEXT I
0160 V$()=ALL(00)
   : V$(33),V$(44),V$(46)=HEX(01)
   : FOR I=1TO 256
   : IF VERA$(I),"+")<>VAL(V$(I))THEN 8990
   : NEXT I
0170 V$()=ALL(00)
   : V$(65)=HEX(01)
   : FOR I=1TO 256
   : IF VERA$(I),"@")<>VAL(V$(I))THEN 8990
   : NEXT I
0200 READ N
   : FOR I=1TO N
   : READ M,F$
0210 FOR J=1TO M
   : READ A$,X
   : IF VERA$,STR(F$,,LEN(F$)))<>XTHEN 8990
   : NEXT J,I
0220 DATA 3
0230 DATA 7,"AAAAA","ABCDE",5,"Z",1,"@ABCD",0,"ABCDEF",5,"abcdef",5,"abC.E",3,
     " AB",0
0240 DATA 7,"A#NHPX+.A#NHPX+$","Z",1,"z",1,"12",0,"M9876  .m1BFA%-$",16,"A1234
     5 ,B",7,"Z1z:33",3,"ABC",1
0250 DATA 3,"AN#XP","ABCDE",2,"AB12345",5,"AB3",5
0300 IF VER"ABCDE","AAA")<>3OR VER"12345","######")<>5OR VER"!@$%^&*(),#","!@$
     %^&*(),#")<>10THEN 8990
8980 I=SPACE
   : IF I=STHEN 9000
8990 E(13)=E(13)+1
9000 PRINT AT(13,16,16);
   : IF E(13)=0THEN PRINT "OK"
   : ELSE PRINT E(13);"ERRORS"
9010 LOAD DC T"BDIAG14 "