310 PRINT 320 PRINT "END PROGRAM 16" 330 END ? UNDEFINED LINE NUMBER 275 IN LINE 240 10 PRINT "PROGRAM FILE 17: ELEMENTARY USE OF GOSUB AND RETURN." 20 PRINT "| ANSI STANDARD 10.2, 10.4" 30 PRINT 40 PRINT "SECTION 17.1: ELEMENTARY USE OF GOSUB AND RETURN." 50 PRINT 52 PRINT "THIS PROGRAM TESTS THAT THE SUBROUTINE MECHANISM EXISTS" 54 PRINT "AND THAT A SUBROUTINE CAN BE INVOKED FROM SEVERAL" 56 PRINT "PLACES IN THE MAIN LINE OF CONTROL." 58 PRINT 60 PRINT " BEGIN TEST." 70 PRINT 80 PRINT "IF THE NEXT MESSAGE *** GOSUB TEST PASSED 90 PRINT "SPELLED CORRECTLY, THE TEST PASSED." PROGRAM FILE 17: ELEMENTARY USE OF GOSUB AND RETURN. SECTION 17.1: ELEMENTARY USE OF GOSUB AND RETURN. ***' IS" THIS PROGRAM TESTS THAT THE SUBROUTINE MECHANISM EXISTS 10 PRINT "PROGRAM FILE 18: THE IF-THEN STATEMENT WITH STRING OPERANDS." 20 PRINT " ANSI STANDARD 10.2, 10.4" 30 PRINT 40 PRINT "SECTION 18.1: THE IF-THEN STATEMENT WITH STRING OPERANDS." 50 PRINT 60 PRINT "THIS SECTION TESTS THE COMPARISON OF STRING VARIABLES AND" 70 PRINT "CONSTANTS WITH A VARIETY OF VALUES. BOTH RELATIONSHIPS" 80 PRINT "(= AND <>) ARE TESTED FOR EACH PAIR OF VALUES. THE 'V' OR" 90 PRINT "'C' FOLLOWING THE COMPARAND VALUE INDICATES WHETHER IT IS" 100 PRINT "A VARIABLE OR A CONSTANT." 110 PRINT 120 PRINT "'T' OR 'F' IS PRINTED TO SHOW THE OUTCOME OF THE" 130 PRINT "COMPARISON. FOR INCORRECT COMPARES, AN '*' IS PRINTED" 140 PRINT "NEXT TO THE ERRONEOUS RESULT. WHEN DISPLAYING COMPARAND" 150 PRINT "VALUES, THE UNDERLINE CHARACTER, '_', IS USED TO REPRESENT" 160 PRINT "THE SPACE CHARACTER (THUS A DISPLAYED 'ONE BLANK' " 170 PRINT "INDICATES AN INTERNAL VALUE OF 'ONE BLANK')." 171 PRINT "ALSO, THE NULL STRING (LENGTH OF ZERO) IS DENOTED BY THE" 172 PRINT "LABEL (NULL STRING)'." 180 PRINT 190 PRINT "CHARACTER STRINGS SHOULD TEST EQUAL IF AND ONLY IF THE" 200 PRINT "STRINGS ARE EQUAL IN LENGTH AND CONTAIN IDENTICAL SEQUENCES" 210 PRINT "OF CHARACTERS." 250 PRINT "LEFT"; TAB(22);": RIGHT" 260 PRINT "COMPARAND"; TAB(19); "V/C: COMPARAND"; TAB(42); "V/C"; 270 PRINT TAB(47);""; TAB(51); "<>"; TAB(55); "RESULT" 275 PRINT 2900 REM SUBROUTINE TO PRINT COMPARANDS FOR CONSTANT: VARIABLE 2910 PRINT "ABC"; TAB (20);"C: ";V$; TAB(43); "V"; 2920 RETURN 3000 REM SUBROUTINE TO TEST VARIABLE = CONSTANT 3005 LET B$="T" 3900 REM SUBROUTINE TO PRINT COMPARANDS FOR VARIABLE: CONSTANT 3910 PRINT V$; TAB(20);"V : _0X9__";TAB(43);"C"; 3920 RETURN 4000 REM SUBROUTINE TO TEST VARIABLE = VARIABLE 4005 LET B$="T*" 4010 LET A$="T" 4020 LET L$=" OK 11 4030 IF T$<>U$ THEN 4060 4040 LET B$="F" 4050 GOTO 4080 4060 LET R$="FAILED" 4070 LET L$="FAILED" 4080 IF T$=U$ THEN 4120 4090 LET R$="FAILED" 4100 LET L$="FAILED" 4110 LET A$="F*" 4120 GOSUB 4900 4125 GOSUB 5000 4130 RETURN |