Listing of file='WCPD170A' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 636, program filename = 'WCPD170A' 0010 REM . WCPD170A, 00-00 (06/28/75), 12002 : COM N : PRINT " TESTING GOSUB/RETURN ................"; : A=40 : GOSUB 270 : E=60 : GOSUB 360 : GOTO 200 0190 RETURN 0200 S=0 : S=A+B+C+D+E+F : IF S=860THEN 390 : PRINT TAB(40);"ERROR AT 150" : GOTO 480 0240 GOTO 390 0250 PRINT "OK" 0260 LOAD DC T"WCPD180A" 0270 B=110 : GOSUB 320 0300 D=130 : GOTO 350 0320 C=210 : RETURN 0350 RETURN 0360 F=310 : GOTO 190 0390 S=0 0400 GOSUB 430 : S=S-1 : IF S=0THEN 470 : RETURN 0430 S=S+1 : IF S=44THEN 460 : GOTO 400 0460 RETURN 0470 GOTO 250 0480 E(1)=E(1)+1 : GOTO 260 0490 DEFFN'15 : LOAD DC T"START"50