image of READY prompt

Wang2200.org

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

# Sector 531, program filename = 'WCPD520A'
0010 REM .   WCPD520A,   00-00 (06/28/75),   12002
   : PRINT TAB(1);"COM CLEAR ...........................";
   : FOR I=1 TO 26
   : NEXT I
   : DIM A(2),B$(2),C(2,2),D$(2,2)
   : A=1
   : B=2
   : C=3
   : DIM X(2),Y$3
0150 FOR I=1TO 2
   : READ A(I),B$(I)
   : FOR J=1TO 2
   : READ C(I,J),D$(I,J)
   : NEXT J
   : NEXT I
   : DATA 1,"A",2,"B",3,"C"
   : DATA 4,"D",5,"E",6,"F"
0180 X(1)=4
   : X(2)=5
   : Y$="123"
   : COM CLEAR Y$
   : LOAD DC T"WCPD530A"
0210 DEFFN'15
   : LOAD DC T"START"50