home *** CD-ROM | disk | FTP | other *** search
- 1 PRINT"[147]"
- 2 POKE53280,0:POKE53281,0:POKE646,7
- 3 PRINTCHR$(14):GOTO 2500
- 5 RESTORE:PRINTCHR$(142)
- 15 GOTO80
- 20 LL=LL+5
- 25 FORII=1TO(25-LL)
- 26 IFLL=25THENGOTO40
- 30 READZ1$,Z2$:NEXT
- 40 GOSUB6200
- 45 FORII=1TOLL:READZ1$,Z2$:NEXT
- 50 RETURN
- 80 PRINT"[147]":POKE53281,0:POKE53280,0:POKE646,1
- 100 FORI=1024TO1063:POKEI,102:POKEI+54272,7:NEXT
- 110 FORI=1063TO1623STEP40:POKEI,102:POKEI+54272,7:NEXT
- 120 FORI=1623TO1584STEP-1:POKEI,102:POKEI+54272,7:NEXT
- 130 FORI=1584TO1024STEP-40:POKEI,102:POKEI+54272,7:NEXT
- 140 PRINTTAB(9)"[156]THE SIMPLE SENTENCE"
- 145 PRINTTAB(10)"[129]A BASIC TUTORIAL
- 147 [153][163]13)"SYSINCLUDING
- 150 PRINTTAB(9)"LESSONS AND QUIZES
- 151 [129]I[178]1065[164]1102:[151]I,102:[151]I[170]54272,8:[130]
- 152 [129]I[178]1102[164]1582[169]40:[151]I,102:[151]I[170]54272,8:[130]
- 153 [129]I[178]1582[164]1545[169][171]1:[151]I,102:[151]I[170]54272,8:[130]
- 154 [129]I[178]1545[164]1065[169][171]40:[151]I,102:[151]I[170]54272,8:[130]
- 155 [129]I[178]1112[164]1132:[151]I,100:[151]I[170]54272,1:[130]
- 156 [129]I[178]1172[164]1252[169]40:[151]I,103:[151]I[170]54272,1:[130]
- 157 [129]I[178]1292[164]1272[169][171]1:[151]I,99:[151]I[170]54272,1:[130]
- 158 [129]I[178]1232[164]1152[169][171]40:[151]I,101:[151]I[170]54272,1:[130]
- 160 [153][163]9)"SYS PLEASE PRESS RETURN "
- 165 [161]A$:[139]A$[178]""[167] 165
- 168 [139]A$[179][177][199](13)[167]165
- 170 [151]53272,23:[141] 3000
- 180 [153]"LOAD"
- 190 [153][163]5)"ONOPEN CLRLESSON 1OPEN "
- 200 [153]"CONT(null)BJECTIVES:"
- 205 [153]"CLR (null)HE STUDENT WILL BE ABLE TO..."
- 210 [153]"1)(null)OINT OUT THE DIFFERENCE BETWEEN A"
- 212 [153]"COMPLETE SENTENCE AND A FRAGMENT."
- 214 [153]"2)RIGHT$DENTIFY A SIMPLE SENTENCE WITH A"
- 216 [153]"COMPOUND SUBJECT OR COMPOUND PREDICATE."
- 220 [153]"3)RIGHT$DENTIFY THE FOUR BASIC SIMPLE
- 222 PRINT"SENTENCES: A)DECLARATIVE B)IMPERATIVE"
- 225 PRINT"C)EXCLAMATORY D)INTERROGATIVE"
- 230 PRINTTAB(9)"PRESS RETURN"
- 240 GETA$:IFA$=""THEN240
- 245 IFA$<>CHR$(13)THEN240
- 250 PRINT"[147]":PRINT"[154]LESSON CONTINUED"
- 260 PRINT"[196]EFINITION OF A SIMPLE SENTENCE."
- 270 PRINT"[129]A)[193] SIMPLE SENTENCE IS A GROUP OF WORDS";
- 275 PRINT" WHICH CONTAINS A SUBJECT AND A PREDICATE";
- 280 PRINT"AND WHICH EXPRESSES A COMPLETE[146] THOUGHT."
- 290 PRINT"B) [193] SIMPLE SENTENCE BEGINS WITH A ";
- 300 PRINT" CAPITAL LETTER AND ENDS WITH A PUNCTUATION ";
- 310 PRINT"MARK."
- 320 PRINT"[156]C)[193] SIMPLE SUBJECT (PERSON,PLACE OR THING)";
- 325 PRINT" IS WHAT IS BEING DESCRIBED IN THESENTENCE."
- 330 PRINT"[158]D)[193] SIMPLE PREDICATE (VERB) IS WHAT SAYS";
- 335 PRINT"SOMETHING ABOUT THE SUBJECT."
- 340 PRINTTAB(11)"PRESS RETURN"
- 345 GETA$:IFA$=""THEN345
- 350 IFA$<>CHR$(13)THEN345
- 355 PRINT"[147]":PRINT"[145][153]LESSON CONTINUED "
- 360 PRINT"[159][200]ERE ARE EXAMPLES OF SIMPLE SENTENCES. ";
- 365 PRINT" [206]OTICE THAT THE SUBJECT IS EMPHASIZED IN ";
- 370 PRINT"BLUE[159], WHILE THE PREDICATE IS IN GREEN.[158]"
- 380 PRINT"1)[215]E[158] DROVE[158] TO TOWN."
- 390 PRINT"2)[200]E IS[158] THE MAN."
- 400 PRINT"3)[212]HE BIRDS FLY[158] SOUTH."
- 410 PRINT"4)[212]HEY WAITED[158] ON THE BRIDGE."
- 420 PRINT"5)[212]HE CLOCK TICKS[158] LOUDLY."
- 430 PRINT"6)[202]OHN ARRIVED[158] ON TIME."
- 440 PRINT"7)[201]S[158] YOUR FATHER[158] HERE?"
- 450 PRINT"8)[212]HAT SMALL CAR IS[158] MINE."
- 460 PRINTTAB(11)"PRESS RETURN"
- 470 GETA$:IFA$=""THEN470
- 480 IF A$<>CHR$(13)THEN470
- 490 PRINT"[147]":PRINTTAB(12)"[145] [209]UIZ 1 "
- 500 PRINT"[193]FTER EACH SENTENCE APPEARS,TYPE IN";
- 510 PRINT" THE SUBJECT AND PRESS RETURN."
- 520 GOSUB4000
- 530 PRINT"[147]":PRINTTAB(12)"[145]QUIZ 2"
- 540 PRINT"[156][201]NSTRUCTIONS:[193]FTER EACH SENTENCE APPEARS";
- 550 PRINT"TYPE IN THE PREDICATE (VERB).[158]"
- 560 GOSUB4000
- 570 PRINT"[147]":PRINTTAB(11)"[145]LESSON 2 "
- 580 PRINT"[158][212]HERE ARE FOUR MAIN TYPES OF SENTENCES."
- 590 PRINT"[156]1)[193] DECLARATIVE SENTENCE MAKES A STATE-"
- 600 PRINT"MENT."
- 610 PRINT"EXAMPLE: [215]E WENT TO THE STORE."
- 620 PRINT"[129]2)[193]N IMPERATIVE SENTENCE GIVES A"
- 625 PRINT"COMMAND."
- 630 PRINT"EXAMPLE: [208]LEASE SAY THAT AGAIN."
- 640 PRINT"3)[193]N INTERROGATIVE SENTENCE ASKS A"
- 645 PRINT"QUESTION."
- 650 PRINT"EXAMPLE: [196]O YOU KNOW HIM?"
- 660 PRINT"4)[193]N EXCLAMATORY SENTENCE EXPRESSES"
- 665 PRINT"STRONG FEELING."
- 670 PRINT"EXAMPLE: [201] WILL NEVER GO AGAIN!"
- 680 PRINTTAB(9)"[158]PLEASE PRESS RETURN "
- 690 GETA$:IFA$=""THEN690
- 700 IFA$<>CHR$(13)THEN690
- 710 PRINT"[147]":PRINTTAB(13)"[145]QUIZ 3 "
- 720 PRINT"[156][201]NSTRUCTIONS:[152][193]FTER EACH SENTENCE TYPE IN";
- 730 PRINT"THE APPROPRIATE NUMBER:"
- 740 PRINT"[129]1=IMPERATIVE 3=INTERROGATIVE"
- 750 PRINT"[156]2=DECLARATIVE 4=EXCLAMATORY[158]"
- 760 GOSUB4000
- 770 PRINT"[147]":PRINTTAB(12)"[145][150]LESSON 3 "
- 780 PRINT"[193] CONJUNCTION IS A PART OF SPEECH";
- 790 PRINT" WHICH CONNECTS (JOINS) WORDS OR GROUPS OF";
- 800 PRINT" WORDS."
- 810 PRINT"[158][212]HE MOST COMMON ONES ARE AND,BUT,OR,";
- 820 PRINT"NOR,EITHER AND NEITHER."
- 830 PRINT"[193] COMPOUND SUBJECT CONSISTS OF TWO OR";
- 840 PRINT" MORE CONNECTED NOUNS."
- 850 PRINT"EXAMPLE:[202]OHN AND [205]ARY"
- 860 PRINT"[193] COMPOUND PREDICATE (VERB) CONSISTS OF";
- 870 PRINT" TWO OR MORE CONNECTED VERBS."
- 880 PRINT"[158]EXAMPLE:SKIPPED AND HOPPED"
- 890 PRINT"[151][193] SIMPLE SENTENCE MAY HAVE BOTH A";
- 900 PRINT" COM- POUND SUBJECT AND A COMPOUND PREDICATE."
- 910 PRINTTAB(11)"[158]PRESS RETURN "
- 915 GETA$:IFA$=""THEN915
- 920 IFA$<>CHR$(13)THEN915
- 930 PRINT"[147]":PRINTTAB(12)"[145] QUIZ 4 "
- 940 PRINT"[201]NSTRUCTIONS:[152][193]FTER EACH SENTENCE APPEARS";
- 945 PRINT"ENTER THE APPROPRIATE NUMBER:"
- 946 PRINT"[129]1)COMPOUND SUBJECT [156]2)COMPOUND PREDICATE";
- 947 PRINT" 3)COMPOUND SUBJECT/COMPOUND PREDICATE[153]"
- 950 PRINT:GOSUB4000
- 960 PRINT"[147]":PRINTTAB(12)"[145][156]LESSON 5 "
- 970 PRINT"[193] SENTENCE FRAGMENT IS NOT A COMPLETE ";
- 975 PRINT"SENTENCE BECAUSE IT LACKS EITHER A SUBJECT,";
- 980 PRINT"A PREDICATE, OR BOTH."
- 990 PRINT"[211]TUDY THE FOLLOWING FRAGMENTS:"
- 1000 PRINT"1)FOUND THEIR HOUSE."
- 1010 PRINT"2)MY FRIEND [194]ILL AND [201]."
- 1020 PRINT"3)THE OTHER DAY.."
- 1030 PRINT"4)RAN TO THE STORE QUICKLY.."
- 1040 PRINT"5)THE MAN WHO CAME TODAY.."
- 1050 PRINT"[158][197]ACH SENTENCE PART IS LACKING A VITAL ";
- 1060 PRINT" ELEMENT. [195]AN YOU SEE WHAT IS MISSING?"
- 1070 PRINT"PRESS SPACE BAR TO SEE WHAT IS MISSING"
- 1080 GETA$:IFA$=""THEN1080
- 1090 IFA$<>CHR$(32)THEN1080
- 1100 PRINT"":PRINTTAB(25)"(SUBJECT)" :FORT=1TO1000:NEXT
- 1110 PRINTTAB(25)"(PREDICATE)":FORT=1TO1000:NEXT
- 1120 PRINTTAB(17)"(SUBJECT AND PREDICATE)":FORT=1TO1000:NEXT
- 1130 PRINTTAB(27)"(SUBJECT)":FORT=1TO1000:NEXT
- 1140 PRINTTAB(26)"(PREDICATE)" :FORT=1TO2000:NEXT
- 1150 PRINT"[158] PRESS RETURN "
- 1152 FORW=1TO200:NEXTW
- 1153 PRINT" PRESS RETURN ";
- 1155 FORW=1TO200:NEXTW
- 1160 GETA$:IFA$=""THEN1150
- 1180 IFA$<>CHR$(13)THEN1150
- 1190 PRINT"[147]":PRINTTAB(12)"[145][153]QUIZ 5 "
- 1200 PRINT"[201]NSTRUCTIONS:[152][195]HOOSE THE CORRECT LETTER";
- 1210 PRINT" OF THE MISSING ELEMENT.
- 1220 [153]"A)SUBJECT"
- 1230 [153]"B)PREDICATE ";
- 1240 [153]"C)SUBJECT AND PREDICATE"
- 1250 [141]4000
- 1260 [153]"LOAD":[153]"SYS(null)HANK YOU ";N$;" FOR USING THIS LESSON."
- 1270 [153]"(null)OUR SCORE IS ";P
- 1280 [153]"PEEKREAKDOWN:"
- 1285 [153]"24-25 = EXCELLENT
- 1290 PRINT"21-23 = VERY GOOD
- 1295 [153]"19-20 = GOOD
- 1300 PRINT"17-18 = OKAY
- 1400 [153]"BELOW 17 INDICATES REVISIONWAIT REQUIRED!"
- 1410 [153][163]9)"PRESS RETURN FOR OPTIONS"
- 1420 [161]A$:[139]A$[178]""[167]1420
- 1430 [139]A$[179][177][199](13)[167]1420
- 1440 [153]"LOAD":[153][163]13)"ON(null)PTIONS "
- 1450 [153]"(null)=RUN THE PROGRAM AGAIN"
- 1455 [153]"ATN=ASSIGNMENT"
- 1460 [153]"(null)=QUIT THE PROGRAM"
- 1470 [153]:[153]"LENHOICE";:[133]A$:[139]A$[179][177]"R"[175]A$[179][177]"Q"[175]A$[179][177]"A"[167][137]1470
- 1480 [139]A$[178]"R"[167]:[137]5
- 1485 [139]A$[178]"A"[167][137]2900
- 1490 [139]A$[178]"Q"[167][153]"(null)HANK YOU ";N$;" FOR USING THIS PROGRAM."
- 1500 [153]"CLR(null)O LOAD (null)HE LENOMPOUND (null)ENTENCE, JUST TYPE";
- 1505 [153]"NEW, PUSH RETURN AND LOAD THE COMPOUND SENTENCE.
- 1510 END
- 1999 STOP
- 2000 REM ** RESPONSE SUBROUTINE**
- 2010 INPUTR$:IFR$<>S$THENPRINT"[215]RONG.[195]ORRECT ANSWER IS ";S$:GOSUB6100:RETURN
- 2020 IFR$=S$THENPRINT"[195]ORRECT!":P=P+1:GOSUB6000:RETURN
- 2500 PRINT"[147]":POKE53280,0:POKE53281,0:POKE646,7
- 2510 FORI=1304TO1343:POKEI,102:POKEI+54272,4:NEXT
- 2520 FORI=1343TO1743STEP40:POKEI,102:POKEI+54272,4:NEXT
- 2530 FORI=1743TO1704STEP-1:POKEI,102:POKEI+54272,4:NEXT
- 2540 FORI=1704TO1304STEP-40:POKEI,102:POKEI+54272,4:NEXT
- 2550 PRINTTAB(8)"[198]1=[211]TUDENT [201]NSTRUCTIONS"
- 2560 PRINTTAB(8)"[198]3=[212]EACHER [201]NSTRUCTIONS"
- 2570 PRINTTAB(8)"[198]5=[195]OMPOUND [212]UTORIAL"
- 2580 PRINTTAB(5)"[152][201]S SOUND TURNED ON?"
- 2585 GETA$:IFA$=""THEN2585
- 2587 IFA$<>"[133]"ANDA$<>"[134]"ANDA$<>"[135]"THEN2585
- 2590 IFA$="[133]"THENGOTO2700
- 2595 IFA$="[134]"THENGOTO2800
- 2600 IFA$="[135]"THENGOTO5
- 2610 PRINTTAB(6)" PRESS RETURN TO CONTINUE "
- 2615 GETA$:IFA$=""THEN2615
- 2620 IFA$<>CHR$(13)THEN2615
- 2625 RETURN
- 2700 PRINT"[147][145]"TAB(8)" [211]TUDENT [201]NSTRUCTIONS "
- 2705 PRINT"[152] [212]HIS PROGRAM IS BASICALLY SELF EXPLANATORY.";
- 2710 PRINT" [212]HERE IS ONE THING THE STUDENT SHOULD KNOW, AND THAT ";
- 2715 PRINT"IS THAT WHEN CALLED UPON TO TYPE A RESPONSE FROMA SENTENCE,";
- 2720 PRINT" THE STUDENT MUST TYPE THE WORD EXACTLY AS IT APPEARS IN ";
- 2725 PRINT"THE SEN- TENCE."
- 2730 PRINTTAB(12)"[158] PRESS RETURN "
- 2735 GETA$:IFA$=""THEN2735
- 2740 GOTO5
- 2800 PRINT"[147][145]"TAB(8)"[129] [212]EACHER [201]NSTRUCTIONS "
- 2805 PRINT"[152][212]HE SENTENCES IN THIS TUTORIAL MAY BE ALTERED ";
- 2810 PRINT"SIMPLY BY CHANGING THE DATA STATEMENTS AT THE END OF THE ";
- 2815 PRINT"PROGRAM."
- 2820 PRINT"[154][212]HE LESSON INCLUDES AN OPTIONAL ASSIGN- MENT AT ";
- 2825 PRINT"THE END."
- 2830 PRINT"[159][212]HIS PROGRAM IS DESIGNED FOR THE COLOR MONITOR."
- 2840 PRINTTAB(11)"[158] PRESS RETURN "
- 2845 GETA$:IFA$=""THEN2845
- 2850 IFA$<>CHR$(13)THEN2845
- 2855 GOTO5
- 2900 PRINT"[147][145]"TAB(11)" [193]SSIGNMENT "
- 2910 PRINT"[152][195]HOOSE ONE OF THE FOLLOWING:"
- 2915 PRINTTAB(3)"[156]1) [195]OPY FROM A MAGAZINE OR NEWSPAPER FIVE SIMPLE ";
- 2920 PRINT"SENTENCES WITH COMPOUND SUBJECTS AND FIVE SIMPLE SENTENCES ";
- 2925 PRINT"WITH COMPOUND PREDICATES. ";
- 2930 PRINT" UNDERLINE THE SUBJECTS ONCE AND THE PREDICATES TWICE."
- 2940 PRINTTAB(3)"[153]2)[195]REATE TEN SIMPLE SENTENCES, FIVE WITH COMPOUND ";
- 2945 PRINT"PREDICATES AND FIVE WITH COMPOUND SUBJECTS.";
- 2950 PRINT"UNDERLINE THE SUBJECTSONCE AND THE PREDICATES TWICE."
- 2960 PRINTTAB(10)"[158] PRESS RETURN "
- 2965 GETA$:IFA$=""THEN2965
- 2970 IFA$<>CHR$(13)THEN2965
- 2975 GOTO 1440
- 2999 STOP
- 3000 PRINT"[147][154][215]HY, HELLO THERE FRIEND!"
- 3010 PRINT"[200]OW ARE YOU TODAY?"
- 3020 PRINT"[215]ELCOME TO A LESSON ON THE SIMPLE"
- 3030 PRINT"SENTENCE."
- 3040 PRINT"[205]Y NAME IS [214]IC."
- 3050 PRINT"[208]LEASE TYPE IN YOUR NAME."
- 3060 PRINT:INPUT"[217]OUR NAME PLEASE...";N$
- 3070 PRINT:PRINT"[212]HANK YOU ";N$;".[199]LAD TO MEET YOU."
- 3080 PRINT"[215]E'LL HAVE SOME FUN TOGETHER."
- 3090 PRINTTAB(9)"PLEASE PRESS RETURN"
- 3100 GETA$:IFA$=""THEN3100
- 3110 IFA$<>CHR$(13)THEN3100
- 3220 POKE53272,23
- 3230 RETURN
- 4000 FORL=1TO5
- 4010 READD$,S$
- 4020 PRINTD$
- 4030 GOSUB2000
- 4040 NEXTL
- 4045 GOSUB20
- 4060 PRINT"[217]OUR TOTAL SCORE IS ";P
- 4070 PRINTTAB(11)"[158]PRESS RETURN"
- 4080 GETA$:IFA$=""THEN4080
- 4090 IFA$<>CHR$(13)THEN4080
- 4100 RETURN
- 5000 DATA"1) [199]EORGE STOPPED HERE TODAY.","[199]EORGE"
- 5010 DATA"2) [196]OGS MAKE GOOD PETS.","[196]OGS"
- 5020 DATA"3) [196]OES [205]IKE LIVE HERE?","[205]IKE"
- 5030 DATA"4) [212]HAT BUILDING IS TALL.","BUILDING"
- 5040 DATA"5) [205]OST PEOPLE ENJOY VACATIONS.","PEOPLE"
- 5050 DATA"1)[215]HO IS THAT MAN?","IS"
- 5060 DATA"2)[193]RE YOU CERTAIN ABOUT THAT","[193]RE"
- 5070 DATA"3)[212]HAT CAR BELONGS TO ME.","BELONGS"
- 5080 DATA"4)[212]HE BOSS MADE THE DECISION.","MADE"
- 5090 DATA"5)[201] LIKE AIRPLANES.","LIKE"
- 5100 DATA"1)[195]LOSE THE DOOR,","1"
- 5110 DATA"2)[201] ENJOY CANDY.","2"
- 5120 DATA"3)[217]OU WILL NOT GO TODAY!","4"
- 5130 DATA"4)[200]E WALKED TO TOWN.","2"
- 5140 DATA"5)[215]HAT IS YOUR NAME?","3"
- 5150 DATA"1)[205]IKE AND [201] VISITED [193]FRICA.","1"
- 5160 DATA"2)[202]OYCE SANG AND JUMPED.","2"
- 5170 DATA"3)[215]E ATE LUNCH AND WATCHED A FILM.","2"
- 5180 DATA"4)[194]ILL AND [196]AN WATCHED AND WAITED.","3"
- 5190 DATA"5)[197]ITHER [202]OHN OR HE WILL GO.","1"
- 5200 DATA"1)MY FRIEND [202]ANE AND [201]..","B"
- 5210 DATA"2)STOPPED HERE YESTERDAY..","A"
- 5220 DATA"3)INTO A LARGE HOUSE..","C"
- 5230 DATA"4)KNOCKED ON THE DOOR..","A"
- 5240 DATA"5)FOR TWO WEEKS..","C"
- 6000 S=54272:FORE=STOS+28:POKEE,0:NEXT
- 6010 POKES+24,15:POKES+5,42:POKES+6,250
- 6020 POKES+4,33:POKES+1,23:POKES,181
- 6030 FORT=1TO200:NEXT:POKES+4,32:FORT=1TO500:NEXT
- 6040 RETURN
- 6100 S=54272:FORE=STOS+28:POKEE,0:NEXT
- 6110 POKES+24,15:POKES+5,18:POKES+6,242
- 6120 POKES+4,33:POKES+1,4:POKES,48
- 6130 FORT=1TO300:NEXT:POKES+4,32:FORT=1TO800:NEXT
- 6140 RETURN
- 6200 S=54272
- 6210 FORL=STOS+24:POKEL,0:NEXT
- 6220 POKES+5,12:POKES+6,128:POKES+24,15
- 6230 READHF,LF,DR
- 6240 IFHF=-1THENRESTORE:RETURN
- 6250 POKES+1,HF:POKES,LF:POKES+4,33
- 6260 FORT=1TODR:NEXT
- 6270 POKES+4,32:FORT=1TO5:NEXT
- 6280 GOTO6230
- 6290 DATA16,195,100,22,96,100,28,49,100,33,135,400,28,49,100,33,175,100
- 6300 DATA-1,-1,-1
-