Wang 2200 Virtual Media

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

# Sector 564, program filename = 'WCPD560A'
0010 REM .     WCPD560A,  00-00 (6/28/75),   12002
0100 IF E(4)<>0THEN 200
   : IF I<>2THEN 170
   : INIT(FF)E$,L0$
   : IF E$<>HEX(FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF)THEN 170
   : IF L0$<>HEX(FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF)THEN 170
   : COM CLEAR E$
   : LOAD DC T#6,"WCPD570A"
0170 E(4)=E(4)+1
   : E9$(P9)="NG"
   : LOAD DC T#6,"WCPD570A"
0200 LOAD DC T#6,"WCPD570A"
0210 DEFFN'15
   : COM CLEAR
   : LOAD DC T#6,"START"