Listing of file='WCPD580A' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 667, program filename = 'WCPD580A' 0010 REM . WCPD580A, 00-00 (06/28/75), 12002 : PRINT " STR( FUNCTION ......................"; : DIM R0$64,S0$64,T$64 : INIT(20)T$ : A=1 : B=2 : C=1 : GOSUB '0 : GOSUB '1 : B=64 : C=63 : GOSUB '0 : GOSUB '1 : FOR I=1TO 5 0020 A=INT(RND(I)*100) : IF A<1THEN 20 : IF A>63THEN 20 0030 B=INT(RND(A)*100) : IF B<2THEN 30 : IF B>65-ATHEN 30 0040 C=INT(RND(B)*100) : IF C<1THEN 40 : IF C>=BTHEN 40 : GOSUB '0 : GOSUB '1 : NEXT I : PRINT "O.K." 0050 DATA LOAD DA T(1023,L)B$ : IF STR(B$,3,1)="K"THEN 60 : LOAD DC TB$ 0060 LOAD DC T"MEM-LOAD" 0070 RETURN CLEAR 0080 PRINT TAB(40);E(1);"ERRORS" : E9$(P9)="NG" : GOTO 50 0090 DEFFN'0 : STR(R0$,A,B)=STR(S0$,1,C) : RETURN 0100 DEFFN'1 : IF STR(R0$,A+C,65-A-C)=STR(T$,1,65-A-C)THEN 110 : E(1)=E(1)+1 : GOTO 70 0110 RETURN 0120 DEFFN'15 0130 LOAD DC T"START"50