Listing of file='WCPD190A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 452, program filename = 'WCPD190A' 0010 REM . WCPD190A, 00-00 (6/28/75), 12002 0100 COM N : PRINT " TESTING DEFFN' ......................"; 0120 DEFFN'00"ABC,XYZ" : A$="ABC,XYZ" : IF A$="ABC,XYZ"THEN 170 : PRINT TAB(40);"ERROR 1" : GOTO 450 0170 DEFFN'14"LET" : LET A$="LET" : GOSUB '07 : IF A$="A$"THEN 230 : PRINT TAB(40);"ERROR 2" : GOTO 450 0230 GOSUB '13(STR(A$,1,1),"STRING",N,16) : IF B$<>"A"THEN 290 : IF S$<>"STRING"THEN 290 : IF N1<>NTHEN 290 : IF N2<>16THEN 290 : GOTO 330 0290 PRINT TAB(40);"ERROR 3" : GOTO 450 0310 DEFFN'13(B$,S$,N1,N2) : RETURN 0330 DEFFN'01"PRINT " 0340 DEFFN'02"DEFFN " 0350 DEFFN'03" ------ " 0360 DEFFN'04"OK" : PRINT "OK" : LOAD DC T#6,"WCPD200A" 0390 DEFFN'07 : GOSUB '08("A$") : RETURN 0420 DEFFN'08(B$) : A$=B$ : RETURN 0450 E9$(P9)="NG" : LOAD DC T#6,"WCPD200A" 0470 DEFFN'15 : COM CLEAR : LOAD DC T#6,"START"