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