image of READY prompt

Wang2200.org

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