image of READY prompt

Wang2200.org

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

# Sector 2909, program filename = 'DADAIG14'
0020 PRINT AT(14,00);"1BY2........... <-- TESTING",
0030 X=SPACE
0070 DIM A1$6,B$15,M$15,B9$15,C$(4)64,Z3$3,B$(4)15,C$19,D$19
   : INIT(00)Z3$
0080 RESTORE
0090 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 M$,B$=Q$
   : STR(M$,8,3)=HEX(00000F)
0120 C$=ALL(FF)
   : $GIO(1B121B221B321B421B521B621B721B821B921BA21BB21BC21BD21BE21BF2,B$)C$
   : IF M$<>B$THEN E=1
   : STR(B$,10,1)=HEX(09)
   : IF STR(C$,,15)<>B$THEN E=1
0130 M$,B$=Q$
0140 FOR N=1TO 15
   : C$=ALL(FF)
   : STR(M$,8,3)=HEX(00)&BIN(N,2)
   : $GIO(1B121B221B321B421B521B621B721B821B921BA21BB21BC21BD21BE21BF2,B$)STR(
     C$,,N)
   : IF M$<>B$THEN E=1
   : STR(B$,10,1)=HEX(09)
   : IF STR(C$,,N)<>STR(B$,,N)THEN E=1
   : IF POS(STR(C$,N+1)<FF)>0THEN E=1
   : NEXT N
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
8820 D$=HEX(000102030405060708090A0B0C0D0E0F10111213)
   : FOR I=1TO 19
   : C$=ALL(FF)
   : B$=ALL(00)
   : $GIO(1B121910E000,B$)STR(C$,,I)
   : IF STR(C$,,I)<>STR(D$,,I)THEN E=1
   : IF VAL(STR(B$,1,1))<>ITHEN E=1
   : NEXT I
8830 D$=HEX(00020406080A0C0E10121416181A1C1E202224)
   : FOR J=1TO 19
   : FOR I=1TO 20-J
   : C$=ALL(FF)
   : B$=ALL(00)
   : $GIO(1B32015A1931E000,B$)STR(C$,J,I)
   : IF STR(C$,J,I)<>STR(D$,,I)THEN E=1
   : IF STR(B$,1,2)<>HEX(5A00)THEN E=1
   : IF VAL(STR(B$,3))<>I+ITHEN E=1
   : IF J+I<20THEN IF POS(STR(C$,J+I)<FF)>0THEN E=1
8840 IF J>1THEN IF POS(STR(C$,,J-1)<FF)>0THEN E=1
   : NEXT I,J
8850 D$=HEX(00FFFEFDFCFBFAF9F8F7F6F5F4F3F2F1F0EFEE)
   : FOR J=1TO 19
   : FOR I=1TO 20-J
   : C$=ALL(FF)
   : B$=ALL(00)
   : $GIO(1B32015A1933E000,B$)STR(C$,J,I)
   : IF STR(C$,J,I)<>STR(D$,,I)THEN E=1
   : IF STR(B$,1,2)<>HEX(5A00)THEN E=1
   : IF VAL(STR(B$,3))<>256-ITHEN E=1
   : IF J+I<20THEN IF POS(STR(C$,J+I)<FF)>0THEN E=1
8860 IF J>1THEN IF POS(STR(C$,,J-1)<FF)>0THEN E=1
   : NEXT I,J
8880 D$=HEX(00FEFCFAF8F6F4F2F0EEECEAE8E6E4E2E0DEDC)
   : FOR J=1TO 19
   : FOR I=1TO 20-J
   : C$=ALL(FF)
   : B$=ALL(00)
   : $GIO(1B32015A1932E000,B$)STR(C$,J,I)
   : IF STR(C$,J,I)<>STR(D$,,I)THEN E=1
   : IF STR(B$,1,2)<>HEX(5A00)THEN E=1
   : IF VAL(STR(B$,3))<>256-I-ITHEN E=1
   : IF J+I<20THEN IF POS(STR(C$,J+I)<FF)>0THEN E=1
8890 IF J>1THEN IF POS(STR(C$,,J-1)<FF)>0THEN E=1
   : NEXT I,J
9000 Z=SPACE
   : IF X<>ZTHEN E=1
9010 IF E<>0THEN E(14)=E(14)+1
9020 PRINT AT(14,16,16);
   : IF E(14)=0THEN PRINT "OK"
   : ELSE PRINT E(14);"ERRORS"
9030 LOAD T"DADIAG15"