image of READY prompt

Wang2200.org

Listing of file='WCPD180A' on disk='vmedia/wcs_diags.wvd.zip'

# Sector 55, program filename = 'WCPD180A'
0010 REM .   WCPD180A,   00-00 (06/28/75),   12002
   : COM N
   : PRINT " TESTING DEFFN .......................";
   : DIM A(2),B(2,4)
0140 DEFFN1(X)=COS(0)+X
   : IF FN1(FN1(FN1(FN1(FN1(3)))))<>8THEN 250
   : A(1),C,B(1,1)=5
0170 DEFFN2(X)=FN1(X)+1
   : B(2,1)=C
0190 DEFFNC(X)=FN2(X)+1
0200 DEFFN4(X)=FNC(X)+1
0210 A(2)=FN5(C)+FN5(A(1))+FN5(B(2,1))
   : IF A(2)=6*B(1,1)THEN 230
   : PRINT TAB(40);"ERROR AT 140"
   : GOTO 250
0230 PRINT "OK"
   : LOAD DC T"WCPD190A"
0240 DEFFN5(C)=FN4(C)+1
0250 E(1)=E(1)+1
   : LOAD DC T"WCPD190A"
0260 DEFFN'15
   : LOAD DC T"START"50