L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 Ccˆʎõĵ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 iõ`  \ 濭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- ( t Ϡ@跻~!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䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`"92":& Z1.02P$"91":5& Z0.92P$"90":L& Z0.82P$"89":b&& Z.77P$"88":x&0 Z.71P$"87":&: Z.66P$"86":&D Z.53P$"85":&N Z.39P$"84":&X Z.25P$"83":&b Z0P$"82":&l Z.26P$"81":'v Z":% Y74L$"D+":*% Y72L$"D":>% Y69L$"D-":P% Y0L$"F":f% Z2.3P$"99":}% Z1.82P$"98":% Z1.71P$"97":% Z1.59P$"96":% Z1.48P$"95":% Z1.37P$"94":% Z1.25P$"93":& Z1.14P$ANT TO CHANGE THE CONVERSION OF PERCENTS TO LETTER GRADES.f$6 Y97L$"A+":y$@ Y94L$"A":$J Y92L$"A-":$T Y90L$"B+":$^ Y87L$"B":$h Y85L$"B-":$r Y82L$"C+":$| Y80L$"C":% Y77L$"C-MBER, E.G. +4)";AD$!# AD(AD$)+# 2490# ::" WOULD YOU LIKE TO ENTER EACH SCORE SEPARATELY FOR THE SCORE(Y/N)?":Q$:Q$"N"ī2830# Q$"N"ī2850# 2030# 2810#" #, SUBROUTINE TO CONVERT PERCENTS TO LETTER GRADESR$1 YOU W NATURAL PERCENTp" ::" WOULD YOU LIKE TO ADJUST THE NATURAL PERCENT GRADE(Y/N)?":Q$:Q$"N"ī2840# ::" HOW MANY PERCENTAGE POINTS WOULD YOU LIKE TO ADD TO EACH SCORE IN THE NATURAL PERCENT COLUMN? (ENTER PLUS OR MINUS NUCORES AGAIN(Y/N)?":Q$:Q$"N"ī2300/! 2740L! PR$"Y"COUNTER0:2680e! AN$:COUNTER0:2680! DISPLAY OF STANDARD DEVIATION AND MEAN AT END OF SCORES DISPLAY! "STANDARD DEVIATION IS ";S! "THE MEAN IS ";M" ADJUSTING2655: P Y;:9:Y(100(1((UY)U))):Y;:2860:" ";L$; Z 18:YAD;:YYAD:2860:" ";L$;:3000:27:P$;:Y(P$):2860:" ";L$ _ PR$"Y"2680 d COUNTERCOUNTER1 n COUNTER20ī2720 x W%! 0::" WOULD YOU LIKE TO SEE THE S PERCENT PERCENT CURVE":"======================================="W COUNTER0b W1Nm YX(W)~ X(W)02690 Z(YM)S( AD0ī26402 Y;:9:Y(100(1((UY)U))):Y;:2860:" ";L$;< 3000:19:P$;:Y(P$):2860:" ";L$ F ===" :" ";NAME$$ 04 3380:::L DISPLAY OF SCORES] AD0ī2540 "SCORE NATURAL STANDARD ":" PERCENT CURVE PERCENT ":"=======================================" 2550I "SCORE NATURAL ADJUSTED STANDARD":"1)X(W)ĺ"<*>";:YX(W):W/B W1YX(W):24408L :1CV YX(W)U` X(W)0ī2460nj X(W1)X(W)7ī2440t CHX(W1)Y:CH10ī2440~ GA1CH1:X(W1)GA;:5:"!":1:GA Y;:5:"! <*>"; W 1:"====================================(W)X(W)X(E)X(E)B#E*W::" WOULD YOU LIKE THE FREQUENCY OF EACH SCORE GRAPHED (Y/N)?":Q$:Q$"N"ī2490 3380: GRAPHING ROUTING  "======================================="$ W1N1. X(W)(X(W))8 X(WNVERTINT Z SCORES TO PERCENT SCORES. Z IS THE MEASURE OF THE STANDARD DEVIATIONS ABOVE OR BELOW THE MEAN1800:1320 RANKING SUBROUTINE:::" ";::" NOW SORTING ":W1N1EW1NX(W)X(E)2280BXY)U))):Y;:2860:" ";L$*4AD0ī2120m>" THE ADJUSTED PERCENT SCORE IS ";:YYAD:Y;:2860:" ";L$|HZ(YZM)SR" Z SCORE IS ";Z\3000f" THE STANDARD CURVE SCORE IS ";:34:P$;:Y(P$):2860:" ";L$p2060zq CO0< SUBROUTINE TO DISPLAY INDIVIDUAL SCORESu:"ENTER '-1' TO RETURN TO MAIN PART OF PROGRAM" :"---------------PRINT SCORE ";Y$:Y(Y$)Y1Ċ0:2300 YZY*" THE NATURAL PERCENT SCORE IS ";:Y(100(1((UANCE, STND DEVIATIONbMTN,lVDNM27vS(V)K PRINT RESULTSU3380r" NUMBER OF SCORES ";N" MEAN OF SCORE ";M" VARIANCE IS ";V" STNDRD DEVIATION ";S" T VALUE IS ";T" D VALUE IS ";D::"N"ī17801800:2200#1800-2030\ SUBROUTINE TO COMPUTE STANDARD DEVIATIONl GG1:XX1" LIST SCORE ";X$:X(X$):X0XU1810X(G)X:X01880&GG10TTX:DDX2DNN1N1810X COMPUTE MEAN, VARI --";H(1):'#6 " B GRADE --";H(2):C#@ " C GRADE --";H(3):_#J " D GRADE --";H(4):e#T #^ -FINAL GRADE SUBROUTINE #h TS0:SZ0#m SG(II,1)63FGSG(II,1):SG(II,0)0::::NM$(II)::#r J1ZZ#| SG(II,J)1SZSZX(J):2960$22" Q1ZZ?" Q;10);SU$(Q);30);:SG(II,Q)1ĺSG(II,Q)W" SG(II,Q)1ĺ"N/A"^" Qm" PQ12830" P005::P0" " --LETTER GRADE STANDARD SUBROUTINE "" :F$:6:6);"-- LETTER GRADE STANDARDS --":: #, " A GRADE"! --GRADE DISPLAY ROUTINE 3! :PQ1ĺF$:! 6K! NM$(II)::p! "CODE";11);"TEST";30);"GRADE"! "-------------------------------":! SGSG(II,1):SG63SG712800! SG$(0SG):"WITHDRAWN";30);"W";:SG64ĺ"-";SG$" :28-RETURNS (II) OR "ZZZ" $ Z II0@ d " NAME --- ";T$M n LX(T$)d x LX0T$"ZZZ"ġ:p I1KK (NM$(I),LX)T$III::NM$(I);" Y/N?";:A$:A$"Y"I70:: :::T$;" NOT IN ";F$: I01000:I:998:958:2640! KK","ZZKt I0ZZ:SU$(I)::I1KK:NM$(NK(I)):J0ZZ:SG(NK(I),J)::_ D$;"CLOSE ";F$g : --CODE-TEST DISPLAY  "CODE";16);"TEST":: I1ZZ( I;15);SU$(I)2 I6 ::< F -NAME SEARCH SUBROUTINE  P KK,ZZBHI0ZZ:SU$(I)::I1KK:NM$(I):J0ZZ:SG(I,J)::VfD$;"CLOSE ";F$ap:SW1gz -WRITE FILE SUBROUTINE :F$:6::"WRITING GRADE FILE":D$;"OPEN ";F$D$;"DELETE ";F$D$;"OPEN ";F$D$;"WRITE ";F$ :Q$::Q$"Y"ĺ"PUT IN BACK-UP DISK ";:Q$::2180:1811p"TYPE 'RUN' IF YOU WANT TO GRADE ANOTHER COURSE."v&: --READ FILES SUBROUTINED:F$:6::"READING GRADE FILE"::ND0II070:NK(I)I:ND$;"OPEN ";F$XD$;"READ ";F$b:Q$:(Q$)27KK70,"-- ";:Q$2Q --EXIT PROGRAM ROUTINE  SX4ĺ:"LOW SCORE HAS BEEN REPLACED WITH -1 SHOULD I UPDATE DISK? Y/N ";:Q$:SW3:Q$"Y"ĺ:2180 SW2İ21809SW2SW3ĺ"WANT A BACK-UP COPY Y/N? ";N? ";:Q$:Q$^Q$"N"3040%|F --CLASS LIST ROUTINE OLI0W:kK1KK:INK(K)LI0ė:6:6);"-- CLASS LIST OF ";F$;" --":" ";NM$(I);:SG(I,1)63ĺNW$;LILI1LI101770LI0:"-- ";COURSE : ";F$:6"TEST NAME : ";SU$(JJ):R""# OF STUDENTS :";KX:},"---------------------------------":6"CLASS AVERAGE ";AV:@"STANDARD DEV. ";SM:J"LOWEST : ";X1: T"HIGHEST : ";X2::::"HISTOGRAM Y/XGSMSMXG XGX1X1XG@J(XG5.99):HH(J)HH(J)1FSAVSMKXxSM0:K1KK:INK(K):XGSG(I,JJ)XG11510SMSM(XGAV)(XGAV)SM(SMKX)AV(AV100.5)10:SM(SM100.5)105700:F$:6"NTER CODE -- ";JJ_JJ0ı`dJJZZJJ1ĺ:::"CODE MUST BE BETWEEN 1 AND ";ZZ::1360nSM0:KXKK:X11000:X2100sK120:HH(K)0:xK1KK:INK(K)}SG(I,1)63KXKX1:1460XGSG(I,JJ)XG1KXKX1:1460XGX2X2Q11300) :"-- ";:Q$:(Q$)27ı<Q$"ZZZ"K70M:QQ$"I"ıc4300:3000:3040#6:"SORT ON FINAL GRADE Y/N? ";:Q$:Q$:Q$"Y"ī9071(2 --CLASS AVERAGE ROUTINE F:F$:6:"CLASS AVERAGE MODE":::P2570Z"E" TURN PRINTER ON (Y/N)??";:PR$+)H :a)R PR$"N"ĺ:" THE PRINTER IS ";::" OFF ":::s)\ PR$"N"Ċ0:)f :" THE PRINTER IS ";::" ON ":)p DLAY11000:)z 1) ) FR. GERALD GONDERINGER) ELGIN, NE "69":( Z1.48P$"68":4( Z1.59P$"67":K( Z1.71P$"66":b( Z1.82P$"65":y( Z2.06P$"64":( Z2.06P$"63":(* SUBROUTINE TO TURN ON/ OFF THE PRINTER(4 SUBROUTINE TO TURN ON/ OFF THE PRINTER #)> :.39P$"80":%' Z.53P$"79":;' Z.69P$"78":Q' Z.72P$"77":g' Z.77P$"76":}' Z.86P$"75":' Z.96P$"74":' Z1.05P$"73":' Z1.10P$"72":' Z1.15P$"71":' Z1.25P$"70":( Z1.37P$:6\3F:"LOW TEST SCORE WILL BE REPLACED WITH -1 THIS REMOVES THE GRADE FROM THE AVERAGE"3G:"SHOULD I UPDATE DISK FIRST? Y/N ";:Q$3HQ$"Y"İ21803I::"I'M DOING IT I'M DOING IT"3JK1KK:INK(K)3OSG(I,1)63Ă:80503TJJ14Y6210 2"PRINTER SLOT ?";SLOT$72D$;"PR#";(SLOT$)E21785,132M2:Y2I039e2J039r2S%J,I)2CH$(CO$,S%1,1)2CH$;2J:2I228D$;"PR#0":2BCO$"#%&?* J0KK:NZ$"ZZ"'H I1KK'R NM$(I)NA$NK(J)I:II1KK(\ NM$(I)NZ$NM$(I)NA$NZ$A$:&v I1HI(& XCXC1:XC16XC10& XCB& PP40H(I)MGZ& PP40PPHJ:3300i& PP0PP0& J1HJ:39,PPP:PP1:& & "MAGNIFICATION FACTOR = ";MG;:" NEW FACTOR? ";MG$:MG(MG$)& MG0MG203170' "DO YOU WANT TO PRINT H A"#% I15:J20I:H(I)H(J):-% 3165L% --HISTOGRAM SUBROUTINE `% HI20:HJ2:HP0% A$" 10 20 30 40 50 60 70 80 90"% I120:H(I)HH(I):%] SM0:I1HI:SMH(I)SMH(I)%^ :MG(35SM)%b :20::0%l PHP:XC0&q TSTSSG(II,J)X(J)$ 3$ FG(TS(100SZ).5)C$ SG(II,0)FGc$ J(FG5.99):HH(J)HH(J)1m$ ::$ NM$(II);20);"AVERAGE : ";:FG0ĺFG$ SG(II,0)FG:$ --HISTOGRAM SUB A-F $ HI5:HJ7:HP3% A$" F D C B CORES AGAIN(Y/N)?":Q$:Q$"N"ī2300/! 2740L! PR$"Y"COUNTER0:2680e! AN$:COUNTER0:2680! DISPLAY OF STANDARD DEVIATION AND MEAN AT END OF SCORES DISPLAY! "STANDARD DEVIATION IS ";S! "THE MEAN IS ";M" ADJUSTING2655: P Y;:9:Y(100(1((UY)U))):Y;:2860:" ";L$; Z 18:YAD;:YYAD:2860:" ";L$;:3000:27:P$;:Y(P$):2860:" ";L$ _ PR$"Y"2680 d COUNTERCOUNTER1 n COUNTER20ī2720 x W%! 0::" WOULD YOU LIKE TO SEE THE S PERCENT PERCENT CURVE":"======================================="W COUNTER0b W1Nm YX(W)~ X(W)02690 Z(YM)S( AD0ī26402 Y;:9:Y(100(1((UY)U))):Y;:2860:" ";L$;< 3000:19:P$;:Y(P$):2860:" ";L$ F ===" :" ";NAME$$ 04 3380:::L DISPLAY OF SCORES] AD0ī2540 "SCORE NATURAL STANDARD ":" PERCENT CURVE PERCENT ":"=======================================" 2550I "SCORE NATURAL ADJUSTED STANDARD":"1)X(W)ĺ"<*>";:YX(W):W/B W1YX(W):24408L :1CV YX(W)U` X(W)0ī2460nj X(W1)X(W)7ī2440t CHX(W1)Y:CH10ī2440~ GA1CH1:X(W1)GA;:5:"!":1:GA Y;:5:"! <*>"; W 1:"====================================(W)X(W)X(E)X(E)B#E*W::" WOULD YOU LIKE THE FREQUENCY OF EACH SCORE GRAPHED (Y/N)?":Q$:Q$"N"ī2490 3380: GRAPHING ROUTING  "======================================="$ W1N1. X(W)(X(W))8 X(WNVERTINT Z SCORES TO PERCENT SCORES. Z IS THE MEASURE OF THE STANDARD DEVIATIONS ABOVE OR BELOW THE MEAN1800:1320 RANKING SUBROUTINE:::" ";::" NOW SORTING ":W1N1EW1NX(W)X(E)2280BXY)U))):Y;:2860:" ";L$*4AD0ī2120m>" THE ADJUSTED PERCENT SCORE IS ";:YYAD:Y;:2860:" ";L$|HZ(YZM)SR" Z SCORE IS ";Z\3000f" THE STANDARD CURVE SCORE IS ";:34:P$;:Y(P$):2860:" ";L$p2060zq CO0< SUBROUTINE TO DISPLAY INDIVIDUAL SCORESu:"ENTER '-1' TO RETURN TO MAIN PART OF PROGRAM" :"---------------PRINT SCORE ";Y$:Y(Y$)Y1Ċ0:2300 YZY*" THE NATURAL PERCENT SCORE IS ";:Y(100(1((UANCE, STND DEVIATIONbMTN,lVDNM27vS(V)K PRINT RESULTSU3380r" NUMBER OF SCORES ";N" MEAN OF SCORE ";M" VARIANCE IS ";V" STNDRD DEVIATION ";S" T VALUE IS ";T" D VALUE IS ";D::"N"ī17801800:2200#1800-2030\ SUBROUTINE TO COMPUTE STANDARD DEVIATIONl GG1:XX1" LIST SCORE ";X$:X(X$):X0XU1810X(G)X:X01880&GG10TTX:DDX2DNN1N1810X COMPUTE MEAN, VARIOBER 1981 MAGAZINE98$' PAGE 166 OF 'CREATIVE COMPUTING'a8.' BY DR. W. TEOH, PURDUE UNIVERSITY::"ENTER W GRADE 0 OR A-F ";Q$:(Q$,1)"W"Q$(Q$,1):Q$"W"Q$"0"W7$(Q$)0ıl7$Q$"0"Q$(64)7$(Q$)64(Q$)70ı7$SW27$Q(Q$):Q63Q71SG(II,1)0Q:I2ZZ:SG(II,I)1::94007' ORIGINALLY THIS PROGRAM8' IS FROM OCTI):SG(I,0)SG(I,0)101:II1KKG6#SG(I,0)AZSG(I,0)AKAZSG(I,0)X6#:AZ0J70k6#AKAZ:J:56006#"HIT ANY KEY TO CONTINUE";:Q$:6$ --STUDENT WITHDRAWAL 6$:F$:6:"---STUDENT WITHDRAWAL MODE":" TO GO ON"::6$2630H7$)71SG(I,0)0::9072#5P#J1ZZA5Z#SG(I,J)1JJJJ1:9070]5d#SG(I,0)SG(I,0)SG(I,J)5n#:SG(I,0)((SG(I,0)(ZZJJ)).5):5o# --SORT ON SG(0,KK) 5p#:57005s#AK1015x#J0KK:AZ1015#I1KK 6#SG(I,0)AKNK(J)I:SG(I,0);5);NM$((SU$(JJ),1)"."JJJJ1:8025T4^JJJ1ZZ:(SU$(J),1)"."SG(I,J)SG(I,JJ)JJJZ4cl4hSG(I,JJ)1:w4rSX4:4(# SORT ON GRADE AVERAGE 42#:"ONE MOMENT PLEASE"47#"COMPUTING AVERAGES"4<#I1KK4F#SG(I,0)0:JJ05K#SG(I,1)63SG(I,1F RESTRAINT"[ WANTON,HEDONISTIC,PROFLIGATE,DISSOLUTE,LASCIVIOUS,LICENTIOUS,LIBERTINE,Xm UNEMOTIONAL STAID,STOLID,SEDATE,IMPASSIVE,PHLEGMATIC,GRAVE,SOMBER,X 20((A$)2));A$ I15 "THE NUMBER OF VOCABULARY WORRIC,PAEAN,EULOGY,X# "BAD-DOER"S TRANSGRESSOR,MALEFACTOR,FELON,MISCREANT,Xc IRRITABLE PETULANT,WASPISH,CANTAKEROUS,QUERULOUS,BILIOUS,FRACTIUOS,X IMPOVERISHED IMPECUNIOUS,INDIGENT,DESTITUTE,PENURY,X  "MORALLY LAX; NO SELITRANT,TENACIOUS,OBDURATE,ADAMANT,RESOLUTE,INTRACTABLE,PERTINACIOUS,DUCTILE,X]t TO SOOTHE~ PLACATE,PACIFY,MOLLIFY,ALLAY,ASSUAYE,PALLIATE,APPEASE,PROPITIATE,X "HONOR; AWARD" ACCOLADE,LAURAL,PLAUDITS,RECONGNITION,ENCOMIUM,LAUDITORY,PANEGY, 1982*******************L 2;WD0:Z031:WDWD1:33,WD:L,0:SUP:L,LNZ:SUP:AZ*******************n MATCHMAKER BY: JIM GANZ 82 SPRING LN WEST HARTFORD, CT., 06107ALL RIGHTS RESERVED APRIL 20^RALPH KRAMDEN,ED NORTON<hJAMES T. WEST,ARTEMUS GORDON`rMILBURN DRYSDALE,JANE HATHAWAY~|JOHNNY CARSON,ED MCMAHONFANCY SCREEN CLEAR33,1:Z05:X039:L,X:SUP:SUP:L,LNX:SUP:SUP:::FANCY SCREEN CLEARNCY DERRINGER,PAHOO-KA-TA-WAH:JOHN RUSSEL,PETER BROWNY"MATT DILLON,CHESTER GOODEz,QUICK DRAW MCGRAW,BOB-A-LOU6WALLACE BINGHAMTON,ELROY CARPENTER@LUCILLE RICARDO,ETHEL MERTZJCHESTER A. RILEY,GILLISTANDY TAYLOR,BARNEY FIFE(HERO,SIDEKICK)6GENE AUTRY,PAT BUTTRAMMLONE RANGER,TONTOjGUY MADISON,ANDY DEVINEADAM WEST,BURT WARDNAPOLEON SOLO,ILYA KURYAKINROY ROGERS,PAT BRADYYOGI BEAR,BOO-BOOFRED FLINTSTONE,BARNEY RUBBLEYA" TURN PRINTER ON (Y/N)??";:PR$+)H :a)R PR$"N"ĺ:" THE PRINTER IS ";::" OFF ":::s)\ PR$"N"Ċ0:)f :" THE PRINTER IS ";::" ON ":)p DLAY11000:)z 1) "69":( Z1.48P$"68":4( Z1.59P$"67":K( Z1.71P$"66":b( Z1.82P$"65":y( Z2.06P$"64":( Z2.06P$"63":(* SUBROUTINE TO TURN ON/ OFF THE PRINTER(4 SUBROUTINE TO TURN ON/ OFF THE PRINTER #)> :.39P$"80":%' Z.53P$"79":;' Z.69P$"78":Q' Z.72P$"77":g' Z.77P$"76":}' Z.86P$"75":' Z.96P$"74":' Z1.05P$"73":' Z1.10P$"72":' Z1.15P$"71":' Z1.25P$"70":( Z1.37P$"92":& Z1.02P$"91":5& Z0.92P$"90":L& Z0.82P$"89":b&& Z.77P$"88":x&0 Z.71P$"87":&: Z.66P$"86":&D Z.53P$"85":&N Z.39P$"84":&X Z.25P$"83":&b Z0P$"82":&l Z.26P$"81":'v Z":% Y74L$"D+":*% Y72L$"D":>% Y69L$"D-":P% Y0L$"F":f% Z2.3P$"99":}% Z1.82P$"98":% Z1.71P$"97":% Z1.59P$"96":% Z1.48P$"95":% Z1.37P$"94":% Z1.25P$"93":& Z1.14P$ANT TO CHANGE THE CONVERSION OF PERCENTS TO LETTER GRADES.f$6 Y97L$"A+":y$@ Y94L$"A":$J Y92L$"A-":$T Y90L$"B+":$^ Y87L$"B":$h Y85L$"B-":$r Y82L$"C+":$| Y80L$"C":% Y77L$"C-MBER, E.G. +4)";AD$!# AD(AD$)+# 2490# ::" WOULD YOU LIKE TO ENTER EACH SCORE SEPARATELY FOR THE SCORE(Y/N)?":Q$:Q$"N"ī2830# Q$"N"ī2850# 2030# 2810#" #, SUBROUTINE TO CONVERT PERCENTS TO LETTER GRADESR$1 YOU W NATURAL PERCENTp" ::" WOULD YOU LIKE TO ADJUST THE NATURAL PERCENT GRADE(Y/N)?":Q$:Q$"N"ī2840# ::" HOW MANY PERCENTAGE POINTS WOULD YOU LIKE TO ADD TO EACH SCORE IN THE NATURAL PERCENT COLUMN? (ENTER PLUS OR MINUS NU","DAS HEMD","SHIRT","HERAB","DOWN""HINAUF","UP","DIE HERDE","HERD","HERRSCHEN","PREVAIL; RULE","DER HERZOG","DUKE","HEUTIG","OF TODAY","S. HINSETZEN","SIT DOWN"~ "HINTEN","BEHIND","DER HIRT","SHEPHERD","DIE HO:HLE","CAVE","HU:TEN","WATCH","DIE "DER HANDSHUH","GLOVE","DER HARZ","RESIN","HASSEN","HATE","DER HAUFEN","HEAP","HA:UFIG","FREQUENT(LY)"#"DAS HAUPT","HEAD","DER HAUPTMANN","CAPTAIN","DIE HAUSTU:R","FRONT DOOR","DIE HAUT","SKIN","DAS HEFT","NOTEBOOK","HEFTIG","VIOLENT","HEITER","SERENEDMIT","DIE GEWALT","POWER","GEWALTIG","POWERFUL","DAS GETREIDE","GRAIN","DER GIPFEL","PEAK","GLATT","SMOOTH""GRAUSAM","CRUEL","GREIFEN","GRASP","DAS GUT","ESTATE"f"DER HAHN","ROOSTER","DER HALT","HOLD","DER HANDEL","TRADE","HANDELN","DEAL WITH",NGEN","REACH","GELINGEN","SUCCEED","DAS GEMA:LDE","PAINTING","GERATEN","GET INTO","DAS GERICHT","DISH","GERING","SMALL","DER GESANG","SONG"l"DAS GESCHLECHT","SEX","DER GESELLE","COMRADE","DAS GESETZ","LAW","DAS GESPRA:CH","CONVERSATION","GESTEHEN","A"PROGRESS","FREILICH","INDEED","DER FRIEDE","PEACE""DAS GEBIET","AREA","DAS GEBIRGE","MOUNTAINS","DER GEBRAUCH","CUSTOM","DAS GEDA:CHTNIS","MEMORY","DIE GEGEND","AREA","DER GEGENSTAND","OBJECT","DIE GEGENWART","PRESENT" "GEHORCHEN","OBEY","GELAATION" ,"DAS FACH","SHELF - PROFESSION""DIE FAHNE","FLAG","FALTEN","FOLD","DAS FASS","BARREL","DIE FAUST","FIST","DIE FLA:CHE","SURFACE","DER FLU:GEL","PIANO - WING","FLU:STERN","WHISPER","FORDERN","DEMAND","WEICH","SOFT"3"DER FORTSCHRITT",TE","ERBLICKEN","NOTICE","ERFINDEN","INVENT" "ERHEBEN","RAISE","SICH ERHEBEN","RISE","SICH ERHOLEN","RECOVER","ERNA:HREN","FEED","ERNENNEN","APPOINT" ,"DIE ERNTE","HARVEST","ERRICHTEN","ERECT","ERTRINKEN","DROWN","EWIG","ETERNAL","DAS EXAMEN","EXAMINEST","DIE EICHE","OAK","DER EIMER","PAIL","DER EINFLUSS","INFLUENCE","EINIG","UNITED","EINTRETEN","START","EMPFINDEN","FEEL","EMPOR","UPWARD","ENTGEGEN","TOWARD","ENTHALTEN","CONTAIN","ENTLASSEN","DISMISS","ENTSCHLIESSEN","DECIDE","ENTSTEHEN","ORIGINAAL","MONUMENT","DENNOCH","NEVERTHELESS","DIE DICHTUNG","POEM","DAS DIENSTMA:DCHEN","MAID","DRINGEN","CROWD","DRUCKEN","PRINT"D"DRU:CKEN","PRESS","DULDEN","ENDURE","DURCHAUS","IN EVERY WAY","EBENFALLS","LIKEWISE","EBENSO","JUST THE SAME","EHRLICH","HONTO CONTINUE" A$& A$" "5020, 2 A:"RESET."?&::"IF YOU REALLY WANT TO DO WELL ON THE"m0:"SATS, YOU SHOULD CONTINUE PRACTICING"::"THIS TEST UNTIL YOU ARE ABLE TO PLACE"D:"EVERY WORD IN THE CORRECT CATEGORY."N5000X30 22:"PRESS THE SPACE BAR E ALREADY PUT IN A CATEGORY,"J:"TYPE 'L' INSTEAD OF A NUMBER. THEN"w:"TYPE IN THE NUMBER OF THE CATEGORY."5000"ONE MORE THING....":"ONCE YOU'VE STARTED THE TEST, THE ONLY":"WAY TO STOP IT IS TO PRESS CTRL-C OR"E TOP OF THE"=:"SCREEN. A WORD WILL BE PRINTED ON THE"n:"BOTTOM OF THE SCREEN, AND YOU MUST TYPE":"IN THE NUMBER OF THE CATEGORY TO WHICH":"THIS WORD BELONGS."::"IF YOU WANT A LIST OF SOME OF THE WORDS":"THAT YOU'V"NOT ONLY IS THIS EASIER TO REMEMBER,"OT:"BUT IT GIVES YOU ALMOST ALL THE"^:"INFORMATION THE SATS WILL EVER ASK YOU"h:"TO SUPPLY ABOUT A WORD."r5000|"IN THIS TEST, YOU WILL SEE FROM 2 TO 20" :"CATEGORIES PRINTED AT THER ONE DEFINITION."5000#V::"FOR EXAMPLE, YOU COULD GROUP THE WORDS:"":"ZENITH, PEAK, CREST, ACME, APOGEE,",:"PINNACLE, SUMMIT, PLATEAU AND"6:"CULMINATION TOGETHER AND REMEMBER THAT"@:"THEY ALL MEAN 'TOP'"&J::DS YOU NEED"8:"TO KNOW FOR YOUR SAT TEST IS QUITE"e:"LARGE. RATHER THAN LEARN THE EXACT":"DEFINITION OF EACH WORD, WHICH WOULD":"TAKE A GREAT DEAL OF TIME, YOU COULD":"LEARN TO GROUP WORDS TOGETHER AND":"JUST REMEMBTRIBE","STATTFINDEN","TO OCCUR","STAUNEN","TO WONDER AT","STECHEN","TOCUT; PRICK","STEIL","STEEP"G0"DER STEIFEL","BOOT","STIMMEN","TUNE; COINCIDE","DIE STIMMUNG","MOOD","DIE STIRN","FOREHEAD","DAS STOCKWERK","FLOOR; STORY","STOSSEN","PUSH; THRUST","DIEAM","STRANGE","SEUFZEN","SIGH","DIE SICHT","SIGHT","SICHTBAR","VISIBLE","DER SIEG","VICTORY","DIE SILBE","SYLLABLE","SOWOHL","JUST AS"a/"DIE SPITZE","TOP","DAS SPRICHTWORT","PROVERB","DER SPRUCH","SAYING","SPU:REN","TO TRACK; SENSE","DER STAMM","STEM; D","GUILT; DEBT","SCHULDIG","GUILTY; OWING","DIE SCHULTER","SHOULDER","DIE SCHU:SSEL","BOWL; BASIN","SCHU:TTELN","SHAKE","SCHU:TZEN","TO PROTECT"-"DER SCHU:TZMANN","POLICEMAN"."DAS SCHWERT","SWORD","DIE SEELE","SOUL","DER SEGEN","BLESSING","SELTSJEST", "DER SCHIFFER","BOATMAN","DER SCHIRM","SCREEN", DIE SCHLACHT,"BATTLE","SCHLANK","SLENDER","SCHLAU","CUNNING","SCHLUCHZEN","SOB","SCHMEICHELN","FLATTER","SCHMU:CKEN","ADORN"- "DER SCHORNSTEIN","CHIMNEY","SCHRIFTLICH","IN WRITING","DIE SCHUL,"SHEEP","SCHAFFEN","DO; CREATE","DER SCHAFFNER","CONDUCTOR","DAS SCHALTJAHR","LEAP YEAR","S. WENDEN","TURN","ZULETZT","FINALLY","SCHA:TZEN","ESTIMATE; TREASURE","DAS SCHAUSPIEL","PLAY","DER SCHEIN","APPEARANCE; BILL","SCHELTEN","SCOLD","DER SCHERZ","E","DER REISENDE","TOURIST","REIZEN","IRRITATE; PROVOKE","RICHTEN","JUDGE","RIESIG","HUGE","DER RITTER","KNIGHT","RU:CKEN","MOVE"Y+"RUDERN","ROW","SA:CHLICH","FACTUAL; IMPARTIAL","DIE SAGE","LEGEND","SAMMELN","GATHER","SANFT","GENTLE; MILD","DAS SCHAF"CHTVOLL","SPLENDID","PREISEN","PRAISE","DAS PULT","DESK","DAS RAD","WHEEL; BIKE","DER RAND","EDGE","RASCH","RAPID","DER RAUM","SPACE",RAUSCHEN ,"RUSTLE","DIE RECHNUNG","BILL" *"DAS RECHT","LAW; RIGHT","REGEN","STIR; MOVE","REGIEREN","RULE","REIF","RIPIC","DAS OPFER","VICTIM","ORDNEN","ARRANGE","DIE OSTERN","EASTER","PASSEN","FIT","DIE PERLE","PEARL","PFEIFEN","WHISTLE","DER PFIRSICH","PEACH","DIE PFLAUME","PLUM"(PFLEGEN,TO NURSE; BE USED TO) "DIE PFLICHT","DUTY","PRA:CHTIG","MAGNIFICENT","PRA"DER NEBENFLUSS","TRIBUTARY","DER NEFFE","NEPHEW","NEULICH","RECENTLY","DIE NICHTE","NIECE","NIEDER","DOWN","NIEDRIG","LOW","NIRGENDS","NOWHERE","DIE NOT","NECESSITY","NU:TZLICH","USEFUL","OBERHALB","ABOVE"( "DAS OBST","FRUIT","O:FFENTLICH","PUBLER","GAY; AWAKE","DAS MUSTER","MODEL; PATTERN"&"MUTIG","COURAGEOUS","DIE MU:TZE","CAP","NACHDENKEN","REFLECT; MEDITATE","NACHSEHEN","LOOK AFTER","NA:CHTLICH","NOCTURNAL","NACHTS","AT NIGHT","DER NAGEL","NAIL","NAHEN","APPROACH","NA:HREN","APPROACH"'EN","REPORT","MENSCHLICH","HUMAN","DIE MESSE","MASS","MESSEN","MEASURE","DAS MESSER","KNIFE","DAS MITTEL","MEANS; REMEDY".&"DAS MITTELALTER","MIDDLE AGES","DIE MU:HLE","MILL","MU:NDLICH","ORAL","MU:NDEN","FLOW INTO","DIE MU:NDUNG","MOUTH (RIVER)","MUNT "DAS LOCH","HOLE","LOCKEN","TO ENTICE; LURE","DER LO:FFEL","SPOON","DIE GABEL","FORK","DER LOHN","REWARD; WAGE","DAS LOS","LOT","LO:SEN","BUY (A TICKET)","MA:CHTIG","POWERFUL"y%"MALERISCH","PICTURESQUE","DAS MA:RCHEN","TALE","MA:SSIG","MODERATE","MELD,"DER LAUF","COURSE"#"LAUSCHEN","LISTEN","DER LAUT","SOUND","LAUTEN","TO SOUND","LAUTER","NOTHING BUT","DAS LEDER","LEATHER","LEHNEN","LEAN","DER LEIB","BODY","DAS LEID","HARM","LEISTEN","ACHIEVE; PERFORM","LEITEN","LEAD","DIE LEITER","LADDER"$ E","DIE KOSTEN","EXPENSES","KRA:FTIG","STRONG; STURDY"#"KRIECHEN","CREEP","DIE KRONE","CROWN","KU:MMERN","WORRY","DER KU:NSTLER","ARTIST","DER KUPFER","COPPER","DIE KU:STE","COAST","LADEN","LOAD","DAS LAMM","LAMB","DER LA:RM","NOISE","DIE LAST","LOAD"REN","SWEEP","DIE KENNTNIS","KNOWLEDGE","DIE KETTE","CHAIN","DAS KLAVIER","PIANO"6""KLEBEN","STICK","DIE KLEIDUNG","CLOTHING","KLETTERN","CLIMB","DAS KLOSTER","MONASTERY","DER KNECHT","SERVANT","DER KNOPF","BUTTON","DAS KORN","GRAIN","DER KREIS","CIRCLHU:TTE","SHED","INDEM","WHILE","DER INHALT","CONTENTS","INZWISCHEN","IN THE MEANTIME","JENSEIT(S)","BEYOND","JUBELN","REJOICE"Q!"DER JU:NGLING","LAD","DER KAHN","BOAT","DER KAMM","COMB","KA:MMEN","TO COMB","DER KA:SE","CHEESE","DER KASTEN","CHEST","KEH"::Y?"DO YOU WISH TO BE GIVEN GERMAN WORDS":"OR ENGLISH? (TYPE 'G' OR 'E'): ";:D$j?D$"E"7800u?T1Q?XG(T)?BQT?L:15:B;" REMAINING":11:3:G$(X):14:12:"-> ";:A$?14:16:E$(X):E1550:E?T:3000@xT1Q:XNGS":::QX5>:7:14:"SORTING":7:22:"DATA":?>G(Q)c> REARRANGE ORDER BEFORE CHOICEn>F1Qy>G(F)F>F>K1((910)Q)2>R((1)Q)1>S((1)Q)1>NG(R)>G(R)G(S)>G(S)N>K?p7:14:" DATA SORTEDO MORE"= DATA AND ALLOWS IT == TO ESCAPE THE LOOPC=_= ********************{= ********************="Z","Z"=X15000=LG$,E$=QG$"Z"1340=WG$(X)G$:E$(X)E$=X ><::::4:"THERE ARE CURRENTLY ";X;" LISTIREVIOUSLY","ZUWEILEN","OCCASIONALLY"w<"DER ZWEIG","BRANCH; TWIG","ZWINGEN","FORCE; COMPEL","ABLIEFERN","TO DELIVER"< ********************< ********************<< THE "Z" IN LINE 500< TELLS THE COMPUTER= THAT THERE'S N EFFECT"," DER WIRT","HOST","WODURCH","ON THE ACCOUNT OF WHICH","ZART","DELICATE; TENDER"$<"DIE ZEILE","LINE; VERSE","DAS ZIEL","GOAL; AIM","ZITTERN","TREMBLE","ZUHO:REN","LISTEN TO","ZURUFEN","TO CALL; SHOUT TO","DER ZUSCHAUER","SPECTATOR","ZUVOR","PN; RECEDE","DIE WEIDE","MEADOW","DER WEINBERG","VINEYARD","DIE WEISE","MANNER; MELODY","WEISEN","TO INDICATE","DIE WELLE","WAVE","DAS WESEN","CREATURE; NATURE"Y;"WIEGEN","TO WEIGH; TO ROCK","DIE WIESE","MEADOW","WINKEN","TO WAVE; NOD","WIRKEN","TO TAKEAGEN","DARE; RISK","DIE WAHL","ELECTION","DIE WANGE","CHEEK","DIE WA:SCHE","LAUNDRY","WEDER...NOCH","NEITHER...NOR","DAS WEH","PAIN","WEHEN","BLOW; WAFT","WEHMU:TIG","MELANCHOLY; SAD","DAS WEIB","WIFE; WOMAN":"WEIBLICH","FEMININE","WEICHEN","TO GIVE I,"VORLESEN","READ ALOUD","VORNEHM","DISTINGUISHED"8 "DER VORSCHLAG","PROPOSAL","DIE VORSTELLUNG","PRESENTATION","DER VORTEIL","ADVANTAGE","VORU:BER","PAST","VORTEILHAFT","LUCRATIVE; BENEFICIAL","VORU:BERGEHEN","TO GO PAST","DIE WAFFE","WEAPON"9"WCKEN","HIDE","VERTEIDIGEN","DEFEND","DER VERWANDTE","RELATIVE","DAS VIEH","CATTLE","VOLLENDEN","ACCOMPLISH; COMPLETE"28"VOLLKOMMEN","COMPLETE; PERFECT","VOLLSTA:NDIG","COMPLETE (ADJ.)","VORBEREITEN","PREPARE","DER VORHANG","CURTAIN","VORKOMMEN","OCCUR"PLEASURE","DAS VERHA:LTNIS","PROPORTION; SITUATION","VERHUNGERN","TO STARVE","VERLANGEN","TO DEMAND","SICH VERIRREN","LOSE ONE'S WAY","VERLEGEN","EMBARRASSED"u7"DER VERLUST","LOSS","VERSCHLINGEN","SWALLOW","DER VERSTAND","REASON; UNDERSTANDING","VERSTERBIETEN","TO FORBID","DAS VERDIENST","MERIT","VEREHREN","REVERE; VENERATE","DER VEREIN","CLUB; UNION","DIE VERFASSUNG","CONSTITUTION","VERGEBENS","IN VAIN"5"VERGNU:GT","PLEASED"6"VERGEHEN","PASS; ELAPSE","VERGLEICHEN","COMPARE","DAS VERGNU:GEN",","DER UNTERRICHT","INSTRUCTION; LESSONS","UNTERRICHTEN","TO INSTRUCT","UNTERSCHEIDEN","TO DISTINGUISH","DER UNTERSCHIED","DIFFERENCE","DIE URSACHE","CAUSE","DAS URTEIL","VERDICT; JUDGEMENT"5 "VERBERGEN","CONCEAL","VERBESSERN","TO CORRECT; IMPROVE","VEXERCISE"3"U:BERZEUGEN","CONVINCE","UMGEBEN","SURROUND (ED)","DIE UMGEBUNG","SURROUNDINGS","UMSEHEN","TO LOOK AROUND","UMSONST","IN VAIN","UNGEDULDIG","IMPATIENT","UNTERBRECHEN","TO INTERRUPT","UNTERHALB","BENEATH"4"SICH UNTERHALTEN","TO CONVERSE"H","TO:NEN","RESOUND"(2DER TOR, FOOL3 "TRA:GE","LAZY; SLUGGISH","DIE TRAUBE","GRAPE","TRENNEN","SEPARATE","TRACHTEN","TO TRY; ASPIRE TO","DER TROST","COMFORT; CONSOLATION","DAS TUCH","CLOTH","TU:CHTIG","CAPABLE","U:BEL","EVIL","U:BEN","TO DRILL; ESTU:RZEN","CRASH; PLUNGE","DIE TANNE","FIR; SPRUCE"2 "TAPFER","BRAVE","DAS TASCHENTUCH","HANDKERCHIEF","DIE TAT","DEED","DIE TA:TIGKEIT","ACTIVITY","DAS TAU","ROPE; CABLE","DER TAU","DEW","DER TELLER","PLATE","TEUER","DEAR; PRECIOUS","DIE TIEFE","DEPT STRAFE","PUNISHMENT","DER STRAND","BEACH; SEASHORE","STREBEN","STRIVE"31"STRECKEN","STRETCH; EXTEND","DER STREICH","PRANK; TRICK","STREITEN","ARGUE","DER STRICH","DASH","STRO:MEN","TO STREAM","DIE STUFE","STEP; DEGREE","STUMM","MUTE","STUMPF","DULL","ɭϭҭ؍ˍ؍ϭ؍ō؍ĭӭ؍̍؍ԭԭ؍Ǎ؍ԭԭȭ؍č؍ЭЭ؍ō؍ɭĭ؍ԍ؍΍ɍ؍ȍ؍ŭĭӭӭ؍ύō؍ҭ؍č؍ >>*k* <"< <"<"""<< <"""<"><$""< &"""     6***""""""""""<""< : """2,""""***6"""""< >>>00000>$ $>"""2," <"<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> $H$ >>"""<<> > <"< I*k*I6I)f>"2*&" " >>  ">> "8""> """"""< "><>"><"><$$>A]E]A>AAIAI~DD~ P"""A>*""@@  |*((6>6>"6*">88>>>>*>><> ?:{>>>8 p``0 >>>8 p`@@@@`| @`p8|x8888888888x 0`@ xx@`pX @@@@@@| x<p n<p&| x< p88p@8h|LD@@@@@@`<8 p><8 0p``@@o;FFn, , <<   x    <`@@@@@@@@`@8p  Ll|\  < |<<4tddD<<8hhH H   p  pp f66vf x@@` 0x >| x |`88`||| x || x<`8>8`p8 8 p`ppp888Qn#HM$:12:15:"HIT RESET":I0,600 P:Po!Pp * INTRO *0Pz"INTRO":IPX * ERROR ROUTINES *ZPb"ERRORS ":qP@ * INSTRUCTIONS *PJ"INSTRUCTIONS":P(# ** EXIT **P2#:P<#20QZ#HM$:10:"Type 'EXIT' to exit, or press 'RETURN'"::"to return to Flash Card progra5OZ$"A"200!OZ$"B"3007OZ$"C"İ600:900HOZ$"X"9000XO(7);:950oO * MAIN PROGRAM *OHM$: * CLEAR SCREEN *O600: * READ BASENAMEFILE *O700: * READ INDEXFILE *O900: * MAIN MENU *PON CHOICE GOSUB 200,30G(T)@BQTJ@:15:B;" REMAINING":11:3:E$(X):14:12:"-> ";:A$i@@14:16:G$(X):E1550:Ev@T:3000|@ P58,UI8,41,69E7UJ8,39,69,UL7,43.5,77,UM8,43,75,UO5,47,29,UP2,54,25|7 UQ2,57,24,UR2,59.5,24.5,VE/VO1,48,-55,VE1,46,-637 VE2,46,-71,V02,53,-60,VE3-CTR,50,-86,VE4,50,-977 VE5,52,-107,VE6,54,-113,VE7,55,-125,VE8-NE,70,758 VE8-W,65,-125,VE,11,TL,5,19,TN,-5,15,TR,0,10,TT,12,16d6 TU,5.5,-4,TY,6,2,TZ,15,-3,UA1-F.J.L.,80,55,UA-MSCW,56,336 UA2,55,20.5,UA9,57,60,UA0-NOVOS.,56,92,UA0-IRKUT.,52,114,UA0-YAKUTSK,62,130,UB5,50.5,30.5,UC2,54,27.5 7 UD6,40.5,50,UF6,42,45,UG6,40,44.5,UH8,38,Y0-ST.P,.5,-29.5,PY0-TR,-21,-29,PZ,6,-55Z5 S2,23.5,90.5,SM,59,18,SP,52.5,20.5,ST,16,325 SU,30,31,SV-CRETE,34.5,25,SV-GR,38,24,SV5,35.5,285 SY-MT.A,41,25,TA-CTR,40,32.5,TA1-EUR,41,295 TF,65,-21,TG,15,-90.5,TI,10,-84,TI9,5.5,-87%6 TJ,44.5,-59,LX,50,7,LZ,43,23,MI-SEE-9A,44,12W4r OA,-13,-77,OD5,34,35.5,OE,48,16,OH,60,254w OH0,60,20,OJ0,61,20,OK,50,14.5,ON,51,4,OX,73,-404| OY,62.5,-8,OZ,55.5,12,P29,-9,147,PA,53,5,PJ,12,-694PJ8,18.5,-63,PY,-16,-47,PY0-F.DM.,-3.5,32.5(5 P,28,-178,KJ6-JOHN,17,-168,KL7,61.2,-149.8X3Y KM,28,-178,KP4,18.5,-66.5,KP6-KIN,6,-1623^ KP6-PAL,7,-162,KR6-DEL,26,128,KS4-SWAN->HK0,17,-833c KS4-SERR,14,-80,KS6,-15,-169,KV4,19,-64.53hKW6,19.5,167,KX6,9,168,KZ5,9,-79.5,LA,60,10.5(4m LU,-3,71,-9,JY,32,36,K1-K2,42,-74[2@ K3,40.5,-76,K4,34,-82,K5,33,-97,K6-SF,37,-122,K7,40,-1442EPAUSEI14000::"TO CONTINUE HIT ANY KEY";:A$2J KC6-EAST,10,139,KC6-WEST,8,160,KG4,20,-752O15:"WHAT IS YOUR LOCATION (HOME QTH) ? "W$)3T KH-KURF78,HK0-MAL,4,-81F1' HK0-SAN-A,12,-82,HL,38,128,HP,9,-80,HR,13.5,-87x1,HS,13.5,100.5,HV,41.5,13,HZ,24.5,47,I,41.5,1311 IT,38,13,IS,39,9.5,JA,35.5,140,JD-OGA,27,13716 JD-M-T,24,154,JD-OKINO,25,132,JT,48,107,JW-SVAL,77,142; JW-BEAR,75,19.5,JX7-TROM,-16,5570 VK5,-34,139,VK6,-31,116,VK7,-43,147s0 GJ,49.5,-3,GC,49.5,-3,GD,54,-5,GI,55,-6,GM-SCOT,56,-30 GM-SHET,60.5,-1,GW,51,-4,HA,47,19,HB9,46.5,8.50 HB0,46,10,HC,-.2,-79,HC8,0,-90,HH,19,-72,HI,19,-701" HK,4.5,-74,HK0-BAJO,16,-Ԡ)Ha(͠ؠϠàĠ)Roa(ӠàϠ)*\ca(ӠŠҠϠŮ)f`.?6@r$pM6`.?6@r $  zM6[ M6Q?x]Ԡ̠٠Ġ Πҭ؍ԍč؍Эҭ؍ٍ؍ͭϭ؍č؍ԭٍԭ؍ҍ̍ȍ؍ĭԭ؍ō؍íō؍׍ؠͭϭͭέέͭͭ؍ҍȍ؍؍ԭ؍ԭ؍č؍ϭέխ؍č؍ϭԍ؍ҍ؍έ؍ō؍ĭӭԭ؍ԍ؍ͭɭ؍č؍ɭ­ԭɭ؍ٍ؍ĭӭ؍ԍō؍έɭ؍׍ō؍׍΍؍ҭϭ؍ҍ؍ɍԍ؍ҍΠύ؍ϭ؍ƍō؍̭ɭҭɭ؍ҍ؍ŭխ؍̍č؍ɭխԭϭ؍ύ؍ɭ؍ˍ΍؍ϭͭ؍ōԍ؍խɭ؍ҍ؍ŭŭ؍ōĠƠōΠԠƍ؍ϭҭͭɭ؍΍؍ɍԍ؍Ǎԍ؍؍ҍ؍ȭ؍̍ҍ؍ĭ֭؍­έŭӭέ؍ԍԍٍ͍΍؍ҍύ؍ԍȍ؍ĭ؍ύčԍ؍ǭí؍ύ؍ҍɍύ؍͍č؍ҭϭ؍ҍԍ؍ɭɭ؍ȍč؍̭؍ˍ؍؍Ѝ  3X,9.5,-14,3Y,-54.5,3,4M->YV,10.3,-67Y>q 4S7,7,80,4U-ITU,46.5,8,4W,15.5,44,4X4,32,35>v 5A,33,13,5B4,35,33,5H1,-7,39.5,5H3,-8,35>{ 5N,6,3,5R8,-19,48,5T5,18,-16,5U7,13,2> 5V7,6,1,5W1,-13,-171,5X5,.5,32,5Z4,-1,37? 6O6,1.5,45,6W8,15,-17,/=S ZL-ANT,-50,179,ZM7,-9.5,-171,ZP,-24.5,-58i=X ZS,-34,19,ZS2-MAR,-47,37,ZS2-P.E.,-46,38,ZS3,-22,18=] 1S,15,115,3A,44,8,3B7,-16,59.5=b 3B8,-20.3,55,3B9,-20,63,3C,11,-17,3CO,-2,6=g 3D2,-18.5,179,3D6,-26,31,3V8,37,10.3,3W8->XV,10.3,107'>l0: F24:(4);"CATALOG"! d9 ,(20(A$)2):A$:O 1:X140:A$;: *23:X140:A$;::2:X222:1:A$;:40:A$;:: :n(W$)131520%x(W$)815008(DE$)11440S(DE$)1DE$"":1450]1380uDE$(DE$,(DE$)1)PS(0)PS" ";PS1380(DE$)20ĺ"";:1380W$;DE$DE$W$:1380 D500:H Z1300/"TOTAL SCORE....."Q:((R(RW))100);"% RIGHT"s:((W(RW))100);"% WRONG"y X123X(" "2X<1:1FP"ENTER DEFENITION ";ZDE$""dW$15'LD$(Z,H)"X"D$(Z,H)"XXX"12204VD$(Z,H);`HEj1220Tt"RIGHT!!"d~RR1:WW1D$(Z,2)"XXX"D$(Z,2)"X"1220:"THE OTHER CORRECT CHOICES ARE..."H15D$(Z,H)"XXX"D$(Z,H)"X"1220D$(Z,H)HH11;13);"SECOND CHANCE"8"QUESTION #";Z;" OUT OF ";WSR;" RIGHT":W" WRONG"[:l;15);C$(Z)r|1360:DE$""1060J15DE$D$(Z,J)1140J$"WRONG AGAIN!!!!"8:"THE CORRECT ANSWERS ARE..."BH":A$ 4Z>1300.H"TOTAL SCORE....."NR((R(RW))100);"% RIGHT"n\((W(RW))100);"% WRONG"f:"PRESS 'A' TO PRACTICE AGAIN WITH THE"p:"WORDS YOU MISSED."z:"PRESS 'S' TO END"A$A$"S"ĀZ121300"X"810B$(Z,J):J!810B"RIGHT":RR1:PQ1200:PQeB$(Z,2)"XXX"B$(Z,2)"X"820:"THE OTHER CHOICES WERE..."PQ1150:PQ J15B$(Z,J)"XXX"B$(Z,J)"X"810 B$(Z,J):J*:"PRESS THE SPACE BAR TO CONTINUE01360 :: DDE$""620* NY15? XDE$B$(Z,Y)740F bYa l"WRONG":PQ1300:PQk vWW1} C$(W)A$(Z,C) Y15 D$(W,Y)B$(Z,Y) Y :"THE CORRECT ANSWERS ARE...." PQ1100:PQ J15B$(Z,J)"XXX"B$(Z,J)A$(C,Z)R$4 R$B$(X,Z):B$(X,Z)B$(C,Z):B$(C,Z)R$; ZB XH T Z1XXb 16368,0l 1300w DE$"" "QUESTION #";Z R;" RIGHT" W;" WRONG" C((8)6)1 A$(Z,C)"X"A$(Z,C)""520 ::15);A$(Z,C) &:: XX"B$(X,Z)"X"350 T310 ^L$(A$(X,1)" ",15)(B$(X,1)" ",12)(B$(X,2)" ",12) cL$ h230 rXXX1:D$;"CLOSE ROOT ";G |X1XX:C((8)XX)1 Z110 R$A$(X,Z):A$(X,Z)A$(C,Z):00 X07 "HERE IS A SNEAK PREVIEW OF SOME WORDS"A 34,1G Z OP$;"ROOT ";Gm RD$;"ROOT ";Gs } XX1 Z0 ZZ1 A$(X,Z) A$(X,Z)"X"300 A$(X,Z)"XZX"370 "250 ,Z0 6ZZ1 @B$(X,Z) JB$(X,Z)"X CUM- THROUGH FID-"< "4. FILI- THROUGH GYRO- ^ "5. HAL- THROUGH LOG- "6. LUC- THROUGH NOUNC- "7. ONYM- THROUGH RE- "8. REG- THROUGH VOL- 16368,0 G(16384)176 G1G8182 13  D$(4),(OP$D$"OPEN "?2RD$D$"READ "i<A$(33,10),B$(33,10),C$(33),D$(33,10)uF:1300P"ON WHICH SHEET WOULD YOU LIKE TO BE"Z"TESTED:"d"1. A- THROUGH BI-n"2. BIBLI- THROUGH CRESC-  x"3.       ","1945","1960","1776","1958","1974","1976","1969"NSSINATED","H","WAR OF 1812","E"  "ATOMIC BOMBS DROPPED ON JAPAN","N","BATTLE OF THE ALAMO","M","PROHIBITION REPEALED","B","DECLARATION OF INDEPENDENCE","P"2  "1492","1933","1863","1950","1812","1917","1876","1963","1620","1972","1861","1941","1836CLAMATION","C","CUSTER'S LAST STAND","G"  "COLUMBUS DISCOVERS AMERICA","A","U.S. ENTERS KOREAN WAR","D","NIXON RESIGNS","R","PILGRIMS LAND AT PLYMOUTH ROCK","I" X "U.S. ENTERS WORLD WAR I","F","FIRST U.S. EARTH SATELLITE","Q","JOHN F. KENNEDY ASSARY THIS QUIZ AGAIN? (TYPE YES OR NO)";W$@ W$"N0"ī32767R W$"YES"ī55 , "AMERICANS LAND ON MOON","T","CIVIL WAR BEGINS","K","NIXON VISITS CHINA","J","U-2 INCIDENT","O"(  "PEARL HARBOR","L","VIKING 1 LANDS ON MARS","S","EMANCIPATION PRO(64X);". ";T$(X):::X:3 DX120:18:Q$(X)< FRE$g PRE$A$(X)ĺ:"CORRECT, ";N$:CC1:95 Z:"NO, THAT IS INCORRECT. LET'S GO ON." _F12000:F d18:958 X 17:"YOU GOT ";C;" RIGHT OUT OF 20.":19, "DO YOU WANT TO T CORRECT DATE."G *:"PRESS 'RETURN' WHEN YOU ARE READY TO GO ON.";X$M -i 2:Q$(20),A$(20),T$(20)o 7 <X120:Q$(X),A$(X):X =X120:T$(X):X >X120:Y17:BX:X7BX7 ?X14BX14 @(2B):X7X15Ė13 AX14Ė26 B4 :3- 6)"* * DATES IN HISTORY * *"5 :g"HELLO THERE, PLEASE TELL ME YOUR NAME?":N$m"DO YOU WANT INSTRUCTIONS?";D$#D$"NO"ī50$: ("MATCH THE EVENT WITH THE YEAR IN WHICH IT OCCURRED. TYPE IN THE LETTER OF THE    0L@` g RgƖ8PgPQhQghe Ӣi  g y  gh^_8^eP^ȱ^ eQ^^_Ll8ePeQ`L`8  8`@p@@@@@@@`p@`0xp @  p@`0|xx  p`8|<8`x @@``pp@`p088880p`@@@@X 8@8X @@@@|@@@@`@@`|@`@ @`0 Ƀ@```@@@`@ <80 ` ` p|?00~8`88`@6 6@`0 0xXXx0x \x@`@@` W         O ң/  M $' 1$L11 $$ ɍ` )?~?7 , AY M 3 o 2+I`*)hQL$h 1L$h)L$h*`ɇ :I :`,0`  I`UU**ժU**U4+;߂ +|[?,$ +|B\|#B\9 Σ8 0h`H 0Iȱ 0I _ 0h `+i,^!*i,4*iPII*&if*+`, P\H_p , PPH` Bh $ 0IPH*&& h*H&& h& f$)% Ș)% L$, J , 0IH)hl )M H4+))`,1ɰ(ɸ$)_ B``ɠhɃ`ə`ɚ`ɂ`ɀ`ɐ`ɑ `ɗ@ `Ʌ `ɒ `ɔL `H, P $$!$  , %%#%% y $h( k HH _ 0h,  k  $( ɛɍ `HH 3, P Ș! 3$hh` k,  %%#%*I* 0`H, ,0 h`(*)) &+`H,0 @ &,P,R,Wh,  N H%2 hH)*** **m(L(mhH h '`,ɰ Ʌ+hi#2H $)) &)!(*e))e++8) )L Lp"H $)) &+(*hi#H j j L *(+) 0!*(`$ H))? @(hN    Vɖ ILɓ%Ɂ)ɍ*ɘ&,  ɕ( ` (LN N ` `(5 $, P$$!#$%, i#V%i#%M%L" `"%$Iiii=ߤ$%H " %%, %%#h%LB y ,fH <hLp $,  %%#%  kH %+I`*L )*! 0h`"H $)) &)(*)#`LkL Li ލR,0 ,J̩@K @& &  < 2 y6789L8L< | $(  ΰɐ$, P$$~!$$P$"%n%, %%L"ɍ7Ɋ7ɈɌOɎfɆ>ɉɋɏZ $ H h .#` L}%J u H h d #` L Q ; #` Q #`#2 '( H() 1 eȱm)h`JJ`#JȱJLh `#  <(eΨ =)eϰ%Hh>?iJK̅  1& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS) PI ȄR%*QTU'T8ePT UeRU QJJJ`JJJJS) PI ȄR%*QTU'T8ePT UeRU QJJJ`00', "&,i8i#H&ii&hif&i'`'i, &i,. &iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaIL &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%0J$)` .Q&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j            L,ARCHBISHOP,AdA INVADERS FROM NORTH AFRICA WERE CALLED, MOSLEMS,MAGYARS,VIKINGS,A{8 LAND A VASSAL RECEIVED WAS A,SERF,FIEF,PEASANT,BB "BEFORE HE BECAME A SERF, A YOUNG MAN SERVED AS A",FIEF,SQUIRE,MILLER,BL THE BISHOP OF ROME IS CALLED THE , POPE,VASSA OF THE, VIKINGS,SPANISH,FRANKS,Cb THE VIKINGS WERE FROM, ENGLAND,SCANDINAVIA, NORTH AFRICA,B THE BREAKDOWN OF CENTRALIZED GOVERNMENT GAVE RISE TO, FEUDALISM,TRIBES,DEMOCRACY,A$ ___ SUFFERED MOST FROM VIKING RAIDS,SPAIN,GERMANY,FRANCE,CD.NS, THREE CHOICES AND THE CORRECT ANSWERS. WESTERN EUROPE IS SURROUNDED BY, BALTIC SEA AND BERING SEA, MEDITERRANEAN SEA AND NORTH SEA, ADRIATIC SEA AND CARIBBEAN SEA,B ROME FELL IN ,476 A.D.,503 A.D.,440 B.C.,A! CHARLEMAGNE WAS THE LEADER YOU DIDN'T STUDY THIS YET!":Y"WOULD YOU LIKE TO TRY THIS QUIZ AGAIN? ";YN$YN$"Y"YN$"N"Ą"JUST TYPE Y OR N.";YN$YN$"Y"250:"COME BACK AGAIN SOON. HAVE A GOOD DAY!":* ** THESE DATA STATEMENTS CONTAIN THE QUESTIOS."  SC107608 "THAT WAS PERFECT!"::900F SC7780 "THAT WAS VERY GOOD, BUT THERE IS STILL ROOM FOR SOME IMPROVEMENT!"::900 SC5800 "THAT SCORE WAS O.K., BUT YOU COULD USE SOME MORE PRACTICE."::900 "LOOKS LIKEORRY, THE RIGHT ANSWER WAS ";::CA$(I);::".":"SO FAR YOU HAVE ";SC;" RIGHT OF ";I;"." X24:5::"PRESS RETURN TO GO ON.";REDDY$: bI  ** THIS PART WILL PRINT A SUMMARY FOR THE STUDENT.  3:"YOU GOT ";SC;" RIGHT OUT OF 10 QUESTION) r"B. ";B$(I)% |"C. ";C$(I)+ S 5:"WHAT IS THE BEST CHOICE? ";AN$e (AN$)1400 AN$"A"AN$"B"AN$"C"400 AN$CA$(I)500 SCSC1 20:"NICE WORK. YOU NOW HAVE ";SC;" RIGHT":"OUT OF ";I;"." 600Y 20:"S$(10),CA$(10) I110= Q$(I),A$(I),B$(I),C$(I),CA$(I)D Ia SC0: ** SET SCORE TO 0 , ** THIS PART WILL SET UP EACH QUESTION AND KEEP TRACK OF THE SCORE 6I110 @ J2:16::"QUESTION #";I: T8:Q$(I) ^ h"A. ";A$(I CORRECT ANSWER. AT THE END, THE COMPUTER WILL GIVE YOU YOUR SCORE."r ::"WHAT IS YOUR NAME? ";NA$ :"OK, ";NA$;", HERE WE GO!" I12000:I ** THIS SECTION WILL SET UP THE FILE OF QUIZ QUESTIONS. Q$(10),A$(10),B$(10),C Gd ** THESE INSTRUCTIONS WILL SET UP A TITLE PAGE AND INSTRUCTIONSMnfx2:10:"WELCOME TO"4:13:"COMPUTER QUIZ"O 8:" THE COMPUTER WILL GIVE YOU 10 MULTIPLE CHOICE QUESTIONS. YOU ANSWER EACH ONE BY GIVING THE LETTER OF THE  썍쯠   z#?Xð   ԭԠϠȠҠ ԠŠ; ԠԠ ŮԭŠ! ԭŠ" ٮڠ  ŮӮڠ  Ӯή٠ ӮӠ Ԡ ԠԠԠԠԠ Π: ȮӠ!Š"ϠŠϠŠȮΠͺՠŠҠ#Š2ŮҠ#ҠԮԠ md:&98N9m:Jn8m8eed`8edd 鑠` :` ^67ą89 Q@ y 6 @^`6798 Q`Hǒ hǒ``}~eei@iA)m~~ v  6g/5 ys r ; ya ` `$$(ɠ$C y$f ``H$%  h\  `CATALOG\Y/N\LOAD\LOCK\UNLOCK\RUN\SAVE\DELETE\NOMONC\START\ LENGTH\,D\I/O ERROR\VERIFY\@  dh a X ;g B ؐg KL L KPhg a X00   ddd 鑠 ؐLs ;O ؐ YLЪPТ2'gh a X ;" ē$ y X ؐ Y ȒL :L'% g h y ē I8Mtn=vH?J QVQT_ɕ%j^iZk[l#^Z_[ 0f ߓ Y1  Ȓ@)ȹ@)ȹ@) Xmɠ 0   L Mf'fП K Xg QLiLLs4    ٍӠ΍ΠӠȍӠҍˠ΍ӠŠΠŠүٳγōĠŠҠΠЯٴδӠŠ̠ίٴδ΍΍ĠŠԠ̯ٴδ٠ԍӠŠ̠ΠĠҠδٴҠŠϠРŠԠ͠¯ٲβҍĠŠŠΠůٳγ΍ӠŠΠϠĠŠծӮٳγΠ®ٍӠŠҠүٴδΠĮԍӠ΍ծӮԍ΍ӠŠ̠ΠŠ̠үٳγ΍ĠŠנŠԠΠǯٲβĠӠΠŠΠĠҠүٳγ٠ӍӠŠԠҠŠŠӠԯٲβҍĠȍĠŠҠŠŠ٠ǠӠٯٱαٍӠŠŠԠԯαٱĠŠŠŠ٠ΠůٱαӠŠŠҠ̯ٲβ΍Π΍ǍǵӠŠԯٲγӠŠԠǠŠ̠үٷζӠŠΠԯٵδӠŠΠүٹθӠŠŠԠΠϠˠίٱαӠŠįٱα΍ĠŠҠٯβٲ  Ѝ؍íԭԭ؍č؍í؍ԍ؍ɭ؍΍ō؍խ؍̍؍ŭحíƭ؍͍ԍ؍ԭԭԭٍ؍ōύ؍í؍ōč؍حí؍ٍ؍ҭԭŭԭ؍ٍҍ؍ĭ؍ȍԍ؍؍̭ϭ؍ō؍ͭ؍΍؍ōӍϭ؍č؍ɭ؍ȍ΍ԍӍ؍ԭխխ؍ˍٍ؍έӍҭέҍ؍ٍٍ؍íέح؍ȍ؍ͭέ΍؍ō΍؍ͭέ؍ͭϭͭέέͭͭ؍ҍȍ؍ԭύ؍ԍ΍؍ҭҭӭ؍΍Ǎ؍­ԭ؍ō؍í؍΍؍ɭɭɭ؍ƍ؍ԭԭ؍ȍ؍ҭϭ؍Ԡčԭč؍ͭ  AUTHOR:.......................Zx# PROGRAM CLASSIFIED - PUBLIC DOMAIN -`# 4400&NN1N20 1200J:"HEX RESULT = ";D$(0);D$(1);D$(2);D$(3)fD:"PRESS ANY KEY": Q$lNr@x(#P# JUDD ELLMERSZ# 'CONVERSION PROGRAM'd#%n# THIS PROGRAM GIVEN TO APPLE CORE OF SAN FRANCISCO FOR USE OF MEMBERS BYAY BE POSITIVE OR A SMALL"D"NEGATIVE DISPLACEMENT. IF YOU WANT"r"THE NEGATIVE RESULT, ENTER THE SMALLER""NUMBER FIRST. FIRST HEX #= ";N$:N0 2200:N1N:" SECOND HEX #=";N$:N0 2200:N2N: (N1N2)0 N256(N1N2): 180: 23! D$;"BRUN MENU"' > CENTER STRING A$^ B(20((A$)2)):B0B1k B:A$: from our library." P:D Z"WILLAMETTE APPLE CONNECTION, INC."X d"P.O. Box 7252w n"SALEM, OREGON 97303-0053 x20:"PRESS ANY KEY TO CONTINUE" zA$ } D$(4): CTRL-D 12 C(1101):C6ĺ::A$"BE SURE CAPS LOCK IS DOWN":l  ::::"These programs are distributed by the"f"WILLAMETTE APPLE CONNECTION, Inc. as"("Public Domain. If any person has proof"2"that any program is not Public Domain,"<"please contact us and we will delete" F"the program$% 0 vf'  `m :F a -mLǏLi^j_kZl[`8tp`8M`y h (`|)* X |`YLHHJhh`Ǘ˯߷ë󳏋'C/cO KC[ a(נ)+Ss?` WILLAMETTE APPLE CONNECTION, INC. L(OAD R(UN D(ELETE C(ATLG T(DRIV K(LOK U(NLOK X(ALL E(XIT V(ERIFY ----------------------------------------VOL PG OF SECT-USED LEFT ---------------------------------------- ) v) m}}m~~ة$eeeLؠ D8}}~~ؠ ~ 0})JJJJ 0ș}) 0șeJJJJ 0``% $ Bd 鑠e e ēHi&eh L`$e  ɍ ` X0 ؍ӭԭԭ؍ō؍ϭӍ؍׍؍ȭͭ؍ōǍ؍ɭխ؍ōǍ؍ǭ؍čˍ؍ͭ؍č؍έϭ؍΍؍ϭ؍Ǎō؍؍ҍ؍ǭŭ؍ōŠٍ؍έ؍Ǎ؍č؍٠ΠŠ͍؍Ӎō؍ҍ؍ͭ؍ō؍έí؍΍ȍ؍ՍӍҭ؍ӍčЍ؍ϭҭ؍čȍ؍ҭԭ؍ٍ٠΍ɭ؍΍ҍ؍έɭͭϭ؍čԍ؍ҭҭ؍ōō؍խ؍č؍ԭح؍č؍խح؍׍؍ɭ؍ƍ؍ԭ؍Ǎȍ؍ԭԭ؍ˍԍ؍ҭɭ؍  ժժժ p ? `syc?@|yA ժժժՂ  8` ժՀ  ? ЪժժժժՂ 0Nq ?xc?@|yO Ԫժժժ `9|` ``n0p`f @*U*U U* ЪժժՀ   ժժժ   ժժՀ `9`3 *U*(U* ժժժժ p 3 `sc 3@s|q@ ժժժՂ x 8` Հ   ժժժժՂ 0Ny 3xc?@|yO Ԫժժժ `9x` `@n08`f @*U*U*U* ЪժժՊ   ժժժ   ժժ `9`3 (U*U* ժժժժ p 3 @sc @sLq@ ժժժՂ x? 8`    ժժժժՂ py 3xa@sxx Ԫժժժ <`` `n0` f P*U*U*U* ԪժժՊ   ժժժ   ժժ `9p?  U U* ӭ؍׍ōҍ؍ϭ̭ɭ؍čŠč؍íϭ؍ˍ؍խέ؍٠ōō؍ɭĭȭ؍ō؍ϭ­؍ō؍֭؍ō؍ǭح؍Ӎč؍؍ҭҭ؍čō؍ϭ­ƭЭ؍ҍ؍ϭ؍ŧӠ΍؍έͭ؍ԍύ؍έͭ؍ύ؍ϭ؍̍ō؍ҭ؍΍Ǎ؍ԭέ؍ύ̍؍ԭԭ؍ԍ̍؍ǭí؍΍؍ҭ̭ŭҭ؍ȍō؍ɭحϭ؍̍؍ϭ؍΍؍ͭǭɭ؍č؍ԭԭ؍΍؍ҭӭ؍ˍǍ؍حح؍؍؍ҭ؍č؍ϭխӭ؍ō؍ϭ؍ōҍ  TO";::*"'";X;"' DEGREES FAHRENHEIT"09900C1000NT0`x:5:"CALCULATOR"|:"BY KEVIN ARMSTRONG""DATE: 7-79"::"THIS PROGRAMS USES YOUR APPLE AS""A POCKET CALCULATOR"20:"PRESS ESC TO END":"<"T*C10:C20:C30]4:5>"CALCULATING THE AREA OF A CIRCLE IS THE FUNCTION"H::R"ENTER THE RADIUS ";:C1:\C2C1C1:C33.14159C2:eC2C1C1:TOTAL = ";E1900600$R THIS ROUTINE DOES SQUARE ROOTXbQ10k:5"SQUART ROOT IS THE FUNCTION"::"ENTER # ";:Q1::"THE SQUARE ROOT OF ";Q1:" EQUALS ";(Q1)900700 D"TOTAL = ";D1N900#W500)XZY THIS ROUTINE DOES ECPONENTIATION`ZrbE10:LSTE20{l:5v"EXPONENTIATION IS THE FUNCTION"::"ENTER # ";:E1:" ^ ":"ENTER # ";:E2:E1E1E2 "400 4 THIS ROUTINE DOES DOVISION:JD10:D20S:5s"DIVISION IS THE FUNCTION"}::&"ENTER # ";:D1:+" / ":0"ENTER # ";:D2:5D20ĺ"YOU CAN'T DEVIDE BY ZERO ":900::555:D1D1D20 300 A  THIS ROUTINE DOES MULTIPLICATIONG W M10:M20` :5 "MULTIPLICATION IS THE FUNCTION" :: "ENTER # ";:M1: " * ": "ENTER # ";:M2: M1M1M2 "TOTAL = ";M1 900 ";A1 "900 +200 ,K - THIS ROUTINE DOES SUBTRACTIONQ .a 6S10:S20j @:5 J"SUBTRACTION IS THE FUNCTION" T:: ^"ENTER # ";:S1: c" - ": h"ENTER # ";:S2: rS1S1S2 |"TOTAL = ";S1 90:"ENTER CORRECT SYMBOL PLEASE"* 1150 [ THIS ROUTINE DOES ADDITIONa q A10:A20z :5 "ADDITION IS THE FUNCTION" :: "ENTER # ";:A1: " + ": "ENTER # ";:A2: A1A1A2 "TOTAL =ɭ؍ԍ؍ͭ؍ԍӍ؍έɍ؍ԍō؍íɭԭ؍ō؍؍ō؍؍ҍ؍ϭ؍̍؍ҭ؍̍؍ӭϭ؍č؍ӭԭ؍ԍ؍­֭ԭ؍ō؍ȭ؍͍ō؍ԭϭ؍ȍ؍ԭ؍ō؍ϭ؍Ӎҍ؍ԭ؍Ѝ̍؍ϭ֭؍׍íέϭ؍ԍ؍ĭӭ؍ٍ؍έ؍΍؍ϭ؍ԍō؍ɭ؍ԍ؍̭؍̍؍ĭ؍ҍ؍ɍō؍؍ҭϭ؍ҍ؍ҭ؍ҍ؍ǭӭ؍ōˍ؍ҭɭ؍  IS ";(R4):T T"THESE VALUES SHOULD BE ROUNDED TO THE":"NEAREST STANDARD VALUES"] ^900z R31(23.141592654NC) 290  PRINT CENTER ROUTINE 20(CT$)2 CT$ ""  16368,0:::10:CT$"* * * THE END * * *":450TO THE COMPUTED VALUE OF C.":' 800S "TO CORRECT THIS, WHAT IS THE NEAREST"p "STANDARD VALUE OF C";C R31(23.141592654NC1E6) ""THE VALUE OF R IS ";(R3) 'C22C ,"THE VALUE OF 2C IS ";C2 6R4R32 @"THE VALUE OF R/2 ." R% C1(23.141592654NR)C "THE VALUE OF (C) IS ";Co "IS THIS A STANDARD VALUE (Y OR N)";A$ A$"Y"400 "THE NOTCH DEPTH DEPENDS ON THE ACTUAL":"VALUES OF THE COMPONENTS. IT IS" "DESIRABLE TO GET AS CLOSE AS POSSIBLE":"FEEDING?";R2 1 "SELECT A VALUE FOR R.": "WHEN SELECTING R, THE SOURCE AND LOAD":"RESISTANCE MUST BE CONSIDERED. THE R" "SHOULD BE AT LEAST => THE SOURCE":"RESISTANCE (R=>RS) AND 0.1 OR LESS" "THAN RL. THE RATIO SHOULD BERS>>";Q$:1260 INITIAL QUESTIONS:X(100):AD0" WHAT IS THE HIGHEST POSSIBLE S:"IF YOU WOULD LIKE TO DEVELOP YOUR OWN CURVE, ANSWER 'NO' AT THE END OF THE RANKING WHEN ASKED IF YOU WISH TO SEE THE RANKING AGAIN, AND THE COMPUTER WILL ALLOW YOU TO ADJUST THE CURVE":q:"THIS PROGRAM HAS TRIED TO PRESERVE FF THERE IS A WIDE SPREAD OR VARIANCE IN THE SCORES. IN OTHER CASES IT IS MORE BENEFITIAL TO GRADE BY NATURAL OR ADJUSTED (CURVE) PERCENT.""THIS IS ESPECIALLY THE CASE WHEN STUDENTS HAVE DONE WELL ON A TEST AND THE MEAN IS HIGH." ENTER -1." :"THIS PROGRAM WILL GIVE YOU THE NATURAL PERCENT (THE PERCENT OF NUMBER CORRECT WITHOUT ANY CURVE) AND THE NORMAL CURVE PERCENT AND SCORE." :" <<>>";Q$ :: "GRADING BY STANDARD CURVE IS BENEFITIAL ONLY ISTED AND CONTINUE WITH THE REST OF THE RAW SCORES AT A LATER TIME." ~"YOU ARE ALSO ABLE TO SAVE YOUR SCORES ON DISK. YOU MAY ADD TO THEM AT A LATER TIME IF YOU WISH." :"WHEN YOU ARE FINISHED ENTERING THE LIST OF RAW SCORES, PLEASEī1260 ` INSTRUCTIONS} j::"THIS PROGRAM IS TO HELP SIMPLIFY GRADING FOR TEACHERS. IT HAS SEVERAL OPTIONS."F t:"THE TEACHER MAY ENTER ALL THE RAW SCORES AT ONE TIME OR ENTER SOME OF THEM, AND THEN WRITE DOWN THE VARIABLES LI C U R V E R O U T I N E "n .::::" BY GERALD GONDERINGER" 8::"--------------------------------------" BGG11000: LD$(4):NAME$(70) V23:" DO YOU NEED INSTRUCTIONS (Y/N)?";Q$:Q$"N"! CURVE ROUTINE PROGRAM2 WRITTEN BYO GERALD GONDERINGERf ST. BONIFACE ELGIN NE. 68636 **APPLESOFT BASIC**C $:::"--------------------------------------            P TO 100"::I02000:I:1120:"CLASS OR IND? ";:QQ$D5700XK1KK:INK(K)hPQ1ĺ::{III:T$NM$(I)QQ$"I"12602630PQ1İ55002750"-------------------------------------"2910::3530Q$"I"PZZ:IJZZ:X(I)SS(ZZJ1):+j:F$:6Oo"CODE"10)"TEST"30)"WEIGHT":tI1ZZ:I5)SU$(I)30)X(I):::"HIT IF OK"~J5)SU$(J)30);:Q$:(Q$)0X(J)(Q$)SSSSX(J)SS01200:::"WEIGHTS MUST ADD UNK(K)PQ1İ5500III(2750?PQ1QQ$"C"1060]"-- ";:Q$:(Q$)27ıpQ$"ZZZ"K70v$|.8 --FINAL GRADE ROUTINE =I1520:H(I)0:HH(I)0:L:F$:6:"--- FINAL GRADE MODE"::V2840`SS100eJ1;SG(II,C):SW2f7800 --LIST GRADE MODE W:F$:6:"---LIST GRADE MODE"::z"CLASS OR INDIVIDUAL? ";:QQ$QQ$"C"1015:F$:6:2630PQ1İ5500II0İ2750"-- ";:Q$:(Q$)27ı9705700K1KK:Iк::2570::3"ENTER CODE -- ";CK:F$;" ";SU$(C):6U2630^CT0k :F$:6"NAME";15);NM$(II): "TEST NAME";15);SU$(C):*"GRADE";15);SG(II,C):4:>CT0750HCTCT1R"ENTER CORRECT GRADE "1:6209D:F$;" ";SU$(ZZ):6:"NAME";20)"GRADE"::UNNM$(I);20);:SG(I,ZZ)wXSG(I,ZZ)1SG(I,ZZ)101620b:::"GRADE NOT BETWEEN 0 AND 100"::Q$:580l:SW2: --CHANGE GRADE ROUTINE :F$:6:"--- CHANGE GRADE MODE "::F$:6:"--- ENTER GRADE MODE":::&ZZZZ1:"TEST ENDING WITH '.' WILL NOT BE DROPPEDBY REMOVEAL OF LOW SCORE ROUTINE":0"ENTER TEST NAME -- ";SU$(ZZ)5(SU$(ZZ))0ı6I0KK:SG(I,ZZ)0::K1KK:INK(K)?SG(I,1)63SG(I,ZZ)SW2390- --NAME CHANGE ROUTINE V:F$:6::"--- NAME CHANGE MODE":u:" TO GO ON"::2630:"NEW NAME IS ";Q$(Q$)0ıQ$"A"465SW2:NM$(II)Q$465 --ENTER GRADE ROUTINE &KK NM$(KK)Q$* I0ZZ:SG(KK,I)0:8SW2:245Wr --DELETE STUDENT ROUTINE:F$:6:"---DELETE STUDENT MODE":" TO GO ON"::2630KIIKK:NM$(K)NM$(K1):I0ZZ:SG(K,I)SG(K1,I)::K0KK:NK(K)K:KKKK1NITIALIZATION : :F$:6:"INITIAL ENTRY OF CLASS LIST"H KK0:240f --ADD STUDENT ROUTINE :F$:6:"---ADD STUDENT MODE" " TO GO ON":: " NAME --- ";Q$ (Q$)0Q$"ZZZ"ı Q$"A"230KKKK1:NK(KK)} 24)"'Q'UIT"M :"ENTER CHOICE: ";:Q$:Q$;:998:(Q$)13Č998j Q(Q$)64:Q1Q26135 Q230,160,460,370,520,1080,920,160,160,160,4910,1670,690,160,9000,160,1800,4500,3360,1330,160,160,9400,8000,160,160 60 :135 --IADES"1 Z" 'C'CHANGE NAMES"24)"'T'EST AVERAGE"] _" 'W'ITHDRAWALS"24)"'X'OUT LOW GRADE"w d24)"'F'INAL GRADES" i24)"'R'ENAME TEST" n"SORT FILES"24)"'K'ILL TEST": s" 'S'TUDENT NAMES" x" 'O'N TEST AVERAGE"23)"QUIT/UPDATE DISK" 20 1200. <:10)"TEST GRADEING PROGRAM"J >TB20(F$)2:TB)F$:[ APQ0İ5600 F"CHANGE NAME FILE"23)"GRADE ROUTINES": K" 'L'IST NAMES"24)"'G'RADES LIST" P" 'A'DD NAMES"24)"'E'NTER GRADES" U" 'D'ELETE NAMES"24)"'M'ODIFY GRW1: D$"CATALOG" :' PQ0G 6);"GRADES PROGRAM":::^ #"COURSE: ";F$m )(F$)0Āv *47 -1850:216,0:60 /(222)5KK0ĺD$"DELETE"F$ 0216,0::"NO ";F$;" FILE"::"DO YOU WANT TO START ONE Y/N?";:A$:A$"Y"ĺ:b0"************************** w MODIFIED BY HARVEY P NELSON 13 OCT 1981 ************************** NM$(70),SU$(20),SG(70,20),H(20),HH(20),X(20),NK(70)NW$" (WITHDRAWN)":WD$" (W)" D$(4):S                 N VALUE? ";N$:N(N$)A" WHAT IS THE T VALUE? ";T$:T(T$)l" WHAT IS THE D VALUE? ";D$:D(D$)" WHAT IS THE MEAN VALUE? ";M$:M(M$)18002030 " WOULD YOU LIKE ALL THE SCORES RANKED WITH THEIR VALUES (Y/N)?";Q$:Q$NOT RAW SCORESd|" HAS THE MEAN AND STANDARD DEVIATION BE COMPUTED (Y/N)?";Q$:Q$"N"ī1700" WHAT IS THE VALUE OF THE MEAN? ";M$:M(M$)" WHAT IS THE VALUE OF THE STANDARD DEVIATION ? ";S$:S(S$)2030" WHAT IS THEOU WISH TO ADD TO THESE YOU MAY ENTER -1 WHEN FINISHED. YOU MAY ALSO SAVE THIS IN A NEW FILE.":1320h" ENTER ADJUSTMENT TO NATURAL PERCENT IF NONE AT THIS TIME, ENTER '0' ";AD$:AD(AD$)r WORKING ONLY WITH STANDARD DEVIATION AND ;",L4"GG1,D$;"READ";NAME$;",R";G:NAME$(G)Y(NAME$(G))0GG1:1620nX(G)(NAME$(G))"SCORE ";X(G)XX(G)"X0ī1620,TTX6DDX2@NN1J1500TMTN:VDNM2:S(V)k^D$;"CLOSE";NAME$:" IF YPGG1:X(G)XZX0ī1390=dTTX:DDX2:NN1:1350XnD$;"OPEN";NAME$;",L4"exG1N1xGN1X(G)1D$;"WRITE";NAME$;",R";GX(G)GD$;"CLOSE";NAME$1880:2200 OPENING OLD FILEG0D$;"OPEN";NAME$THE FILE ? ";NAME$:1470}(" WOULD YOU LIKE TO RECORD THIS DATA ON DISK FOR LATER USE (Y/N)?";Q$:Q$"N"QU0:17602 WRITING FILE<" WHAT WILL BE THE NAME FOR THIS RECORD ON DISK? ";NAME$:QU1F" LIST SCORE ";X$:X(X$)CORE ? ";U$:U(U$)f" IS THIS THE FIRST ENTRY OF RAW SCORES (Y/N)? ";Q$:Q$"Y"ī1320 " DO YOU WISH TO ENTER DATA FROM THE DISK (Y/N)?";Q$:Q$"N"ī1640:D$;"CATALOG"::" WHAT IS THE NAME OF LEXIBILITY AT EVERY POINT. PERHAPS IT WILL HELP YOU TAKE THE DRUGERY OUT OF GRADING ASSIGNMENTS AND TESTS.":" <<>>";Q$:1260 INITIAL QUESTIONS:X(100):AD0" WHAT IS THE HIGHEST POSSIBLE S:"IF YOU WOULD LIKE TO DEVELOP YOUR OWN CURVE, ANSWER 'NO' AT THE END OF THE RANKING WHEN ASKED IF YOU WISH TO SEE THE RANKING AGAIN, AND THE COMPUTER WILL ALLOW YOU TO ADJUST THE CURVE":q:"THIS PROGRAM HAS TRIED TO PRESERVE FF THERE IS A WIDE SPREAD OR VARIANCE IN THE SCORES. IN OTHER CASES IT IS MORE BENEFITIAL TO GRADE BY NATURAL OR ADJUSTED (CURVE) PERCENT.""THIS IS ESPECIALLY THE CASE WHEN STUDENTS HAVE DONE WELL ON A TEST AND THE MEAN IS HIGH." ENTER -1." :"THIS PROGRAM WILL GIVE YOU THE NATURAL PERCENT (THE PERCENT OF NUMBER CORRECT WITHOUT ANY CURVE) AND THE NORMAL CURVE PERCENT AND SCORE." :" <<>>";Q$ :: "GRADING BY STANDARD CURVE IS BENEFITIAL ONLY ISTED AND CONTINUE WITH THE REST OF THE RAW SCORES AT A LATER TIME." ~"YOU ARE ALSO ABLE TO SAVE YOUR SCORES ON DISK. YOU MAY ADD TO THEM AT A LATER TIME IF YOU WISH." :"WHEN YOU ARE FINISHED ENTERING THE LIST OF RAW SCORES, PLEASEī1260 ` INSTRUCTIONS} j::"THIS PROGRAM IS TO HELP SIMPLIFY GRADING FOR TEACHERS. IT HAS SEVERAL OPTIONS."F t:"THE TEACHER MAY ENTER ALL THE RAW SCORES AT ONE TIME OR ENTER SOME OF THEM, AND THEN WRITE DOWN THE VARIABLES LI C U R V E R O U T I N E "n .::::" BY GERALD GONDERINGER" 8::"--------------------------------------" BGG11000: LD$(4):NAME$(70) V23:" DO YOU NEED INSTRUCTIONS (Y/N)?";Q$:Q$"N"! CURVE ROUTINE PROGRAM2 WRITTEN BYO GERALD GONDERINGERf ST. BONIFACE ELGIN NE. 68636 **APPLESOFT BASIC**C $:::"--------------------------------------             " TO TRY SAMPLE ";X$!P1730:;ZINITIALIZE QUIZ DATA_dNUM20:NO. OF MATCHES(MAX. 20)nLT$"TELEVISION HERO":LEFT COLUMN HEADINGxRT$"HIS/HER SIDEKICK":RIGHT COLUMN HEADINGDATA FOLLOWS IN THEFORM:LEFT,RIGHT MATCH)"LISTING FOR DETAILS & LIMITATIONS."/L "SOME POSSIBILITIES:":k5:"- SPANISH, ENGLISH":5:"- COUNTRY, CAPITAL":(5:"- WORD, SYNONYM":25:"- INVENTION, INVENTOR":<10:"ETC..."F24:6:"PRESS ";::"RETURN";:: THE SPACE BAR AGAIN. WHEN ALL "M"ARE MATCHED UP, PRESS 'ESC' TO QUIT."24:8:"PRESS ";::"RETURN";::" TO CONTINUE ";X$1730:32,0:33,40:" YOU CAN EASILY ENTER YOUR OWN DATA. ""SEE LINES 1370-1460 WITHIN THE PROGRAM "OR WRAPS AROUND FROM TOP TO BOTTOM AND "X"VICE VERSA. PRESS THE SPACE BAR TO GRAB ""THE WORD(S) CURRENTLY CONTAINED BY THE ""CURSOR. THE CHOICE WILL BEGIN ";::"FLASHING"::"AND YOU MAY EXCHANGE IT WITH ANOTHER BY "!"PRESSING940.X$"T"İ1730:)81730:::9IB"MATCHMAKER DOCUMENTATION"iL9:(DAS$,10)" "(DAS$,13)uV34,3:`"INSTRUCTIONS:"t" MOVE THE ";::"INVERSE";::" CURSOR UP AND DOWN"~"WITH THE RIGHT AND LEFT ARROWS. THE CUR-"("SDIFIED TO BE USED WITH YOUR OWN"P"DATA. A SAMPLE QUIZ IS PROVIDED TO GIVE "~"YOU SOME IDEA OF WHAT MATCHMAKER DOES."::"WOULD YOU LIKE TO (T)RY THE SAMPLE OR""(R)EAD THE DOCUMENTATION? ";X$$X$(X$,1):X$"T"X$"R""Y"X$"N"ė:870JX$"N"ĺ:"THANK YOU FOR USING MATCHMAKER!":23:e(4);"RUN MATCHMAKER"wINTRODUCTION:7:"MATCHMAKER: A MATCHING QUIZ"7:(DAS$,27):" THIS PROGRAM IS A MATCHING QUIZ AND " "CAN BE MO;::"RETURN";::" TO SEE ONES YOU GOT WRONG ";X$8*C4X1Ww>19(M$(OK(X),1)):M$(OK(X),1)"..."M$(OK(X),2)}HR24:8:"PRESS ";::"RETURN";::" TO CONTINUE ";X$\1700:f12p"CARE TO TRY AGAIN? ";X$zX$(X$,1)X$);:868"CUR2:21:M$;:868?M$(OCUR1,3)M$(CUR1,3)RM$(CUR1,3)M$aCUR1:380oFINISHED1700::W0X0NUM1M$(X,2)M$(X,3)WW1:OK(W)X11 "YOU GOT "W" WRONG OUT OF "NUMW8602 :"PRESS " :X(BZ)(BZ):CB,06 DINUPINDOWNINSP560Y NCUR2:21:M$(CUR1,3);:868w XCURCUR(INUP)(INDOWN) bINSP660 lCUR1CURNUM vCURNUMCUR1 CUR2:21::M$19(M$)): 560 EXCHANGEOCUR2:21:M$(CUR1,3UR17 CUR2:21::M$(CUR1,3)19(M$(CUR1,3))):F INSP530O 420_ PICK IT UP CUR2:21::M$(CUR1,3)19(M$(CUR1,3)))::M$M$(CUR1,3):OCURCUR !1 &24:" ARROWS=UP/DOWN, SPACE=EXCHANGE "; 0IN(KB):IN128560S=UP/DOWN, SPACE=PICK UP, ESC=QUIT";4 CB,0:CUR1M IN(KB):IN128420e X(BZ)(BZ):CB,0 INUPINDOWNINESCINSP420 CUR2:21:M$(CUR1,3);:868 CURCUR(INUP)(INDOWN) INESC720 CUR1CURNUM CURNUMCSPLAY 6:, @LT$;:21:RT$:(DAS$,39)P E:X0NUM1:X3:1:20)::3b J1:X0NUM1 TM$(X,1)(DOT$,20(M$(X,1)));::M$(X,3): ^: h(DAS$,39); r23 |INPUT ROUTINE 3:21::M$(0,3)19(M$(0,3)))::1$ 24:"ARROWZ16336 1380! X0NUM16 M$(X,1),M$(X,2)@ :Z1O X0NUM1 N(NUM(1)):Y1Z1:OK(Y)NYZ1::240 :OK(Z)N:M$(X,3)M$(N,2) ZZ1:".";:: UP136:DOWN149 KB16384:CB16368 "SP160:ESC155 ,SET UP DI 0d MATCHMAKER enSUP912:L32:LN39:X140:DAS$DAS$"-"::930yxINITIALIZATION:12:"INITIALIZING";X((78)(79)256)(RANDOMIZE)M$(20,3),OK(20)DOT$"...................." B     AL,MITE,LILLIPUTION,EXIGOUS,SCINTILLA,X68 TO SCOLDB VITUPERATE,BERATE,UPBRAID,REVILE,REBUKE,FLAY,EXCORCIATE,CHASTISE,CASTIGATE,REPROVE,REPROACH,XL BEGINNERV TYRO,TENDERFOOT,NOVICE,NEOPHYTE,ACOLYTE,X` STUBBORNMj REFRACTORY,RECALCNING"< CURTAIL,ABRIDGEMENT,WANING,ABATEMENT,ATTRITION,XK PEACEFULz SERENE,PACIFIC,HALCYON,PLACID,TRANQUIL,X VERY LARGE IN SIZE LEVIATHAN,PRODIGIOUS,MAMMOTH,GARGANTUAN,TITANIC,COLLOSSAL,X$ VERY SMALL IN SIZE'. INFINITESIME MOMENT"N SPONTANEOUS,IMPROMPTU,EXTEMPERANEOUS,FORTUITOUS,ADVENTITIOUS,X[ STINGY NIGGARDLY,PARSIMONIOUS,PENURIOUS,FRUGAL,THRIFTY,X "TEMPORARY, NOT LASTING" EPHERMAL,TRANSIENT,FLEETING,EVANESCENT,X"REDUCTION IN SIZE, LESSE INIMICAL,NOXIOUS,LETHAL,MIASMIC,DELETERIOUS,REPUGNANT,FATAL,EGREGIOUS,NEFARIOUS,INVIDIOUS,BALEFUL,BANEFUL,HEINOUS,MALIGNANT,VIRULENT,ODIOUS,X"FEARFUL; COWARDLY" TIMOROUS,CRAUEN,PUSILLANIMOUS,DASTARDLY,FECKLESS,X "UNREHEARSED; SPUR OF THELLIGERENT,BELLACOSE,PUGNACIOUS,TRUCULENT,CONTENTIOUS,XA\ TOPf APEX,APOGEE,ZENITH,PEAK,CREST,ACME,PINNACLE,SUMMIT,PLATEAU,CULMINATION,Xp BOTTOM z PLAIN,CANYON,VALLEY,PERIGEE,BASE,GORGE,NADIR,ROOT,TROUGH,X "BAD; HARMFUL; DEADLY"SAD* DEJECTED,LUGUBRIOUS,DOLOROUS,MELANCHOLY,DOWNCAST,DISCONSOLATE,DESPONDENT,ELEGY,DIRGE,LAMENT,LACHRYMOSE,SATURNINE,MOROSE,X4 WORLDLY> SOPHISTICATED,URBANE,SUAVE,COSMOPOLITAN,POLISHED,REFINED,XH QUARRELSOME7R CHOLERIC,IRASCIBLE,BLIB,CIRCUMLOCUTORY,EXPATIATE,XB"SHORT, PRECICE; TO THE POINT" TERSE,PITHY,SUCCINCT,CONCISE,LACONIC,EPIGRAMMATIC,TACITURN,SENTENTIOUS,APHORISTIC,CURT,X  HAPPYSANGUINE,BLITHE,EXULTANT,JOCUND,FELICITY,JUBILANT,BEATIFIC,CONVIVIAL,X  ----"34,213906 "SLOW, LAZY, LIFELESS" SLUGGISH,LETHARGIC,LACKADAISACAL,LANGUID,COMATOSE,TORPID,PHLEGMATIC,LISTLESS,X "REPETITIVE; OVERLY WORDY; TALKATIVE" PROLIX,TAUTOLOGIC,VERBOSE,BOLUBLE,LOQUACIOUS,REDUNDANT,GARRULOUS,G$(N,J)CW$(N,I):CW$(N,I)G$%HI:J+R7\:936GfCA$(N)::Mp[zH1C(N)iCW$(N,H)pH:"PRESS ANY KEY TO CONTINUE";A$936X1N1XX;".";6);CA$(X)X"-----------------------------------C(N)1850$ CC$(1)CW$(N,1):NC13 H11C(N)@ H21NC[ CW$(N,H1)CC$(H2)780c H2 NCNC1:CC$(NC)CW$(N,H1) H1 C(N)NC H1C(N):CW$(N,H)CC$(H):H *J1C(N)1:IJ1C(N) 4CW$(N,J)CW$(N,I)840>G$CW$(N,J):CWCT".";6);CA$(CT) N936. XC(CT)C(CT)1I bCW$(CT,C(CT))W$(CT,W)R l360p v"LIST WHICH CATEGORY ";N N1NN1ĺ(7);:680 C(N)0710 ::"NO WORDS IN THIS CATEGORY"  :"PRESS ANY KEY TO CONTINUE"; A$ 390 A$"L"630 A(A$)# 9361 ACT500Q "SORRY, THAT IS INCORRECT.s "THE CORRECT CHOICE IS: ";CT| 510 "THAT IS CORRECT." CT:1  CT".";6);CA$(CT) 24:"PRESS ANY KEY TO CONTINUE"; & 0A$ :CT:1 D "X1N1 ,X' 6X;".";6);CA$(X). @X6 J21e T"---------------------------------------"p ^34,21 hCT((8)N1)1 rW((8)17)1 |W$(CT,W)""W$(CT,W)"X"370  22 W$(CT,W): "WHAT CATEGORY IS THIS FROM ";A$ NS (Y/N) ===>";AN$) (AN$,1)"Y"40001 16\ "HOW MANY POSSIBLE CATEGORIES DO YOU"t :"WANT (2-20)";N1 N12N120N1(N1)ĺ(7):30 X1N1 CA$(X) N0 NN1 W$(X,N) W$(X,N)"X"270 230 X 936 3# CA$(27),W$(27,20),CW$(27,30)6C(27),CC$(30)>:X(A$"SAT / PSAT":3000^2<A$"VERBAL PREPARATION":3000F:PA$"SYNONYMS TEST":3000ZdA$"PROGRAMMED BY LARRY SELTZER"n3000xI116014 "INSTRUCTIO          E"-UNABASHED,"UNDAUNTED,BOLD,UNDISMAYED"6?XXXLDISCONTENT"3 ECLECTIC,"BEST OF VARIED SOURCES"Q VIRGULE,"A SLASH AS /." HUBIS,"SENCE OF POWER THAT LEADS TO A FALL."DENDROCHRONOLOGY,"TREE RING DATING."LACERATE,"TEAR TO PIECES, CUT,MANGLE"RUFFLE,"DISARRANGE,RIPPLE,IRRITATTO ITS SIMILARITY TO ANOTHER"Gp TERATOLOGY,"MONSTER STORY CREATION"xz BREVILOQUENCE,"BRIEF BUT EFFECTIVE SPEECH"PANDICULATE,"YAWN"CICERON,"TOUR GUIDE"SEGUED,"FLOW FROM ONE MUSICAL NOTE TO ANOTHER W/O PAUSE"  INVIDIOUS,"CAUSE "$> NIDIFICATING,"NEST BUILDING"TH TRIUMVIRATE,"GOVERNANCE BY THREE PERSONS"R CINERARIUM,"LOCATION OF CREMATED REMAINS"\ TRANSPONTINE,"OTHER SIDE OF THE BRIDGE"f HAPLOGRAPHY,"INADVERTENT OMISSION OF A LINE WORD OR PART OF A WORD DUE LARGER THAN GIGANTIC"8 SIALOGOGUE,"MAKE MOUTH WATER"pNEPHALISM,"TOTAL ABSTINENCE FROM ALCOHOLIC DRINKS"  THEOMACHY,"BATTLES AMONG THE GODS"* INGRAVESCENCE,"WORSENING OR INCREASE IN SEVERITY"4 HYSTERESIS,"LAG BETWEEN CAUSE AND EFFECTNCE",DISPARATE,"DIFFERENT AND DISTINCT"PVIVACIOUS,"LIVELY OR SPIRITED"oASTUTE,"KEEN IN JUDGMENT"URSINE,"BEARLIKE"PARSIMONIOUS,"STINGY OR FRUGAL"OMNISCIENT,"ALL-KNOWING"SESQUIPEDALIAN,"LONG WORDS"BROBDINGNAGIAN,"NG"vAFFLUENT,"WEALTHY"HAPATHETIC,"INDIFFERENT OR UNINTERESTED"]LACONIC,"TERSE"INTREPID,"FEARLESS OR COURAGEOUS"GREGARIOUS,"SOCIAL OR COMPANY-LOVING" ENERVATED,"WEAK OR EXHAUSTED" VENERABLE,"WORTHY OF RESPECT OR REVERE TO TRY AGAIN? ";R$*L(R$,1)"N"6240HV:"CHECK YOU LATER."::_`(R$,1)"Y"6210ejX:D MUST BE AT LEAST ONE GREATER THAN THE NUMBER OF DIFFERENT WORDS.b ANOMYMOUS,"OF UNKNOWN OR HIDDEN ORIGIN"lOMINOUS,"THREATENING OR MENACIULATIONS ON AVOIDING A SHUTOUT."*62009Q506140`"YOU CAN USE SOME MORE PRACTICE."j6200yQ756170"NOT BAD, BUT ROOM FOR IMPROVEMENT."6200"VERY GOOD!!"$Q95ĺ"YOU'RE ALMOST AS SMART AS I AM!!!"8B"WANT HAVE ";Q1;" RIGHT OUT OF ";Q;" QUESTIONS."5 P3P2? P2P1K P1P(A)Q [ pQQ1g zQLıo E1 QQ1100(Q1) Q06070 "WELL, THAT'S A ''PERFECT '' SCORE...." 6200 "THAT'S ";Q;"PERCENT." Q256110 "CONGRATDOES ";D$(P(A));" MEAN?"# J1C< 5);J;"-- "E$(P(J))B "H rO Rc R1RC5050 "I NEED A NUMBER FROM 1 TO ";C 5000 R(A)5100 "NO, THE ANSWER IS NUMBER ";A 5210 "RIGHT" Q1Q11 ZQ115300+ d"YOU K1J P(K)P3040! K,  P(J)P3  J> & A(3)J ' AAC1U ( A(A)[ a l M(7)x MM21 M(M) M24100 Q;"--WHAT WORD MEANS ";E$(P(A));"?" J1C 5);J;"-- ";D$(P(J))  4210 Q;"-- WHAT X"2140 *E$(J) 4JJ1+ >JD2060L H"TOO MANY DATA STATEMENTS."l R"ONLY FIRST";D;"ARE USED."v \DJ1~ Q1 E0 Q10  J1C P(J)0 J J1C P(5) PPD1 P(P) (PP1)(PP2)(PP3)3040 F SOME USEFUL VOCABULARY WORDS"% $O V"HOW MANY QUESTIONS SHALL WE DO? ";L] `L41140 j"THAT'S NOT ENOUGH. LET'S DO 5.":L5 tE01200 ~  E02200 C5 D250 D$(D),E$(D) P(C) J1 D$(J) D$(J)"XX8d:VOCABULARY QUIZ=n :COPYRIGHT BY RUGG AND FELDMANG,1000Q2000[3000eX4000o5000y 6000E0500300E01060"*****VOCABULARY QUIZ*****""THIS PROGRAM WILL TEST YOUR KNOWLEDGE" "O     VE","DIE BEWEGUNG","MOVEMENT","BEWUNDERN","ADMIRE","BIEGEN","BEND","DIE BIRNE","PEAR""BLASS","PALE","DIE BRAUT","BRIDE","DER BRA:UTIGAM","GROOM","DER BRUNNEN","FOUNTAIN"}"DAS DACH","ROOF","DER DAMPFER","STEAMER","DARSTELLEN","PORTRAY","DAS DENKM"OCCUPY","BESCHLIESSEN","DECIDE","BESCHEIDEN","MODEST","BESINNEN","THINK OVER","BESITZEN","OWN","BESCHPRECHEN","DISCUSS"U"BESTIMMEN","DECIDE","BETEN","PRAY","BETRACHTEN","CONSIDER","BETTELN","BEG","BEWACHEN","GUARD","BEWAHREN","PRESERVE","BEWEGEN","MO~"DER BEGRIFF","CONCEPT","BEHANDELN","TREAT","BEHAUPTEN","MAINTAIN","DER BEIFALL","APPLAUSE","BEISSEN","BITE","BELOHNEN","REWARD","BENUTZEN","USE","BEOBACHTEN","OBSERVE","BEREITEN","PREPARE"x"BERICHTEN","REPORT","BERU:RHEN","TOUCH","BESCHA:FTIGEN",UG","EXCURSION","AUSSERDEM","BESIDES"|"A:USSERST","EXTREMELY","DIE BACKE","CHEEK","BACKEN","BAKE", "BANG","ANXIOUS","BEDAUERN","REGRET","BEDENKEN","CONSIDER","BEDEUTEND","SIGNIFICANT","BEEILEN","HURRY","DER BEFEHL","COMMAND","BEGREIFEN","UNDERSTAND"NDEN","UNITE","EMPFANGEN","RECEIVE","ANFASSEN","GRASP","ANSTRENGEN","STRAIN","ANWESEND","PRESENT","ARTIG","WELL BEHAVED"%z"AUFNEHMEN","RECEIVE","AUFHALTEN","DETAIN","AUFHEBEN","PICK UP","DER AUFSATZ","COMPOSITION","AUFSCHREIBEN","WRITE DOWN","DER AUSFL","GENERAL","ALLMA:HLICH","GRADUALLY"t "ANBIETEN","OFFER","DAS ANDENKEN","MEMORY","ANGEBEN","INDICATE","ANHALTEN","LAST","ANNEHMEN","ACCEPT","DER ANSPRUCH","CLAIM","DER AST","BRANCH; KNOT"v"AUSGEBEN","SPEND","DIE AUSNAHME","EXCEPTION"xx"VERBIETZEN", "TRANSLATE","VERSUCHEN","ATTEMPT","DER VETTER","COUSIN","DER WISCHER","ERASER"p"DER ZAHN","TOOTH","ABHOLEN","CALL FOR","ABLEGEN","TAKE OFF","ABSCHREIBEN","COPY","ABWESEND","ABSENT","ABWISCHEN","WIPE OFF"%r"ALLERLEI","ALL KINDS","ALLGEMEINAFT","STRENGTH","DIE KREIDE","CHALK","LOBEN","PRAISE","REICHEN","HAND OVER","REISSEN","TEAR UP"l"REITEN","RIDE","RETTEN","SAVE","DER SCHATTEN","SHADOW","SOGLEICH","IMMEDIATELY","STEHLEN","STEAL","DER STOCK","CANE"Wn"DIE TAFEL","BLACKBOARD","U:BERS","BESTEHEN","EXIST"jf"ERFAHREN","FIND OUT","ERGREIFEN","SEIZE","ERHALTEN","RECEIVE","ERNST","SERIOUS"h "DAS GEDICHT","POEM","DIE GEFAHR","DANGER","GEFALLEN","PLEASE","DER GRABEN","DITCH","HALTEN","HOLD","HOLEN","BRING"_j"JENER","THAT","DIE KRRAM IS USED TO TEST":"GERMAN VOCABULARY KNOWLEDGE, ANY COLON":"FOLLOWING A VOWEL IN A GERMAN WORD":"INDICATES AN UMLAUT OVER THAT VOWEL." c23:"TYPE ANY CHARACTER TO RUN PROGRAM: ";:P$d"AUFGEHEN","RISE","AUFSTEHEN","RISE","AUSZIEHEN","TAKE OFFCAN BE EASILY MODIFIED":"TO BETTER SUIT YOUR NEEDS. SIMPLY":"ERASE THIS DATA, WHICH IS CURRENTLY" a"CONFINED WITHIN LINES 100 AND 500, AND":"SUPPLY YOUR OWN. ALL DATA WILL BE":"RANDOMLY MIXED EACH TIME THE PROGRAM":"IS RUN." b:"IF THIS PROGRWISE WOULD":"INEVITABLY OCCUR, THIS PROGRAM CLEVERLY":"MIXES ALL DATA EACH TIME IT IS RUN." ^:"TYPE ANY CHARACTER TO CONTINUE: ";:P$ _:8:3:"IN THE EVENT THAT YOU DO NOT SPEAK":"GERMAN OR DON'T CARE TO BE QUIZZED ON"d `"IT, THIS PROGRAM VER YOU DIDN'T":"CHOOSE. AFTER YOU HAVE DECIDED UPON AN":"ANSWER (REGARDLESS OF WHETHER YOU TAKE" \"THE TIME TO TYPE IT), SIMPLY PRESS ":"RETURN, AND THE CORRECT ANSWER WILL BE":"DISPLAYED. TO AVOID MEMORIZATION OF"^ ]"WORD PATTERNS WHICH OTHEULARY"4 U8:3:"THIS PROGRAM IS DESIGNED TO TEST" W9:"YOUR KNOWLEDGE OF GERMAN VOCABULARY.":"WHEN IT IS RUN, YOU WILL BE GIVEN THE":"CHOICE OF SEEING EITHER THE ENGLISH" Y"WORD OR ITS GERMAN EQUIVALENT AND WILL"d ["BE ASKED TO SUPPLY WHATE~8G$(700),E$(700)7 ********************R * *m * BY DAVID LAU *( * *2 * 9/07/81 *< * *F ********************HK P::11:"GERMAN VOCAB                          E *.N4:2:TF$"CHOOSE FROM THE FOLLOWING:"aN7:10:(91);"A";(123);" French to English"N10:(91);"B";(123);" English to French"N10:(91);"C";(123);" New set of cards"N10:(91);"X";(123);" Exit"O16:20:"WHICH? ";Z$:2READ"DB$" "F$"FILE"MN/MI1N:A(I)I:IOMJ1N: * RANDOMIZE LOOP *gMX((NJ1)(1)1)~M Q$(A(X)),A$(A(X))MA(X)A(NJ1)MJM:M D$"CLOSE": * CLOSE INDEXFILE *M>Mz:M:M * MENU *NHM$:20: * DRAW SQUAR0:(91);J;(123)" "R$(J):J:NL{2:"Which would you like? ";S$:S(S$):25xLS1SJĺ(7);:(37):EL$;:25:635LDB$R$(S)LRETURN L:L:L:L * READ & RANDOMIZE INDEXFILE *LF$"INDEX"LD$"OPEN"DB$" "F$"FILE"MD$"* DIRECTORY OF DATA BASES *KKY20:2:12:TF$"FRENCH FLASH CARDS";RF$::|KZ2:"The following card sets are available:"K[DB$"BASENAME"K]D$"OPEN"DB$"FILE"KbD$"READ"DB$"FILE"KgNRKlJ1NR:R$(J):JKqD$"CLOSE"Ks7LvJ1NR:1ess RETURN to repeat a card."PJ5:"Press ";::"M";::" to return to menu."nJ32,1:33,37:34,6:35,17J2:18:"Number of cards in this set: ";N;J:J * PRINT CARD *JY50120:10,Y270,Y:Y: * DRAW CARD *JJW:KX I(7);I700:320I:#I:DI * PRINT CARD & PROMPTS "OI:HM$XI:3|I0,10279,10279,1500,1500,10I2:3:TF$"FRENCH FLASH CARDS";:3:RF$":"I3:23:DB$:21I5:"Press ";::"SPACE BAR";::" to continue."J5:"Pr ";:10:Z$1H^Z$(32)360CH_Z$(13)330TH`Z$"M"İ900]Ha340jHhQ$Q$(J)Hr40: * CENTER PRINT FRENCH *Hw6:2:" ";:30:"FRENCH ";:Z$H|Z$(32)390H}Z$(13)330H~Z$"M"İ900H375HJ LISH ";:Z$GZ$(32)290/GZ$(13)230@GZ$"M"İ900IG275PG"J[G%(7);iG'700:220oG*:uG+:G, * DISPLAY ENGLISH *G6400: * DRAW CARD *G@J1N:A$A$(J)GJ45: * CENTER PRINT ENGLISH *HT6:2:"ENGLISH Q$(J) F40: * CENTER PRINT *YF6:2:"FRENCH ";:9:Z$kFZ$(32)260}FZ$(13)230FZ$"M"İ900F240FCHOICE3İ200:220FA$A$(J)F45: * CENTER PRINT ENGLISH * G6:2:" ";:29:"ENG CARDS"*EY8:X17:T$"FLASH":15:RF$IE13:15:"by Jason Castle"E18:3::" Press SPACE BAR to continue ...";:E18:38:Z$EZ$(32)175E5000E:E:E * DISPLAY FRENCH *E:E400: * DRAW CARD *FJ1N:Q$(500)D * DB$ = DATA BASEDF$"INDEX":HM$(12):RF$(18):TF$(20):LF$(17):EL$(14): * FILE STRING, HOME, REGULAR FONT, TALL FONT, LARGE FONT, END LINED:D * TITLE SCREEN *D:D20:60 E8:4:LF$;"FRENCH ";::"FLASH";::":Z$:)C<5,5274,5274,1545,1545,5:/Cc:HCd * INITIALIZATION *NCe:]Ci::3000CnI30723080:K(I)K:I:K621Č3072:125Cs(4)"BRUN LOMEM:":16384Cx(4)"BRUN FRENCH.GEN"C}D$(13)(4): * DOS PREFIX *DA(500),Q$(500),A$ ";:11:20(Q$)21:Q$;""::: * CENTER * B-11:3::" ";:20(A$)21:A$;""::: * CENTER *B26:2:"FRENCH ";:9:Z$:C76:2:" ";:29:"ENGLISH ";Y:X::T$:10:K::A:dA:HM$::3:0,0279,0279,1590,1590,0:: * HOME, THEN DRAW BOXjA:A0,0279,0279,1590,1590,0:: * DRAW BOX W/O CLEARING SCREEN *A ** CHECK KEYBOARD **:B(11:3::" @ @ ** FRENCH FLASH CARDS **?@ ** COPYRIGHT 1981 **^@ ** JASON CASTLE **}@ ************************@:@ * MICROROUTINES *@:@100@ ** SIMULATED FLASH **@ PAUSE1300:PAUSE:A10:K15:Y:X::T$:10:           ΠӠȍӠŠΠŠүٳγōĠŠҠΠЯٴδӠŠ̠ίٴδ΍΍ĠŠԠ̯ٴδ٠ԍӠҍҠٍӠ΍ȠŠϠРŠԠ͠¯ٲβҍĠŠŠΠůٳγ΍ӠŠΠϠĠŠծӮٳγΠ®ٍӠŠҠүٴδΠĮԍӠ΍ծӮԍ΍ӠŠ̠ΠŠ̠үٳγ΍ĠŠנŠԠΠǯٲβĠӠΠŠΠĠҠүٳγ٠ӍӠŠԠҠŠŠӠԯٲβҍĠȍĠŠҠŠŠ٠ǠӠٯٱαٍӠŠŠԠԯαٱĠŠŠŠ٠ΠůٱαӠŠŠҠ̯ٲβ΍Π΍ǍǴӠŠԯٲγӠŠԠǠŠ̠үٷζӠŠΠԯٵδӠŠΠүٹθӠŠŠԠΠϠˠίٱαӠŠįٱα΍ĠŠҠٯβٲ! ! ! ! !!ύ!A$(I) I* D$;"CLOSE HIST-FILE";NA$0)AA$(I)HIf D$;"CLOSE HIST-FILE";NA$lA$ A$(0)I1(A$(0))*A$(I)1$IO.D$;"CLOSE HIST-FILE";NA$a3FL1NA$XY$g8BD$;"OPEN HIST-FILE";NA$D$;"DELETEHIST-FILE";NA$D$;"OPEN HIST-FILE";NA$D$;"WRITE HIST-FILE";NA$A$(0)I1(A$(0))516368,0:24::"PRESS RETURN TO GO ON";AB$::W:"WHICH CLASS IS THIS?";NA$:"HAS THIS CLASS PLAYED BEFORE? ";XY$(XY$,1)"N"XY$NA$:NA$"":FL1:1010(XY$,1)"Y"1002D$;"OPEN HIST-FILE";NA$D$;"READ HIST-FILE";NYK((Q$,X2,YX2))$VX:"THE HISTORIC FIGURES I ALREADY KNOW ARE:"^]X0kbI1200l(A$(I),2)"/A"650vZ3(A$(I))(A$(I),Z,1)"/"ĺ(A$(I),Z,1);:Z20);XX1:X1X0:I1000120"/"B$(Z1)"/" |120 , Q$A$(K); Z3(Q$)^ (Q$,Z,1)"/"ĺ(Q$,Z,1);:Zf C$l { C$(C$,1) C$"Y"C$"N"410 T$"/"C$ X3(Q$)1 (Q$,X,2)T$480 X  YX1(Q$) (Q$,Y,1)"/"5102);"." X$ > "FOR A ";V$;" THE ANSWER WOULD BE";L "" ";A$p ,A$(A$,1):A$"Y"A$"N"280 6A$"Y"B$"N" @A$"N"B$"Y" JZ1(A$(0)) TA$(0)(Z12) ^A$(Z1)A$(K) hA$(Z11)"/A"V$ rA$(K)"/Q"X$"/"A$(Z11)$(K))2); " ";A$ + A$(A$,1)p A$"Y"ĺ"WHY NOT TRY ANOTHER HISTORIC FIGURE?":I1500:I:120 "WHO WERE YOU THINKING OF? ":" ";V$: "PLEASE TYPE A QUESTION THAT WOULD DISTINGUISH "; V$:" FROM ";(A$(K),(A$(K)) AMERICAN HISTORY? ";A$^ (A$,1)"N"Ą"DO YOU WANT TO QUIT? ";X$:(X$,1)"Y"1090s (X$,1)"N"130y A$"LIST"600 (A$,1)"Y"120 K1 390 (A$(K))0999 (A$(K),2)"/Q"170 "IS IT ";(A$(K),(ATO PROVIDE A QUESTION WHICH WILL DISTINGUISH BETWEEN THE PERSON YOU HAD IN MIND AND THE COMPUTER'S CLOSEST GUESS." : :15::" GOOD LUCK! ": (1000 FA$(200) K1001 nN(A$(0)) x :"ARE YOU THINKING OF SOMEONE FROM2 D$(4)E :3:(4028)2::" PEOPLE IN AMERICAN HISTORY "::" IN THIS GAME YOU WILL THINK OF A PERSON IN AMERICAN HISTORY AND THE COMPUTER WILL TRY TO GUESS HIM OR HER."{ :" IF THE COMPUTER FAILS, IT WILL ASK YOU " " " " """"""ȍȍ"