image of READY prompt

Wang2200.org

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

# Sector 715, program filename = 'DADIAG13'
0020 PRINT AT(P1,00);"1BY1........... <-- TESTING",
0030 X=SPACE
0070 DIM A1$6,B$15,M$15,B9$15,C$(4)64,Z3$3,B$(4)15,C$19,Z$1
   : INIT(00)Z3$
0080 RESTORE
   : Z$=HEX(00)
0090 Z$=ADDHEX(01)
   : PRINT AT(P1,7);HEXOF(Z$);AT(P1,16);
   : IF Q>0THEN 100
   : READ Q$
   : IF Q$<>"END"THEN 110
0100 Q=Q+1
   : ON QGOSUB 8100,8200,8300,8400,8500,8600,8700,8800
0110 C$=Q$
0120 B$=ALL(FF)
   : $GIO (1B111B211B311B411B511B611B711B811B911BA11BB11BC11BD11BE11BF1,B$)C$
   : IF Q$<>C$THEN E=1
   : STR(B$,9,2)=SUBCHEX(0006)
   : IF STR(C$,,15)<>B$THEN E=1
0130 C$=Q$
   : M$=ALL(FF)
   : STR(M$,8,3)=ALL(00)
0140 FOR I=1TO 15
   : B$=ALL(FF)
   : $GIO(1B111B211B311B411B511B611B711B811B911BA11BB11BC11BD11BE11BF1,B$)STR(
     C$,,I)
   : IF Q$<>C$THEN E=1
   : IF I>9THEN STR(B$,9,2)=SUBCBIN(I-9)
   : ELSE STR(B$,9,2)=SUBCBIN(I)
   : IF STR(C$,,I)<>STR(B$,,I)THEN E=1
   : IF I<15THEN IF STR(B$,I+1)<>STR(M$,I+1)THEN E=1
   : NEXT I
0160 C$=Q$
0170 FOR I=0TO 255
   : B$=BIN(I)&ALL(00)
   : $GIO (HEX(1B21D00619341C12E000EFFF03000400),B$)C$
   : IF Q$<>C$THEN E=1
   : IF VAL(STR(B$,3,2),2)<>POS(C$=B$)THEN E=1
   : NEXT I
6000 GOTO 90
7000 DATA HEX(A39D57230987F5AB2098472378E400987233),HEX(120C378123A90149845B98
     7456F28176371893),HEX(0C23875489B02598175739092A85763783)
7010 DATA "120983FJKAL;SDFJJDSKFL;","ASLDKJFASDJ","10239487UDFJFKJFSDLDF","ASD
     FJF821093RIKJFDVNMC.","120-9Q8JFSDK","()^*-+/#"
7990 DATA "END"
8100 Q$=" "
   : RETURN
8200 Q$=ALL(00)
   : RETURN
8300 Q$=ALL(5A)
   : RETURN
8400 Q$=HEX(000102030405060708090A0B0C0D0E0F)
   : RETURN
8500 FOR I=1TO 15
   : STR(Q$,I)=BIN(256*RND(1))
   : NEXT I
   : RETURN
8600 FOR I=1TO 15
   : STR(Q$,I)=BIN(256*RND(1))
   : NEXT I
   : RETURN
8700 FOR I=1TO 15
   : STR(Q$,I)=BIN(256*RND(1))
   : NEXT I
   : RETURN
8800 RETURN CLEAR
9000 Z=SPACE
   : IF X<>ZTHEN E=1
9010 IF E<>0THEN E(P1)=E(P1)+1
9015 PRINT AT(P1,6);"........";
9020 PRINT AT(P1,16,16);
   : IF E(P1)=0THEN PRINT "OK"
   : ELSE PRINT E(P1);"ERRORS"
9030 P1=P1+1
   : IF P1>P9THEN P1=0
   : CONVERT P1TO STR(P$,7,2),(##)
   : LOAD DC TP$