8bitfiles.net/archives

home *** CD-ROM | disk | FTP | other *** search

/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / TOPIC-SENTENCE (.txt) < prev next >

Wrap

Commodore BASIC | 2019-04-13 | 19.0 KB | 523 lines

50 REM******THE TOPIC SENTENCE****** 52 REM****************************** 54 REM************BY**************** 56 REM****************************** 58 REM*********DANIEL FLINN********* 60 REM****************************** 62 REM**UNIVERSITY OF EAST AFRICA*** 64 REM****************************** 66 REM***P.O. BOX 2500************** 68 REM****************************** 70 REM*******ELDORET,KENYA********** 95 RESTORE:POKE53272,21 100 PRINT"[147]":POKE53280,0:POKE53281,0 110 FORI=1144TO1183:POKEI,102:POKEI+54272,7:NEXTI 120 FORI=1183TO1703STEP40:POKEI,102:POKEI+54272,7:NEXTI 130 FORI=1703TO1664STEP-1:POKEI,102:POKEI+54272,7:NEXTI 140 FORI=1664TO1144STEP-40:POKEI,102:POKEI+54272,7:NEXTI 150 PRINTTAB(9)"[156]THE PARAGRAPH SERIES" 160 PRINTTAB(9)" THE TOPIC SENTENCE [146]" 170 PRINTTAB(18)"A" 180 PRINTTAB(15)"[129]TUTORIAL" 185 FORT=1TO1000:NEXTT 190 PRINTTAB(7)"[158]PRESS RETURN FOR OPTIONS" 195 GOSUB8000 200 GETA$:IFA$=""THEN200 210 IFA$<>CHR$(13)THEN200 220 PRINT"[147]" 221 PRINT""TAB(4)"[152] " 222 PRINTTAB(4)"[152] " 223 PRINTTAB(4)"[152] " 224 PRINTTAB(4)"[152] " 225 PRINTTAB(4)"[152] " 226 PRINTTAB(4)"[152] " 227 PRINTTAB(4)"[152] " 228 PRINTTAB(4)"[152] " 229 PRINTTAB(4)"[152] " 230 PRINTTAB(4)"[152] " 231 PRINTTAB(4)"[152] " 233 PRINT"":PRINTTAB(14)"[159]OPTIONS" 235 PRINTTAB(5)"[129] F1 [146]=TEACHER INSTRUCTIONS" 240 PRINTTAB(5)"[153] F3 [146]=STUDENT INSTRUCTIONS" 250 PRINTTAB(5)" F5 [146]=TUTORIAL 251 [129]I[178]1[164]500[169]40:A[178]1186[170]I:B[178]1215[170]I 252 [151]A,102:[151]A[170]54272,2:[151]B,102:[151]B[170]54272,2:[130]I 253 [129]I[178]1[164]30:A[178]1186[170]I:B[178]1666[170]I 254 [151]A,102:[151]A[170]54272,2:[151]B,102:[151]B[170]54272,2:[130]I 260 [153]"SYS CHOOSE ONE " 270 [129]T[178]1[164]200:[130]T 280 [153]"SYS CHOOSE ONE " 290 [129]T[178]1[164]200:[130]T 300 [161]A$:[139]A$[178]""[167]260 310 [139]A$[179][177]"INPUT"[175]A$[179][177]"DIM"[175]A$[179][177]"READ"[167]260 320 [139]A$[178]"INPUT"[167][137]400 330 [139]A$[178]"DIM"[167][137]427 340 [139]A$[178]"READ"[167][137]460 400 [153]"LOAD":[153][163]7)"ON TEACHER INSTRUCTIONS " 410 [153]"PRINT#THIS PROGRAM IS DESIGNED TO BE USED IN CONJUNCTION WITH A "; 415 [153]"COMPOSITION COURSE.ITIS UNDERSTOOD THAT IN ITSELF, THE "; 417 [153]"PRO- GRAM IS INADEQUATE TO TEACH A STUDENT HOW TO ACTUALLY WRITE A "; 418 [153]"WELL ORGANIZED, COHERENT PARAGRAPH. THE PROGRAM IS, HOWEVER,"; 419 [153]"A GOOD START." 420 [153]"THERE IS AN OPTIONAL ASSIGNMENT AT THE END OF THE PROGRAM." 421 [129]T[178]1[164]7000:[130]T:[141]8000 422 [153][163]12)"SYS PRESS RETURN " 423 [161]A$:[139]A$[178]""[167]423 424 [139]A$[179][177][199](13)[167]423 425 [137]220 427 [153]"LOAD":[153][163]8)"ON STUDENT INSTRUCTIONS " 430 [153]"PRINT#THIS PROGRAM IS DESIGNED TO TEACH YOU HOW TO RECOGNIZE "; 435 [153]"AND USE GOOD TOPIC SENTENCES." 440 [153]"SINCE THE TOPIC SENTENCE IS THE KEY TO ACOHERENT, WELL ORGANIZED "; 445 [153]"PARAGRAPH, IT IS ESSENTIAL THAT YOU LEARN TO USE IT CORRECTLY." 447 [153]"FOLLOW ALL INSTRUCTIONS CAREFULLY AND TYPE RESPONSES EXACTLY "; 448 [153]"AS THEY APPEAR INTHE SENTENCES." 449 [129]T[178]1[164]7000:[130]T:[141]8000 450 [153][163]11)"SYS PRESS RETURN " 455 [161]A$:[139]A$[178]""[167]455 456 [139]A$[179][177][199](13)[167]455 457 [137]220 460 [153]"LOAD":[151]53272,23:[153][163]12)"ON (null)BJECTIVES " 465 [153]"CONT(null)HE STUDENT WILL BE ABLE TO: 470 PRINTTAB(3)"A)[129][210]ECOGNIZE AND DEFINE A TOPIC SENTENCE" 475 PRINTTAB(3)"B)[129][201]DENTIFY THE CONTROLLING IDEA" 480 PRINTTAB(3)"C)[129][206]ARROW A TOPIC SUITABLE FOR A PARAGRAPH" 485 PRINTTAB(3)"D)[129][201]DENTIFY A COHERENT, WELL ORGANIZED PARAGRAPH" 488 FORT=1TO7000:NEXTT:GOSUB8000 490 PRINTTAB(11)"[158] [208]RESS [210]ETURN " 492 GETA$:IFA$=""THEN492 495 IFA$<>CHR$(13)THEN492 500 PRINT"[147]":PRINTTAB(12)"[145][156] [204]ESSON #1 " 505 PRINT"[150][215]HAT IS A TOPIC SENTENCE?" 510 PRINTTAB(3)"1)[154][212]HE TOPIC SENTENCE[146] IS THE MAIN SENTENCE OF "; 515 PRINT"THE PARAGRAPH." 520 PRINTTAB(3)"[150]2)[153][212]HE TOPIC SENTENCE[146] GUIDES OR CON- TROLS THE "; 525 PRINT"PARAGRAPH." 530 PRINTTAB(3)"[150]3)[156][212]HE TOPIC SENTENCE[146] NARROWS[156] THE TOPIC TO "; 535 PRINT"SUITABLE SIZE FOR DISCUSSION." 540 PRINTTAB(3)"[150]4)[159][212]HE TOPIC SENTENCE[146] LETS THE READER KNOW WHAT "; 545 PRINT"THE PARAGRAPH WILL DISCUSS." 548 FORT=1TO2000:NEXTT 550 PRINT"TOPIC SENTENCE" 552 FORI=1384TO1423:POKEI,121:POKEI+54272,14:FORT=1TO25:NEXTT:NEXTI 555 FORT=1TO2000:NEXTT 560 PRINT"TOPIC SENTENCE" 562 FORI=1544TO1583:POKEI,121:POKEI+54272,13:FORT=1TO25:NEXTT:NEXTI 565 FORT=1TO2000:NEXTT 570 PRINT"TOPIC SENTENCE" 572 FORI=1704TO1743:POKEI,121:POKEI+54272,4:FORT=1TO25:NEXTT:NEXTI 575 FORT=1TO2000:NEXTT 580 PRINT"TOPIC SENTENCE" 582 FORI=1864TO1903:POKEI,121:POKEI+54272,3:FORT=1TO25:NEXTT:NEXTI 583 FORT=1TO700:NEXTT 584 GOSUB8000 585 PRINTTAB(11)"[158] [208]RESS RETURN " 590 GETA$:IFA$=""THEN590 595 IFA$<>CHR$(13)THEN590 600 FORI=1024TO2023:POKEI,32:NEXTI 605 PRINT"[152][215]HAT IS A TOPIC SENTENCE NOT?" 610 PRINTTAB(2)"1)[212]HE TOPIC SENTENCE[146] IS NOT ALWAYS THE FIRST "; 615 PRINT"SENTENCE IN A PARAGRAPH." 620 PRINTTAB(2)"2)[212]HE TOPIC SENTENCE[146] IS NOT THE SAME AS THE TITLE "; 625 PRINT"OF THE PARAGRAPH." 630 PRINTTAB(2)"3)[212]HE TOPIC SENTENCE[146] ISN'T A FRAGMENT; IT IS "; 635 PRINT"ALWAYS A COMPLETE SENTENCE." 640 PRINTTAB(2)"4)[212]HE TOPIC SENTENCE[146] IS NOT SEPARATED FROM "; 645 PRINT"THE REST OF THE PARAGRAPH." 669 PRINTTAB(11)"[158] [208]RESS [210]ETURN " 672 GOSUB8000 673 GETA$:IFA$=""THEN673 675 IFA$<>CHR$(13)THEN673 680 PRINT"TOPIC SENTENCE" 682 FORT=1TO2000:NEXTT 684 PRINT"TOPIC SENTENCE" 686 FORT=1TO2000:NEXTT 688 PRINT"TOPIC SENTENCE" 690 FORT=1TO2000:NEXTT 692 PRINT"TOPIC SENTENCE" 693 FORT=1TO2000:NEXTT 694 FORT=1TO500:NEXT:GOSUB8000 695 PRINTTAB(10)"[156] [208]RESS [198]1 " 700 GETA$:IFA$=""THEN700 705 IFA$<>"[133]"THEN700 710 PRINT"[147]":PRINT"[156] [204]ESSON 1 CONTINUED " 715 PRINT"[152][211]OME OF THE ITEMS BELOW ARE TOPICS AND SOME ARE TITLES."; 720 PRINT" [206]ONE IS A TOPIC SENTENCE! [211]TUDY THEM " 723 FORCT=1TO6 725 PRINT"CAREFULLY." 727 FORT=1TO300:NEXTT 728 PRINT"[156]CAREFULLY." 730 FORT=1TO300:NEXTT 735 NEXTCT 740 GOSUB5000 745 GOSUB8000 750 PRINTTAB(3)"[145][156] [208]RESS [211]PACE [194]AR [198]OR [193]NALYSIS " 755 GETA$:IFA$=""THEN755 760 IFA$<>CHR$(32)THEN755 765 PRINT" TOPIC " 767 FORT=1TO700:NEXTT 770 PRINT" TITLE " 775 FORT=1TO700:NEXTT 777 PRINT" TOPIC " 780 FORT=1TO700:NEXTT 785 PRINT" TITLE " 790 FORT=1TO700:NEXTT 795 PRINT" TOPIC " 800 FORT=1TO700:NEXTT 805 PRINT" TITLE " 810 FORT=1TO700:NEXTT 815 PRINT" TOPIC " 817 GOSUB8000 820 PRINT" [158] [208]RESS [210]ETURN [146] " 825 GETA$:IFA$=""THEN825 830 IFA$<>CHR$(13)THEN825 840 PRINT"[145]":FORCT=1TO920:PRINTCHR$(18);" ";:NEXTCT 850 FORT=1TO500:NEXTT 860 PRINT"":PRINTCHR$(142):GOSUB5000 861 POKE2040,13:FORN=0TO62:READQ:POKE832+N,Q:NEXT 862 V=53248:POKEV+21,1:POKEV+39,7:POKEV+29,1:POKEV+1,100 863 FORJ=0TO347:HY=INT(J/256):LY=J-256*HY 864 POKEV,LY:POKEV+16,HY:NEXT 865 GOSUB5000 866 PRINT"":FORI=1TO360:PRINTCHR$(18);" ";:NEXTI 868 GOSUB8000 870 PRINTTAB(5)"[156] PRESS F1 TO DECODE MESSAGE" 875 GETA$:IFA$=""THEN875 880 IFA$<>"[133]"THEN875 882 FORI=1544TO1583:POKEI,224:POKEI+54272,6:NEXTI 890 PRINTCHR$(14) 892 FORT=1TO2000:NEXTT:GOSUB8000 895 PRINTTAB(4)" [158] [208]RESS [211]PACE [194]AR [212]O [193]CCEPT [146] " 900 GETA$:IFA$=""THEN900 905 IFA$<>CHR$(32)THEN900 910 PRINT"[147]":PRINT"[145][156] [204]ESSON 1 CONTINUED " 915 PRINT"[152][199][207][207][196]! [206]OW THAT YOU ARE SERIOUS ABOUT LEARNING ABOUT THE "; 920 PRINT"TOPIC SENTENCE, LET'SLOOK AT A FEW EXAMPLES OF TOPIC SENTEN- CES:" 927 FORT=1TO2000:NEXTT 930 GOSUB5000 940 PRINT"[147]":PRINT" [204]ESSON 1 CONTINUED " 945 PRINT"[152][194]ASICALLY THERE ARE TWO PARTS TO A TOPICSENTENCE."; 950 PRINT"[212]HERE IS THE [156]MAIN STATEMENT[146][152] ANDTHERE IS THE CONTROLLING IDEA[146]." 955 PRINT"[155][212]HE CONTROLLING IDEA[146][155] IS THE MOST IMPOR- TANT PART OF THE "; 960 PRINT"TOPIC SENTENCE,FOR IT NARROWS OR LIMITS THE RANGE OF THE "; 965 PRINT"DIS- CUSSION AND LETS THE READER KNOW ON WHATSPECIFIC DETAIL(S) "; 970 PRINT"THE WRITER PLANS TO FOCUS." 975 PRINT"[151][212]HE CONTROLLING IDEA[146][151] MAY CONSIST OF ONE WORD OR IT "; 980 PRINT"MAY BE COMPOSED OF SEVERAL WORDS." 982 FORT=1TO8000:NEXT:GOSUB8000 985 PRINTTAB(11)"[158] [208]RESS [210]ETURN " 990 GETA$:IFA$=""THEN990 995 IFA$<>CHR$(13)THEN990 1000 PRINT"[147]":PRINT"[145][129] [204]ESSON 1 CONTINUED " 1005 PRINT"[155][204]ET'S EXAMINE THOSE SAME TOPIC SENTENCESAGAIN TO SEE "; 1010 PRINT"WHERE THE CONTROLLING IDEASARE." 1015 RESTORE:FORX=1TO79:READD$:NEXTX:GOSUB5000 1017 GOSUB8000 1020 PRINT"[145][208]RESS [211]PACE [194]AR [212]O [211]EE [195]ONTROLLING [201]DEAS[146] IN [215]HITE" 1025 GETA$:IFA$=""THEN1025 1030 IFA$<>CHR$(32)THEN1025 1035 FORI=55600TO55614:POKEI,1:FORT=1TO50:NEXTT:NEXTI 1040 FORT=1TO700:NEXTT:FORI=55681TO55716:POKEI,1:FORT=1TO50:NEXTT,I 1045 FORT=1TO700:NEXTT:FORI=55788TO55798:POKEI,1:FORT=1TO50:NEXTT,I 1050 FORT=1TO700:NEXTT:FORI=55917TO55949:POKEI,1:FORT=1TO50:NEXTT,I 1055 FORT=1TO700:NEXTT:FORI=56033TO56052:POKEI,1:FORT=1TO50:NEXTT,I 1057 GOSUB8000 1060 PRINT"[145][145] [158] [208]RESS [210]ETURN [146] " 1065 GETA$:IFA$=""THEN1065 1070 IFA$<>CHR$(13)THEN1065 1075 PRINT"[147]":PRINT"[145][159] [204]ESSON 1 CONTINUED " 1085 PRINT"[152][204]ET'S EXAMINE THE FIRST TOPIC SENTENCE IN MORE DETAIL:" 1090 PRINT" [156][200]ARLEY [211]INKWITCH IS A SLOPPY DRESSER." 1095 PRINT" [210]ESPOND TO THE FOLLOWING STATEMENTS ABOUT A POSSIBLE "; 1097 PRINT"PARAGRAPH BASED ON THISTOPIC SENTENCE BY PLACING A (+)[146] "; 1100 PRINT"FOR TRUEAND A (-)[146] FOR FALSE:" 1105 Z=3:GOSUB5100 1108 IFP=3THENGOTO1130 1110 IFP<>3THENPRINT"[147][212]HAT'S NOT GOOD ENOUGH!" 1115 PRINT" [208]LEASE TRY AGAIN " 1120 FORT=1TO2000:NEXTT:RESTORE:FORX=1TO85:READD$:NEXTX:P=0:GOTO1075 1130 PRINT"[147] [212]HAT IS PRETTY GOOD!"TAB(47)"[215]E'LL GO ON NOW..." 1135 FORT=1TO2000:NEXT:PRINT"[147]" 1140 PRINT"[145][156] [204]ESSON 1 CONTINUED " 1145 PRINT"[152][217]OU MUST HAVE GUESSED BY NOW THAT THE CONTROLLING IDEA[146] "; 1150 PRINT"(SLOPPY DRESSER)[146][156] LIMITSTHE PARAGRAPH'S DISCUSSION TO "; 1155 PRINT"ONLY THOSESPECIFIC DETAILS ABOUT [200]ARLEY'S SLOPPY APPEARANCE." 1160 PRINT"[159][193]NY OTHER IDEAS WOULD DESTROY THE UNITY[146][159] OR COHERENCE[146][159] "; 1165 PRINT"OF THE PARAGRAPH." 1170 PRINT"[152][193] GOOD WRITER WILL STICK TO THE CONTROL-LING IDEA OF THE "; 1175 PRINT"TOPIC SENTENCE." 1177 FORT=1TO8000:NEXTT:GOSUB8000 1180 PRINTTAB(11)"[158] [208]RESS [210]ETURN " 1185 GETA$:IFA$=""THEN1185 1190 IFA$<>CHR$(13)THEN1185 1200 PRINT"[147][145][154] [204]ESSON 1 CONTINUED " 1205 PRINT"[151][212]YPE IN A (Y)[146][151] IF THE SENTENCE WILL SUIT THE TOPIC "; 1210 PRINT"SENTENCE AND A (N)[146][151] IF IT WILL NOT."; 1212 PRINT"([200]ARLEY IS A SLOPPY DRESSER.)[146] 1215 Z[178]5:[141]5100 1220 [153]"LOADONLESSON 1 CONTINUED " 1225 [153]"POKE (null)ET'S LOOK AT AN ENTIRE PARAGRAPH BEGINNING WITH THE "; 1230 [153]"TOPIC SENTENCE WE'VE BEEN STUDYING." 1235 [141]5000 1240 [129]I[178]1664[164]1703:[151]I,160:[151]I[170]54272,5:[130]I 1245 [153]"PRINTSTR$O YOU SEE HOW THE CONTROLLING IDEAWAITPRINT GUIDES THE "; 1250 [153]"PARAGRAPH?" 1252 [129]T[178]1[164]5000:[130]T:[141]8000 1255 [153][163]11)"SYS (null)RESS (null)ETURN " 1260 [161]A$:[139]A$[178]""[167]1260 1265 [139]A$[179][177][199](13)[167]1260 1270 [153]"LOAD"[163]12)"ON (null)ESSON 2 " 1275 [153]"PRINT#(null)ET'S REVIEW WHAT WE HAVE LEARNED ABOUT THE TOPIC "; 1280 [153]"SENTENCE:" 1285 [153][163]2)"1)(null)HE TOPIC SENTENCE IS ALWAYS A COM- PLETE SENTENCE." 1290 [153][163]2)"2)(null)HE TOPIC SENTENCE, THOUGH USUALLY THE FIRST "; 1295 [153]"SENTENCE IN THE PARAGRAPH, MAYAPPEAR IN OTHER LOCATIONS." 1300 [153][163]2)"CLR3)ATN TOPIC SENTENCE MUST HAVE A CON- TROLLING IDEA "; 1305 [153]"WHICH NARROWS OR LIMITS THE TOPIC OF DISCUSSION." 1310 [153][163]2)"FOR4)(null)HE TOPIC SENTENCE IS NOT SEPARATED FROM THE REST "; 1315 [153]"OF THE PARAGRAPH." 1317 [129]T[178]1[164]8000:[130]T:[141]8000 1320 [153][163]11)"SYS (null)RESS (null)ETURN " 1325 [161]A$:[139]A$[178]""[167]1325 1330 [139]A$[179][177][199](13)[167]1325 1335 [153]"LOADON (null)OPIC (null)ENTENCE LENONTINUED " 1340 [153]"PRINT#(null)KAY! (null)ET'S LOOK AT ANOTHER OF OUR TOPICSENTENCE EXAMPLES."; 1345 [153]"(null)YPE A (Y)WAITPRINT# IF THE SEN-TENCE WILL GO WITH THE CONTROLLING IDEA "; 1350 [153]"AND A (N)WAITPRINT# IF IT WILL NOT FIT." 1355 [153]"(null)Y FRIEND PEEKETH IS A LOT OF FUN TO BE AROUND." 1360 Z[178]4:[141]5100 1365 [153]"LOADCLR (null)OPIC (null)ENTENCE LENONTINUED " 1370 [153]"PRINT#(null)OW WE WILL EXAMINE A SECOND PARAGRAPH IN ITS ENTIRETY:" 1375 [153]" (null)Y FRIEND PEEKETH IS A LOT OF FUN TO BE AROUND."; 1380 [153]"ASCOR ONE THING, SHE ALWAYS SEES THE BRIGHT SIDE OF LIFE."; 1385 [153]" (null)HE'S ALSO CREATIVE AND INVENTIVE AND SHE SHOWS US HOW TO HAVE "; 1390 [153]"A GOOD TIME ON LITTLE MONEY.PEEKESIDES THAT, SHE ALWAYS "; 1395 [153]"LOOKS OUT FOR THE OTHER PERSON. (null)HE CARES ABOUT OTHERSFIRST."; 1400 [153]"RIGHT$T'S NO WONDER PEEKETH IS SO POPULAR WITH EVERYONE AT SCHOOL!" 1402 [129]T[178]1[164]12000:[130]:[141]8000 1405 [153][163]11)"SYS (null)RESS (null)ETURN " 1410 [161]A$:[139]A$[178]""[167]1410 1415 [139]A$[179][177][199](13)[167]1410 1420 [129]I[178]1864[164]1903:[151]I,32:[151]I[170]54272,0:[130] 1425 [129]I[178]1704[164]1743:[151]I,160:[151]I[170]54272,5:[129]T[178]1[164]20:[130]T:[130]I 1426 [129]CT[178]1[164]5 1427 [153]" (null)LEASE (null)OTE " 1428 [129]T[178]1[164]250:[130]T 1429 [153]" (null)LEASE (null)OTE " 1430 [129]T[178]1[164]250:[130]T 1432 [130]CT 1434 [153]"CONTSTR$O YOU SEE HOW EVERY SENTENCE MUST REFERDIRECTLY TO THE "; 1435 [153]"CONTROLLING IDEA OF THE TOPIC SENTENCE?" 1437 [129]T[178]1[164]3000:[130]:[141]8000 1440 [153][163]11)"SYS (null)RESS (null)ETURN " 1445 [161]A$:[139]A$[178]""[167]1445 1450 [139]A$[179][177][199](13)[167]1445 1455 [129]I[178]1744[164]1903:[151]I,32:[151]I[170]54272,0:[130]I 1460 [153]"ONONONONONCLRRIGHT$F THE MAIN SENTENCES DO NOT RELATE TO THE CONTROLLING "; 1465 [153]"IDEA, THEY DO NOT BELONGIN THE PARAGRAPH!" 1467 [129]T[178]1[164]3000:[130]:[141]8000 1470 [161]A$:[139]A$[178]""[167]1470 1475 [139]A$[179][177][199](13)[167]1470 1480 [129]I[178]1744[164]1903:[151]I,32:[151]I[170]54272,0:[130]I 1485 [153]"ONONONFORATNS YOU CAN SEE HERE, EACH SENTENCE EX- PLAINS HOW OR WHY "; 1490 [153]"PEEKETH IS FUN TO BE AROUND." 1492 [129]T[178]1[164]3000:[130]:[141]8000 1495 [161]A$:[139]A$[178]""[167]1495 1500 [139]A$[179][177][199](13)[167]1495 1505 [129]I[178]1744[164]1903:[151]I,32:[151]I[170]54272,0:[130]I 1510 [153]"ONONONRIGHT$T JUST SO HAPPENS THAT THE TOPIC SEN- TENCE COMES "; 1515 [153]"FIRST IN THIS EXAMPLE.RIGHT$T MAYAPPEAR IN OTHER PLACES AS WELL." 1517 [129]T[178]1[164]3000:[130]:[141]8000 1520 [161]A$:[139]A$[178]""[167]1520 1525 [139]A$[179][177][199](13)[167]1520 1530 [153]"LOAD"[163]14)"ON (null)ESSON 2 " 1535 [153]" (null)ARROWING THE TOPIC " 1540 [153][163]3)"PRINT#(null)OW THAT WE KNOW WHAT A TOPIC SEN- TENCE "; 1545 [153]"IS AND HOW THE CONTROLLING IDEA GUIDES THE "; 1550 [153]"PARAGRAPH. (null)ET'S SEE HOW TO NARROW A TOPIC TO "; 1555 [153]"A SUITABLE LENGTH--IN THIS CASE--PARAGRAPH LENGTH." 1560 [129]T[178]1[164]4000:[130]T:[153][163]11)"SYS (null)RESS (null)ETURN ":[141]8000 1565 [161]A$:[139]A$[178]""[167]1565 1570 [139]A$[179][177][199](13)[167]1565 1575 [129]I[178]1[164]440 [169]40:A[178]1064[170]I:B[178]1102[170]I:[151]A,160:[151]A[170]54272,6 1576 [151]B,160:[151]B[170]54272,6:[130]I 1577 [129]I[178]1465[164]1503:[151]I,160:[151]I[170]54272,6:[130] 1580 [129]T[178]1[164]3000:[130]:[141]8000 1585 [161]A$:[139]A$[178]""[167]1585 1587 [129]I[178]1864[164]1903:[151]I,160:[151]I[170]54272,0:[130] 1590 [129]I[178]1[164]39:A[178]1544[170]I:B[178]1904[170]I:[151]A,160:[151]A[170]54272,4 1595 [151]B,160:[151]B[170]54272,4:[130]I 1600 [129]I[178]1[164]400[169]40:A[178]1544[170]I:B[178]1582[170]I:[151]A,160:[151]A[170]54272,4 1605 [151]B,160:[151]B[170]54272,4:[130]I 1610 [153][163]3)"ONONONONONCLR(null)E WILL USE THE CONTROLLING IDEA TO" 1620 [153][163]3)"NARROW THE TOPIC SUFFICIENTLY FOR A" 1625 [153][163]3)"SINGLE PARAGRAPH." 1630 [129]T[178]1[164]3000:[130]T:[141]8000 1640 [153][163]12)"SYS (null)RESS (null)ETURN " 1645 [161]A$:[139]A$[178]""[167]1645 1650 [139]A$[179][177][199](13)[167]1645 1655 [153]"LOAD"[163]8)" (null)ARROWING (null)HE (null)OPIC" 1660 [153]"PRINT# (null)OTICE THAT THE FOLLOWING TOPIC SEN- TENCES MAY INVOLVE "; 1665 [153]"PAPERS OF DIFFERENT LENGTHS. ATNS YOU EXAMINE EACH SENTENCE, "; 1670 [153]" ASK YOURSELF WHAT SIZE PAPER WOULD FIT EACH ONE." 1675 [129]T[178]1[164]5000:[130]T:[141]5000 1680 [129]T[178]1[164]6000:[130]:[141]8000 1685 [153][163]4)"DEF (null)RESS (null)PACE PEEKAR ASCOR ATNNALYSIS " 1690 [161]A$:[139]A$[178]""[167]1690 1695 [139]A$[179][177][199](32)[167]1690 1700 [153]"^(SEVERAL PAGES)" 1705 [129]T[178]1[164]1000:[130]T:[153]"^(1TO3 PARAGRAPHS)" 1710 [129]T[178]1[164]1000:[130]T:[153]"^(A BOOK)" 1715 [129]T[178]1[164]1000:[130]T:[153]"^(A SINGLE PARAGRAPH)" 1717 [129]T[178]1[164]4000:[130]T:[141]8000 1720 [153]" SYS (null)RESS (null)ETURN WAIT " 1725 [161]A$:[139]A$[178]""[167]1725 1730 [139]A$[179][177][199](13)[167]1725 1740 [153]"LOAD"[163]8)" (null)ARROWING (null)HE (null)OPIC " 1745 [153]"PRINT#(null)EAD EACH TOPIC SENTENCE AND PLACE A (P)WAITPRINT#FOR PARAGRAPH "; 1750 [153]"LENGTH OR AN (M)WAITPRINT# FOR MORE THAN A PARAGRAPH." 1755 Z[178]5:[141]5100 1760 [153]"LOAD"[163]13)"CLR (null)UMMARY " 1765 [153]"(null)OU CAN SEE NOW THAT A GOOD PARAGRAPH BEGINS WITH A GOOD "; 1770 [153]"TOPIC SENTENCE WHICH CONTAINS A SUFFICIENTLY NARROWED "; 1775 [153]"CON- TROLLING IDEA." 1780 [153]"FOR(null)OU CAN AS WELL OBSERVE THAT A GOOD WRITER WILL STICK TO "; 1785 [153]"THE CONTROLLING IDEA SO THAT THE PARAGRAPH WILL BE CO- HERENT "; 1790 [153]"OR UNIFIED." 1795 [153]"ASCINALLY, YOU CAN SEE THAT THE BEGINNING WRITER WILL FIND "; 1800 [153]"IT EASIER TO PLACE THE TOPIC SENTENCE AT THE BEGINNING OF "; 1805 [153]"THE PARAGRAPH." 1810 [153]"OPEN(null)RY TO REMEMBER THESE POINTS THE NEXT TIME YOU WRITE A PARAGRAPH."; 1815 [153]"(null)HEY COULD COME IN QUITE HANDY." 1817 [129]T[178]1[164]10000:[130]T:[141]8000 1820 [153][163]11)"SYS (null)RESS (null)ETURN " 1825 [161]A$:[139]A$[178]""[167]1825 1830 [139]A$[179][177][199](13)[167]1825 1831 [153]"LOAD":[153][163]10)" BREAKDOWN " 1832 [153]"YOUR SCORE WAS ";P"WAIT!" 1833 [153]"17 = EXCELLENT/OUTSTANDING" 1834 [153]"CLR16 = VERY GOOD" 1835 [153]"FOR15 = GOOD/ACCEPTABLE" 1836 [153]"CONT14 OR BELOW REQUIRES REVISION" 1837 [153][163]11)"SYS PRESS RETURN " 1838 [161]A$:[139]A$[178]""[167]1838 1839 [139]A$[179][177][199](13)[167]1838 1840 [153]"LOAD":[151]53272,21:[153][163]13)"ON OPTIONS ":[129]T[178]1[164]1000:[130]T 1841 [129]I[178]1081[164]1281[169]40:[151]I,160:[151]I[170]54272,4:[129]T[178]1[164]25:[130]T:[130]I 1842 [129]I[178]1204[164]1282[169]39:[151]I,78:[151]I[170]54272,4:[130] 1843 [129]I[178]1198[164]1280[169]41:[151]I,77:[151]I[170]54272,4:[130] 1844 [129]I[178]1304[164]1343:[151]I,160:[151]I[170]54272,13:[130]I 1845 [129]I[178]1343[164]1743[169]40:[151]I,160:[151]I[170]54272,13:[130] 1850 [129]I[178]1743[164]1704[169][171]1:[151]I,160:[151]I[170]54272,13:[130] 1855 [129]I[178]1704[164]1304[169][171]40:[151]I,160:[151]I[170]54272,13:[130] 1860 [153][163]5)"F1WAIT = REPEAT TUTORIAL" 1865 [153][163]5)"CLRF3WAIT = ASSIGNMENT" 1870 [153][163]5)"FORF5WAIT = QUIT PROGRAM" 1875 [153]"SYS CHOOSE ONE " 1880 [129]T[178]1[164]150:[130]T 1885 [153]"SYS CHOOSE ONE " 1890 [129]T[178]1[164]150:[130]T 1895 [161]A$:[139]A$[178]""[167]1875 1900 [139]A$[179][177]"INPUT"[175]A$[179][177]"DIM"[175]A$[179][177]"READ"[167]1875 1905 [139]A$[178]"INPUT"[167][137]95 1910 [139]A$[178]"DIM"[167][137]2000 1920 [139]A$[178]"READ"[167][153]"LOAD THANK YOU FOR USING THIS PROGRAM!" 1930 [128] 2000 [153]"LOAD"[163]11)"CLR ASSIGNMENT " 2005 [153]"PRINT#1)WRITE OUT THREE TOPIC SENTENCES FOR A DESCRIPTION OF "; 2010 [153]"YOUR ROOM AT HOME." 2015 [153]"2)CHOOSE ONE OF THOSE TOPIC SENTENCES AND WRITE A 100-150 "; 2020 [153]"WORD PARAGRAPH." 2025 [153][163]11)"SYS PRESS RETURN " 2030 [161]A$:[139]A$[178]""[167]2030 2035 [139]A$[179][177][199](13)[167]2030 2040 [153]"ONBE SURE TO COPY DOWN THE ASSIGNMENT BEFORE YOU TURN OFF THE "; 2045 [153]"COMPUTER." 2050 [153]"HAVE A NICE DAY!":[128] 4999 [144] 5000 [135]D$ 5010 [139]D$[178]"STOP"[167][137]5050 5015 [139]D$[178]"RETURN"[167][142] 5020 [129]I[178]1[164][195](D$) 5030 [153][202](D$,I,1) ; 5040 [129]T[178]1[164]50:[130]T,I 5045 [153] 5047 [137]5000 5050 [153][163]11)"SYS (null)RESS (null)ETURN " 5052 [141]8000 5055 [161]A$:[139]A$[178]""[167]5055 5060 [139]A$[179][177][199](13)[167]5055 5065 [142] 5100 [129]L[178]1[164]Z 5110 [135]D$,D1$ 5120 [153]D$ 5130 [133]R$:[139]R$[178]D1$[167][141]7000:[153]"ONLENORRECT!":P[178]P[170]1 5135 [139]R$[179][177]D1$[167][141]7500:[153]"ON(null)RONG! LENORRECT ANSWER=(";D1$")" 5140 [130]L 5143 [153]"(null)OUR TOTAL SCORE="P 5144 [129]T[178]1[164]1000:[130]T:[141]8000 5145 [153][163]11)"SYS (null)RESS (null)ETURN " 5150 [161]A$:[139]A$[178]""[167]5150 5155 [139]A$[179][177][199](13)[167]5150 5160 [142] 6000 [131]"1)LENARS...","CONT2)LEFT$OW (null)O (null)AKE ASCRIENDS...","PRINT3)(null)EBUILDING ENGINES..." 6010 [131]"FOR4)(null)Y PEEKEST ASCRIEND...","5)(null)AKING MONEY..." 6015 [131]"DEF6)(null)UR (null)TRANGE (null)ISITOR...","CLR7)LENATCHING FISH...","STOP" 6020 [131]" MESSAGE NOW COMING IN FROM THE OUTER" 6025 [131]"REACHES OF THE ENGLISH EMPIRE.STANDBY" 6030 [131]"FOR DECODING:","RETURN" 6031 [131]32,0,0,48,0,0,56,0,0,60,0,0,63,0,0,33,0,0,33,248,0,63,255,128 6032 [131]33,248,0,33,0,0,63,0,0,60,0,0,56,0,0,32,0,0,0,0,0,0,0,0,0,0 6033 [131]0,0,0,0,0,0,0,0,0,0,0,0,0 6040 [131]"(null)(null)(null)CLOSELEFT$ATN(null)VALCLOSEPEEKVALVAL(null)CLOSELENLEFT$(null)(null)VAL(null)CLOSE(null)(null)CLOSEVAL(null)PEEKATN(null)(null)CLOSE(null)(null)(null)(null) ATN" 6045 [131]"(null)(null)VALLENRIGHT$ATN(null)CLOSE(null)RIGHT$(null)(null)RIGHT$(null)(null).(null)(null)(null)CLOSE(null)(null)(null)(null)CLOSEASCRIGHT$(null)(null)(null)CLOSE(null)VALATN(null)(null)" 6050 [131]"ONATNPEEK(null)(null)(null)CLOSE(null)LEFT$VALCLOSE(null)(null)(null)RIGHT$LENCLOSE(null)VAL(null)(null)VAL(null)LENVAL.","RETURN" 6055 [131]"1)LEFT$ARLEY (null)INKWITCH IS A SLOPPY DRESSER." 6060 [131]"2)(null)Y BEST FRIEND PEEKETH IS A LOT OF FUN TO BE AROUND." 6065 [131]"FOR3)(null)HERE ARE FOUR STEPS TO KNOW ABOUT CHANGING A FLAT TIRE." 6070 [131]"CONT4)RIGHT$ CAN STILL RECALL MY MOST EMBARRAS- SING MOMENT." 6075 [131]"OPEN5)(null)UR HOUSE IS A (null)ICTORIAN REPLICA.","STOP" 6080 [131]"CONT1)(null)HE PARAGRAPH WOULD BE ALL ABOUT LEFT$ARLEY.","-" 6085 [131]"2)(null)HE PARAGRAPH MIGHT DISCUSS HIS APPEARANCE.","+" 6090 [131]"3)(null)HE PARAGRAPH COULD DISCUSS HIS LOVE FOR DOGS.","-" 6100 [131]"1)LEFT$IS SHIRT IS RARELY BUTTONED PROPERLY.","Y" 6105 [131]"2)LEFT$IS ROOM IS USUALLY UNTIDY","N" 6110 [131]"FOR3)LEFT$ARLEY'S SOCKS ARE NEVER MATED.","Y" 6120 [131]"CLR4)LEFT$IS SHOES HAVE NOT HAD ACQUAINTANCE WITH POLISH FOR SOME TIME." 6125 [131]"Y","PRINT5)LEFT$ARLEY CANNOT SEEM TO GET TO CLASS ON TIME.","N" 6150 [131]" LEFT$ARLEY (null)INKWITCH IS A SLOPPY DRESSER." 6155 [131]"LEFT$IS SHIRT IS RARELY BUTTONED PROPERLY." 6160 [131]"(null)NE PANT LEG USUALLY HANGS DOWN LOWER" 6165 [131] "THAN THE OTHER ONE. LEFT$IS SOCKS ARE RARELY" 6170 [131]"ONMATED. LEFT$IS SHOES HAVE NOT BEEN POLISHED" 6175 [131] "FOR SOME TIME.(null)OOR LEFT$ARLEY IS TRULY A MESS!","STOP" 6180 [131]"CLR1)(null)HE MAKES EVERYTHING SEEM INTERESTING.","Y" 6185 [131]"2)(null)HE SHOWS US THE HUMOROUS SIDE OF LIFE.ON","Y" 6190 [131]"OPEN3)PEEKETH IS A VERY TIDY PERSON.","N" 6195 [131]"FOR4)(null)HE IS CAREFUL ABOUT HOW SHE DRESSES.","N" 6200 [131]"CLR1)(null)PORTS CARS CAN BE FUN." 6210 [131]"2)(null)HERE ARE THREE THINGS RIGHT$ LIKE ABOUT BASKETBALL." 6220 [131]"FOR3)ATNDOLPH LEFT$ITLER WAS AN INTERESTING MAN." 6230 [131]"4)(null)Y BEDROOM WINDOW VIEW REVEALS A NATURAL WONDERLAND." 6235 [131]"RETURN" 6240 [131]"FOR1)(null)ANDY HAS AN OUTGOING PERSONALITY.","P" 6245 [131]"2)(null)ET'S DISCUSS LIONS.","M" 6250 [131]"CLR3)PEEKABIES REQUIRE SPECIAL TREATMENT.","M" 6255 [131]"OPEN4)(null)OMETIMES PETS SEEM LIKE PEOPLE.","P" 6260 [131]"PRINT5)(null)AISING A BEAR CAN BE QUITE A TASK!","M" 7000 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130] 7010 [151]S[170]24,15:[151]S[170]5,42:[151]S[170]6,250 7020 [151]S[170]4,33:[151]S[170]1,23:[151]S,181 7030 [129]T[178]1[164]200:[130]:[151]S[170]4,32:[129]T[178]1[164]500:[130] 7040 [142] 7500 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130] 7510 [151]S[170]24,15:[151]S[170]5,18:[151]S[170]6,242 7520 [151]S[170]4,33:[151]S[170]1,4:[151]S,48 7530 [129]T[178]1[164]300:[130]:[151]S[170]4,32:[129]T[178]1[164]800:[130] 7540 [142] 8000 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130] 8010 [151]S[170]24,15:[151]S[170]5,42:[151]S[170]6,181 8020 [151]S[170]4,17:[151]S[170]1,20:[151]S,181 8030 [129]T[178]1[164]200:[130]:[151]S[170]4,25:[129]T[178]1[164]200:[130] 8040 [142]