image of READY prompt

Wang2200.org

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

# Sector 148, program filename = 'WCPD520A'
0010 REM .     WCPD520A,  00-00 (6/28/75),   12002
0100 PRINT "COM CLEAR ............................";
   : FOR I=1TO 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
   : 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"
0250 DATA 4,"D",5,"E",6,"F"
   : X(1)=4
   : X(2)=5
   : Y$="123"
   : COM CLEAR Y$
   : LOAD DC T#6,"WCPD530A"
0310 DEFFN'15
   : COM CLEAR
   : LOAD DC T#6,"START"