' +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- ( n  `Ϡ@跻~!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 ~(` d ֠Ġz# u`$"Y"T0:S0:1010! G$"N"Ā+ 1290060 0:PX,PY:1( PXPXX:PYPYY< PX,PY)01250S PX,PY)13SS10j PX,PY)2SS100 :"SCORE ";S;" POINTS" PX,PY TT1:T1001060 :"YOUR TIME IS UP. FINAL SCORE ";S :"DO YOU WANT TO PLAY AGAIN?"; G$:G= 10:"YOU HAVE THE CLOSEST SCORE":"WHAT IS YOUR NAME ";J N$:HST~ 14:"DOES ANYONE WANT TO CHALLENGE ":N$;" ?"; Y$:Y$"N"Ā Y$"Y"1300 (X110:A(X)0:B(X)0:X:T0:1010BL8:"PRESENT TOTAL ";T) T21T0:12103 1100\ 15:"YOUR TOTAL IS GREATER THAN 21"m D11000:D  CHECK FOR HIGH SCORE; SAVE NEW NAME IF SCORE IS HIGHEST  HSTĢ10:"I AM SORRY, ";N$:" IS STILL THE CLOSEST.":1290 T01290ANT? (ENTER 0 TO STOP)"+ V8:" ";:1< `B:B01240T jB0B10Ģ10:1110 tA(B)0Ģ15:"CHOOSE A DIFFERENT BOX":1100 ~A(B)0  ERASE BOX AND PRINT THE NUMBER BEHIND IT X(B1)41:Y13:Y:X:B$:Y:2:X1:B(B) TTB(B):1 F11-P2:B$" ". DRAW BOXES>:Y12:YWX1374:X:B$;:X`Y:{$X110:(X1)42:X;. GENERATE RANDOM NUMBERS AND STORE IN ARRAY8R((1)101):A(R)11080BA(R)1:B(X)R:X L7:1:"WHICH BOX DO YOU W   X,X,0,0F THE BEES RETURN BEFORE THE WORKERS,RECOVER. START OVER.SJ,J,1,1X WAYS TO SCARE,BEES.NdFLY LOW WITH A HELICOPTER.,SET OFF SMOKE BOMBS.,7,10yn SMOKE BOMBS MAKE THE WORKERS SICK.,x FIND MORE WORKERS.,HOPE THAT THE CROPS DON'T ROT.,11,12 THE COST OF WORKERS IS TOO HIGH.,YOU LOSE 50% OF THE PROFITS. J,J,1,19 THE SCIENTIST LIVES DEEP IN THE,WOODS.p (FLY THERE BY HELICOPTER.,DRIVE THERE BY JEEP.,7,8 2THE BEES KILL YOUR PILOT. YOU CRASH, AND DIE. <X,X,0,0 FYOU FIND THE SCIENTIST. HE KILLS,THE BEES. PE,E,0,0ZTHERE ARE TWOND A POISON TO KILL THE BEES.,3,4X THE FIRE SPREADS TO YOUR CROPS.,YOU ARE BANKRUPT.e X,X,0,0 YOU CAN'T FIND A POISON.,  FIND A SCIENTIST THAT HAS THE POISON.,MAKE YOUR OWN POISON.,6,5 YOUR POISON IS A FAILURE. YOU MUST, START OVER. CHOICE A AND B EITHER X (TERMINATION) OR E (FINISH)_  J STANDS FOR JUMP TO CIRCLE # IN DATA  YOUR TROPICAL PLANTATION IS PLAGUED,BY KILLER BEES.  SCARE THE BEES AWAY.,DESTROY THE BEES.,9,2 BEES ARE HARD TO KILL.,!  BURN THE NESTS.,FI.":+ j:"WOULD YOU LIKE TO TRY AGAIN ";J tY$:(Y$,1)"Y"C1:1040] ~(Y$,1)"N"Ā :"PLEASE TYPE YES OR NO.":1140  DATA FORMAT:SITUATION 1,SITUATION 2  CHOICE A,CHOICE B CIRCLE # IF CHOICE A, CIRCLE # IF CHOICE B3  DEAD-END I$"A"CA(C):1040$ BCB(C):1040 L DEAD END: A$(C)="J" THEN JUMP:A$(C)="E" ADVENTURE COMPLETED: A$(X)="X" ADVENTURE TERMINATED VA$(C)"J"CA(C):X11500:X:1040 `A$(C)"E"ĺ:"CONGRATULATIONS!!! YOU SAVED THE CROPS ":"AND THE PLANTATIONT F11-P1=S1$(12),S2$(12),A$(12),B$(12),A(12),B(12)qX112:S1$(X),S2$(X),A$(X),B$(X),A(X),B(X):XyC1:4:4:S1$(C):S2$(C):(A$(C))111107:"YOU MUST":9:"A. ";A$(C)$11:"B. ";B$(C).I$:I$"A"I$"B"1070 8      "1 GTHERE ARE 22 SPACES IN THE PRINT IN 1090; L1020` V5:"THE WORD YOU TYPED WAS ";N$f ` h F10-P25:"TYPE A WORD AND PRESS RETURN."YM(16384)128:M1Ĺ16368,0gM01020vM131110M("A")M("Z")1070$N$N$(M):2:1:N$:1020.3:"THAT IS NOT A LETTER."8X11000:X B3:"   F10-P14:"PRESS SPACE BAR TO CONTINUE."XM(16384)128:M1Ĺ16368,0hM321010"THANKS FOR THE SPACE BAR."M13 M$(R1);" ";V$(R2);" THE ";A$(R3);" ";N$(R4)< :XB KD  F9-P3:X136"TYPE A NOUN ";:N$(X)["TYPE A PERSON'S NAME ";:M$(X)}"TYPE AN ADJECTIVE ";:A$(X)"TYPE A VERB ";:V$(X) :X15:"SENTENCE NUMBER ";X R1((1)3)1:R2((1)3)1:R3((1)3)1:R4((1)3) . ONE,TWO,THREE,FOUR,FIVE,SIX,SEVEN,EIGHT,NINE,TEN,ELEVEN,TWELVE,THIRTEEN,FOURTEEN,FIFTEEN,SIXTEEN,SEVENTEEN,EIGHTTEEN,NINETEEN 3 TWENTY,THIRTY,FORTY,FIFTY,SIXTY,SEVENTY,EIGHTY,NINETYX/10) FINDS THE TENS PLACE VALUE OF N. U=N-T*10 FINDS THE UNITS PLACE VALUE.b T(N10):UNT10 N;" IS SPELLED ";T$(T);" ";N$(U);"." :"DO YOU WANT TO SPELL ANOTHER WORD"; Y$:Y$"Y"1020 $Y$"N"Ā ):"PLEASE TYPE Y OR N.":1055  F9-P2N$(19),T$(9)5X119:N$(X):XJX29:T$(X):Xz:"WHAT NUMBER (1-99) DO YOU WANT SPELLED"N:N1N99ĺ"THAT NUMBER IS NOT BETWEEN 1 AND 99.":"TRY AGAIN":1025N20ĺN;" IS SPELLED ";N$(N);".":1050K  T=INT(N  1010 =Y$"N"10958 B:"PLEASE TYPE Y OR N.":1080q G:"PEOPLE AMD THEIR SCORES."::X1P:N$(X),S(X):w KXXXd  P IS COUNTER FOR THE NUMBER OF PEAOPLE THAT RUN THE QUIZ. S(P) STORES THE SCORE FOR EACH.u $PP1:S(P)S ):"YOUR SCORE IS ";S(P);" CORRECT." .:"WHAT IS YOUR NAME ";:N$(P) 3:"DOES ANYONE ELSE WANT TO TRY "; 8Y$:Y$"Y"S0:y  F9-P1!S(100),N$(100)-X110KA((1)12):B((1)12)x:"PROBLEM NUMBER ";X;:24)A;"*";B;"="D1800:D:"WHAT IS THE ANSWER ";:C CABĺ"CORRECT.":SS1:1045"WRONG. ";A;"*";B;"=";ABD12000:D   X1N::A(X)! D11000:D( XQ :"TYPE THE NUMBERS IN SEQUENCE.":s X1N:"NUMBER ";X;:B(X):X :"ORIGINAL SEQUENCE":X1N:A(X),:X $::"YOUR ANSWER":X1N:B(X),:X KN  F8-P3=:"PROBLEM MAKER, HOW MANY NUMBERS (1-20)"SN:N0N201005dA(20),B(20)X1N:"NUMBER ";X;:A(X)X::"THAT IS ALL. THANKS.":D11000:D:"PROBLEM SOLVER, HERE ARE THE NUMBERS."::"GOOD LUCK.":D12000:D  ::A(X) D11000:D XI :"TYPE THE NUMBERS IN SEQUENCE.":k X15:"NUMBER ";X;:B(X):X :"ORIGINAL SEQUENCE":X15:A(X),:X $::"YOUR ANSWER":X15:B(X),:X KX  F8-P25:"PROBLEM MAKER, TYPE 5 NUMBERS."\ THESE NUMBERS ARE STORED IN A(X){X15:"NUMBER ";X;:A(X)X::"THAT IS ALL. THANKS.":D11000:D:"PROBLEM SOLVER, HERE ARE THE NUMBERS."::"GOOD LUCK.":D12000:D X15  WAS ";. $C(X)A(X)B(X)ĺ"CORRECT !":1080< ."WRONG."C 8XI KXK  F8-P1=X110:A(X)((1)10)1:B(X)((1)20)1d:"WHAT IS ";A(X);"*";B(X);:C(X)kX:"ALL DONE. HERE ARE THE RESULTS.":D12000:D:X110:"PROBLEM ";X;": "; A(X);"*";B(X);"=";A(X)B(X):"YOUR ANSWER OF ";C(X);"  . CHARLES,SMITH,"WICCOPPEE, NEW YORK",555-5643d 3 SAM,JONES,"PLEASANTVILLE, NEW YORK",555-9038 8 SUSAN,EMERY,"ATLANTIC CITY, NEW JERSEY",555-1285 = JAMES, HOWARD,"SCRANTON, PENNSYLVANIA",555-4628 B X,X,X,X KNANOTHER NAME ";, Y$:(Y$,1)"Y"Į:1005? (Y$,1)"N"Āc $"PLEASE TYPE YES OR NO.":1050 ) DATA FORMAT FIRST NAME, LAST NAME, ADDRESS, TELEPHONE # + NOTICE THE ADDRESS IS IN QUOTES SO THAT THE COMMAS WILL BE READ AS PART OF THE ADDRESS1  F7-P21"TYPE A LAST NAME ";:N$BF$,L$,A$,T$T$"X"ĺ"THAT PERSON IS NOT IN THE DATA.":"TRY AGAIN."::1010L$N$1015"FIRST NAME: ";F$:"LAST NAME: ";L$ "ADDRESS: ";A$"TELEPHONE: ";T$ :"DO YOU WANT   F7-P1X15::A,B;"WHAT IS ";A;"*";B;:NkNABSS1::"CORRECT. VERY GOOD.":1050:"WRONG. THE ANSWER IS ";ABT11000:T$X.:"YOUR SCORE IS ";S;" OUT OF 5 CORRECT."8 5,8,9,11,2,6,0,8,7,3BX11000:T Q:AHAT IS ";A;"-";B;:N+ $NABİ1095:1070L )"WRONG. THE ANSWER IS ";ABj .:"WHAT IS ";A;"*";B;:N} 3NABİ1095: 8"WRONG. THE ANSWER IS ";AB: B"THAT NUMBER IS NOT BETWEEN 1 AND 20. TRY AGAIN.": G:X1120:"CORRECT ";:X LT  F6-P1<:"PROBLEM MAKER, TYPE A NUMBER (1-20) ";CA]A1A20İ1090:1010"TYPE ANOTHER NUMBER (1-20) ";B B1B20İ1090:1030"WHAT IS ";A;"+";B;:NNABİ1095:1055"WRONG. THE ANSWER IS ";AB :"W  LD YOU LIKE TO TRY AGAIN ";0 Y$:Y$"Y"1010> Y$"N"Ā_ "PLEASE TYPE Y OR N.":1220A";(W$,X1):11301 `:"AND ENDS WITH ";(W$,X)Q j:"WHAT IS THE WORD ";:C$f tC$W$XA:1170s ySCSC20 ~:"THAT IS NOT THE RIGHT ANSWER.":SS20 Y11000:Y X :"THE ANSWER IS ";W$ :B$;", YOUR SCORE IS ";SC: "WOU LETTERS":"TRY AGAIN.":1050c 8L10ĺ"THAT WORD IS LONGER THAN 10 LETTERS.":"TRY AGAIN.":1050o =SCL10 BX1A::B$;" THE WORD HAS ";L;" LETTERS." F G"YOUR SCORE IS ";SC L:"IT BEGINS WITH ";(W$,X) VX(L2)ĺ:"AND ENDS WITH `  F5-P5>:"PROBLEM MAKER PLEASE TYPE YOUR NAME":A$p:"PROBLEM SOLVER PLEASE TYPE YOUR NAME":B$:A$;", PLEASE TYPE A WORD WITH""FROM 5 TO 10 LETTERS."W$$L(W$):A(L2):SL1000 .L5ĺ"THAT WORD IS SHORTER THAN 5   z#???????  Ʊб Ʊв Ʊб Ʊв ƱвƱб Ʊв ƱбƱб Ʊб Ʊб Ƹб Ƹв Ƹг ƹбƹвƹгƱб Ƶв!Ƶг"ƵдƵеƶбƷб Ʒв ƲгƲдƳбƳвƴбƴвƵбϠԠϠŠ ƱбƱвƱгƲбƲвOLOR ";:Y$! (Y$,1)"Y"12304 (Y$,1)"N"Ā> (1290W 2 MOVE SNAKE ROUTINEt <PXPXX:PYPYY:PX,PY:1060 PYY0PYY3910605 MM1:A(M)X:B(M)YE M2001230U 1340:1060u :"CHOOSE A COLOR (1-15)"; C:C1C151230 C:PXX1:PYY1:PX,PY D1M XA(D):YB(D):1340:D T11500:T :"DO YOU WANT TO CHANGE THE C("U")X1:Y1:1170. BK("K")X1:1170K LK("O")X1:Y1:1170d VK("I")Y1:1170 `K("H")X1:Y1:1170 jK("L")X1:Y1:1170 tK("M")Y1:1170 ~K(" ")ī1230 1060  LIMIT PLOT VALUES PXX0PXX39u F12-P1!A(200),B(200),::1T"CHOOSE A STARTING POINT (X,Y) ";:X1,Y1:X10X139Y10Y239ĺ"I CANNOT HANDLE THOSE VALUES.":1040PXX1:PYY1:PX,PY$X0:Y0:K(16384)128:K0Ĺ16368,0.K("J")X1:1170 8K 40,97,8,0,72,138,9,0,92,138,10,0,112,138,11,0,146,138,8,0,180,138,12,0,201,138l  13,0,69,172,14,0,79,183S140,68,2,32,140,70,3,16,143,67,2,16,143,69,3,0,140,66,2,0,140,66,3,48,138,69,2,48,138,67  3,32,140,70,4,32,140,70,5,32,140,70,4,16,144,68,6,0,140,66,4,0,140,66,5,0,140,66,4,48,137,68,6,32,140,70N  7,0,140,96,7,0,139,96,7,0,141,96,7,0,140,95,7,0,1,X,Y:R:SHX,Y:G4 *38328,76:38329,208:38330,3U -1010,184:1011,149:1012,48f /T11000:T 2::10:11:"MEET THE COMPUTER" <11:"INTERMEDIATE BASIC" F7:"PROGRAMMING SKILLS DISKETTE" KLD12000:LD PSB$"CATALOG"X  1,0,n PROGRAM: LOGOS COPYRIGHT 1982 SUNBURST COMMUNICATIONS, INC _230,32j62450SB$(13)(4):SB$"NOMONCIO"::::5:0,0:62454SB$"BLOAD SUNBURST LOGO TABLE,A24576"7232,0:233,96:1 (G130:SH,R    8K("K")X1:11701 BK("I")Y1:1170I LK("M")Y1:1170g VK("U")X1:Y1:1170 `K("O")X1:Y1:1170 jK("H")X1:Y1:1170 tK("L")X1:Y1:1170 ~1060 1060 PXX0PXX391060 PYY0PYY391, F13-P1:6 GENERATE 100 RANDOM STARSm13:X1100:X1((1)40):Y1((1)40):X1,Y1:X2:X110:X1((1)40):Y1((1)40):X1,Y1:XPX20:PY20:1:PX,PY$X0:Y0:K(16384)128:K0Ĺ16368,0 .K("J")X1:1170  /.-->.>>????/----m $$$$5666&$-,-.6>$---$5>66.$$,-??66..-%mIII$$$$<7-5666n *.--,<,<,<,<.>5---MI''%/,-557=>?7775/.--%%'=$$$$MI 6666.$$$$l266%$$,,--555757577???JI $56--,<,'??--66%$$'%'--557=>?-mI<,<,M)>.>.??-557=>????----m $$56&$-,m16.$$"7m2%,-5575??',<,<,,,--5m66.$$$%---..>.>.>>>??'IIIJ)<,<,<,<,<-6&56,6&56%$.$4%$.$4%6666.$$$$,6&56,6&56%$5$4%$.$,6666.$$$$l 5757575/..--,,<,<,<,4??????$$$$$$$$$,666666666.?<-5&/--.--????------4>/%$$$$$$$$$$-----...66677?????,---->?75.65.65'<$'<$',5.65.65.=?????----%=/,<,<<???????7--------???7666666666'$$$$$$$$<6666666667???<<666666666666.$$$$$$$$$$45666666666&$$$$$$$$&$$656&$566$$.66$,66&$56&$566$,66$,66&$566$$5665$$$$$$$$$$,6666666666.$$$$$$$$$$,-----...66>>65566677?????'-----<-??????6$?/------%-?%%'=,<<%%'%''?????'-----?666666666555-----,,,$$$$$$$..6555.........555-..55-..5-.5-.-.-.-.-5---.---%%%-----...6>'%''?????,----????7>>7->7-7=7-5?55----''7-.->7-7=7-?.=>>>????/-=?'''',5>45%.----%6?????666666666-5?55-----,,,$$$$$$$$$766666666='$$$$$$$$666666666>4????7----???'?<$$$$$$$$$7666666%-%-,6777>>?'$-%-,67'>?.-6----%---,-%-%-%-%-,%-,%%-,,%%-,,,%%%%%%%%%,,,$%%%,$%,$,$%$%$,$$$$$$$$$$$'$<$<$'$'<$'<<<$'''<<<<<<<<<'''?<<''?<<'?<'??7?7?7?7?>7?>>77?>>777?>>>>>>>>6777>>>67>6767>6>6676666666666656.6.6565.65.67>67>67>67>?????'$$$$$-%-%-%-%-%-%577>67>67>67>????'$$$$-%-%-%-%-%67>>67>6>>???'$$$-%-%-%-,67>>67>>??'$$-,-67>67>67>67>555555555$,,,,,,,<$'<$'<$'<$67>67>67>67555555%,,,,,=$'<$'<$'4>67>67>65555%,,,,'<$'<$67>67>555,,,<$'4>675%$$#$$$$$?,-,-'?7?,-,'7?,,?,7666666666--------=67$$$-'????????$$$$$$$$6&6II-%-%-,-,%$$$$$$$$$$$477777777777777777/65.65.6%%-%-,-%=??7?>?&'-%-???,------>676....&%-.,,%%$''%?>>6....,-,%%?%'<>>...-,=%'<<>>..4%$;??>??/--,%-%--?>??,--,-,%--,'=7??>7?7?'-,-,-,-%-???7?7?7''--,-,---'??>??7?'-%--%--'??>??>$--%--'??>?@  OHZ-j 666666.--,%-,,$%,$$$$<$'<<<'?7?>>67>6666.65...5-.-%--,%-,,$%,$$$<$'<<<<'????>7?>>67>666.6.....-.%--,%-,,,$,$$<$'<<<<'???>7?>>67>66.6.....5=,--,%-,%,$,$<$'<<<<'??>7?>>67>6.6.....--,%-,%,$,<$'<<<<'7'>7?>>67>.6.....%-     TRY AGAIN?"; Y$:Y$"Y"Ĭ, Y$"N"Ā6 1220H  HIT ROUTINEs :20,6)2ĺ"DIRECT HIT":PP50:1280 "INDIRECT HIT":PP10 D11000:D::S01200 1050 1:X,6:2:X1,6:3:X2,6:SS1 VF36624 `X36XX1:0:0,396:1300H j CHECK FOR HIT_ tF620,6)01260x ~13:20,F:D150:D 0:20,F:F S01200 X 1050 :"YOU RAN OUT OF MISSILES";::"YOUR FINAL SCORE IS ";P :"WOULD YOU LIKE TO  F14-P1:. DRAW MISSILE BASEP2:19,2139:19,2138:20,37YS10::P;" POINTS";26)S;" MISSILES"$::P;" POINTS";26)S;" MISSILES".X036:0:0,39681300:D150:DBK(16384):16368,0:K1601180 LS  NN21090F 8(N3)N3ĺN;" IS EVENLY DIVISIBLE BY 2 AND 3.":1015z BN;" IS NOT EVENLY DIVISIBLE BY 2 AND 3.":1015 G LINE 1070 CHECKS TO SEE IF N IS EVENLY DIVISIBLE BY 2 I LINE 1080 CHECKS TO SEE IF N IS EVENLY DIVISIBLE BY 3 L  FOLDER1 - PROGRAM1 &A"TYPE A NUMBER ";:N$RN$"0"1040(N$)0ĺ"THAT IS NOT A NUMBER.":"PLEASE ";:1020N(N$):"THE NUMBER IS ";N(N)NĺN;" IS A WHOLE NUMBER.":1070$N;" IS A DECIMAL NUMBER." .(N2)  11X1:Y10,Y11X35 2:X1,XY9:X4,X5Y9? (1170^ 20:X1,XY9:X4,X5Y9 <2:Y10,Y11X1:Y10,Y11X3 F1170: P0:L011 ZX,X4YL dL: n0:X4,Y7:1:X4,Y5:1170 x0:X4,Y5:1:X4,Y7:1170:Y7 Y1,Y2X:Y1,Y4X2:Y1,Y2X4:X1,X3Y3N 1:X,Y5:X2,Y5f X,X4Y6:X2,Y7v 2:X2,Y8 X1,X3Y9 Y10,Y11X1:Y10,Y11X3  0:X,Y5:1:X,Y7:1170 0:X,Y7:1:X,Y5:1170  0:Y10,Y F15-P1:*X18:Y15:11906W110I1270:1390:WUW110b$1300:Wl.1360z8X1343B1190:1170L1360VX`X3413j1190:1170tX1İ1360~XT11100:T1 12:X1,X3  D10.5)10? D;" ROUNDED TO HUNDREDTHS IS ";(D100.5)100` E;" ROUNDS OFF TO ";(E.5) E;" ROUNDED TO TENTHS IS ";(E10.5)10 E;" ROUNDED TO HUNDREDTHS IS ";(E100.5)100 AS ";(D10.5)10E tD;" ROUNDED TO HUNDREDTHS IS ";(D100.5)100f ~E;" ROUNDS OFF TO ";(E.5) E;" ROUNDED TO TENTHS IS ";(E10.5)10 E;" ROUNDED TO HUNDREDTHS IS ";(E100.5)100 OFF TO ";(D.5) D;" ROUNDED TO TENTHS IS ";(  F1-P2?A5.965:B3.452:C.674:D1.125:E10.730`BC;" ROUNDS OFF TO ";(C.5)LC;" ROUNDED TO TENTHS IS ";(C10.5)10VC;" ROUNDED TO HUNDREDTHS IS ";(C100.5)100`D;" ROUNDS OFF TO ";(D.5) jD;" ROUNDED TO TENTHS I   F16-P13=X1((1)279):Y1((1)191)HS15jSX((1)73):SY((1)52)z$X0279SX.X1,Y1X,08X1,Y1X,191BXLY0191SYVX1,Y10,Y`X1,Y1279,YjYtT12000:T~S5ĐSX   F1-P3N115O(N2)N2ĺN;" IS EVENLY DIVISIBLE BY 2."(N3)N3ĺN;" IS EVENLY DIVISIBLE BY 3."N$ Nf F16-P23)X0963B139,XX1.46139,96^139,96X279X1.46,96e$XX 6  F2-P1D150-(1)21,4D 5 F17-P1-hBPRIMT"EDITING CAN BE EASY"QrB"DON'T FERGET TO PRESS RETURN"B"DELETING CHARACTERS IS EASY WITHH ESC K."B"INSERT CHARACTERS THE ESC KEY."B"LINE NUMBERS CAN BE CHANGED"B"WITH THE EDIT FEATURES" =  F2-P2 N11004((1)100)1,;N Nu F17-P212:99"EDITING MAKES PROGRAMMINGHT110:TP:e"AND MORE FUN."sT11000H :  F2-P3N1201((1)6)158N N; F2-P4 N1202((1)11)59N N  F3-P1A"ENTER A WORD WITH FROM 5 TO 15 LETTERS"QS$:S(S$){S5ĺ"THAT WORD IS TOO SHORT.":1030S15ĺ"THAT WORD IS TOO LONG.":1030$S$;" HAS ";S;" LETTERS.":"THAT IS JUST RIGHT.". S"LETTER NUMBER ";L;" IS THE VOWEL ";M$;".":VV19 BLV GW$;" HAS ";V;" VOWELS."\ KW^  F3-P2,"TYPE A WORD ";:W$;L1(W$)LM$(W$,L,1) MID$ SETS W$ EQUAL TO EACH LETTER OF THE W$ STARTING WITH THE FIRST LETTERM$"A"1080M$"E"1080$M$"I"1080)M$"O"1080.M$"U"1080310902 8  F4-P18"ENTER A NUMBER FROM 32 TO 95."?NhN32ĺ"TOO SMALL. TRY AGAIN.":1030N95ĺ"TOO LARGE. TRY AGAIN":1030$)X1800:(N);:X.D13000:D81010 ND81010 NY  F4-P27"PRESS SPACE BAR TO CONTINUE."?G$QG$" "1030W YMBOL OF ";N;" IS ";(N)FD13000:DP10 GES OR NO.":1210:X" "WHAT IS THE TOTAL ";:AY ATĺ"CORRECT. YOU SHOULD BE A CALCULATOR.":1200 "WRONG. THE ANSWER IS ";T::"TRY AGAIN WITH FEWER NUMBERS." :"DO YOU WANT TO TRY AGAIN "; Y$:(Y$,1)"Y"1010 (Y$,1)"N"Ā "PLEASE TYPE YR INTERMEDIATE":"3 FOR EXPERT"& $L4 .L11060B 8L31060T BT1(4L)1010Z L VT((1)10)1::"YOUR STARTING NUMBER IS "T `X1N:A((1)2)1:R((1)10)1 jA1ĺ"ADD ";R:TTR:1150 t"SUBTRACT ";R:TTR ~Y1T1:Y   F5-P1K:"I WILL GIVE YOU A SERIES OF NUMBERS":"FROM 1 TO 10.":"YOU MUST ADD OR SUBTRACT THE NUMBERS":"AND GIVE ME A TOTAL.":"HOW MANY NUMBERS WOULD YOU LIKE ";:N:"CHOOSE A SKILL LEVEL (1-3)" "1 FOR BEGINNER":"2 FO   ES OR NO.":1210:X" "WHAT IS THE TOTAL ";:AY ATĺ"CORRECT. YOU SHOULD BE A CALCULATOR.":1200 "WRONG. THE ANSWER IS ";T::"TRY AGAIN WITH FEWER NUMBERS." :"DO YOU WANT TO TRY AGAIN "; Y$:(Y$,1)"Y"1010 (Y$,1)"N"Ā "PLEASE TYPE YR INTERMEDIATE":"3 FOR EXPERT"& $L4 .L11060B 8L31060T BT1(4L)1000Z L VT((1)16)5::"YOUR STARTING NUMBER IS "T `X1N:A((1)2)1:R((1)16)5 jA1ĺ"ADD ";R:TTR:1150 t"SUBTRACT ";R:TTR ~Y1T1:Y   F5-P2K:"I WILL GIVE YOU A SERIES OF NUMBERS":"FROM 5 TO 20.":"YOU MUST ADD OR SUBTRACT THE NUMBERS":"AND GIVE ME A TOTAL.":"HOW MANY NUMBERS WOULD YOU LIKE ";:N:"CHOOSE A SKILL LEVEL (1-3)" "1 FOR BEGINNER":"2 FO  .":1240J "WRONG. THE ANSWER IS ";T::"TRY AGAIN WITH FEWER NUMBERS."n :"DO YOU WANT TO TRY AGAIN "; Y$:(Y$,1)"Y"1010 (Y$,1)"N"Ā "PLEASE TYPE YES OR NO.":1250NtX1N:A((1)3)1:R((1)16)5< ~A3R((1)4)2[ A1ĺ"ADD ";R:TTR:1190 A2ĺ"SUBTRACT ";R:TTR:1190 "MULTIPLY BY ";R:TTR Y1T1:Y :X "WHAT IS THE TOTAL ";:A ATĺ"CORRECT. YOU SHOULD BE A CALCULATOR."0 :"HOW MANY NUMBERS WOULD YOU LIKE ";:NT $:"CHOOSE A SKILL LEVEL (1-3)" ."1 FOR BEGINNER":"2 FOR INTERMEDIATE":"3 FOR EXPERT" 8L BL11080 LL31080 VT1(4L)1000 ` jT((1)16)5::"YOUR STARTING NUMBER IS "T%   F5-P3;:"I WILL GIVE YOU A SERIES OF NUMBERS.":"YOU MUST ADD, SUBTRACT OR MULTIPLY":"NUMBERS AND GIVE ME A TOTAL.""THE NUMBERS YOU WILL ADD AND SUBTRACT":"ARE FROM 5 TO 20." "THE NUMBERS YOU WILL MULTIPLY ARE":"FROM 2 TO 5!! ! ! 10 Y$"N"Ā1 "PLEASE TYPE Y OR N.":1210j:"WHAT IS THE WORD ";:C$2 tC$W$XA:1170Y ~:"THAT IS NOT THE RIGHT ANSWER."j Y11000:Yq X C$W$ĺ:"YOU HAVE THE RIGHT ANSWER. VERY GOOD.":1200 :"THE ANSWER IS ";W$ "WOULD YOU LIKE TO TRY AGAIN "; Y$:Y$"Y"10:"TRY AGAIN.":1050Z 8L10ĺ"THAT WORD IS LONGER THAN 10 LETTERS.":"TRY AGAIN.":1050 BX1A::B$;" THE WORD HAS ";L;" LETTERS." L:"IT BEGINS WITH ";(W$,X) VX(L2)ĺ:"AND ENDS WITH ";(W$,X1):1130 `:"AND ENDS WITH ";(W$,X) 2  F5-P4>:"PROBLEM MAKER PLEASE TYPE YOUR NAME":A$p:"PROBLEM SOLVER PLEASE TYPE YOUR NAME":B$:A$;", PLEASE TYPE A WORD WITH""FROM 5 TO 10 LETTERS."W$$L(W$):A(L2) .L5ĺ"THAT WORD IS SHORTER THAN 5 LETTERS""" " "