10 PRINT "PROGRAM FILE 5: THE STOP-STATEMENT." 20 PRINT 11 ANSI STANDARD 10.2, 10.4" 30 PRINT 40 PRINT "SECTION 5.1: THE STOP-STATEMENT." 50 PRINT 60 PRINT " 70 PRINT BEGIN TEST." 80 PRINT "IF PROGRAM EXECUTION TERMINATES AFTER THE NEXT LINE," 90 PRINT " *** TEST PASSED ***" 100 STOP 110 PRINT "PROGRAM EXECUTION WAS NOT TERMINATED:" IF PROGRAM EXECUTION TERMINATES AFTER THE NEXT LINE, *** TEST PASSED *** 10 PRINT "PROGRAM FILE 6: PRINT-SEPARATORS, TABS," 15 PRINT " AND STRING VARIABLES." 20 PRINT " ANSI STANDARD 6.2, 6.4, 9.2, 9.4, 12.2, 12.4" 30 PRINT 40 PRINT "SECTION 6.1: SEMICOLON SEPARATOR WITH QUOTED STRINGS." 60 PRINT *** ** 160 PRINT "2": 170 PRINT "3" 180 PRINT 200 PRINT " 190 PRINT "*** TEST PASSED IF THERE ARE EXACTLY FIVE NUMBERED LINES" ABOVE, EACH CONTAINING THE ADJACENT DIGITS '123', AND" IF THEY ARE LINED UP IN A COLUMN ***" 205 PRINT " 210 PRINT 220 PRINT " 380 PRINT END TEST." 390 PRINT "SECTION 6.2: THE COMMA SEPARATOR WITH QUOTED STRINGS." 410 PRINT 420 PRINT " 430 PRINT BEGIN TEST." 440 PRINT "THE PRINT LINE SHOULD BE DIVIDED INTO EQUAL ZONES WHICH " 450 PRINT "ENABLE THE COMMA SEPARATOR TO ACT AS A TAB WHEN PRINTING" 460 PRINT "A SERIES OF COMMA-SEPARATED ITEMS." 470 PRINT 480 PRINT "00000000011111111112222222222333333333344444444445"; 490 PRINT "5555555556" 500 PRINT "12345678901234567890123456789012345678901234567890"; 510 PRINT "1234567890" 520 PRINT "XYZ","XYZ","XYZ" 530 PRINT 540 PRINT "*** TEST PASSED IF 3 SETS OF THE CHARACTERS 'XYZ' ARE EVENLY" 555 PRINT " 560 PRINT 570 PRINT " 580 PRINT END TEST." 590 PRINT "SECTION 6.3: TABBING QUOTED STRINGS." 610 PRINT 620 PRINT " BEGIN TEST." 630 PRINT 640 PRINT "00000000011111111112222222222333333333344444444445"; 650 PRINT "5555555556" 660 PRINT "12345678901234567890123456789012345678901234567890"; 670 PRINT "1234567890" 680 PRINT TAB(24);"1" 690 PRINT TAB(48); "2" 700 PRINT TAB(59); "3" 710 PRINT 720 PRINT "*** TEST PASSED IF A '1' IS PRINTED BELOW COLUMN HEADING 24,' 730 PRINT " 740 PRINT 750 PRINT " 760 PRINT A '2' BELOW 48 AND A '3' BELOW 59 IN THE ABOVE TEST **** END TEST." 770 PRINT "SECTION 6.4: THE ASSIGNMENT OF QUOTED STRINGS." 790 PRINT 800 PRINT " 810 PRINT BEGIN TEST." 820 PRINT "THIS TEST ASSIGNS THE SAME QUOTED STRING TO ALL LEGAL STRING" 830 PRINT "VARIABLES: A$ THROUGH Z$, USING A SERIES OF LET-STATEMENTS." 840 PRINT "A$ IS ASSIGNED THE QUOTED STRING, THEN B$ IS ASSIGNED A$ 850 PRINT "THROUGH Z$ ASSIGNED Y$." 860 PRINT ผิ.. 870 LET A$="18 CHARACTERS LONG" 880 LET B$=A$ 890 LET C$=B$ 900 LET D$=C$ 910 LET E$=D$ 920 LET F$=E$ 930 LET G$=F$ 940 LET H$=G$ 950 LET I$=H$ 960 LET J$=I$ 970 LET K$=J$ 980 LET L$=K$ 990 LET M$=L$ 1000 LET N$=M$ 1010 LET 0$=N$ 1020 LET P$=0$ 1030 LET Q$=P$ 1040 LET R$=Q$ 1050 LET S$=R$ 1060 LET T$=S$ 1070 LET U$=T$ 1080 LET V$=U$ 1090 LET W$=V$ 1100 LET X$=W$ 1110 LET Y$=X$ 1120 LET Z$=Y$ 1130 PRINT " 1140 PRINT Z$ = ";Z$ 1150 PRINT "*** TEST PASSED IF 'Z$ = 18 CHARACTERS LONG' IS PRINTED" IN THE ABOVE TEST 黃黃曇" 1160 PRINT " 1170 PRINT 1180 PRINT " 1190 PRINT END TEST." 1200 PRINT "SECTION 6.5: SEMICOLON SEPARATOR WITH ASSIGNED STRINGS" 1410 PRINT "*** TEST PASSED IF THERE ARE EXACTLY FIVE NUMBERED LINES" ABOVE, EACH CONTAINING THE ADJACENT DIGITS '123', AND" IF THEY ARE LINED UP IN A COLUMN ***" 1420 PRINT " 1425 PRINT " 1430 PRINT 1440 PRINT " 1450 PRINT END TEST." 1540 PRINT "00000000011111111112222222222333333333344444444445"; 1550 PRINT "5555555556" 1560 PRINT "12345678901234567890123456789012345678901234567890"; 1570 PRINT "1234567890" 1580 PRINT A$,"XYZ", C$ 1590 PRINT 1610 PRINT " 1600 PRINT "*** TEST PASSED IF 3 SETS OF THE CHARACTERS 'XYZ' ARE " EVENLY SPACED ON A SINGLE LINE IN THE ABOVE TEST AND " WIDTH OF PRINT ZONE IS AS DOCUMENTED ***" 1615 PRINT " 1620 PRINT 1630 PRINT " 1640 PRINT END TEST." 1650 PRINT "SECTION 6.7: TABBING ASSIGNED STRINGS AND CONSTANTS." 1670 PRINT 1680 PRINT " 1690 PRINT 1700 LET A$="1" BEGIN TEST." 1720 LET C$="3" 1730 PRINT "00000000011111111112222222222333333333344444444445"; 1740 PRINT "5555555556" 1750 PRINT "12345678901234567890123456789012345678901234567890"; 1760 PRINT "1234567890" 1770 PRINT TAB(24); A$ 1780 PRINT TAB(48); "2" 1790 PRINT TAB(59); C$ 1800 PRINT 1810 PRINT "*** TEST PASSED IF A '1' PRINTS BELOW COLUMN HEADING 24," 1820 PRINT " A '2' BELOW 48, AND A '3' BELOW 59 黃黃曇" 1880 PRINT "THIS TEST DETERMINES WHETHER THE PROCESSOR RECOGNIZES" 1890 PRINT "CONSECUTIVE COMMAS IN A PRINT-STATEMENT AS TAB POSITIONS." 1900 PRINT 1910 PRINT " 1920 PRINT BEGIN TEST." 1930 PRINT "00000000011111111112222222222333333333344444444445"; 1940 PRINT "5555555556" 1950 PRINT "12345678901234567890123456789012345678901234567890"; 1960 PRINT "1234567890" 1965 PRINT "PRINT-ZONE IDENTIFIERS:" 1970 PRINT "1","2","3","4" 2000 PRINT "*** TEST PASSED IF AN 'A' IS IN THE BEGINNING COLUMN OF THE" 2010 PRINT "1 FOURTH PRINT ZONE FOR THIS SYSTEM ***11 *** TEST PASSED IF THERE ARE EXACTLY FIVE NUMBERED LINES ABOVE, EACH CONTAINING THE ADJACENT DIGITS '123', AND IF THEY ARE LINED UP IN A COLUMN *** END TEST. SECTION 6.2: THE COMMA SEPARATOR WITH QUOTED STRINGS. BEGIN TEST. THE PRINT LINE SHOULD BE DIVIDED INTO EQUAL ZONES WHICH 000000000111111111122222222223333333333444444444455555555556 123456789012345678901234567890123456789012345678901234567890 XYZ XYZ XYZ *** TEST PASSED IF 3 SETS OF THE CHARACTERS 'XYZ' ARE EVENLY SPACED ON A SINGLE LINE IN THE ABOVE TEST AND WIDTH OF PRINT ZONE IS AS DOCUMENTED *** END TEST. |