image of READY prompt

Wang2200.org

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"