Wang 2200 Virtual Media

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

# Sector 360, program filename = 'WCPD540A'
0010 REM .     WCPD540A,  00-00 (6/28/75),   12002
0100 IF E(4)<>0THEN 190
   : IF Y$="123"THEN 170
   : IF C(2,2)<>6THEN 170
   : IF B$(1)<>"A"THEN 170
   : IF A<>1THEN 170
   : COM CLEAR B
   : LOAD DC T#6,"WCPD550A"
0170 E(4)=E(4)+1
   : E9$(P9)="NG"
0190 LOAD DC T#6,"WCPD550A"
0200 DEFFN'15
   : COM CLEAR
   : LOAD DC T#6,"START"