9106"xX` L4x1X` a"xGX` LXxU䅑X` "xhhhhhhhhhhhHHX` "hhhhhhh` "Ȅ؅ 񷊢ȑ` "ȱ` #UW0UU,15 (UC,0:UN,0:UR$"":UI$"":UL0UL39$ -UI$:UI$""45Y 2UA(UI$):UR(UR$):UA13UR0UC,1:" ";:70 7UA20(UR0)45:UR$(UR$,UR1):" ";:45 <URUL45 A95:UR$UR$UI$:UI$;:45 FUR$UX$" ";:145 KUIUR11:(UR$,UI,1)" " PUR$(UR$,UI):: _(US$)0110J dUI1(US$):UI$(US$,UI,1):UI$""P i] nUA46p sUA32UR0 xUA47UA58 }UA64UA91 UA193UA218UI$"": (UT)UU%UI$(UA128)  170:251,0:252,US256:253,0:254,UF:UV UZ1:UV%(UT):300b UZ0:US$UJ$:UG$UK$:UT$UL$:UPUJ:ULUK:"";:UW0UY,6:UX,14 UT,UV%:251,0:252,UF:253,0:254,US256:UV:UW0UU,15 U1,U1%:U2,U2%:U3,U3%1:U4,U4%:35 U1%(U1):U2%(U2):U3%(U3):U4%(U4)! UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL:F ,"":UT,UU%:UW0UY,12:UX,6f 1" M E N U" 6" --------------------------------" ;" 1. BEGIN A OR AN" @" 2. STUDENT INSTRUCTIONS" E" 3. TEACHER INSTRUCTIONS"# J" 4. QUIT"O O" --------------------------------"z T" PRESS A NUMBER KEY (1-4) "; YUL1:US$"1234" [35:US$"" ^(UR$)1000,400,500,390 c300 rUZ1UP%:155 wUE:"":UW0UY,6:UX,14:UU,14 :. ** STUDENT INSTRUCTIONS **S"":UT,UL%:UW0UY,11:UX,12UT$" OR N":UH1:UP0:UG$"TUDENT NST":850" HIS PROGRAM HELPS YOU WITH THE"" USE OF OR AS AN ARTICLE BEFORE"" A NOUN. 10 SENTENCES WILL BE PRINTED"@" AND EACH SENTENCE WILL HAVE A BLANK"l" LIKE THIS . EAD THE SENTENCE"" AND DECIDE IF  OR Β BELONGS IN"" THE BLANK.""  GOES BEFORE A CONSONANT: A TREE."" Β GOES BEFORE A VOWEL: AN OCEAN."*835:UH1:UP1:850_" F AT ANY TIME YOU WISH TO RETURN TO"" THE PRESS ."835UZ1UP%:155 ** TEACHER INSTRUCTIONS **"":UT,UL%:UW0UY,2:UX,10!UT$" OR N":UH1:UP0:UG$"EACHER NST":850N" O THE BEST OF OUR KNOWLEDGE,"y" THIS PROGRAM IS IN THE PUBLIC"" DOMAIN. F THIS IS NOT TRUE,"" PLEASE CONTACT:"" ŠӠ"" 3370 HARMACY VE.4" GINCOURT, NTARIO"V" ANADA, 1 24"w" (416) 499-4292"UH1:835:850" ROGRAM AME: OR N" RITTEN BY :LEN ISHER" EVISED BY :AN AWCZAK"'" HIS PROGRAM WILL RUN ON ANYN" à2.0 OMPUTERu" 4.0 ԠOMPUTER" 8032 OMPUTER" OMMODORE 64 OMPUTER":835:850 " O MODIFY THIS PROGRAM YOU CAN" " CHANGE THE NOUNS USED IN THE "E" SENTENCES LOCATED ON DATA LINES "o" 1765-1770. OU CAN ALSO CHANGE"" THE SENTENCES ON LINES 1350-1440."I835NUZ1UP%:155S ** TO USE 8032 LOAD CBM4032 **UC$"BEFORE RUNNING THIS PROGRAM ON AN 8032O" LOAD THE 'CBM 4032' PROGRAM":w "";:UT,UU%:UW0UY,1:UX,14!I138:" ";:"I122:" ";:#I137:" ";:$I122:" ";:%" &"  ;'"  O M M O D O R EQ(" w)"EDUCATIONAL*"SOFTWARE+"1983,(UD$,24);"PRESS SPACE BAR OR WAIT"UC$:UI0-UI$:UI$" "UIUI1:UI250813!.300\CUN,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"sHUI$:UI$" "840yMRUPUP1:""(UT$UP$,21);(UP$UG$(UP),18)W" --------------------------------------"\UH0(UD$,24);(UP$,7);"HELP - PRESS H "'aUH0:"":_k(UD$,24);" ONE MOMENT PLEASE... ":UX$"H":US32768:U1196:U2197:U3198:U4216:UC167:UB1024:UD1084:UE1105UT59468:UU%12:UL%14:UP%1158:UN158:50003,0:UW(50003):UF(53)FUW0US1024:U1209:U2210:U3211:U4214:UC204:UB2048:UX53280:UD2064UW0UT53272:UU%21:UL%23:UP%2151:UN198:UY53281:UU2199:UE2087UC$(155):UV1214:UW0UF196:UV2238 UD$"":UP$" "6900:"":"": SHIFTED SPACEL(US40)96700r((0)(((0))0)65536)500935UC$"THIS MACHINE DOES NOT HAVE ENOUGH""MEMORY TO RUN THIS PROGRAM !":UE:""UC$:UW0965UF60UF108UF12495052,0:53,UF4::900PUW1601103,88:1104,228:1107,85:1111,228:965UW1"THIS PGM WILL NOT WORK ON THIS MACHINE!":UE:1103,49:1104,230:1107,46:1111,230:965UD800:300UZ1UP%:UP%:UZ0 ""UC$;::UW0UY,6:UX,14!S0:T0:K0:J0GFLAG1:UT$" A OR AN":UG$"":UP0Y DA1 1220s I09:N$(I)::DA1Y1:850" WHAT IS YOUR NAME ? ";US$"":UL15:LN1:35:A$UR$( PRINTS SENTENCES-YY12Z(9(1)1) 7BB$"":850:FA Z 1350,1360,1370,1380,1390,1400,1410,1420,1430,1440pF " I SAW ";BB$;" ";N$(Y);". "{K 1445P " IT WAS ";BB$;" ";N$(Y);". "U 1445Z " SHE CAUGHT ";BB$;" ";N$(Y);". "_ 1445d " HE FOUND ";BB$;" ";N$(Y);". "$i 1445Qn " THERE IS ";BB$;" ";N$(Y);". "[s1445x " HERE IS ";BB$;" ";N$(Y);". "}1445 " HE HAD ";BB$;" ";N$(Y);". " "1445 " SHE HAD "BB$;" ";N$(Y);". " " 14453 " THEY LOST ";BB$;" ";N$(Y);". "> 1445n " WE BOUGHT ";BB$;" ";N$(Y);". "t: ANSWER ROUTINE" A OR AN ? ";US$"ANH":UL2:35:B$UR$ COMPARE ANSWERC$(N$(Y),1) AN$"A"<  C$"A" C$"E" C$"I" C$"O" C$"U" AN$"AN"U SS1: B$AN$1525  A1 " THE ANSWER IS ";AN$:JE1:1505  " NOT QUITE! PLEASE TRY AGAIN.":AA1 835 N(J)Y:SS1:JJ1:JE1JE0:1525!1335! SCORE,! A0 A0:KK1:1605>!Z(4(1)1)e! :: Z 1550,1560,1570,1580,1590w!PR$"WOW! "! 1600!PR$"SUPER! "! 1600!"PR$"YOU'RE PRETTY SMART, "!' 1600!,PR$"YOU ARE A WHIZ "!1 1600"6PR$"YOU'RE PRETTY GOOD AT THIS " "; 1600d"@(40((PR$)(A$)))2);PR$;A$ "n"ETT1"J " YOUR SCORE IS";S;" OUT OF";T" ""O" " ((S1000.5)T)10;" PERCENT ""T K2 K0:1705"YA0 #^ T10 1650#c835 #m 13209#rT0:K0:S0::FLAG0K#w(UD$,24)UP$j#| " THANK YOU, ";A$;".#}" DO YOU WANT TO TRY AGAIN ? ";:US$"YN":UL1:35:PAQ$IN$#~PAQ$"Y"1210#PAQ$"N"##YN(J)#JJ1# 1330!$ REPEAT INSTRUCTIONS AFTER SECOND MISS/$835:850^$ " ";A$;", YOU SEEM TO HAVE FORGOTTEN!"$ " YOU USE A BEFORE A WORD STARTING WITH "$ " A CONSONANT: A HOUSE, A CAR."$ " YOU USE AN BEFORE A WORD STARTING WITH"% " A VOWEL, THAT IS, A,E,I,O, OR U."I% " EXAMPLES: AN ANT, AN ORANGE."Q%K0\% 1625t% 10 NOUNS FOR DATA% ELEPHANT IN THE HOUSE,DANCING MOUSE,HOUSE FOR SALE,OLD RED TRUCK& APPLE WITH A WORM IN IT,CAR IN A GARAGE,PIE IN THE SKY,DOG IN A HOUSE& AWFULLY BIG BIRD.5& EGG IN THE NEST;&