Listing of file='BDIAG3' on disk='vmedia/732-0050A.wvd.zip'
# Sector 847, program filename = 'BDIAG3' 0000 IF X=0THEN 20 : X=X+10 : GOSUB 9998 0001 X=X+100 : IF X=1111THEN 9000 : GOTO 8000 0020 PRINT AT(3,0);"GOSUB,RETURN... <-- TESTING", 0100 X=SPACE : I,J=0 0110 I=I+1 : IF I<61THEN GOSUB 110 0115 IF I<>61THEN 8000 0120 J=J+1 : IF J<61THEN RETURN 0130 IF J<>61THEN 8000 0140 I=SPACE : IF I<>XTHEN 8000 0200 ON 200GOTO 1,8081,9998,2227,1234 : GOSUB 210 : GOTO 300 0210 RETURN 0300 S=SPACE : GOSUB 210 : I=SPACE : IF S<>ITHEN 8000 0310 GOSUB 320 : GOTO 8000 0320 RETURN CLEAR : I=SPACE : IF S<>ITHEN 8000 : X=0 0330 X=X+1 : IF X<20THEN GOSUB 330 : RETURN CLEAR ALL : I=SPACE : IF S<>ITHEN 8000 0400 S=SPACE : GOSUB 410 : I=SPACE : IF S<>ITHEN 8000 : GOTO 420 0410 FOR I=1TO 3 : FOR J=1TO 4 : FOR K=1TO 5 : RETURN 0420 GOSUB 430 0430 FOR I=1TO 3 : FOR J=1TO 4 : FOR K=1TO 5 : RETURN CLEAR : I=SPACE : IF I<>STHEN 8000 0440 DEFFN'0"E=E+1:" : E=0 : GOTO 442 0441 E=E+.1 : RETURN 0442 A$=":" : A$=": " : A$=" :" : E=E+1 : E=E+1 : E=E+1 : E=E+1 : E=E+1 : E=E+1 : E=E+1 : E=E+1 : E=E+1 : E=E+1 : E=E+1 : E=E+1 : E=E+1 : E=E+1 : E=E+1 : E=E+1 : E=E+1 : E=E+1 : E=E+1 : E=E+1 : E=E+1 : E=E+1 : E=E+1 : E=E+1 : E=E+1 : E=E+1 : E=E+1 : E=E+1 : E=E+1 : GOSUB 441 : GOSUB 441 : E=E+1 : GOSUB 441 : IF E<>30.3THEN 8000 0900 GOSUB 9999 1234 GOTO 8000 2227 GOTO 8000 8000 RETURN CLEAR ALL : E(3)=E(3)+1 8081 GOTO 8000 9000 PRINT AT(3,16,16); : IF E(3)=0THEN PRINT "OK" : ELSE PRINT E(3);"ERRORS" 9010 LOAD DC T"BDIAG4" 9998 X=X+1000 : RETURN 9999 X=1 : GOSUB 0