' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] 鷎귭෍ᷩ췩緈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,&"_]` L/浍굺L  !"#$%&'()*+,-./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#0EB 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`   vLDcpq` [` ~  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 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- ( D  Ϡ@跻~!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 ~(`F d ֠z# u`ox?>pp}xO_o]{>_?X_{{@ww~_>?wvyx?o`}?__`_@_~{~?_?_o>0`?p_0G~~v_~{7_}??]{o}_ow[gw?^wgog?wox?o@?~{w{}>0`?x>{m?_9vs}xA?ooo}];?oogy{s{]w{}_o3_~nnun{~n{{nnfw?~oxp67\_{]qcfmv{}~{}>_}woxG?G|}x_ok{}>_?X_s;ww|_>?gv|_x?o~?~}?__y_@_8{~?_}^^o>{m?_??~wp`}xxs~xXc{o~_ow[ko?]wwoO?w{nsox|?xO>n?_}xw|xA?ooo}@?Wt?~Ox?x|}p>x`?OO|O@_~{~?_}n]o{m?_?k{m?_}vw?|x~0W]v[k6wmo.{~}v[o~{o?_}??y>x`ow[m?[wsownw_opq?xg~xA?oOoy]_{??oogO{}{w{}6_o6qqpnpqan`{qqqwqq`}O9^~}~{}~u}w{ox>?|}?~?xp~@|_>?7{ox?s}|q_o>{}>_?oo~o@_~{~?@}v`.{o?_?g]{m?_}vw?~~~?~PO>zog>{k/{~;w[o~{o?_}??|>{o7ow[n~?Wwxo?~_|pn6|Xg]_cnw_opg?xw~xA?o/wu>o{{^o_k~s}{}v{}:_/7wg?|{_}>`x{}|~  D$(4)!D$"OPEN SFILE"-I1104(AJ2D$;"WRITE SFILE"Q<AYFD$`PIvZD$;"CLOSE SFILE"|d yxA?ooo}={{^o^k|sg{=w{}>_o7_~np{p{~`{{aqjwxO8oJV[_{]n]v}v{}`~>_}|PACE BAR TO CONTINUE";:Z$::,RT": n (* START SORT *)' xT2N2 RA(T)B JT101R A(J)R170e A(J1)A(J):Ju A(J1)R:T (* PRINT SORT *) 10:15 (7);"SORT COMPLETE" 300 Q1N Q,A(Q) Q 300  ,24:"PRESS S $ (* INSERTION SORT PROGRAM *),:M"INSERTION SORT PROGRAM":5t"HOW MANY NUMBERS TO GENERATE ";Nz#("FROM 0 TO WHAT NUMBER ";M*:-A(N)2T1N<A(T)(1)MAA(T)FTP300 d(7):10:15::"START SO  :Z$: x START THE SORT( T1N15 CT1NH A(T)A(C)190S RA(T)a A(T)A(C)l A(C)Rs C~ Q1N A(Q) Q TN1Ģ10:15::"DONE": 24:"PRESS 'SPACE BAR' TO CONTINUE.";:Z$: T   A SIMPLE BUBBLE SORT+:::255Y4:5:"HOW MANY NUMBERS (2 TO 19): ";:Nn#(N19)(N2)20t(~2A(N)< FILL A WITH RANDOM NUMBERSFT1NPA(T)((1)1000)ZA(T);" "dT n24:"PRESS 'SPACE BAR' TO CONTINUE."; " T110 C110+ A(T,C)1300G "T;" * ";C;:13:A(T,C)N ,CU 6T @24:1:"PRESS 'SPACE BAR' TO CONTINUE.";:Z$::W A(X,Y)0150. 8:6:X;" * ";Y;" = ";5 AA 12:10g AXYA(X,Y)1:"CORRECT!":230 "WRONG - THE ANSWER IS ";XY;".":A(X,Y)A(X,Y)1 24:1:"PRESS 'SPACE BAR' TO CONTINUE.";:Z$: T 2:"PROBLEM # OF TIMES MISSED.- DRILL PROGRAM WHICH ANALYZES PROBLEMS<:::255O SET UP ARRAY](A(10,10)2 (* DIM SETS ARRAY ELEMENTS TO 0 *)n START TO PRESENT PROBLEMSx4:5:"HOW MANY PROBLEMS";:PT1PX((1)101) Y((1)101)  KA F JUNEAU,ARIZONA,PHOENIX,CALIFORNIA,SACRAMENTO,COLORADO,DENVER  NEW MEXICO,SANTA FE,OREGON,SALEM,UTAH,SALT LAKE CITY  HAWAII,HONOLULU,IDAHO,BOISE,MONTANA,HELENA,NEVADA,CARSON CITY  WASHINGTON,OLYMPIA,WYOMING,CHEYENNE : MARCK? hSOUTH DAKOTA, PIERRE, NEBRASKA,LINCOLN,KANSAS,TOPEKA rMINNESOTA,ST. PAUL, IOWA,DES MOINES,MISSOURI,JEFFERSON CITY | ILLINOIS,SPRINGFIELD,INDIANA,INDIANAPOLIS,MICHIGAN,LANSING  OHIO,COLUMBUS,KENTUCKY,FRANKFORT,WISCONSIN,MADISON,ALASAROLINA,RALEIGH,SOUTH CAROLINA,COLUMBIAY @ GEORGIA,ATLANTA,FLORIDA,TALLAHASSEE,ALABAMA J MONTGOMERY,MISSISSIPPI,JACKSON,TENNESSEE,NASHVILLE T LOUISIANA,BATON ROUGE, ARKANSAS,LITTLE ROCK,TEXAS,AUSTIN ^ OKLAHOMA,OKLAHOMA CITY,NORTH DAKOTA, BISNT, MONTPELIERL  MASSACHUSETTS,BOSTON,CONNECTICUT,HARTFORD,RHODE ISLAND  PROVIDENCE,NEW YORK,ALBANY,PENNSYLVANIA,HARRISBURG " NEW JERSEY,TRENTON,DELAWARE,DOVER,MARYLAND, ANNAPOLIS , VIRGINIA,RICHMOND,WEST VIRGINIA,CHARLESTON' 6 NORTH CT1Q 8 Y((1)50)/ 4:A$(Y,0)> 11:4:R$I 15:4] R$A$(Y,1)240 "NO, THE CAPITAL IS ";A$(Y,1) 250 "RIGHT" 24:1:"PRESS 'SPACE BAR' TO CONTINUE.";:Z$::T MAINE, AUGUSTA, NEW HAMPSHIRE, CONCORD, VERMO& PROGRAM ON STATES AND CAPITALS5:::255CA$(49,1)q( THE NEXT 3 LINES READ THE DATA INTO A$}2T049<A$(T,0),A$(T,1)FTP3:4Z"HOW MANY QUESTIONS";dQnx3"WHAT IS THE CAPITAL OF:"34,6:      KA F JUNEAU,ARIZONA,PHOENIX,CALIFORNIA,SACRAMENTO,COLORADO,DENVER  NEW MEXICO,SANTA FE,OREGON,SALEM,UTAH,SALT LAKE CITY  HAWAII,HONOLULU,IDAHO,BOISE,MONTANA,HELENA,NEVADA,CARSON CITY  WASHINGTON,OLYMPIA,WYOMING,CHEYENNE : MARCK? hSOUTH DAKOTA, PIERRE, NEBRASKA,LINCOLN,KANSAS,TOPEKA rMINNESOTA,ST. PAUL, IOWA,DES MOINES,MISSOURI,JEFFERSON CITY | ILLINOIS,SPRINGFIELD,INDIANA,INDIANAPOLIS,MICHIGAN,LANSING  OHIO,COLUMBUS,KENTUCKY,FRANKFORT,WISCONSIN,MADISON,ALASAROLINA,RALEIGH,SOUTH CAROLINA,COLUMBIAY @ GEORGIA,ATLANTA,FLORIDA,TALLAHASSEE,ALABAMA J MONTGOMERY,MISSISSIPPI,JACKSON,TENNESSEE,NASHVILLE T LOUISIANA,BATON ROUGE, ARKANSAS,LITTLE ROCK,TEXAS,AUSTIN ^ OKLAHOMA,OKLAHOMA CITY,NORTH DAKOTA, BISNT, MONTPELIERL  MASSACHUSETTS,BOSTON,CONNECTICUT,HARTFORD,RHODE ISLAND  PROVIDENCE,NEW YORK,ALBANY,PENNSYLVANIA,HARRISBURG " NEW JERSEY,TRENTON,DELAWARE,DOVER,MARYLAND, ANNAPOLIS , VIRGINIA,RICHMOND,WEST VIRGINIA,CHARLESTON' 6 NORTH CT1Q 8 Y((1)50)/ 4:A$(Y,0)> 11:4:R$I 15:4] R$A$(Y,1)240 "NO, THE CAPITAL IS ";A$(Y,1) 250 "RIGHT" 24:1:"PRESS 'SPACE BAR' TO CONTINUE.";:Z$::T MAINE, AUGUSTA, NEW HAMPSHIRE, CONCORD, VERMO& PROGRAM ON STATES AND CAPITALS5:::255CA$(49,1)q( THE NEXT 3 LINES READ THE DATA INTO A$}2T049<A$(T,0),A$(T,1)FTP3:4Z"HOW MANY QUESTIONS";dQnx3"WHAT IS THE CAPITAL OF:"34,6:  " = "; A 15:7' ATT1904 "WRONG"= 220_ SELECT A RANDOM REINFORCERo Y((1)9)z R$(Y) 24:1:"PRESS 'SPACE BAR' TO CONTINUE.";:Z$::T :, SUBSCRIPTED VARIABLE HOLDING RANDOM> REINFORCERSM:::255X(R$(8)c2T08n<R$(T)uFTP GOOD, VERY GOOD, CORRECT, RIGHT ONZ FABULOUS, SUPER, EXCELLENT, NOT BADd WAY TO GOnT110x10:5 T;" * ";T;  Z$: W + SIMPLE USE OF SUBSCRIPTED VARIABLES::::255EA(10)Q(A(0)5p23:"ENTER A VALUE";:A(1)|<T210FA(T)PTZ10dT010nA(T);" ";T 4,3,5,2,8,7,4,56 ,-4.67 24:1:"PRESS 'SPACE BAR' TO END.";:  ;T <C$;Q$;C$ FC$;A$;C$& PD$n Z20:"DO YOU WANT TO CHANGE ANOTHER QUESTION?"::"( Y OR N ): ";A$ d(A$,1)"Y"ė:23 D$"CLOSE";FILE$ : R, "CHANGE WHICH RECORD (1 - ";N;"): ";:TC (T1)(TN)ė:23f D$"READ";FILE$;",R";T:Q$:A$p D$: "QUESTION:"::Q$ :"ANSWER:"::A$ 11:"TYPE NEW QUESTION:"::"";Q$ 16:"NEW ANSWER:"::"";A$ (D$;"WRITE";FILE$;",R" (* QUIZ CHANGER *)'::2551210= D$(4)J C$(34)e "QUIZ CHANGE PROGRAM" 5:"WHAT QUIZ FILE DO YOU WANT TO CHANGE?":FILE$D$;"NOMON,C,I,O"D$;"OPEN";FILE$;",L75"D$"READ";FILE$;",R0":ND$ d "NICE TO MEET YOU, ";N$;".") 1000V SET ERROR PROCESSING BACK TO NORMAL a 216,0k 5000 (222)255ĺ"YOU SHOULDN'T TRY TO END THE PROGRAM.": (222)42ĺ"OUT OF DATA":: 24:"PRESS 'SPACE BAR TO CONTINUE.";:A$:: , DEMONSTRATION OF ERROR PROCESSING ;:::255R SET ERROR FLAG\(2002 SET UP END OF DATA CONDITION74<T13FQ:QPTZ 3,4d1000 SET UP CONTROL-C SITUATION 5:"WHAT'S YOUR NAME";N$  SPACE BAR TO CONTINUE";:Z$::: 0)"::Q ( 2T1Q+ <V((1)N1)G FD$;"READ";FILE$;",R";VR PQ$,A$Z Z12b dQ$j iD$r nR$z s18 xR$A$140 "NO, THE ANSWER IS ";A$ 160 "RIGHT" 1000 T : D$"CLOSE";FILE$ " 24:"PRESS$ (* STUDENT QUIZ *)$1683:::255T5:"WHAT QUIZ DO YOU WANT?"c::FILE$u D$(13)(4) D$;"NOMON,C,I,O"D$;"OPEN";FILE$;",L75"D$"READ";FILE$;",R0"N D$ !12:"HOW MANY QUESTIONS DO YOU WANT (1 - 1 0 nV(16287)$ x10:10:V;" "+ TY 24:"PRESS 'SPACE BAR' TO END.";:Z$:: [ D0G) USE OF THE GAME CONTROLS8:::255b8:"TURN THE DIAL ON GAME CONTROL 0"p(T11000{2V(0)4 USE OF DIAL<10:10:V;" "FTP24:"PRESS 'SPACE BAR' TO CONTINUE";:Z$:Z8:"PRESS THE BUTTON." dT1100  $;"WRITE";FILE$;",R";T$ <C$;Q$;C$2 FC$;A$;C$: PD$@ UG ZT\ D$"CLOSE";FILE$d :j EO" $ D$;"OPEN";FILE$;",L75". 34,2G "WRITING TO ";FILE$b D$"WRITE";FILE$;",R0" N: (* STORE NUMBER OF RECORDS USED IN RECORD 0 *) D$ T1N 5:"TYPE IN QUESTION ";T !:"";Q$ #15:"ANSWER " $:"";A$ (Dl (* QUIZ MAKER *)%::255/210; D$(4)H C$(34)e "QUIZ CREATION PROGRAM" 5:"HOW MANY QUESTIONS WOULD YOU LIKE ON"::"THIS QUIZ? "::"";N15:"WHAT DO YOU WANT TO CALL THIS QUIZ?":"";FILE$ D$;"NOMON,C,I,    T7 24:1:"PRESS 'SPACE BAR' TO END.";:Z$:: T9 USE OF THE POS FUNCTION.:::255O2:"NORMAL LIST OF NUMBERS"V(4c2T1110o<T;" ";vFT|KP24:"PRESS 'SPACE BAR' TO CONTINUE";:Z$:Z2:"FORMATTED LIST OF NUMBERS"d4nT1110xT;" ";(0)35ĺ $;"DELETE";F$ 40 I ROUTINE TO FIND FILES,:::2558D$(4)Y(3:"WHAT IS THE FILE NAME";g2868:F$y<D$;"OPEN";F$F200PD$;"READ";F$ZA$d"THAT IS A VALID FILE."gi"THAT FILE DOES NOT EXIST"D$;"CLOSE";F$ D  G" K1000. P USING CHR$ TO INSERT QUOTESJ Z CHR$(34) IS THE QUOTEW dC$(34) n10:"SHE SAID, ";C$;"THIS IS EASY.";C$ x1000 D$;"RUN HELLO" 24:"PRESS 'SPACE BAR' TO CONTINUE.";:Z$:: ) SPECIAL USES OF THE CHR$ FUNCTION8::255:j USING THE CHR$ TO DEFINE CONTROL CHARACTERS( CHR$(4) IS CONTROL-D (USED TO) CONTROL THE DISK DRIVE)2 CHR$(13) IS CONTROL-M (CARRIAGE RETURN)<D$(13)(4) FD$;"CATALO AD NUMBERS,R";T K K$ T< D$;"CLOSE NUMBERS"G  DONE| 24:1:"PRESS 'SPACE BAR' TO CONTINUE";:Z$:: , 2,23,34,5,1,7,4,2,4,12,4,3,34,2,5,3,11,2,3,5 ,3,34,2,5,3,11,2,3,5 1) n BUBBLE SORT - INEFFICIENT BUT QUICK5 xT119P }D$;"READ NUMBERS,R";TW ~Ne CT120 D$;"READ NUMBERS,R";C M NM200 D$;"WRITE NUMBERS,R";T N D$;"WRITE NUMBERS,R";C M C T T120 D$;"RE FILE SORT ::255:?4:"SORT NOW IN PROGRESS"KD$(4)]( BUBBLE SORT2 READ DATA FROM DATA STATEMENTS< TO CREATE FILEAD$;"OPEN NUMBERS,L4"FT120KD$;"WRITE NUMBERS,R";TPNUNZTd SORT THEM    USING ABS RATHER THAN =.:::25552D(T01.01P2T;" ";W<TgA:"T = ";TFT1ĺ:"EQUAL":90P:"NOT EQUAL"Z24:"PRESS 'SPACE BAR' TO END.";:A$:: Tz #?? Ӵ Š ӳ! ӳ" Ӵ Ӵ Ӵ Ӵ Ӵ  ӵг ӵд  ӱ Ӳ Ӳ ӳ  ӴбӴв Ӵг Ӵд Ӵе ӵб ӵв ӳб ӳв ӳгӳдӳеӳжӳз !Ӳд"ӲеӲжӲзӲи Ӳй Ӳб ӱжӱзӱиӱйӲбӲв ӲгϠϠ"ӱбӱвӱгӱдӱеu  D$(4)"D$;"OPEN SFILE"6D$"READ SFILE"B(I110I2AP<AWFImPD$;"CLOSE SFILE"sZ HE CAPITAL OF DELAWARE IS","DOVER"O "IN SPANISH, 'HABLAR' MEANS","TO SPEAK"{ "IN SPANISH, 'COMER' MEANS ","TO EAT" D$;"CLOSE QUEST" I QUEST" ESIDENT WAS BORN ON FEB. 12","LINCOLN"X "WHAT IS THE CAPITAL OF MINNESOTA","ST. PAUL" "THE SYMBOL NA IS WHICH ELEMENT" "SODIUM" "IN CHEMISTRY, C IS WHICH ELEMENT" "CARBON" "2+4 =","6" "2 TO THE THIRD POWER IS","8"" "T  D$(4)C$(34).D$;"MON,C,I,O"GD$;"OPEN QUEST,L75"RT09l(D$;"WRITE QUEST,R";Tw2Q$,A$<C$;Q$;C$FC$;A$;C$PTZD$d"PROGRAM IS DONE"n "WHO WAS THE FIRST PRESIDENT"o"WASHINGTON"% x "WHICH PRE   :::255"D$(13)(4)Z:16302,0:::D$"BLOAD LOGO":16304,0:16368,0J1(16384)128:J127J132JJ1:J40030#16368,0(J1(16384)128:J127J132JJ1:J400302::D$"CATALOG" Dox<@}~??|_Oox?g}xG_o>}>_?go?~o@|?_}v[o6{<_?p>{m?_}vw?ppx?X_~zoo>{k/?{~Ww[o~{o7_}??~>{o7owo}?O~ox_8onV;W[]_]n}v{}{8_|w_ox?|g?~xc?oox p|ao?lxg}{}n}}<_O7sO{_qq~{nqan{`xqqo88`}~}v_x`}??~~gox?O}x~_o}>?|p{{@|~?~~1wvwg?o@q?_}v[o:{o?_?|C>{m?_}~w?@~`?@_O~zog>{K/{~op~x`x??~>{o7_ow[o{}?_gxs_X_nfWO{]_>n}v{}~{~>_}w{wOo?~?o?x?ocO}{}^~}>_o7_{o_nn~{v{nn{{wnnO0?~}~}v_~{o7_}??_qwlw`\o<~`ox?a@}xxp>~>?8o{;?o{~_}~.wvsw?o@Gn}v;w<{m?_?xx>{m?_mvw??`@?`@?W~v[k>w-w.{~?> x`\o~`wpg_X_nvW_{]_~n}v{}~;>_}{woo|?o?x?o~_}?@??p>nw`?@{?|c@ooo}}`|a?l?~gO{}v;p>nw@~n~{z{fn{{onl_ |~}v_~{7_}??_?|k{o;_ow[o{?>_ox? }xc_o>{>?X_{{?ww~_>wv{w?o@u}v{z>{m?_?x?~>{m?_UvuG_@X~nx1{~?G wpO_X_lfW_{_>f}x}~[>@}{wooq?o          ER IS","8"4 "THE CAPITAL OF DELAWARE IS","DOVER"a "IN SPANISH, 'HABLAR' MEANS","TO SPEAK" "IN SPANISH, 'COMER' MEANS ","TO EAT" D$;"CLOSE QUEST" DSPANISH, 'COMER' MEANS ","TO EAT" D$;"CLOSE QUEST" R"7 x "WHICH PRESIDENT WAS BORN ON FEB. 12","LINCOLN"j "WHAT IS THE CAPITAL OF MINNESOTA","ST. PAUL" "THE SYMBOL NA IS WHICH ELEMENT" "SODIUM" "IN CHEMISTRY, C IS WHICH ELEMENT" "CARBON" "2+4 =","6" "2 TO THE THIRD POW  D$(4)C$(34)0D$;"NOMON,C,I,O"ID$;"OPEN QUEST,L75"TT09d#E1600:E~(D$;"WRITE QUEST,R";T2Q$,A$<C$;Q$;C$FC$;A$;C$PTZD$d"PROGRAM IS DONE"n "WHO WAS THE FIRST PRESIDENT" o"WASHINGTON  260 "WRONG" 270' "RIGHT"W 24:"PRESS 'SPACE BAR' TO CONTINUE";:A$:^ Q T"HOW MANY PROBLEMS (5-30) DO YOU WANT";5 x868:SI yS5S30130w z20:"PLEASE TYPE A NUMBER (5 - 30)":110} Q1S X((1)(516(T3))5(T2)) Y((1)(516(T3))5(T2)) 10:X;" + ";Y;" = "; 868:A AXY_+ DEMONSTRATION OF BOOLEAN ARITHMETIC:::255:ET15P((T4)W2T]< T, OR"w<"3) HARD"F9:"PROBLEMS - ENTER 1, 2, OR 3";:868:TPT0T4100Z20:T;" IS NOT A VALID ANSWER - TRY AGAIN.":70d958( n14:  EST,R";V PQ$,A$ Z12# dQ$+ iD$3 nR$B xR$A$140_ "NO, THE ANSWER IS ";A$h 160u "RIGHT" 1000 T D$;"CLOSE QUEST" 24:"PRESS SPACE BAR TO CONTINUE";:Z$::: % PROGRAM TO USE THE FILE QUEST4:::255@ D$(4)V D$;"NOMON,C,I,O"oD$;"OPEN QUEST,L75""THIS IS A GENERAL KNOWLEDGE QUIZ"!5:"HOW MANY QUESTIONS DO YOU WANT (1 - 10)";:Q(2T1Q<V((1)10) FD$;"READ QU  a+ DEMONSTRATION OF BOOLEAN ARITHMETIC:::255:ET15R((T4)TY2T_< 3X8170 B$B$(X)! (X);/ 16368,07 70G -BACKSPACEf ((B$,1))31Ė(0):868~ (B$)1B$"":230 B$(B$,(B$)1) 16368,0:70 20:"TIME OF ";T;"." 22:3:B$T TIMED INPUT"::255:,5:49("7+2=";^2 T IS TIMER - B$ WILL BE ANSWERl<T0:B$""vFTT1P(16384)127110ZT400240d70n DETERMINE THE CHARACTERxX(16384)128X13240X8(B$)0190     nA s% xI67W149P84180> I67W149A21180V I67P84A21180o W149P84A21180 "I'M SORRY, ";N$;", YOU DON'T QUALIFY." 190 "WE'D LIKE TO HIRE YOU, ";N$;"." 24:"PRESS 'SPACE BAR' TO CONTINUE";:A$::20 EMPLOYEE PROGRAM'::255:A"WHAT IS YOUR NAME";IN$O#t("HOW MANY INCHES TALL ARE YOU";{2I7<"HOW MUCH DO YOU WEIGH (POUNDS)";FWKP"HOW MANY POUNDS CAN YOU LIFT";ZP_d"HOW OLD ARE YOU";  N","JONESON, MIKE"6 "AAA","BBB","ZZZ","AAB","AAAA"N "123","234","345"T TU ALPHA SORT!:::255-A$(30)9(T110K2A$(T):A$(T)R<TbF SORT THEMmPT19{ZCT110dA$(T)A$(C)140nR$A$(T)xA$(T)A$(C)A$(C)R$CTT11020:T:A$(T);T "JONES, SUSA  ( PROGRAM TO ILLUSTRATE CALL -868 < AND CALL -958K::255:W T123cC140m"X";t(C{<TF"COORDINATES AND CALL";PX,Y,CZX:YdCn24:1:"PRESS 'SPACE BAR' TO CONTINUE";xA$::10T- HOUSEKEEPING IN RANDOM ACCESS FILES <:::255HD$(4)\( OPEN THE FILEv2D$;"OPEN SAMPLE,L75"<D$"WRITE SAMPLE,R0"F SIZE OF RECORDP75Z NUMBER OF RECORDSd0nD$;"CLOSE SAMPLE"E GLE"; PW ZW0120N d23:W;" IS NOT A VALID WIDTH - TRY AGAIN.";:1V n70v x15:"THE AREA IS ";WL;"."| ~) RECTANGLE AREA PROGRAM WHICH USESG CALL -868 AND CALL -958V ::255:5:"WHAT IS THE LENGTH OF THE RECTANGLE";L(L070224:L;" IS NOT A VALID LENGTH - TRY AGAIN.";:1<20 F10:"WHAT IS THE WIDTH OF THE RECTAN D$;"CLOSE SAMPLE" 2LOSE SAMPLE"A, HOUSEKEEPING IN RANDOM ACCESS FILES;:::255GD$(4)[( OPEN THE FILEq2D$;"OPEN SAMPLE"<D$;"READ SAMPLE"FAPD$;"OPEN SAMPLE,L";AZD$;"READ SAMPLE,R0"dL,Rn5:"THERE ARE ";R;" RECORDS IN THE FILE." x  ( DEMONSTRATION OF PEEKS AND POKES7:::255W8:"WHAT MEMORY LOCATION";^(Mi2X(M)<"THE PRESENT VALUE IS ";X;"."F13:"WHAT VALUE";PVZM,VdX(M)n"VALUE IS NOW ";X;"."x TTKA F JUNEAU,ARIZONA,PHOENIX,CALIFORNIA,SACRAMENTO,COLORADO,DENVER  NEW MEXICO,SANTA FE,OREGON,SALEM,UTAH,SALT LAKE CITY  HAWAII,HONOLULU,IDAHO,BOISE,MONTANA,HELENA,NEVADA,CARSON CITY  WASHINGTON,OLYMPIA,WYOMING,CHEYENNE : MARCK? hSOUTH DAKOTA, PIERRE, NEBRASKA,LINCOLN,KANSAS,TOPEKA rMINNESOTA,ST. PAUL, IOWA,DES MOINES,MISSOURI,JEFFERSON CITY | ILLINOIS,SPRINGFIELD,INDIANA,INDIANAPOLIS,MICHIGAN,LANSING  OHIO,COLUMBUS,KENTUCKY,FRANKFORT,WISCONSIN,MADISON,ALASAROLINA,RALEIGH,SOUTH CAROLINA,COLUMBIAY @ GEORGIA,ATLANTA,FLORIDA,TALLAHASSEE,ALABAMA J MONTGOMERY,MISSISSIPPI,JACKSON,TENNESSEE,NASHVILLE T LOUISIANA,BATON ROUGE, ARKANSAS,LITTLE ROCK,TEXAS,AUSTIN ^ OKLAHOMA,OKLAHOMA CITY,NORTH DAKOTA, BISNT, MONTPELIERL  MASSACHUSETTS,BOSTON,CONNECTICUT,HARTFORD,RHODE ISLAND  PROVIDENCE,NEW YORK,ALBANY,PENNSYLVANIA,HARRISBURG " NEW JERSEY,TRENTON,DELAWARE,DOVER,MARYLAND, ANNAPOLIS , VIRGINIA,RICHMOND,WEST VIRGINIA,CHARLESTON' 6 NORTH CT1Q 8 Y((1)50)/ 4:A$(Y,0)> 11:4:R$I 15:4] R$A$(Y,1)240 "NO, THE CAPITAL IS ";A$(Y,1) 250 "RIGHT" 24:1:"PRESS 'SPACE BAR' TO CONTINUE.";:Z$::T MAINE, AUGUSTA, NEW HAMPSHIRE, CONCORD, VERMO& PROGRAM ON STATES AND CAPITALS5:::255CA$(49,1)q( THE NEXT 3 LINES READ THE DATA INTO A$}2T049<A$(T,0),A$(T,1)FTP3:4Z"HOW MANY QUESTIONS";dQnx3"WHAT IS THE CAPITAL OF:"34,6:    ACE BAR";::"' TO CONTINUE";% sZ$+ t^ x24:7:"PRESS 'SPACE BAR' TO END.";:Z$::: T` PEEKS - TIMING FUNCTION.::255:? T IS TIMERGT0t(24:7:"PRESS 'SPACE BAR' TO CONTINUE";2(16384)12780<TT1AT200110F50P:13:"THANK YOU FOR ANSWERING QUICKLY.":A$:120 n24:7:"PRESS '";::"SP "WRONG" 270! "RIGHT"Q 24:"PRESS 'SPACE BAR' TO CONTINUE";:A$:X Q TQ "HOW MANY PROBLEMS (5-30) DO YOU WANT";5 x868:SI yS5S30130w z20:"PLEASE TYPE A NUMBER (5 - 30)":110} Q1S X((1)(516(T3))5(T2)) Y((1)(516(T3))5(T2)) 10:X;" + ";Y;" = "; A AXY260 Z ADDITION PROBLEMS):::255A5:"DO YOU WANT :"Q("1) EASY"g2"2) MEDIUM, OR"w<"3) HARD"F9:"PROBLEMS - ENTER 1, 2, OR 3";:868:TPT0T4100Z20:T;" IS NOT A VALID ANSWER - TRY AGAIN.":70d958( n14:   UE"; xA$  T3 RESET TOP OF SCREEN; :A TPACE BAR' TO CONTINUE";:Z$::k AC' DEMONSTRATION OF A TEXT WINDOW6::255:S SET TOP OF WINDOW TO 8n6:"DO THIS PROBLEM:"x#34,7(T15210:T;"+";T;"=";<AFATT100P20:"WRONG"Z110d20:"RIGHT" n24:"PRESS 'SPACE BAR' TO CONTIN BETWEEN THE NUMBERS.":868:"TRY AGAIN.";:1:40 A n958:F0170G xN2(B$):13:1:"THANKS - THE SUM IS ";N1N2;"."{ 24:868:"PRESS 'SPACE BAR' TO END.";:Z$:: F1170 N1(B$):",";:F1:50 958:24:1:"NUMBERS ONLY, PLEASE - TRY AGAIN.";:1:401 23:1:"YOU NEED A COMMA 3/ ENTERING 2 NUMBERS SEPARATED BY A COMMA>::255:f6:"ENTER TWO NUMBERS, SEPARATED "(8:"BY A COMMA.";:868-F02B$""<Z$@(Z$)13110A(Z$)44F0140F(Z$)48(Z$)57160PZ$;ZB$B$Z$d60  HE WINDOWS BEFORE EXITING, THE PROGRAM.4 :k :"PRESS":"'SPACE":"BAR'":"TO END.";:Z$:::,19" n SET THE LEFT MARGIN TO 6, x32,5Q SET THE WIDTH TO 10 CHARACTERS\ 33,10f 5:6s T1300 "HI THERE "; T WE CAN CLEAR THE WINDOW ::"PRESS":"'SPACE":"BAR'":"TO CLEAR":"THE":"WINDOW.";:Z$: RESET Tl% DEMONSTRATION OF SETTING TOP,C BOTTOM, LEFT, AND WIDTHR:::255n( LIST OUT LINE NUMBERS21:"1234567890123456789012345678901234567890"<T124:T:T;:1:TF SET TOP TO LINE 5P34,4Z SET BOTTOM TO LINE 19 d35  ONTINUE.";:Z$ xT }! $"P22;"/4.":607 74:"MOVE THE ARROW TO ";P1;" 1/2."@ <Q11Y A(16287)128ĺ:90` B9x FQ2((0)256331) PQ1Q2ĖQ1:" ";:Q2:"^";:Q1Q2:65 U65 ZQ21P18P2Ģ16:"RIGHT":110 d16:"WRONG" n24:"PRESS 'SPACE BAR' TO C# GAME CONTROL PROBLEM+:::2559T110:@8i#"0.......1.......2.......3.......4"(P1((1)4):P2((1)71))P22P2652*P245524:"MOVE THE ARROW TO ";P1;" ";P2;"/8."360 44:"MOVE THE ARROW TO ";P1;"  S ";(J);"." 1000 L 24:"PRESS 'SPACE BAR' TO GO ON.";:A$::JACE BAR' TO GO ON.";:A$::JOF ";J;" IS ";(J);"." 1000: 2:"LOG - LOGARITHM" J0Ģ4:"CAN'T COMPUTE THE LOG OF A NEGATIVE"::"NUMBER OR ZERO.":190 4:"THE NATURAL LOG OF ";J;" IS ";(J);"." 1000 2:"SGN - THE SIGN FUNCTION" 4:"THE SGN OF ";J;" I1000* Z2:"EXP FUNCTION (EXPONENTIAL)X d4:"THE EXPRESSION, E, TO THE POWER, ";Jo n6:"IS ";(J);"."y x1000 2:"SQR FUNCTION - SQUARE ROOT" J0Ģ4:"CAN'T COMPUTE SQUARE ROOT FOR NEGATIVE"::"NUMBER.":160 4:"THE SQUARE ROOT N/ PROGRAM FOR DEMONSTRATING FUNCTIONS >:::2554:"WHAT NUMBER WOULD YOU LIKE TO USE AS"::"AN ARGUMENT";J#( ABSOLUTE VALUE22:"ABS FUNCTION (ABSOLUTE VALUE)"<4:"THE ABSOLUTE VALUE OF ";J;" IS ";(J);"." P   ((T1)4)4)6:A(T);( T4(T4)ĺ/ T 1+ PROGRAM TO SHUFFLE A DECK OF CARDS.::::255EA(52)[#T152:A(T)0:T( PLACE THE CARDS IN A RANDOM LOCATION2T152<Y((1)521)FA(Y)060PA(Y)TZTd3:4:"THE ORDER OF THE CARDS"nT152 x(T  24:"PRESS 'SPACE BAR' TO CONTINUE.";:A$:: AS - THE COSINE FUNCTION"@ d4:"THE COS OF ";A;" IS ";(A);"."J n1000l x2:"SIN - THE SINE FUNCTION" 4:"THE SIN OF ";A;" IS ";(A);"." 1000 2:"TAN - THE TANGENT FUNCTION" 4:"THE TAN OF ";A;" IS ";(A);"." 1000 . 0 TRIG FUNCTIONS PROGRAM.:::255_3:"WHAT VALUE (IN RADIANS) WOULD YOU LIKE"(:"AS THE ARGUMENT FOR TRIG"::"FUNCTIONS";:A2<2:"ATN - THE ARCTANGENT FUNCTION"F4:"THE ATN OF ";A;" IS ";(A);"."P1000 Z2:"CO  C xA(V)A(V)1" 1:V:A(V);) TY 1:24:"PRESS 'SPACE BAR' TO END";:Z$:: Q GO THROUGH, THE "::"COUNTS OF BALLS WILL BE CHANGED."d I24:"PRESS 'SPACE BAR' TO BEGIN.";:Z$j J KT1N:5:T:"<--NUMBER OF BALLS IN CHUTE ";T; LT M1:1 NT1N:0:T PT1B UV1 ZC1N1 dA((1)2) iVVA n[ PINBALL MACHINE&:::255R3:868:"HOW MANY CHUTES? (2 TO 19)";Y(Nj2N2N1930u<A(19)F10:"HOW MANY BALLS";:BG:8 H3:"THE VARIOUS CHUTES WILL BE PRINTED DOWN"::"THE LEFT SIDE OF THE SCREEN. AS THE"::"BALLS   F THE CHARACTER 7 IS ";("7");"."+ 610001 d 24:"PRESS 'SPACE BAR' TO CONTINUE.";:A$:: N2ND CHARACTER ARE ":(N$,2,4);".", 1000Q 2:"STR$ - THE STRING FUNCTION" 4:"THE NUMBER, ";N;" CONVERTED TO A ":"STRING IS ";(N);"." 1000 2:"VAL - THE VALUE FUNCTION" "4:"THE VAL OF ";N$;" IS ";:(N$);"."! ,6:"THE VAL O4:"THE RIGHTMOST 4 CHARACTERS OF ";N$:"ARE ";(N$,4);"."G 1000k 2:"LEN - THE LENGTH FUNCTION" 4:"THE LENGTH OF ";N$;" IS ";(N$);"." 1000 2:"MID$ - THE MIDDLE FUNCTION"" 4:"THE 4 CHARACTERS WITHIN ";N$:"STARTING AT THE );"." Z10007 d2:"CHR$ - THE CHARACTER FUNCTION"` n4:"THE CHR$ OF ";N;" IS ";(N);"."j x1000 2:"LEFT$ - THE LEFT FUNCTION" 4:"THE LEFTMOST 4 CHARACTERS OF ";N$:"ARE ";(N$,4);"." 1000 2:"RIGHT$ - THE RIGHT FUNCTION"= f  STRING RELATED FUNCTIONS/::255:V2:"ENTER AN INTEGER (33-90)";:N(4:"ENTER A STRING (6 OR MORE CHARACTERS)":N$26:"ENTER A SINGLE LETTER";:N1$<F2:"ASC - THE ASCII FUNCTION" P4:"THE ASC OF ";N1$;" IS ";(N1$  ORT *) Q1N Q,A(Q)$ Q- 3003 c ,24:"PRESS SPACE BAR TO CONTINUE";:Z$::S": n (* START SORT *)" xIN/ }I(I2)< I1190I TI1NT RA(T)d JTI0It A(J)R180 A(JI)A(J):J A(JI)R:T 125 (* SORT COMPLETE *) 10:15 (7);"SORT COMPLETE" 300 (* PRINT Se (* SHELL-INSERTION *)%:K"SHELL SORT (WITH INSERTION)":5r"HOW MANY NUMBERS TO GENERATE ";Nx#("FROM 0 TO WHAT NUMBER ";M*:-A(N)2T1N<A(T)(1)MAA(T)FTP300 d(7):10:15::"START SORT! ! !  MISCELLANEOUS FUNCTIONS.::255:R2:"ENTER A NUMBER (0-30)";:NX!#"1234567890123456789012345678901234567890"("XXX";N);"XXXX";2(0)<24:"PRESS 'SPACE BAR' TO END.";:A$:: P! G2:G3 300 ; 3:"NAME G1 G2 G3"E 295M T1g "D$;"READ GRADES,R";Tx #N$,G1,G2,G3 $N$;13);G1;19);G2;25);G3 %TT1 &290 '216,0 ,D$;"CLOSE GRADES" 624:1:"PRESS 'SPACE BAR' TO END.";:Z$:::3:"WHICH STUDENT NUMBER DO YOU WANT TO"::"MODIFY";@ SZ D$;"READ GRADES,R";Sk N$,G1,G2,G3 "RECORD IS NOW ";N$;" ";G1;" ";G2;" ";G3 D$ 10:"NEW NAME AND GRADES"; N$,G1,G2,G3 D$;"WRITE GRADES,R";S N$:G1:0,2505 3:"HOW MANY STUDENTS WILL BE ENTERED";:Su :2:"FOR EACH STUDENT, ENTER NAME AND THREE"::"GRADES." 34,6 T1S "STUDENT #";T; N$,G1,G2,G3 D$;"WRITE GRADES,R";T N$:G1:G2:G3 D$ T 3009  GRADEBOOK PROGRAM *:::2556D$(4)Q(4:"DO YOU WANT TO :"W2p<"1) CREATE A FILE"vFP"2) MODIFY THE FILE"Zd"3) PRINT REPORTS"n15:868:OxO1O3110D$;"OPEN GRADES,L30" O160,20" " " " " DEFINING FUNCTIONS):::255GA(X)7X35X23X18U(2:A(6)h24:Q3:A(Q)<24:"PRESS 'SPACE BAR' TO END.";:A$:: B"