image of READY prompt

Wang2200.org

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

# Sector 746, program filename = 'BDIAG8'
0020 PRINT AT(8,00);"LET,&.......... <-- TESTING",
0080 S=SPACE
0090 DIM X(5),X1(2,3),A$1,B$3,C$16,A$(12)1,B$(2,3)2,C$(3)1
0100 LET X=5
   : LET X1=6
   : X2=7
   : X3=8
   : X4,X5,X6,X7=9
0110 IF X<>5THEN 8990
   : IF X1<>6THEN 8990
   : IF X2<>7THEN 8990
   : IF X3<>8THEN 8990
   : IF X4<>9THEN 8990
   : IF X5<>9THEN 8990
   : IF X6<>9THEN 8990
   : IF X7<>9THEN 8990
0120 FOR I=1TO 5
   : LET X(I)=I
   : NEXT I
0130 FOR I=1TO 2
   : FOR J=1TO 3
   : X1(I,J)=I*10+J
   : NEXT J,I
0140 FOR I=1TO 5
   : IF X(I)<>ITHEN 8990
   : NEXT I
0150 FOR I=1TO 2
   : FOR J=1TO 3
   : IF X1(I,J)<>I*10+JTHEN 8990
   : NEXT J,I
0190 IF X<>5THEN 8990
   : IF X1<>6THEN 8990
   : IF X2<>7THEN 8990
   : IF X3<>8THEN 8990
   : IF X4<>9THEN 8990
   : IF X5<>9THEN 8990
   : IF X6<>9THEN 8990
   : IF X7<>9THEN 8990
0300 LET A$="A"
   : B$="B"
   : LET C$,D$="C"
   : E$,E1$,E2$="D"
0310 IF A$<>"A"THEN 8990
   : IF B$<>"B"THEN 8990
   : IF C$<>"C"THEN 8990
   : IF D$<>"C"THEN 8990
   : IF E$<>"D"THEN 8990
   : IF E1$<>"D"THEN 8990
   : IF E2$<>"D"THEN 8990
0320 A$,B$,C$=ALL(FF)
   : A$,B$,C$="123"
   : IF A$<>"1"THEN 8990
   : IF B$<>"123"THEN 8990
   : IF C$<>"123"THEN 8990
0330 A$,B$,C$=ALL(FF)
   : C$,B$,A$="ABCDEFGHIJKLMNOPQRS"
   : IF A$<>"A"THEN 8990
   : IF B$<>"ABC"THEN 8990
   : IF C$<>"ABCDEFGHIJKLMNOP"THEN 8990
0340 A$()=ALL(FF)
   : FOR I=1TO 12
   : LET A$(I)=BIN(I)
   : NEXT I
   : FOR I=1TO 12
   : IF VAL(A$(I))<>ITHEN 8990
   : NEXT I
0350 B$()=ALL(FF)
   : B$(1,1)=HEX(0102)
   : B$(1,2)=HEX(0304)
   : B$(1,3)=HEX(0506)
   : B$(2,1)=HEX(0708)
   : LET B$(2,2)=HEX(090A)
   : B$(2,3)=HEX(0B0C)
   : IF B$()<>A$()THEN 8990
0360 C$()="ABC"
   : FOR I=0TO 255
   : C$(2)=BIN(I)
   : IF VAL(C$(2))<>ITHEN 8990
   : NEXT I
   : IF C$(1)<>"A"THEN 8990
   : IF C$(3)<>"C"THEN 8990
0500 A$,B$,C$=ALL(FF)
   : B$,C$,A$="A"&"B"&"CDEFGHIJKLMNOPQR"
   : IF A$<>"A"THEN 8990
   : IF B$<>"ABC"THEN 8990
   : IF C$<>"ABCDEFGHIJKLMNOP"THEN 8990
0510 C$,B$,A$=ALL(5A)&"Z"&"W"
   : IF A$<>HEX(5A)THEN 8990
   : IF B$<>HEX(5A5A5A)THEN 8990
   : IF C$<>HEX(5A5A5A5A5A5A5A5A5A5A5A5A5A5A5A5A)THEN 8990
0520 C$,B$,A$=HEX(45)&ALL(" ")&ALL(FF)
   : IF A$<>"E"THEN 8990
   : IF B$<>"E"THEN 8990
   : IF C$<>"E"THEN 8990
8980 I=SPACE
   : IF I=STHEN 9000
8990 E(8)=E(8)+1
9000 PRINT AT(8,16,16);
   : IF E(8)=0THEN PRINT "OK"
   : ELSE PRINT E(8);"ERRORS"
9010 LOAD DC T"BDIAG9"