Listing of file='WCPD170A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 299, program filename = 'WCPD170A' 0010 REM . WCPD170A, 00-00 (6/28/75), 12002 0100 COM N : PRINT " TESTING GOSUB/RETURN ................"; : A=40 : GOSUB 260 : E=60 : GOSUB 330 : GOTO 180 0170 RETURN 0180 S=0 : S=A+B+C+D+E+F : IF S=860THEN 350 : PRINT TAB(40);"ERROR 1" : GOTO 450 0230 GOTO 350 0240 PRINT "OK" 0250 LOAD DC T#6,"WCPD180A" 0260 B=110 : GOSUB 300 : D=130 : GOTO 320 0300 C=210 : RETURN 0320 RETURN 0330 F=310 : GOTO 170 0350 S=0 0360 GOSUB 400 : S=S-1 : IF S=0THEN 440 : RETURN 0400 S=S+1 : IF S=44THEN 430 : GOTO 360 0430 RETURN 0440 GOTO 240 0450 E9$(P9)="NG" : GOTO 250 0470 DEFFN'15 : COM CLEAR : LOAD DC T#6,"START"