image of READY prompt

Wang2200.org

Listing of file='WCPD110A' on disk='vmedia/701-2046C.wvd.zip'

# Sector 446, program filename = 'WCPD110A'
0010 REM .     WCPD110A,  00-00 (6/28/75),   12002
0100 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"
   : FOR I=1TO 3
   : A1$(I)=A$(I)
   : NEXT I
   : IF A1$(1)="ABC"THEN 230
   : PRINT TAB(40);"ERROR 1"
0220 GOTO 500
0230 IF A1$(2)="DEF"THEN 260
   : PRINT TAB(40);"ERROR 2"
   : GOTO 500
0260 IF A1$(3)="GHIJKL"THEN 290
   : PRINT TAB(40);"ERROR 3"
   : GOTO 500
0290 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
   : IF B1$(1,1)="+=,"THEN 420
   : PRINT TAB(40);"ERROR 4"
   : GOTO 500
0420 IF B1$(2,2)="%'$"THEN 450
   : PRINT TAB(40);"ERROR 5"
   : GOTO 500
0450 IF B1$(3,1)="*<>"THEN 480
   : PRINT TAB(40);"ERROR 6"
   : GOTO 500
0480 P=1
   : LOAD DC T#6,"WCPD120A"
0500 E9$(P9)="NG"
   : P=0
   : LOAD DC T#6,"WCPD120A"
0530 DEFFN'15
   : COM CLEAR
   : LOAD DC T#6,"START"