image of READY prompt

Wang2200.org

Listing of file='WCPD110A' on disk='vmedia/wcs_diags.wvd.zip'

# Sector 505, program filename = 'WCPD110A'
0010 REM .   WCPD110A,   00-00 (06/28/75),   12002
   : COM N
   : PRINT " TESTING DIM, STRING ARRAYS ..........";
   : DIM A$(3),B0$(2,3)
   : DIM A1$(3),B1$(3,2)
   : A$(1)="ABC"
   : A$(2)="DEF"
   : A$(3)="GHIJKL"
0160 FOR I=1TO 3
   : A1$(I)=A$(I)
   : NEXT I
   : IF A1$(1)="ABC"THEN 180
   : PRINT TAB(40);"ERROR AT 90"
   : GOTO 290
0180 IF A1$(2)="DEF"THEN 190
   : PRINT TAB(40);"ERROR AT 100"
   : GOTO 290
0190 IF A1$(3)="GHIJKL"THEN 200
   : PRINT TAB(40);"ERROR AT 110"
   : GOTO 290
0200 B0$(1,1)="+=,"
   : B0$(1,2)="-^;"
   : B0$(1,3)="*<>"
   : B0$(2,1)="/()"
   : B0$(2,2)="%'$"
   : B0$(2,3)="#: "
   : FOR I=1TO 2
   : FOR J=1TO 3
   : B1$(J,I)=B0$(I,J)
   : NEXT J
   : NEXT I
0250 IF B1$(1,1)="+=,"THEN 260
   : PRINT TAB(40);"ERROR AT 170"
   : GOTO 290
0260 IF B1$(2,2)="%'$"THEN 270
   : PRINT TAB(40);"ERROR AT 180"
   : GOTO 290
0270 IF B1$(3,1)="*<>"THEN 280
   : PRINT TAB(40);"ERROR AT 190"
   : GOTO 290
0280 P=1
   : LOAD DC T"WCPD120A"
0290 P=0
   : E(1)=E(1)+1
   : LOAD DC T"WCPD120A"
0300 DEFFN'15
   : LOAD DC T"START"50