Listing of file='WCPD190A' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 181, program filename = 'WCPD190A'
0010 REM . WCPD190A, 00-00 (06/28/75), 12002
: COM N
: PRINT " TESTING DEFFN' ......................";
0130 DEFFN'00"ABC,XYZ"
: A$="ABC,XYZ"
: IF A$="ABC,XYZ"THEN 170
: PRINT TAB(40);"ERROR AT 170"
: GOTO 430
0170 DEFFN'14"LET"
: LET A$="LET"
: GOSUB '07
: IF A$="A$"THEN 220
: PRINT TAB(40);"ERROR AT 220"
: GOTO 430
0220 GOSUB '13(STR(A$,1,1),"STRING",N,16)
: IF B$<>"A"THEN 280
: IF S$<>"STRING"THEN 280
: IF N1<>NTHEN 280
: IF N2<>16THEN 280
: GOTO 310
0280 PRINT TAB(40);"ERROR AT 290"
: GOTO 430
0290 DEFFN'13(B$,S$,N1,N2)
: RETURN
0310 DEFFN'01"PRINT "
0320 DEFFN'02"DEFFN "
0330 DEFFN'03" ------ "
0340 DEFFN'04"OK"
: PRINT "OK"
: LOAD DC T"WCPD200A"
0370 DEFFN'07
: GOSUB '08("A$")
: RETURN
0400 DEFFN'08(B$)
: A$=B$
: RETURN
0430 E(1)=E(1)+1
: LOAD DC T"WCPD200A"
0440 DEFFN'15
: LOAD DC T"START"50