Wang 2200 Virtual Media

Listing of file='WCPD180A' on disk='vmedia/701-2046C.wvd.zip'

# Sector 340, program filename = 'WCPD180A'
0010 REM .     WCPD180A,  00-00 (6/28/75),   12002
0100 COM N
   : PRINT " TESTING DEFFN .......................";
   : DIM A(2),B(2,4)
0130 DEFFN1(X)=COS(0)+X
   : IF FN1(FN1(FN1(FN1(FN1(3)))))<>8THEN 270
   : A(1),C,B(1,1)=5
0160 DEFFN2(X)=FN1(X)+1
   : B(2,1)=C
0180 DEFFNC(X)=FN2(X)+1
0190 DEFFN4(X)=FNC(X)+1
   : A(2)=FN5(C)+FN5(A(1))+FN5(B(2,1))
   : IF A(2)=6*B(1,1)THEN 240
   : PRINT TAB(40);"ERROR 1"
   : GOTO 270
0240 PRINT "OK"
   : LOAD DC T#6,"WCPD190A"
0260 DEFFN5(C)=FN4(C)+1
0270 E9$(P9)="NG"
   : LOAD DC T#6,"WCPD190A"
0290 DEFFN'15
   : COM CLEAR
   : LOAD DC T#6,"START"