' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (  @Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(`i d ֠z# u` - - - - - -A LOOP FRAMES, STEP 2 - PRINT ANSWER CHOICESG O 22 "C=CIRCLE R=RECTANGLE S=SQUARE T=TRIANGLE": - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  LOOP FRAMES, STEP 3 - CHOOSE SHAPE; BRANCH TO SUBR d22:30:"RETURN =>";Z$$ nC0e x ---------------------------------------------------------- LOOP FRAMES, STEP 1 - BEGIN THE LOOP; INITIALIZE SCREEN I15 3 - - - - - - - - - - - - - - - - - - - - - - -; PROGRAM 22_ ----------------------------------------------------------( FRAME 1 - PRINT INSTRUCTIONS TO STUDENTS2<:4F"I AM GOING TO SHOW YOU 5 SHAPES.":P"YOU TELL ME WHAT KIND OF SHAPE IT IS." Z:ADDITIONAL DATA SETS TO BE INSERTEDd -------------------------------------------------------- THE FINAL DATA SET TO IDENTIFY THE END OF THE DATA LIST "END OF NAMES","X","X" "END OF NAMES","X","X""BLUE","BLOND"A0 "KAY","GREEN","BROWN","KARYN","BLUE","BLACK"y: "TRACY","GREEN","BLOND","MICHAEL","BROWN","BROWN"D "PJ","BROWN","BLOND","GEORGE","RED","BALD"N ---------------------------------------------------------$X SPACE FOR ::"FRAME 5 - PROGRAM CONCLUSION":*512:8Q"* SEARCH COMPLETED *"W --------------------------------------------------------- DATA LIST - HYPOTHETICAL NAMES, EYE AND HAIR COLORS& "HERB","BLUE","BROWN","BUCK",- - - - - - - - - - - - - - - - - - - - - - - - - - - - n 2::"FRAME 4, STEP 3 - ANOTHER SEARCH OPTION":t  "DO YOU WISH ANOTHER SEARCH (Y OR N)? ";Z$ Z$"Y"Į:190  ---------------------------------------------------------$:4- - - - - - - - - - - - - M J2::"FRAME 4, STEP 2 - DO THE LOOP SEARCH":S T_ ^I150u hNAME$,EYE$,HAIR$ rNAME$"END OF NAMES"400 |EC$EYE$ĺNAME$,EYE$,HAIR$:COUNTCOUNT1 I :"THIS SEARCH FOUND "COUNT" MATCH(ES).":8  ---------------------------------------------------------o :2::"FRAME 4, STEP 1 - DISPLAY HEADING":u  ""PEOPLE WITH THE EYE COLOR OF "EC$" ARE:": ,"NAME","EYES","HAIR" 6"----","----","----" @ - - - - - - - - - - - - - - - 20:30:"RETURN =>";Z$W --------------------------------------------------------- :4::"FRAME 3 - INITIALIZE; GET VALUES": 10:6:COUNT0 "THE EYE COLOR SOUGHT IS? ";EC$ STATEMENTS 230 AND 240 DELETED FROM PROGRAM 4 = ---------------------------------I d:10::"FRAME 2 - INTRODUCTION":O nV x4 "THIS PROGRAM WILL SEARCH A DATA LIST": "CONSISTING OF NAMES, EYE COLOR AND": "HAIR COLOR FOR A MATCH WITH AN": "EYE COLOR THAT YOU SPECIFY." N DN:12:4AX"BIBLIOGRAPHY FILE HAS BEEN UPDATED"GbD$"APPEND BIBLIO",D$"WRITE BIBLIO"=I1ENTRIESdAUTHR$(I):TITLE$(I):ABTRACT$(I)D1$(I):D2$(I):D3$(I)I&D$"CLOSE BIBLIO"0 ---------------------------------------------------------: FRAME 5 - CONCLUSIO+ A354 (PROGRAM 4 MODIFICATION)1r ----------------------------------------------------------(:4::"FRAME 1 - TITLE DISPLAY WITH PAUSE":2<12:8F"SEEK AN EYE COLOR"PP14000:P! Z -------------------------   :"WHAT'S THE HIGHEST NUMBER YOU WANT? ";HIGHm --------------------------------------------------------- FRAME 2, STEP 4 - CHECK FOR REASONABLE LIMITS LOW10HIGH100ĺ,"SELECT 10 TO 100":210 HIGHLOWĺ"HIGH IS LESS OR = LOBLE NUMBER A NUMBER5NUMBER20ĺ,"SELECT 5 TO 20!":130 --------------------------------------------------------- FRAME 2, STEP 3 - ASK FOR HIGH AND LOW RANGE OF NUMBERS :"WHAT'S THE LOWEST NUMBER YOU WANT? ";LOW- ---------------------Q d FRAME 2, STEP 1 - ASK FOR THE NUMBER OF PROBLEMSW na x:12 "HOW MANY PROBLEMS DO YOU WANT? ";NUMBER --------------------------------------------------------- FRAME 2, STEP 2 - CHECK FOR A REASONA PROGRAM 5^ ----------------------------------------------------------( FRAME 1 - DISPLAY A TITLE FOR ABOUT 3 SECONDS2<:12:10F"SUBTRACTION DRILL"PP13000:P Z -------------------------------------   = ";G;"/";W(X)%H"= ";(M100)100.R880L\" E X C E L L E N T !"rf ===LET USER CONTINUE AT WILL===xpz"WANT ANOTHER (Y OR N)";R$R$"Y"310 F CORRECT TO HERE, MUST BE MATH ERROR===J"HMMM...THAT IS THE CORRECT"l"FW FOR ";C$(X);". YOU MUST""HAVE MADE AN ARITHMETIC" "ERROR. CHECK AND TRY AGAIN."400 * ===SHOW THE CORRECT SOLUTION===4"MOLES = WT/FW">". THAT IS CORRECT."1"WHAT VALUE DID YOU USE"N"FOR THE FW OF ";C$(X);UV[r(VW(X)).1750"AHA! THIS MAY BE YOUR""PROBLEM. THE APPROXIMATE""FW OF ";C$(X);" IS ";W(X)"NOW TRY IT AGAIN..."400( ===I----------?0 DATA FOR NUMBER OF ITEMS AND NAMES IN LISTE:MD 7tN "BASHFUL","DOC","DOPEY","GRUMPY"X "HAPPY","SLEEPY","SNEEZY"Y"WELL, YOU SHOULD! TRY AGAIN."b400l ===CHECK FOR SECOND STEP IN SOL'N SEQUENCE===v"GOODEMS 12)NAME$(I);0 FLAG(I)0ĺ" *****";6 = IC s CITEMSĺ10)"(ITEMS MISSED ARE STARRED)"y  SCRE(((C100)ITEMS)10)10 10)"YOUR SCORE IS "SCRE" PERCENT."  & ----------------------------------------------->";Z$:380 hCHECKL r"THAT IS NOT IN MY LIST!":20:30:"RETURN =>";Z$S |I  ---------------------------------------------------------  FINAL FRAME - SHOW LIST AND PERFORMANCE   10)"THE COMPLETE LIST IS:": I1IT- - - - - - - - - - - - - - - - -a " LOOP FRAMES, STEP 2 - CHECK LIST VIA LOOP FOR A MATCHg ,z 6CHECK1ITEMS @REPLY$NAME$(CHECK)360 JFLAG(CHECK)0CC1:FLAG(CHECK)1:380 T"THAT'S BEEN NAMED PREVIOUSLY!" ^20:30:"RETURN =E THEM..."& 20:30:"RETURN =>";Z$f --------------------------------------------------------- LOOP FRAMES, STEP 1 - GET A NAME INPUT I1ITEMS :12 "ANSWER NUMBER "I" IS"; REPLY$:!  - - - - - - - - - - - - ----------% d DATA ASSIGNMENTS+ n6 xITEMST NAME$(ITEMS),FLAG(ITEMS)p I1ITEMS:NAME$(I):I --------------------------------------------------------- FRAME 2 - INTRODUCTION :12 "LET'S SEE IF YOU CAN NAM PROGRAM 19"c ----------------------------------------------------------( FRAME 1 - TITLE2<:12:5F"SNOW WHITE AND THE 7 DWARFS"PP13000:P Z ------------------------------------------------     TER YOUR CHOICE (1-3) ";DISPLAY<DISPLAY1DISPLAY3450| --------------------------------------------------------- LOOP FRAMES, STEP 1 - RANDOMLY SELECT WORDWRD1TRYRANWRD(SPELWRD(1)1)FLAG(RANWRD)1510UTINE TO CHOOSE LENGTH AND LOCATION OF LINE1 B A((1)40)S B((1)40)d C((1)40)j  ----------------------------------------------------------o  STEP 8 - CONTINUE LOOP OR END PROGRAMu | I :"PRESS RETURN TO CLEAR SCREEN";Z$ ::  ----------------------------------------------------------+  SUBRO-------------------------------N 6 STEP 6 - CHOOSE ANOTHER RANDOM COLORU @ f JX((1)16)s TX7330z ^X h ---------------------------------------------------------- r STEP 7 - PLOT HORIZONTAL LINE | 500 A,BC> --2 STEP 4 - CHOOSE RANDOM COLOR FOR LINE8 I X((1)16)V X7220] X ----------------------------------------------------------  STEP 5 - PLOT VERTICAL LINE  500 "A,BC , --------------------------- 2 - PAINT BACKGROUND TO LIGHT BLUE) d0 n7< xI039H 0,39IO I ---------------------------------------------------------- STEP 3 - BEGIN LOOP I1100 --------------------------------------------------------k PROGRAM 21a ---------------------------------------------------------- ( STEP 1 - INITIALIZE LOW-RESOLUTION GRAPHICS SCREEN2<FP ----------------------------------------------------------# Z STEPDATA PAIRS TO BE INSERTEDY -------------------------------------------------------- THE FINAL DATA PAIR TO IDENTIFY THE END OF THE DATA LIST "END OF NAMES",0FHE DATA LIST "END OF NAMES",0,"ALEX",66,"SUSAN",85,"MARIA",99,"FRAN",70a: "BOBBIE",100,"CHARLES",64,"BILLY",66,"MAGGIE",86D "DONNA",91,"YANCY",77,"TRACY",89,"KARYN",100,"BUCK",90N ---------------------------------------------------------X SPACE FOR ADDITIONAL W, SOME PERSONAL DATA IS NEEDED..."4 P13000:Pt  ---------------------------------------------------------  FRAME 5, STEP 1 - GET SEX INFORMATION  :8 "ARE YOU:": " 1. FEMALE" " 2. MALE":"ENTER 1 OR 2-----------------------------------------[ 6 SUBROUTINE FRAMES - PRESENT DINNER MENUa @k J2000 T --------------------------------------------------------- ^ FRAME 4 - BEGIN SEQUENCE FOR ADDITIONAL INFO h r:12# |"NO-----------------------------------X SUBROUTINE FRAMES - PRESENT BREAKFAST MENU^ h 2000  ---------------------------------------------------------  SUBROUTINE FRAMES - PRESENT LUNCH MENU  "2000) , ----------------ANY"5 :"ITEMS FROM EACH MENU AS YOU WISH. AFTER"f :"YOUR DAILY MENU HAS BEEN COMPLETED, YOU" :"WILL RECEIVE A SUMMARY OF YOUR CALORIC" :"INTAKE AND ITS EFFECT ON YOUR IDEAL WT." 20:30:"RETURN =>";Z$# ----------------------4000:P0 dCALRIES(15),FOOD$(15),FLAGFOOD(15)p n --------------------------------------------------------- x FRAME 2 - INTRODUCTION :2 "YOU WILL BE PRESENTED A MENU FOR BREAK-" :"FAST, LUNCH, AND DINNER. SELECT AS M PROGRAM 18!b ----------------------------------------------------------( FRAME 1 - TITLE AND ASSIGNMENTS2<:10F"A SIMULATED DAILY CALORIC INTAKE AND"P:" ITS EFFECT ON YOUR IDEAL WEIGHT" ZP1              TEM)""D3$(ITEM)D1$(ITEM)% ITEM8 ENTRIESITEM1x  ---------------------------------------------------------  FRAME 4 - FILE WRITING SEQUENCE  :12:4 "UPDATING BIBLIOGRAPHY FILE..." D$(4) D$"OPEN BIBLIO"3 JABTRACT$(ITEM)""ABTRACT$(ITEM)"NONE GIVEN"Y T"FIRST DESCRIPTOR => ";D1$(ITEM) ^D1$(ITEM)""D1$(ITEM)"NONE GIVEN" h"SECOND DESCRIPTOR => ";D2$(ITEM) rD2$(ITEM)""D2$(ITEM)D1$(ITEM) |"THIRD DESCRIPTOR => ";D3$(ITEM) D3$(I  ITEM150:4 8)"* USE NO COMMAS *":d "AUTHOR (LAST FIRST NAME OR STOP)"~ "=> ";AUTHR$(ITEM): AUTHR$(ITEM)"STOP"410 ""TITLE" ,"=> ";TITLE$(ITEM): 6"ABSTRACT (5 LINES MAXIMUM)" @"=> ";ABTRACT$(ITEM):N OF THIS PROGRAM. THE":D "FILE RECORDS MAY BE SEARCHED WITH":c "THE PROGRAM 'BIBLREAD'." 20:30:"RETURN =>";Z$ --------------------------------------------------------- FRAME 3 - INPUT BIBLIOGRAPHIC INFORMATION WHAT'S HIS LAST?"R - - - - - - - - - - - - - - - - - - - - - - - - - - - - - "AS A YOUNG LAD, HE ONCE CHOPPED DOWN A" "CHERRY TREE","AH, YES, TO MAKE A PIE, NO DOUBT." "CHERRY","A CHERRY WHAT? PLEASE TRY AGAIN." "TREE","WHAT K FOR EACH QUESTION, ANTICIPATED ANSWERS, AND FEEDBACK;f "THE FIRST PRESIDENT OF THE USA WAS" "GEORGE WASHINGTON","VERY GOOD. THAT IS HIS NAME." "WASHINGTON","THE LAST NAME IS OK, BUT TRY AGAIN." "GEORGE","I LIKE THAT FIRST NAME;>18:FDBK$/H22:30:"RETURN =>";Z$:pR ---------------------------------------------------------\ DATA FOR THE NUMBER OF QUESTIONS TO ASKfp 3z --------------------------------------------------------5 DATA-------------------------------D KEYWORD/PHRASE SUBROUTINEJUFLAG0aL(A$)vI1((R$)L1)(R$,I,L)A$FLAG1: I  ---------------------------------------------------------* FEEBBACK SUBROUTINE4K$"HERE'S A HINT: "HNT$'v830:3800ASKp --------------------------------------------------------- FINAL FRAME - PERFORMANCE REPORT:12"YOU CORRECTLY ANSWERED "C" QUESTION(S)." -------------------------I","JACKSON","AN OFFSPRING OF A GIANT KILLER","JACK---"s "NEVADA","CARSON CITY","HERE'S JOHNNY!","CAR--- CITY"YY"CK):830:380L0 - - - - - - - - - - - - - - - - - - - - - - - - - - - - -: LOOP FRAMES, STEP 4 - NO MATCH; GIVE A HINT OR THE ANSWERDNMISS1FDBK$A1$(ASK)" IS CORRECT.":830:640XMISS1bHNT$(A1$(ASK),(A1$(ASK))2)lFDB - - - - - - - - - -R LOOP FRAMES, STEP 3 - CHECK FOR ANTICIPATED ANSWERSXmA$A1$(ASK):740FLAG1FDBK$F1$(ASK):CC1:830:640A$A2$(ASK):740FLAG1FDBK$F2$(ASK):830:380A$A3$(ASK):740 &FLAG1FDBK$F3$(ASRE IS ";C100Q;" %!"lC01850 "" QUESTION:"-Q$(I)3L" YOUR ANSWER:"WS$(I)]{" A CORRECT ANSWER:"&A$(I):0" PRESS RETURN TO CONTINUE";Z$:ID:I110::IN ===COMPUTE A PERCENTAGE SCORE===X"YOUR SCOD. IF MISSED, Z1(I) IS 1E (FROM SETTING THE FLAG AT LINE 1260)m AND THE USER'S INCORRECT RESPONSE IS STORED IN S$(I). (FROM LINE 1270) ===============I115::: ===DID THE USER MISS THIS QUESTION?===Z1(I) ===EVERY ANSWER CORRECT FIRST TRY?===9CQ1600?Z""E X C E L L E N T !"k,I13000:Iu61860}@:J10)"HERE'S A REVIEW...":^I15000:Ih ===============r LOOP THRU ALL 15 TO SEE IF A QUESTION| WAS MISSE=======* FLASH THE CORRECT ANSWER ANDH LET USER SAY WHEN TO GO^ ===============|"A CORRECT ANSWER IS: ";:A$(X)::"PRESS RETURN TO CONTINUE";Z$J:"YOU ANSWERED ";C;" CORRECTLY""ON THE FIRST TRY..."* CLEAR THE SCREEN, CENTER THE FEEDBACK,P< AND HOLD IT THERE A MOMENT OR TWOgF ================zP:I111::IZ10);C$(R);"!"dI11000:In ===NO CREDIT GIVEN IF CORRECT 2ND TRY!===xF11500CC11500 ========* 1. FLAG THE NUMBER OF THAT QUESTIONX 2. STORE THE RESPONSE GIVEN BY THE USER{ IN S$(X) FOR LATER RECALL ===============Z1(X)1S$(X)R$F1 W$(R);"! HERE'S A HINT:"H$(X)1150( ===============(2ONS===8J1Q$B:I110::I,LF0?VX(15(1)1)b` ===HAS X APPEARED BEFORE?===sjZ(X)11110~tZ(X)1~Q$(X);R$R(3(1)1)R$A$(X)1360F11470 =============== FOR A QUESTION THAT IS MISSED:@f "ACE","KING","QUEEN","JACK","TEN","NINE","EIGHT","SEVEN"ip "SIX","FIVE","FOUR","TREY","DEUCE"z - - - - - - - - - - - - - - - - - - - - - - - - - - - - - "SPADES","HEARTS","DIAMONDS","CLUBS"S"!"$990. ===ASK "Q" QUESTITHER HAND :12G"WOULD YOU LIKE ANOTHER HAND DEALT? ";Z$\ (Z$,1)"Y"290i*:12:64"MAY ALL YOUR SLAMS BE GRAND!">H --------------------------------------------------------R DATA FOR CARD AND SUIT VALUES\OW MANY HONOR POINTS DO YOU COUNT? ";HP:XHPHNRPTSĺ6)"THAT'S WHAT I COUNT!":7406)"I COUNT "HNRPTS" HONOR POINTS!"24:30:"RETURN =>";Z$ ---------------------------------------------------------  FRAME 5 - OPTION FOR ANO14lCARD113.vDECK(CARD,SUIT)0650W8)CARD$(CARD)13)" OF "SUIT$(SUIT)aCARDgqSUIT - - - - - - - - - - - - - - - - - - - - - - - - - - - - - FRAME 4, STEP 2 - ASK FOR THE NUMBER OF HONOR POINTS):"HRPTS1DEAL22L&"PRESS ANY KEY AND I'LL ARRANGE THE HAND";:Z$0 ---------------------------------------------------------: FRAME 4, STEP 1 - ARRANGE THE HAND BY SUITDN:6X"HAND "HAN" ARRANGED BY SUIT":bSUITD$(CARD)13)" OF "SUIT$(SUIT)]  - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  FRAME 3, STEP 3 - COUNT THE HONOR POINTS  CARD1HNRPTSHNRPTS4 CARD2HNRPTSHNRPTS3 CARD3HNRPTSHNRPTS2CARD4HNRPTSHN - - 6 ^ FRAME 3, STEP 2 - DEAL 13 UNIQUE CARDS< hS rHNRPTS0:HANHAN1_ |:2:6 "HERE'S HOW HAND "HAN" WAS DEALT:": DEAL113 CARD(13(1)1) SUIT(4(1)1) DECK(CARD,SUIT)1410 DECK(CARD,SUIT)1 8)CARHAND."" 22:30:"RETURN =>";Z$b  ---------------------------------------------------------  FRAME 3, STEP 1 - SHUFFLE THE DECK  "CARD113 ,SUIT14 6DECK(CARD,SUIT)0 @SUIT JCARD T - - - - - - - - - - - - - - - "THIS PROGRAM WILL SIMULATE DEALING 13":Y "CARDS FOR A BRIDGE HAND. YOU WILL": "BE SHOWN HOW THE CARDS WERE DEALT,": "THEN THE HAND WILL BE ARRANGED AND": "YOU WILL BE ASKED TO COUNT THE": "NUMBER OF 'HONOR POINTS' IN THE - - -. d FRAME 1, STEP 2 - ASSIGNMENTS4 n] xDECK(13,4),CARD$(13),SUIT$(4):HAN0v I113:CARD$(I):I I14:SUIT$(I):I --------------------------------------------------------- FRAME 2 - INTRODUCTION :6-  PROGRAM 17_ ----------------------------------------------------------( FRAME 1, STEP 1 - TITLE2<:12:8F"A SIMULATED BRIDGE HAND"PP12000:P Z - - - - - - - - - - - - - - - - - - - - - - - - - - -       TRACT$(50),D1$(50),D2$(50),D3$(50)b d --------------------------------------------------------- n FRAME 2 - INTRODUCTION x :8 "AS MANY AS 50 REFERENCES EACH WITH": "3 DESCRIPTORS MAY BE ENTERED DURING": "ANY ONE RU",5000 "DINNER",111  "APPLE (OF COURSE) PIE",300g  "BAKED POTATO",250,"BEFORE DINNER DRINK",115  "BEEF STEAK",560,"BEETS",40  "DOZEN RAW OYSTERS",240,"FISH",400  "MACARONI",85,"PEAS",115 ! "TOSSED SALAD",75,"T.V. DINNERS",400,"HAMBURGER",260 <J "MILK",125,"TUNA FISH",50 aT "VEGETABLE OR FRUIT SALAD",75^ "ZUCCINI SOUP (YUK)",200h --------------------------------------------------------r DATA FOR DINNER - MEAL; ITEMS; FOOD; CALORIES| ---------------------------------X DATA FOR LUNCH - MEAL; ITEMS; FOOD; CALORIES^o "LUNCH",12" "BEER",125,"BEFORE LUNCH DRINK",115, "CHEESEBURGER",310,"COLA",144 6 "COTTAGE CHEESE",110,"CRACKERS",75 @ "FRENCH FRIEON OR SAUSAGE",200,"CEREAL WITH MILK/SUGAR",300b "COFFEE (BLACK)",5,"COFFEE (WITH SUGAR)",50 "EGGS (2)",100,"MILK",125  "ORANGE JUICE",60,"PANCAKES",225  "SWEET ROLL",250,"TOAST",75,"WAFFLES",550 ! -----------------------------------------------T SUBROUTINE FRAMES, STEP 4 - REPEAT SAME MEAL MENUZd2060 ------------------------------------------------ DATA FOR BREAKFAST - MEAL; ITEMS; FOOD; CALORIES  "BREAKFAST",11/ "BACE; FLAG ITEM; SUM CALORIES zD:"YOUR CHOICE IS (1 TO "I")";PCHOICElCHOICE1CHOICEI2180|CHOICEIıFLAGFOOD(CHOICE)1MEALCNTMEALCNTCALRIES(CHOICE)SUMCALSUMCALCALRIES(CHOICE) --------------------------------";28);"CALORIES" *I1ITEMS54I" - "FOOD$(I);Y>FLAGFODD(I)1ĺ32)CALRIES(I);_HfRI\I" - GO TO NEXT MEAL MENU OR SECTION"f --------------------------------------------------------p SUBROUTINE FRAMES, STEP 3 - GET CHOIC14:9:"=>";R$Q  - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  LOOP FRAMES, STEP 2 - CHECK FOR OPTIONAL ANSWER  R$"HINT"600 R$"ANSWER"MISS1:590 R$"STOP"680 - - - - - - - - - - - - - - - - - - -STOP AT ANYTIME BEFORE WE FINISH."> @23:30:"RETURN =>";Z$ J ---------------------------------------------------------- T LOOP FRAMES, STEP 1 - INITIALIZE; ASK QUESTION; GET REPLY ^ hASK1ITEMS rMISS0 |:12 Q$(ASK) OU WITH ANY ANSWER THAT YOU":I "GIVE THAT IS NOT COMPLETE. ALSO,":x "I WILL PROVIDE THE FOLLOWING OPTIONS:": "YOU MAY ENTER 'HINT' FOR A HINT,": ""OR 'ANSWER' IF YOU WANT THE CORRECT": ,"ANSWER, OR 'STOP' IF YOU WISH TO":" 6"@ ----------------------------------------------------------a FRAME 2 - INTRODUCTIONg s :2:6 "THE FATHER OF OUR COUNTRY":: "I WILL ASK YOU A FEW QUESTIONS ABOUT": "OUR FIRST PRESIDENT. I WILL TRY TO": "HELP Y - -I d FRAME 1, STEP 2 - QUESTION, ANSWERS, FEEDBACK ASSIGNMENTSO nZ xITEMS Q$(ITEMS),A1$(ITEMS),F1$(ITEMS),A2$(ITEMS),F2$(ITEMS) A3$(ITEMS),F3$(ITEMS):C0 I1ITEMS Q$(I),A1$(I),F1$(I),A2$(I),F2$(I),A3$(I),F3$(I) I PROGRAM 16` -----------------------------------------------------------( FRAME 1, STEP 1 - TITLE2<:12F10:"OUR FIRST PRESIDENT"PP12000:P Z - - - - - - - - - - - - - - - - - - - - - - - - - - - -          OD$(I),CALRIES(I):IS -------------------------------------------------------- SUBROUTINE FRAMES, STEP 2 - DISPLAY MENU AND SELECTED CALORIES :14)MEAL$:"MEAL CALORIES = "MEALCNT22)"DAY CALORIES = "SUMCAL :8)"FOODOUR BODY BE BEAUTIFUL...",P14000:P:28m ---------------------------------------------- SUBROUTINE FRAMES, STEP 1 - INITIALIZE; READ MEAL DATAI115:FLAGFOOD(I)0:I:MEALCNT0MEAL$,ITEMSI1ITEMS:FOON TO REPEAT THE SIMULATION!L+V:12X`"DO YOU WISH ANOTHER ANALYSIS? ";AGAIN$}j(AGAIN$,1)"Y"SUMCAL0::220t --------------------------------------------------------~ FINAL FRAME - CLOSING COMMENT:12"MAY YIF YOU ARE CONSISTENT IN THIS CALORIC"U:"INTAKE, YOUR WEIGHT DIFFERENTIAL WILL"$:"BE APPROXIMATELY "LBS" POUNDS/WEEK.".20:30:"RETURN =>";Z$8 ---------------------------------------------------------B FRAME 10 - OPTI STEP 7 - GIVE A FINAL COMMENT AND END THE PROGRAM=E:a,"BYE-BYE, FRIENDS..."gRO HIGH...";! hRANUM(3(1)1)I rRANUM1FEEDBK$"NOW THAT IS OLD!"| |RANUM2FEEDBK$"ARE YOU TRYING TO BE CRUEL?" RANUM3FEEDBK$"HAVE YOU NO SYMPATHY?" FEEDBK$:200  ---------------------------------------------------------7(REPLYFW(X)).1670Al"AHA! THIS MAY BE YOUR PROBLEM. THE"uv"CORRECT FORMULA WEIGHT IS "FW(X)"!":820:330 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - FRAME 3, STEP 6 - CORRECT SEQUENCE TO HERE; MATH ERROR MADELD!":820:330N& - - - - - - - - - - - - - - - - - - - - - - - - - - - - -0 FRAME 3, STEP 5 - ASK SECOND STAGE IN SOLUNTION SEQUENCE:D"GOOD...THAT IS CORRECT. WHAT VALUE DID"N"YOU USE FOR THE FORMULA WEIGHT? ";REPLYXb - - - - - - - - - - - - - - - - - - - - - - - - - -u FRAME 3, STEP 4 - ASK FIRST STAGE IN SOLUTION SEQUENCE{"DID YOU DIVIDE THE GRAMS BY THE""GRAM-FORMULA WEIGHT (Y/N)? ";REPLY$:(REPLY$,1)"Y"58010)"WELL, YOU SHOU- - - - - - - - - - - - - - - - - - - - - - - -g  FRAME 3, STEP 3 - IF SECOND MISS, GIVE ANSWERm  MISS0MISS1:510 4)"MOLES = GRAMS / GRAM-FORMULA WT.": 10)"= "GM"/"FW(X): 10)"= "(MOLES100)100:830:7404 - - -)" ARE PRESENT":7 ^"IN "GM" GRAMS OF THE COMPOUND?"Q h10:10:"=>";REPLY: r - - - - - - - - - - - - - - - - - - - - - - - - - - - - - | FRAME 3, STEP 2 - CHECK ANSWER USING ABS FUNCTION  (REPLYMOLES).1720/  - - - - - H...":830J  ---------------------------------------------------------  FRAME 3, STEP 1 - GET RANDOM VALUES; ASK QUESTION  "MISS0 ,GM(10(1)1)20 6X(NMCPD(1)1) @MOLESGMFW(X) J:6 T"HOW MANY MOLES OF "CPD$(XROGRAM WILL ALLOW TO PRACTICE":L "CALCULATING THE NUMBER OF MOLES OF":w "A COMPOUND. I'LL TRY TO HELP YOU": "WITH EACH STEP NEEDED IF YOU MAKE": "ANY MISTAKE IN YOUR ANSWERS.": "I'LL LET YOU PRACTICE AS MUCH AS": "YOU WIS - - - - - - -6 d FRAME 1, STEP 2 - ASSIGNMENTS< nG xNMCPDb CPD$(NMCPD),FW(NMCPD) I1NMCPD:CPD$(I),FW(I):I --------------------------------------------------------- FRAME 2 - INTRODUCTION :4 "THIS P  PROGRAM 15_ ----------------------------------------------------------( FRAME 1, STEP 1 - TITLE2<:12:6F"CALCULATING THE NUMBER OF MOLES"PP12000:P Z - - - - - - - - - - - - - - - - - - - - - - -    ---------------F FRAME 9, STEP 1 - CALCULATE WEIGHT LOSS/GAINLU:4LBS((((SUMCALNEEDEDCALS)7)3500)10)10 --------------------------------------------------------- FRAME 9, STEP 2 - DISPLAY RESULTS&:"OUNDS.":1"TO MAINTAIN THAT WEIGHT YOU NEED"WNEEDEDCALS" CALORIES PER DAY.":"YOUR DAILY CALORIC INTAKE BASED UPON""THE LIMITED MENU IS "SUMCAL" CALORIES.":20:30:"RETURN =>";Z$ ------------------------------------------ORIES NEEDED TO MAINTAIN WT!>AHNEEDEDCALSIDEALWTACTFACTRR ---------------------------------------------------------\ FRAME 8 - DISPLAY INITITAL RESULTSfp:4:8z"SUMMARY OF DATA": "YOUR IDEAL WEIGHT IS "IDEALWT" PSS AVERAGE = "((CLASSUMROLL)10)105(4)"PR#0";{ --------------------------------------------------------- DATA FOR NUMBER OF PUPILS AND THEIR NAMES 5 "ABLE","BAKER","CAIN A.","CAIN R.","OMEGA"CRSUMSUMHMWK(I)HPRCP\"EXAM AVE "EXAM(I)" X "EPRC20)" = "EXAM(I)EPRCifSUMSUMEXAM(I)EPRCp"FINAL EX "FINL(I)" X "FPRC20)" = "FINL(I)FPRCzSUMSUMFINL(I)FPRC8)"SEMESTER SUM = "SUM:CLASSUMCLASSUMSUMI%:"THE CLA"DO YOU WANT TO USE THE PRINTER? ";P$C (P$,1)"Y"ĺ(4)"PR#1"QI1ROLLo SUM0:"////////////////"|*NAM$(I)4"QUIZ AVE "QUIZ(I)" X "QPRC20)" = "QUIZ(I)QPRC>SUMSUMQUIZ(I)QPRCH"HOMEWORK "HMWK(I)" X "HPRC20)" = "HMWK(I)HPR LOOP FRAMES, STEP 5 - GET FINAL EXAM SCORE6b"THE FINAL EXAM SCORE IS?";FINL(PUPIL)mPUPIL --------------------------------------------------------- FINAL FRAME - OUTPUT WITH PRINTER OPTION:12:CLASSUM0& - - - - - - - - - Tl LOOP FRAMES, STEP 4 - GET EXAM SCORES; COMPUTE AVERAGEZvhE1ENUM"EXAM "E" SCORE IS";:ES:ETETESEEXAM(PUPIL)((ETENUM)10)10: - - - - - - - - - - - - - - - - - - - - - - - - - - - - -0H! BIBLWRITE PROGRAM'h ----------------------------------------------------------( FRAME 1 - TITLE AND ASSIGNMENTS2<:12:4F"BIBLIOGRAPHY FILE RECORD KEEPING"PP14000:P" ZAUTHR$(50),TITLE$(50),AB   ---------< FRAME 7, STEP 2 - ASSIGN ACTIVITY FACTORB^ EXERCISE1ACTFACTR12zEXERCISE2ACTFACTR15 EXERCISE3ACTFACTR18* ---------------------------------------------------------4 FRAME 7, STEP 3 - CALCULATE CALU LIKE? ";TRY& TRY1TRYITEMS220f ---------------------------------------------------------  LOOP FRAMES, STEP 1 - POSITION; INITIALIZE MISS FLAG  Q1TRY ":4:MISS0 , -----------------------------------------------------------------------------------------------------------_ FRAME 2 - INTRODUCTIONe :2:10:"TRIVIAL QUESTIONS" 6:"SO YOU THINK YOU KNOW TRIVIA...WELL," :"THERE ARE "ITEMS" QUESTIONS AVAILABLE." :"HOW MANY WOULD YO-------------------. d DATA ASSIGNMENTS4 n? xITEMSx QUES$(ITEMS),ANS$(ITEMS),HNT$(ITEMS),MISSED$(ITEMS) ASKED(ITEMS),RGHTFDBK$(5),WRNGFDBK$(5) A1ITEMS:QUES$(A),ANS$(A),HNT$(A):A A15:RGHTFDBK$(A),WRNGFDBK$(A):A9  PROGRAM 14#d ----------------------------------------------------------( FRAME 1 - TITLE2<:12F"RANDOM QUESTIONS WITH FEEDBACK & REVIEW"PP14000:P Z ---------------------------------------        ōŠƠ͠ӍōӍō  :12:47 "FILE '"F$"' IS NOW INITIALIZED."= N FILE..." JD$(4)5 TD$"OPEN "F$:D$"DELETE "F$F ^D$"OPEN "F$X hD$"WRITE "F$c rSCRE0p |I1400z SCRE I D$"CLOSE "F$  ---------------------------------------------------------  FRAME 5 - CONCLUSION  6%"DO YOU CONSIDER YOURSELF:":N" 1. SEDENTARY (LITTLE EXERCISE)"m" 2. MODERATELY ACTIVE"" 3. VERY ACTIVE":"ENTER 1, 2, OR 3 ";EXERCISEEXERCISE1EXERCISE3730  -----------------------------------------------------------------Dl FRAME 6, STEP 2 - CALCULATE IDEAL WEIGHTJvuIDEALWT((HEIGHT60)WTINCRMNT)BASEWT --------------------------------------------------------- FRAME 7, STEP 1 - GET EXERCISE ACTIVITY INFORMATION:----------------------------------U& FRAME 6, STEP 1 - GET HEIGHT INFORMATION[0e::12D"WHAT IS YOUR HEIGHT IN INCHES? ";HEIGHTNHEIGHT47HEIGHT85640X10)"* OUT OF RANGE *":580b ---------------------------------------- ";SEXSEX1SEX2470[ --------------------------------------------------------- FRAME 5, STEP 2 - ASSIGN BASE WEIGHT AND INCREMENTSEX1BASEWT100:WTINCRMNT5SEX2BASEWT106:WTINCRMNT6" -----------------------RD360F | - - - - - - - - - - - - - - - - - - - - - - - - - - - - -|  FRAME 3, STEP 2 - USER SELECTS DISPLAY RATE  "DO YOU WANT A DISPLAY RATE OF:" 8)"1 - ONE SECOND" 8)"2 - TWO SECONDS" 8)"3 - THREE SECONDS""EN =>";Z$G 6 --------------------------------------------------------- @ FRAME 3, STEP 1 - USER SELECTS NUMBER OF WORDS J T:6 ^"THERE ARE "SPELWRD" WORDS AVAILABLE.": h"HOW MANY WOULD YOU LIKE TO TRY? ";TRY: rTRY1TRYSPELWECT THE":9 "NUMBER OF WORDS TO SPELL AND HOW LONG":j "THE WORD IS DISPLAYED. IF YOU SPELL IT": "CORRECTLY, THE NEXT WORD WILL BE": "DISPLAYED. IF YOU MISS A WORD, THE": ""SAME WORD WILL BE DISPLAYED AGAIN." ,22:30:"RETURNSS0! I1SPELWRD:WRD$(I):Ia --------------------------------------------------------- FRAME 2 - INTRODUCTION :12 "INTRODUCTION":: "THIS PROGRAM WILL PRESENT WORDS FOR YOU": "TO SPELL. YOU WILL GET TO SEL- -= d FRAME 1, STEP 2 - READ NUMBER OF WORDS POSSIBLEC nP xSPELWRD - - - - - - - - - - - - - - - - - - - - - - - - - - - - - FRAME 1, STEP 3 - ASSIGNMENTS; READ WORDS  WRD$(SPELWRD),MISSWRD$(SPELWRD),FLAG(SPELWRD):MI  PROGRAM 13_ ----------------------------------------------------------( FRAME 1, STEP 1 - TITLE2<:12:10F"SPELLING WORD DRILL"PP12000:P Z - - - - - - - - - - - - - - - - - - - - - - - - - - - -   - - - - - - - - - - - - - - - - -g& LOOP FRAMES, STEP 3 - GET HOMEWORK SCORES; COMPUTE AVERAGEm0{:H1HNUMD"HOMEWORK "H" SCORE IS";:HS:HTHTHSNHXHMWK(PUPIL)((HTHNUM)10)10:b - - - - - - - - - - - - - - - - - - - -? ";F$:, "THE NAME YOU ENTERED IS "F$:K 8:"IS THIS CORRECT? ";Z$a (Z$,1)"Y"230  --------------------------------------------------------- " FRAME 4 - FILE INITIALIZING SEQUENCE , 6:12:8 @"INITIALIZING THE": "FOR 200 STUDENTS."H :"DO YOU REALLY WANT TO DO THIS? ";Z$^ (Z$,1)"Y"470 --------------------------------------------------------- FRAME 3 - FILE NAME TO INITIALIZE :12 "WHAT IS THE NAME OF THE FILE------------------------= d FRAME 2 - INTRODUCTIONC nL x:4} "THIS PROGRAM WILL *ERASE* ALL SCORES IN": "THE FILE YOU SPECIFY USED IN CONJUNC-": "TION WITH THE APPROPRIATE GRADEBOOK": "PROGRAM. SPACE WILL BE RESERVED>% NEW SEMESTER PROGRAM+l ----------------------------------------------------------( FRAME 1 - TITLE2<:12:2F"A NEW SEMESTER FOR THE GRADE BOOK"PP13000:P Z ----------------------------------      ------------------------Q DATA FOR FIVE (5) CORRECT, INCORRECT FEEDBACKW "GRRREAT","NO...THINK OF THIS" "FINE","HOLD IT","PERFECT","NO...NOT YET"  "HOT-DOG","LET ME HELP"  "MARVELOUS","THIS MAY HELP""SWEATERS CAN UN-"Y "WHAT IS THE NUMBER OF CRANIAL NERVES","12","A BAKER'S DOZEN - 1" "LAST NAME OF PLAYER WHO HIT 61 HOMERUNS","MARIS" "COLTS' MOTHERS ARE","THE PILGRIMS' YEAR","1620","...4,8,12..." ---------------------------------TEMS R\ 5Tf ---------------------------------------------------------p DATA FOR QUESTIONS, ANSWERS, AND HINTSz "THE LARGEST RIVER IN THE WORLD","AMAZON","BIG MOMMA!" "LAST NAME OF THE COMPOSER OF 'BOLERO'","RAVEL","QUESTIONS, ANSWERS, AND HINTS# +  5c  "TEXAS","AUSTIN","IT'S IN CENTRAL TEXAS","AUS---"  "NEW MEXICO","SANTA FE","THINK OF A RAILROAD","NOT SANTA CLAUS ..."  "OREGON","SALEM","WITCHES IN NEW ENGLAND","BARGAIN PRICES"7 "MISSISSIPP ^ ---------------------------------------------------------i h FINAL FRAME - PERFORMANCE REPORTo r| |:12:8 "YOU ANSWERED "C" CORRECTLY!"   ---------------------------------------------------------  DATA FOR ITEMS, - - -D  LOOP FRAMES, STEP 2 - FEEDBACK FOR MISSED QUESTIONSJ \ MISSMISS1:r "MISS300,310,320 ,"FIRST HINT: ":FSTHNT$:230 6"SECOND HINT: ":SECHNT$:230 @"THE CORRECT ANSWER IS: ";ANS$ J24:30:"RETURN =>";Z$ TI>--------K LOOP FRAMES, STEP 1 - QUESTION FROM DATA; ANSWER CHECKEDQ g I1ITEMS:MISS0 QUES$,ANS$,FSTHNT$,SECHNT$ :8 :12:QUES$;:REPLY$ REPLY$ANS$CC1:340 - - - - - - - - - - - - - - - - - - - - - - - - - -----------------------------------H n FRAME 2 - INTRODUCTIONN xW :4 "I WILL GIVE YOU "ITEMS" STATES...": "YOU GIVE ME THE CAPITAL OF EACH..." 20:30:"RETURN =>";Z$ -------------------------------------------------t PROGRAM 12!b ----------------------------------------------------------( FRAME 1 - TITLE AND ASSIGNMENT2<:12:8F"S T A T E C A P I T A L S"PP13000:PZITEMS" d ------------------------   5000 :13:130 "THAT'S ALL FOLKS."6 V  **** CHOOSE GAME VALUES**\ o C(5(1)0) A((8C)(1)1) R(2(1)1) R1CC P(17(1)4) D(11(1)0) S(2(1)1) S1DD P9000  :10:"AMPLITUDE") 10:"PERIOD"C 10:"VERTICAL SHIFT"_ 10:"HORIZONTAL SHIFT"r $:P12000:P| L:: `"REMEMBER, ALL THE VALUES YOU ENTER" t"SHOULD BE INTEGERS." P11200:P 10 24:"PRESS RETURN TO BEGIN.";R$ dY(600) xPI3.141592654&zK ***** THIS IS ONLY A GAME*****w"I'LL DRAW A GRAPH OF THE SINUSOID:":P1500:P" Y = C + A COS B(X - D)":P12000:P:"YOU THEN ENTER THE VALUES OF THE:" P11000:P   ǍǍԠԠԠԠ 256)Bj'T9,240:T10,9:T11,202:T12,208:T13,245:T14,174st'T15,P(P256)256:T16,(P256):T17,76~'T18,T(T256)256:T19,(T256):T20,96'-0);"RED, WHITE, AND BLUE" 7' ----------------O' MUSIC SUBROUTINEg$' ----------------m.'8'P(116)256(115)22B'P1L'DP1:TP2V'T,173:T1,48:T2,192:T3,136:T4,208:T5,5:T6,206`'T7,D(D256)256:T8,(D." ZI1500& d(16384)127120- nI; x16368,0Q (4);"RUN START"W DSTART"h G C2ĺ(4)"RUN "P$ C3ė:12:8:"SELECTIONS COMPLETED": :12:12:"FILE NOT FOUND!":(7):40 ˠĠ̍ŠΠŠ̍č ----------------------------------------------------tF DATA FOR THE NUMBER AND EACH NAME ON THE CLASS ROLLzPZ 5 d "ABLE","BAKER","CAIN A.","CAIN R.","OMEGA""1))180)1002< ------------------------------------------ FILE CLOSING SUBROUTINE1CL$RANFILE$:O(22:30:"RETURN =>";Z$:U2DN =>";Z$:i<ORD RETRIEVAL SUBROUTINE5OP$RANFILE$", L"LLRD$RANFILE$", R"Id"RECORD NUMBER: "IoJ1NzI$(J)DT$(J)": "I$(J)J"==================" --------------------------------------------------------  :88$FLAG0ĺ"(NO ADDITIONS MADE TO RECORDS)":1150I.OP$SEQFILE$Z8WR$SEQFILE$pBRANFILE$:TITLE$}LL:R:NVJ1N`DT$(J)jJtCL$SEQFILE$~ --------------------------------------------------------- RECCL$RANFILE$C3750,:12:10D"ADD ANOTHER? ";Z$Y(Z$,1)"Y"860b240 -------------------------------------------------------- FRAME 5 - UPDATE OF SEQUENTIAL FILE INFO IF NEEDED:12:18:"DONE...": VS(J) 2 I012( I067$ H,H6VI>. IJ8 I012RB 15iL (I2)(I2)0Ġ1V I7ĎH7,H17VI` I6ĎH,H17VIj It 0~ H1,H18V1 V,V12H18 H1,H18V13 V,V12H1 J 22 1 *R(J)H 4V((1)251)* >K1J1F HVS(K)6VS(K)62100M RKX \S(J)V_ fJj pI13w zJ1I1 S(I)S(J)2250 KS(J) S(J)S(I) S(I)K KR(J) R(J)R(I) R(I)K J I : J13 HR(J)294,42,330,42,392,42,262,42? ^ 294,42,330,42,294,168,262,168{  -----------------------------------------------------  GRAPHICS SUBROUTINE  R(3),S(3) J13 H((1)201) K1J1 HR(K)6HR(K)62050 K92,84,349,42,330,42,330,84,311,42K " 330,42,330,252,311,42,330,42,330,84t , 311,42,330,42,349,42,330,42,294,42 6 247,42,294,168,262,126,262,42,262,84 @ 247,42,262,42,262,84,247,42,262,42 J 392,210,262,42,294,42,330,42,392,42 T 262,42, 311,42,330,42,330,252,311,42,330,42P 330,84,311,42,330,42,392,84,330,42{ 392,42,349,168,294,126,294,42,294,84 277,42,294,42,294,84,277,42,294,42  349,252,330,42,294,42,330,42,392,84  392,42,440,84,440,84,294,252,392,42!  3RAPHICS ON SCREEN Z! d2000] n ----------------------------------------------------- x STEP 3 - READ DATA AND PLAY TUNE I174 F,L P,(32767F) D,L T I 392,42,392,84,349,42,330,42,330,84' # RED, WHITE, AND BLUE)f ------------------------------------------------------( STEP 1 - INITIALIZE MUSIC ROUTINE2<10000F ------------------------------------------------------ P STEP 2 - DRAW G  ------------1 FINAL FRAME - CONCLUSION7E:12:10\"*** D O N E ***"b FRAME 4, STEP 3 - DISPLAY RANDOM SENTENCE. CHECK REPLY>sSUBJ$(SBJ)" "VERB$(VRB)" THE "DIROBJ$(DOB)".":"WHAT IS THE "PART$(PRT);REPLY$: ---------------------------------------------------------" FRAME 4, STEP 4 - IF C----------( FINAL FRAME - SCORE. 8:12\ SCRE((FRSTCNT100TRY)10)10*"YOUR 'FIRST TRY' SCORE IS "SCRE" PERCENT."4> ---------------------------------------------------------H DATA FOR THE NUMBER OF QUESTION IL1ITEMS,MISSED$(L)""7505:4Z"THE QUESTION WAS:":QUES$(L):"YOUR ANSWER WAS:":MISSED$(L):"THE CORRECT ANSWER IS:":ANS$(L)20:30:"RETURN =>";R$L  ----------------------------------------------- "FRSTCNTSCNDCNT:@lFRSTCNTTRYĺ"E X C E L L E N T !":640pv"HERE ARE QUESTIONS MISSED AT LEAST ONCE:"20:30:"RETURN =>";R$ --------------------------------------------------------- LOOP FRAMES - REVIEW OF MISSED QUESTIONSQA& ---------------------------------------------------------k0 NEXT FRAME - PERFORMANCE REPORTq:D:4:8:"HERE ARE YOUR SCORES:"N6:"CORRECT ON FIRST TRY = "FRSTCNT:X"CORRECT ON SECOND TRY = "SCNDCNT:b"TOTAL CORRECT =;R$:540H - - - - - - - - - - - - - - - - - - - - - - - - - - - - - LOOP FRAMES, STEP 3 - PROCESSES FOR CORRECT ANSWER:12:12:RGHTFDBK$(FDBK)"!"P11000:PMISS0FRSTCNTFRSTCNT1MISS1SCNDCNTSCNDCNT1H  LOOP FRAMES, STEP 3 - FEEDBACK BASED UPON REPLY & MISS VALUEN i REPLY$ANS$(RANQ)500 MISSED$(RANQ)REPLY$ MISS1450 MISS1:WRNGFDBK$(FDBK):HNT$(RANQ):370 "THE CORRECT ANSWER IS "ANS$(RANQ)20:30:"RETURN =>"- - - - - -AH FRAME 4, STEP 2 - EDIT AND/OR ADDING RECORDGRg\::C3RR1:IR:FLAG1:rfJ1Np"NEW "DT$(J)" (OR RETURN)"zE$:E$""I$(J)E$:JOP$RANFILE$", L"LWR$RANFILE$", R"IJ1NI$(J)J:12>"RECORD ID TO EDIT (OR ZERO TO STOP) ";INI0ė:240z I1IRĺ10)"***OUT OF RANGE***":760:" C U R R E N T I N F O R M A T I O N" *11904CL$RANFILE$ > - - - - - - - - - - - - - - - - - - - - - - - RIEVE A SINGLE RECORD%:12J"ENTER THE RECORD ID NUMBER ";IvI1IRĺ10)"***OUT OF RANGE***":670:11901310240 --------------------------------------------------------- FRAME 4, STEP 1 - RECORD TO EDITDS:12=&"DO YOU WANT TO USE THE PRINTER? ";P$X0(P$,1)"Y"ĺD$"PR#1"o:OP$RANFILE$", L"L|D:I1RN1200XIb1310l240v - - - - - - - - - - - - - - - - - - - - - - - - - - - - - FRAME 3, STEP 3 - RETB  1.6,95,1.7,96,1.8,96.5,1.9,97,2,98,2.1,98.3,2.2,98.5,2.3,99.9,3,-1.8,4,-1.7,5,-1.6,6,-1.5,7Y -1.4,8,-1.3,10,-1.2,12,-1.1,14,-1,16,-.9,18,-.8,21 -.7,24,-.6,27,-.5,31,-.4,35,-.3,38,-.2,42,-.1,46  0,50,.1,54,.2,58,.3,62,.4,66,.5,59,.6,73,.7,76 .8,79,.9,82,1,84,1.1,86,1.2,89,1.3,90,1.4,92,1.5,93HER ANALYSIS:12A"DO ANOTHER SET OF SCORES? ";Z$m(Z$,1)"Y"SUM0:SMDIST0:LINE0:260u: --------------------------------------------------------- DATA FOR Z-SCORE AND PERCENTILE TABLE  -2.1,2,-2,2,-1NMTCH145;XZSCREZTABLE(MTCH)ĺPRCNT(MTCH):MTCH45EbMTCHylLINELINE1:LINE20Ė30:"RETURN =>";Z$:LINE0vI24:30:"RETURN =>";Z$ ---------------------------------------------------------  FRAME 6 - OPTION FOR ANOTATION OF Z-SCORE AND PERCENTILE RANK*3:8S"Z-SCORE AND PERCENTILE":"SCORE"15)"Z-SCORE"30)"PERCENTILE":I1ENTRIES&ZSCRE((DIST(I)SD)10)100SCRE(I)15)ZSCRE30);:ZSCRE2.1ĺ"1":630DZSCRE2.3ĺ"99":630WORD IN SEQUENCE '# 'J1WRD2 'IS(R$)X '(R$,I,L(J))KW$(J)SI1:10190_ 'Il 'FLAG1:s 'Jy '-Y WORDS 8' B'J1LA L'(A$,J1,1)"*"LTRSLTRS1:10090q V'WRDWRD1:KW$(WRD)(A$,P,LTRS):L(WRD)LTRS `'PJ2:LTRS0 j'J t'S1 ~' ------------------------------------------------------- ' STEP 2 - SEARCH RESPONSE FOR EACH KEY z& &L& --------------------------------------------------------i& KEYWORD SUBROUTINEo''FLAG0:LTRS0:WRD0'L(A$):P2$' ------------------------------------------------------- .' STEP 1 - BREAK KEYPHRASE INTO KE   -------------------V | FRAME 4, STEP 2 - ASSIGN RANDOM PART SELECTED TO ANSWER$\ z PRT1ANSWER$SUBJ$(SBJ) PRT2ANSWER$VERB$(VRB) PRT3ANSWER$DIROBJ$(DOB)  ---------------------------------------------------------8 -K " FRAME 4, STEP 1 - RANDOM SELECTIONS: SENTENCE PARTS & QUESTIONQ ,f 6I1NUMBER::8 @"GIVEN THE SENTENCE:": JSBJ(5(1)1) TVRB(5(1)1) ^DOB(5(1)1) hPRT(3(1)1) r ---------------------------------------------E 6 LOOP FRAMES, STEP 2 - SELECT FEEDBACK AND QUESTIONK @` JFDBK(5(1)1)y TRANQ(ITEMS(1)1) ^ASKED(RANQ)1340 hASKED(RANQ)1 r:QUES$(RANQ);:REPLY$: | - - - - - - - - - - - - - - - - - - - - - - - - - - - - -EAN SMDISTSMDISTDIST(I)2& IO VARIANCE((SMDISTENTRIES)100)100m SD((VARIANCE)100)100 MEAN15)VARIANCE30)SD 24:30:"RETURN =>";Z$  ---------------------------------------------------------$ FRAME 5 - COMPUT-----------------------------------------c T FRAME 4 - COMPUTATION OF MEAN, VAR, STND DEVIAi ^s h:10 r"MEAN"15)"VARIANCE"30)"SD" |"----"15)"--------"30)"--" MEAN((SUMENTRIES)100)100 I1ENTRIES DIST(I)SCRE(I)Mt'S1F~' -------------------------------------------------------' STEP 2 - SEARCH RESPONSE FOR EACH KEY WORD IN SEQUENCE''J1WRD'IS(R$)'(R$,I,L(J))KW$(J)SI1:10190'I'FLAG1:'J''L(A$):P2L$' -------------------------------------------------------~.' STEP 1 - BREAK KEYPHRASE INTO KEY WORDS8'B'J1LL'(A$,J1,1)"*"LTRSLTRS1:10090V'WRDWRD1:KW$(WRD)(A$,P,LTRS):L(WRD)LTRS`'PJ2:LTRS0j'J---------------------------------------------------------r (FRAMES FOR ADDITIONAL QUESTION SEQUENCES)x~&&& --------------------------------------------------------& KEYWORD SUBROUTINE''FLAG0:LTRS0:WRD06 |FLAG0ĺ"I'M NOT CERTAIN OF THAT SPELLING!":130v  ---------------------------------------------------------  FINAL FRAME FOR THIS QUESTION SEQUENCE. GIVE A HINT  "HERE'S A HINT:" "UNITED ------ -- -------":1309 ---------------------------------------f 6 (FOLLOWING ILLUSTRATE OTHER ANTICIPATED MATCHES)l @ JA$"*UNIT*":10000 TFLAG0ĺ"UNITED WHAT OF WHAT?":130 ^A$"*AMER*":10000 hFLAG0ĺ"WHAT OF AMERICA?":130 rA$"*U*S*A*":10000NSWER!":440L ---------------------------------------------------------  FRAME 2, STEP 4 - NO MATCH; ASSIGN NEXT ANTICIPATED ANSWER  A$"*UNIT*STAT*":10000 "FLAG0ĺ"YES, BUT UNITED STATES OF WHAT?":130' , ------------------ 2, STEP 2 - ASSIGN 1ST ANTICIPATED MATCH TO A$5 V A$"*UNIT*STAT*AMER*":10000 --------------------------------------------------------- FRAME 2, STEP 3 - IF FLAG = 0 THEN MATCH OCCURRED FLAG0ĺ"YES! I'LL ACCEPT THAT A :10:6:"DO YOU WANT:"9 10:"1. ALL RECORDS"Y 10:"2. A SPECIFIC RECORD"s 6:"ENTER 1 OR 2 ";C C1C2480 C2660  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - FRAME 3, STEP 2 - RETRIEVE ALL RECORA RECORD"# h8:"3. ADD A RECORD"4 r8:"4. STOP= |:4\ "ENTER YOUR CHOICE => ";Cm C1C4380 C450,750,860,1050  ---------------------------------------------------------  FRAME 3, STEP 1 - PRESENT RETRIEVAL OPTIONS  7 :"INFORMATION FILE"20)"RANDOM ACCESS FILE"Z ":SEQFILE$:2:20:RANFILE$:t ,:"RECORD LENGTH: "L 6"CURRENT NUMBER OF RECORDS: "R @:8)TITLE$: J10:4:"DO YOU WANT TO: ": T8:"1. RETRIEVE INFORMATION" ^8:"2. EDIT LE$ OP$SEQFILE$% RD$SEQFILE$; RANFILE$:TITLE$H L:R:NZ DT$(N),I$(N)e I1Nq DT$(I)x I CL$SEQFILE$ D$"PR#0" ---------------------------------------------------------  FRAME 2 - FILE ACCESS OPTIONS- - - - - - - - - - - - - - - - - - - - - - o Z FRAME 1, STEP 2 - RETRIEVE RAF INFO FROM SEQUENTIAL FILEu d n:2:8 x"RANDOM ACCESS FILE USE":12 "WHAT IS THE NAME OF THE SEQUENTIAL FILE" "CONTAINING THE RAF INFORMATION? ";SEQFIV  RAF USE\ ----------------------------------------------------------( FRAME 1, STEP 1 - DEFINE VARIABLES FOR FILE USE2<D$(4):OP$D$"OPEN ":CL$D$"CLOSE "FRD$D$"READ ":WR$D$"WRITE ", P - - - - - - -         z#?ԠǠ ٠ՠԠ Š "ӠϠ  ĠԠ ͠͠àŠàϠ  Š ұ   ͠ ͠  נҠ ͠ Š Š ӱ Ϡ Ҡ ͠ ͠͠͠͠͠  DZ ͠"͠! ƠΠ ƠŠ Ġ ͠ ͠ ͠ ͠͠ ՠ̠̠͠ Ϡ͠͠͠͠  ˠ ĠIND OF A TREE WAS IT?"V - - - - - - - - - - - - - - - - - - - - - - - - - - - - -~ "IN HIS LATER YEARS, HE LIVED AT" "MOUNT VERNON","YES, A BEAUTIFUL HOME ON THE POTOMAC." "MOUNT","MOUNT WHAT? PLEASE ANSWER AGAIN." "VERNON","YO"YOU CAST A SPELL ON ME"_ --------------------------------------------------------- DATA FOR NUMBER OF WORDS; SPELLING WORDS 5 "ALIGN","ALREADY","ALL RIGHT","ALLEVIATE","ALUMINUM"P20)"CORRECT SPELLING":)*I1SPELWRDA4MISSWRD$(I)""840]>MISSWRD$(I)20)WRD$(I)dHIR22:30:"RETURN =>";Z$\ ---------------------------------------------------------f FINAL FRAME - CLOSING COMMENTpz:12:8TOTAL OF "MISS" MISSPELLING(S)":RMISS0ĺ"EXCELLENT! YOU GOT THEM ALL!":850 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - FRAME 4, STEP 2 - OTHERWISE, PRESENT LISTS 12)"PROBLEM WORDS": "LAST MISSPELLING"E, ASSIGN RESPONSE; REPEAT WORD%RMISSWRD$(RANWRD)SPELL$:MISSMISS1:570[WRD --------------------------------------------------------- FRAME 4, STEP 1 - CHECK FOR PERFECT SCORE; GIVE FEEDBACK:12!"YOU HAD A - - - - - - - - - - - - - - - - - - - - - - - - - - - -sl LOOP FRAMES, STEP 3 - IF CORRECT, ASK NEXT WORDyvSPELL$WRD$(RANWRD)690 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - LOOP FRAMES, STEP 4 - OTHERWISFLAG(RANWRD)1N - - - - - - - - - - - - - - - - - - - - - - - - - - - - -& LOOP FRAMES, STEP 2 - DISPLAY WORD; GET USER RESPONSE0::12:12DWRD$(RANWRD):P1(DISPLAY1000):PN:12X"YOUR SPELLING IS => ";SPELL$8b ---------------------?0 FINAL FRAME - PERFORMANCE REPORTE:OD:12N"YOU WERE CORRECT ON "CRCT" OF "NUMBER" PROBLEMS"XP --------------------------------------------------------- LOOP FRAMES, STEP 5 - IF INCORRECT, SHOW ANSWER UNTIL RETURN:"THE CORRECT ANSWER IS "ANSWER20:30:"RETURN =>";Z$I& -------------------------------------YN1N2360(ANSWERN1N2=N1" - "N2" = ";} --------------------------------------------------------- LOOP FRAMES, STEP 4 - CHECK REPLY; IF CORRECT, COUNT IT; ASK NEXTREPLYREPLYANSWERCRCTCRCT1:540>OOP FRAMES, STEP 2 - RANDOMLY SELECT TWO NUMBERS6 ^X hN1(((HIGHLOW)1)(1)LOW)z rN2(((HIGHLOW)1)(1)LOW) | --------------------------------------------------------- LOOP FRAMES, STEP 3 - CHECK N1 > N2; ASSIGN ANSWER; DISPLAW NUMBER!":210O  --------------------------------------------------------- " LOOP FRAMES, STEP 1 - START THE LOOP; POSITION CURSOR , 6I1NUMBER @:12:10 J ---------------------------------------------------------0 T L?  BIBLREAD PROGRAM&g ----------------------------------------------------------( FRAME 1 - TITLE AND ASSIGNMENTS2<:12:4F"BIBLIOGRAPHIC FILE SEARCHING"PP13000:P ZAUTHR$(500),TITLE$(500),ABTRA      Y  :5:8-"AN APPLE FOR THE TEACHER"I:13:"SECOND EDITION"g(11:13:"BY GEORGE CULP"2:12:"AND HERB NICKLES"<20:5:"BROOKS/COLE PUBLISHING COMPANY"F10:"MONTEREY, CALIFORNIA" P23:4:"COPYRIGHT 1986 BY WADSWORTH, INC - - - - - - - - - - -@ FRAME 1, STEP 3 - ASSIGN VERBSF ] I17:VRB$(I):I - - - - - - - - - - - - - - - - - - - - - - - - - - - - - FRAME 1, STEP 4 - ASSIGN DIRECT OBJECTS I17:DOBJ$(I):I/ ----------IRECT OBJECTS"* d23:30:"RETURN =>";Z$I nSUBJ$(7),VRB$(7),DOBJ$(7) x - - - - - - - - - - - - - - - - - - - - - - - - - - - - - FRAME 1, STEP 2 - ASSIGN SUBJECTS I17:SUBJ$(I):I - - - - - - - - - - - - - - - - - - v A458Z ----------------------------------------------------------( FRAME 1, STEP 1 - TITLE AND ASSIGNMENTS2<:8F"FIVE RANDOM SENTENCES SELECTED FROM":P"3 LISTS OF 7 SUBJECTS, VERBS, AND": Z10:"D  $pTITLE$(K1)TITLTEM$5zABTRACT$(K1)ABTRTEM$>J:ROUTINE  J1MTCHZARTHTEM$AUTHR$(J):TITLTEM$TITLE$(J):ABTRTEM$ABTRACT$(J)j KJ111*AUTHR$(K)ARTHTEM$8704AUTHR$(K1)AUTHR$(K)>TITLE$(K1)TITLE$(K)HABTRACT$(K1)ABTRACT$(K)RK\K0fAUTHR$(K1)ARTHTEMZ$,1)"Y"130M ---------------------------------------------------------t FRAME 7 - CONCLUSION z:12:8"* SEARCH COMPLETED *" -------------------------------------------------- THE SORTING SUBTITLE$(I)::ABTRACT$(I)/X"///////////////"Kb20:30:"RETURN =>";Z$RlIv --------------------------------------------------------- FRAME 6 - OPTION FOR ANOTHER SEARCH:12:4"WANT ANOTHER SEARCH? ";Z$ ( FOUND FOR "SRCH$::6708"NOW SORTING BY AUTHOR..."A780 ---------------------------------------------------------& FRAME 5 - OUTPUT OF SORTED MATCHES0:I1MTCHD:8:"RECORDS FOUND FOR "SRCH$:NAUTHR$(I)::$(MTCH)AUTHR$:TITLE$(MTCH)TITLE$:ABTRACT$(MTCH)ABTRACT$C 360Y D$"CLOSE BIBLIO"  ---------------------------------------------------------  FRAME 4 - OUTPUT SEQUENCE INCLUDING MATCH SORTING  :12MTCH0ĺ"NONETITLE$:ABTRACT$# rD1$:D2$:D3$c | - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  FRAME 3, STEP 2 - CHECK FOR A MATCH  CHOICE3430 SRCH$AUTHR$SRCH$D1$SRCH$D2$SRCH$D3$360 MTCHMTCH1: AUTHR;:"=> ";SRCH$N  ---------------------------------------------------------  FRAME 3, STEP 1 - FILE READING SEQUENCE " ,:12:10 6"SEARCHING FILE..." @D$(4) JD$"OPEN BIBLIO" TD$"READ BIBLIO" ^460 hAUTHR$:R") " 3. GET THE COMPLETE LIST"/ T "YOUR CHOICE IS (1-3)? ";CHOICEo CHOICE1CHOICE3210 CHOICE1INSRT$"AUTHOR (LAST FIRST)" CHOICE2INSRT$"DESCRIPTOR" CHOICE3SRCH$"COMPLETE LIST":300 :INSRT$" SOUGHT IS "CT$(500)H d ---------------------------------------------------------o n FRAME 2 - SEARCH OPTIONSu x :4:6:MTCH0 "REFERENCE SEARCH": "DO YOU WISH TO SEARCH BY:" " 1. AUTHOR NAME" " 2. DESCRIPTO' "HELLO. WHAT'S YOUR FIRST NAME"/N$@"HOWDY, "N$F(r2"TELL ME...WHAT IS YOUR AGE IN YEARS";y<AFDA365PZ"WELL, "N$", YOU HAVE BEEN BREATHING"d"FOR AT LEAST "D" DAYS!"n,"BYE-BYE, "N$xNy PROGRAM 5A^ ----------------------------------------------------------( FRAME 1 - DISPLAY A TITLE FOR ABOUT 3 SECONDS2<:12:10F"ADDITION DRILL"PP13000:P Z ----------------------------------------OLLS (Y OR N)";A$'A$"Y"270-I-------"I212%I;4);"I ";4J1P1(I)>"*";EJKRIx" --------------------------"" 1234567891111111111222222" 0123456789012345"" P E R C E N T":"WANT ANOTHER SET OF ROICE)!j'20:30:"RETURN =>";Z$)t'::OD!":592IN"...TOO BAD!"OPsX"WANT TO SEE THE DISTRIBUTION"b"CURVE (Y OR N)";lA$vA$"Y"730::" P E R C E N T A G E"" D I S T R I B U T I O N":" -----------------K$(I):I" - "CHOICE$(I) $'I:Q.'"YOUR CHOICE IS (1-"NUMCHOICES")";:REPLY:u8'REPLY1REPLYNUMCHOICES10030B'CHOICE$(REPLY):FEEDBK$(REPLY)"."L':REPLYRGHTCHOICECC1:10090V'"THE CORRECT CHOICE IS "RGHTCHOICE":"`'CHOICE$(RGHTCH& FINAL FRAME - PERFORMANCE REPORT5 & B &:12:5e &"YOU ANSWERED "C" CORRECTLY."k & & ------------------------------------------------- & THE INPUT SUBROUTINE ' ':I1NUMCHOICES'CHOICE$(I),FEEDBS THE LARGEST IN THE USA"> "NUMCHOICES3:RGHTCHOICE1:10000~ , --------------------------------------------------------- 6 (FRAMES FOR ADDITIONAL QUESTION SEQUENCES) @ & --------------------------------------------------------, ---------------------------------------S FRAME 3 - QUESTION 2 SEQUENCEY "THE LARGEST RIVER IN THE WORLD IS THE"  "AMAZON","THAT IS THE CORRECT CHOICE"  "NILE","NO, THAT'S THE L O N G E S T RIVER"  "MISSISSIPPI","THAT'UT THERE IS A BETTER CHOICE"S "THE TERMINAL KEYBOARD","THAT'S AN INPUT DEVICE" "A MONITOR SCREEN","YES, BUT SO IS A PRINTER" "BOTH 2. AND 4. ABOVE","YES, THAT'S THE BEST ANSWER" NUMCHOICES5:RGHTCHOICE5:10000' ----------------------------------------------------------T n FRAME 2 - QUESTION 1 SEQUENCEZ x~ "WHICH OF THE FOLLOWING IS AN" "EXAMPLE OF A COMPUTER OUTPUT" "DEVICE?" "CPU","NO, THAT'S THE CENTRAL PROCESSING UNIT" "A PRINTER","YES, B* PROGRAM 20!b ----------------------------------------------------------( FRAME 1 - TITLE2<:12:4F"LINEAR MULTIPLE-CHOICE EXAMPLES"PP13000:P:ZCHOICE$(5),FEEDBK$(5)( d -----------------   -----------------------E f PROGRAM 1 MODIFICATIONS INSERTED HEREK gQ hb iHD246072 k"AND THAT'S A LIFETIME OF" lH" TOTAL HEARTBEATS!" m n,"BYE-BYE, "N$ xN' "HELLO. WHAT'S YOUR FIRST NAME"/N$@"HOWDY, "N$F(r2"TELL ME...WHAT IS YOUR AGE IN YEARS";y<AFDA365.25PZ"WELL, "N$", YOU HAVE BEEN BREATHING"d"FOR AT LEAST "D" DAYS!" e ---------------------------------- & STARTING POINT4+>H((1)6110)5HWH2BRY80H2P\X140W2f - - - - - - - - - - - - - - - - - - - - - - - - - - - - -p RECTANGLE, STEP 2 - DRAW THE RECTANGLEzX,YXW,YXW,YHX,YHX,YX1,Y1XW1,Y1- - - - - - - - - - V TRIANGLE, STEP 4 - CHECK FOR CORRECT ANSWER AND BRANCH \pANS$"T"İ1300 ANS$"T"İ1400  ----------------------------------------------------------* RECTANGLE, STEP 1 - CHOOSE HEIGHT, WIDTH,W THE TRIANGLE1X,YXW,YHXW,YHX,Ys - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  TRIANGLE, STEP 3 - ASK FOR ANSWER AND INPUT IT"WHICH SHAPE IS IT? ";ANS$ - - - - - - - - - - - - - - - - - - - ------------------------------bX TRIANGLE, STEP 1 - CHOOSE HEIGHT, WIDTH, & STARTING POINThb|lH((1)6110)vWH.7Y80H2X140 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - TRIANGLE, STEP 2 - DRAIT("WHICH SHAPE IS IT? ";ANS$i - - - - - - - - - - - - - - - - - - - - - - - - - - - - - SQUARE, STEP 4 - CHECK FOR CORRECT ANSWER AND BRANCH&0ANS$"S"İ1300:ANS$"S"İ1400DN ----------------------------- -.  SQUARE, STEP 2 - DRAW THE SQUARE4 U X,YXW,YXW,YHX,YHX,Y X1,Y1XW1,Y1XW1,YH1X1,YH1X1,Y1  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - SQUARE, STEP 3 - ASK FOR ANSWER AND INPUT ---------------------------------------------------------- | SQUARE, STEP 1 - CHOOSE HEIGHT, WIDTH, AND STARTING POINT  H((1)6110) WH1.20 Y80H2 X140W2  - - - - - - - - - - - - - - - - - - - - - - - - - - - OUTINE  Z((1)41)6 Z400,620,830,1050= "I~ , ---------------------------------------------------------- 6 FINAL FRAME - PERFORMANCE REPORT @ J: T"YOU GOT "C" SHAPES CORRECT!": ^"SO LONG FOR NOW." h< rOP FRAMES, STEP 2 - POSITION AND DISPLAY SENTENCE7 JA T:12g ^SUBJ$(S)" "VRB$(V)" "DOBJ$(D)"!"| h22:36:"=>";Z$ rI | ---------------------------------------------------------  FRAME 3 - OPTION FOR MORE  :12 "-----------------------------------------------j LOOP FRAMES, STEP 1 - GET 3 RANDOM VALUES, 1-7p { I15 S(7(1)1) "V(7(1)1) ,D(7(1)1) 6 - - - - - - - - - - - - - - - - - - - - - - - - - - - - -1 @ LO - WAS ANSWER TOO LOW? IF SO, SAY SO & REPEAT QUESTION< ,] 6REPLY39ĺ"TOO LOW...":200 @ --------------------------------------------------------- J STEP 6 - TOO HIGH? IF SO, SAY SO WITH RANDOM FEEDBACK & REPEAT T ^REPLY39ĺ"TO-------------------------------------------s STEP 4 - CORRECT ANSWER? IF SO, FEEDBACK GIVEN & END PROGRAMy  REPLY39ĺ"DIDN'T LOOK IT..."25)"DID HE?":440  ---------------------------------------------------------6 " STEP 5T'S TEXAS"J --------------------------------------------------------- STEP 3 - ASK SECOND QUESTION; CHECK NUMERIC INPUT FOR RANGE "WHAT WAS THE PERPETUAL AGE" "OF THE LATE JACK BENNY? ";REPLY + ---------------------------U Z STEP 2 - ASK FIRST QUESTION; CHECK STRING INPUT FOR ACCURACY[ da n x"WHAT STATE FOLLOWS ALASKA" "IN TOTAL LAND AREA? ";REPLY$ REPLY$"TEXAS"ĺ3)"YEEE-HAA"25)"THAT'S IT!" REPLY$"TEXAS"ĺ10)"NO...Ih PROGRAM 3` ----------------------------------------------------------( STEP 1 - CLEAR THE SCREEN AND SHOW A TITLE2<F"STRING AND NUMERIC ANSWER CHECKING" P ---------------------------------------------     ANSWERN1N2)N1" + "N2" = ";i --------------------------------------------------------- LOOP FRAMES, STEP 4 - CHECK REPLY; IF CORRECT, COUNT IT; ASK NEXTREPLYREPLYANSWERCRCTCRCT1:540* ---------------FRAMES, STEP 2 - RANDOMLY SELECT TWO NUMBERS2 ^T hN1(((HIGHLOW)1)(1)LOW)v rN2(((HIGHLOW)1)(1)LOW) | ---------------------------------------------------------  LOOP FRAMES, STEP 3 - CHECK N1 > N2; ASSIGN ANSWER; DISPLAYMBER!":210K  --------------------------------------------------------- " LOOP FRAMES, STEP 1 - START THE LOOP; POSITION CURSOR , 6I1NUMBER @:12:10 J ---------------------------------------------------------, T LOOP WHAT'S THE HIGHEST NUMBER YOU WANT? ";HIGHj --------------------------------------------------------- FRAME 2, STEP 4 - CHECK FOR REASONABLE LIMITS LOW10HIGH100ĺ,"SELECT 10 TO 100":210 LOWHIGHĺ"HIGH IS LESS OR = LOW NU NUMBER > NUMBER5NUMBER20ĺ,"SELECT 5 TO 20!":130~ --------------------------------------------------------- FRAME 2, STEP 3 - ASK FOR HIGH AND LOW RANGE OF NUMBERS :"WHAT'S THE LOWEST NUMBER YOU WANT? ";LOW* :"------------------N d FRAME 2, STEP 1 - ASK FOR THE NUMBER OF PROBLEMST n^ x:12 "HOW MANY PROBLEMS DO YOU WANT? ";NUMBER --------------------------------------------------------- FRAME 2, STEP 2 - CHECK FOR A REASONABLE A731 \ ----------------------------------------------------------( FRAME 1 - TITLE AND ASSIGNMENT2<:12:4F"ALPHABETIZING A LIST OF NAMES"PP12000:PZL$(250) d ----------------------------  ! N": 12:81"* SEARCH COMPLETED *"7w --------------------------------------------------------- DATA LIST - HYPOTHETICAL NAMES AND SCORES& "SUE",67,"BOB",55,"JACK",98,"MARY",99,"STAN",50,"ROB",72*0 "LETA",77- - - - - - - - - - - - N 2::"FRAME 4, STEP 3 - ANOTHER SEARCH OPTION":T  "DO YOU WISH ANOTHER SEARCH (Y OR N)? ";Z$ Z$"Y"Į:190  ---------------------------------------------------------:4::"FRAME 5 - PROGRAM CONCLUSIO2::"FRAME 4, STEP 2 - DO THE LOOP SEARCH":4 T@ ^I150P hNAME$,SCREn rNAME$"END OF NAMES"400 |SCREMINSCREMAXĺNAME$,SCRE:COUNTCOUNT1 I :"THIS SEARCH FOUND "COUNT" MATCH(ES).":  - - - - - - - - - - - - - - - - ----------------------------------------------` :2::"FRAME 4, STEP 1 - DISPLAY HEADING":f  ""SCORES IN THE RANGE OF "MIN" TO "MAX: ,"NAME","SCORE" 6"----","-----" @ - - - - - - - - - - - - - - - - - - - - - - - - - - - - . J"RETURN =>";Z$O --------------------------------------------------------- :4::"FRAME 3 - INITIALIZE; GET VALUES": 10:6:COUNT0 "MAXIMUM SCORE SOUGHT IS? ";MAX 12:6 "MINIMUM SCORE SOUGHT IS? ";MIN. --------------------------7 d:10::"FRAME 2 - INTRODUCTION":= nD x4r "THIS PROGRAM WILL SEARCH A DATA LIST": "CONSISTING OF STUDENT NAMES AND SCORES": "FOR A MATCH WITHIN A MAXIMUM AND": "MINIMUM RANGE THAT YOU SPECIFY." 20:30: PROGRAM 4] ----------------------------------------------------------(:4::"FRAME 1 - TITLE DISPLAY WITH PAUSE":2<12:8F"SCORE DATA SEARCHING"PP14000:P Z -------------------------------------------      - - - - - - - - - - - - - - - - - - - - -d( CORRECT ANSWER, STEP 2 - ADD 1 TO TOTAL CORRECTj2t<CC1FP11000:PPZ ----------------------------------------------------------d INCORRECT ANSWER, STEP 1 - PRINT RESPONSECK FOR CORRECT ANSWER AND BRANCH&:ANS$"C"İ1300OANS$"C"İ1400U ---------------------------------------------------------- CORRECT ANSWER, STEP 1 - PRINT RESPONSE  :"YOU ARE CORRECT!"* - - - - - - - -JC - - - - - - - - - - - - - - - - - - - - - - - - - - - - -z CIRCLE, STEP 3 - ASK FOR ANSWER AND INPUT IT"WHICH SHAPE IS IT? ";ANS$ - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  CIRCLE, STEP 4 - CHEH((1)6110)($X(3.14)H1.2140<.Y(3.14)H80}8 - - - - - - - - - - - - - - - - - - - - - - - - - - - - -B CIRCLE, STEP 2 - DRAW THE CIRCLELVX,Y`J3.153.15.1jX(J)H1.2140tY(J)H80~X,YB RECTANGLE, STEP 4 - CHECK FOR CORRECT ANSWER AND BRANCHH\ANS$"R"İ1300qANS$"R"İ1400w ---------------------------------------------------------- CIRCLE, STEP 1 - CHOOSE RADIUS, AND STARTING POINTXW1,YH1X1,YH1X1,Y1_ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - RECTANGLE, STEP 3 - ASK FOR ANSWER AND INPUT IT"WHICH SHAPE IS IT? ";ANS$ - - - - - - - - - - - - - - - - - - - - - - - - - - - - -- - - - - - - - - - - - - - - - - - - - - - - - - - - -p  FRAME 5, STEP 2 - OUTPUT OF ALPHABETIZED LISTv  :"ALPHABETIZED LIST:": I1NAMES I5)"- "L$(I) I &P$"Y"ĺ(12):(4)"PR#0" 024:36:"=>";Z$1: --------(K) |K K0$ L$(K1)TEMP$+ Jk  ---------------------------------------------------------  FRAME 5, STEP 1 - OPTION FOR A PRINTER COPY  :12 "DO YOU WANT A PRINTER COPY (Y/N)? ";P$ P$"Y"ĺ(4)"PR#1"7  - NAMESI1J " ---------------------------------------------------------} , FRAME 4 - SORT THE NAMES ALPHABETICALLY 6 @:12:10:"SORTING NAME" JJ1NAMES:12:23:J TTEMP$L$(J) ^KJ111 hL$(K)TEMP$400 rL$(K1)L$ALPHABETIZED LIST."/ 23:30:"RETURN =>";Z$o --------------------------------------------------------- FRAME 3 - INPUT NAMES TO L$() ARRAY I1250 :12 "LAST NAME FIRST NAME ";L$(I) L$(I)"STOP"280 I ------------------------------A n FRAME 2 - INTRODUCTIONG xP :4w "THIS PROGRAM WILL ALPHABETIZE": "A LIST OF NAMES INPUT IN THE": "SEQUENCE: LAST NAME FIRST NAME.": "YOU MUST ENTER THE WORD 'STOP' TO": "GET THE ""P- - - - - - - - - - - - - - - - - - - - - - - - - - - - -a "IN HIS LATER YEARS, HE LIVED AT" "MOUNT VERNON","YES, A BEAUTIFUL HOME ON THE POTOMAC." "MOUNT","MOUNT WHAT? PLEASE ANSWER AGAIN." "VERNON","YOU ARE MISSING THE FIRST PART.U ARE MISSING THE FIRST PART."- - - - - - - - - -d` "AS A YOUNG LAD, HE ONCE CHOPPED DOWN A"j "CHERRY TREE","AH, YES, TO MAKE A PIE, NO DOUBT."t "CHERRY","A CHERRY WHAT? PLEASE TRY AGAIN."~ "TREE","WHAT KIND OF A TREE WAS IT?"9 +0 FINAL FRAME - PERFORMANCE REPORT1:;D:12rN"YOU WERE CORRECT ON "CRCT" OF "NUMBER" PROBLEMS"xX"------------------------------------------q LOOP FRAMES, STEP 5 - IF INCORRECT, SHOW ANSWER UNTIL RETURNw:"THE CORRECT ANSWER IS "ANSWER20:30:"RETURN =>";Z$I& ---------------------------------------------------------z  P$(23)480H::"* * M E N U O F P R O G R A M S * *"q(:"EXAMPLE PROGRAMS FROM THE TEXT:"w2<I123FP$(I)PIZdI14nJ04xP$(J4I);(J1)7);JJ4I24ĺP$(J4I):160I( E*04"LET ME PRESENT THE PROBLEM AGAIN."N>22:30:"RETURN =>";Z$:H ---------------------------------------------------------R DATA FOR NUMBER OF COMPOUNDS, FORMULA, FORMULA WEIGHT\f 3p "KOH",56,"HF",20,"KI",166 E L L E N T !"24:10>"WANT ANOTHER (Y/N)? ";REPLY$W(REPLY$,1)"Y"290:12:"REMEMBER, MAKE NO MOUNTAINS OUT OF MOLES"  ---------------------------------------------------------  FEEDBACK/DISPLAY HOLDING SUBROUTIN*"HMMM...THAT IS THE CORRECT VALUE."c"YOU MUST HAVE MADE AN ARITHMETIC ERROR.":820:330 --------------------------------------------------------- FRAME 4 - FEEDBACK FOR CORRECT; OPTION FOR ANOTHER:12:10"E X CVES","CAT", "TRACY","KISSED","FISH"U "HERB","SOLD","BIRD","LISA","BOUGHT","CAR"L FRAME - PERFORMANCE REPORT"D/N:12:6VX"YOU CORRECTLY ANSWERED "COUNT"."\bl ---------------------------------------------------------v DATA FOR SUBJECTS, VERBS, AND DIRECT OBJECTS# "SAM","LIKES","DOG","MARY","LOORRECT, ASSIGN FEEDBACK TO ANSWER$(]REPLY$ANSWER$ANSWER$FDBK$(PRT):COUNTCOUNT1"THE ANSWER TO THAT QUESTION IS "ANSWER$"!"20:30:"RETURN =>";Z$&I0 ---------------------------------------------------------: FINA --------------------------------------------------------- c0 FRAME 6 - CONCLUSION i:D:12:6:"FILE RECORDS HAVE BEEN ADDED."NX"P FRAME 5 - FILE WRITING SEQUENCE 0 = :12:4` "UPDATING RECORDS IN FILE "F$l D$(4)} D$"OPEN "F$ D$"APPEND "F$ D$"WRITE "F$ I1ENTRIES STUDNT$(I) TSTNAME$(I) SCRE(I) I D$"CLOSE "F$=&E FILED  , 6! @I1200L J"STUDENT NAME (OR STOP)? ";STUDNT$(I)g TSTUDNT$(I)"STOP"390 ^"TEST NAME? ";TSTNAME$(I) h"SCORE? ";SCRE(I) r |I ENTRIESI1  ---------------------------------------------------------* ADD INFORMATION?":@ "(MAY BE A NEW OR EXISTING FILE) ";F$:d "THE NAME YOU ENTERED IS "F$: 8:"IS THIS CORRECT? ";Z$:(Z$,1)"Y"220  --------------------------------------------------------- " FRAME 4 - INFORMATION TO B"'RUN' OF THIS PROGRAM."6 20:30:"RETURN =>";Z$v --------------------------------------------------------- FRAME 3 - TEXT FILE NAME FOR STORING INFORMATION :10 "WHAT IS THE NAME OF THE FILE TO WHICH": "YOU WILL P, dSTUDNT$(200),TSTNAME$(200),SCRE(200)l n --------------------------------------------------------- x FRAME 2 - INTRODUCTION :4 "UP TO 200 STUDENT NAMES, TEST NAMES,": "AND SCORES MAY BE ENTERED DURING ONE": " FILEWRITE PROGRAM(i ----------------------------------------------------------( FRAME 1 - TITLE AND ASSIGNMENTS2<:12:12F"RECORD KEEPING:":P2)"STUDENT NAME, TEST NAME, AND SCORE" ZP14000:     1,2,3,4,5,5A,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22C :y :12:12:"FILE NOT FOUND!";(7):I1500:I:30LOAD ";N$ T12:"2. RUN ";N$; ^12:"3. EXIT TO BASIC"b h:10:"YOUR CHOICE IS (1-3) => ";i rPu |D$(4) :I110::I P420,440,470 310 "LOADING ";N$;"..." D$;"LOAD";N$ "RUNNING ";N$;"..." D$;"RUN";N$;  EAD";14);"MENU";28);"RAF CREATION"U "FILEWRITE";14);"MINANSWER";28);"RAF USE"[  "PLEASE ENTER THE NAME OF THE PROGRAM" "YOU WISH TO ACCESS => "; "N$ ,(N$)3N$"PROGRAM "N$ 6:8:10 @"DO YOU WISH TO:": J12:"1. :"ANSWERS TO 'POSERS AND PROBLEMS':". R "A354";14);"A458";28);"A731" :"DEMONSTRATION PROGRAMS FROM THE TEXT:" "BIBLREAD";14);"GRADEBOOK";28);"MUSIC DEMO" "BIBLWRITE";14);"KEYWORDS DEMO";28);"NEW SEMESTER"$ "FILERSTUDNT$(I):TSTNAME$(I):SCRE(I)*I<D$"CLOSE "F$| --------------------------------------------------------- FRAME 9 - CONCLUSION :12:12"*** D O N E ***"$P-------------------------------------` FRAME 3 - NUMBER OF SENTENCES FOR PRACTICEf p :12 "HOW MANY SENTENCES DO YOU WANT (3-25)?";NUMBER NUMBER3NUMBER25250  --------------------------------------------------------  :4= "I'LL GIVE YOU SOME SENTENCES AND YOU":k "WILL BE ASKED TO IDENTIFY EITHER THE": "SUBJECT, VERB, OR DIRECT OBJECT. YOU": "MAY SELECT 3-25 SENTENCES TO PRACTICE.": 20:30:"RETURN =>";Z$% --------------------SUBJ$(I),VERB$(I),DIROBJ$(I):I` nPART$(1)"SUBJECT":PART$(2)"VERB":PART$(3)"DIRECT OBJECT" xFDBK$(1)"PERFECT":FDBK$(2)"GREAT":FDBK$(3)"A-OK" --------------------------------------------------------- FRAME 2 - INTRODUCTION V  PROGRAM 6#d ----------------------------------------------------------( FRAME 1 - TITLE AND ASSIGNMENTS2<:12:8F"RANDOM SENTENCES"PP13000:PZSUBJ$(5),VERB$(5),DIROBJ$(5) dI15:     T I115I+(X((1)40)<2Y((1)40)E<X,YLFIRP IR:GE&:12:10:"SORTING NAME"?J1ROLL:12:23:JPTEMPAVRG(J)eTEMP$STUDNT$(J)u KJ111AVRG(K)TEMP2110AVRG(K1)AVRG(K) STUDNT$(K1)STUDNT$(K)*K4K0>AVRG(K1)TEMP@STUDNT$(K1)TEMP$HJ--------------NF DATA FOR THE NUMBER AND EACH NAME ON THE CLASS ROLLTP^Z 5 d "ABLE","BAKER","CAIN A.","CAIN R.","OMEGA" --------------------------------------------------------- FRAME 4 - SORT THE NAMES BY AVERA'(R$,I,L)A$10080 8'I@ B':"YOUR ANSWER DID NOT CONTAIN"N L':12)A${ V':"THE MINIMUM ANSWER I WANTED.":10110 `':"YES, I'LL ACCEPT": j'R$: t'"BECAUSE IT CONTAINS "A$ ~'22:30:"RETURN =>";Z$ ':A******* . FRAME 6 - DISPLAY A HEADING4:o"HERE IS A LIST OF "SELCT" SELECTED NAME(S):":"NAME","SEX""----","---"& ---------------------------------------------------------0 FRAME 6, STEP 1 - BEGIN LOOP; SELINPUT WITH CHECKING OF NUMBER TO BE SELECTED2<:12o"YOU HAVE ENTERED "ENTRDNUM" NAMES. HOW MANY""DO YOU WISH TO SELECT? ";SELCTSELCT1SELCTENTRDNUMĺ"*NOT POSSIBLE*":450 ************************************************* ^:4 hI1ENTRDNUM; r"NAME "I" IS";:NAME$(I)f |NAME$(I)"'S SEX IS (M/F)";:SEX$(I): SEX$(I)"M"SEX$(I)"F"ĺ"THAT'S A STRANGE SEX!":380 I  ********************************************************, FRAME 5 - TO BE ENTERED  ":12S ,"HOW MANY NAMES DO YOU WISH TO ENTER? ";ENTRDNUM 6ENTRDNUM3ENTRDNUM15ĺ,"*ENTER 3-15*":300 @ ******************************************************** J FRAME 4 - INPUT OF NAMES AND SEXES TO ARRAYS T SELECTED. ONCE":A "A NAME HAS BEEN SELECTED, IT WILL NOT":m "BE REPEATED IN THE RANDOM SELECTION." 24:30:"RETURN =>";Z$  ********************************************************  FRAME 3 - INPUT WITH CHECKING OF THE NUMBER :. "LISTS. YOU WILL BE ASKED TO ENTER":] "THE NAMES AND SEXES OF AT LEAST 3 BUT": "NO MORE THAN 15 HYPOTHETICAL PEOPLE.": "AFTER THESE HAVE BEEN ENTERED, YOU": "WILL BE ASKED TO ENTER THE NUMBER OF": "NAMES TO BE RANDOMLY5),FLAG(15)K d ********************************************************l n FRAME 2 - INTRODUCTIONr xx "THIS PROGRAM DEMONSTRATES ASSIGNING": "INFORMATION TO ONE-DIMENSIONAL ARRAYS": "AND THEN RANDOMLY SELECTING FROM THE"  PROGRAM 7_ *********************************************************( FRAME 1 - PRESENT A TITLE AND DIMENSION VARIABLES2<:12:4F"RANDOM SELECTION WITHOUT REPETITION"PP12000:P ZNAME$(15),SEX$(1       n#x:"SORRY, TRY ANOTHER."4P11000:P:1 - PRINT RESPONSEV\w"SORRY, TRY ANOTHER."J11000J MENU PROGRAM4 DATA ASSIGNMENTA?<ITEMSbFPROGM$(ITEMS),DESCRIP$(ITEMS)PA1ITEMS:PROGM$(A),DESCRIP$(A):Ax:4:8"PROGRAM MENU"::L1ITEMSL"-"DESCRIP$(L)LL"-STOP" :8)"WHAT IS YOURˠҍڠŠҍڠOU GOT ";C;" CORRECT ON THE FIRST TRY."B:10)"THAT'S ALL..."H2:,"CORRECT ANSWERS ARE:"/4:C$,E$,D$]<:"PRESS RETURN TO CONTINUE...";Z$:5240F ===NO CREDIT GIVEN IF MISSED 1ST TRY===PF15220ZCC1d"O.K."n ===SET F TO ZERO BEFORE NEXT QUESTION===xF0'"YATTENED RIGHT NOW.":"YOUR NEXT ANSWER IS";:5000p"ON SOME, IT 'WAGS' A LOT.":"YOUR NEXT ANSWER IS";:5000"PALM TO PALM PRESSURE DEVELOPS IT!":"YOUR NEXT ANSWER IS";:5000"PALM TO PALM PRESSURE DEVELOPS IT!":"YOUR NEXT ANSWER IS";:50001'V'20:"ACCEPTABLE ANSWERS ARE:":@`'A1$" "A2$" "A3$:Xj'30:"RETURN =>";Z$et'MISS0:E$5200 ===MISSED BEFORE? (F=1)===F15170F1 ===GIVE HINT FOR QUES 1,2, OR 3===X5090,5120,51501"CHANCES ARE IT'S FL----------------C& THE INPUT AND ANSWER CHECKING SUBROUTINEI'S'R$:'R$A1$R$A2$R$A3$ĺ,"CORRECT!":10060$'MISS110070.'"LET ME GIVE YOU A HINT...":8'HNT$::"PLEASE ANSWER AGAIN";B'MISS1:10000L'MISS0CNTCNTIONAL QUESTION SEQUENCES h] & -------------------------------------------------------- & FINAL FRAME - PERFORMANCE REPORT & &:12 &"YOU GOT "CNT" CORRECT ON THE FIRST ATTEMPT." && ----------------------------------------":82 ,"WHAT MUSCLE IS CONSIDERED BY SOME TO"Z 6"HAVE AN ORIGIN BUT NO INSERTION";{ @A1$"TONGUE":A2$A1$:A3$A1$ JHNT$"ON SOME, IT WAGS A LOT.":10000 T --------------------------------------------------------- ^ FRAMES FOR ADDIT MEN LEER";F A1$"PECTORALIS MAJORA":A2$"PECTORALS":A3$"PECTORAL"} HNT$"PALM-TO-PALM PRESSURE DEVELOPS THIS.":10000  ---------------------------------------------------------  FRAME 4 - SIMILAR SEQUENCE FOR A FINAL QUESTION  TTING ON IT!":10000T --------------------------------------------------------- FRAME 3 - SIMILAR SEQUENCE FOR THE SECOND QUESTION :8 "WHAT MUSCLE HAS MADE SOME PEOPLE RICH," "WEIGHT LIFTERS STRUT, AND DIRTY," "OLD----------------------------------e d FRAME 2 - FIRST QUESTION PRINT AND ASSIGNMENT SEQUENCEk nt x:8 "WHAT IS THE LARGEST MUSCLE IN THE" "HUMAN BODY"; A1$"GLUTEUS MAXIMUS":A2$"BUTTOCKS":A3$"DERRIERE" HNT$"YOU MAY BE SIf PROGRAM 8_ ----------------------------------------------------------( FRAME 1 - TITLE AND CORRECT COUNT INITIALIZATION2<:12:10F"A SHORT MUSCLE QUIZ"PP13000:P:CNT0" Z ------------------------     (Z$,1)"Y"470"J1RCRD(I)I"EDIT THIS SCORE: "SCRE(I,J);:Z$_(Z$,1)"Y"720"SCORE SHOULD BE: ";:SCRE(I,J)J580 --------------------------------------------------------- FRAME 5 - PLACE THE SCORE IN THE XSCRE(I,J)" ";:SUMSUMSCRE(I,J)*bJ[l:"AVERAGE: "((SUMRCRD(I))100)100:SUM0v --------------------------------------------------------- FRAME 4, STEP 3 - EDITING OPTION AND SEQUENCE:"DO YOU WISH TO EDIT? ";Z$STUDNT$" IS NOT ON FILE.":470` - - - - - - - - - - - - - - - - - - - - - - - - - - - - -& FRAME 4,STEP 2 - OUTPUT RECORDS FOR THE STUDENT0:RCRD(I)0ĺSTUDNT$" HAS NO SCORES.":470D:"SCORES FOR "STUDNT$":"NJ1RCRD(I)#-----------------------K  FRAME 4, STEP 1 - GET STUDENT NAME SOUGHTQ [ :12 "STUDENT'S NAME (OR STOP)? ";STUDNT$ STUDNT$"STOP"360 I1ROLL STUDNT$STUDNT$(I)CHOICE1570 STUDNT$STUDNT$(I)CHOICE2770 I  T FRAME 3 - GRADE BOOK OPTIONS, ^8 h:8:4Q r"DO YOU WANT TO:":k |"1. RETRIEVE SCORES" "2. ENTER NEW SCORES" "3. STOP (ENTER 1-3)? ";CHOICE CHOICE1CHOICE3360 CHOICE3840  -------------------------------------------; FRAME 2, STEP 3 - FILE READING SEQUENCEA M D$(4)^ D$"OPEN "F$o D$"READ "F$ "I1ROLL:RCRD(I) ,J1RCRD(I):SCRE(I,J):J 6I @D$"CLOSE "F$ J ---------------------------------------------------------&T? ";Z$ (Z$,1)"Y"130] - - - - - - - - - - - - - - - - - - - - - - - - - - - - - FRAME 2, STEP 2 - ASSIGN NUMBER AND NAME OF STUDENTS ROLL I1ROLL:STUDNT$(I):I ------------------------------------------------SCRE(200,20)M d ---------------------------------------------------------- n FRAME 2, STEP 1 - RECORD FILE NAME TO ACCESS x :10 "ENTER THE NAME OF THE RECORD FILE ";F$: "THE NAME YOU ENTERED IS "F$: 8:"IS THIS CORREC" GRADEBOOK PROGRAM(i ----------------------------------------------------------( FRAME 1 - TITLE AND ASSIGNMENTS2<:12:4F"C L A S S S C O R E K E E P I N G"PP13000:P ZSTUDNT$(200),RCRD(200),"""" 13000:I D$;"CATALOG""  DATA FOR NUMBER OF ITEMS, PROGRAM NAME AND DESCRIPTION= E " 2y , "SEQUEL 1", "SEQUEL 1 FIRST PROGRAM OPTION" 6 "SEQUEL 2", "SEQUEL 2 SECOND PROGRAM OPTION"S"SELECTIONS COMPLETED"  "GETTING THE DISK 'CATALOG'..." II180F - - - - - - - - - - - - - - - - - - - - - - - - - - - - -r FRAME 1, STEP 2 - EXECUTE CHOICE x CIė:12:12:"*** DONE ***": (4)"RUN "PROGM$(C)  ---------------------------------------------------------7  -----------------------------Q d FRAME 1, STEP 1 - DISPLAY MENU SELECTIONSW nc x:4:8 "P R O G R A M M E N U":: I1ITEMS I" - "DESCRIP$(I): I I" - STOP" :8)"ENTER YOUR CHOICE (1 TO "I")"; C C1C MENU PROGRAM#d ----------------------------------------------------------( DATA ASSIGNMENTS2<ITEMSFPROGM$(ITEMS),DESCRIP$(ITEMS)PI1ITEMS:PROGM$(I),DESCRIP$(I):I Z -----------------------------    -";:P:I1ENTRIESGNAME$STUDNT$(I)NAME$TSTNAME$(I)580y&5)I10)STUDNT$(I)26)TSTNAME$(I)36)SCRE(I)0SUMSUMSCRE(I):CNTCNT1:LINELINE1:LINE20Ģ23:30:"MORE =>";Z$:LINE0DINCNT0ĺ"NO RECORDS FOUND FOR "NAME$:8CHOICE2420M  ---------------------------------------------------------  FRAME 5, STEP 1 - SEARCH PROCEDURE  :SRCH$" NAME SOUGHT IS";:NAME$ :SUM0:CNT0 "RECORD #"10)"STUDENT"26)"TEST"35)"SCORE"P139:"PTIONS T ^:4:10:LINE05 h"FILE SEARCH":V r"DO YOU WISH TO SEARCH BY:"\ |z " 1. STUDENT NAME" " 2. TEST NAME"  "ENTER 1. OR 2. ";CHOICE CHOICE1SRCH$"STUDENT" CHOICE2SRCH$"TEST" CHOICE1D$"OPEN "F$ D$"READ "F$) 300: RECRD1200l STUDNT$(RECRD):TSTNAME$(RECRD):SCRE(RECRD)w "RECRD ,ENTRIESRECRD1 6D$"CLOSE "F$ @ --------------------------------------------------------- J FRAME 4 - SEARCH OH TO RETRIEVE INFORMATION? ";F$:E "THE NAME YOU ENTERED IS "F$:d 8:"IS THIS CORRECT? ";Z$z (Z$,1)"Y"140 ---------------------------------------------------------- FRAME 3 - FILE READING SEQUENCE D$(4) P9 dSTUDNT$(200),TSTNAME$(200),SCRE(200):FLAG0:LINE0z n ---------------------------------------------------------- x FRAME 2 - TEXT FILE NAME FOR RETRIEVING INFO :10 "WHAT IS THE NAME OF THE FILE FROM WHICH":! "YOU WIS440 zP424:30:"RETURN =>";Z$Y> ********************************************************H FRAME 8 - OPTION TO SELECT AGAIN; IF SO, RE-INITIALIZE FLAGR\:12f"DO YOU WISH TO SELECT AGAIN (Y/N)? ";R$pR$"Y"āI115:FLAG(I)0:I:********************R FRAME 7 - DISPLAY OF COMPLETE LIST SHOWING SELECTEDX^"HERE IS THE COMPLETE LIST OF NAMES""WITH A * BY THOSE RANDOMLY SELECTED:":I1ENTRDNUM ,NAME$(I)" ";FLAG(I)1ĺ"*"; *I --------------------------------------------------------- FRAME 6, STEP 3 - FLAG THE NUMBER; DISPLAY NAME AND SEX SELECTEDFLAG(X)1NAME$(X),SEX$(X)I24:30:"RETURN =>";Z$ ************************************ECT RANDOM NUMBER:&DI1SELCT?NX(ENTRDNUM(1)1)X ---------------------------------------------------------b FRAME 6, STEP 2 - HAS THIS RANDOM NUMBER APPEARED BEFORE?lvFLAG(X)1ĺ"OOPS...GOT "NAME$(X)" AGAIN":590<  FILEREAD PROGRAM&g ----------------------------------------------------------( FRAME 1 - TITLE AND ASSIGNMENTS2<:12:12F"RECORD RETRIEVAL":P2)"STUDENT NAME, TEST NAME, AND SCORE" ZP14000:  R N, WE WILL"4 d"TRANSFER TO SEQUEL 2. ANY OTHER"` n"LETTER WILL TRANSFER BACK TO MENU.": x"WHAT IS YOUR PLEASURE? ";R$ --------------------------------------------------------- FRAME 1, STEP 2 - TRANSFER TO THE APPROPRIATE PROGR> SEQUEL 1 PROGRAM%f ----------------------------------------------------------( FRAME 1, STEP 1 - INTRODUCTION, ETC.2<:4:12F"SEQUEL 1"::P"SO, WE MADE IT TO SEQUEL 1...": Z"IF YOU ENTER THE LETTE - - - - - - - - -I FRAME 6, STEP 2 - OUTPUT ALL IN THE GRADEBOOKO]I1ROLLRCRD(I)0ĺSTUDNT$(I)" HAS NO SCORES":1010STUDNT$(I):"SCORES:";J1RCRD(I)SCRE(I,J)" ";:SUMSUMSCRE(I,J):CLASSUMCLASSUMSCRE(I,J) OUTPUT OPTIONS>H:12NR"WANT TO DROP THE LOWEST SCORE? ";DROP$:g\(DROP$,1)"Y"880f"H I G H E S T POSSIBLE GRADE IS? ";HI:p"WANT A PRINTER COPY? ";P$z(P$,1)"Y"ĺD$"PR#1" - - - - - - - - - - - - - - - - - - - - NEXT ARRAY POSITION>:12:"NEXT SCORE FOR "STUDNT$;f RCRD(I)RCRD(I)1:ENTRIESENTRIES1SCRE(I,RCRD(I)):TESTSUMTESTSUMSCRE(I,RCRD(I)) 470* ---------------------------------------------------------4 FRAME 6, STEP 1 -,1)"Y"350Kz --------------------------------------------------------- FRAME 8 - UPDATE OF RECORDS IF EDITEDFLAG01040:12:4"UPDATING RECORDS IN FILE "F$D$"OPEN "F$D$"WRITE "F$I1ENTRIES#"EDIT? ";Z$:(Z$,1)"Y"500J4"REVISED SCORE IS? ";SCRE(RECRD):500> ---------------------------------------------------------H FRAME 7 - OPTION FOR ANOTHER SEARCHR\:12:12f:"WANT ANOTHER SEARCH? ";Z$ p(Z$DENT = "STUDNT$(RECRD)9"EDIT? ";Z$:(Z$,1)"Y"770i"REVISED STUDENT NAME IS? ";STUDNT$(RECRD):"TEST NAME = "TSTNAME$(RECRD) "EDIT? ";Z$:(Z$,1)"Y"800"REVISED TEST NAME IS? ";TSTNAME$(RECRD) :"SCORE = "SCRE(RECRD)*D NUMBER TO EDIT IS? ";RECRD:FLAG1WRECRD1RECRDENTRIESĺ"* OUT OF RANGE *":670 --------------------------------------------------------- FRAME 6 - EDITING OPTIONS/PROCEDURE :10"RECORD # "RECRD:"STU703X:10)"AVERAGE SCORE IS "((SUMCNT)10)109byl - - - - - - - - - - - - - - - - - - - - - - - - - - - - -v FRAME 5, STEP 2 - OPTION TO EDIT"DO YOU WISH TO EDIT ANY RECORD? ";Z$(Z$,1)"Y"860#"RECORAM ( R$"N"ĺ(4)"RUN SEQUEL 2"< (4)"RUN MENU" ---7 ADDITIONAL QUESTION SEQUENCES MAY BE ADDED= K &:12:12` &"THAT'S ALL..."f & & -------------------------------------------------------- & THE MINIMUM ANSWER SUBROUTINE ' 'R$ 'L(A$) $'I1((R$)L1) .d ----------------------------------------------------------j n FRAME 2 - SECOND QUESTION SEQUENCEp x "THE EPIC POEM 'HIAWATHA' WAS" "WRITTEN BY "; A$"LONGFELLOW":10000 ------------------------------------------------------' MINANSWER PROGRAM EXAMPLE-n ----------------------------------------------------------( FRAME 1 - FIRST QUESTION SEQUENCE2<F"THIS PROGRAM IS WRITTEN IN A"P"LANGUAGE CALLED -----";ZA$"BASIC":10000>    ANY KEY, WE WILL"5 d"TRANSFER BACK TO THE MENU.":Y n"I'LL WAIT UNTIL YOU DO SO..." x --------------------------------------------------------- FRAME 1, STEP 2 - USE THE GET STATEMENT FOR PRESSING ANY KEY R$ (4)"RUN MEN SEQUEL 2 PROGRAM%f ----------------------------------------------------------( FRAME 1, STEP 1 - INTRODUCTION, ETC.2<:4:12F"SEQUEL 2"::P"AND, HERE WE ARE EXECUTING SEQUEL 2.": Z"WHEN YOU PRESS  ! S OF PLAYER INPUT $ 1:M300* a 24:"LET'S PLOT YOUR GRAPH.....PRESS RETURN=>";R$g  21:"AMPLITUDE = ";A 22:"PERIOD = ";P 21:18:"VERTICAL SHIFT = ";C 22:18:"HORIZONTAL SHIFT = ";D 8000L** CHK TO SP11500:P . 21:"AMPLITUDE = ";AH 22:"PERIOD = ";Pm 21:18:"VERTICAL SHIFT = ";C 22:18:"HORIZONTAL SHIFT = ";D 24:"ARE THESE THE VALUES YOU WANT?";A$ (A$,1)"N"7200 7010  R  CHECK BOUND********************** 6' 8000A ********************K J7000S T: |"WOULD YOU LIKE TO PLAY AGAIN?(Y OR N)";A$ A$"Y"5010 A$"N"5600 5460  X ***** PLAYER INPUT**** b l21:"ENTER THE CORRECT VALUES." CHOICE(1 TO"L")"; CHOICE9 CHOICE1CHOICEL180a CHOICELĢ12:12:"****DONE****": (13):(4)"RUN"PROGM$(CHOICE) " 1 , "WARNING","WARNING" 11,202:T12,208:T13,245:T14,174U t'T15,P(P256)256:T16,(P256):T17,76 ~'T18,T(T256)256:T19,(T256):T20,96 '' ----------------1' MUSIC SUBROUTINEI$' ----------------O.'j8'P(116)256(115)22sB'P1L'DP1:TP2V'T,173:T1,48:T2,192:T3,136:T4,208:T5,5:T6,206`'T7,D(D256)256:T8,(D256)$ j'T9,240:T10,9:TOBJECTS D3N "THE BALL","THE HILL","THE HAT"[X "THE COOKIES","THE BAT","THE HAT"ub "THE MICROCOMPUTER"Z------------------------------------------------------U DATA FOR THE VERBS[ "HATED","LOVED","WORE","KISSED"& "TOSSED","CAUGHT","ATE"0 ---------------------------------------------------------: DATA FOR THE DIRECT WANT TO DO IT AGAIN (Y/N)? ";Z$/ Z$"Y"2705 u  ---------------------------------------------------------  DATA FOR THE SUBJECTS   "JIM","THE DOG","THE CAT"  "SUE","THE GOLD FISH","BILL"  "JACK AND JILL"6 ---! -----------------------------------------e FRAME 3 - INPUT OF SCORES; CUMULATIVE SCORE SUMk u :10 I1100 "SCORE (NEGATIVE TO STOP) ";SCRE(I) "SCRE(I)0320 ,SUMSUMSCRE(I) 6I @ENTRIESI1) J ----------------AND PERCENTILE RANKING":G "FOR A SET OF SCORES (ASSUMING NORMAL":r "DISTRIBUTION) WILL BE CALCULATED.": "AS MANY AS 100 SCORES MAY BE ENTERED.":: "ENTER ANY NEGATIVE NUMBER TO STOP." 24:30:"RETURN =>";Z$) ----------------45) dSUM0:SMDIST0:LINE0@ nI145:ZTABLE(I),PRCNT(I):I x --------------------------------------------------------- FRAME 2 - INTRODUCTION AND DIRECTIONS :4 "THE MEAN, VARIANCE, STANDARD DEVIATION,": "Z-SCORE, C  PROGRAM 9 a ----------------------------------------------------------( FRAME 1 - TITLE AND ASSIGNMENTS2<:12:4F"STATISTICS FOR A SET OF SCORES"PP13000:P ZSCRE(100),DIST(100),ZTABLE(45),PRCNT(   910 2 ===TURN ON PRINTER IF WANTED===O"USE PRINTER (Y OR N)";WZ$cD$(4)zZ$"Y"ĺD$;"PR#1" ================ PRINT OUT CLASS RECORDS  ================(I1P*K120:"/";:K:+"NAME: "N$(IAT VALUE";:S(I,J){J#|1050: ================] ADD MORE SCORES FOR STUDENTSt ================"NEXT SCORE FOR ";N$; ===INCREASE THE SCORE COUNT BY 1===N(I)N(I)1 ===STORE NEW SCORE IN ARRAY===S(I,N(I)) ===ILLEGAL TO DIVIDE BY ZERO===1`N(I)01140Tj" AVE = "((TN(I))100)100\tT0u:"NEED TO EDIT THESE SCORES (Y/N)? ";Z$vZ$"Y"910wJ1N(I)x"EDIT THIS SCORE: "S(I,J)" (Y/N)";:Z$yZ$"Y"1147z"SCORE SHOULD BE WH ================9 PRINT THE SCORES FOR THE STUDENTP ================m"SCORES FOR ";N$(I);":"N(I)0ĺ"*** NO SCORES RECORDED ***":910$J1N(I).S(I,J);" ";8 ===CUMULATIVE TOTAL FOR STUDENT===BTTS(I,J)LJ V1-3)"; \CfC1910'pC29105zC31250>810De"STUDENT'S NAME (OR STOP)";mN$N$"STOP"810I1P ===MATCH FOUND WITH NAMES?===N$N$(I)1010IN$;" IS NOT ON FILE!"920C11190E===J1N(I)S(I,J)%J,IBD$;"CLOSE TESTS"Y  ================~ THROUGH READING DATA FROM FILE  ================*:64"DO YOU WANT TO:">"1. ENTER NEW SCORES"H"2. RETRIEVE SCORES"R"3. STOP (ENTER SCORE FOR4 THAT STUDENT). N(I) IS THE NUMBER OFW SCORES; S(I,J) IS THE SCORE.m ===============D$;"OPEN TESTS"D$;"READ TESTS"I1P ===GET THE NUMBER OF SCORES FROM FILE===N(I) ===NOW GET EACH SCORE FROM FIL"TESTS")0 ================+:D$(4)AD ===============iN THEN ISSUE "COMMANDS" TO OPEN THEX THE FILE AND START READING THE DATAb FROM IT. DATA IS STORED IN THE l SEQUENCE OF (NUMBER OF SCORES FOR v A STUDENT), THEN (EACH FUL"8 + "SIMPLY SWELL","OHH, GREAT","THAT'S THE WAY"E "CANTOR","DARWIN","EDGAR","MCCARTHY","ZILLA" ===============I1PN$(I)I =============== DEFINE D$ AS CONTROL-D (RULES OF THE& GAME TO ACCESS TEXT FILE, SWER$) 8'20:30:"RETURN =>";Z$::12:N B'CC1::12:12:FDBK$(6(1)1)g L'P11000:P::12: * ------------------------------------------------------- + DATA ELEMENTS FOR FEEDBACK ++ "RAZZLE-DAZZLE","HOT-DOGGIES","WONDER ON "C" QUESTION(S).":L P# --------------------------------------------- Z# THE POSITIONING AND INPUT SUBROUTINE d# '16:12:S1(ANSWER$):"-";:S '16:9:"=> ";REPLY$: $'REPLY$ANSWER$10050 .'"THE CORRECT ANSWER IS "AN ---------------------------------------------------------n (FRAMES FOR ADDITIONAL QUESTIONS)t  (# -------------------------------------------------------- 2# FINAL FRAME - PERFORMANCE REPORT <# F#"YOU WERE CORRECTTE FLOWER OF TEXAS IS THE": ANSWER$"BLUEBONNET":10000z --------------------------------------------------------- FRAME 3 - NEXT QUESTION SEQUENCE "THE LARGEST MUSCLE IN THE BODY IS THE" ANSWER$"GLUTEUS MAXIMUS":10000>- - - - - - - - - - - - -S d FRAME 1, STEP 2 - DATA ASSIGNMENT FOR FEEDBACKY ng xFDBK$(6) I16:FDBK$(I):I --------------------------------------------------------- FRAME 2 - FIRST QUESTION SEQUENCE  "THE STA9 PROGRAM 11_ ----------------------------------------------------------( FRAME 1, STEP 1 - TITLE2<:12:2F"DRILL USING A SUBROUTINE FOR INPUT"PP12000:P:10060 Z - - - - - - - - - - - - - - - -          !!! 1NlI$(I)vI-D$"CLOSE "RANFILE$m --------------------------------------------------------- FRAME 8 - WRITE RAF INFO TO SEQUENTIAL FILE :12:4:"CREATING SEQUENTIAL FILE "SEQFILE$D$"OPEN "SEQFILE$ D$"WRIE FRAME 7 - DELETE OLD, THEN CREATE FIRST RECORD FOR NEW RAFK&}0:12:4:"CREATING RECORD 1 IN "RANFILE$:R1:D$(4):D$"OPEN "RANFILE$", L256"DD$"DELETE "RANFILE$ND$"OPEN "RANFILE$", L"LXD$"WRITE "RANFILE$", R"RbI----------------------------------h FRAME 6 - GET INFORMATION FOR FIRST RECORD IN THE RAF n:4:"ENTRIES FOR RECORD 1":I1NDT$(I)":"I$(I):I ---------------------------------------------------------I$(N)E r ---------------------------------------------------------} | FRAME 5 - TITLES FOR EACH ITEM IN A RECORD  :12:"ITEM TITLES": I1N "DESCRIPTIVE TITLE FOR ITEM "I DT$(I): I" -----------------------XECUTION? ";TITLE$R , --------------------------------------------------------- 6 FRAME 4 - RECORD INFORMATION FOR THE RAF @ J:6 T"WHAT IS THE RECORD LENGTH (1-256)? ";L ^10:"HOW MANY ITEMS ARE IN EACH RECORD? ";N hDT$(N),---------------------------------------d FRAME 3 - RANDOM ACCESS FILE NAME AND TITLE TO USEj s :4 "WHAT NAME DO YOU WISH TO GIVE THE" "RANDOM ACCESS FILE? ";RANFILE$ 12:"WHAT TITLE DO YOU WISH DISPLAYED" ""IN PROGRAM E-----------------------------\ FRAME 2 - SEQUENTIAL FILE NAME FOR STORING RAF INFOb k :4 "WHAT NAME DO YOU WISH FOR THE FILE" "THAT WILL STORE INFORMATION ABOUT THE" "RANDOM ACCESS FILE? ";SEQFILE$' ------------------LE YOU CHOOSE. ANY PREVIOUSLY":L d"STORED INFORMATION IN THE FILE YOU": n"NAME WILL BE PERMANENTLY (I.E., FOREVER)"::10 x"E R A S E D":: "DO YOU WANT TO CONTINUE WITH THIS? ";Z$ (Z$,1)"Y"770 ----------------------------  RAF CREATION!b ----------------------------------------------------------( FRAME 1 - INTRODUCTION2<:4F"RANDOM ACCESS FILE INITIALIZATION"::P"THIS PROGRAM WILL INITIALIZE THE RANDOM": Z"ACCESS FI!!!!!!!!!"U" -------------------------------------------------nD FRAME 6 - OPTION FOR ANOTHER LIST OF SAME NAMEStN~X:10b"DO YOU WANT ANOTHER LIST":l"OF THESE NAMES (Y/N)? ";Z$:Z$"Y"450vP-------------------------------------РōΠŠҠŠҠƠŞ̌ ӠĠҠԠƠӠˠϮӠԠӠӠϠàĠ̠ǠǠҠӍɍÍȍ" ===============,D$;"OPEN TESTS"BD$;"WRITE TESTS"MI1PWN(I)eJ1N(I)q"S(I,J)x,J6I@D$;"CLOSE TESTS"J" *** D O N E ***"TP"AVERAGE = "TN(I)= ===CUMULATIVE TOTAL SCORE NUMBER===LS1S1N(I)TT0[Ia"THE CLASS AVERAGE IS ";((T1S1)100)100Z$"Y"ĺD$;"PR#0" =============== WRITE ALL DATA WITH UPDATES BACK ON THE FILE, "TESTS.):"SCORES: ";>,N(I)0ĺ"*** NO SCORES RECORDED ***":1450L2J1N(I)\4S(I,J)" ";< ===CUMULATIVE TOTAL FOR STUDENT===FTTS(I,J)P ===CUMULATIVE TOTAL FOR CLASS===ZT1T1S(I,J)dJn ===ILLEGAL TO DIVIDE BY ZERO===x:-----------------S d FRAME 2, STEP 1 - PRESENT QUESTION; ASSIGN INPUT TO R$Y nb x:3h "WHAT DO WE COLLECTIVELY CALL" "OUR FIFTY STATES"; R$: ---------------------------------------------------------/ FRAME& KEYWORDS DEMO PROGRAM,m ----------------------------------------------------------( FRAME 1 - TITLE2<:12:8F8)"KEYWORDS DEMONSTRATION"PP12500:P Z -----------------------------------------""FOR DROPPING LOWEST GRADE1RCRD(I)1ı;LOHILJ1RCRD(I)kSCRE(I,J)LOLOSCRE(I,J)r JSUMSUMLO:CLASSUMCLASSUMLO:COUNTCOUNT1"DROPPING SCORE "LO("AVERAGE IS NOW "((SUM(RCRD(I)1))100)10024< ----$"CLOSE "F$J - - - - - - - - - - - - - - - - - - - - - - - - - - - - q FRAME 6, STEP 4 - CONCLUSIONw}"*** THE GRADE BOOK IS CLOSED ***" -------------------------------------------------------- SUBROUTINE NT)100)100"$P$"Y"ĺD$"PR#0"a. - - - - - - - - - - - - - - - - - - - - - - - - - - - - 8 FRAME 6, STEP 3 - FILE WRITING SEQUENCEBLD$"OPEN "F$VD$"WRITE "F$`I1ROLL:RCRD(I)jJ1RCRD(I):SCRE(I,J):JtI ~DJ/:"AVERAGE IS: "((SUMRCRD(I))100)100I(DROP$,1)"Y"İ1250z"///////////////":SUM0:COUNTCOUNTRCRD(I)I:ENTRIES01050"SESSION ENTRIES AVERAGE: "((TESTSUMENTRIES)100)100 "THE CLASS AVERAGE IS ";((CLASSUMCOUTE "SEQFILE$"RANFILE$:TITLE$/L:R:N:I1NFDT$(I)MIeD$"CLOSE "SEQFILE$~:12:12:"DONE..."  - - - - - - - - - - - - - - - - - - - - - - - - - - - - -{ LOOP FRAMES, STEP 2 - GET QUIZ SCORES; COMPUTE AVERAGEQ1QNUM"QUIZ "Q" SCORE IS";:QS:QTQTQSQQUIZ(PUPIL)((QTQNUM)10)10:" - - - - - - - - - - - -24:30:"RETURN =>";Z$:140]  - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  LOOP FRAMES, STEP 1 - GET PUPIL'S NAME; ZERO TOTALS  PUPIL1ROLL :QT0:HT0:ET0 NAM$(PUPIL):8:"FOR "NAM$(PUPIL)":"::-------------------------------------------------f T FRAME 3 - CHECK FOR DECIMAL PERCENT = 1.00l ^ h((QPRCHPRCEPRCFPRC)1).001440 r:12 |"THE DECIMAL PERCENTS YOU HAVE ENTERED": "DO NOT EQUAL 1.00. PLEASE TRY AGAIN." R EXAMS WERE GIVEN"1 "THIS SEMESTER? ";ENUM:Z "THE EXAMS CONSTITUTE WHAT PERCENT" "(DECIMAL) OF THE SEMESTER GRADE? ";EPRC " ,"THE FINAL EXAM CONSTITUTES WHAT PERCENT" 6"(DECIMAL) OF THE SEMESTER GRADE? ";FPRC @1 J --------PERCENT"6 "(DECIMAL) OF THE SEMESTER GRADE? ";QPRC< a "HOW MANY HOMEWORK ASSIGNMENTS" "WERE GIVEN THIS SEMESTER? ";HNUM: "THE HOMEWORK CONSTITUTES WHAT PERCENT" "(DECIMAL) OF THE SEMSTER GRADE? ";HPRC  "HOW MANY REGULAL),FINL(ROLL)M n --------------------------------------------------------- x FRAME 2 - GET INFO FOR QUIZ, HOMEWORK, EXAMS & FINAL :4 "HOW MANY QUIZZES WERE GIVEN" "THIS SEMESTER? ";QNUM: "THE QUIZZES CONSTITUTE WHAT  PROGRAM 10_ ----------------------------------------------------------( FRAME 1 - TITLE AND ASSIGNMENTS2<:12:12F"SEMESTER AVERAGES"PP12000:PZROLL dNAM$(ROLL),QUIZ(ROLL),HMWK(ROLL),EXAM(ROL"" " " " " "