Listing of file='WCPD580A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 773, program filename = 'WCPD580A' 0010 REM . WCPD580A, 00-00 (6/28/75), 12002 0100 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 0230 A=INT(RND(I)*100) : IF A<1THEN 230 : IF A>63THEN 230 0260 B=INT(RND(A)*100) : IF B<2THEN 260 : IF B>65-ATHEN 260 0290 C=INT(RND(B)*100) : IF C<1THEN 290 : IF C>=BTHEN 290 : GOSUB '0 : GOSUB '1 : NEXT I : PRINT "O.K." 0360 COM CLEAR N : LOAD DC T#6,"OP1D010A" 0380 RETURN CLEAR 0390 PRINT TAB(40);E(10);"ERRORS" : E9$(P9)="NG" : GOTO 360 0420 DEFFN'0 : STR(R0$,A,B)=STR(S0$,1,C) : RETURN 0450 DEFFN'1 : IF STR(R0$,A+C,65-A-C)=STR(T$,1,65-A-C)THEN 490 : E(10)=E(10)+1 : GOTO 380 0490 RETURN 0500 DEFFN'15 : COM CLEAR : LOAD DC T#6,"START"