image of READY prompt

Wang2200.org

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

# Sector 972, program filename = 'BDIAG20'
0000 DEFFN'100
   : IF X=0THEN 20
   : X=X+.1
   : RETURN
0020 PRINT AT(05,32);"DEFFN',GOSUB'.. <-- TESTING",
0080 S=SPACE
0090 DIM B$(2,3)4
0110 DEFFN'0"T"
0115 DEFFN'1HEX(0D)
   : X=X+1
0120 DEFFN'02"ABC";HEX(444546);"GHI"
   : X=X+1
0125 DEFFN'31HEX(FF0123FD0D3AFCFE);":;";"Z"
   : X=X+1
0130 IF X<>3THEN 8990
0140 GOTO 220
0210 DEFFN'210
   : X=X+.001
   : RETURN
0220 X=1
   : GOSUB '100
   : GOSUB '99
   : GOSUB '210
   : GOSUB '230
   : IF X<>1.1111THEN 8990
   : I=SPACE
   : IF I<>STHEN 8990
   : GOTO 250
0230 DEFFN'230
   : X=X+.0001
   : RETURN
0250 X=0
0255 DEFFN'51
   : X=X+1
   : IF X<61THEN GOSUB '51
   : RETURN CLEAR ALL
   : I=SPACE
   : IF I<>STHEN 8990
0505 X=2
   : A$="abc"
   : B$()="ABC"
   : C$="KLMNOPQ"
   : GOSUB '255(1,":",3*4,HEX(0D3AFDFE29),X,A$,B$(),STR(C$,2,3))
0510 IF Z<>1OR Z1<>12OR Z2<>2OR Z$<>":"OR Z1$<>HEX(0D3AFDFE29)OR Z2$<>"abc"OR
     Z3$<>"ABC"OR Z4$<>"LMN"THEN 8990
   : GOTO 8980
0520 DEFFN'254(Z,Z$,Z1,Z1$,Z2,Z2$,Z3$,Z4$)
   : RETURN
0550 DEFFN'255(Y,Y$,Y1,Y1$,Y2,Y2$,Y3$,Y4$)
   : GOSUB '254(Y,Y$,Y1,Y1$,Y2,Y2$,Y3$,Y4$)
   : RETURN
8980 I=SPACE
   : IF I=STHEN 9000
8990 E(20)=E(20)+1
9000 PRINT AT(05,48,16);
   : IF E(20)=0THEN PRINT "OK";
   : ELSE PRINT E(20);"ERRORS"
9010 LOAD DC T"BDIAG21 "
9999 DEFFN'99
   : X=X+.01
   : RETURN