image of READY prompt

Wang2200.org

Listing of file='BDIAG17' on disk='vmedia/732-0050A.wvd.zip'

# Sector 358, program filename = 'BDIAG17'
0020 PRINT AT(02,32);"COM,COMCLEAR... <-- TESTING",
0030 COM K,K1,K2,K3,K4,K5,K6,K7,K8,K9,K0,A,J,S,I,X
0080 S=SPACE
0090 COM A$1,A1$2,B$5,C$,D$100,D1$124
   : COM A$(1)1,A1$(1,1)1,B$(1),C$(256)1,D$(2,3)4,D1$(255,1)1,D2$(1,255)2,D3$(
     1,1)124
   : COM Z9$(1000)1
0095 COM A$1,A1$2,B$5,C$,D$100,D1$124
   : DIM A$(1)1,A1$(1,1)1,B$(1),C$(256)1,D$(2,3)4,D1$(255,1)1,D2$(1,255)2,D3$(
     1,1)124
   : DIM Z9$(1000)1
0100 A$,A1$,B$,C$,D$,D1$=ALL(FF)
   : IF LEN(A$)<>1OR LEN(A1$)<>2OR LEN(B$)<>5OR LEN(C$)<>16OR LEN(D$)<>100OR L
     EN(D1$)<>124THEN 8990
0110 A$(),A1$(),B$(),C$(),D$(),D1$(),D2$(),D3$(),Z9$()=ALL(30)
   : IF LEN(A$())<>1OR LEN(A1$())<>1OR LEN(B$())<>16OR LEN(C$())<>256OR LEN(D$
     ())<>24OR LEN(D1$())<>255OR LEN(D2$())<>510OR LEN(D3$())<>124OR LEN(Z9$()
     )<>1000THEN 8990
0120 D$="ABCDEFGHIJKLNOPQRSTUVWXYZ"
   : FOR I=1TO 2
   : FOR J=1TO 3
   : D$(I,J)=STR(D$,(I-1)*3+J,1)
   : NEXT J,I
   : IF D$()<>"A   B   C   D   E   F"THEN 8990
0130 FOR I=1TO 255
   : D1$(I,1),C$(I)=BIN(I)
   : NEXT I
   : FOR I=1TO 255
   : IF VAL(C$(I))<>ITHEN 8990
   : NEXT I
   : IF D1$()<>STR(C$(),,255)THEN 8990
0200 COM A,A1,Z9,A(1),A1(1,1),B(4,5)
0210 A=1
   : A1=2
   : Z9=3
   : A(1)=4
   : A1(1,1)=5
   : FOR I=1TO 4
   : FOR J=1TO 5
   : B(I,J)=6
   : NEXT J,I
0220 IF A<>1OR A1<>2OR Z9<>3OR A(1)<>4OR A1(1,1)<>5OR B(1,1)<>6OR B(4,5)<>6THE
     N 8990
0230 COM A,A1,Z9,A(1),A1(1,1),B(4,5)
0300 K1=1
   : K2=2
   : K3=3
   : K4=4
   : K5=5
   : K6=6
   : K7=7
   : K8=8
   : K9=1000
   : K=124
   : K0=256
   : A=100
   : J=255
8980 I=SPACE
   : IF I=STHEN 9010
8990 E(16)=E(16)+1
   : PRINT AT(02,48,16);E(16);"ERRORS"
9010 COM CLEAR S
   : LOAD DC T"BDIAG17A"