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"