image of READY prompt

Wang2200.org

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"