TD_g8Kaypro 10Autoload Diskette #3 MicroPlan Chang Laboratories Microsoft Basic 80 and Selected Games Microsoft, Inc. >Q!" >- Ͷ Aګ ҫ _!7^#V~  \p Z  z ů2[\͓͢1!~(OOE# =ʻf "=« ý> 2͐ f "]=f =« *]}o"_  *]  Hello There!  3You have just tried to boot your computer on one  of your RELOAD diskettes.  2You shouldn't attempt to boot on this diskette,  but rather boot on the 1st reload disk.  0It contains the procedure to accomplish the  reload.       t   INCOME LOGINCOME TBLMPERROR FILMPFORM OVLY 6MPHELP FILa MPLOGIC OVL[ !MPMENU FIL"#MPPRINT OVL[$%&'()MPSERIALNUM*MPSET OVL+MPSETUP FIL,MPSHOW OVL[-./012MPSTAT OVL834568PLAN COMC789:;<=>?@ABCALIENS COMrDEFGHIJKBIO BAS#LMN{K"2491Enter Operating Income ($000)121" "34492Purchase Price ($000)51" "34492Mortgage Amount ($000)32" "34492Term of Mortgage (years)34" "34492Interest Rate (%)35" "34492Depreciable Value42" "34492Salvage Value43" "34492<Depreciable Life (years)44" "146700" "120600" "@  RBLKJK BAS4OPQR1CATCHUM COMeSTUVWXYZ[\]^_`aCATCHUM DATbCHASE BAScd1CLONE COMRefghijklmnopqrCLONE DATsHORSE BAS+tuv5LADDER COMwxyz{|}~LADDER COM;LADDER DATSMBASIC COM>OBASIC COMROCKET BAS3STRTRK BASeTAXMAN BAS&!TRADE BAS 1WUMP BAS? RELOAD 3   ~8644657597 23,5 -2.19053802053 -1.42098732337 -0.485494376016 0.640919956129 1.98699680271 24,5 -4.38107604106 -2.84197464674 -0.970988752032 1.28183991226 3.97399360542 -99 "0,"1012432L7-L8-L900" 11,11," Income Tax (Shelter)",8,"1112432V5,2/100*L1000" 12,12,"After Tax Income (Loss)",32,"1234021011" 13,13,"Cashflow Impact",33,"" 14,14,"Net Operating Income",0,"14141202" 15,15," Mortgage Payments",0,"1512432V3,600" 16,16," Income Tax (Shelter)",8,"161412011" 17,17,"Cashflow (Outflow)",0,"1712432L14-L15-L1600" 18,18,"Cashflow Rate",4128,"1812432L17/(V5,1-V3,2)*10000" 19,19,"Equity Impact",33,"" 20,20,"Net Operating Income",0,"20141202")?0 40 7,5 12 13.8 15.87 18.2505 20.988075 8,5 12.5 11.6667 10.833 3 10 9.16667 9,5 23.9842300342 23.9460899834 23.9013795156 23.8489667398 23.7875247733 10,5 -24.4842300342 -21.8127566501 -18.8647128489 -15.5984667398 -11.9661164399 11,5 -9.79369201369 -8.72510266003 -7.54588513957 -6.23938669591 -4.78644657597 12,5 -14.6905380205 -13.08765399 -11.3188277093 -9.35908004387 -7.17966986396 14,5 12 13.8 15.87 18.2505 20.988075 15,5 24.2056259481 24. { 21,21," Interest Expense",0,"21141209" 22,22," Income Tax (Shelter)",8,"221412011" 23,23,"Equity Income",0,"2312432L20-L21-L2200" 24,24,"Equity Rate",4096,"2412432L23/(V5,1-V3,2)*10000" 25,25,"",0,"" 26,26,"",0,"" 27,27,"",0,"" 28,28,"",0,"" 29,29,"",0,"" 30,30,"",0,"" 31,31,"",0,"" 32,32,"",0,"" 33,33,"",0,"" 34,34,"",0,"" 35,35,"",0,"" 36,36,"",0,"" 37,37,"",0,"" 38,38,"",0,"" 39,39,"",0,"" 40,40,"",0,"" 41,41,"",0,"" 42,42,"",0,"" 43,43,"",0,"" 44,44,"",0,"" 45,4g2056259481 24.2056259481 24.2056259481 24.2056259481 16,5 -9.79369201369 -8.72510266003 -7.54588513957 -6.23938669591 -4.78644657597 17,5 -2.41193393441 -1.68052328807 -0.789740808532 0.284260747816 1.56889562787 18,5 -4.82386786882 -3.36104657614 -1.57948161706 0.568521495632 3.13779125575 20,5 12 13.8 15.87 18.2505 20.988075 21,5 23.9842300342 23.9460899834 23.9013795156 23.8489667398 23.7875247733 22,5 -9.79369201369 -8.72510266003 -7.54588513957 -6.23938669591 -4.750,20,300 24,8,1,5 0,1,0,1 0,0,0,0 15,10,1 0,0,0,0,0 "","","","","" 1,81,11,18 "Real Estate Investment Analysis" "Income Property" "($000)" 1,24 1,5 3 1,1,"Assumptions:",2,"" 2,2,"Net Operating Income",0,"24911215" 3,3,"Mortgage Inputs",0,"" 4,4,"Depreciation Inputs",0,"" 5,5,"Purchase Price",32,"" 6,6,"Tax Shelter Impact",33,"" 7,7,"Net Operating Income",0,"7141202" 8,8," Depreciation Allowance",0,"81046804" 9,9," Interest Expense",8,"91046903" 10,10,"Taxable Income",z5,"",0,"" 46,46,"",0,"" 47,47,"",0,"" 48,48,"",0,"" 49,49,"",0,"" 50,50,"",0,"" 1,1,"Year 1",0,"" 2,2,"Year 2",0,"" 3,3,"Year 3",0,"" 4,4,"Year 4",0,"" 5,5,"Year 5",0,"" 6,6,"",0,"" 7,7,"",0,"" 8,8,"",0,"" 9,9,"",0,"" 10,10,"",0,"" 11,11,"",0,"" 12,12,"",0,"" 13,13,"",0,"" 14,14,"",0,"" 15,15,"",0,"" 16,16,"",0,"" 17,17,"",0,"" 18,18,"",0,"" 19,19,"",0,"" 20,20,"",0,"" 2,5 12 13.8 15.87 18.2505 20.988075 3,6 1 150 0 30 16 24.2056259481 4,4 2 120 20 15 5,2 20  1Value is either too large or too small. Re-enter. y "Use cursor keys to position cursor (UP,DOWN,RIGHT,LEFT,CAN) " Improper filename. Examples: S82BUDG, B:ACTUAL, VERS12 "Expecting a number. You entered non-numeric characters." Choose any command and enter the command number like 111 Cannot use FIX on this command. Please see manual. y "Attempt to delete program steps when there is no program." "Too many steps in a program. You can have 100 steps."  %JP    .DIRERASED CURRENT= UNDEFINED NAMESTEPSNUMBER OF COLUMNSMENUROWSCOLSSTEPTO STEPDRIVE DESCRIPTION)TYPE (DATA=0,SUBT=1,HEAD=2,NOTE=3,OMIT=4) UNDERLINE !TRAILING BLANK LINES (NEW PAGE=9)DECIMAL PLACES (0-3 OFF=4)FORMAT COOLUMN WIDTHFOLLOWING WHICH STEP!ERROR IF:FILETABLEPROG.DIRER "W-25 Cashflows have no change in signs. No solution for IRR." "W-26 Cashflows have more than one change in sign. CAUTION." "W-27 Life value less than 1. Cannot compute loan/depr." "Improper tax schedule. Use SET SCHED to enter schedule." k "New table is smaller than current table dimensions. Enlarge?" Program steps in memory have been cleared. 1 "Formula is too complex. Symbol table is full." C Cannot use the SET DEPR/LOAN/SCHED or DO TAX commands in cols. `IRR: Divergence. Cannot get solution after 50 trials. W-50 Write error - is disk full? W-51 null W-52 null   No program steps in memory. 1 "Press any cursor key to recover your display. y " "This report may be too wide for the normal width printer " "There is no file on this diskette with this name." v "The content of this file is incorrect. (e.g. old version?)" "Hit RETURN to see the available tables or programs " cancelled. * "No more tables/programs on this drive."  3 ASED.TBL##,###.####BB<BB<@PBxYMPSET.TBL.TBL//xTABLE.LOG.LOG.LOGPROG (A-P):(NO=0,[-]=1,[=]=2,[_]=3)(NO=0,[%]=1,[$]=2,NO,=3)12E`SeEv2xMPSET.TBL.LOG.TBLTABLEPROG.DIR.FILMPMENU MPHELP.FIL.HLPz!M"}"}!M"}!M5%!M5%!M5%!M5%!M5%!M5%!M5%!M5%!M5%!N5%! N5%!N5%!N5%!!N5%!.N5%!YN5%!eN5%!N5""IRR: Can only handle 50 values. " q This add-on option is not available in your copy of MicroPlan. Cannot load different size tables in a program. The table has different dimensions from current. Changing size Program mode on. Command has been saved. Please SAVE PGM. Cannot load row and column titles from different size tables. "null command." 4 Your program already exists. Continue with save?   "This report is too wide to print. Maximum width is 254 cols" "Use cursor keys to select a row (UP, DOWN, CANCEL)" "Use cursor keys to select a column (RIGHT,LEFT,CANCEL)" "Current table does not have enough columns for DEPR/LOAN." "Improper method. Use SET DEPR to enter proper values." "W-22 Sum of cashflows is less than 0. IRR is negative." "W-23 Interest rate is 0. Use SET LOAN to enter LOAN inputs." "W-24 Use SET LOAN to enter proper inputs for LOAN command."  "saved."  "Syntax Error." 1 Your file already exists. Continue with save?  OK to erase current data?  OK to erase current program?  No help files.  SET PAPER; HIT RETURN.  hit RETURN; to continue.  %!N5%!N5%!N5%}Q>!%'qQ*{*%!*ziD"'*z|MQ*#*'*{{ozqQ*z*')^#V"#*#* {|+Q*#Q>!+'Q*{*+!*ziD"'*z|ʮQ*)*'*{{ozQ*z*')^#V")*)* {|ŒQ*)rR>!5'fR*5!!!͖A75%*7Ϳ%|'R-!{͉*975%!-*z|3R!-!N*7!G)|_R*7!-͎*975%!-!4* {|Q!-!dS͠*z|*z++|җR͙iÚRi*z#R+)R~#foSSSTT*z*z{ozg|RÚR*z|RJG*z+++++++|R* {*{{ozg"{äS*z++++ {ozg"{*+|(a*z"z*z"{!"*{5%!!ͦ2*&{wJG*z^#Vq:!"{!"{ͨ>*z͍6*!' ! 4*{"*! 4*{"**z+|*z++|a!#4* {"z!' ***z}|**z}|a_b!4*zx&!eÖ́$*zx&̈́$!!U4*{!!!͖A͹&75%*z|Bb**7!hO$_bkY|Z!"*!' !$4͙Z*"z*"z!"zj !kO "*ñf>!'* {"!"o*z+|²bb!!bͷyW*!rÖ́$!!!>!' !+4vE"o*z|b**!xOExV!!iix*i!N$!WV*i!!U4xV!4!' U*avW*zͿ%{zrWaU|rW*{*z̈́$z5%*kWaU|W*z\%A}o|g"o!"q!"sõW*q "q*s#"s*o}|W*qW!*mY>!w'!"s!"[aU|6X*y!͉%*ẅ́$w5%*y!! &y5%*{!!P &{5%!!Xͷ*w*̈́$!P!!>!!XͷX!!iix*i*yͿ%͉%*y$˜X*s"[X*[|*i*$ҺX*s"[*s#"s* {|hX*w*̈́$!P!!>q*[|X*s"[!!Yͷ!{]!f{]x!*h{ix!*h{ix!*h{ix!!z]!z]x!!{]!{]x!!z]x!"s^*s*z}|]!!o]!o]!i!o]!ix^!*z*s)]*z*s)]*z*s)i*z*s)]*z*s)ix*s#"s*}|]!"sè^*s*z}|\^!!o]!o]!i!o]!ixá^!*z*s)]*z*s)]*z*s)i*z*s)]*z*s)ix*s#"s*}|$^V_!!s]x*s*{{oz^^_!!]x!"qI_*s*z}|*++|"S!"z!"zJG*z"z9:ÚR*z+++++|8S!"zäS*z*z{ozKSxR*z"zj *z*z)^#V "!!ͦ2!NmͰmͰ!N$S!4!"z* {"z* {"zÚR* {"zJGÚR4KvH"z͖L*z|SͼI"z*z|S!"zL*zq:*z|SI*z|S͟JvH"z*z*z)^#V#"Y*Y"[NT*[J"z*z{zGT*z*[)^#Vq:GU*[#"[*z}|T*z+++|ƒT!"z*{+*z^#Vog"zÆTU*zog*z^#V#"Y*Y"[T*[ogJ"z*z{zT*z*[)^#Vogq:GU*[#"[*{}|T*z++++|U!"z ̈́$!!!>q!*z̀*z̀*z͹!*p{̀*r{̀*t{̀*v{͹!*x{̀*z{̀*|{̀*~{͹!*{̀*{̀*{̀*{͹!*{̀*{̀*{͹!*{̀*{̀*{̀*{̀*{͹!*j{W*l{W*W*W*͐!*`{̀*b{̀*d{̀*f{͹!*h{^#V͐!*h{^#V͐!*h{^#V͐!*z̀*z͹!*{̀*{͹!*z͹!"sd!*z*s)^#V̀*z*s)^#V̀*z*s)^#VW*z*s)^#V̀*z*s)^#V͐*s#"s*z}||d!"sLe!*z*s)^#*[*{͐!' !)4*uhY!"z!"z*9{5%!"sWY*z*s)*95%*s#"s*z}|@Y*}yZ*9{5%!"sÔY*h{*s)*95%*s#"s}Y!"sY*z*s)*ss#r*z*s)*ss#r*z*s)*95%*z*s)6#6*z*s)*95%*s#"s*z}|Y!"shZ*z*s)*ss#r*z*s)*ss#r*z*s)*95%*z*s)6#6*z*s)*95%*s#"s*z}|Z*ÖZ*z*z!!!z(*Á[*z{zZ!4kY"Y!!!!!z(!!!!z(!!!!z(!!!!z(!q*z}|#_!!cxB_!*z*s)^#V*q)))cx*q#"q*}|^* {|¸^!' ! O5%*Ϳ%*{*{{ozg"o*{|”_*o+"o**o*{++ &"Ö́${5%*{+*{{ozg"o*{++*{{ozg"*{{z_*o+"o*+"*o!U *o}o|g"o*!U *}o|g"*o!%Oy-*{og!-Oy-!ͷ!5Oa!{͎*!=Oy-*{og!EOy-!ͷ$!MO !{͎*{og!]Oy-!UOI!{͎*{}o|g*{{ozg*{U +"{*{*z{z`*z+"{*{}o|g*{#*{*z+*z^#V"zT*z"zJG*z^#Vq:*z|7UL!"zHH* {"z͖L*z|SU^Uu*]ÄU*z!! &!N$/W_"_*_GW>!c'e!N5%*9z5%*c+|½Ue!N5%*{z5%*c++|Ue!N5%*{z5%*z*9$U*z5%!"g!!8Vͷ*{*ë́$!N̈́$!P!!>!4!"g!!3Wͷ*c{z[V**z̈́$!!U4**{̈́$*{̈́$!-!U4*e*̈́$!!!͖A͹&i5%*z|ʦVôV*iͿ%|´VV*ia5%*9e5%*9i5%JG*zq:*g{zV!' *a*g|W!4!!!z(!!!!z(!!!!z(!!!!z(!!!!z(!!!!z(!!!!z(*Îb>!'* {"!!aͷ*!Ö́$!!!>!!naͷ!!]!]!]x**z{oz**z{oz \͖a \|Z*z|\!' *!!p{]!r{]!t{]!v{]x!!x{]!z{]!|{]!~{]x!!{]!{]!{]!{]x!!{]!{]!{]x!!{]!{]!{]!{]!{]x!!j{i!l{i!i!i!ix!!`{]!b{]!d{   V̀*z*s)^#V̀*z*s)^#VW*z*s)^#V̀*z*s)^#V͐*s#"s*z}|d!"se*z"q~e*q+|wee*q+"q*z*s)^#V*q)))̀!ke!*s̀*q͹!"e!*z*s)^#V*)))̀Ͱ*#"*q}|e*s#"s*z}|be!*{͹!' *{5%*! 3*h{^#V!~Ö́$*h{^#V̈́$!Ö́$*h{^#V̈́$!7͉%̈́$*{̈́$*zx&̈́$!Ö́$*zx&̈́$5%**{!OW*jg>!'* {"!!Ygͷ*!Ö́$!!!>!!$gͷ!"sg!| u*"*!<!*iD"*z|3u*{"zDt**{{ozIu*"*x&*{̈́$*̈́$!Ö́$*x&̈́$*{̈́$*̈́$ͨ4vE*z|ʛu*{"zDt*"z*"z*{"{!"z!"z!"z!"zj !O "* {"z!"z!"z*z"z!"{*z"{!"z*z"z!"z*z"z|ZkY"Y!"z*{"{!"z!"`{!"b{!"d{!"f{!"{!"{iq* {"z!!ͦ2*&{wJG*zq:*zͿ%|ƒvͨ>*z͍6*{"z* {"z*z̈́["*|«vͨ>*z͍6*z++|½v!%4*zʹf|v!"z!"z*z"z9:JG*z͑b*zmg* {"ze!P 7!!͖A5%!Q"z*z|(km*z*z)^#V͖h*{*{̈́$*z*z)^#Vx&̈́$ͨ4*oi*!!!iD"o*z|ʆkm*o*{{ozʜk*o"*oi*!Ö́$!!!iD"o*z|km*o*{{ozk*o"*oi*!!! iD"o*z| lm*o*{{ozl*o"ql*z|-lm*z*z)* **  * * s#rk*|ƒl*t{oiËl*+oi*!!!iD"o*z|ʪl*o*{{ozl*o#"*o++++|l!"*oi*!Ö́$!!!iD"o*o*{{N)))!͛*q#"q*{}|p*s#"s*z}|p* {"ziq!!ͦ2*z{5%yW* {"zJG*zq:* {"zJG*zq:ͨ>cq!4*z"z*z|үq9:*z*{)^#Vq:* {"z*{7r*9!!*{͖A5%*z|qìp*Ϳ%{zr*z*z)*5%*z*z)^#V7!!J;|rͨ>* {|²q* {"z*ˀ"z!"z*{*{̈́$*z#x&̈́$ͨ4* {"z!"z*π*̀{ozg#"o*oog*z"z*̀"sðr*z*s)*s*o*z^#V5%*s#"s*z}|r!"sr*s*z*z*95%*s#"s*o}|r*{ͨ4*z*z{oz y*z*s)ix*s#"s*z}|f!' *{5%*s+"z*zx&*{̈́$*̈́$ͨ4*! 4*{"*Óh>!'* {"*z|•g! 4* {"z*yW*z+|¤gg!!gͷ*!Ö́$!!!>!' !(4vE"o*z|g**!Ö́$!!!>q!"s)h!*z*s)^#V͐*s#"s*z}| h!' *{5%*! 3*̈́$*{̈́$*zx&̈́$*{̈́$*̈́$5%**{!OW* i>!'*{ozg"*!U {ozg"*! U {ozg"*!U {ozg"*!U {o}5%we! P5%* {"zyW!!Lwͷ*z*ë́$!!!>!͑ *{ͨ4Sw! 4*e!P$lwe!P5%uwe!P5%aU|ʨw*z!͉%*ë́$e5%*z!! &z5%!!0xͷ*e!$P̈́$!P!!>!!*xͷ!"s"x!!рix*р*zͿ%͉%*z$x!*s*͐*x*s#"s* {|w!' !"4* {"z* {"z*z++|Px!!(yͷ*z!*P̈́$!!!>*z!!!z(*z!!!z(!!xͷx!!s]x*s*{{ozxx!*z*s)i*z*s)]x* {|¦x!' *z!0Poz m*o"*{"z!̀Q"z*z|*mm*z*z)^#V i*{*{̈́$*z*z)^#Vx&̈́$ͨ4*|rm*r{oiym*oi*!!*{iD"o*z|ʚmm*o*{{ozʰm*o"ql*z|ʾmm*z*z)* *  *s#rm*z|m!"o*!!*ziD"ˀ*z|n*ˀ*{{oz.n*z"ˀ*z|Fn!4* {"z*!!*ziD"̀*z|en*̀*{{oz|n* {"z*!7*̀*ziD"π*π*{{oz¨n*̀"π!-4vEJG*!!!͖Az5%*z̈́[* {"z* {"z*z"z!4*z{z' s!%4!!ͦ2*z}{oz*sL*.{m*zmj ͝* {"z*z++|Ts!%4*zʹf!"z*zmg* {"z"Y*9{5%!"z* {"z*{ͨ4* {"{͙ZN!͎!!sO!!͎!z!y!ͷ"׀O!ـ͎!!ـtـ!O͉!!ـy!ͷ"*׀*}|1t*"׀*׀c{zDt!c"׀*!!*׀iD"*z|kt*{"zçu**{{oz™t*z}{oz“t! "Ùt!"*)))!ـy! *))) ͷ"!!y*F *)))Fͷ"**} \zg"*li>!À'*À!U "* *À}o|g"*! U "*  *}o|g"*Ùi>!ǀ'*ǀx&*̈́$!2!U4*ŀ*z#i+)i~#fo* {|*o9:ͽKJG* {"z*z͑b* {"z*z"s'q*{"qq*z*s)^#V*z^#V*z*q)^#V $y {!8P5% y*z!DP̈́$ {5%!͍6! 4* {"z*{z5%ͽp*z|Kyrj ͝w!9-ʜ-DM͑+w ʹG--ʘ-Lr Display statistical commands. Smoothing, moving averages, mean variance, standard deviations and curve fitting. / 13 tables: (This section is an add on module) Display external table access commands. Consolidations, variance analysis, and commands to link tables or to G/L. 14 link: (This section is an add on module) x Display external data access commands. DIF interface, link to G/L or data management files, Posting and Tabulation.  /  B Some commands are not listed on the command menu. They are:  ' 1. Backspacing: Use the DEL key. , 2. Cancellation: Use the ESCAPE key. / 3. Cursor movement: Use the arrow keys.   @ 4. Function keys: Use any function key for commands or A 6 status: ] Display status commands. Range settings, mode selection, and selection of compute order.  7 HELP command I Explains each command. Describes the commands and explains usage.  9 STOP verify @ Clears the display and exits to CP/M. The current table is not  16 format: Display format commands. Enter row & column titles, set row or column print options, look at options and move row or columns. 17 INSERT Insert a row or column at the current data pointer position. (Insert really gets an empty row/col from the end of the tbl) 18 DELETE  @ Delete a row or column at the current data pointer position. 3Q  ( any alpha key for calculation commands. 1 format: Display format commands. Enter row & column titles, set row or column print options, look at options and move rows or columns 2 data: a Display data entry commands. Enter data, move the data pointer fix, nullify and goto commands. 3 math: M automatically saved. 10 utility: r Display utility commands. Save/load tables, re-dimension table size, select drive, reset and redisplay screen.  11 program: R Display program commands. Save, load, clear, print, list and erase programs. 0 12 stats: (This section is an add on module)  1k  w MicroPlan is a financial planning worksheet. MicroPlan allows you to do row and column calculations electronically.   Most of the screen displays your table. The commands on the right allow you to write titles and data into the table. You choose a command by typing the command number followed by the carriage return key. p Display math commands. Arithmetic, cumulate, negate, get, ceiling, floor, and row and column summations. 4 finance: Display finance commands. Depreciaion, mortgages, internal rate of return, ratios, percentages, growth and tax schedules. 5 print: n Display print commands. Set report options, titles and print reports. Reports can be sent to disk files.   k7 (Delete really moves row/col to the end of the table) 19 rows: " Row section of format commands.   7 20 ROW TITLE title ... ESCAPE (DOWN, UP, ESCAPE) Enter or change row titles. Each title entered is placed in the current row. The cursor keys move the current row pointer. 21 SET TYPE row option ... ESCAPE ka 40 math: p Display math commands. Arithmetic, cumulate, negate, get, floor, ceiling and row and column summations. 41 ADD RESULT <-- row/col1 + row/col2 % Add two rows or columns of values.   . 42 SUBTRACT RESULT <-- row/col1 - row/col2 5 Sutract the second row/col from the first row/col.   k, special column formatting for each column.  27 SHOW COLS b Display the current options for each column. Also shows the commands stored for each column. & 28 REORDER old-column new-column Move old-column into the position new-column. Use this command to insert new columns or delete columns from your table. 29 data: ݗb the right and left cursor keys to move the data pointer. 35 FORMULA RESULT <-- formula u Use a formula. Formulas may reference a row or column (Ln), values (Vr,c) or positive constants in the formula.  36 GOTO row column [ Position the display screen with row,column in the upper left corner of your terminal. ' 37 PLUG row, column <-- formula   Rv Allows you to specify the type of row, underlining, decimal places, spacing and special formatting for each row.  22 SHOW ROWS _ Display the current options for each row. Also shows the commands stored for each row. ! 23 REORDER old-row new-row q Move old-row into the position new-row. Use this command to insert new rows or delete rows from your table.  @  . 43 MULTIPLY RESULT <-- row/col1 * row/col2 ) Multiply two rows or columns of values.   . 44 DIVIDE RESULT <-- row/col1 / row/col2 2 Divide the first row/col by the second row/col.   & 45 NEGATE RESULT <-- - (row/col) ha Display data entry commands. Enter data, move the data pointer fix, nullify and goto commands. 30 ENTRY value ... ESC (UP, DOWN, RIGHT, LEFT, ESCAPE) Enter values into table. Cursor keys allow movement to any cell in the current table range settings. 31 ENTER value ... ESC (UP, DOWN, RIGHT, LEFT, ESCAPE) Enter values into table. Constant, grow and increase options allow quick entry. Cursor keys allow individual data entry. : Use a formula to calculate results for a particular cell. The formula may reference table values (Vr,c) or constants. 38 FIX Re-computes the current row or column. Use cursor keys to move the data pointer to the right row or column before using FIX. 39 NULLIFY row/col ] Nullify command associated with a row or column. The data in the table is not affected.  w 24 cols: % Column section of format commands.   25 COL TITLE title1 title2 ... ESC (RIGHT, LEFT, ESCAPE) Enter or change col titles. Each title entered is placed in the current col. The cursor keys move the current col pointer. 26 SET TYPE column option ... ESCAPE A Allows you to specify the column width, decimal places and !'ÖO*{*!*ziD"*z|rO***{{ozʖO*z*)^#V"** {|PO*P>!'O*{*!*ziD"*z|O***{{ozO*z*)^#V"** {|±O*×P>! 'ËP* !!!͖A5%*Ϳ%|LP!{͉*5%!*z|XP!!QN*!G)|„P*!͎*5%!!4* {|P!úP*z*)^#V*)))̀!͎!P*z*')^#V*))))̀!͎!úQ>!3'!!+͎<4|QgU?U*9+|*9*z}|+U* {"z**z*9)^#V"**9+|*9*z}|cU* {"z**z*9)^#V"*Z!!!!i(!!!!m(!!!!o(!!!!k(!!!!c(!!!!e(*zy5%!"g!"q!"u*yͿ%"w*w|V* {"zXS"*|2V* {"zX*q#"q*q{zIVX*L{oz™V*i*g)6#6*m*g)GT̀s#r*q+*e*gs#r* {"õW*V{ozW*i*g)6#6*m*g)GT̀s#r*u#"u*o*g)GT̀s#r*q+*e*gs#r* ^#V!)))̀!͎!B[*o*)^#V*z^#V!)))̀!͎!l[>!'*z*)^#V!)))!͉*\!"ë[*i*)^#V[+)[~#fo[2\c\g\}\\\\*#"*g}|x[*z*g)^#V!)))̀!A͎**z{z \*z*')^#V*m*)^#V)))̀E[.\*m*)^#V*z^#V*))))̀E[**m*)^#V*z^#V*o*)^#V)))̀E[**Z̀[̀RE[*Z̀!W͎[̀!O͎!='*z*?)^#V*=)))!A͉*?*=u8*;9R>!K'<4|R*z*z*K)^#VͽQ5R*z*K)^#V*zogͽQ*I|R!!OiR!!A͎*^#Vͨ4xRW!O͟!A͎*MS>!a'*a|ҟR*aog"a>S*c*a)^#Vz*e*a)^#VzR* {"z*_*g#"g*g{zR* {"z*_*i*g)*k*a {"õW*0}|/*9{z/*.{oz҆W*i*g)6#6*u+"u*z*g)^#V!)))GT̀͛*q+*e*gs#r* {"õW*({oz¬W*k*q)6#6*{"V* {"zX*g#"g*g{zWX*q{zWXS"*|WX**{oz X*k*q)6#6ãX*/{oz-X*k*q)6#6ãX*+{ozMX*k*q)6#6ãX*-{ozmX*k*q)6#6ãX*){ozšX*k*q)6 #6*q#"q*{"W* {"zX*|ʾX*c*q)*g+s#r*{"V*g+"g*q+"q*g{z*g*z}|*q{z)^#Vs#r*m*g)*c*a)^#Vs#r*o*g)*e*a)^#Vs#r*a*q{ozQSS*a"9òS*c*9)*9#*c^#Vs#r*e*9)*9#*e^#Vs#r*k*9)*9#*k^#Vs#r*9#"9*q+*9{zZS*q+"q*a+*e*gs#r*c*a)*gs#r*_DT*u#"u*u*w}|T!"s*s*y*u! &͹&\%"9*9 {oz:TS*9"s*sT*y*u#! &!{͎!."9ÖT*u#"u*u*w{zT!{*y*u#! &\%"9*90}|/*99{z/*9.{ozhT!{wU>!'GT̀"9*+|T?U*++|TU<4|M5%*!M5%*!N5%*! N5%* !KN5%âO>!'ÖO*{*!*ziD"*z|rO***{{ozʖO*z*)^#V"** {|PO*P>!'O*{*!*ziD"*z|O***{{ozO*z*)^#V"** {|±O*×P>! 'ËP* !!!͖A5%*Ϳ%|LP!{͉*5%!*z|XP!!QN*!G)|„P*!͎*5%!!4* {|P!úP*z*)^#V*)))̀!͎!P*z*')^#V*))))̀!͎!úQ>!3'!!+͎<4|QgU?U*9+|*9*z}|+U* {"z**z*9)^#V"**9+|*9*z}|cU* {"z**z*9)^#V"*Z!!!!i(!!!!m(!!!!o(!!!!k(!!!!c(!!!!e(*zy5%!"g!"q!"u*yͿ%"w*w|V* {"zXS"*|2V* {"zX*q#"q*q{zIVX*L{oz™V*i*g)6#6*m*g)GT̀s#r*q+*e*gs#r* {"õW*V{ozW*i*g)6#6*m*g)GT̀s#r*u#"u*o*g)GT̀s#r*q+*e*gs#r* ^#V!)))̀!͎!B[*o*)^#V*z^#V!)))̀!͎!l[>!'*z*)^#V!)))!͉*\!"ë[*i*)^#V[+)[~#fo[2\c\g\}\\\\*#"*g}|x[*z*g)^#V!)))̀!A͎**z{z \*z*')^#V*m*)^#V)))̀E[.\*m*)^#V*z^#V*))))̀E[**m*)^#V*z^#V*o*)^#V)))̀E[**Z̀[̀RE[*Z̀!W͎[̀!O͎!='*z*?)^#V*=)))!A͉*?*=u8*;9R>!K'<4|R*z*z*K)^#VͽQ5R*z*K)^#V*zogͽQ*I|R!!OiR!!A͎*^#Vͨ4xRW!O͟!A͎*MS>!a'*a|ҟR*aog"a>S*c*a)^#Vz*e*a)^#VzR* {"z*_*g#"g*g{zR* {"z*_*i*g)*k*a {"õW*0}|/*9{z/*.{oz҆W*i*g)6#6*u+"u*z*g)^#V!)))GT̀͛*q+*e*gs#r* {"õW*({oz¬W*k*q)6#6*{"V* {"zX*g#"g*g{zWX*q{zWXS"*|WX**{oz X*k*q)6#6ãX*/{oz-X*k*q)6#6ãX*+{ozMX*k*q)6#6ãX*-{ozmX*k*q)6#6ãX*){ozšX*k*q)6 #6*q#"q*{"W* {"zX*|ʾX*c*q)*g+s#r*{"V*g+"g*q+"q*g{z*g*z}|*q{z%ÄN     Divide by 0VALUERATEPERIODSBEGINEND, (ROW/ONLY=1,COL/ONLY=2,ROW/COL=3,COL/ROW=4) PROMPTING MSG)CHOOSE (VALUE=0,CONSTANT=1,GROW=2,INCR=3)BASE!ERROR IF% A@P|@Pz!M"}"}!M"}! !!!(*O!M5%*!M5%*!M5%*!M5%*!M5%*!)^#Vs#r*m*g)*c*a)^#Vs#r*o*g)*e*a)^#Vs#r*a*q{ozQSS*a"9òS*c*9)*9#*c^#Vs#r*e*9)*9#*e^#Vs#r*k*9)*9#*k^#Vs#r*9#"9*q+*9{zZS*q+"q*a+*e*gs#r*c*a)*gs#r*_DT*u#"u*u*w}|T!"s*s*y*u! &͹&\%"9*9 {oz:TS*9"s*sT*y*u#! &!{͎!."9ÖT*u#"u*u*w{zT!{*y*u#! &\%"9*90}|/*99{z/*9.{ozhT!{wU>!'GT̀"9*+|T?U*++|TU<4| ) _*z#]+)]~#fo^^J^g^^*z*z{ozg|3]]*z|>]JG*z+++++++|`]* {*{{ozg"{^*z++++++|‰]!"z!"zJG*z"z9:]*z+++++|Ÿ]!"z^*z*z{oz²]\*z"z*z*z)^#V "!!ͦ2!TNmͰmͰ!\N$]!4!"z* {"z* {"z]* {"zJG]4KvH"z͖L*z|*^ͼI"z*z|B^!"zL*zq:*z|`^I*z|`^͟JvH"z*z*z)^#V#"ˀ*ˀ"ò^*J"z*z{z^*z*)^#Vq:ë_*#"*z}|^*z+++|^!"z*{+*z^#Vog"z^x_*zog*z^#V#"ym!"z*z+*z^#Vq:zU*z|lo[*̀*πͽQ!z"zür*z"z/v*z+|*z+++| DO!z͎a!7ͥO!z͎*^#V`N̈́$P̀!z͎*z|Haz!{ͱWa a`*^#V!!! iD!z͎*z|ʇa*{!z¢a!!z͎`<4|a!DO!z͎a!ͥO!z͎*z|a`!DO!z͎*z|a!2ͥO!z͎*z{ozW_<4}/o|/g{ozg|0bc*{*{̈́$*^#V̈́$!!*ziD"ˀ*z|gb*ˀ*{{oz›b*z{oz˜b!"ˀ*z"рbÛbb*^#V!7*ˀ*ziD"р*z|b*р*{{ozb*ˀ"р*z*ˀ)^#V!z͎*z*р)^#V!W!dN͉ͽP̀!O͎* {"z<4|s*z*π)^#V*z*̀)^#V}o|g#"s*z*π)^#V*z*̀)^#V}o|g#"*ˀ"t!!A͎*z{oztA!{͉*z{oz,tA!{͉!!͎<4|Vt*z*)^#V"2uit*z*)^#V"t*z{oz*z{ozҬt*!AI!AI!y!A͎*z{ozt*+!Aͱ!|NX-!A͎*Q*#"*р}|s*z*̀)^#V"z 95," mode:",9090 96,"RUN PGM",1006 97,"PROGRAM",8133 98,"COMPUTE",0467 99,"NORMAL",0005 100,"DEL STEPS",10135 101,"PROTECT",0007 102,"ORDER",13466 105," utility:",9105 106,"LOAD ALL",2141 107,"SAVE ALL",2142 108,"SET DRIVE",4128 109,"SET UP",1140 111,"LOAD TBL",2121 112,"SAVE TBL",2126 113,"CLR DATA",1127 114,"RESET",1130 115,"REDISPLAY",0131 116,"LIST TBLS",0309 117,"ERASE TBL",2144 118,"PRINT TBL",0304 120," program:",9120 121,"LOAD PGM",5137 122,"SAVE PGM",5138 123,"PRINT PGM",03"z*z*z)^#V"z*z*z}|*z*z{z=y*z"zIy*z"z!"zÜy!"z*zog*z^#V"z*z*{}|*z*{{zҐy*{"zÜy*zog"z!!O͎<4|y!!J;"y!!J;"*|yͨ>*^#VP̀!A͎*z|z*{"z*{"z*z*zu8ͽKürA!{ͱ,zA!O͉*z*z)^#V*z)))!A͉O!A͉èy͝ffffA>533333>=ii<0$;9"s@493 31,"ENTER",0491 32,"CHANGE",4492 33,"SELECT ROW",10472 34,"SELECT COL",11473 35,"FORMULA",12432 36,"GOTO",4461 37,"PLUG",14462 38,"FIX R/C",0463 39,"NULLIFY",15464 40," math:",9040 41,"ADD",3401 42,"SUB",3402 43,"MULT",3403 44,"DIV",3404 45,"NEGATE",1405 46,"INVERSE",1406 47,"INTEGER",1407 48,"ROUND",1408 49,"CUMULATE",6409 50,"ABSOLUTE",1410 51,"ADD K",6413 52,"SUB K",6414 53,"MULT K",6415 54,"DIV K",6416 55,"SUM",5445 56,"GET",1412 57,"FLOOR",6435 58,"CEILING",6436 60," fiu*z*z)^#V"vu*z#"z*z*π)^#V*z{zu*z*̀)^#V"z_u*z*z)^#V"vu*z#"z*z*π)^#V*z{zEu*z}o|gu+)u~#fouuuuuuv͚P͚̀P̀R! !͎͚P̀*ͷ!A !A͎*!A͎͚P̀!A !A͎͚P̀!AͿv͚P̀!A͎͚P̀!AͿ.v͚P̀!A͎*z*z{ozHv*z"z9:*z+++|Uv*z+||v*z!!U4*!!U4*z}o|gv+)v~#fovxx*z}/o|/g*z++|/W_{ozg|v*^#V!!!͖Az5%*^#V!!!iD"  05 124,"CLEAR PGM",12139 125,"SHOW PGM",0308 126,"LIST PGMS",0310 127,"ERASE PGM",5146 130," stats:",9130 131,"DELTA",8417 132,"% GROWTH",8418 133,"MOV AVG",8419 134,"SMOOTH",2420 135,"MEAN",5441 136,"SIGMA",5443 137,"VARIANCE",5442 138,"LOG"r,1421 139,"EXP",1422 140,"POWER",3423 141,"MAX",5447 142,"MIN",5446 143,"COUNT",5444 144,"TOTAL",5445 -99  117,"ERASE TBL",2144 118,"PRINT TBL",0304 120," program:",9120 121,"LOAD PGM",5137 122,"SAVE PGM",5138 123,"PRINT PGM",03U*z*C)^#Vogq:ÆU*C#"C*{}|T*z++++|SU!"z*z+*z^#V"zBT*z"zJG*z^#Vq:*z|vUL!"zHH* {"z͖L*z|ʒUÝUu*EU*z!! &!O$/W_"G*GÆW>!K'M!O5%*Oz5%*K+|UM!O5%*{z5%*K++|VM!O5%*{z5%*z*O$.V*Qz5%!"S!!wVͷ*{*M̈́$!Ö́$!P!!>!4!"S!!rWͷ*K{zV**z̈́$!!U4*U*{̈́$*{̈́$!-!U4*M*̈́$!!!͖A͹&W5%*z|VV*WͿ%|V/W*WI5%*O )%%***-___-=_*- z!M"}"}!M"}!M5%!M5%!M5%!M5%!M5%!M5%!M5%!M5%!N5%! N5%! N5%!$N5%!)N5%!>N5%!DN5%!GN5%!"!MN5%!PN5%!SN5%! !!!(*!bN5%*!sN5%*!N5%*!N5%*!N5%*!N5%*!N5%*!O5%* !$O5%* !IO5%* !VO5%* !dO5%!S͠*z|*z++|RYRY*z#R+)R~#foSS%TBTT*z*z{o pM5%*OW5%JG*zq:*S{z+W!' *I*S|AW!4÷V!!Wix*W!O$`W/W*W!!U4÷V!4!' .V*IõW*zͿ%{zW͠U|±W*{*z̈́$z5%*YX*]Ϳ%{zW*{*{3*]̈́$]5%*_|W!O"!*]͐ X!O"*]w*O]5%!"a*[iX*e#"e*_|5X͸W*c*{++|QX>ͮ!/42"g*z|`X!4>ͮ*cÖX>!k'*kx&*̈́$!2!U4*iX>!o'!*oͦ2*,{m*q!A3w*m^Y>!u'*z*u)^#V*z^#V"w*w!U "y*y*%%Q     CURRENT=NAME PAGE NUMBERDATE (YEAR AS YY)MONTHDAY -RANGE BEGINENDTITLEDISPLAY ZERO VALUESNOYES REPORT OPTIONSDATE$PAGE., (NO=0,YES=1)ROW TITLE WIDTH COLUMN WIDTHCOLUMNS PER PAGEDECIMAL PLACESOMIT ZERO ROOWS'SUPPRESS ZERO VALUES (NO=0,[-]=1,[ ]=2)"PRINT ROW TITLE AFTER WHICH COLUMN0zg| SR*z|SJG*z+++++++|8S* {*{{ozg"{S*z++++++|aS!"z!"zJG*z"z9:R*z+++++|wS!"zS*z*z{ozŠS÷R*z"zj *z*z)^#V "!!ͦ2!wOmͰmͰ!O$S!4!"z* {"z* {"zR* {"zJGR4KvH"z͖L*z|TͼI"z*z|T!"zL*zq:*z|;TI*z|;T͟JvH"z*z*z)^#V#"A*A"CÍT*CJ"z*z{zT*z*C)^#Vq:ÆU*C#"C*z}|\T*z+++|T!"z*{+*z^#Vog"zTSU*zog*z^#V#"A*A"C"U*CogJ"z*z{z "NEGATIVE NUMBERS (-N=0,N-=1,(N)=2)#PAGE CONTROL (OFF=0,FEED=1,PAUSE=2) OMIT COMMAS DOUBLE SPACEOMIT LINE NUMBERSERROR IF:FILETABLEPROG.DIRERASED&&#1#2 TOP MARGIN LEFT MARGIN ENHANCEMENT: //: :X TOP MARGIN: A LEFT MARGIN: : : : : : : : : : : : : ##,###.####BB<BB<@PB/X   -------@PB?0.00E***.000000--(   *w}o|g"{*{! U "}*}  *{}o|g"{*}|JY*r{"}*z*u)^#V"w*sY>!'*{ozg"*!U {ozg"*! U {ozg"*!U {ozg"*!U {ozg"**z#Y+)Y~#fo)Z*Z\\`I\*z|Y*z}o|g(Z+)Z~#fo.beeegrUyy*`{lX*!!!iD"*z|RZ`**{{ozhZ*"`{*b{lX*!!!ciD"*z|ʐZ`**{{oz£Z%[*"b{*d{lX*!!! iD"*z|Z`**{{ozZ*"d{*f{lX*!!!i$*̈́$*b{x&̈́$]5%*++|`i*b{x&*̈́$*d{x&̈́$*̈́$*f{x&̈́$]5%*"b{*`{|ʩi**{̈́$*ex&̈́$*]Ϳ%*S}o|g3*]̈́$]5%͸W!"Fj*h{*)^#VͿ%"**S{zi*S"*{z*h{*)^#V͹&!P$?j*O*S*{ozg!U 3*h{*)^#V̈́$]5%͸W*#"ҵi͸W*~{|bj]!P5%*A"j*X*z*w)^#V5%*Ϳ%|™j*{5%**{*!G)+͉%*}͉%5%**}3*]̈́$]5%*#"*A*|{+*{zkj*]*{̈́$*j{*k^#V!!!iD"*z|'_`**{{oz=_*"z{*|{lX*^#V!!*v{+iD"*z|n_`**{{ozʄ_*"|{*{lX*^#V!!!iD"*z|ʴ_`**{{oz_*"{*{lX* ^#V!!!iD"*z|_`**{{oz`*"{*{lX* ^#V*̈́$!!!iD"*z|F``**{{oz\`*"{*{lX* ^#V*̈́$!!!iD"*z|ʒ``**{{ozʨ`*"{*~{lX* ^#V*̈́$!!!iD"*z|``**{{oz`*"~{*zq:*{% e*5%!(!ͦ2* ^#Vm!2Pm*m*{|Ge*5%Pe*5%!(!ͦ2* ^#Vm!6Pm*m*~{|Še*5%Óe*5%!(!ͦ2* ^#Vm!:Pm*m! 4*zq:*z|*z++|e* {"z* {"z*v{*|{{zf*v{"|{!>P5%*Ϳ%*{*{{ozg"*{|3f*+"***{++ &VP̈́${5%*{+*{{ozg"*{++*{{ozg"*{{zf*+"*+"*!U *}o|g"*!U *}o|g"*!YPy-*{og!aPy-!ͷ!iPa!{͎*D"*z|[`**{{oz%[*"f{`*{*̈́$!!*ziD"A*z|N[*A*{{oza[ù[*!<*A*ziD"*z|ʀ[**{{oz–[*z"**A{z[*A"*A"z*"zJG*{*̈́$!!*ziD"A*z|[*A*{{oz[*!<*A*ziD"*z|\**{{oz%\*{"**A{z9\*A"*A"{*"{JG!O!!!(͖A5%*z|k\!O!!!(͖A5%*z|ʍ\*j{5%*l{5%* {"z!Uz5%*{lX!O!!!2iD"*z|\`**{{oz\*"{*{lX!O! 3̈́$]5%*A*|{"Ïk*X*z*w)^#V5%*Ϳ%|Lk*{5%**{*!G)+͉%*}͉%5%**}3*]̈́$]5%*#"*}|k͸W*~{|®k]!P5%*A"%l*X*z*w)^#V5%*Ϳ%|k*{5%**{*!G)#*{ &5%**}3*]̈́$]5%*#"*A*|{+*{zk*]*{̈́$*l{*3̈́$]5%*A*|{"l*X*z*w)^#V5%*Ϳ%|•l*{5%**{*!G)#*{ &5%**}3*]̈́$]5%*#"*}|gl͸W*~{|l]!P5%*A"Ãm*lX*^#V!!!iD"*z|-a`*{lX*^#V!!!iD"*z|]a`*{lX*^#V!!*{iD"*z|ʍa`*{|ʟa!lXæa!lX**̈́$!!!iD"*z|a`*|a* {"{*+|a*{"{**{{ozb*"{**{{ozb*"{**{{oz-b*"{* {"z* {"z*!͙X*!Ö́$*d{x&̈́$!Ö́$*f{x&̈́$!Ö́$*b{x&̈́$!*{&̈́$*̈́$!Ö́$*`{x&̈́$!͙X!"Ac**{̈́$*x&̈́$!Ö́$*{̈́$5%*h{*)^#V͹&3!qPy-*{og!yPy-!ͷ$!P !{͎*{og!Py-!PI!{͎*{}o|g*{{ozg*{U +"{*{*z{zg*z+"{*{}o|g*{#*{ {ozg"{!!ͦ2*&{wJG<4|g*zog*z^#V"{*zq:ͨ>*z͍6!"h͸W*#"*{}|g!P5%*b{"*b{c{ozph*n{!͉%"b{*n{!! &"d{*n{!! &"f{*b{|*b{*{{ozҒh`i*|h*d{x&*{̈́$*̈́$*f{x&̈́$*̈́$*b{x&̈́$]5%*+|i*f{x&*̈́$*d{x&d!!2iD"*z|]`**{{oz0]*"{*z}{oz\]*{lX!O!!!iD"*z|g]`*z}{oz**{{ozғ]*"{*p{lX*^#V!!*{iD"*z|]`**{{oz]*"p{*r{lX*^#V!!*{iD"*z| ^`**{{oz^*"r{*v{lX*^#V!!*ziD"*z|O^`**{{oze^*"v{*t{lX*^#V!!!iD"*z|ʕ^`**{{ozʫ^*"t{*x{lX*^#V*̈́$!!!iD"*z|^`**{{oz^*"x{*z{lX*v!O$c**͙X:c*h{*)^#V*̈́$*͙X*#"b*O! ͙X*{x&Ö́$!Ö́$*{x&̈́$! ͙X*^#V!P̈́$*p{x&̈́$! ͙X*^#V!P̈́$*r{x&̈́$!͙X*^#V!P̈́$*v{x&̈́$!͙X*^#V!P̈́$*t{x&̈́$!͙X*^#V*̈́$!P̈́$*x{x&̈́$!͙X*^#V!"P̈́$*z{x&̈́$!͙X*^#V!&P̈́$*|{x&̈́$!͙X*^#V!*P̈́$*{x&̈́$!͙X* ^#V!.P̈́$*{x&̈́$!͙X*O!͙X*{|e*5 W @X*~{+|0m*]*{̈́$*}+!P&̈́$]5%|m*}!U +!P&*{̈́$*x&̈́$*}!P&̈́$*}͉%*]̈́$]5%*#"*A*|{+*{zl*]*{̈́$*!P&̈́$]5%*A*|{"Jn*X*~{+|m*]*{̈́$*}+!P&̈́$]5%Cn*}!U +!P&*{̈́$*x&̈́$*}!P&̈́$*}͉%*]̈́$]5%*#"*}|m͸W͸W!"*X*z*)^#V*w)))̀!͎*z{{z!!Ҳn*5%üq*t{"*{zn*+"*{{zn*{+"!P͉!"o!P͟!͎7Chang Labs ,MP-3 # 5086, 7044 +7MPHELP FILa MPLOGIC OVL[ !MPMENU FIL"#MPPRINT OVL[$%&'() MPSERIALNUM p {"A*v{x*A*v{+*{{z0s*A*v{+"6s*{"*p{"S*A"^s*X*S*}"S*#"*}|Es*S*ǀ}|s>ͮ! 4*S{zs>ͮ* {"z!4y*_|²s>ͮgQj*z"ɀÞx1|s>ͮ* {"z!4y*z*ɀ)^#V"*z*)^#VaY*++++| t×x*x{|*{z*t{t*{"Mt**{{ozFt÷u*#"*z*)^#V*z*)^#V)))̀!3t*~{|št*ɀx&!3]5%*+|t*O*z*)^#VͿ%*S}o|g!U 3*]̈́$]5%*++|u*O*r{*|{ 3*]̈́$]| s*Oˀ5%*O5%*O5%*Oŀ5%*_|2y>ͮ*{m>͖ͮU*z|Ty*{ͨ4!"y*h{*)^#V!!U4**{̈́$*x&̈́$!!!(͖A5%*z|ʯy`*Ϳ%{zy*h{*)*5%*#"^yr* {"_͠U|y*z5% z*{*z̈́$5%*!!!>q͟r!' *z|0z*{"_*{ͨ4* {"zj ͝A͉èy͝ffffA>533333>=ii<0$;9"s@ .*#"**{zn!!7o!X!͎Fo!!͎!̀/x&5%!̀/!PͿґo!̀/!Rx&P̈́$5%!P*!G){zo!P5%üq!P*!G)"*|o**+͉%ŀ5%*!P̈́$*#* &5%p*ŀ5%!P*͉%5%*|/p**̈́$5%*{+|*y+++|*+++|[pìp*ŀͿ%"ßp*ŀ!%*̈́$*̈́$5%*+++"*ŀ*͉%ŀ5%*{zgp*ŀ*̈́$5%!!p*q*{|p*P̈́$5%*{+|q*!P̈́$5%!E5%*+|?*{z/Du*]*{̈́$*z*)^#V̈́$]5%÷u*A"Wu\n*#"*A*|{+*{zMu*]*{̈́$*z*)^#V*3̈́$]5%*A*|{"ìu\n*#"*}|u*+++|*]Ϳ%{zu͸W*|uw!(!Q*! &&ˀ5%*+++|Lv*_|)v!(!Q&ˀ5%͸WLv! s%*]̈́$*{*{&̈́$]5%*~{|dv*]! Q̈́$]5%*+|¨v*O*z*)^#VͿ%*S}o|g͛3!U 3*]̈́$]5%*++|v*O*r{*|{ 3*]̈́$]5%*+| w*]*{̈́$*ˀ*z*)^#VͿ%͉%̈́ N"*{++|*q*P̈́$!P̈́$5%!"*+|*y|Yq*!Q̈́$5%*#"*++|*y|҂q**̈́$5%*y+|¢q*!Q̈́$5%*#"*y++|¼q**̈́$5%*Ϳ%*}*a{ozg*}|q!Q5%!"**}*a{ozg*3*]̈́$]5%*"a!/4*z*z{oz*{++|Lr2"gJG*z|\r!4* {"z!I|{r!54* {"z*O]5%>ͮ*{m*{*{)^#Vm*`{"e*~{|¹r*p{+++"ÿr*p{"*z{+|r! Q5%*z{++|r!Q5%*z{+++|r!Q5%!"ǀ*$]5%͸Ww*A"Cw*X*{*ˀ̈́$*}͉%*]̈́$]5%*#"*A*|{+*{zw*]*{̈́$*O*3̈́$]5%*A*|{"òw*X*{*ˀ̈́$*}͉%*]̈́$]5%*#"*}|w͸W*{+|w͸W*{z* }| x!"w͸W*#"*}|w* {oz-x*{+|-x! s%]5%* {oz?x͸W*ɀ*z{z* {ozdxX*z|oxy*ɀ*z{z* {ozҗxgQj*ɀ#"ɀ*z}|s*{|´x͸W*{+|x! s%]5%͸W**{{zxX*z|xy*v{*A"A*{x} I   ]z(*z!!!z(*z!!!z(*z!!!z(*z!!!z(*z!!!z(*z!!!z(*z!!!z(*z!!!z(*z!!!z(!"O*z*)*s#r*z*)*s#r*#"*z}|O!"P*z*)*s#r*z*)*s#r*#"*z}|O*{*z{z\P*z+"{*{}o|g*{#*{ {ozg"{!"{*{*{"{!"{*{*{"{*{*z}|P*z"{*{*z}|P*z"{!"z*z"z!"{*z"{!"z*z"z!"z*z"z!"z*z*z)^#V "͝!eN5%!N5 "MicroPlan" 50,20 15,10,1,"" 0,0,0 "KAYPRO" 9,80,24 2,27,0,0,0 61,32 0 0 0 0 0 0 0 0 27,67,48,27,67,51,27,67,49,0 0 0 27,66,51,0 0 0 32,27,66,48,0 0 32,27,66,48,0 0 27,66,48,0 27,58,0 0 5,24,4,19,27 0,127,13 "COMMAND KEY SECTION" 37 65,51,66,52,67,53,68,54,69,30,70,35,71,36,72,79,73,46,74,79,75,71,76,138,77,135,78,39,79,79,80,37,81,32,82,67,83,55,84,68,85,79,86,137,87,79,88,38,89,79,90,79,43,41,45,42,42,43,47,44,61,56,37,70,36,49,94,139,62,73,60,72,64,74 "FUNCTION KEY SECTI    ON" 0,0,0 0 0 0 27,66,51,0 0 0 32,27,66,48,0 0 32,27,66,48,0 0 27,66,48,0 27,58,0 0 5,24,4,19,27 0,127,13 "COMMAND KEY SECTION" 37 65,51,66,52,67,53,68,54,69,30,70,35,71,36,72,79,73,46,74,79,75,71,76,138,77,135,78,39,79,79,80,37,81,32,82,67,83,55,84,68,85,79,86,137,87,79,88,38,89,79,90,79,43,41,45,42,42,43,47,44,61,56,37,70,36,49,94,139,62,73,60,72,64,74 "FUNCTION KEY SECTI R%DN    E`Se(New matrix may not fit in current memory1You may have to set matrix to size of your table )using SETUP command before loading table.z!M"}"}!M"}O!͎!!҃NM!!͎*z#)))*z# *z)##!!!ON*&{w!Mm!̀?!Mw!Nw*z*z!!!z(*z!!!   %R     OLD NUMBER NEW NUMBERROWS COLS  PER.  UNDER BLANK DEC FOR TYPE LINE LINES SIZ MAT COLUMN DEC FOR WIDTH SIZ MAT data subt head note omitNAMETITLEREPORT OPTIONS SECTION: STEPCOMMAND PARAMETERS DIRECTORYDOATEPAGE (NO=0,YES=1)ROW TITLE WIDTH COLUMN WIDTHCOLUMNS PER PAGEDECI MVx&̈́$e5%*c*c*mx&e5%*c*cxW"q*q|e]*i*ë́$i5%*gz5%*gO5%*c*qs%*ë́$e5%*qL{oz£]!͵Wx&*ë́$e5%*qV{oz]!͵Wx&*ë́$xWs%̈́$!͵Wx&̈́$e5%1]*z+++| ^*mͯX*ḯ$i5%*z+++++|D^*kͯX*ḯ$i5%*mͯX*ḯ$i5%*c*z++||^*zc{ozy^*mͯX*ḯ$i5%|^_*z++++|*z+++|^*kx&*ḯ$!Ö́$*mx&̈́$i5%*z+++++|_*mͯX*ḯ$i5%*i!Ö́$*kͯẌ́$i F!M5%!M5%!M5%!M5%!N5%!-N5%!BN5%!]N5%!cN5%!jN5%!zN5%!N5%!N5%!N5%!N5%!N5%!N5%! !!!(*!N5%*!N5%*!N5%*!N5%*! O5%*!O5%*!0O5%*!TO5%* !fO5%* !O5%* !O5%* !O5%!NU͠*z|*z++|ҁTi`ÄT͋`*z#T+)T~#foUUUUpV*z*z{ozg|ʶTÄT*z|TJG*z+++++++|T* {*{{ozg"{ÎU*z++++++| U!"z!"zJG r$*z*a)^#Vx&̈́$*{̈́$_5%*_j_*ge5%*gi5%!z"k!z"m*z~8{ozŸY*z*k)^#Vx&!Ö́$*z*m)^#Vx&̈́$*{̈́$i5%*z0{oz*z~8{ozY*zͿ%"M*zO5%!"K1]!"oZ*o#"o*o*z}|Z*c*z*o)^#V*z{ozY*z*o)^#V! 3i5%*zͿ%{zZZ*i*z̈́$*{̈́$i5%*z|eZ]*z+++++|uZH^*zͿ%{z*z++++|*z|*z}|/ҴZ*c*zZ+)Z~#foZ[-[S[[$\P\\\\\]]-]*i*ë́$i5%*c*mͯXe MAL PLACESOMIT ZERO ROWSSUPPRESS ZERO VALUES"PRINT ROW TITLE AFTER WHICH COLUMNNEGATIVE NUMBERS#PAGE CONTROL (OFF=0,FEED=1,PAUSE=2) OMIT COMMAS DOUBLE SPACEOMIT LINE NUMBERSERROR IF,%  - K= -  - USE -$ ---- ---- ----- --- --- --- - g---- ==== ____ page - # - # - % $ No,-$ ----- --- --- --v- - - % $ No,  V ##.## Table: ### x ##C TABLE NAME=- : ##/##/###: ###:  -  b5%*c*z{z=_*i*{̈́$*{̈́$*mx&̈́$i5%b_*i*{̈́$*{̈́$*mx&̈́$i5%*c*c_>!u'*z*u)^#V*z^#V"w*w!U "y*y *w}o|g"{*{! U "}*}  *{}o|g"{*}|_*r{"}*si`>!'*{ozg"*!U {ozg"*! U {ozg"*!U {ozg"*!U {ozg"**z#`+)|`~#fo```*z|ʋ`*z,}o|g`+)`~#foNaOac+f kq2s4moo tvxyCz!,4vEJG*z8{oz`*z"]`*z"]*!!*] *z"z9:ÄT*z+++++|"U!"zÎU*z*z{oz5UbT*z"zj *z*z)^#V "!!ͦ2!OmͰmͰ!O$yU!4!"z* {"z* {"zÄT* {"zJGÄT4KvH"z͖L*z|ʰUͼI"z*z|U!"zL*zq:*z|UI*z|U͟JvH"z*z*z)^#V#"A*A"C8V*CJ"z*z{z1V*z*C)^#Vq:1W*C#"C*z}|V*z+++|mV!"z*{+*z^#Vog"zpVV*zog*z^#V#"A*A"CV*CogJ"z*z{zV*z*C)^#Vogq:1W*C#"C*{}|V*z++++|V!"z*z+*z^#V"zU* 15%*c!z̀x&!Ö́$*mͯẌ́$e5%*c*kͯXe5%*mͯX*ë́$e5%*c*{*{̈́$!z*z^#Vx&̈́$*{̈́$*{̈́$*{̈́$!z*z^#Vx&̈́$e5%*c*z}|/*z{z/*z|[P\ \*z*k)^#Vx&*̈́$!Ö́$*z*m)^#Vx&̈́$e5%*c!z̀x&Ö́$*{̈́$*mͯẌ́$e5%*c*z*k)^#Vx&*̈́$!Ö́$*z*m)^#Vx&̈́$e5%*c!z̀x&*̈́$*mͯẌ́$e5%*c*c*{*{̈́$*z*m)^#Vx&̈́$e5%*c*{*{̈́$*z*m)^#  :  -  1:  2:  3: --- TOP MARGIN: LEFT MARGIN: : : : : :  (NO=0,[-]=1,[ ]=2): :  (-N=0,N-=1,(N)=2): : : : : PROGRAM FILENAME= - ### V(###/##)###  ## PROGRAM=  STEPS.- ### V(###/##)### ##TABLEPROG.DIR-ERASEDFROM TERMINAL #: B:MULTI.SYSMSG # I.D. OF RECEIVERALLSEND TO TERMINAL #. USE TO END. B:MULTI.SYSMSG # USE TO END.MSG # z!M"}"}!M"}!M5%!M5%!M5% z"zJG*z^#Vq:*z|!WL!"zHH* {"z͖L*z|=WHWu*EuW*{"G1|qW>ͮ!4* {"z* {"G*GòW*K#"K*K*M}|W!"I*I*O*K! &͹&\%"I*IìX>!S'*O*K#! &!U͎!0"]X*K#"K*K*M{zW!"]X*O*K#! &\%"]*]0}|/*]9{z/W*S+|QX!U*z^#V"Q*Q*S++|rX!U*z^#V"Q*Q*z{zX!U*z^#V"QèX!U*z^#V"Q*Q*Y>!a'*z{zX*{*{̈́$*z*a)^#Vx&̈́$*{̈́$_5%&Y*{*{̈́  iD"*z|a**{{oz$a`*!4!*]iD"**{{ozMa`* {"z* {"z*{"*{"A*{*{"**z}|a*z"!!ͦ2*4{m!!ͦ2*!23w*{!3m*!3m*!3w!!O&m!Om!!P&w*A"C]cKW| b*|b*,{m*Cx&*{̈́$*z*C)^#V*z^#V̈́$!3m*z*C)^#V*z^#V_** #! &m!P* #! &m* {oz¯b!+Pmb*|b!3Pmb!;P"**|b!CPmb!IP"*+!OP* #! !!>!!!ix*!! &"*!%! &"*|**{ozzq!' *!*#!ix!' * {"*"**z }|q!"4* {"zp"*|q*x&HR̈́$!OR̈́$*̈́$!!U4*z }o|g"!RR!!*iD"*z|&r**{{ozBre!dR5%Qr*x&e5%*eiR̈́$!}R̈́$ͨ4*s*g!!!-͖A5%*z|ʍrJG*Ϳ%|›rr!R!!!>**{{ozr!"r*ͷp*#"*}|rr*ͷp!' p"*|* Czx&m!Pm*m!Qm*{x&m!Qm*{x&wB*m! Qm*h{^#Vw*m!Qm*h{^#Vw*m!Qm*h{^#VwBB*{{zg!/e*z|ʳghj*{m*w!!Q&wB!"A*z"!͎͢a*z|ghjBB*{{z h!/e*z|hhj*{m*w!! Q&wB!"A*{"!͎c*z|PhhjBB*{{zjh!/e*z|uhhj*m*w!!#Q&wB!&Qm*{x&w!4Qm*{x&w*^#Vm!CQm*p{x&w*^#Vm!GQm*r{x&w*^ >ͮ*gi5%*gz5%*{ͨ4>ͮAW* {"z*"z*z|Jm! 4* {"z* {"z*{Q̈́$!Q̈́$*zx&̈́$!Q̈́$ͨ4!!ͦ2*,{m*!3m*!!3m!!ͦ2*,{m*{m!1!Q&m*z"!"z!"!"CYo*z|m*"zͼI"z*C* {ozg"!*ͦ2*,{m*,{!23m!*ͦ2!Q"*C̀j|Ynn*z{ozšn!Q"!z*z^#VT!z*z^#Vn*z{zn*{!Q̈́$*{̈́$"*z*z)^#Vn*{!R̈́$*{̈́$"*zog*z^#V! ) &m*CJ"z*z| c-Y)ci!aP5%*|Ac*{*ḯ$wVc*{*ḯ$!3w*C#"C*}|b*gz5%*gi5%*|‰c! 4* {"z* {"z*{"*{"A*{*{"**z}|c*z"!!ͦ2*4{m!!ͦ2*!23w*{!3m*!3m*!3w!!cP&m!fPm!!P&w*A"CÜeKW|Gd*|Ud*,{m*Cm_*z*C)^#V*z^#Vi5%*{*i!G)"*{zd*i*+͉%*{̈́$*i*#*{ &̈́$i5%*Cx&*{̈́$*ḯ$!3m*}x&! 3m*{|e* s*x&R̈́$!R̈́$*̈́$!!U4* {|hr*z }|Ms!"4* {"z!Rͨ4sp"*|ʵs*!U  "**{ozg"*x&R̈́$!R̈́$*̈́$!*U4!"s1|s* {"z! 4*#" Ҿs* {|Ws t*z*)^#V*zF5%**z"z**{oz#tu**}|:t!"]@t!"]*z*)^#V"*"Ãt*z*)**]*z^#Vs#r**]"**{ozYt*z*)*s#r!"t*z*)^#V*z*s#r*#"*z}|t!"u*J"z*z{z*z} &#Vm!KQm*v{x&w*^#Vm!OQm*t{x&w*^#Vm*m!SQm*x{x&w*^#Vm!WQm*z{x&w*^#Vm!nQm*|{x&w*^#Vm!rQm*{x&w* ^#Vm!Qm*{x&w* ^#Vm*m!Qm*{x&w* ^#Vm*m!Qm*{x&w* ^#Vm*m!Qm*~{x&wB>ͮ*{ͨ4>ͮAW*{"* {"z k*z{oz*z{oz*z{oz*z{oz*z{oz*z+|*z++|*z+++| B*ͦ2-Y*i!!3m*C!U  *C}o|g|Ro!0e>ͮ*#"*C#"C*z}|m*C!U  *C}o|g|ʹo!*C* {ozgͦ2*g!23m*"z*gi5%*gz5%! 4* {"z!R5%o!R5% f|o!/e*z|p×p* {"z!!pͷ*{*̈́$!R̈́$!!!>!!pͷ*m*w!@!R&wÉp!!ix*!R$ʉp*w* {|gp!' >ͮAW*{ͨ4>ͮ!4p>!'!*#*x&&R̈́$!7R̈́$*̈́$͐*æq*{"!;R! U{"{e*{+"{*{x&!3m!P*y #! &m!Pm*CogJ"z*z|_e-Yhei!P5%*|ʀe*{*ḯ$wÕe*{*ḯ$!3w*C#"C*}|>d*gi5%*gz5%*|e! 4f>!'>ͮ*42"*z|e!4*JG>ͮ*+f!I|!f!54* {"z*z"* f|4f* {"!/e*z|Lfhj*z!P̈́$"*z!PͨZ*zT*z9B!Pm*{wB*m*w!!P&wB*!P̈́$"*d{T*f{T*b{T!7͎*!P̈́$"*`{9B*m!Pm*zx&m!Pm* go"**z|k* {"z! 4 f|(k!/e*z|:khj!Qm*{wB*m!#͎*w!Qm!<!Q&w*z"!"z!"ClKW|ʎkmͼI"z!Q"*C̀j|ʮk}l*z{ozk*{Q̈́$"!z*z^#VT!z*z^#V}l*z{z8l*{!Q̈́$"*z*z)^#V*z*z)^#V5mwl*{!Q̈́$"*zog*z^#V*zog*z^#V5m*{m!#͎-Y*iw*C! U   *C}o|g|´lB*C2{oz*{{zl!/e*z|lm*C#"C*z}|kBB E |u*!zz!zͱnu*]+|Qu*z*)^#V!z͎sku*#*z^#V!z͎su*!zz!zͱu*]+|¶u*+*z^#V!z͎su*z*)^#V!z͎s*#"*z}|tͽKͨ>* {"zv*z*)^#V*zF5%**z"z**{oz)vu**}|@v!"]Fv!"]*z*)^#V"*"Év*z*)**]*z^#Vs#r**]"**{oz_v*z*)*s#r!"v*z*)^#V*z*s#r*#"*z}|v!"w*ogJ"z*z{ U! 4* {"z*!!!iD"U*z|.U*U*{{ozDU!"U*Q̀!W͎*z|]U!!WxU!!W͎*Q̀!_͎*z|ʑU!!_ҬU!!_͎*Q̀!g͎*z|U!!gU!!g͎!!o͎*z++++++| V!4* {"z*z{z$V! 4* {"z! O!!! iD"U*z|CV*U{zVV!"U!"w*Q̀!W͎*z|uV!!WҖV!!W͎!"w*Q̀!_͎*z|ʯV!!_V!!_͎!"w*Q̀!g͎*z|V!!g W!!g  <*!* {|¾P*!äQ>!-'ØQ*-!!!͖A/5%*/Ϳ%|YQ%!{͉*1/5%!%*z|eQ!%!N*/!G)|‘Q*/!%͎*1/5%!%!4* {|Q!%!R͠*z|*z++|Q͆TQͰT*z#Q+)Q~#foRRS5SS*z*z{ozg|QQ*z| RJG*z+++++++|+R* {*{{ozg"{R*z++++++|TR!"z!"zJG*z"z9:Q*z+++++|jR!"zR*z*z{oz}RêQ*z"zj *z*z)^#V "!!ͦ2!OmͰmͰ! O$R!4!"z* {"z* {"zQ* {"zJGQ4KvH"z͖L*z|RͼI"z* z*z}|w*!zz!zͱzw*]+|]w*z*)^#V!z͎uww*#*z^#V!z͎uw*!zz!zͱw*]+|w*+*z^#V!z͎uw*z*)^#V!z͎u*#"*z}|vujx>!'*z*)*g5%*z*)*g5%*z*)6#6!"Yx*z*)^#V*)))!͛*#"*z}|5x*x>!ŀ'*z*ŀ)*g5%*z*ŀ)*g5%*z*ŀ)6#6!"x*z*)^#V*ŀ)))!͛*#"*z}|x*À<4|xLy*z*z)^#V*z^# 4͎!"w*Q̀!o͎*z|#W!!oDW!!o͎!"w*w{zaW*Q̀!y͎!!y҂W!!y͎!"w<4|ʞW!QP!z͎îW!ͲP!z͎<4|W! 4* {"z*z++++++|W!4* {"z*z++!U "*!!*iD"U*U*{{oz/W_*z{ozg|(X!"Y**{̈́$*x&̈́$Q̀!W͎*z|_XW!{ͱwX!!W͎*Q̀!o͎*z|ʐX!!oҫX!!o͎*z*z)^#V* )))!W͉*z*z)^#V* #)))!o͉*z* u %àO    "CHOOSE (SL=1,SYD=2,DDB=3,DDB-SW=4) BOOK VALUE SALVAGE VALUELIFE (IN YEARS) LOAN AMOUNTTERMINAL BALLOON PAYMENT AMOUNTTERM OF LOAN (YEARS)ANNUAL INTEREST RATE (%)ANNUAL PAYMENTNUMBER OF BRACKETSUPPER LIMIT FOR BRACKETMARGINAL TAX RATOE (%)ENDING MARGINAL TAX RATE (%)SCHEDULEEARNINGSTRIAL WHICH COMMAND z|S!"zL*zq:*z|.SI*z|.S͟JvH"z*z*z)^#V#"Q*Q"SÀS*SJ"z*z{zyS*z*S)^#Vq:yT*S#"S*z}|OS*z+++|µS!"z*{+*z^#Vog"zøSFT*zog*z^#V#"Q*Q"ST*SogJ"z*z{zT*z*S)^#Vogq:yT*S#"S*{}|S*z++++|FT!"z*z+*z^#V"z5S*z"zJG*z^#Vq:*z|iTL!"zHH* {"z͖L*z|ʅT*z#T+)T~#foTTUWWYwZ*z|ʰT*z }o|gT+)T~#foZ][_ddf*z+++++|T!4* {"z*z{z uVͿ%{zy!44* {"z*z*z)^#Vmx*zog*z^#V"*z"v*z*z)^#V*z^#VͿ%{z|y!34* {"z*z*z)^#Vw*z*z)^#V"*z" t<4|ʰyz*zogmx*z"*zog*z^#V"**{ozy*#*z^#Vog"zv*z"*z*z)^#V"*zw**{oz@z*#*z^#V"z tj ͝A͉èy͝ffffA>533333>=ii<0$;9"s@ !ERROR IF(CHOOSE (ANNUAL=1,QUARTERLY=4,MONTHLY=12)PV= FV= R=% N= PMT=? PLEASE WAIT@<A #@>IRR: z!M"}"}!M"}!M5%!M5%!M5%!M5%!N5%!N5%!2N5%!HN5%!bN5%!rN5%!N5%!N5%!N5%!N5%!N5%!N5%!N5%ïP>!'ãP*{*!*ziD"*z|P***{{ozʣP*z*)^#V"** {|]P*Q>!#'Q*{*#!*ziD"*z|P*!**{{ozQ*z*)^#V"! 8*z* #u8*#"*U}|1X*Q̀!o͎*z|@Y!!o[Y!!o͎*z*z)^#V*U ##)))!o͉*z*z)^#V!)))*U͛*z!u8*z*U ##u8*z{zY! 4* {"z*!!*ziD!z͎*z|Y*{!z ZûY!z*z^#V!z͎*!7!*ziD!z͎*z|KZ*{!z]ZûY!z*z^#V!z͎*!!*ziD"* {"z*z*z)^#V!)))*U͛*z*z)^#V!)))!W͉*z*z)^#V!)))!_͉*z*z)^#V!)))!g͉ !a!oͨ_!y͟!I$W!y͟!!yo!o@ͷg!@!ͨ!!oͨ_!y͟R$ͷ!͎o!X!o͎!!o_!mO!o͎!̀/!uOͿҺ_*#"^* {"z!14!"!!͎!2!!!(<4|`a*z*z)^#V*z^#V!z)))̀!=`*{"C`* {"*z*z{ozg#"*2{zo`!!4* {"z*z"a*z*)^#V*z^#V!z)))̀!͎**z{ozg#*)))!͉!!͎!!`*{"`* {"**{oza*# *)^#V)))̀!Հ͎!!Հ2e!!Հ͎!!͎݀!"Sf!z*z^#V*))))̀!͎!!/!݀ͱ/җe!4* {"z!݀X!Հe!݀X!z*z^#V*)#)))̀R!dͷ!̀ !͎̀Հ!X!݀ !Հ͎Cf!z*z^#V*)#)))̀!ՀI!dͷ!̀ !͎̀!!Հ͎݀!͉*#"*ˀ}|Ge!z*z^#V*ˀ)##)))̀!ՀI!dͷ!̀ !͎̀*z*z)^#V*z*)^#V)))!͉̀*z*z*)^#Vu8*#"*{}|d* {"z!!hͷ* {"z* =*z*z)^#V!)))!o͉*z!u8*z!u8*z!u8*z!u8*z!u8*z!u8!!oͱ!o͎!!o !͎!!gI!y-!͎! !yͱ!y͎*w#[+)[~#foh\\]]|^!!oI!o͎! !yI!y͎*z|[!Ẁx&7Ö́$!!!ͦ2!"[g!!*,{m*!A3w*#"4g!' ! 4*z*)^#Vz‰g!'4!"!"þg*z*)^#V!}|g*###"*#"**{zg* {!@!!>!!hͷ!*!!*!!*!!' !!ͦ2*1!A3w*,{m*!A3w*,{m*!A3w*,{m*!A3w*15%*15%*15%! 4!' !.4j ͝#Vm!CQm*p{x&w*^#Vm!GQm*r{x&w*^ yI!oͨ_!@$!W͎!!oN]! !gI!yI!Wy!_͎~]W!͟!!a!yI!oͨ!ͨ!_͎!!o !]* {"z!4o!_@!ya!]* {"z!4!!o]W!_X!yͨ! ͷ!g͎o!W@!yao!_@!yaͷ!͎!!/!!?T^* {"z!4!͎̀+$!͎̀+ͷ! ͷ!g͎o!XO͉!!y^_!W͟!! !gIͷ͞-!!o͎!`Oͨ4!"_!!o !͎!!gI!y-!͎! N"ɀhc*ɀ+**ɀ)))̀R!ͨ!y!͎!@!͎**ɀ)))̀!ͨ! !͎*ɀ#"ɀ*}|c!!c!O͉ßc!͟!͎!X!͎!̀/!OͿc!d!I!d!͎c*#"ңb!14<4|7d*z*z)^#V*z^#V)))!͉*z*z^#Vu8yd*z^#V*z^#V*zog)))!͉*z^#V*zogu8!̀x&Ö́$ͨ4* {"z!z*z^#V!)))̀"ˀ*ˀ ##*z}|d!4* {"z*{"f!!͎̀!z*z^#V*z 8*z* #u8*#"*U}|1X*Q̀!o͎*z|@Y!!o[Y!!o͎*z*z)^#V*U ##)))!o͉*z*z)^#V!)))*U͛*z!u8*z*U ##u8*z{zY! 4* {"z*!!*ziD!z͎*z|Y*{!z ZûY!z*z^#V!z͎*!7!*ziD!z͎*z|KZ*{!z]ZûY!z*z^#V!z͎*!!*ziD"* {"z*z*z)^#V!)))*U͛*z*z)^#V!)))!W͉*z*z)^#V!)))!_͉*z*z)^#V!)))!g͉   t"*"*#"*z}|x`8b!z*z^#V*z*{)^#V)))̀!Xa*{"^a* {"*{*{{ozg#"*2{za!!4* {"z*{"-b!z*z^#V*z*)^#V)))̀!͎**{{ozg#*)))!͉!!͎!!b*{" b* {"**{oz b*#"*"*#"*{}|a!!Vb!!͎c!!mb!4*|}b!4*{zb!4!}O͉!"c*!Ö́$*x&̈́$ͨ41|b* {"z!4!!͎!!͎!!ͨ!͎! *{{ozpg* {!!!>!!ͦ2!"[g!!*,{m*!A3w*#"4g!' ! 4*z*)^#Vz‰g!'4!"!"þg*z*)^#V!}|g*###"*#"**{zg* {!@!!>!!hͷ!*!!*!!*!!' !!ͦ2*1!A3w*,{m*!A3w*,{m*!A3w*,{m*!A3w*15%*15%*15%! 4!' !.4j ͝#Vm!CQm*p{x&w*^#Vm!GQm*r{x&w*^ yI!oͨ_!@$!W͎!!oN]! !gI!yI!Wy!_͎~]W!͟!!a!yI!oͨ!ͨ!_͎!!o !]* {"z!4o!_@!ya!]* {"z!4!!o]W!_X!yͨ! ͷ!g͎o!W@!yao!_@!yaͷ!͎!!/!!?T^* {"z!4!͎̀+$!͎̀+ͷ! ͷ!g͎o!XO͉!!y^_!W͟!! !gIͷ͞-!!o͎!`Oͨ4!"_!!o !͎!!gI!y-!͎! N"ɀhc*ɀ+**ɀ)))̀R!ͨ!y!͎!@!͎**ɀ)))̀!ͨ! !͎*ɀ#"ɀ*}|c!!c!O͉ßc!͟!͎!X!͎!̀/!OͿc!d!I!d!͎c*#"ңb!14<4|7d*z*z)^#V*z^#V)))!͉*z*z^#Vu8yd*z^#V*z^#V*zog)))!͉*z^#V*zogu8!̀x&Ö́$ͨ4* {"z!z*z^#V!)))̀"ˀ*ˀ ##*z}|d!4* {"z*{"f!!͎̀!z*z^#V*z  ÀQMPLAN ;`@V`dRB!"{͖* d  =""6#}|B=!"{ "}00-!~G#~ }q+ph##a"p#w *}"}" }"}* }*}*}}!a6#6#q#p*}" }* }|`i"}* ,X5 }HƐ'@'_ ERROR $ AT PC $"DM6#6#!"*{w#zw!">2DM}|*ڄ"^#V{^#V{_zWڄ{zҾ*w#ww#w###s#rq#p#!5#ʄOM+F+N*}|!"~#fo{z  >,*:}:}> >-*U}|*F>2<}~G#N#"U}"W}`i"Q}"S}w!#\&Å/ʃ&ʃ!ʃ\… x…2<}9UN. xQ"K}*S}|£*Q}"S}*U}ì+"S}*W}~#"W}2Y}*I}~#"I}*G}|+"G}ͼ> ij":}!<}454!9:Y}#/!&$͏$>$*͏*>*-)͏#.>-\̏͏*U}++!"U}ã:00!{~Gwog:00! !*|ʭF#N#èNͅ# xž ͅP"}2}z͋*}#"} {  >2{:}d2}2b}GW26}`i"4}2+}}*4}>'#>'#>'#>'#>'#>'#>'>'wڮ*4}Ϳ #~'w!+}~w:6}=826}!}ì}͞  }g bDZA}2}x2}iOG>F2}!}r#ti`)!}~'w#… ~ !} +» #?µ! < !}=> pT]w+ ~w!}}G#  m x   yG:N}2F}b >%2M}2C}2D}Z}w 2:N}2@}Gy@w:C}!D}>_ >_ 4!@}5<2F}:@}!?}G:A}x :B}OxGxҢ "}W?< =… z` zg !"}~ʢ bÈ :F} :D}!C}:@} :N} >-G:E}OW* $ $ :D}!C}  Oz y:N}ʩ—:C}—:}©×:}2> >0> 26}}g b!<}~2>}6:}@2B}!A} lr6!B}p2@}/O!} #~ ʌ y2?}=/2=}:@}>0é:6}=!@}5:@}2M}!=}~>.:<}!=}/:A}:B}G:?}G2?}x:6} !?}5 }|~#~#~#O~G!}|*##^#V}|?s#r##q#pw#w#~w#~w7!N#F#~#foho}|p`i}W:0!9BKÞ DM!9͞ !9! 9N#F#͞ ͷÖBKw !9DMw ͖DMw !9DM! 9DMw !9DM͖ͷͮ!9DMË ͮË DMw !9DM*!9DMw !9DMͷʹʹ*Lͷͫjͫ!9DMw d͌ͫ! 9DMw !9DMͷ̓j̓ë͌̓ÅDMZ!9DMw ͼ !9!9!9DM w |:|ʷ͖~ "(,O͖~>2}͖~"B͖3͖~"92}~,^͖R*}A:|ʏo&##a6#|Gw#†*}s#r:|#ʠ:}+~ʲ"·:} !c}q~!| w !s}rimproper input - reenter $AY|'##ap#q#w xs#rAgxB! w#wYDMgYDMg*}DM*}}|ODF#N# "}͈go͂ ڢOͅo&͂o&}2o&E{2xn&}!9>OP"}>2}y2}w# + :!}з! !}!}5q!!} }w+) p!}55 p!} + + + + + + 'm P'> 'm o g"}`i}â *}|• ɵ!}â ~#~#~#~#~#~#~#~#!}'w#'w#'w#'w#'w#'w#'w!9~A 6/OG #6= x>#w| DM!x& y), )2 )8 )> )D )J )P )| | ʖ zp x)yOxGyxڈ GyO#=t ogeop p )ګ #£ OÍ U `i!:}AE!B}:<}'5~ 2/<-Gyx/ : Gyx0:D}^2D}2C}:<}:>}2<}":}|ƒ:<}~W#^#:<}¬zʢ~# Ò|~:K}2<}9NS"I}"G}:Y}/!&\̏͏͏ʳ/͏âͼͳI g :<}> !{4O:9}3* YI Bg >2{> #> #I ]g :<}:{e> k͎b͎B!9}:{=B29}!6}~5*O}~+"O}0G>0 0:M}:A}:@} ͮü @PP"4}̀*4}!9~w{_!y+##!}2*7}  |g"7}!HU >'-lw# M>@2}2} #}͋ À*%*}§#}*&}"7}>26}:}Ww !}:6}w #}͋ w !}#}͞ !#}:6}w:#}W!}2#}w r24}2}o&G>Ow# $q#,:#}!}V$}Ϳ M>u}g b!*}< }!$}{7>' #i +>'w#>'w #†:#}2} !}~PM:4}M6!}~ U+w# @ }6w{26}$}!}~#!$}~#! }q#!}"4}~#M/G$}*4} +#4?MG+}*4}'w# :!6}5*4}#  }g !"}~ȯw+6+wo:}<2}OF!} 怮w J_#~ȓAPw>26}`i"4}2+}}*4}>'#>'#>'#>'#>'#>'#>'>'wڮ*4}Ϳ #~'w!+}~w:6}=826}!}ì}͞  }g bDZA}2}x2}iOG>F2}!}r#ti`)!}~'w#… ~ !} +» #?µ! < !}=> pT]w+ ~w!}}G#  m x   yG:N}2F}b >%2M}2C}2D}Z}w 2:N}2@}Gy@w:C}!D}>_ >_ 4!@}5<2F}:@}!?}G:A}x :B}OxGxҢ "}W?< =… z` zg !"}~ʢ bÈ :F} :D}!C}:@} :N} >-G:E}OW* $ $ :D}!C}  Oz y:N}ʩ—:C}—:}©×:}2> >0> 26}}g b!<}~2>}6:}@2B}!A} lr6!B}p2@}/O!} #~ ʌ y2?}=/2=}:@}>0é:6}=!@}5:@}2M}!=}~>.:<}!=}/:A}:B}G:?}G2?}x:6} !?}5 |:|ʷ͖~ "(,O͖~>2}͖~"B͖3͖~"92}~,^͖R*}A:|ʏo&##a6#|Gw#†*}s#r:|#ʠ:}+~ʲ"·:} !c}q~!| w !s}rimproper input - reenter $AY|'##ap#q#w xs#rAgxB! w#wYDMgYDMg*}DM*}}|ODF#N# "}͈go͂ ڢOͅo&͂o&}2o&E{2xn&}!9>OP"}>2}y2}w# + :!}з! !}!}5q!!} }w+) p!}55 p!} + + + + + + 'm P'> 'm o g"}`i}â *}|• ɵ!}â ~#~#~#~#~#~#~#~#!}'w#'w#'w#'w#'w#'w#'w!9~A 6/OG #6= x>#w| DM!x& y), )2 )8 )> )D )J )P )| | ʖ zp x)yOxGyxڈ GyO#=t ogeop p )ګ #£ OÍ U `i!:}AE!B}:<}'5~ 2/<-Gyx/ : Gyx0:D}^2D}2C}:<}:>}2<}":}|ƒ:<}~W#^#:<}¬zʢ~# Ò|~:K}2<}9NS"I}"G}:Y}/!&\̏͏͏ʳ/͏âͼͳI g :<}> !{4O:9}3* YI Bg >2{> #> #I ]g :<}:{e> k͎b͎B!9}:{=B29}!6}~5*O}~+"O}0G>0 0:M}:A}:@} ͮü @PP"4}̀*4}!9~w{_!y+##!}2*7}  |g"7}!HU >'-lw# M>@2}2} #}͋ À*%*}§#}*&}"7}>26}:}Ww !}:6}w #}͋ w !}#}͞ !#}:6}w:#}W!}2#}w r24}2}o&G>Ow# $q#,:#}!}V$}Ϳ M>u}g b!*}< }!$}{7>' #i +>'w#>'w #†:#}2} !}~PM:4}M6!}~ U+w# @ }6w{26}$}!}~#!$}~#! .x  {? )܏ A 0 l&_K|g}o 1 D &l&Ï ":}"|"|*|*|n ":}!9DMw !!}"O}:<}!2=}:L}¡ 2<}9NN:Y}#+ $ ͏$# >$:Y}ä * ͏*# >*ø . ͏#>.¸ 2N}S - ͏# .>-¸ >2C}2N}OS >2C}+ \̏͏ä 2E}3 > 2E} ͏#2 ,H >2M}2 !N}q.d >2=}͏#d X !?}q^w ͏j !A}q-ˆ >2D}͏>26}Z}͋ :}O 2@}2B}!}r#§ :N}ʵ =2F}:C}> â :C} :A}!B}67 y@G /2}+0.P:}/2}y“+0&:}=2}>Eʙeʙ7gyGʅ :}2}ҁxÅ:}ړ:}<2}+&y+ ʙG-_ʲxµ+7G+7OxG{G:}@*}wɯ2}y2}++->2})DM)) O +7:}&z/W{/_s#r:}=2}~#0:?^#V* }||~!b}N q!c} ^!|!s} n&*}"}*}!4#Çuu`'$7$`'$7?$z$N#FyA%x+͵'|V%~&~ws#r`'l%n&'AC!an'q++*zSS`'yxҢ%PY##a"?~n'BKv''*?~|`'++'zSS`'yOxG& ##a"A~n'BKv''*A~|~&DMxg&zg&|~#+/&'!`'yOxGm&yxJ&PYa"C~n'BKv''*C~SS!"C~_&!<}~2E~w2|&j *|&##axw#q#|v':E~2<} !|4^w|~&`'&a~&~_w# x&`'! an'BKv'++"H~| C :}RB="RU"|IR"+DM*}W*}{o>g+{z_yW͋!*} s#r!}~w"}zm!!9"}*u*u+uzҶ!!9"}+u+u*}*}s#r͡*}!0! ~#~!}>w:}2(~!!(~53ͫ :}2}*}+"}ì*}"}!}~wS͙͋"}:}*}~A *}|eRE"!9"}*}*}#{zڧ"}:}*}n&:}͙͋"}Ý!|e , Gy2 p#*}|A|!")~  7.!*} *3~~# !u6*3~"}6!6*3~"}6!!͹>2}}*} 6?##6?!"5~_*}~ʁ!=_"}<EX]"}<EX##FNu!`*}O yŷ!~##!!!~#!!*5~"5~å!62}*5~)!*}!\"}}!hw#"!e~ 8"6O#6V#6Ld"CQ"#~OK"#~Md"CTOK"#~VK"#~LK"\:00ڀ"!b~w<CM*}*#¥" "¯"##"N#F#x" g o" ="  GO" _ W"yx "Ó"" ~WEXzZ"}WEXz%"}<EX*}^w#Vw* }||~!"}>2~zW{_!~5ʏ*}w |g}o"}*~|g}o"~b*~*}DM*};͙"}*}"}BN|>>>)=; a"};p#z *} "}"}}2}á}*}$ ~#$*} } w#%f}~#DF*}r+s"}:}=|!}~@w"})|v>(>NF|ʠ~ #~#ʟG*}:ʣz6#> 6 #=©x:Ҡw#2&~K .2&~K N k!"F~X'`'X'`i ##a"F~n' xB'G*H~p#z7'X'v'*H~+|"H~C''*F~|DM~G#N#zw#s#xʇ'@͠'|'yʙ'Ow# 'yOw#w#w#w#  '^#V* }||~!9 ''~#fo5%##('~#'='`i"J~^#V* }|)(*J~w#w}6(;(>=(>2O~!_~"}~!9N#F# y2T~~(2L~+~+ng# *}~s#r#"}~DM:L~=](+~+ng# :O~_ "U~a"W~*U~"[~)"Y~*W~+F+N ##6# x¼(~#fo#:O~_ og"]~:T~,)2L~*}~+V+^"}~)*[~*]~"[~ e"!0~6,!-~6!|".~?20~!|".~2-~:0~ <A K{e!0~f s*.~w#".~!-~~ s#r~#fo,F#NyOxO<*}as#rr#sOA#wzEAA;;<>"s#r*}|A €!}~ЇwWR"͡*}*}{_zW{z<ͫ=³͡Ҭ!}>w*}*}|DW"G:<}x *}| *}| a* {z#*|#+~w*"9~!";~*9~"7~j$T#*7~";~##^#V*7~"9~*{z*#h#*7~^#~W>##'#!";~*j$ʂ##~w+Ç#";~##^#V*{zq#:eO#]!!$#ª#*{z#\!ʻ#a$*\!*{z#\a$CX!9$(~#)$!À\ʀ\! "\\*;~}ʂ${Ozر~#foo$=`'PY`' |¿$##a"=~n'v'v'''*=~! 9SLz%|#%`'PY`'y_xW/%x$$# x$ ;"~!~"~xҟw#p~|Ÿ*}!DM!:+ w7 G>w:&~r._# X7*x:}>*x>2&~6?#`ڄ{҄_:ʟ*ʟ?ʘw#:}ڧIF>?Ó*}*}}O|Gr# x½*}*}#{z"}2'~͹.}z:'~*}!~w:'~*}!~w͍>*}!^w#Vw*}. s#rͬ>6zQ|EX*})}w#w}^#f|OEk2'~͹.}uzک*}!:~ʩ!~wͨ¬MEf} s#rf} ^#VzFU"}*})} ^#V"}*}"}!9"}á} (ER"+"}͋*}"}:}7*}! N#F p+q*}w!}>w!9"}}:<}e>"p:<}>"Æj ÆL :<}>,:<}ڞ>"p:<}>"ÿj ÿL :<}*}|++> +|> > *}!0! w#w*}+"}!}~w*}*}|EFf} ^w#VwzCU""}͋ͭ͡͡z^ EX} w#w6!à })~#fo' *1~#"1~{zp f} ^w#VwzDU""}ͭ͡zڿ EX͒^ !9"}!͹}u<FR"*}"3~!͹}u< s *Y~+r+s"Y~*M~+"M~|(#~#fo#)og"]~:L~=(*W~*J~s#r:T~=@)"~"~"~ů>MP*~k*ʿ)`i"~*~yx+"~ڿ)*~k*ʿ)`i"~\“)+ x‹)"~*~í)#))*~*~}|)!*~b**~b*"~2~!"~*~*~}|?*~*~~\!~*6 *!**~#"~*~#"~*~#}|)*~*~F*~*~#N!~~Z*x?^*#M*y0 !\*y_A6x7?|~|DM~G#N#/ *SQ.w ʹ~͋ w !}~G w!}!-o|g~x-ܴ>~͋ .ʹ~͋ ~w ~̓~ͮ=*Ë / 2~ *{"z***{{ozg*{ *{**{{ozgͦ2*z|J9*<{mV9*:{m*{m*z*)^#V*)))̀)5*,{m*{"z*6:>!!'*z*#)^#V"z*z*!)^#V"z*{*{̈́$*#x&̈́$*{̈́$*z*z)^#V5̈́$!0̈́$*{̈́$*{̈́$*!x&̈́$*{̈́$*z*z)^#V5̈́$*{̈́$!!U4*n:<4|T:*z*z)^#V7j:*zog*z^#V7*%G;>!)'*){z:*{*{̈́$*z*))^#Vx&̈́$*{̈́$*z*))^#V5̈́$*{̈́$!!U4*)|=;*{*{̈́$*)og*z^#V A1AAXS&YA1AIy&cypt dYd?Sh&&iyv&3uF=84SY592xXT(E133@P5D @cbe@(u?Bp6W>W"f(@E3Sx~͋ .ͮ~͋ w .ͫ~Ã~͋ /ͮ~ʹ! DM=/~ Ĵ~î!9DM    c MPERROR.FIL--, --Y#NORMAL RUN PGMPROGRAMCOMPUTECOMPUTE R/OC/OR/CC/R - - '!~ix!' *~ͨ4*~~5%*~5>!~'*{|d5*z|d5!!~d5*~*{+3m*~*z|5!!~ҁ5*>{m~!{ͱ~!{ͱ?Ү5*{*{+%m5*{"!~̀*z|5!!~5*:{m*~Ê6>!'*Ϳ%|6*~5%**{*!G)"*{zh6!(s%**+͉%̈́$*{̈́$**#*{ &̈́$!)s%̈́$5%Æ6!(s%*̈́$!)s%̈́$5%*7>! '* "z*@{m*z" 7*{ }o|g* *z{ozg###ͦ2* x&*{̈́$*z* )^#V̈́$! 3m* #"  Xw +͖x+ ͫ~!.͞ 2~>.͵/~͋ w ͼ ~w }.!6.m+`+ʹL+#P+:~',Ë :~}UË CbQYDes/ 2~=+LN>A.w ʹ͒/~͋ 2~~!.͞ ʹ/>͵/~͋ ~w ~!.͞ .>͵/~̓~ʹ~͋ :~AO> ,/GZ.ͮ.ʹ~ͮË ~͋ .w Ã/ :W zw  /ͫ/:}L,/ͮ:}s,ͮ/w,ͫ҂,!}~w:}:ک,~͋ /̓~͋ ʹB/>͵/Ë /w /ͮ͋ ;,/w !}~>w2~:}A,~͋ ~͋ -͒/~͋ /ͮ~ Ox&̈́$*{̈́$*)og*z^#V5̈́$*{̈́$!!U4*)"z*'Ç>>!-'!"+*/|*-|u;*+*{|ʀ;k>*z|ʋ;*=<4|ʖ;f<*/|W_*1{ozg|ʷ;*{"z<*zog*z^#V*-"z*z*z}|;*z"z*z{z;!"z*z*{{z<*z"{* {"z*z*{}|5<*z*{{ozg"{* {"z*z|M<9:* {"z*z7*z*z)^#Vogq:k>*-|W_*1{ozg|ʇ<*{"z;*z*z)^#V*/"z*z*z}|<*z"z*z{z!~'*~*${"~*~*${"~*{|2*{m*"{s%m*~s%m*~s%m*{+|(3*{m* *z* {z6*,{m* 7>!'!**{{ozgͦ2*z*)^#V*z^#V!{ozg|u7*{}o|g"{7*{"*z|ʓ7*8{m*+"Ù7*6{m*x&*{̈́$*z*)^#V*z^#V̈́$*3m*,{m*{"z*r8>!'**{{ozg*{ *{!ͦ2*z|8*8{m(8*6{m*{m*{!U +!0&*x&̈́$*{!0&̈́$*{+͉%m*,{m*{"z*9>!'*z*)^#V!{ozg|ʣ8*{"z**z*)^#V"*z*)^#V"**{{z**{}|**{{z**{}| 9 ͋ ~w ʹ>/͵/:~!}wË -O-~͞ ͑+w ʹ!9DM͋ *!9w!9-ʜ-DM͑+w ʹG--ʘ-~͞ ͑+w !9DMq-!9w! 9-S-DM͑+w !9DMʹD-~NE~!9͞ /;,~Ͱ,/w ~̓/Ë 07HWgtA1A@P\d5bEHyed"BA1PYTAE(('@ @@I@hfffff?hfffffA>533333>=ii<0$;9"sU':9"sU'9BT8!%8hxVg 7"hC60wYEG417Gv@`v'b1AAPX#C`QI"U&Àe(HBCTbDvRWaGv"C%T$a'ÙH%Csrb"(Hd ~x&m* {s%m*~x&m*"{s%m*{++|S3*{m*"{s%m*~s%m*~s%m*{+++|”3!s%m!Hs%m*~s%m!s%m!Vs%m*~s%m*~3>!~'*~{z3*~"~3!"~*~3>!~'*~͛3*{&*~̈́$*~͉%~5%*~94>!~'*~Ϳ%*~}o|g͛3*{&*~*~͉%̈́$~5%*~R4*z{zW_"~*~å4>!~'*~*~ͦ2*({Ϳ%{z4*~m*({má4*~*~P{ozg3m*~4>!~'*2{*~̈́$!!U4*,{m* {"z*~&5>!~'!0!@!!>!*~ m Cz|=9:* {"z*z7*z*z)^#Vq:k>*z*z)^#V*-"3*z*z)^#V*/"5*3*{}|k=*5#"5*{"3*5*z}|=*3#"3*z"5*3*{}|=*{"3*5*z}|=*z"5*5*{{z=*5"{* {"z*5*{}|=*5*{{ozg"{* {"z*3*{{z>*3"{* {"z*3*{}|*>*3*{{ozg"{* {"z*z|`>*z*zu8* {"z*z*5)^#V*z*3)^#Vu8*5*3͂9!"{!"{*z"+* {"7*+å>1*,{m*{*{J;"9*9ÓA*{"z͊>|ʹ>è>*z*{{ozg*{{z>*z*{{ozg"{*z*{{ozg*{{z ?*z*{ %h#     ORDERMODE ROWCOL= ENTER COMMAND NEXT STEPVERIFY (Y OR N) <--DONE.Purchased from: Copy number: Copyright Version,(C) COPYRIGHT, CHANG LABORATORIES,INC. 1981 . #Hewlett Packard 100 series = )12345678901234576789012345678901234567890MPSTATMPFORM TGͿ%{zBC!s%m*{m!s%m*G*GͿ%+͉%G5%A*1|aC*K͹&*\{!G)" gC!" * {zC*^{* ! &\%x&G5%+DA*~"{oz*GͿ%*?{zC*Km*G*K̈́$G5%A2"~*~s%K5%*K*V{!G)" *T{|D2* |DA*X{* ! &\%x&G5%*I*Aͦ2*Gm*GͿ%|SD*~=5%\D*G=5%*{"1*=sE>!O'*Ox&Ϳ%"W*S|•D* {"1D!(s%*U!G)|D*U*{̈́$!(s%̈́$*Qx&̈́$!0̈́$*Ox&̈́$!)s%̈́$U5%*U*S! 4yH*z*_)^#V5w*z*_)^#V!U "z*z*_)^#V!dU *z  {ozg"z*z*_)^#V*z {ozg"i*z {ozµI*z*_)^#V*z {ozg͍6yH*iI*{"z*z*z{zI* {"z*k*z#"z*z*z)^#VͬE"k*kÜJ*z*z{zJ!4* {"m*m*z#"z*z#"z*z"TJ*z*)*+*z^#V5%*+"**z}|1J*z*z)F5%*z|˜J*{*{̈́$*z#x&̈́$ͨ4*mJ<4|ʸJ!!J;"J!!J;"*|Jͨ>*o1K>!s'*s{z K*z*s)^#V*z^ {ozg"{*{+|?!"{*{+|'?!"{*{*{"{*{*{"{*{*z}|Q?*z"{*{*z}|e?*z"{!!ͦ2*4{m*6{m*~*{3m*{!ͦ2*{" ?KA**{}|?*{"*~*+͉%*{3m* #" *{}|?͊>|?è>!!ͦ2*6{m*{*{3m*{" 5@KA*~*#*{+ &*{3m* #" *{}|@͊>|K@è>!!ͦ2*6{m*{!0&m*{" À@* 7* #" *{}|r@͊>|ʖ@è>*{" A* 7*A}|@ A*:{m*{"@*{m*z* )^#V*z^#V*z*)^#V)))̀)5*#" MPPRINTMPSHOWMPLOGICMPEXTMPPOSTMPSPECMPDIFMPREG MPSERIAL.NUM MPSETUP.FIL A.01.00 ###.##C# (C), 1981 Chang Laboratories, Inc.E`SehJ&me800R&a79c23R&a0cR&dJh***##,###.####BB<BB<@PBX MPHELP.FIL UTLDATES.DAT CURRDFLT.FIL MPMENU.FIL PPMENU.FIL PPHELP.FIL::.Error while trying to load file from diskette.You may have a bad diskette.-SERIAL number! is missing or has been altered. P*W͖AG5%*z|E*M*GͿ%|.E*{"M*M*G"I*I*Q{z/*I*O}|/eE*I"M*M!4D*MéE*{!!!͖A͹&G5%*G!0$ʥE* {"z*YF>!]'*]Ϳ%|E!"[*[*]"z*{*]!G)#"_*]*_! &"z*{*]*_G)#"_*{*]*_G)"a*]*_*a*_{ozg &z5%*]*a#! &!z͎*{*]*a#G)#"_*]*_! &!z͎*z!U "z*z!dU *z  {ozg"z*z *z}o|g"[*[GG*z *z"z*zx&*{̈́$*zx #VͬE"q-K*sog*z^#V*z^#VͬE"q*qúK*z{oz*z{oz`K͟J*u*{*z{ozg*z{ozg|ʀK*u<4|ʜK*z*z)F5%óK*zog*zF5%͟J*uÓL*z*z{ozK*w*z{zK7L*zog*z^#V"I*I*{{z L*{"I*I*{}|L*{"I*z*I)^#Vog"zL*z*z)^#V"I*I*{{z[L*{"I*I*{}|oL*{"I*z*I)^#V"z*zq:* {"z9:*wL1*z{ozg|ʾL* {"z!"z!4ͽK*yL*{ͨ4ͽK*{L*}L*0-!~G#~ }q+p w*{}|@͊>|Aè>* #" *{}|@* {"z*z|DA*z*zu8*;9:*;*z* )^#V*z^#V~5%*~Ϳ%|zA*{~5%*{*~!G)"*;*;fD>!?'!:s%*Ë́$*C*AU4*~G5%*EͿ%*C##"I*{"7*GͿ%*I*Aͦ22"~*~s%K5%*{*{J;|Bͨ>*7|$B*{"7A*z|0B*=*~0}|/W_*1{ozg*~9{z/W_{ozg|gB×C*1|ŸB*~ }|/*~~{z/*~{zҟB×C*~*R{{oz²BC*~*L{{oz*~ {ozB{5%3U@{5%3U&{5%3U({5%!!F{]!H{]!B{]!D{]!J{]x!!Z{]!N{]!L{]x!!i!]x!s%\{5%!s%^{5%X!!]!]x*s%*\{̈́$\{5%*s%*^{̈́$^{5%*+"*|W!!i!R{]!T{]!]xX!!]!]x*s%*V{̈́$V{5%*s%*X{̈́$X{5%*+"*|;X!' *z}{oz±X*zm*m!YOwX*z*̈́$!cÖ́$"*z!lOͨ?*m!tOw*wBBB*m*w*m 5*{*z{z]*z+"{*{}o|g*{#*{ {ozg"{!!!!h{(*h{!+P5%*h{*h{^#V5%*h{*h{^#V5%*5%!"z!"z*{"z*{"z!"z*z"z!"{*z"{!"z*z"z!"z*z"z*}o|g"{!"{*{*{"{!"{*{*{"{*{*z}| ^*z"{*{*z}|4^*z"{!"z {!.P5%!!^ͷ!:P!!!>!!i!i!i!i!i!ix!' **̈́$*̈́$*̈́$*̈́$*̈́$n{5%!!5_ͷ!HP!!!>!!i!i!i!ix! "{!"{! !!!z(*z!N5%*z!N5%*z!N5%*z!O5%*z!O5%*z!O5%*z! O5%*z!(O5%*z!0O5%*z !7O5%!!!!{(!s%{5%!s%{5%!!aͷ*{zT!>O!!!>!!aͷ*{z?T!!i!i!]x!' !"RTB*#"HT!"!"*Ϳ%"!"âT**! &\% **"*#"*}|wT*Ϳ%"!"T**! &\% ** "*#"*}|T  ,*wBBBBB*5%*5%!"N!͎!!XYO!!͎*z*z !!ͱY!" b*z{z/*z{z/*zc{z*z{zY!" b*{++++|*{*{}|Y!" b*{++++|*{*{}|Z!" b*{|*{{z1Z!" b*{P}|GZ!" b* }|*c{zmZ!" b*s%{5%*|ʕZ*s%*{̈́${5%*|ʱZ*s%*{̈́${5%*m*,{m*z}{ozX[L!s%5%*m!Om*m!Om*m!Om* ' *"z*"z*"z*"z!!_ͷ!VP!!!>!!aͷé_!!]x**{{ozˆ_!' _!*z*)i*z*)]x* {|`_!!bͷ!bP!!!> {!nP5%S_*{Ϳ%{z`*{!͉%͹&!zP̈́${5%ͅ%Ϳ%{z!`ͅ%z5%*`z!}P5%*z!! &!P$K`! "Q`!"*z*͉%z5%*z*z!!!z(*z!!!z(*z!!!z(*z!!!z(*z!!!z(*z!!!z(*z!!!z(*z!!!z(*z!! ]**{ozg"*{z0U**{oz0UaÃU*5%wU!!]x*|cU*5%**s%*̈́$5%* {|?U*!!aͷ!LO!!!>!!aͷ!!zix!!z]!z]x!!{]!{]!{]!{ix!!i!{]!ix*"{*"{!!i!z]!{]!]x!!{]!]!]!]! {]x!!"{]!${]x3U{5%3U{5%*{3U5%*{3U5%*{3U5%*{3U5%3U5%3U.{5%3U,{5%3U5%3U0{5% -m!Om!"E[*m!Om*x&m!Om*m!Om*#"[*m!Om! "v{*{"r{*{"t{!"p{!*{&!Ö́$*{%{5%!O5%*Ϳ%*{*{{ozg"*{|¾[*+"***{++ &Ö́${5%*{+*{{ozg"*{++*{{ozg"*{{z\*+"*+"*!U *}o|g"*!U *}o|g"*!Oy-*{og!Oy-!ͷ!Oa!{͎*!Py-*{og! Py-!ͷ$!P !{͎*{og!#Py-!PI!{͎*{}o|g*{{ozg*{U +"{ 0,1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,00,1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,0rookieearthlingspace cadetyeomanlieutenantcommandercaptainvice admiraladmiraladmiral OXO XOX \o/ /o\ "M" wMw 7/h1!!!Z!!!G#z/W{/_!9~#fo! ! ! ! ! ! P!9~#A!9"w**w"j!z*"d!"f!Y"H>2^>2a>2`2c>2s2t>2r>2v!"@!"D!@"B!"F !F#x:~#!|2i~# :" 2i +}|~#:G:ix."2i+w# +6#!6#@A2n2?*j**|+`!#"0!#"2!>ڌo&͖=}  w~2ʸͼ56!+W ?_!~7z?ͧ:>͞@w#5\ ++++| \ ++|" \|1 4 E h19!h ? ! ? ! ? !B Usage: aliens is the level of difficulty from 0 to 9 level 0 is the easiest and is the default 9Ú11`0/æ! *w#w* w#w*&w#w! ** !a * ! *n ! * !A*; !H*J !R*Y !^*h !e*w !p* !z* !* !* !* !!<!r!!!!'!a!!!Attention: Alien invasion in progress!  -Type: <,> to move the laser base left   as above, for lefties  <.> to halt the laser base   for lefties  & to move the laser base right   for lefties   to fire a laser beam  <1> to play "Bloodbath"   W.ww#w#w#w*>?@͌>w#͌5> w#@ͧ͵g 2q&0OxG͵j/ʆSx\͞.7:77!a{  ʨ ʨ0:?ŷO !y$ 7o&))T])))!y, 2p_ :p*.'-ʌ&A*Œ&4͐8>2@,~Ė<#^#V#͢&̓6)))Y~0̿7G~`2@2@#~2@~?>&=2@#^#V#^#V# !* !* !* !* !* !* ! * w#w\ |š Ë *w#w*6#6*6#6 0,1, 0,1, 0,1, 0,1,0,00, 1,0, 1,0, 1,0, 1,0,0M* b͸{99@w{ÖüH!K]jU 2͵ ^#V#*~#fo^#*~#fo^#V#*n^#*n^#V# ~#fo^#& ~#fo!+!#!+!#!+!+}|z{|}|z7||7zZZ)|/g}/o#|͉k|/g}/o#ɯ2hZZk:h|/g}/o#|/g}/o#:h<2hqDM!xxGyO҃)v|͔`i|)Öxڷz/W{/_ѯzW{_=yOxGæ2hZZ͉M|}ȯ|g}o)|/g}/o]"@^#V"@:@ '*{@!:@@'"@*@#w"@*@~9'D'/Ϳ7͈?+"@*@+"@!6D"@6!^D"@*@~*@*@s#r#*@s#r#*@s#r#*@s#r#*@s#r#:@w#"@'*@*@s#r#*@s#r#*@s#r#*@s#r#*@s#r#:@w#"@'|E'}X27*@+~2@+V+^+"@V+^+"@V+^+"@V+^+"@V+^"@"@*@+~2@+V+^+"@V+^+"@V+^+"@V+^+"@V+^"@"@p';(ͯ''͋(!"@"K@2@<2@2@2@ͥ)( æ)s"&)(,!9DM*(w#wͻ; a ' <2> to play "We come in peace"  *<3> to play "The Aliens strike back"  +<4> to play "Invisible Alien Weasels"  <5> to play "Klinker"  "<6> to play "The Black Hole"  to quit 37/,2h1.0Jn9!!!\(!m$\!x$\ >p>ʯ>|>ʺ>ˆ>>”>> >>¬>!'!'!'!'!='!k'!*!C*w#w;"M |!M+|!MM M * s#r!M\ !\ !!Y"\ !!d"* w#w*~#foMs#rM!!m"*w#w;"*^#Vr+sz8"M!!o"QM!!q"*~#fo\(#s#r;"!9||   Î"/h1J,2Ö,ñ-Ö9n9*w#w\\"ң&\ |µ"\))*~#fo|"Ò&\))*^#Vr+s\))*~#fo = E B A C K !I N V I S I B L E A L I E N W E A S E L S ! K L I N K E R # T H E B L A C K H O L E ! Bases: %d òQ0B0ñ-\ +|M\(H*6#6M|*6#6ͩ|ͬ*:sk:&|g}o>Z.>!>z:>!>,F>!>CR>=>c^>=>/j>=>Xv>Y>x‚>Y>.Ž>Y> š>jt>¦>ʍ>²>ʍ>Q¾>ʍ>q>ʍ>>ʍ>1>ʓ>2>ʮ>3>>4> >XÆM!!D"M!!E"M!!F";"M###*s#rM!!G"üMM!I"MM#!K"ü* w#w\ |a\ ))*~#foMP\ ))*##~#fo#MP\ ))*##~#fo###MP\ \(\  ?`is#r\ +|ʉ͐\&`is#r͐|ҝ`i6#6*~#fo͐s#rMM#!M"\ |!O"\ ))*##~#fo\ !4*!F!!\ |1\!$*67#6\( *s#r\\q\*s#r\(*"s#r\"|ڞ*"6 #6\(*$s#r*w#w\|ұ!\\)!* w#w\ |Ҡ\ \|g}o\)-!'\ ?\ ))*\\)s#r\ ?\ ))*##\ ?s#r* ^#Vr+s*^#Vr+s*66#6*w#w*w#w*w#w*6#6*6H#60|T|z$\))*##~#fo\))*~#fo+v"!&y"\))*w#w\))*##~#foMw$\))*##~#foMw$\ |#MMv"!|"*^#Vr+s!F!v"\!&"*~#fos#r͂"\|$ͅ"!͈"M!v"!&y"*6H#6͋"8|S$*6#6\ |w$M!v"!|"Ò&\))*~#fo|%\))*~#fo|%\))*~#fok*\))*##~#fo)~#fo|%>>5>>6>5\ +|.5*6#65\ +|J5*6#65\ +|f5*w#w5M|Š*6#65ͯ5\ |ʟ5* 6#65\ |ʺ5* 6#65\ |5* 6#65\ |5* 6#65\ | 5* 6#65\ |&5* 6#65=h1!H:Sh1.0!9DM\ |ڇ͐|ڇ͐|҇! 6#6͐>—>>£>>¯>>»>>>&>>1>><>>G>>ʲ!Mi ))*~#fo!*w#w\ ))*w#w*^#Vr+s;"* ^#Vr+s* w#w\ \"4 M\ ))*~#fo# M\ ))*##~#fo# MM!Q"MM#!S"*w#w* ^#Vr+s\ ))*w#w;"* ^#Vr+slM|!M|!Mk*M)~#fo|!MM\ ++|¢ ! Mk*M)w#w!U"M| MM#!W"* *6#6*w#w*w#w\ |JMM!!-* w#w\ \"Ҋ\ ))*w#w* ^#Vr+sU*w#w* w#w* w#w\ |^!\ !*w#w\|M\ k*\)\ k**\)~#fos#rz4!-<!'*^#Vr+s* ^#Vr+së* w#wLevel:%2d Score: %-5d   B L O O D B A T H   EW E C O M E I N P E A C E ! T H E A L I E N S S T R I KL!M! M!M!M!M!#M! P!P!BP!0P!P!P!P!P!P!P!CP!0P! P\ |!P!BP!0P!P!P!CP!0P շ շ н й 2/JM|?*~#foMs#rM|Ҁ*6#6*w#wåM|ڥ*6H#6*w#w\ |MM,!//h1Ö,J!9DMM>>>> \))*##~#fo\))*~#fo+v"!&y"\))*##~#fo\))*~#fov"!&y"\))*~#fok*\))*##~#fo)w#w\))*w#w* ^#Vr+sÒ&\))*##~#fo\))*~#fo+v"!&y"\))*~#fo|Y&* ^#Vr+s\))*w#wÊ&\))*##~#fo\))*~#fov"!&y"*^#Vr+sÚ" Bases: %d *&n9/,2h1!9DM`i6P#6M |X'&* s#r!|U,! ^#Vr+s! ^#Vr+sns! ^#Vr+s! ^#Vr+s4͐6! ! s#r! n}¥5! ^#Vr+s!|ڥ5͐͐! n}ʂ5!0Å5! !5!9~#fo#|¢5!Ö6S5͐n}5͐͐! ^#Vr+sn&!5!9~#fo#|5!Ö6å5! n}56! ^#Vr+s!|56͐͐! !#6!9~#fo#|26!Ö65d6͐͐`in&!U6!9~#fo#|d6!Ö6Ó6͐͐`in&!6!9~#fo#|“6!Ö62!9å68!9DM`iw#w! 6#6͐ n! s{ 6! n} 6! ^#Vr+sü6! n}-7! 6#6! ^#+sÊ*\ +|+\ ++|+\* s#r\ |l+\ ))*~#fo|T+* ~#fos#r0+\))*##~#foM\$ڔ,\))*##~#foM###\$Ҕ,\))*~#fo|Ҕ,* w#w\ \"Ҕ,\ ))*~#fo|ƒ,\ ))*\))*~#fo#s#r\ ))*##\))*##~#fo##s#r* ^#Vr+sÔ,* ^#Vr+s+ß,/,2!!͙,\!,͜,%d ,7/,2Ö9,! ! ,\(|,*-\(1:r1 Y1*R=,1:t~02t:uo&=61:t'1=1:ro:R2rL12s&Y n1.0!9DM͐n}ʘ1! ^#Vr+sn&k1v1à1M2!9DM! ͝1`is#r!|1! ^#Vr+s͐s#rè1!9!9DM͐`is#r! ^#Vr+s! ^#Vr+sns{21͐#2!952.0÷2!9DM*02! 22S2ß6!9DM͐~#fon}o2!î2͐~#foP2`is#r͐~#fon}ʧ2͐^#Vr+sn},ʧ2Â2͐î2!92_7868Ù8!Y9DM! ^#Vr+s~#fo! s#r͐! s#r! ^#Vr+s'\ |)'* 6#6* 6#6I'* 6#6͐* s#r*6Z#6 (M !&\ |Ҋ'M!(&*^#Vr+s* ~#foM s#rM * s#r͐'\ | (M M !&! (&* w#w!9 <=%d=> 8(Ö,ñ-/J\#*s#r!|ګ(\|^(*w#w\|ʠ(\*s#r*6#6*w#w*w#w\))*~#fo* s#r!|((9(\ |)*~#fos#r,( Vr+s! ^#Vr+sn! s͢6|F7͐ ?! nѯg`is#r7͐͐?V7!9e7_7!9DM͐͐ ҳ7͐^#Vr+s͐ڠ7͐0è7͐7s!&7͐ ͐͐ ͉͐b7`is͐ ͐͐ )͐b7`in&#&7!9!9DM! n&|ͯ28! n&|ͩ<88!9DM`iw#w͐~#fon&98}ʉ8͐ ?͐^#Vr+snѯg`is#rJ8͐Ð8!9ß88!9DM! n&͜8|8! n&8! n&&!9DM! n&|ͯ8! n&|ͩk*;!W-,*(^#Vr+s!k-,! ! ,\(!-,!2,Congratulations %s - you have won at level %dNow let's see how good you are at level %d-/Jh1Ö9.09!9DM\ |ڞ.\ `is#r* 6#6* w#w\ |Ҏ.!\ ʹ-*w#w\|}.\ k*\)~#fo+|d.!ͷ-l.!/ͺ-*^#Vr+s&.* ^#Vr+s-͐* s#r\ |ڝ/\ `is#r* 6#6* w#w\ |҅/\ ))*~#fo|t/\ ))*n`is{ʖ6`in}%g6! ! s#r! 6#6! s! s! s͐n}-V3! ^#Vr+s! 4͐n}0f3! 4͐n&ͽ2}ʃ3! 2Æ3!! s#r! ^#Vr+sn`is{.3! 2! s#r! 4! ^#Vr+sn`is`in&2}D3U64X?4OH4Cʎ4Sʿ486͐~#fo|64! ^#Vr+s6-͐͐~#fos#r! ^#Vr+s! 6 N4! 6N4! 6! ~#fo! n&! ^#Vr+s~#fo! ͺ2ѯgs#r75! ^#Vr+s! ^#Vr+s~#fos! ^#Vr+s75! n}4! 6#6! ^#Vr+s~#fo! s#r͐n}75͐|75/(\|')\))*##^#Vr+s@)\))*##^#Vr+s\))*##~#fo*s#rzʕ)\\&K\(?ڡ)*6#6\\ 2(\|)!5(\))*^#Vr+s* s#r\\ 2(\\ |g}o\)5(\))*~#fo|+\))*~#fo|+\))*##~#fo*s#r* 6#6\ |+\\ |+\))*~#fok*\))*##~#fo\ )w#w* ^#Vr##~#fo\ ))*~#foʹ-\ ))*##~#fo\ ))*~#fo|g}o\ )ͷ-* ^#Vr+s.͐* s#r!2ͽ-!!ʹ-!-!B-!4--!9 *6*6=*6/h1!9DM͐ *s͐ *s*/40t0 !10H0t0!E0W0t0!T0f0t0 !c0z097P10O:rGyʑ0Ox ʨ0y  ʨ0  ʨ0Oxʵ0:vw0x0y02s000:t0<2ty2uxY1:P1=1:s~0:ROY1    |9"H"JJ9 ! ### 9"H"J  Wait a few seconds, and type a CR: $*H>H|9|97*J|g}o"Jzg{o"H|g #+|£9'z¦9 ʛ9 Û9|9!9DM! n&|ͯ28! n&|ͩ<88!9DM`iw#w͐~#fon&98}ʉ8͐ ?͐^#Vr+snѯg`is#rJ8͐Ð8!9ß88!9DM! n&͜8|8! n&8! n&&!9DM! n&|ͯ8! n&|ͩ"E" 780 LET L$(Z*20+25)="P" 790 PRINT": "; 800 FOR I=1 TO 50 810 LET L$(25)="I" 820 PRINT L$(I); 830 NEXT I 840 PRINT": "; 850 GOSUB 1130:PRINT D5;" : "; 860 IF D1=0 THEN LET C=1:PRINT"M "; 870 IF D1=16 THEN LET C=1:PRINT"M "; 880 IF D2=0 THEN LET C=1:PRINT"E "; 890 IF D2=14 THEN LET C=1:PRINT"E "; 900 IF D3=0 THEN LET C=1:PRINT"P "; 910 IF D3=12 THEN LET C=1:PRINT"P "; 920 IF C=1 THEN LET C=0 930 PRINT 940 LET D1=D1+1 950 LET D2=D2+1 960 LET D3=D3+1 970 IF D1=33 THEN LET D1=0 980 IF k40 GOSUB 1310 350 IF D1>D2 THEN PRINT" INVALID DATES " 360 LET X1=D1 370 GOSUB 430 380 LET Y1=X2:LETM1=X3:LET D1=X4 390 LET X1=D2 400 GOSUB 430 410 LET Y2=X2:LETM2=X3:LETD2=X4 420 GOSUB 470 430 LET X2=INT(X1/10000) 440 LET X3=INT(X1/100)-(X2*100) 450 LET X4=X1-((X3*100)+(X2*10000)) 460 RETURN 470 LET D4=(INT((Y2-1)*365.25)-INT((Y1-1)*365.25)) 480 FOR I=1 TO M1 490 READ J1 500 NEXT I 510 RESTORE 520 FOR I =1 TO M2 530 READ J2 540 NEXT I 550 LET J1=J1+D1 560 LET J2=J2+D2 570 LET L1=(Y1/ _ D2=28 THEN LET D2=0 990 IF D3=23 THEN LET D3=0 1000 LET J2=J2+1 1010 LET J6=J6+1 1020 IF J559 THEN LET J3=J3+L2 1180 IF J2<=J3 GOTO 1260 1190 NEXT I 1200 LET Y2=Y2+1 1210 LET L2=(Y2/4)-(INT(Y2/4)) 1220 IF L2=0 THEN LET L2=1:GOTO 1240 1230 LET <10 LET R1=(360/33)/57.2958 20 LET R2=(360/28)/57.2958 30 LET R3=(360/23)/57.2958 40 PRINT CHR$(26):PRINT:PRINT:PRINT 50 PRINT " ** BIO-RHYTHM  **" 60 PRINT:PRINT 70 PRINT "TO GENERATE A BIO-RHYTHM:" 80 PRINT 90 PRINT " - Type in the subject's birthday, a comma and the " 100 PRINT " current date." 110 PRINT " - Enter the number of days you want to cover." 120 PRINT " - Enter the name of the subject." 130 PRINT:PRINT:PRINT:PRINT 140 DATA 0,31,R4)-(INT(Y1/4)) 580 IF L1=0 THEN LET L1=1:GOTO 600 590 LET L1=0 600 LET L2=(Y2/4)-(INT(Y2/4)) 610 IF L2=0 THEN LET L2=1:GOTO 630 620 LET L2=0 630 IF M1>2 THEN LET J1=J1+L1 640 IF M2>2 THEN LET J2=J2+L2 650 LET D4=D4+J2-J1 660 LET D1=(D4-(INT(D4/33)*33)) 670 LET D2=(D4-(INT(D4/28)*28)) 680 LET D3=(D4-(INT(D4/23)*23)) 690 FOR L3=1 TO 50 700 FOR I= 1 TO 50 710 LET L$(I)=" " 720 NEXT I 730 LET X=SIN(R1*D1) 740 LET Y=SIN(R2*D2) 750 LET Z=SIN(R3*D3) 760 LET L$(X*20+25)="M" 770 LET L$(Y*20+25)= 59,90,120,151,181,212,243,273,304,334 150 DATA 365 160 DIM L$(50) 170 GOTO 240 180 PRINT "Do you want another Bio-rhythm?"; 190 INPUT " (YES or NO)";ANS$ 200 IF LEFT$(ANS$,1)="N" THEN SYSTEM 210 IF LEFT$(ANS$,1)="n" THEN SYSTEM 220 PRINT CHR$(26); 230 PRINT:PRINT:PRINT 240 RESTORE 250 PRINT"Enter birthday - comma - current date (YYMMDD,YYMMDD)" 260 LET P1=0 270 LET J6=1 280 INPUT D1,D2 290 LET D9=D2 300 PRINT"Enter duration " 310 INPUT J5 320 PRINT"Enter name of subject " 330 INPUT A$ 3 xL2=0 1240 LET J2=J2-365 1250 GOTO 1130 1260 LET M2=I-1 1270 LET D6=J2-J4 1280 IF J2=60 THEN LET D6=D6+L2 1290 LET D5=Y2*10000+(M2*100)+D6 1300 RETURN 1310 FOR I=1 TO 70 1320 PRINT"-"; 1330 NEXT I 1340 PRINT 1350 PRINT": Computerized study of Biorhythmic curves by Elmer "; 1360 GOSUB 1540 1370 PRINT": Subject, ";A$; 1380 GOSUB 1540 1390 PRINT ": Date of study- ";D9;"- Duration ";J5;"days "; 1400 GOSUB 1540 1410 FOR I=1 TO 70:PRINT"-";:NEXT I:PRINT 1420 PRINT": P=PHYSICAL E=EMO D$ 520 IF LEFT$(D$,1)="G" THEN 1500 530 IF LEFT$(D$,1)="g" THEN 1500 540 IF LEFT$(D$,1)="D" THEN 1470 550 IF LEFT$(D$,1)="d" THEN 1470 560 IF LEFT$(D$,1)="H" THEN 1360 570 IF LEFT$(D$,1)="h" THEN 1360 580 IF LEFT$(D$,1)="S" THEN 620 590 IF LEFT$(D$,1)="s" THEN 620 600 PRINT" RETYPE: "; 610 GOTO 510 620 IF C(L-2)<>C(L-4) THEN 600 630 PRINT"FIRST HAND" 640 B1=B 650 PRINT V$(C(L-2)) 660 X=C(L-2) 670 T1=X 680 GOSUB 2050 690 IF X<>1 THEN 720 700 T1=T1+10 710 GOTO 960 720 INPUT D1$ 730 IQ10 PRINT CHR$(26):PRINT:PRINT:PRINT:PRINT:PRINT 20 DIM C(52),V$(10) 30 INPUT "Do you want instructions (Y or N)";ANS$ 40 IF LEFT$(ANS$,1)="Y" THEN 2310 50 IF LEFT$(ANS$,1)="y" THEN 2310 60 C=0 70 FOR K=0 TO 3 80 FOR J=1 TO 10 90 C(J+10*K)=J 100 NEXT J:NEXT K 110 FOR J=41 TO 52:C(J)=10:NEXT J 120 V$(1)=" A" 130 V$(2)=" 2" 140 V$(3)=" 3" 150 V$(4)=" 4" 160 V$(5)=" 5" 170 V$(6)=" 6" 180 V$(7)=" 7" 190 V$(8)=" 8" 200 V$(9)=" 9" 210 V$(10)="10" 220 L=40 230 IF L<40 THEN 320 240 FOR J=1 TO TIONAL aM=MENTAL "; 1430 PRINT TAB(69)":" 1440 FOR I=1 TO 70:PRINT"-";:NEXT I 1450 PRINT 1460 PRINT":  LOW  : HIGH :"; 1470 PRINT" DATE :CRTICL"; 1480 PRINT":" 1490 FOR I=1 TO 70 1500 PRINT"-"; 1510 NEXT I 1520 PRINT 1530 RETURN 1540 LET J=70-POS(X) 1550 FOR I=1 TO J-1 1560 PRINT" "; 1570 NEXT I 1580 PRINT":" 1590 RETURN 1600 FOR I=1 TO 70:PRINT"-";:^NEXT I:PRINT 1610 PRINT": HIGH - Days of full vitality, efficiency, "; 1620 PRINT"an F LEFT$(D1$,1)="G" THEN 960 740 IF LEFT$(D1$,1)="g" THEN 960 750 IF LEFT$(D1$,1)="D" THEN 930 760 IF LEFT$(D1$,1)="d" THEN 930 770 IF LEFT$(D1$,1)="H" THEN 800 780 IF LEFT$(D1$,1)="h" THEN 800 790 PRINT" RETYPE: ";:GOTO 720 800 GOSUB 2050 810 IF T1>0 THEN 870 820 X1=0 830 C=C-B1 840 B1=0 850 PRINT"BUST" 860 GOTO 980 870 INPUT D1$ 880 IF LEFT$(D1$,1)="G" THEN 960 890 IF LEFT$(D1$,1)="g" THEN 960 900 IF LEFT$(D1$,1)="H" THEN 800 910 IF LEFT$(D1$,1)="h" THEN 800 920 PRINT" RETYPE: ";<52 250 Z=C(J) 260 R=INT(RND(J)*52+1) 270 C(J)=C(R) 280 C(R)=Z 290 NEXT J 300 L=1 310 PRINT " - - NEW DECK - - ":PRINT 320 T=0 330 T1=0 340 S=0 350 S1=0 360 PRINT:PRINT:INPUT"BET = ";B 370 IF B=0 THEN 240 380 IF B=999 THEN SYSTEM 390 IF B>500 THEN 360 400 IF B<1 THEN 360 410 IF B<> INT(B) THEN 360 420 GOSUB 2050 430 GOSUB 2200 440 PRINT " ";V$(C(L-1)) 450 GOSUB 2050 460 GOSUB 2200 470 H=C(L-1) 480 IF C(L-3)=1 THEN 1930 490 IF T=21 THEN 1800 500 IF T1=21 THEN 1880 510 INPUTAd high endurance"; 1630 GOSUB 1540 1640 PRINT": LOW - Days of reduced efficiency, recuperation, "; 1650 PRINT"tire easily"; 1660 GOSUB 1540 1670 PRINT": CRITICAL - Days to avoid situations that might "; 1680 PRINT"lead to trouble"; 1690 GOSUB 1540 1700 FOR I=1 TO 70:PRINT"-";:NEXT I:PRINT 1710 PRINT TAB(31);"PAGE ";P1 1720 RETURN T"lead to trouble"; 16URN 1600 FOR I=1 TO 70:PRINT"-";:NEXT I:PRINT 1610 PRINT": HIGH - Days of full vitality, efficiency, "; 1620 PRINT"an  :GOTO 870 930 B1=2*B 940 GOSUB 2050 950 IF T1=0 THEN 820 960 PRINT:PRINT T1 970 X1=T1 980 PRINT"SECOND HAND" 990 B2=B 1000 PRINT V$(X) 1010 T1=X 1020 GOSUB 2050 1030 IF X<>1 THEN 1060 1040 T1=T1+10 1050 GOTO 1320 1060 INPUT D1$ 1070 IF LEFT$(D1$,1)="G"THEN 1320 1080 IF LEFT$(D1$,1)="g"THEN 1320 1090 IF LEFT$(D1$,1)="D" THEN 1300 1100 IF LEFT$(D1$,1)="d" THEN 1300 1110 IF LEFT$(D1$,1)="H" THEN 1140 1120 IF LEFT$(D1$,1)="h" THEN 1140 1130 PRINT " RETYPE: ";:GOTO 1060 1140 GOSUB 2050  ther card)" 2480 PRINT" GOOD (stand on current total)" 2490 PRINT" DOUBLE (double your bet and draw one card)" 2500 PRINT" SPLIT (form two hands from a pair with the original" 2510 PRINT" bet on each hand)" 2520 PRINT:PRINT"Commands may be typed in as the FIRST LETTER" 2530 PRINT "To exit program enter 999 as a bet":PRINT" - GOOD LUCK! - ":PRINT 2535 INPUT "PRESS TO START GAME";W9:PRINT CHR$(26) 2540 GOTO 60  enter 999 as a' bet":PRINT" - GOOD LUCK! - ":PRINT 25 0 PRINT": BUST" 1600 C=C+B 1610 PRINT"YOU HAVE $";C 1620 GOTO 230 1630 IF LEFT$(D$,1)="S" THEN 1690 1640 IF LEFT$(D$,1)="s" THEN 1690 1650 IF T1>T THEN 1600 1660 IF T1=T THEN 1610 1670 B=-B 1680 GOTO 1600 1690 IF T>X1 THEN 1780 1700 IF T=X1 THEN 1720 1710 C=C+B1 1720 IF T>X2 THEN 1760 1730 IF T=X2 THEN 1610 1740 C=C+B2 1750 GOTO 1610 1760 C=C-B2 1770 GOTO 1610 1780 C=C-B1 1790 GOTO 1720 1800 IF T1=21 THEN 1850 1810 C=C-B 1820 PRINT" ";V$(H); 1830 PRINT" BLACKJACK" 18 head-" 2320 PRINT"to-head with the computer, simulating the exact rules as those" 2330 PRINT"on the Las Vegas strip. The cards are dealt from one 52-card" 2340 PRINT"deck until a hand starts with less than 12 cards remaining, in" 2350 PRINT"which case it reshuffles. The dealer MUST hit through a total" 2360 PRINT"of 16 and stand on all totals of 17 and above." 2370 PRINT:PRINT:INPUT"TYPE TO GO ON";W9 2380 PRINT CHR$(26); 2385 PRINT"The INSURANCE bet is offered at half the player's bet w D1150 IF T1>0 THEN 1230 1160 X2=0 1170 C=C-B2 1180 B2=0 1190 PRINT"BUST"; 1200 IF X1>0 THEN 1510 1210 PRINT " ";V$(H) 1220 GOTO 1610 1230 INPUT D1$ 1240 IF LEFT$(D1$,1)="G" THEN 1320 1250 IF LEFT$(D1$,1)="g" THEN 1320 1260 IF LEFT$(D1$,1)="H"THEN 1140 1270 IF LEFT$(D1$,1)="h"THEN 1140 1280 PRINT " RETYPE: ";:GOTO 1230 1290 B2=2*B 1300 GOSUB 2050 1310 IF T1=0 THEN 1160 1320 PRINT:PRINT T1 1330 B=B1+B2 1340 X2=T1 1350 GOTO 1510 1360 GOSUB 2050 1370 IF T1>0 THEN 1410 1380 PRINT640 GOTO 1610 1850 PRINT"BLACKJACK" 1860 PRINT " < "; 1870 GOTO 1820 1880 PRINT"BLACKJACK" 1890 PRINT" ";V$(H); 1900 PRINT 1910 C=C+1.5*B 1920 GOTO 1610 1930 INPUT" INSURANCE ";I$ 1940 IF LEFT$(I$,1)="Y" THEN 1980 1950 IF LEFT$(I$,1)="y" THEN 1980 1960 PRINT " W "; 1970 GOTO 490 1980 IF T=21 THEN 2010 1990 C=C-.5*B 2000 GOTO 1960 2010 PRINT " e 10"; 2020 IF T1<>21 THEN 1830 2030 C=C+B 2040 GOTO 1830 2050 IF T1>10 THEN 2090 2060 IF C(L)<>1hen" 2390 PRINT"the dealer's up-card is an Ace.":PRINT 2400 PRINT"You may DOUBLE-DOWN on any two cards, and receive one more" 2410 PRINT"card while the original bet is doubled.":PRINT 2420 PRINT"You may split any hand, but resplitting is not allowed." 2430 PRINT"Also, only one card is dealt on each of a pair of aces.":PRINT 2440 PRINT"Your cards appear in the far left column; the dealer's on the" 2450 PRINT"far right. ":PRINT 2460 PRINT" THE COMMANDS ARE AS FOLLOWS:" 2470 PRINT" HIT (draw ano ="BUST"; 1390 PRINT" ";V$(H) 1400 GOTO 1670 1410 INPUT D$ 1420 IF LEFT$(D$,1)="G" THEN 1500 1430 IF LEFT$(D$,1)="g" THEN 1500 1440 IF LEFT$(D$,1)="H" THEN 1360 1450 IF LEFT$(D$,1)="h" THEN 1360 1460 PRINT " RETYPE: ";:GOTO 1410 1470 B=2*B 1480 GOSUB 2050 1490 IF2 T1=0 THEN 1380 1500 PRINT:PRINT T1; 1510 PRINT" ";V$(H); 1520 GOTO 1550 1530 GOSUB 2200 1540 PRINT" ";V$(C(L-1)); 1550 IF T<17 THEN 1530 1560 IF T>21 THEN 1590 1570 PRINT":";T 1580 GOTO 1630 159 THEN 2090 2070 T1=T1+10 2080 S1=1 2090 T1=T1+C(L) 2100 PRINT V$(C(L));" "; 2110 L=L+1 2120 IF T1<=21 THEN 2190 2130 IF S1=0 THEN 2170 2140 T1=T1-10 2150 S1=0 2160 GOTO 2190 2170 T1=0 2180 PRINT 2190 RETURN 2200 IF T>10 THEN 2240 2210 IF C(L)<>1 THEN 2240 2220 T=T+10 2230 S=1 2240 T=T+C(L) 2250 L=L+1 2260 IF T<=21 THEN 2300 2270 IF S=0 THEN 2300 2280 T=T-10 2290 S=0 2300 RETURN 2310 PRINT CHR$(26):PRINT:PRINT 2315 PRINT"This blackjack program enables the operator to play Z :t2tGy@w:t!t>+ >+ 4!t5<2t:t!tG:tD :tOxGxn tW?< =Q zc zj !t~n ^T :tœ :t!t  :t :t >-Ͳ G:tOW*ʰ $° $ :t!t  O zͲ yͲ:tuc:tc:tuc:t > Ͳ>0ò> 2ttj ^!t~2t6Ͳ:t@2t!t 8<7w>>6!tp2t/O!t #J X y2t=/2t:t>0̲u͊Ͳ:t=!t5o:tͧ2t!t~>.ܲ:t!t/:t¿:tG:tҷGø2txͧ:t!t5͊Ͳÿ:tͧ:t>EͲ!t:t5~ /<-Gy'}|~#~#~#O~G!}|*##^#V}|?s#r##q#pw#w#~w#~w7!N#F#~#foho}|p`i}W!9BKá DM!9͡ !9! 9N#F#͡ ͱÒBKz !9DMz ͒DMz !9DM! 9DMz !9DM͒ͱͪ!9DMÎ ͪÎ DMz !9DM$ !9DMz !9DMͱͰͰ $Fͱͧdͧ !9DMz ^͆ͧ! 9DMz !9DMͱd å͆DMV!9DMz !9!9!9DM  z ͪq:tз$ !t!t5q!ttw+, p!t55 pt + + + + + + 'p P'> 'p o g"t`itå *t|˜ ɵ!tå ~#~#~#~#~#~#~#~#!t'w#'w#'w#'w#'w#'w#'w!9~A 6G>Mw|! DM!x, y)2 )8 )> )D )J )P )V )| | ʜ zv x)yOxGyxڎ GyO#=z ogeov v )ڱ #© OÓ [ `i!:tA !s4O:t*. Y 3 ͘>2s> >  '3 :t:s/> <59 9:t,*s&:s5 >5X,X !t:s= 2t!t~5*t~Ҟ+"tâ0G>0Ͳè0:t:t:t>,*t:t> >-*t|*F>2t~M @PP"tz*t!9~w{_!y+##!t2*t  |g"t!H[ >'-fw# G>@2t2t t͎ z %*t£t*t"t>2t:tWz !t:tw t͎ z !tt͡ !t:tw:tW!t.tz r2t.to&G>Ow# q#(:t!tRt I>qtj ^!t? t!tw7>' #e +>'w#>'w #‚:t2t !t~PI:tI6!t~ Q+w# @ y6w{2tt!t~#!t~#!tq#gDM!x  "t"s"sͺ*s*s: "t!9DMz !t"t:t 2t:tm 2tNN:t# $ U$ >$Ͳ:tp *Ÿ U* >*Ä .· U#>.„ 2t - U# .>-„ >2t2tO >2t \UIJUp 2t > 2t U# , >2t !tq.0 >2tU#0 $ !tq^C U6 !tq-T >2tU>2tt͎ :tO 2t2t!tr#s :tʁ =2t:t> IJn :tʝ Ͳ:t!t6 y@Gʷ /%Ͳ2t2t2ttz QP8)CATCHUM x&'#&F'#)!"s͖* d  =""6#}|B=!"s "}00-!~G#~ }q+ph##a"p#w *t"t"t"t*t*t*t}!a6#6#q#p*t"t*t|`i"t* ,X5 }HƐ'@'_ ERROR $ AT PC $"DM6#6#!"*{w#zw!">2DM}|*ڄ"^#V{^#V{_zWڄ{zҾ*w#ww#w###s#rq#p#!5#ʄOM+F+N*}|!"~#fo{z *!t"t~#I+Gt*t '#4?IGt*t'w# 6!t5*t# tj !t~ȯw+6+wk:t<2tOF!t 怮w F_#~ȓALw>2t`i"t2tt*t>'#>'#>'#>'#>'#>'#>'>'wڪ*t #~'w!t~w:t=42t!tèt͡ tj ^DZAy2tx2teOG>F2t!tr#pi`)!t~'w# z !t +· #?±! ? !tڽ=>q# pT]w+ ~w!ttG# q:tз$ !t!t5q!ttw+, p!t55 pt + + + + + + 'p P'> 'p o g"t`itå *t|˜ ɵ!tå ~#~#~#~#~#~#~#~#!t'w#'w#'w#'w#'w#'w#'w!9~A 6G>Mw|! DM!x, y)2 )8 )> )D )J )P )V )| | ʜ zv x)yOxGyxڎ GyO#=z ogeov v )ڱ #© OÓ [ `i!:tA !s4O:t*. Y 3 ͘>2s> >  '3 :t:s/> <59 9:t,*s&:s5 >5X,X !t:s= 2t!t~5*t~Ҟ+"tâ0G>0Ͳè0:t:t:t>,*t:t> >-*t|*F>2t~M @PP"tz*t!9~w{_!y+##!t2*t  |g"t!H[ >'-fw# G>@2t2t t͎ z %*t£t*t"t>2t:tWz !t:tw t͎ z !tt͡ !t:tw:tW!t.tz r2t.to&G>Ow# q#(:t!tRt I>qtj ^!t? t!tw7>' #e +>'w#>'w #‚:t2t !t~PI:tI6!t~ Q+w# @ y6w{2tt!t~#!t~#!tq#gDM!x  "t"s"sͺ*s*s: "t!9DMz !t"t:t 2t:tm 2tNN:t# $ U$ >$Ͳ:tp *Ÿ U* >*Ä .· U#>.„ 2t - U# .>-„ >2t2tO >2t \UIJUp 2t > 2t U# , >2t !tq.0 >2tU#0 $ !tq^C U6 !tq-T >2tU>2tt͎ :tO 2t2t!tr#s :tʁ =2t:t> IJn :tʝ Ͳ:t!t6 y@Gʷ /%Ͳ2t2t2ttz *!t"t~#I+Gt*t '#4?IGt*t'w# 6!t5*t# tj !t~ȯw+6+wk:t<2tOF!t 怮w F_#~ȓALw>2t`i"t2tt*t>'#>'#>'#>'#>'#>'#>'>'wڪ*t #~'w!t~w:t=42t!tèt͡ tj ^DZAy2tx2teOG>F2t!tr#pi`)!t~'w# z !t +· #?±! ? !tڽ=>q# pT]w+ ~w!ttG#   G#N#"t"t`i"t"t!#"&K/I&I!I\K xK2tUN. x"t*t|i*t"t*tr+"t*t~#"t2t*t~#"t*t|+"t͂> yò"t!t454!:t#/!&$U$>$Ͳê*U*>*-U#.>-\UͲUí*t++!"to:00!{~Gwog:00> !> !>*o|qF#N#lNK# xb K " u2u:00ҘS*t#"tҀ s  >2s:u,2 u2tGW2 u^͊~" )!*xu!\"hu.!hw#$!!e~ >!6O#6V#6Lj!CW!#~OQ!#~Mj!CTOQ!#~VQ!#~LQ!\:00چ!!b~w<CM*t*"«! !µ!##!N#F#x" g o! =!  GO! _ W!yx !Ù!!* {z "*|!"+~w*"u!"u*u"u͋#Z"*u"u##^#V*u"u*{z0"n"*u^#~WD"#-"!"u*͋#ʈ"#~w+Í""u##^#V*{zw":eO"]!H##°"*{z"\!"͂#*\! ~!"u>2uzW{_!u5@*u( |g}o"u*u|g}o"u*u*uDM*hu9J"jut*ju"jutBN|>>>)=~9 a"hu9p#z“͵ *hu "ou"qu}2suRlu*hu$ ~#$*hu lu w#͵u~#DF*hur+s"lu:su=|!nu~@w"tu)|'>(>NF|P~P#~#OG*hu:00Ҩ#> 6 #=Uxs:sw#2uʤڌ zʤ.ˆ2uʤ ™"u!u"uxOw#·pu|O*hu!~!86w!DM!0 w#ä:urs+r*u*u|V#^#*u&##a"ur#s8#w x3:uPOs#w H*u|*u"u> fs#r.Ü.â>"fs#r*lu| “!nu~ЇwWR!R*ou*ju{_zW{zw*xu*vu|DW!G:tx *lu|*zu|ER!+"zuv,͞*ju"ou:nuJͅ*hu! N#F p+q*ouw!nu>we}:tq>"<:t>"Ò6 Ò :t>,:tڪ>"<:t>"6  :tܛ*zu|++> +|> > ͛* ͖^^~"2 uͥ~,&^* u:sWo&##a6#sGw#N* us#r:s#hͥ: u+~z":u À!tq~!s w !trimproper input - reenter $|##ap#q#w xs#r/x ! w#wDMâ/âDMÜ/Ü*tDM*t}|GODF#N# "tNgoHOKo&Ho&}2uo&E{2xn&}!9O͢ "u>2uy2uw# ±+2 u2u +->2u0. : uڑ/2 uyN0I*{z"\‚#*#  overlay does not match root$!`#"~#P#!À\ʀ\\*u}ʣ#{Ozر~#foÐ#=&PY& |###a"u)&1&1&&&*u! 9SLz:$|D$&PY&y_xWP$x$$# x$&&4$6$ɯ>&$7$&$7?$z$N#Fyb$x+p&|w$~&~ws#r&ʍ$n&&AC!a)&q++*zSS&yx$PY##a"u)&BK1&&*u|&++&zSS&yO".# 7*(:|u>*(>2u6?#`4{4_:O*O?Hw#:|uWIF>?C*ju*qu}O|Gr# xm*qu*ou#{z"ou2uj.:00:uҶ*hu!~w:u*hu!~wyH*hu!^w#Vw"}u\>*tu)uw#w>u^#f|OEk2uj.yM:00I*hu!8~I!~wyR\ME>u s#ru ^#VzFU"hu*tu)>u ^#V"vu͵*lu"zu!9"xuRnu ڻ:suRB=!RU!|IR!+DM*lu*ju{o>g+{z_yW͞!*hu s#r!nu~w"ou-hu!.! w#w*ou+"ou!nu~w*xu*vu|EFu ^w#VwzCU!"huR͵͞RW>u w#w!Áu)~#fo3*u#"u{znu ^w#VwzDU!"huRWyM\!9"xu!j.0<FR!*hu"u!j.0< *hu *u~# y0*u"hu!*u"hu!!j>2|u.*hu 6?##6?!"u_*hu~| =_"tWEX:00| ]"tWEX:00ڝ ##FN0 `*juO yŷ ~##  ~#  *u"uë 2|u*u 7:u=2uETeT"yÑG@ :u2u<x@: uN:u<2uy TG-_mxpڑGڊOxG{‘G:u@*uwɯ2uy2u+->2u)DM)) O Ҿ:uz/W{/_s#r:u=2u~#0:?^#V* }||~!tN q!t ^!s!t n&*hu"t*hu!4#B0000<CE!0;"0;:00*hu0t:00ڛ| "tWEX:00ڻZ"tWEX:00%"t<EX*hu^w#Vw* }||:0!e͝z*0͝z*0͝z+0:0W!e͝z+0͝z+0*}u*jus#rR*hu!.! ~#~!nu>w:su2udº!u5\è:nu2nu\v͞J"ouͅ:nuԅ*ou~ *lu|RE!ev:nu͞J"ouͅ:nuԅ*oun&!s 6,a WGy24 p#4*lu|s!"u ʌ"ʌ!u6,!u6!s"uï2u!s"u2u:u ¬ »!u *uw#"u!u~&>2u!u"sW player gameL = Change level of difficultyI = Instructions E = Exit CatChum Version : Terminal: Up = Down = Left = Right = High Scores) 0 Last Play : 0Enter one of the above: Go for it!What are you waiting for???E ExitingB412CILLEVELMENSCOREHYPERPlayer 1 2ScorCe 0 0Level ###### ######Cats>> HYPERSPACE ACTIVE << ! Press Any Key to Start Game!   vGET SET! ./|/. . . ./|/J ./|1+---+/./+------/ /|/ /------+/./+---+1//|/./|/ j j /|/./|//1--+/./|/ /+-----=-----+/ /|/./+--1<  J j/|///|/j J  >1--+/./|/ /+-----=-----+/ /|/./+--1//|/./|/j  j/|/./|//1+---+/./|/ /------+------/ /|/./+---+1|/. J . J . . ./|/. . . J . J .O/|1|/./------+/./-------/./|/./-------/./+------/./|1|/o . . ./|/J . J . . J ~pause the game. If you areBlucky, hyperspace can be achieved with a SPACE, then YAHOO you aresafe ... or are you?>Just remember, its only a game ... only a game ... only a game$Type RETURN to return to main menu: SORRY SUCKER!NICE TRY, PAL!YOU'RE OUT OF HERE, DADDY!AW, FOR CRIPE'S SAKE RICKY!FORGET IT, PAL!GET THIS GUY OUTTA HERE!WHO IS THIS GUY ANYWAY ???5.13 CATCHUM.DAT CATCONF.COM$ .o. $    AAmMCcG CCCCCC  tt CCCCCC hh  uu!9N#F# y2u9'2u+~+ng# *us#r#"uDM:u='+~+ng# :u_ "ua"u*u"u)"u*u+F+N ##6# xw'~#fo#:u_ og"u:u'2u*u+V+^"u'*u*u"u*u+r+s"u*u+"u|°'#~#fo#)og"u:u=Ÿ'*u*us#r:u='"v"u"vů>MP*u))}(`i"u*vyx+"u}(*v))!ʀ(`i"v\Q(+ xI("v*uk(#͏(ڀ(*v*u}|a(!*v )*u )" v2 v!" v* v*u}|?* v*v~\! v(6((* v#" v* v#" v*v#}|Ҝ(* v*vF*u* v#N! v~)x?)j- J . . J . J/|/. . . o/|1+------/./|/./|/./--L-/./|/./|/./------+1|/. . . J . ./|/. . . J . J . . ./|/. . J . . ./|1|/./--+------/./|/./------+--/./|1|/ . J/|/J ./|1+ -- -+/v/+/v/+ ---+ #Linking to configuration program...Unable to link to &CatChum configuration program missing.CatChum not configuredYY0 Bonus! E \ .oJj=/<>^v-+|\-+|Hyper'sDifficulty level: NO HYPERSP tm&CC CC tt CC CC hhACC  aaaa tttttt CC hhhhhh uu uu mmBCC aa aa tt CC "hh hh uu uu mm mm mmBCC aa aa tt CC hh hh uu uu mm mm mmBCC CC aa aa tt CC CC hh hh uu uu mm mm mmB CCCCCC aaa aa ttt CCCCCC hh hh uuuuu mm mm mm(c) 1982, 1983 Yahoo Software10970 Ashton Av Suite 312C4Los Angeles, Ca 900241 = 1 player game2 = 2l# )y0 !)y_A6x7?|~|DM~G#N#=""6#}|B=!"s "}00-!~G#~ }q+ph#1+ -- -+/^/+/^/+ ---+1|/. J . J/|/J . J ./|1|/./+-----+/./+-----+/./|/./+-----+/./+-----+/./|1|/o/|/////|/./|/////|/./|/./|/////|/./|/////|/o/|1|/./+-----+/./+-----+/./|/./+-----+/./+-----+/./|1|/J . J . J . . ./|/. . . J . J .; J/|1|/./-------/./|/./------+------/./|/./-------/./|1|/. J/|/. . . ACE FUEL!!SHECKY, GET THE JET! C C \ Press RETURN to continue -GET SET!@PMA AYou are now in the dimension of computer games ... a dimension of0spaces and escapes; a matrix of BIOS and memory.ATo survive, move the CAT (shown as a 'C') by typing the directionAbuttons (specified in the configuration). Escape the backspacing*CHUMS which will delete you lickety-split.BYou will receive a new CAT for every 10,000 points and on each newlevel.>When times are bad, type ESCape to ZxG$% ##a"u)&BK1&&*u|~&DMx%zʈ%|~#+P%&!&yOxGڎ%yxk%PYa"u)&BK1&&*uSS!"uÀ%!t~2uw2s%6 *s&##axw#q#s1&:u2t !s4^w|~&&%a~%~_w# x%&! a)&BK1&++|DM~G#N#zw#s#xB&@[&7&yT&Ow# K&yOw#w#w#w# [&^#V* }||~!9 ʲ&ʭ&~#foV$##ü&ô&~#´&=Ž&`i"u^#V* }|&*uw#w}&&>&>2u!u"uu!9N#F# y2u9'2u+~+ng# *us#r#"uDM:u='+~+ng# :u_ "ua"u*u"u)"u*u+F+N ##6# xw'~#fo#:u_ og"u:u'2u*u+V+^"u'*u*u"u*u+r+s"u*u+"u|°'#~#fo#)og"u:u=Ÿ'*u*us#r:u='"v"u"vů>MP*u))}(`i"u*vyx+"u}(*v))!ʀ(`i"v\Q(+ xI("v*uk(#͏(ڀ(*v*u}|a(!*v )*u )" v2 v!" v* v*u}|?* v*v~\! v(6((* v#" v* v#" v*v#}|Ҝ(* v*vF*u* v#N! v~)x?) .I DON'T BELIEVE IT!  POWER THROUGH!!! THANK YOU! Cc^<-_ YOU LOSE! YOU CHEAT!!!9 YAHOO! YAHOO! YAHOO! YAHOO! YAHOO! YAHOO! YAHOO!Player , you belong in history!Enter your name: Updating high scores...*@ HOOKA ! ----'!YOU BROKE THE GAME, DOG BREATH!!!I don't know what to do now. I got it!s!)"t"t!."t!1"dv!"fv!"vv*dv*fv!!!v&!!!!v&!!!!v&!!!!v&!!!!v&!!!!v&!!!!v&!!j- J . . J . J/|/. . . o/|1+------/./|/./|/./--L-/./|/./|/./------+1|/. . . J . ./|/. . . J . J . . ./|/. . J . . ./|1|/./--+------/./|/./------+--/./|1|/ . J/|/J ./|1+ -- -+/v/+/v/+ ---+ #Linking to configuration program...Unable to link to &CatChum configuration program missing.CatChum not configuredYY0 Bonus! E \ .oJj=/<>^v-+|\-+|Hyper'sDifficulty level: NO HYPERSP tm&CC CC tt CC CC hhACC  aaaa tttttt CC hhhhhh uu uu mmBCC aa aa tt CC "hh hh uu uu mm mm mmBCC aa aa tt CC hh hh uu uu mm mm mmBCC CC aa aa tt CC CC hh hh uu uu mm mm mmB CCCCCC aaa aa ttt CCCCCC hh hh uuuuu mm mm mm(c) 1982, 1983 Yahoo Software10970 Ashton Av Suite 312C4Los Angeles, Ca 900241 = 1 player game2 = 2l# )y0 !)y_A6x7?|~|DM~G#N#=""6#}|B=!"s "}00-!~G#~ }q+ph#1+ -- -+/^/+/^/+ ---+1|/. J . J/|/J . J ./|1|/./+-----+/./+-----+/./|/./+-----+/./+-----+/./|1|/o/|/////|/./|/////|/./|/./|/////|/./|/////|/o/|1|/./+-----+/./+-----+/./|/./+-----+/./+-----+/./|1|/J . J . J . . ./|/. . . J . J .; J/|1|/./-------/./|/./------+------/./|/./-------/./|1|/. J/|/. . . ACE FUEL!!SHECKY, GET THE JET! C C \ Press RETURN to continue -GET SET!@PMA AYou are now in the dimension of computer games ... a dimension of0spaces and escapes; a matrix of BIOS and memory.ATo survive, move the CAT (shown as a 'C') by typing the directionAbuttons (specified in the configuration). Escape the backspacing*CHUMS which will delete you lickety-split.BYou will receive a new CAT for every 10,000 points and on each newlevel.>When times are bad, type ESCape to   !!v&!!!!v&! !!!v&*vv!!!v&!!!!v&! !!!v&!!!!v&!!!!v&!!!!v&!!!!v&!!!!v&!*dv*fv!!!v&!!!!v&!!!!v&!!!!v&! !!!v&!!!!v&!!!!v&!!!!v&*dv*fv!!!v&z:!"w*wÍ:p:}/o|/g"w*wé:>!w͈&* w*wͱn*w:>!w͈&*wm* w::i"wS|:*w;>!w͈&*w*w{z:*w"w;*w"+++|/W_"Xv*w++++++|/W_"&v*wI*v|!3*JwÍ?>!Tw͈&*v*v)^#V*nv+*.v[ "Zw!"Vw|?!"Xwh?*Xw#"Xw*Zw}|a?*Vw#"Vw*Tw}|X?*Rwñ?>!^w͈&*jv*lv͐:9*^w9*\w?>!bw͈&*bw$7;͐?*`w?>!fw͈&*fw͐?!*?*fwʹ?*dwJ@>!jw͈&*:v{zF@!"lw9@*jw͐?!*?*jwʹ?!*?*lw#"lw*:v}|@*hwç@*v*v)*v*v)^#V#s#r*v*v)^#V!{ozg!͐:9*v9*v*v)^#Vͬ:9*nw@>!rw͈&!5!͐:9*rwͬ:9!.9*v9! *?!5!͐:9!.9*pwA>!vw͈)2E*v{oz2E*v{z*v}|2EûE*v{ozpE*v{ozpE*v}|*v{zpEûE*v*v*v*v*v* v)^#V*v* v)^#V+++|W_͎B*v* v)*rvs#r*w*v* v)^#V"4vA*v*|v)^#V*~v)^#V! {ozEpE*wF>!w͈&*w.ͥ#!.!(#EF+)'F~#foFbFlF}FFFFFFFFFFFF*v*w)^#V*w)*ws#r*w!"w*w!"w*v#"v*w!"w*v#"v*w!"w*v#"v*w!"w*w!"w*w!"w*w! "w*w*w5G!"v͖!"w$G!w!"wG*w*w!.%* 3w*w4;>!w͈&*w*w}|*;*w"w0;*w"w*wÁ;>! w͈&"w!.V$\;*"w*"wͥ#"wV$*"w$* w{zL;*"w* wͪ$wV$*wî;>!&w͈&*&w7;*(wͥ#*&wͪ$$wV$*$w<>!,w͈&*,w![ ".w*,w|;*.w}o|g".w*,w{ozg͔$*.w͔$ͥ#*wV$**w<<>!2w͈&*2w!ͪ$}$*2w!!.%}$ "0w*0wÉ<*v. {zg<  !.Ah*v!Å<  !A.9*vA!U.Ah͝*4wÜ< !}.A?<*6w=!!!|w͈&*w"v*w"vp:"v*@v|W_*&v{ozg*|w{ozg"|w*v|Br{zBHDC*w*w{ozg"w*wͺ)w*wE*w#"w*dv}|F*w#"w*fv}|F*wG>!w͈&*v*w)*vs#r!"wñG!"wÝG*v*w)^#V*w)^#V*w)*v*w)^#V*w)^#Vs#r*w#"w*dv}|dG*w#"w*fv}|[G*w>H>!w͈&!"w-H!"wH*v*w)^#V*w)^#V*w)*v*w)^#V*w)^#Vs#r*w#"w*dv}|G*w#"w*fv}|G*w(I*v*v)^#V! "v*v*v)^#V"w*w++++++|}H!"xvÃH!"xv*v*v)*w+++|*w{z*w!͹ |gos#r*v*v)*w{zW_s#rp:"Pv*w{zW_"v*Xv"^v*w++ R=>!@w͈&!e*Bw͝!"DwA=!*@w*Dw!.%}$T*Dw#"Dw**v}|"=*>wy=>!Hw͈&*Hw!*Hw}$.%FwV$*Fw'?*v. |Š=͌<*v**v!!>͇͟!͔$vV$>v!.V$*Pw!!.%!.#6>! ":v<>!":v*Pw!!.%}$*Pw!!.%<*Pw!!.%<͟n͟*v*Nw)6#6*v*Nw)!.V$?*v*Nw)*Pw!!.%D*4v@"4v*4v"rv*zwr!͹ "4v*4v"w*4v"w*~w@*4v{oz”Dr{zW_*v{ozg|ʔDHD!"w!"w*zw*zwE*v {ozD*v{oz*v{oz*v{ozDûE*v{oz *w?*w?*w! /?*v*v)*v*v)^#V+s#rGL*v*v͐:9! /9dNr{z`MdN!"wÉM*v*w)^#V!}|MÙM*w#"w*xv}|iMdN!"wYN!"wGN*w*w |@N*v*w)^#V*w"v*v*w)^#V*w"v*v{z*v*dv}|/*v{z*v*fv}|/@N*v*v)^#V*v)^#V! {oz@NN*w#"w!}|M*w#"w!}|Mp:"wNr  r*dv͹ #"vr  r*fv͹ #"v*v*v)^#V*v)^#V! {ozW_"w*w|mNp:"wOr!͹ "4vA*v*|v)^#V*~v)^#V! {*v*Rv)*Rv s#r*v*Rv)6 #6*v*Rv)6#6*v*Rv)6#6*v*Rv)*Rv+LR s#r*Rv#"Rv*xv}|]*Dv"@v!"Lv*Xv*^v{oz/W_*>v}/o|/g{ozg|ʰ]Ió]Kp:">v!!͐:9!69*v9:! *?!!͐:9!69!"v!"v!"v!"v!"Vv*dv*fv ;"2v!" v cS|ʻ^i"\v*v|B^Vû^*\v͔$%*v!(+ͺ)"Vv*\v+++|t^Vû^*\v {ozž^*v*v)^#V*Pv{ozg"Pvû^*\v{oz»^Q*v|ʻ^V*v }|^!"(v^*(v#"(v*v*v)^#V*(v{z^*v* v)^#V"vy%͎"w*wÓS*vA   !h/A!/A !/A! 0A!c0A !0A!0A !0A!1A!_1A !u1A   !19ÀSi {oz€S*x*v!1V$*v!1V$*v!1V$*v!2V$*v!32V$*v!D2V$*v!^2V$v!z2V$v!2V$! "*vv!2V$!"Fv!"Hvv!2V$!5"jv!"lv!d"Nv!"vp:"^vp:"Xv*v8G+I!5! ͐:9!J69!5! ͐:9!`69*v^#Vͬ:9!h69*v^#Vͬ:9!m69!5! ͐:9!p69!x6*v^#V*v^#V͘AH*v*v)^#V"bv*bv*nv+"v!5!͐:9!69!"RvU\*v*Rv)^#V!{ozg!͐:9*v*Rv)^#Vͬ:9*Rv#"Rv\GLp:"Pv*v*v)^#Vzʍ\!5!͐:9!69á\!5!͐:9!69*v|ʽ\!5!͐:9!69!@! ͐:9!69*v*v)^#V!{ozg! ͐:9!69!"Rvh]:Q*v* v)*v* v)^#Vͺ1)s#r*v* v)6#6* v#" v*xv}|Q*w*Lv*Jv{oz_Q*w!" vòQ*v* v)^#Vͺ)!ͺ«Q*v* v)*v* v)^#Vͺ1))s#r* v#" v*xv}|hQ*wIR*v!5/ͥ#wV$*w͐?!"w Ri"w*w+++|/W_"v*v| R*w*w {ozQ*wʹ?*v!Q/ͥ#wV$*w͐?! *?*wʹ?*wrR*!w͈&*wc/ͥ#ͦ$!("w*w{zW_*v{ozg"v*w|R*w"w Sͦ$*w###*w$ͦ$$.v9!>3A*v9!3A*v9!3A*v9! 4A*v9!M4A !4A!4A!4A  !4A!4A! 5A!,5A!C5A!U5A!(! ͐:9!g59*v9!(! ͐:9!s59*v9ͬL!(! ͐:9!59*v!!.%9!59*v!ͪ$9!59*v!!.%9!59*v!!.%9!(!͐:9!59!"RvÚX!(*Rv͐:9*Rv0͔$9!59*v*Rv)^#VzړX*v*Rv)^#Vͬ:9!59*v*Rv)^#V9*Rv#"Rv4X*`v{zX!(!͐:9!59*`vͬ:9!59r  N",v*,v"v!"$vp:"v!"v*v  *~v)^#V! {ozaͫD*v|>a*v* v)*v* v)^#V@s#r*v* v)*|vs#r*v* v)*~vs#r*|v*~v͐:9*v* v)^#Vͺ)*v^#V9*v|b*v* v)^#V!}|b*v*|v{ozgͺ)*v*~v{ozgͺ)!ͺͱ"0v*0v*2v{zb*0v"2v* v""v*|v*v{oz*~v*v{oz+bc*v* v)^#V+++|Cb3g*v* v)6#6*v* v)6#6*v* v)LRs#r*v* v)* v)s#r*v* v)6 #6*v* v)^#V*v* v)^#V͐:9*v^#V9*8v"Tv*8v "8v*Tvͪ@ͣl*xv *6v *8v{ozc!y L@138/yN!L@139>y L@140MyG!L@141\y"L@142ky"L@143zy!L@144y"L@145y!L@146y "L@147y"L@148y7"L@149y"L@150yu"L@151y"L@152z&#L@153z#L@154z"L@155.zN#L@156=zU&L@157Lz#L@158[z#L@159jz$L@160yz#L@161z#L@162z$L@163z$L@164z$L@165z($L@166z$L@167:r<2rG_!rNxyro&4FTiex8#9A7C *|v)^#V*~v)6#6*|v*~v͐:9*v*v)^#V9^*v*v)*v*v)^#V+s#r*v9*v*Fv)^#V*Hv)6#6v!97V$!"Rvëg*v*v͐:9*v*Rv!.%9!*?*Rv#"Rv*v$*Rv{z~g*vG*v*v)^#V!}|gr*vv͹ #*v^#V?!"RvVh*v*Rv)^#V*v*Rv)^#V͐:9*v*Rv)^#V*v^#V*v*Rv)^#V^#V*v^#V9*Rv#"Rv*xv}|g:*v#*zv͹ "tv*v*v)^#Vz´h!E7?*v|´h*v*v)^#V*v*tv)^#V ;"`v*v*tv)^#V!}|h*tv"v*v*v)^#Vz*v*tv)^#Vzh[*v|/0u}|vm!*?!"Rv@mr  r!]͹ !͔$9*Rv#"Rv;m  !89*vA!'8A!*?!E8A!*?h*v*v{zm*v*v)*v*v)^#V#s#r*v*v)^#V! "vM@h͝(c)1982 Yahoo Software"@n7n2?nog*@n|n "@nm>0_:?nn{0n n>2?nm*@n]>0_vaVn{Vn w#wotnptnq{ʑnwʑn#Ow# †nÕnw}~}2r}2r}2r}G:r2r}G:r2r:on!oGUo:ronn:r_oo:r_oo:rͰo (7?* v#" v*xv}|&^OP*v|*cõc*v*v)^#V*v)^#V+++|*v*v)^#V*v)^#V++++|ocõc*v*v*v*"v)^#V*v*"v)^#V*v*v*"v)^#V+++|/W_͎B*rv"Vv*Pv|cL*Vv"4v*v"v*v"v!"TvA*v*|v)^#V*~v)^#V! {ozd*Vv"vd*v|ʒd*v@"4vp:"hvVd*4v#!͹ "4vA*v*|v)^#V*~v)^#V! {ozW_"hv*v@*4v{oz/W_*hv}/o|/g{ozg|d*4v"Vv*4v"vd*v"4vA*v*|v)^#V*~v)^#V! {ozd*v"|v*v"~v*v*v͐:9!79if*v*v͐:9!79*v|e*vH5Iqh$(9Z)!'6ZFCE(WJQ#!hs4K{%L@175Z{I&L@176i{&L@177x{I&L@178{X'L@179{&L@146y "L@147y"L@148y7"L@149y"L@150yu"L@151y"L@152z&#L@153z#L@154z"L@155.zN#L@156=zU&L@157Lz#L@158[z#L@159jz$L@160yz#L@161z#L@162z$L@163z$L@164z$L@165z($L@166z$L@167:r<2rG_!rNxyro&4FTiex8#9A7CiVp:"v!"Rvj!"Zvqj*v*Rv)^#V*v*Zv)^#V}|Cijj*v|Ui!P7?Ðj}:"v*v9     !^7A !79*Rv1͔$9!7A !79:!7U!v>z*v!ͪ$vV$*v$|ip:"vÐj*Zv+++++|=j!"pv,j*pv#*v*v*pv)^#Vs#r*pv#*v*v*pv)^#VV$*pv"pv*Zv6j}|i*v*Zv)*v*Rv)^#Vs#r*v*Zv)*vV$xj*Zv#"Zvi*Rv#"Rv*zv+*Rv{zi*v|Ok     !7A*v**v!!>͇!"Rv(k*v*Rv)^#V$͔$*v*Rv)^#Vͱ;ͥ#*v*Rv)^#VJo:rͰo:poG!pUo:rCo:o1o:r_oIo:r_oIo:rͰoIo:rͰo:qG!qUo~Ͱo#Uo_!|uo fo>0Ox„oy0ʉoͰo!|šo Ëox¤oyʪo>0Ͱo>0ðo_@116wL@117wL@118xL@119xTL@120!xL@1210x]L@122?xL@123NxL@124]xL@125lxk L@126{xL@127xL@128x` L@129x L@130xO L@131x$ L@132x!L@133xy!L@134xw L@135ye!L@136y L@137  @"v*Vv@"Vv*|v"v*~v"v*v#{ozg"v*v*|v)^#V*~v)^#V*v^#V"Tv*Tv#|›e*bv! :*v^#V"Tv*v*|v)^#V*~v)6#6*Dv"@v*Tvͪ@!7?ͣlg*Tv+++++|if!-7?!" ve*v* v)*v* v)^#Vͺ1 s#r*v* v)uRs#r* v#" v*xv}|e*bv "8v*8v"6v*Nv*bv[ "Lv*Lv*xv[ "Jv!"Tv*v*v)^#Vzif*v*v)*v*v)^#V#s#rGLͣl*Tv|wfg*v*v)*v*v)^#V+s#r*v*v)^#Vz¨fRk*v*|v)^#V*~v)^#V+++|f*v*|v)^#V*~v)6#6g*v*|v)^#V*~v)^#V++++|g*vͥ#vV$*Rv*v**v̈́;=*Rv#"Rvj!3*v**v!!>͇!3V!"RvØk*v*v͐:9!79!*?*v*v͐:9!79!*?*Rv#"Rv[k*:v{zlv!7V$*v͐?!"Rvl!@!͐:9!79!*?!@!͐:9!89!*?*Rv#"Rvk*vʹ?*v*v)*v*v)^#V#s#r!"RvÐl*v*Rv)^#V*v*Rv)^#V͐:9*v*Rv)^#V*v^#V*v*Rv)^#V^#V*v^#V9*Rv#"Rv*xv}|6lM@B[*v*v)*v*v)^#V*Tvs#r*v*v)^#V"v*v*v)^#V!{ozg! ͐:9*vͬ:9*v =D=1 TO 21 320 B=INT(RND(1)*8)+2 330 C=INT(RND(1)*18)+2:REM  -->  ... 340 IF A(B,C)<>0 GOTO 320 350 A(B,C)=1 360 IF D<6 THEN A(B,C)=2 370 IF D=6 THEN A(B,C)=3 380 E(D)=B 390 F(D)=C 400 NEXT D 410 PRINT:PRINT 499 REM --> PRINT PATTERN 500 FOR B=1 TO 10 510 FOR C=1 TO 20 520 IF A(B,C)=0 THEN PRINT" "; 530 IF A(B,C)=1 THEN PRINT"O"; 540 IF A(B,C)=2 THEN PRINT"+"; 550 IF A(B,C)=3 THEN PRINT"X"; 560 NEXT C 565 IF0 REM C H A S E V 1.0 1/16/77 GCC III 1 REM BY HERMAN DEMONSTOY FEB 77 ISSUE KILOBAUD MAG 5 PRINT CHR$(26):PRINT:PRINT:PRINT:PRINT:PRINT 20 Z2=0 50 PRINT"This is the game of CHASE" 100 PRINT"You are in a high voltage maze with five" 110 PRINT"security machines (+) trying to destroy you (X)." 120 PRINT"You must maneuver the security machines into" 130 PRINT"the high voltage fence posts (O), or into each other" 140 PRINT"in order to survive. GOOD LUCK. 145 PRINT 160 PRINT"MO z B=3 THEN PRINT" ";G;"Security machine";:IF G>1 THEN PRINT"s"; 566 IF B=3 THEN PRINT" left"; 567 IF B=7 THEN PRINT" 1 2 3"; 569 IF B=8 THEN PRINT" 18 * 4 0 IS NO MOVE"; 571 IF B=9 THEN PRINT" 77 6 5 9 GIVE UP"; 573 PRINT 580 NEXT B 599 REM ---> MAKE MOVE 600 B=E(6) 610 C=F(6) 620 A(B,C)=0 630 INPUT"MOVE";Y 635 M=M+1 640 IF Y=0 GOTO 800 650 ON Y GOTO 660,660,660,690,680,680,680,690,1400 660 B=B-1 670 G=VES ARE: 1 2 3" 165 PRINT" $8 * 4 0 IS NO MOVE" 170 PRINT" *7 6 5 9 GIVE UP" 175 PRINT 199 REM --> SET UP THE GAME 200 DIM A(10,20),E(21),F(21) 210 G=5:M=0 220 FOR B=1 TO 10 230 FOR C=1 TO 20 240 LET A(B,C)=0 250 IF B=1 THEN A(B,C)=1 260 IF B=10 THEN A(B,C)=1 270 IF C=1 THEN A(B,C)=1 280 IF C=20 THEN A(B,C)=1 290 NEXT C 295 PRINT" . ";:REM -->-> KEEPS SCREEN GOING WHILE TABLE SET UP 300 NEXT B 310 FOR  Kaypro  =         YY  2468           0` oOTO 690 680 B=B+1 690 ON Y GOTO 700,800,720,720,720,800,700,700 700 C=C-1 710 GOTO 800 720 C=C+1 799 REM --> CALCULATE THE RESULTS 800 IF A(B,C)=1 GOTO 1500 810 IF A(B,C)=2 GOTO 1600 820 A(B,C)=3 830 E(6)=B 840 F(6)=C 850 FOR D=1 TO 5 860 IF A(E(D),F(D))<>2 GOTO 960 870 A(E(D),F(D))=0 880 IF E(D)B THEN E(D)=E(D)-1 900j IF F(D)C THEN F(D)=F(D)-1 920 IF A(E(D),F(D))=3 GOTO 1600 930 IF A(E(D"!"*+"#*+"#**Œ0!!(!ͭ)! p,!"!!-Q!9s!nͯ*ʛ !9^!Nͯ*ʛ !9^!yͯ*ʛ !9^!Yͯ*ʛ L !ͭ)!9^!y͠*†!9^!Y͠*†!ͭ)( clone.datr+No file CLONE.DAT%20s%ldhit a key when readydo you wish to play again? a*!Vf̓f*:͊A!9!DMV `i#DM+`i*5 `iX+d!Ç #+*ʹ `iX+^!X *:͓, # #+* ! ![ *:͓, `i))2Vf1  win";Z2;", or more!!!!!" 2000 SYSTEM 1760 PRINT"This time you won";Z2;"game(s)." 1765 Z2=Z2+1 1770 PRINT"Next time you may8/!O//*<|/>,vL:@<>,J:@<2[?2[?!_//ʹ//̓ͩ*>|,/F/ͩ+:@C/>vLKLNo GLWa * B0C0B0C0B0C0B0C0B0C0 pB0C0B0C0B0C0 K 0U 0"F=B0πC0B0 C0  ),F(D))<>0 THEN G=G-1 940 IF A(E(D),F(D))=0 THEN A(E(D),F(D))=2 950 IF G=0 GOTO 1700 960 NEXT D 970 GOTO 500 1000 PRINT"Type Y or N please...":GOTO 980 1400 PRINT:PRINT"Sorry to see you quit" 1405 PRINT"after only";M;"move";:IF M>1 THEN PRINT"s";:PRINT"." 1410 PRINT:GOTO 1710 1500 PRINT:PRINT"You touched the fence !!!!" 1505 PRINT" After only";M;"moves." 1510 GOTO 1710 1600 PRINT:PRINT"** You have been destroyed by a lucky computer **" 1605 PRINT"after only";M;"moves. Too bad." 1ͯf]fogpf!`i))2]f̓f!^ *:͓,! 9P ! !d *:͓,*:G!T%c%c%ld%c%ca**| *ͯ* *"**"**ʪ *+" ** *###" *"*͠* *+" *| *###" *#" a**|! #+***(!!-Q*+"#**c *+"#x **x *#"+*͠*ʏ *+"#ß *|Ÿ *#"+** ** *Ϳ* *O* **(!!-Q !"!!DQ-ZZZX^VcVhVmVrVwV|VVVV%U%U%UUUUUUUUU<2f6f,+:,= *F=+qN1,4O=2,=*F=~#"F=!5, () 'zU ') )@ :<:=x,>=!]?G~µw#„,p, /U ,/@ #~µ~$w2'+"=>2=!"=ñ&>B0C0  a*! ! #@":*:|W! p,!T!Vf̓f*:͊A!9!DMÀ`i#DM+`i*`iX+! *:,`i))2! *:,`i))2Vf1ͯf]fogpfz!Vf̓f*:͊A!9!DM `i#DM+`i*%*:!ͨD!ͭ)'ͬ!DMA`i#DM+`i|G*P;']!!(! p,!!(!ͧ'!"!"**ʫ((q"(ô(q"(***M********|ʏ! p610 GOTO 1710 1700 PRINT:PRINT"You are lucky * * You destroyed all the enemy * *" 1705 PRINT"in only";M;"moves." 1707 Z2=Z2+1 1710 PRINT"So far you have won";Z2;"game(s)!!!" 1715 PRINT:PRINT:PRINT"Do you want to play again (Y OR N)" 1720 INPUT Y$ 1725 PRINT:PRINT 1730 IF LEFT$(Y$,1)="Y" GOTO 210 1735 IF LEFT$(Y$,1)="y" GOTO 210 1740 PRINT:PRINT"Hope you don't feel fenced in." 1750 PRINT"Try again sometime." 1760 PRINT"This time you won";Z2;"game(s)." 1765 Z2=Z2+1 1770 PRINT"Next time you may 2=:=U - -~w#~d -~w,,͝-w͵,~Bدw#w#w#wU ~#~>-,"C=m->21=Ux¯x 20=*C="?= x4:>"C=~w|21=m-x¯*C=-#~µ~@ w#s#r#*=s#r4͸K:?w/:<Ĩ/!<4~=Z.!]?~-!1>~-!@#]?~# . .. . -!V?p#"?=ͩ2'!5O"@ A."?=~w#~@k/~.#^#Vͩ.*= ͩ *={ĩn*F=ԃ +!"4="6=}2/=p!/!3=44!r?>͗;Z:3=8p!3=44!/!?>͗;Zʹ/*<|.:@<2[?2[?.!L/ oOTO 690 680 B=B+1 690 ON Y GOTO 700,800,720,720,720,800,700,700 700 C=C-1 710 GOTO 800 720 C=C+1 799 REM --> CALCULATE THE RESULTS 800 IF A(B,C)=1 GOTO 1500 810 IF A(B,C)=2 GOTO 1600 820 A(B,C)=3 830 E(6)=B 840 F(6)=C 850 FOR D=1 TO 5 860 IF A(E(D),F(D))<>2 GOTO 960 870 A(E(D),F(D))=0 880 IF E(D)B THEN E(D)=E(D)-1 900j IF F(D)C THEN F(D)=F(D)-1 920 IF A(E(D),F(D))=3 GOTO 1600 930 IF A(E(D8/!O//*<|/>,vL:@<>,J:@<2[?2[?!_//ʹ//̓ͩ*>|,/F/ͩ+:@C/>vLKLNo GLWa * B0C0B0C0B0C0B0C0B0C0 pB0C0B0C0B0C0 K 0U 0"F=B0πC0B0 C0  ),F(D))<>0 THEN G=G-1 940 IF A(E(D),F(D))=0 THEN A(E(D),F(D))=2 950 IF G=0 GOTO 1700 960 NEXT D 970 GOTO 500 1000 PRINT"Type Y or N please...":GOTO 980 1400 PRINT:PRINT"Sorry to see you quit" 1405 PRINT"after only";M;"move";:IF M>1 THEN PRINT"s";:PRINT"." 1410 PRINT:GOTO 1710 1500 PRINT:PRINT"You touched the fence !!!!" 1505 PRINT" After only";M;"moves." 1510 GOTO 1710 1600 PRINT:PRINT"** You have been destroyed by a lucky computer **" 1605 PRINT"after only";M;"moves. Too bad." 1ͯf]fogpf!`i))2]f̓f!^ *:͓,! 9P ! !d *:͓,*:G!T%c%c%ld%c%ca**| *ͯ* *"**"**ʪ *+" ** *###" *"*͠* *+" *| *###" *#" a**|! #+***(!!-Q*+"#**c *+"#x **x *#"+*͠*ʏ *+"#ß *|Ÿ *#"+** ** *Ϳ* *O* **(!!-Q !"!!DB0C0  a*! ! #@":*:|W! p,!T!Vf̓f*:͊A!9!DMÀ`i#DM+`i*`iX+! *:,`i))2! *:,`i))2Vf1ͯf]fogpfz!Vf̓f*:͊A!9!DM `i#DM+`i*%*:!ͨD!ͭ)'ͬ!DMA`i#DM+`i|G*P;']!!(! p,!!(!ͧ'!"!"**ʫ((q"(ô(q"(***M********|ʏ! p610 GOTO 1710 1700 PRINT:PRINT"You are lucky * * You destroyed all the enemy * *" 1705 PRINT"in only";M;"moves." 1707 Z2=Z2+1 1710 PRINT"So far you have won";Z2;"game(s)!!!" 1715 PRINT:PRINT:PRINT"Do you want to play again (Y OR N)" 1720 INPUT Y$ 1725 PRINT:PRINT 1730 IF LEFT$(Y$,1)="Y" GOTO 210 1735 IF LEFT$(Y$,1)="y" GOTO 210 1740 PRINT:PRINT"Hope you don't feel fenced in." 1750 PRINT"Try again sometime." 1760 PRINT"This time you won";Z2;"game(s)." 1765 Z2=Z2+1 1770 PRINT"Next time you may 2=:=U - -~w#~d -~w,,͝-w͵,~Bدw#w#w#wU ~#~>-,"C=m->21=Ux¯x 20=*C="?= x4:>"C=~w|21=m-x¯*C=-#~µ~@ w#s#r#*=s#r4͸K:?w/:<Ĩ/!<4~=Z.!]?~-!1>~-!@#]?~# . .. . -!V?p#"?=ͩ2'!5O"@ A."?=~w#~@k/~.#^#Vͩ.*= ͩ *={ĩn*F=ԃ +!"4="6=}2/=p!/!3=44!r?>͗;Z:3=8p!3=44!/!?>͗;Zʹ/*<|.:@<2[?2[?.!L/ "'M `i#DM+`i***`i)D^#V*Ϳ*`i)D^#V##**`i)b^#V*Ϳ*`i)b^#V###****(!!-Q!x'* *'!"!*ʹ+"`i)b^#V`i)D^#V(ͷ&!`)`i)b^#V`i)D^#V(ͩ&!`)!"!*"`i)b^#V`i)D^#V(ͷ&*+"#*)D^#V`i)Ds#r*)b^#V`i)bs#r!"!*iͯf]fgpf!!(!]f̓f!p,!]f!OfͪiA  score: %lda*'**&!Vf"`iͯ*h`i#))2`i))2]fpf!*`i#X+e!`iX+`i#X+e`i))2!]fpf!*`iX+e!!`iX+ex¼!`i#!DMI'!!(!&D!&D!&D!DM`i#DM+`i*h`i͠*"!)`i#!p,`iX+!p,`i))2]f̓f! p,!)Congratulations, human, you have achieved a high score. Please enter your name: %sClone Masters to Date: rank: name: score:---- --}P*##*)Ds#r*)D^#V*ʹ+X+*)b^#V*ʹ+X+R*ʃ`i6,)^#V*)bs#r*)b^#V*)D^#V(ͩ&*#"+a***"**"*P*DM`i)^#V"**"!*P*"*P*)^#V"*͠*B**͠*B6,)^#V"**(!!-Qa*!!(!5&D!I!(!@&D!G&D!&D!&D!!&D!k&D!&D! &D!>&D!&D!&D! &D!j&D!&D!p,!e the 10 key pad to move and the space bar to shoot. GOOD LUCK!a**#"+!Vfͯf]fgpf!!!!p,!9!-!(*+!p,%c%c%cmen: %da*'!!(!&D!!(!&D!DM`i#DM+`i*\*+"#*#"+**(ͩ&*###*(!**(!N**(ͩ&!*"!DMu`i#DM+`i*ʺ*#"+**(&!*ʹ+"**(ͩ&o!DM`i#DM+`i*C*#"+**(&!*ʹ+"**pf!"!Vfpf!"!"! "!("!"!"!"!"!"!!\!!'!9!!\!!\'!9!!!!\'!9!!!!'!9**(ͩ&*,X+X"*#"+*2X+!Xʹ+"**! "ͬ!DM*+**#"!.#+**!*X+"!]fi*"!*P*"**"**###)Ds#r**"!PYX+DM**X+()bs#r)b^#V)D^#V(ͩ&&*͠*!"*  q-- ----- %d %20s %ld a***a**a**a*L*bc')*͠*ʂ'!ͭ)( *.͠*ʦ!!-Q"|¦Î*0*ʿ* ͯ**9**"* ͠**|g *" *|e"* * !0*ʹ+" *"*"**"**g *#"+**(&!*ʹ+"Ì **ʌ **(&*#"+*͠* !*"**()'!*ʹ+" *| **()'*#"+**!**!*!-Q!p,ͩ&!-!(!p,ͩ&!&DCLONE WARSv 1.0 You (the good guy) are a human trapped inside the maze of the evil (boo)CLONE MASTER. Your mission is to escape from his nasty bad clutches.Unfortunately (for you) there is one slight problem. The clone master'sminions (clones) are trying to kill you. They have a slight advantage - being incredibly strong they will kill you if they catch you. You, never beingone for a fair fight, have brought along a gun. Luckily, the bullets(ͩ&*#"+**(&!*ʹ+"**(ͩ&!DMQ`i#DM+`i***()'*#"+**(ͩ&**(!*"**()'!*ʹ+"**(ͩ&KKAYPRO Proudly Presents:by Rick A. Smitha*! 9~#fo##s#r++~#/! 9^#V^#V!-Qa*!"!!DMO`i+DM#`iͿ*`i))2]f̓f!]f͛fͪiʿ*|'!!(!*!e!i&D!"û*#"+* *!!-Qó!p,!ͭ)!!,!ͭ)!* !"* ͠*!"*͠*/! "*"~!!(*!p,!!(!]f̓f!p,!]f!OfͪiʄA)!-!(*+!p,level: %dscore: %ldmen: %da****ʫ**"!*P*"*@P***ʫ**"*P*DMx!]fi*"P*DM`i)^#V*)Ds#r*?P**)bs#r*)D^#V*ʹ+X+*)b^#V*ʹ+X+R*`i6,)^#V*)Ds#rÃ**"P*DM`i)^#V*)bs#r* seem tocause an allergic reaction in the clones - they die. The CLONE MASTER's maze is a tough one to get out of - to leave a room youmust gather all the keys that are in the room. When you have gotten onekey another will appear until you have gotten all the ones from that level. Beware, clones are not as dumb as they look (nothing personal, but theywere cloned from you) and given the chance they will combine to formsuper-clones which take more than one shot to kill. Key: You: Clone: Us  *!*L*!**(ͩ&!DM7!`i#DM+`i**ʡ!`i)^#V*Ϳ*ʞ!*##`i)^#V*ʞ!`i)^#V*Ϳ*ʞ!*###`i)^#V*ʞ!!"1!**Ϳ*e"*#**e"**Ϳ*e"*##**e"*#"+!Vfͯf]fgpf!!(!]f̓f!f"p,!]f!Ofͪi3"A**͠*b"!*iͯf]fgpf'e"ͬscore: %lda***P*"*X+**"*Ϳ*"*F*#")s#r*d*)s#r!*|6,"|!DM"`i#DM+`i**K#`i)^!!9s#r!9!9s#r`i#DM+^!9s#r!]ͯ*N1!9^#V!9~#fo#s#r+s1!!9^#VsÎ1!!9s#r! !9s! !9s! !9s!!9s͉3:3!9~#»1!9~#fo##s#r++^#V!9s#r*-+"-#|\2!*-`*!9s#r!͠*\2!9~# 2!9^#V!9ieͯ*!2!9^#V!9ie͠*|42!*-`*\2!9~#Y2!9^#V!9~#fo#s#r+sû1!9~#ƒ2!!9^#Vs!9~#fo#s#r"3!*-`*!9s#r!͠*:3!9~#2!9^#V!9~#fo##s#r++^#Vs!9~#fo#s#r"3+%/D5/ED0FD0O}/XY/[0 !!-Q!!-Q!!-Qa*!!-Q!!-Q! !-Q!!-Qa*!!9s#r!!-Q"|¦'!9~#fo#s#r+**ʦ's'a*!"!!-Q'*#"+ò'a*!!-Qa*!!-Q!L!-Q! 9^#V! !-Q!9^#V! !-Q!9^#V! !-Q!9^#V! !-Qa*!!-Q!D!-Q! 9^#V! !-Q!9^#V! !-Q!9^#V! !-Q!9^#V! !-Qa*!!-Q!=!-Q! 9^#V! !-Q!a*! 9^#V",!",!9!9^#V!--6.a*! 9~#f-*,^!P*X-!",c-*,C",v-*,*,H",*,56S.78VXABCDEFabcdef9876543210   a*! 9^#V"-!}2-!9!9^#V!-6.a*! 9~#.*-~ .*-#"-+^!P*!}2-2.:-o&|2.*-+"-^!P*!a*f!9N#F!!9s#r!9^#V"-`i#DM+^!9s#rzʀ3!9^#V!%͠*%3!!9s#r!9s#r!"-`i^!*͠*ʳ.`i#DM!!9s#r`i^e.!"-*- X+`i^"-`i#DM^e.`i^!l͠* /! #V`i)^#V(*||+#!!-QH#!)!!-Q!)"!"*+"#*l#!"!DMz#`i#DM+`i**ʨ&`i)D^#V"@`i)b^#V"B!""""x#*|#!""""!`)!"#*#"+***$*)^#V*)^#V*@+͠*C$*BͿ*C$*B###*C$!"*@##͠*x$*BͿ*x$*B###*x$!"*B###͠*ʭ$*@Ϳ*ʭ$*@##*ʭ$!"*B++͠*$*@Ϳ*$*@##*$!"#**@*%*|%*B*@yc2d@/eO0fO0h'/o/s_1xd/"3}3!9^#VͲeT3͉3Q3!9~#H3!!9^#V}3͉3:3!*-`*!9~#foͯ*}3!9^#VX.!9^#Va*!*-`*Ͳeʤ3Î3!*-`*͠*ʼ3!!a*!9^#V!!9s!9s!9s*-+"-#|ʦ4!*-`*DM!9~'4`i-͠*4`i+͠*'4!!9sÖ4!9~G4`i.͠*G4!!9sÖ4!9~€4`ie͠*f4`iE͠*ʀ4!!9s!!9s!9sÖ4e–4!*-`*æ4`i#+s3!u!9^#V3ca**-*4Vf!9!!9s#ripf!*-`*! 9s#r!-9^#V! !-Qa*!!-Q! 9^!͠*E)!C!-QR)!B!-Q!0!-Qa*!!-Q! 9^!͠*ʒ)!C!-Qß)!B!-Q!1!-Qa*!!-Q! 9^!͠*)!C!-Q)!B!-Q!4!-Qa**+"#**~*<*!!(*~!=*p,!d*~ʹ+"~bonus: %4d"S|g}o|/g}/o^#V#DM!99`i`*|z2I*+:I*p+}+}}ª*|ʹ*!}¹*|ʪ*!}|*}|?>o&zo&|*}|>o&|o&z2I*+:I*!9s#r`i#DM`i#DM+^2!%!9s#rT3!!9s#r@/!!9s#r! !9s#r! !9s#rÞ/!!9s#r!!9s#r!!9s#rÞ/!!9s#r!!9s#r!!9s#r͉3:3!9!9^#V!9^#V!-!9^#V!-͹4pf!9~#A0!9~# 0!9~#fo##s#r++^#V!9]fpf20!9]fi!9~#fo##s#r++^#Vs#r!9~#fo#s#r"3!!9s#r͉3:3!9!936!9~#0!9~#ʠ0!9~#fo##s#r++^#V!9͡660!9~#fo##s#r++^#V!9I6n6!9~#fo#s#r"3!!9s#r`i^!^͠*0`i^!~͠* 1`i#DM M(&*@#"@+O%**@*O%*|O%*@#"@+*B*@(&!*@ʹ+"@**B*%*|%*B*@()'*B#"B+ý%**B*ʽ%*|ʽ%!*B"B*B*@()'!*Bʹ+"B*B*@(ͩ&*@`i)Ds#r*B`i)bs#r!`)*|¥&*##"*###"*@##"*B###"*B**7&*B*Ϳ*W&***Q&**Ϳ*W&!Z&!"*|ʥ&*@**&*@*Ϳ*Ÿ&***ʙ&**Ϳ*Ÿ&!â&!"t#a*!&a*! &a*! 9^#V^z&! 9~#fo#s#r+^!-Q&a*p+||+/g}/o#z+/W{/_+DM!>2H*))1+#}o|gI+ :H*=2H*)+}:H*=2H*)+}DM!>))h+ =`+}}/o|/g#}|ʹ*ê*|g}o{_ʱ+|),|7g}o—+{_ʱ+)¬+}}o|gN#F# N#F#z+{+##^#VBK^#Vz+#y+###+#x+#~#fo}|>?o&}|>o&{_ʱ+|g}o),|g}o~# x>,!9J*~#Y,!f,|ra*!"n,!9!9^#V!,Ja*! 9^#V"n,!9!9^#V!,Ja**n,!9^#VͨDVECLa*! ",!",!9!9^#V!--6. #͠*5!!9s#r*-+"-A5! 9^#V!+͠*65*-+"-A5!*-`**-+"-#|5!*-`*!9^#VieDM||5!*-`*5!9!9^#Viͯf]fipf!9`i!9~#foʹ+!9~#fo^iͯf]fgpfA5!9~#5!9!9]f;fpf!9]f@SSCANF_!TS.189!S.190!S.191`!S.19*|-M6*z-w#@w#6#w[6#wf6*z-~G#~@##~‚6!*|-å6!*z-w#@w#6#w³6#6Ͳ:*z-~G#~@##~6"5Ͳ:*z- V+^+V+^+V+^+VG(;+y>O~# ;!;5;@:;t;[;>2~- y!T]w+M;6(;>2~-͔;*z-#6#w#6;>2~-͔;*z-#6?#6>#w‰;#6*|ʱ;!9N#F*~-Ͱ;O#‹<>:~#œ<:*<T]w#w#w#w*z-N#~:;:;w#<:;y=6#6#6#6hY9^#VͰV! s!͠*A!!Vf̓f! ^Da!9\A!"!+ru@w@a@?A!! s!! s#r!`is#r! s#r! s#r`ia*!9N#F! ^!P*ʺA!ͶGʷA!A!9^#V!͠*A`i~#A!9`i^#V! ^#Vʹ+iͯf]f/gpf!! s#r`is#r!9^#V!9]f̓f! ^Da!9Hf͕i=B!!a*!9N#F!9!Vf̓f! ^Da!9pf! ^!P*ʯB!9! ^#V`i^#Vʹ+iͯf]fgpfB`i~#B!9`i^#V! ^#Vʹ+iͯf]f/gpf!9]fa*! 9^#VBK! C++~@_+~怳_*5"5*|-s#{@w#6#r#s#r#s#r#s#r#6*5*|-*z-"|-"z-*z-~w*z-#~4:):=ɯ<*z-*|-~7f7Ã7b7#b7f7 #b7f77*|-~w*z- w#²7*|- w#7*z-*|-#7/<+"|-"z- :O _"5! "5^8%8*5*5+8 8@8*5*5w+.8>w+ 78#~>W8>w+L8>*z-w:*5*5+g8 p8:*z-*|-#O~ž8>2~-y;##8¢8 q#6#62~-;q8 q+ *6~+8 26~+8!"6w#8>@2!6!" G`i DMGFa*!9N#F!!9s#r`i~ʤG! ^!P*[G!ͶG!9s#r! ^X!9~#fo͂+s#r! ^!P*ʤG*! ^#Vs#r! ^#V"!! s!9^#Va*! 9N#F! ^!P* H! ^#V`i^#Vʹ+! ^#V! ^r^͠* H!`in&͂+s!!9^#V!͠*YH!`in&P*s!`is#r! s#r!`i~#jHRI! ^#V!͠*ʣH!!9! ^r^͠*H!9^#V! ^#V`is#r! ^#V! ^#V! s#r!`in&͂+s!9^#V`i~#fo#s#r+s!P*a*=6#6#6#6h==*z-F#~%=+=!:;O=#o7=$^+Vy:;x:;|/g}/o#:;yZ=!h=xe=!h=!>2~-@@ @GzH? ěT?F]cf>S#>c{Z=ֿzf=y0==%}<6{<_^Y&; oP;4$C;hIj:$_=ά3:VR8! 9^#V":6!9͡6!9~<>>2<6o&"=6*z-~4>M7*:66-#":6U7ʺ>͌6A *z-#~>ʚ>b>##~'ڢ>?͌6@?::p>?*z-###~ ں> ?ú>*z-#~¢>##~ ں>|8Ð>*z-#~>? é>!9~>*=6 "=6*=6+|>!>>}>!)))o=͓6ͧ7͌6A O:ͯ*$C ͯ*$C`i#DM+sB!`is͠*LC`i! 9~#fo͠*LC!! 9^#Va*! 9^#V!9~#fo+s#r!*ʮC!9^#VCDMͯ*ʮC`i#+s`i ͠*®CdC!u`i͠*C! 9~#fo͠*C!! 9^#Va*! 9N#F@2!6!"6~w#9:"6!26#9:9!!659*z- (6 w+::j74:!j7):!6C?y/F?:<6Q?60#=J?":6>O:>6?:=6ڒ?ʒ?*z-#~>0|?##6*:6w#x‰?6.#":6?`?!9~?*:66e#6+:@6:?6?6-/<#dڼ?61#d ? þ?0_>0w#s#":6*:66>7!d:|8*z-#4 ^&)DM)) #wz++?#w:++~!@@t;a*! DM`i~Q@`i DM,N@!-@!9^#V#^!+͠*!9^#V^IA|ʃ@!Æ@!!9^#VͰV! s!͠*ʧ@!\A|ʸ@!û@!͂+!9^#VͰV! s!͠*@!\A|@!@!͂+! . F!9N#F! 9^#V!͠*-I! ^#V`i^#V,1I!! 9^#V`i~#fo+s#rs! 9^#Va*!9N#F! ^#V!͠*}I`i! s#r*|ʝI*!9s#r*^#V"I! ^#VI!9s#rzI!! s#rnI!`in&͂+s!9^#V! s#ra**I|J!Q"I"I*IDM! 9^#V*I"IPY,,J`i"I!*I*I,kJ*I*Iʹ+P*! 9s#rQ#J! 9^#V*I"I`i+`0123456789abcdefa*! 9^#V"nJ!9!9^#V!JJ!*nJsa*! 9^#V*nJ#"nJ+s!P*a*!N9N#F!P9^#V#+^zO%=-Q!-Q͠*KY!9^#V!P*>Y!-Q͠*HY!"!kY!9^#V!P*͠*kY!"!!!! s#r!# s!$ s`i!9^#V!s#r!9^#V!P*#!% s!P*Y!Y!9^#V!s#rY!Y!9^#V!s#r!a*!!9^#V!%s!a*! 9N#F!-Q!!% s!a*!U[:]^ all the ones from that level. Beware, clones are not as dumb as they look (nothing personal, but theywere cloned from you) and given the chance they will combine to formsuper-clones which take more than o 9s#r!D9~#@O!>9~#fo+s#r#!89~#fo*@O!B9^#V`i`*O!!69s#r]O!69~#fo#s#r!49^#V~ʝO!69^#V!@9~#fo*ʝO!49~#fo#s#r+^`i`*NO!D9~#O!>9~#fo+s#r#!89~#fo*O! `i`*çOO`i`*Ja*!9N#F!9^#V`ii̓f!9]f͛fChipJ^+s! 9`iiͯf]f hpffOa*!9N#F!9^#V! 9]fHf͕iP! 9]fiP*! 9!9]fHfgHfEgpf`i͊+i̓f!9]f͛fChi)pJ^+s! 9`i͊+iͯf]f hpf!! UcQA:$$$.SUBa*!"!a*!##*)Ds#r*)D^#V*͝*)b^#V*$0Rͮʃ`i͹)^#V*)bs#r*)b^#V*)D#V(ͩ&*#"+**"*"*DM`i)^#V"**"!*"*^#V"*$B**Bcon:CON:lst:LST:prn:PRN:pun:PUN:rdr:RDR:a*!9^#V!!9^#VͰVa*!!!9s#rV!9~#fo#s#r!9^#V! *WnfU͠*  *O!!9s!!D9s#r! !B9s#r!!@9s#rn&-͠*YK!!D9s#r#+^0͠*pK!0!B9s#r!!>9s#r#+^!0Ϳ*ʿK9*ʿK!>9^#V! X+!>9s#r{K.͠*L!!@9s#r#+^!0Ϳ*L9*L!@9^#V! X+!@9s#rKl͠*ZL#+^!:9!T9~#fos#r]fpfLd͠*ʌL!:9!T9~#fo##s#r++^#VipfLe͠*°Lf͠*°Lg͠*L!9!T9~#fos#r͡66L!:9!T9~#fo##s#r++^#VͿipfãN!bne shot to kill. Key: You: Clone: a*! 9^#V!*S[! 9^#V! *][!"!! 9^#V)))DM!9^#V!9^#V! ^#V`i^)"Z^#V`*a*!DM!9^#V$~[n$&!ʹ+DM!9~#fo,[!9^#VBK!9^#Vͳ\[!!9^#V`iʹ+!,!9s#rza\!9^#V!9^#V`iͷb!9s#rza\!9^#V!9~#foʹ+ͤ+PY!9^#V!ͤ+PYDM`i!9~#fo,ʪ\!9^#V`iʹ+!9^#V`iͳ\ʪ\`i!9^#Va*! 9N#F!!-Q!!-Q"|\!!9^#V!$ ^!!9^#VM9]f̓fO!9i*RQI,0QI,*J*DM*L*o&I,NQo&I,*J**+++*L*DM*N*!9N#F#^#Vkb6#> 6 #=yQ>6#=‚Q : >µQ AQ[ҦQ@òQaQ{Q`w# .QQʸQQw#ùQ{o|g QQw#Q!!|a{ !9^#V*Q!9}|!R*Q"Q|!! "ͬ!DM*+*͎ #"!.#+*!*"!;*"!*"**"*###)Ds#r**"!PYCDM*y͜(a*!!!bRMd!:4WV!"!!DMW`iDM`i~#?W!9^#V`i^#V͉d?WW! ^#V!9^#V!P*#!9s#r!9^#V!P*ʆWn&u|†W!"!!9^#V!P*ʭWn&u|­W!"!! ^#Vsrn&un&u!Zut!9^#V!9^#V!9^#Vnf`*! 9!* X!!9^#Va*! 9^#V!*8X! 9^#V! *BX!"!! 9^#V)))DM! ^#V! ^#V`*! 9s#r!! s! s! s`is!U! s#r! 9^#Va*!.UDMîX`i&DM`i^V,X!% ^zXæX!"!!9^#VfQX!"!!9^#V!P*Y! L9!!>9]f̓fEP!9!49s#rN!:9]fHf͕ixM!9! !>9]f;f̓fO!9!49s#r!-!69~#fo+s#rsÛM!9! !>9]f̓fO!9!49s#rN!9! !>9]f̓fEP!9!49s#rN!9!!>9]f̓fEP!9!49s#rN!:9]fi!49s#rd!89s#rNe͠*N!!N!!B9^#V!͠*8N!@N!B9^#V!9! 9͡66=!9! 9!49s#rd!89s#r!!@9s#rN!:9]fi!9!69s#rsN+oLd%MuMxMsMe Nf NcNN!9!49~#foʹ+!89s#r!89^#V!@9~#fo*O!@9^#V!8bo&P*bRs!T"&R!bRDM!"R*R*ʶT`i^! ͠*KS`i^! ͠*SS`i#DM/S`i^zʶT`i^!>͠*tS!ÈS`i^!<͠*gT!`i#DM^! ͠*§S`i^! ͠*ʪSÈS`i`i#DM~S`i^! ͠*S`i^! ͠*S!`i#DM+sSïSX|T!͐VT!ͰV͠*dT!T!d!-e!T!-e!d!!r^! TóT`i*R#"R+)&Rs#r`i#DM~ʳT`i^! ͠*¡T`i^! ͠*ʰT!`i#DM+sóT{T"S!&R*R*TCan't open file for redirection: a*F! 9~#U 0d!$ ^!9~#foP*!$ sz6]`i!~#fo#s#r!a*:+Zo&|]!}2*Z!}2,Z}2+Z!*Z! -Q! !-Q:,Zo&͠*ʐ]!}2+Z!! :+Zo&#}2+Z*Z#s! :+Zo&#}2+Z*Z#s!",[:+Zo&DM!9~#fo*]!9^#VBK*,[*Z!9^#VMd`i*,[",[`i:+Zo&ʹ+}2+Z`ia*!9N#F!3^#!9~#fo*f^! 9^#V-Q`i#DM+s!͠*f^,^U^``a*! 9^#V!*—^! 9^#V! *ʡ^!"!! 9^#V)))DM!9^#V!9^#V! ^#V! ^)j^^#V`*a*!DM!9^#V$~ "*N*a*!9!29^#VfQ!9!-Qů2.c2/c20c!"1cd:!9N#F -Zc2.c_c+`c 0ڏc:ҏc?>70o&d:ͧ7:0c_c*1c+"1c_c.œc!0c6_c! ec -³c2/cøc+¹c 0c:c0)T]))_øc:/cc|/g}/o#*1c"1c*1c|/dKd}/7!d:? d>7|8?dKd}?dO? 8d:.cIdM7! 9F+N+V+^+~+ngxkdw# ^d!9^#V#N#F#nxʇds# |d!9^#V#~#foxʭd²dʭd# Ùd!ڼd!}!}!9^#V#~#foxd~d# d!9~#fod#d}"h*>Df~# i*<@f~#i! 2;f!Dfg::f2:fvhDfgvh@f*<w#eh::ff!@fw#|h> 2;f!af!*<w#w#w#w*<~#~#~#~"0f*<V+^+V+^*0f"0f*>s#r#s#r*0f*>*<">"<*<>w#f*<~i#fÄi=ɯ<*<*>###gf!9s#r!9^#V! ͠*(a! !9^#V-Q!9^#V!9^#V-Q`a*! 9^#V!*€a! 9^#V! *€a! 9^#V)))^zŽa!"Vf! 9^#V)))^#VBK!9^#V/b!-Q͠*a!"Vf!#-Q!!$ s!9!! ^#VͿiHf͒g̓f!$ ^i͛fgͯf]fgpfBb!"Vf+aab!b!!# s!9]fHf͕i}b!!! s#r!$ s!"Vf!9]fiP*!$ s!9]fHfgi!! s#r!9]fI,!bI,"*L*!"L**J*b*J*!4b#4*N*+"N*}bo&gfff+g*<*>#$g*<*>#:g*<*>#Og*<*>#dg*<*>#yg*<~/w#‰g*>~?G*<^#V#~#fo))Үg#¦gDM*<s#r#q#p*>~?W*<###~g~w+gg7~w+gg~#gOf*<Dfg::f2:fvhDfgvh@f*<w#eh::ff!@fw#|h> 2;f! 1 THEN 100 98 LET R = 1 99 GOTO 101 100 LET R = 3*(J-1) 101 LET H(L)=1.5+.01*INT((O(B(I))/R+RND(1))*100) 102 PRINT H(L); 103 NEXT J 104 PRINT 105 NEXT I 106 PRINT 107 LEyT Q=0 108 FOR J=1 TO S 109 PRINT "Bet no. ";J 110 LET P=0 111 FOR I = 1 TO 3 112 IF B(I) <> T(J) THEN 119 113 IF U( S(V(S)-2) THEN 32 30 PRINT"Bet must be between $2 and $300, bet again"; 31 GOTO 28 32 IF V(S)>300 THEN 30 33 IF Y1 = 1 THEN 17 34 PRINT 35 PRINT" They're off and running -" 36 PRINT 37 LET M(1) = 62.25 38 M(2) = 60 39 M(3) = 350/6 40 M(4) = 500/9 41 M(5) = 55 42 M(6) = 650/12 43 M(7) = 1100/21 44 M(8) = 1600/31 45 LET O(1) = 6 46 O(2) = 8 47 O(3) = 10 48 O(4) = 16 49 O(5) = 18 50 O(6) = 22 51 O(7) = 40 52 O(8) = 60 53 FOR N = 1 TO 8 54 LET H(N)=0 55 NEXT N 56 LET K = 0 57 LET G J) < I THEN 125 114 LET P = .01*INT((V(J)*50)*H(I+I+U(J))) 115 PRINT "You collect";P;"on "; 116 GOSUB 165 117 PRINT 118 GOTO 127 119 NEXT I 120 LET I = T(J) 121 PRINT"Tear up your ticket on "; 122 FOR I = 4 TO 8 123 IF B(I) = T(J) THEN 116 124 NEXT I 125 PRINT"Next time, purchase a show ticket on "; 126 GOTO 116 127 LET Q = Q+P-V(J) 128 NEXT J 129 GOTO 7000 130 PRINT"Your total winnings amount to $";Q2 131 GOTO 300 132 PRINT"Your total losses amount to $";ABS(Q2) 133 GOTO 300 134 LET Q #1 PRINT CHR$(26):PRINT:PRINT:PRINT"-- HORSE RACE--":Q2=5 2 PRINT:PRINT:PRINT "Any number of players can bet on the results." 3 PRINT "Example of bet; 1,2,200,0 ." 4 PRINT"You borrowed 5$ in case you lost a bunch.":PRINT 5 PRINT" Seventh - 1 mile, 3 yr. olds POST 2:35" 6 PRINT 7 PRINT"1 MAN O' WAR (3:1); 2 CITATION (4:1);"; 8 PRINT" 3 WHIRLAWAY (5:1);" 9 PRINT"4 ASSAULT (8:1); 5 SEABISCUIT (9:1);"; 10 PRINT" 6 GALLANT FOX(11:1);" 11 PRINT"7 STYMIE (20:1); 8=1 58 LET J = 1 59 LET N = 4*T(1)-U(1) 60 FOR Z5=S TO 5*V(S)+N 61 LET Z1=RND(1) 62 NEXT Z5 63 FOR Z5=1 TO 500000! 64 IF INT(Z5/N)-G<>0 THEN 82 65 LET H(J)=H(J)+RND(1)*M(J) 66 LET J=J+1 67 LET G=G+1 68 IF J <> 9 THEN 81 69 LET J = 1 70 GOSUB 134 71 LET D = H(B(1)) 72 LET K=K+1 73 PRINT 74 IF K = 8 THEN 78 75 GOSUB 194 76 GOSUB 159 77 GOTO 82 78 PRINT"- - - FINISH - - -" 79 LET Z5=500001! 80 GOSUB 159 81 LET Z1=RND(1) 82 NEXT Z5 83 PRINT 84 PRINT 85 PRINT"$2 Mutuals paid:" 86 PRIN  COALTOWN (30:1);" 12 PRINT 13 PRINT"Enter horse (1-8);to win, place, show (1,2,3);and the wager (2-300)" 14 PRINT "and 0 for no more betting or 1 for more betting." 15 LET S = 0 16 PRINT 17 LET S = S + 1 18 PRINT"Bet no. ";S; 19 INPUT T(S),U(S),V(S),Y1 20 LET T(S)=ABS(INT(T(S))) 21 IF T(S)>8 THEN 26 22 IF T(S)<1 THEN 26 23 LET U(S)=ABS(INT(U(S))) 24 IF U(S)>3 THEN 26 25 IF U(S)>0 THEN 29 26 PRINT"HORSE NO. OR WIN-PLACE-SHOW BET IN ERROR" 27 LET R = 3*(J-1) 28 INPUT V(S) 29 IF V(S) -2=AB 2= 1 135 FOR L1 = 1 TO 8 136 LET B(L1) = 1 137 LET A(L1) = 1 138 NEXT L1 139 FOR L1 = 1 TO 8 140 FOR L2 = 1 TO 8 141 IF L1=L2 THEN 145 142 IF H(L1)<>H(L2) THEN 145 143 PRINT" - - - TYPE `RUN' TO START OVER - - -" 144 STOP 145 IF H(L1)L1 THEN 156 153 LET B(Q) = L2 154 LET Q=Q+1 155 LET L2 = 9 156 NEXT L2 157 NEXT L1 158 RETURN 159 REM 160##~>'> ͳ&s#r w+.>2 (#w+>3ͳ&s#rw+ͳ&xDM"/(*(s#r#(! C(>2ͷ&@(ͳ&(&~#Z(#~+Z(~+x ͳ&s#rw+ɯ2(x_Oͷ&Ô(2(x_Oͳ&9w#w+xʭ(+r+s=¤(w>#w+&~7^#V((!~ѧ7.&.~7!~#fo~)7)#~+~w}D#wx#a.&G!)!9*?>a:c)2>2:o) L))K:)!uLҘ)͑M!)bM)*xʸ)ͳML)͇M!8L͇L)@( 208 PRINT" Nearing the halfway mark -" 209 GOTO 215 210 PRINT" Midway in the race -" 211 GOTO 215 212 PRINT" At 5/8 of a mile -" 213 GOTO 215 214 PRINT " Rounding the turn -" 215 RETURN 216 SYSTEM 300 PRINT:INPUT"Do you want to bet on the next race (Y OR N)";W$ 305 PRINT:PRINT:PRINT 310 IF W$="N" THEN 340 315 IF W$="n" THEN 340 320 IF W$="Y" THEN 5 325 IF W$="y" THEN 5 330 GOTO 300 340 IF Q2>0 THEN 380 350 IF Q2<0 THEN 390 360 PRINT"Bye now!!!!" 370 GOTO 216 380 PRINT"Put t $ $]Tx2$(#6~+%5HA$.%a."/#!9"$ v$v$+~#G#P$+GO>#ͳ&`iGí$*$ ʢ$.&""$/@$#~+$!"k+s#r#&$$/$/"%͜*s#r#"%/!]>#ͳ&q#p!w+~F%a./~GO#^#Vz>a>0ͳ&xGxʬ%^#V#O"/yk+F(6s#r#s#r#&¡%k%ü%>¾%¼%s#rw+>a/a.. IF K = 8 THEN 193 161 PRINT"POS. HORSE LENGTHS BEHIND" 162 PRINT 163 FOR I = 1 TO 8 164 PRINT I; 165 IF B(I)=1 THEN 186 166 IF B(I)=2 THEN 184 167 IF B(I)=3 THEN 182 168 IF B(I)=4 THEN 180 169 IF B(I)=5 THEN 178 170 IF B(I)=6 THEN 176 171 IF B(I)=7 THEN 174 172 PRINT"Coaltown "; 173 GOTO 187 174 PRINT"Stymie "; 175 GOTO 187 176 PRINT"Gallant Fox"; 177 GOTO 187 178 PRINT"Seabiscuit "; 179 GOTO 187 180 PRINT"Assault "; 181 GOTO 187 182 PRINT"Whirlaway "; 183 GOTO 187 184  ]T}_|))).&">4W*/y=*/#~+)*x *xG>k+x8*>k+xG F*>k+x#~+>k+>Xͳ&s#r+&W!x*G^#V#~ì*3 < E N !3> ì*!<> ì*!W> ì*!`> ì*!i> ì*O?'yG !T+GF.*x2j+*(+#N+.*N+x +#~++k+ +yk+ (w!~#fo#~#w:j+,+6~+;+~ ;+6 H+~H+6ͤ/P+ɀ @ PPPPPP X#ʌ+̏+~̏++(w#w+*R#~6+´+&6#s#r>6###s#r#6@"R=#whe money I owe you on my tab!!":GOTO 216 390 PRINT"Put the money you owe me on the terminal!!!" 400 GOTO 216 7000 Q2=Q+Q2 7010 IF Q2=0 THEN 7300 7020 IF Q2<0 THEN 132 7030 GOTO 130 7300 PRINT"Well, how 'bout that! You broke even!" 7310 GOTO 300 ?@%2.#6+>1ͳ&s#r>w+a.)a.>#V>Æ(&F(F('O&3%`& `& &%?A#"$"a.]&7#yͿ*.&X{&&>a*6#~ž&3&s#r>#+6#6#6#6@="#wɧø&7?'w##&4##p#.2b ** "|& } +++:~?'4'`':,X/~2,?'**s#r"*##s#r:/*}o|g"*>(G}|v'!"(!("**"*}|ڄ'"6# x…'* ">a:y|ʽ'z+ï'*yr,PPRINT"Citation "; 185 GOTO 187 186 PRINT"Man O'War "; 187 IF K = 0 THEN 193 188 IF I > 1 THEN 191 189 PRINT 190 GOTO 192 191 PRINT .1*INT(D-H(B(I))) 192 NEXT I 193 RETURN 194 IF K=1 THEN 204 195 IF K=2 THEN 206 196 IF K=3 THEN 208 197 IF K=4 THEN 210 198 IF K=5 THEN 212 199 IF K=6 THEN 214 200 IF K = 7 THEN 202 201 GOTO 215 202 PRINT" Coming down the stretch -" 203 GOTO 215 204 PRINT" As they break from the gate -" 205 GOTO 215 206 PRINT" At the 1/4 mile pole -" 207 GOTO 215  P :G+!<,####~#+F#N#~#fo~#fo,CH+##~>O3)6#p#6 ####yGS)+w~!_,H~͞.>a"n-:ʗ,ͤ/͔*ͤ/>Ϳ*.&v,ʪ,w-`i)9^#V!~)y~-#~#fo##A:-ͤ/x>Ŀ* ,^#V#F(ͤ/> Ϳ*,#~U,o&">2+F(ͤ/> Ϳ*"3-xGO>$ͳ&H"-s#r# (-H +V+^F(s#r# =-U,w*-w+ͤ/yOn-n-n-**}_|WҚ-\H7I Bytes Free ͞.-::g .>a~  . . H"À "====H == = ====== ==  == "Î " H"ó " H |"  " H | . . H"_d " === == ==  ==H== "ó "% H"  "== |   ʐ99GB2N#^#V#~#fo (B2(1F6Fx B2~B2O!~#fo(A2"J2"L2~#F!E2w#p+6! s#r`iF~ !N#F# }25! F+N+p+q 1s#r ~ ʉ2 22^#V#~#fo7(2"2!N#F#~#fo(2"2!q#p!!Åh:ca:-###^#V*{z-">?W*/>?W*:b *c ;2b "c **5H +V+^"&D.J.F(N.'~=w2_.~#fo&~#!y.H~aX[&#~+>>2e .>2e &|½.!T~#.~#fo..##~#~#..Ô+.„*&""> 2q"/y2/2/O&#s#r+++++~5/ }|x]/!^#Vz<̕/z̝/͚Hĕ/DM!/55/xʌ/~U,! ܕ/=w/DM͒'+r+s:/OÕ!*s#r#"#~+*++" H"[` " Long Island | g  * |  * H"ó "'==="ü 35 900,5 " V  V  V $"mr "#  $$$" " g H H $$$$$ H"" "==H=== E V $"hm " H"ë " H H" " ===H== " " H"+0 " H"ns " H H H" "==H==H == ==H == ="! " & H  7 V| H"di "====H ===  ===  ==, "rw " H"À " H" " H & |  . . H",1 " == ======  ===  ===H== "À "% H" " |  H"(- " H  |  !9"/!/"h 0W1*"!"(""h !("*2,?'"/!(~#fo_0"9##~#fo9990 111'0~YA0=f0 8: >*/ćI#r+s++0*/>ͦ0!~#fo~~Z̫9 ' ͳ& >G>G!N#F*9~#fo##^#VX!~#fo"1++~+ng##^#V~4#####~#~*9w#w#~#fo>wq#p>1>1>*d02e0&12e0~q199>1&121L1x?1:e0=e1h1q141̀22N2q142~Ҕ1¾1^#V>ʾ1>þ19ڠ1>þ1#~ʛ1ʛ1####^#VҾ1>###w~2 H | |"sx "  H  Easy Street"ö " H H" " ===H==H===  == =" " H"16 " H"ty " H H" " ==  == ===H== "  " NY =H== H"uz " H H H" " H &  H H"%* " ==2 ==== = ====== = ==== =====H=====  H"} " G &^^^ ^^^^^ ^^^^ ^^^^ ^^^ ^^^  $" " h  |"" " o |  H  c  ^^^* *^^!*Point of No Return*^^^^"ã-- "'==="ì-- 37ø-- 700,6.. " Bug City  HH V"1.6. "  HHH HHH"p.u. " H >mm þ.. " H===   == H"// " H |===== \ /  V [-====H==="[#`# " H  H |&&  H"ã## " H  H  == H"## " H  H tunnel H H"?$D$ " H  =======---===----===H=  H  H"Ó$$ " H  | vision H H  H"$$ " H  ===---& -----==H H  H";%@% " H  He V  H ==H== "Å)) "  H H")) " H  H .  H"!*&* "===H==---==H==== H"o*t* " H H  H"** " H  =====H== "+ + " H  H m & |"qv " s  ==H== ==="Û " t & H" " H"  " |  H  H  H"l q " T   ==H===H ===H======="ü " o  H  H" !! " w  b =====H== "d/i/ " H \/ H"ò// " H | $  H"00 " H  H | H " H"N0S0 " H ====H======= g |&H H H"Ü00 " H  H   ==H  ======"00 " H H &|  H H"D1I1 " H   H | H  H"Ó%% " H  H== =----===----== H == "%% "  H & H"#&(& "  H | H"k&p& "====---==== H | H"ó&& "|  | == ---===--- === H" '' "| === | H \A H"I+N+ " H &..^^^.....^..^ . ^^ H==--- H"Û++ " H  ==H &  H  H"++ " H " === === === H ---===H======"E,J, " H  H H"×,, " H & H &  H",, " == ---=======-- ===",, ""K-P- "^^^*   H"\!a! " n  ^ H"ô!! "* ^^^ H *" "" "'== =""" 36!"&" 800,5o"t" "   V  V"x"}" """" " H  H  | H"## "=====H=====--======H == ===---1 H g"a'f' "| $ | * H ===H======="ò'' "|* $$$ *| * * *  *H *H" (( "'==="(( 35($( 750,72(7( " $"y(~( "  H V"Ì(( " H"(( "  HHH .HH H g"7)<) "  &  ? H &| H H }{ *=====H===="Ö11 "===H===& H  == =H H H"11 "  H H H H":2?2 "  H H & H"Ì22 " % ======H=== ======= H <> & H"22 "  H== ===== = =="33 " }i{  2Cp*!)^#V)9A*!)}cͿq!L_Cp*!cxCp*!#"!*!|MA)@*|څAʅA*[##"[[!Y@dͿq!=_Cp!}cͿq!8_Cp!("Y! "[[!Y@dͿq!#_Cp0*͊wCp!nu&c!Z͝s;u"cw"]*"_ͧX!"[!"Y[!Y@dͿq!_Cp!aRc*a|VB*]+"]*]|BA!n2uc-Bc!^Ͱv6Bc!^Ͱv͹X*a|ʰA!"[!"Y[!Y@d*a͊wfͰvf!^nuf!^nu|g}o|ʍBͿq!^Cp͐jf!^nuf!^nu|g}o| Df!^nuf!^nu|g}o|:f!^nuf!^nu|g}o| Cf!^nuf!^nu| O&& H"]7b7 " H  H  H | &&&&& H"ð77 " H  H H | == =H"78 " =====------=== H | $ $"O8T8 "  | +H | $$$ $$$"à88 "====------=== | H | $$$$$ $$$$$"88 " | = | === =="0959 " E!#!"vʹs"&*&|C=*!)s#r*!cx bv|=#bkTvr*!)s#r*!cx#*&Tvv*!#"!*!|ڐ=)?go"N*!|)>!"PC> *!!Tvtw"P!b+s"!*!|Z>?go*N|g}o"N*!||>* "RÖ>*!!Tvtw"R!a+s"!*!|ڭ>?go*N|g}o"N*!|>!"T> *!!Tvtv.cw"TͿq!7Cp!EwV F H"g3l3 "* H *"ÿ33 "'==="33 3233 0,6"4'4 " =Gang Land=  V ."r4w4 "  == _ == ."44 " g H | [] |_| |   & . H"55 "===H | |_| | H  === g}o|CAͿq!7CpͿq!cgpͿq!\^gpͿq!^gpͿq!^gpͿq!cgpͿq!]gpͿq!]gpͿq!@]gpͿq!)]gpͿq!cgpͿq!\gpͿq!\gpͿq!\gpͿq!Q\gpͿq!cgpͿq!\gpͿq!cgpͿq![gpͿq!cgpͿq![gpͿq!cgpͿq![Cp! fͰv! ͊w!f͍uC>*x#"ÅA*"_*R"i!"k*T"!"m!d"o*P"q*"s!"unt!"w!yt*y|ƒD!"q*s##"s*s|wD)ڀD!"sAD*w*qzzD{zڪD*q#"q*u##"uAD*u*y}o|g"y*y"{!}t!t*svEDDEE*}cxwucw"}E*}͞w"}s | $  ^ &"q9v9 " |^^ $ ^ ======"99 "*  . & ^ H*^ ^ ^ ^^ "!:&: "'==="*:9c -1:o&"!bͰv*"!e:*!n&͊wCrͰv*!#"!*!*z|y:}|H:h!b͉b! ͱ!ͬo#! o!!I|/g}/o|n;!ɇ!b̈́Ϳq!cgpͿq!cgpͿq!bgp!b͉b! ͱ!ͬo#! ͰvͿq!VCpͿq!agpͿq!VCpͿq!agpͿq!VCpͿq!^agpͿq!VCpͿq!&agpͿq!VCpͿq!`gpͿq!VCpͿq!`gpͿq!VCpͿq!`gpͿq!cgpͿq!cgpͿq!p`gpͿq!Q`gpͿq!8`gpͿq!cgpͿq!cgpͿq!(`gpͿq!`gpͿq!_gpͿq!_gpͿq!_gp!("Y! "[[!Y@dͿq!_Cp!Cp!("Y! "[[!Y@dͿq!_Cp!(Cp!("Y! "[[!Y@dͿq!_CpF!"vCp!_CpF!TvCpͿq!_CpF!TvCp!_CpF!TvCp! "[[!Y@dͿq!f_Cp!("Y!"[[!Y@dͿq!X_Cp!=A*[#"[[!Y@dͿq0*!͊wCp!S_ l?  ===H"k5p5 " V H == = H====== H"þ55 "  H H  & H"66 "  H H | | H"d6i6 " H H ^^^&&^^^ & ^ ^^^ H H | ===H"÷66 " H======H  ===H===H===== & H" 77 " H  H  H |  &o!!I|/g}/o|P;!ɇ!b̈́Ϳq!cgpͿq!cgpͿq!zbgpͿq!Sbgp͐j!ɇͿq!cgpͿq!-bgp!#b)i#!"vʹs"&#*&Tv(Ͱv!#!"vʹs"&#*&Tv+Ͱv!#!"vʹs"&#*&Tv.Ͱv!#!"vʹs"&#*&Tv1Ͱv!#!"vʹs"&#*&Tv4Ͱv!#!"vʹs"&#*&Tv7Ͱv!#!"v:Ͱv#!Tv=Ͱv#!Tvr"@#!Tvr"B#!Tvʹs"D!#!"vFͰvF!7vF!"vCrFͰv!À=* E*}wucw"}E!"}!"Ϳq!7Cp*"!7F!#-tͿq!#gp!jE*!cxQ*) s#r*#"*|zE)NE!#ͪs"!F#*!Tv+s+"*|·E*"*!"*|E!"*!cxQ*) *s#r*|F*#"*)*s#r*!s#r*#"**z|/F}|ҌE*!#"!*!*z|KF}|9E*w#"w!nF*!) s#r*!#"!*!|~F)\F*"!ïF*!cx s#rs#r*!#"!*!*z|F}|ҍF*"*"*"*"*""!"!"*"!GsUͿq!ZgpPU*|U)+UͿq!tZgpPU*|8U)GUͿq!ZZgpPUͿq!3ZgpͿq!cgpͿq!ZCpͧX!c`n!f̓nf!"vfͰv!fͪs|•U*"@V*|V*"!U*)^#V"*s#r*cx"*v*+"**zzU{zҭU*)*s#r*cxfv@V*#"*|=V)T*|/g}/o|>Ϳq!cgpͿq!cgpͿq!cgpͿq!cgpͿq!cgpͿq!Zgp!b͉b! ͱ!ͬo#! o!W*!cxͪs͊w*!)^#VsCr"*CrfͰv#!f͖r*!*cw*)s#rÊK*)^#V)T^#V*"*cxQ*) ^#V|go"|\K)?go*|g}o|–K*)^#V)^^#Vs#r*"*"!@dͿq*cxQ*) ^#V#!TvCp!@dͿq!s[Cp*)h*s#r~*s#r**}o|go**}o|go|g}o|R*|/g}/o|mL*+"ͫW*cxQ*) ^#V|mL*+"*)mLͫW*#"**z|L}|ҌHUX sw"!*+"*|ڨLL*y+"y?X*y|R*y|L)LͿq!ICp*"*"*"*|N*"*"*cxQ!TvCp*"*"*cxQ*) ^#V"*|eQ**y"W*cxQ*) s#rQ*|QR*|R*|Q!nuc!Z͝sw"*#vQQQ*)^^#V"Q*"!"*"!6R*!)^#V|2R*!)h^#V*}o|go"~^#V*}o|go*|g}o|R*!#"!*!*z|JR}|QúGͿq!ICp*y|RR*y"!ûR*y+"y*#"W?X!"!@d*!}o|g|«R~X÷Rc!j[ͰvX*!#"!*!*z|R}|rR*k#"kJDͿq!ICp!ͪs"!S!@dͿ>*!)s#r*!#"!*!*z|&G}|G!""*"*{"y!"!@dͿq![Cp!i}cͿq![Cp!k}cͿq![Cp!}cͿq!8_Cp!<"!@dͿq![Cp!y}cͿq!8_CpͧXc!{[Ͱv͹X**zzG{zzH!nw*wu!Z͝s;u*cw"*"!H*!)^#V|5H*!#"!*!*z|.H}|HzH*)^#V*!)"hs#r^#V*~s#r*#"*!)s#r*"*"!qL!Rc*͊wͰv*|RI*|¸HsYRI*|>! ͒uHF!+s"RI*|H*"RI*cxQ*) !#"!*!|W)ګV!ɇ!b͉b! ͱ!ͬo#! o!ɇ>*"!ÒW*)h^#V*}o|ŽW*)~^#V*}o|ŽW*##"*"*#"**z|W}|RW**}o|ʼW**}o|W*##"*"!$"!@d!}cͿq!ICp**ozz X{zX*m#"m*mcxd"o*i#"i!"!@d!i}c!G"!@d!y}c*}"!eX*#"**z|yX}|aX*"!ÎX*#"**z|X}|ҊX!Rc*|¶XçX!"X!"4Y*"!X!aRc*a|Y~X*#"**z|Y}|T*) ^#V|^M*cxQ*)^#V|go"|@M)?go*|g}o|^M!"M*#vPpMMCNCN*+"*cxQ*) ^#V|ڙM)?go"|go*|g}o|¾P*"**}o|ʾP*"^M*#"*cxQ*) ^#V|go"|go*|g}o"|+N)?go*|g}o|¾PýM*#"*cxQ*) ^#V|”N*cxQ*) s#r!@dͿq!cCp*)T^#V*"*cxQ*) ^#V|go"|go*|g}o|¾P*"þP*"*|8q*!!TvCp~X*!#"!*!*z|,S}|R!@dͿq!ICp*cxQ*) ^#V#!TvCp*"!S*!)^#V|S*!)~"h*@dͿq*!)~^#VcxQ"h^#V*) ^#V#!TvCp*!#"!*!*z|S}|rS*i+"i*i| TF*"!-V*)^#V*z|0T}|)V*N|/g}/o|QTc!H[Ͱv͹X@V*"Ϳq!7gpͿq!cgpͿq!cgpͿq!cgpͿq!cgpͿq!cgpͿq! [gpͿq!cgp*w|ڬT)ڻTͿq!ZgpPU*;|T)TͿq!ZgpPU*|T)TͿq!ZgpPU* |U)^#V|go"|I)?go*|g}o|RI*"!"*|II)RI!"*)^#V|mL*)h^#V"~^#V"*"*"*cxQ*) ^#V|I*)s#r*+"!@dͿq!w[CpmL*cxQ*) ^#V|LJ!nuc!Z͝sw"*#vJ;JJ*)^#V)^^#Vs#rÍJ*)s#rÍJ*cxQ*)^#V|go"|xJ)?go*|g}o|;J*)^#VvJJKK*#"*cxQ*) ^#V|go"|J)?go*|g}o|–K!n͞v!Z͝s;uO)O!"*)T^#V*"*#"FW*cxQ*) ^#V|dO*#"**z|]O}|dOFW*|oOW*vOOOOOO*+"ÓO*#"*cxQ*) ^#V#v?P?PO?PO?PO?P*""!"*|O)O!"þP*"*"RP*"*"*|go*|go|g}o|RP*)^^#V"*"þP*+"*|RP¾P*|/g}/o|µP*cxQ*)^#V|go"|go*|g}o|¦PõP!"*"þP*""!@dͿq*cxQ*) ^#V#!TvCp!@dͿq*# B CX*_|Y!"Y*"!@dͿq!cͪsEwCp*L|/g}/o|CY*_|TY!"ZY*"!"!@dͿq!cCp!ZͰv!"!@dc!YͰvͿq!cCp! fͰv!͊w!f͒u>! ͊w!f͍uY!@dͿq!cͪsEwCp͐jYType RETURN to continue: ZZUpdating high scores..."ZEnter your name: $6ZYou really don't deserve this but...]ZNot bad for a young LadwZAmazing! You rate!!ZLooks like we have a Lad-Der hereZYeah! Now you are a Lad-Wiz!ZWow! You are now a Lad-Guru!ZYou are a true Lah"i͌h"ii_m=i!&6C#6O#6M!\>!k!\> L\AL.iʇiot|i!#&\ѷ!>/ *OUT OF MEMORY* $?go*N|g}o"N*!|>!"T> *!!͋>͎>.c͑>"T!9"i** ,j!6#},j|,j6!i6#z?j*|`j> j6#s#r#=Uj>2i>2i>2i2i"i!&i"iͫh{| STOYmÐjm*i.. . ........Ͷz*i|—j:ik*i|kl*  s#r*  {w#6"i*i*i>2i all day! _Enter one of the above: &_Difficulty level: ;_00 @_Last Score: O_00 V_) [_High Scoresi_Jump = Space Stop = Other _ Right = _ Left = _ Down = _Up = _Terminal: _Version : _E = Exit Ladder_I = Instructions_  `L = Change level of difficulty +`P = Play game;`Los Angeles, Ca 90024T`10970 Ashton Av Suite 312C4s`(c) 1982, 1983 Yahoo Software/`LL, aaa aa ddd dd ddd dd eeee rr/`LL 1aa aa dd dd dd dd ee rr/`LL >0Oxey0e;e!|%e ex/ey5e>0;e>0;e_*:9c -1:o&"!b͎*"!e:*!n&::*!#"!*!*z|y:}|H:!bb! !#! !!|/g}/o|n;!!b!c:!c::!b:!b̈́:b! ͐:!͖:#! ͟:!ͨ:!ͮ:|/g}/o|P;!Ϳ:!b::!c:*;!c0;3;!zb9;<;!SbB;!!;E;!cK;W;!-b];!#b#!"&#*&(_:! ;#!u;x;"&#*&͇;+͍;!͖;#!͟;͢;"&#*&  d-Master!!!:[ YAHOO! YAHOO! YAHOO! YAHOO! YAHOO! YAHOO! YAHOO!K[YOU CHEATED!!! You don't rate.m[Hooka!v[oz[* ~[Get ready! [Bonus time [ Score [ Level[Lads$[Type RETURN to return to main menu: [Good luck Lad.![Type an ESCape to pause the game.:\Remember, there is more than one way to skin a cat. (Chum)/T\that are left when you have finished the level.=\statues (shown as &). You will receive the bonus time points.\Extra points are awarded for touching the gold2\A new Ladm|Error -!-k~<&k=&k#~#kk#!|ÊjSyntax Error in DATRETURN without GOSU Type MismatcOut of DatIllegal Function CalOverfloOut of Memor Subscript Out of Rang Division By ZerOut of String SpacString Formula Too CompleRESUME without Erro2Field Overflo3Internal Erro4Bad File Numbe5File Not Foun6Bad File Mod7File Already Ope9Disk I/O Erro:File Already Exist=Disk Ful>Input Past En?Bad Record Numbe@Bad File NamCToo Many FileUnprintable Erro!9N#F*~#~m~++ aa aa dd dd dd dd eeeeee rr5)aLL 0aa aa dd dd dd dd ee ee rr rr4aaLL / aaaa ddddd ddddd eeee rrrrrrr:aLL dd dd tm"aLL dd dd aPRO SCOREbPRO MEN bPRO LEVELbbY#b&bLADCONF#0bLinking to configuration program...$VbLadder configuration program missing}bUnable to link to LADCONF.COM bLADCONF.COMbLadder not configured bLADDER.DATbRb bpbdqPbdbPpo-_bgpbqp b -=$|VH*^.& bg-=7ͱ;.ͷ;!;#!;;"&#*&;1;!;#!;;"&#*&<4 <!<#!< <"&#*&/<75<!><#!G<:_<#!Y<=w<#!̓<"@#!͕<͘<"B#!ͧ2h2h*^#V"h##^#V"h 2h!h!!""h!j" j6#6P>2j>2j>2j͉ H will be awarded for every 10,000 points.,]bonus time runs out.]You control Lad by typing the direction buttons and jumping by^treasures and riches.>^dark corridors never before seen by human eyes and find hidden@_^You are a Lad trapped in a maze. Your mission is to explore the^l^L^i^I^c^C^p^P ^ExitingB4^e^E^You eat quiche!^Come on, we don't have +$|VH*^.& c c1.31c@PCzףp= #z͐j(c)1982 Yahoo Softwareafc{fc w#w |xc=w#w^#V"cc2cog*c|©c "cÏc>0_:cc{0c c>2cc*c]>0_ ~2HedG#^#V!Iew#c~2HfG#^#V!Ifw#d~2HgG#^#V!Igw#*d~2Hh2Ih 2Jh~G:Ih2LhG:Jh2Kh:He`d!IeGd:Hhʍdʄd{d:KhdÓd:LhdÓd:Kh;eÓd:Lh;e:HfʡdG!Ifd:Hhddʼd:Lhdd:Khdd:Lh;ed:Kh;e:HgG!Igd~;e#d_!|e d \gm~#~m+^#V###l###l|(m~#fo!0m| Internal Error - No Line Number &i*~#m| at linelwmm>ͫm<ڐmͤmzmͫm<ڐm0wͤmҌm}_|W!mG~#fo>| at address|r}rm> w> w!9"i*i)Pn|*i*i7n))]n) )]n ]n ]n"i"iK!"]]7n!n~2_n#~#^#V |++ͬz͎ځj:nm*i|¢n!n͌z͛zͳv*iCyC!\C͂C!Q\͈C͋C!c͑C͔C!\͚C͝C!cͣCͦC![ͬCͯC!c͵C͸C![;CC!cCC![Z+!m~}͹+6!\>%2U!i~ƚ!e~!`~_#~W#~OT!.QR}ɇ<o&ͭ|2*Z*\͂}"Z`i"\!Z^#V#N#F#!i~Rx{!^6Ɯwg>N û}:T|Gw#»}}}!`}ZͪVͪ}*Z||<ͪ*Z ~}!*}|͐| ~D}:\2\:]҇͑}:].~3~9~|/g}/oM~!:]V~͑}"Z>2T|J}ajL~ L}̈́|ͪ|r>2-|`hM~~&Ņ-ʤ~+ʤ~+͐ڋ.1eʶ~E~͐l~L~q~Q~:T|~>~~%>#O!Pd~DY͐íj2]Ϳy*x#V#NX!"]4sx­jű?s y<2*sF~ډsډs#~#foyGO #~#foxʍs}s#lsÍs!*s4 is2*sͬzͬz**s&ڝʛ~ͬzo&~ʭj#^#V++ͬzo&I*>"s!ss>s>mÛzmͳt͉|Z>$tmͼtu~t͠|V>$tmͳt}Z>Lmͼt~,"At#"~XtXt# Dtmíj"^t#ty͛zͳv*^#V#{t!i"i"i>2intN#F#*i~=ʮt}|ҮttÙtͼt|~t:int*i;~=mðj;~,t#"iɧt*i"i+V+^"imöjm~<ʭ_!x4y5*x"x~#N#F#Oy)y Gyyx4y y+++6@#yw#xw+++6###!x~6`yuyyͿy*x#~#~ymäj!*x"x~#^#V#ڼyyGÂy|§yÂy++~_w#~Ww#Âyuy*xDM~#^#V#zyy+zz+{z##{z~#q#p_yyzxzDMy~#zyYP+++"x6@###{_zW+r+sɷhz*x|Fzmçjx^#V+"xw#s#r+++r+s##!oztz*|{z* |?Ҋz}|~# zyG3zxLuz,{v{*|* |Zzͯ{z,{v{###üz{| during G.C. &i{| &"C!f`B! ZB!f=C>*#"ÅA*"_*R"i!"k*T"!"m!d"o*P"q*"s!"u!"w!y*y|ƒD!"q*s##"s*s|wD)ڀD!"sAD*wm}eb! ~#fo"o! "om|­j*o}o|gw"o*o"o,{#s#r++smppQqm{pQqm͆pQqmFpQqmppnqm{pnqm͆pnqmp|qmpp!qm{p!qm͆p!qmp!qZÑpVÑp"ZÚpH~# ’px2T|:jHqqpJ͌z<͈q~p#÷pJ~p #p>2T|:jHqF#~#foxq̈qqq~# ͻ͐_{_hx[|ͪ!Y}V~ͪ Yä~͐!Y}!}Y͐̉|Ġ|ͪ}&}=ͪ }}}{ 0_G!\ͪ':f(yG:^C:\G:^/GÇӀU6+}g6-[|#60:W|W:T|܀ۄ!1|F :W|_ ʠx* { Aq͐ED0ʠ,ʠ.À+60{̀+6${+p2W|!1|6 d}*V*X2/|͇E~(:kj3z~#~#foL6+͐u~͠|ͬzìz>Hu>Hu>Hu>Hu>Hu>^#V#!Zã>pu>pu>pu>pu>pu>{x!+>Ôu>Ôu>Ôu>Ôu>Ôu>{xʣu~#fo## ^#V#mQíu^#óu ^#V#mRu^#u^#V#mu^#vm|­jBK\vPYm|­jBK Mv o_0vmz­jzdv jv_pvo _ W}͛zͬzDM :]ʗv2]#êj:]ʪv2]#êjmuzv~##++,{>L+V+^+v+r+sv{mͳv~#^#VÛz!v>2i| Internal Error - String Space Corrup#N#F*xyxq{*xyxq{++`i+V+^Zz##6+6+~6  >@++*x"xs#r+Ϳy*x#~_#~Wҟ{mójr+s##6"x###!x~#fo{Z³{<*x"x*x}o|g6@#s#r#6"x* |*|"x}w>#w##Z{++6+6xxr~w#=|!|~w#!|PP*"*"*PQ*) ^#V"*ͪ||*Z}/o|/g#"Z|ͭ|2||!\~wɯ2]ͪ|͂ͭ|*Zͭ|2ͪ|b>>R~~i#ò|iK|!`|>!`V2|# |!`ܖ!`ͷ}t>>|>|}pqìzq>"G: jxqʋ* j+~ q>,W* j#^ ̫qʥq+=ڥq͋z{ڽq{_ïq!j" j!"i2jq! j~6#w~!q rNqmi&øj G~#r# r++%r0:0rw|­j}ڭj!jwmڭj3zdrdrͬzͬz~#~#foLږr#N#fiͽr~#N#fiLìzFOҤrG#~#fo#~#foxLyͽrìz6 #ýr~ڭj#~#fo~#foͬzZ>rV>=s#~#foLͬzv|:w+})N#6w~#fo :v)w!9"i!i4 ~G#íjm hw~ʭj#~#fon&ͬzmz„w}3z~ځws#wwmíjm|­j!9>͛z^#V#mͿwmRmʹw^#Væw^#Z)2mxmx!nQʛô!mܖ1y^#V#m;xm;xmzUx|Ux|Ry^#V#x^#V#sx͞GNʧxyʧx#~#fo~#fo°x#ʦx –x yʰxy<.ںx)ʺx)ͬzͬz|xxxxgxoxx*x"x*xxxoxxPx  0 #~>DG"V`i"X#~+o-F0OxGo#~-`xEdy >2/|t|\"V`i"Xt}#W}:/|ìҰ60̉}C+~0ʿ.ĉ}ͪ>"w#6+6-/</ :#p#w#6!1|#zrzۄ{}=̓'p#6!0|#:U|~ ,*,+@͐-+$0j#͐j++w`-j6%ʎ2|J+6%J}ͮ}}_xC/_yv̂x΂{_xꂒy3OGOCd:>\Ͱ2yz̳7 ʡ z 4ʵz̳ʵRʵͰ> Ͱ>ܐ\>#u6ͭ!nő x<>ʅyq#Ͱ > Ͱۑʒ :_ṋwmw>^Ͱ@Ͱͭ~ ԑ> ͰͰ#ői|* j #~+<=܋ be 4+~#<:=^ ii :jG7i*:iS<2i*i"!"i ii*i654> ~=i* j!j" j" j> > > i> i*î Gǒ’~#foĒ##ђ>ޒ~+~?~+#+  x$m}eb!' ~ʄ ʄ#~y`i`Z>O #~goPY!' ůw͔:hZʀ=z=¸ѯk<ʀ!% ^#Vr+sm}!"@} PY!`i>\!' ~ď͔ʹm}e!&+! ~+ngm}e! n&*i~_tDM'~̌4N#V pʀzw w+s#r#6#6DM:hʫ!" s#r#6! {zVw<<ʀ!! {w:O`!!sm2D"Ee!)x)#y))҇ ҆#=n}_}la)ڃҞ#xƒ"! "!) "!}o|gP͎bk:P0DM**g"PY/}o|g  *U|=P͗|ѯͮ}7}yvOzWOx //>|l>|p#=c!Vq}ßD}>͑}t}?/}/{_#zW#yO++ҳ2}#t}p#ڥ>>/N#F#*Z/}o|g"G&))) ^#V#!Z)^#V#!V&)w#w#w#w##~ : :Ʌo$ɧGw#P{z}!*}|͐| ~D}:{}2~:~͑}:~.~3~9~|/g}/oM~!~:#~V~͑}"}>2T|J}ajL~ L}̈́|ͪ|>2-|`hM~~&-ʤ~+ʤ~+uڋ.1eʶ~E~ͥ~l~L~q~Q~:T|~>~~%>#O!Pd~DYͻ~6#h͗gʣ Oʨ!!\y# +“ ?͋ڝb͋Yn!`͗-:] :g/*iT]% N#F+q#p###6 u͔:hZ>>w+w!(+7?*i' 6#67~}#^#fk_݉N#~:++@}y@}} #2~. 7#2)ͬzz }}> > 7m L:! ƒ~b#N#F++ͬz OˊIˊRb*@|ˊ!"@}_ފʹ{qz "i#> LK*#"°0DM**g"PY2O*! ~#foPs#rV:Oc!c!& Ç~# xhDMЏwŏ! w!( V6 ʝzwΏwŏ! ~!! ^#V! s#rDMͽͷP}eb`i"i!"i-ͥm!>øjm|­j,'-:ie*i!i"i{3zf$%K!D*i6|}!"i>6>4>?>=>:>7>5>2>3>@>C>mo&øj!"i!n"oͤ:_nµ|?õpۑ:>\2ϐʴͰ+~Ͱ+ͰͰͭ!n2ۑOʻ Zp#=/w1_cƤ~@zZrN vH Tʚ;@B''d #~: ʐ ʐ ʐ0?<=:T|ҷ7-++͐MOօHօ+M~H#mêjM!}@0?)))صoM!)'}M0? ?? )Fo)a{ }ͪ:]:\>}:-|2.|2-|mêjmêj966͔~*<ʀ?.Ͱ :j W:j:> ͰͰܭ~*6?# RO!!4r#4r#4y"‡ʀ><">>2i!ݏ"i:i<2i*i"B!Ռ"im"@͒*i|ӌ##nчŒ.̇*Bmm2D"Em Y:\<=+!Vʗ!ȗx!]5nq!\N#F͹+6c!\>%?2U:V͌ x/F+N+=«!`ÿ!V>q#p#=•!V"Ͷͥ͑*͗:]!fN#Fͪq!GSQx Ì!\-j0 TeB׳]h!I.k ͋ڝbh͋Y!`q!]q#~++w+qƒ DNn"~`35zr1{r1h!I͗ yO2f͗ :]n/N|Գ{>2]/))Ҵ =¬!\~7w?##wy7O*Z*\"\"ZajSX*JS\E!]/ɘq!^6Ɯg>N|ԇ>ØakڝL !=~x8G@G͈(ux|W>GPejSXWWch|l{_zW}o|gX"8"6x!6~w#|uˆqJ!]qx!]F#~怩O 4Ôgo"Z"\s#r#q#p"Z`i"\*Z*\DM^#V#N#F#xy:]:\7|/G}/O!>5 47>{_zW}o|g=+|g}o]CZQP o-yOzW{_xG`Z*\DM^#V#N@L Z bΜ*͛|6!LGΜƙXi>O!]~+>w QYu :]ҠhژΜʛƁʠ͕͹!&J\QY Ð|Yt&wz^Pc|u~r1Йq>2]!&Μog2W }}{(qnz ΜX&XΜ~#ڝ=xUW1DT :]㝐g/<͕ ͹gN!Z~_#~W#~Oҡ#4ʐ.dáG~_#~W#~O܁Dö >OWDɚu ȯGͪ"Cy2EFo͕͌!D*Z:\O]4 t  Ì]z))DEc9@gQC}DE CsD +"]D  $ |D}DDD<|""XL{LL{PtM=$$YXTZZSR\SZeXY{TzTSYHIyII|(*g(678&+7y8919JHFIHH"+IFFz)) *m* zQ}QQU@VXVaQdQgQ;LM$Xq"9BLdhiUTϫNBTSLOSONԚLEAҒINSNDBV+V,V-O HRAL̶OMMOθHAIιELETŪATI͆EFSTҭEFINԮEFSNǯEFDB̰EƘLSŢNāRASŦDIԧRROҨRRX O/QO҂IELILERIOTωO TωOSUEEX:Y! d! ~Y#=%iʎ%à&O[H> K> Yi>: y +=2i ZY#ZEo:ҋ0o.o%~ Ҡ ʠ ʠ> :i <ʩ=m+~ ʬ ʬ ʬ#>d2 ͋9C" :g ͬ! (" !9T  +V+^##* C" B* *Cd Nz)~S ͒(q)ʹ(QZ~>r)ʹ(E(OdG+ $* "* 3àE3\B" !9" ~: #~#ʅ #^#V": >[@1>]@ցLO!  tready exists??Disk fullInput past endBad record numberBad file name?Direct statement in fileToo many files pP8`@` B:nSC{K2* " * |< " " * |! 4 4 5wY2B!{DP 2R U >(_#U * ~?o !P #GC!BʻY|<1>DA2MSB!E :* > @(K 2 Ç 2 *  C " :b ʢ >(Kڢ <=ʢ (ͬ~ ̾(" ҊSe]" ;5$ܢ"ʇ: \*v " * ͶB" t##s#r## w# y}ͯ!6"*" 7C*"* "â *bk~####~ ҷ ڷù#s#rïC *DM~# NPUԅƋNSTNNMNKEYILPRINԞLISԟPOEԈINűOASEISԓO O0EEFTO1ERGOKI2KS3KD4IDEXԃUL̖AMEהOPEοUԝΕCTPTIOκRINԑUOKřOEEETURΎEAćUΊESTORŌE͏ESUMũSEIGHTNENUͬESEANDOMIZŻTOАWAХAVPCTEGQI TRTRINGPACEYSTEͽHEROΣROFƤABA SINSAARPTIDTȡAIԗHILŴENĵRITŷO۾yy||PF<2(z{ *z);*)&,,d-D.s)%%'i')1+%+Q+3)NEXT without FORSyntax errorRETURN without GOSUBOut of DATAIllegal functN#F#~: ҆ ځ#:l `#2l f>R~#"j &o"n >2m !~##"j +fC͎*j <2m n G("j ! 0?<=:l ҫ ګ*n ¨###^#V,:m 2g *n " *p " !n (E AOGEAGx3Ø(:l  *j #*C > 2 ,$`i P "  "!>:yHG+ȸ#" 0,r+##~#foC`i~#fo??2i 2h ;#~=!@}O|G!""y O:h ~ʂ#Y:aJg>2h 2i U%~|*O~#Ym?>HjZEڗ;;>ʸ;>HOZ#þGO TOUBZ!AO ^#V#ZOd#<y(!!!Z.!>dG>Y2i Y%=+ZOiMk֢ύ>2i W„Y>5W>Y{~.ʧ:"0":i ~O.O>Y(ͬ}Y|Y%~.ͬ:g * |>}e.  ion callOverflowOut of memoryUndefined line numberSubscript out of rangeDuplicate DefinitionDivision by zeroIllegal directType mismatchOut of string spaceString too longString formula too complexCan't continueUndefined user functionNo RESUMERESUME without errorUnprintable errorMissing operandLine buffer overflow??FOR Without NEXT??WHILE without WENDWEND without WHILEFIELD overflowInternal errorBad file numberFile not foundBad file modeFile already open?Disk I/O errorFile al in Ok Break!9~#b  T N#F#`izv C T  *|<ʗ :  D=96543>7@?2C: * "   *" 2 2 |< "  * j<֌W-͋9C" :g G:g x=ͬ:g  H * #^#V*Cs* C{! C{>HͣFH(µC(zʢPY" : {:_ u ~GC+K x),  <2~(z˜<* * "~ #####u   =>C,* =( |" 2 " â ~,dC+͆(~ʕ *n €€l>2á Q+!B>ee,%;d)1F6 * 4TF* ::G<:?.%#~#Y #^#V" y~.%$$$$$%** "͋9+%c%C,+8%": 2 2 ! 6ͷ(È%ͷ(t(x: ʩ(Ң%/<͙(ͩ((gb&|! %B&#ʈ0.͉&#&G~_#~W#~ON&hcGy&JTeox%2 |&y%O&)zWyO%x\E#&! w%%x! 5&F#~怩Oé( 4Ç0~_#~W#~O! ~/woG}_}W}Oq&CZQd& oz…&y-O{&Ë&-yOzW{_xGÅ&$cCu͍M r5E(&1r'ʹ(>2 ͙(!&ͧ7͙(ͩ(!&ͧ7i'͙(T((zOxdz o! N#F* *(" " ͩ( *!:h og~#fox(2g 6" ;)!A͙(*ʹ(" " i*͙(*g' .EJ ]<=ʓ<"FO&i:* ,C(#r PQ͉:C)|)IoBI'UTC)}* k(͋9" d(~a{_&([OʭH¬#~[Eҗ:0ÞG7))))o~ +8  )))0O í)#~ց(7>OyC,;*=! _!A!_.!!!/!: -!<-!> >2 { =! ! <~J!#~#X! k*l!~#>l!+!:G@ #T]~u!#y!~v!ʏ!y_¢!: >2 ÷![®!2 !: >2 !> XG{!~#_XG!!2 E0:?+͎ " o6 r6*n )1:l O " H*">&{:m ;"!;"#~ ̾(~#m":m A" ^".h"Dh"EA"A"{v"*j 5$Ҕ"T]C!E #G!* C¦"`i" "\]~"\]C,u "z)d: E()È% PXj=:G<:e ?=!B&Gá(* TF~\:I:G<:\V:G:e \!B\/V tz|TF›:::o<ʛ& ,C)+(* TF~:::e /<!B{= @è2go"C#ʧQHLo͋9;*0KDF>-?Redo from start #~ "4N: !!#G* Q!a ;#YHL">2>2 F~,2 ÓC;&G: ʫ>?@> @0KDů2 6,+>2 ͉:~+[(# "4([]) È%E(.(y2<'"7'PX!%!%'! ~#Y'Wy='O|g}oxGQ'x Gz/'CZQO͙(!-ͦ(E(ʐ0.(4g04g0+~2'+~2'+~2'AOW_2'}o|gxG>?ұ'2'7y<=':'x'> $&{_zWyO)xG:'2'y”'! 5”'%>.! N#G.x'(}! Gx&(ƀwW'(w+E(/%g0ʹ(xڀ0G͈%! 4À0: : /<! Op#6%͆(d+ ! ~w͆(og)d E(* ||O(* * ͷ(" `i" ! ^#V#N#F# (:g Gw#(! ~7w?##wy7O! ((! ( d* u )4} )H>2  N#fi-++<(aZz)}/o|/g" :g q7xz)z ,{ʨ+F•{o|P {o|<«{o|2¸{/o|/}//o|//}o|g,::e 2 ͋9:g " " ͬB!9(:g * ~)C,* C,Á2N 2g !9(!9.,:g G:N Od}!E/#,#BK/#C,/#C,( z`iC[# !C^#Vzn#~#+K#͑#^#Vzʌ##s#r u# 2 *+#~##^#Vʚ#O: y$#¦#¦#3z##£#3 > %$B!$#G11+ã#Undefined line #3###N#F>!#*j +p+q+w: Ò#CBCACSCE: * * C ~0  2 <2 ~̓$#y$\Aʔ$z)ð$!$#G KD#~.~•$z)"j87Random number seed (-32768 to 32767)$*" +%%$:, ~,B>2 d: =Bd̨H+~,ʿ+N6,E* 2 QC,͋9~,c: 2 TF—Qd¢WG"ʌ: Wʉ:,+FO: y!...+ʽ,G+M: C#~# #^#V" cCC(+B͓2 " * ~" ڎ_4:g {[H !xVzʬQںzʺ! :g  N#F#N#F! N#F#N#FKG* W " Ð)͙(6Çz)uÇxdd!BdX* \FÇy2h :g g+Wx~P O:* * C)>" : OBO/2 OÐ9~ #~#`J x 2b b + C,u W : u 2_H 2u 2_H 2H /<z)zu 2 2 C,u Y +{>2e]!"N#F#xʇ TFQBN#F#Cچ " 1~ > @ !b !BÑ ~ͥB# b 2 e] #~  5 xE(!N(E(y! y )#x+y+z+{z|O(@)}P(! ( E(!N(E(O! y#)+f)I)N(d* )(! 6(&,)Ü)y%: 2 : B*: ½)))|/g}/o)! : )B*" >2g )aj)d* ʹ(6*x(! F#&* 6*|UY(d *!" " >>)d GOW_ʹ((gf*>b&|5&N&z< dE(*t(̀*k(dҦ* )! ~: ~B*6{y%! ~*O+~+¶*!*) *yʹ((+6+q*: O! >%-,2 Ñ,! ~5eIe&X4#]I͙(8͙(ͩ(y8g'E(6t(: N9QYi'!%!X9͘7!8 J;xn{/|t1}=Z}~L~l+C,}92f NE G2#~.9ʵ9:ү90ҵ9E9G#~:90Ҽ9EҼ9.ʼ9x' 2~&9 :%$!#y_! V+z2g : =ʒ;):~(;3;2 : 2 }:*  " c:o[::g [::&N/~%ʓ/#ʤ/!ʥ/dN/De/ͮ/2S0e/_{_//i/k(d!W')d e/ܮ/.!W'!z)e/ͮ/e/) *d.(.=d^'- ̓$> ̓$!  101(d0! 1(* |* "1C 6.#605#H56." #H 6,#dq5(! 6(&,*6> 5/>,K5>,p#=B5! ͦ(~5y%>B*ͩ(_6?5ʹ(/{_#zW#yO++Ғ5B&#ͩ(p#ڄ5>5e6>5N#F#* /}o|g5" p#=55w1_cƤ~@zZrN vH Tʚ;@B''d G" կʎ6))))Ÿ6y=ʟ6ʫ60:ڨ6 ʸ6ʊ6È6!t(͙(! 6ͦ(6)!r%>2 E(x+76ʗ0%yʹ(7: 7 t#*!x"+>);)+ ;=+|G+y4+|Gz)*͙(,N0|)+DM!>)ډ+)q+ ډ+=c+|+x+ʚ+*͙(*'x)*t(| ++DM!>+ +7>{_zW}o|g=+w+|G+|)Ooyg)* +|6*Y(ͨ+g{o)+! ~w! ~G+N (R,/<#Fwx+ B,F+N9(! G>w2 ! %-x,: 2 ,,4ʈ0Q-,>,! -G: º,! Vwz# Ÿ,x’,%! Y-,x,! w%: ,! ~++w! 4#,4ʈ0+60 ! ->! 2 go" d;!D " *f WX;OByN#F#=/;:"+p+q=I;*_;2: l;z;* C;^#~#¸;:g ¸;~;#^^#V#˜;:f DMW']< #:¹;#ʾ;+͸<þ;:g w#_ʖDG1" `i" #~+N2-%20OxGN2#~ 2`xEC2y 1>2 S2|1;21" `i" ͩ(#W\4: 2Ë22ҏ2460̾("5+~0ʞ2.ľ(2d>"w#6+26-/</ 2:#p#w#6! #zQ334z4ͺ5{(=4b17͍*)|" " ܻ6t(ͽ&'8;': `7hr7͙(͍*Ɓc7ͅ%!{7ͧ7J'͙(: o7%~0é(|Yt&wz^Pc|u~r1͙(+ʹ('͙(~#ͦ(='ͷ(͈%ð7RO!&ͦ(76*E(!H8>8!i8ͦ(!H8Ȇw#O ͷ(':G8<2G8!i8O |%ʹ({YOO6+F6!F84~֫58w %!i8(w+w+w85Jʙ9v" GSљ e͘w>ROhFhiuh!8|%: w: 82 t("~'͙(͍*ͅ%)8͈%͈%E(t(͈%t(: 82 !9͘7: 2 "~ 0 2 -# -~/w! Oyw#-q<-NsY+1-'- W~w+F-?-! C-~w# [-E(: %'͝.qʙ-G,Q-x ‚-y-Ñ,! --Ñ-L} : A--! (d-: -2 !t(. ! (.&, ! (>.".&,! 3.=-..! 5%! >5=.>! N#F#=(.>! p+q+=9.: ʔ0: %'44ʈ0͝.!7 qA>,?t.>,: <=,! [-!0 Y-xb.! 5b.%y2 +6 ~q+¨.(+~ڈ0w&,4È0%3*j%>2 `h)~&i-.+.+/3p#6! #: ~ 3* 3+3-+$0I3#I3++w?3 3I36%3m36C){3)1+6%)d3E(\43_x44"5452_y/3/3{_x34434y5O4GO"53* =4P2*ѯ3E(7\4y/OzWO/4)4/<!@1> @!b  ~#=GA"=[0A= A=_zW"=! =L=ʺ>O>>ʨ=1g= !>=#ʻ=>>= >>(9>ʵ=6>>@!B<~ͥB#¨=!>7A_>~=ͥB܁>=#~== !B<~>\ͥB~>ͥB́>=>\@~A +> +>+> +>>@ >wͥB# >6Hͨ=Aq>s> >s> ʑ>ʑ> ʑ> >>_‘>>_ʙ>ͥB+>> ~7W'#~+w#Ã>yڡ>>@>> o&DM#͹BwͥB#Þ>x+>ͥB>x+~ͥB> !Bz!=_M=_M=_M!9DM!jM* * * à2 2 ~‡M2 #+͔R!" +NC,,ʸM"" +NC,MCACLCLNOC, 2 5$`i" NT]" CNO**+#~#N#^#V"N:N2 ͉:ʢNxG͒;>2 hN~(nNþN~(͉:zNxGN::g W):zBK!N N 2 ~(nN ͖N+"N(NC)"NC,BN"* * C#ON##~w#͚< NO* "* C:G!^#V#C T*}D2 2 2 w#w#" *+" : XC2 2 ! 6#QC7!i8(!F8w#w#w2 og" " *v : ƒC" C* " " : T*++" ##!z "x r%DAgo" 2 "N " " 2 * |}~C##~:  *C(`i+" < D T" !z "x !*}<-D" * " 2DAB!J b Æ >OD22>^@@@!B* | * "u <2>2 ͋9! (* dC,͋9Gd * CD( (>2 ͋9D2 `i D * CD `i" ~,DC(u C,C)d$Ix 'IH0Ix > {͹FGH* w#?IHIO>~XIxIx C,;*C,* C)ͥHW'ͫHG=O>x~#F#fh GN#^#VUJ LJ#7Jѯx<#4JIJC(͋9;*#^#V* CڍJ*CҍJͣF(C,u ~JͥHG!W'y~\@@_W@W~#!ʎ@#ʡ?&ʉ@g@+>H?+~#.?_}@\&???$ʚ?*??x#ڒ?~$> ž?#W?~#.?#ʡ?,?z@Wá?~#>.??# ?~##??T]^###xG#z+@x@~-@@>Wr@Cxz*1#G+7N@2 ;K@, ~#_~#foxE?m@@@?!BͫH@~#@_@Ò@>@r@;** AxxOI&G* 5@G> 5@@@z>+@TFfV:\A@:@27A   N* C Oy_xW `i" * CNO##~w#͚2 : mS:2ùR2 2 * DM* " * #* " CNP `i" * *+zʠ `ià Q+PdP)1F* #^#V ªPr+s+5&G+P;ʿPC,+>,@ÇP>"@&G>"@íP*|Q~Q\}o|gQ> @+|y~A[?;C E, E+ EC, E*,4EyE+ʅEC,ʅEyE+ !NC҂E͗EڂE*  C҂E"v " E"zB**v {_zWME}_|W2 " ċ9" P ^#V#* C ~#~#Eͦ(: E! ͦ(|%(ͷ()/F####N#F#^#Vi`: F* F1+:g  r+s^#V#3)ͷ(AF"i`Ü" * ~, ͨE*|ͥH~#N#FͬHW^#N#F{zد< #rF?P(o6ÙFr6ÙF)1FͨHH~#?@> @(KͿAzK68Kp22 ͿAoK!B!=:>\2UK'K@+iK~@K+@K@!B!b 2OAK:ʐK>\@2yKCD7 ;L K ´K(KKCD(KK0K@> @>bKK>#iKK6!B!b K KxL*|>L!b ("_yq#@ K2e > @ͿA,L KzK: Bw!a >2 ;2 " $L33oL " ** áL LL" *" ##^#V#~#fo"͆(ʵLA3à* "à!9~#L L~#foC L >2 ͋9dA> @:A 3A6A:<:-A!MA6A<2Oɯ2:> 7A> 7A2:XG{A:e ʍA=2e >îA A> @:e €A ڮA:G:e ʥA!BʮA<2e OTFAWMS: 0P:A!7C!E #G:AD/2AD:e !B6!a > @> @TF3B:?B2ɯ2e :=@FBAA2CDD͙BƒBʌBAͷF_H!D " >2g :2@ > @+B> BC~ +üB*v  >ƕo>gB9*++"  BgGBB>*x " >2g ( C"x ~ #FͨH͹( @ +B-G* * /O #CZG" # >G*v " !* !z *x CxGH!L " * " * * CʹG~###͚<²GH_ÕG* ^#Vz* G" ##^#V#" ÕG* C7H~###͚>>ͬ͹F* (H>>>ͥH<2g #~#fo(d ,»QZûQ Q͋9;*W_Wڬ Q¾Q"QG{,xQPXW1R!b Oz"yR QR RO{,yĊRW1R R{ +R,> +R+R1R1R͊RWQ"W*~ʖ\( ~hW+~#5O ~+~tWzWJW7>*T]% N#F+q#p###6 ’WͱW: ͞Z>ªW>w+w!(HW7?*' 6#67ͥH~ʲ #^#fk_XN#~:X++@bXy@bXbX #RX~.0X>X7X#X2 z bXbX> >X7X> WX7Xò W<ʣ ! w#…XCACSW:!<¾ ͥH~ʠ #N#F OXIXR  C,#u C,{ʦ _!9}o|g ] \ \ ** C!9}o|g!X9}o|g S] )] )]*|<:  C*+6* ~šRÇ !?`2 "!"6:͗C2e " * ^#V"zB"UB"##^#V"A##^#V"A##^#V"=A 2!]!!"" !"22d 2 2 2!"!" !z "x ! "L *"v >2!^" :^^<2^!~" ^F#~+w##D^+6" !^/x^+6"" #/x^i^^6ZS^Mʐ^F C:dʯ^z{2ô^"v +^C/}^C:d" ô^+*v +"v +:!]"2<s#r# *  *  CVSHWw#S" : "]ͫ##" !~267C:2: 0P:ʇ àVC!CB͔R+mSMS 2Wڢ <ʠ <ʠ *( 4â *|B ͖R+ʶSC,P\CAÉ ͒#e]>hV* *CMS~#hVSV:SS=S~,~#u SůSѯ*Qʦ   ! ~#fo" !"o]| G~,r CACS͋9;*O*o] "o]* Cڸ q#s#r9T7͋9;*ͥHF~O#^#VT*CT* CTY* * CUyYwwͱWoY<ʻ ÅY<…Y£ cY!%w#w#w#w~ʨYCzW* ) p# ®YC T T _W<Yʣ Z!6# ͖ZW2 !͒Z!͒Zʣ O!  ~#@ygZ~ dZ>.@ QZ:e W:ڀZ> @@!BAZ~*6?# –ZO!!4¶Z#4¶Z#4y"Zʻ ><+Z* C! s#r#wZ2{ DM=^#"" {ozgB|g}o_|0_!{ozgB"v "" " *B}o|g++!_#G1!_#G!#G" !B! v] Owned by Microsoft Bytes freeBASIC-80 Rev. 5.21 [CP/M Version] Copyright 1977-1981 (C) by Microsoft Created: 28-Jul-81  JU>  U!Ux͹FFTC$C(u ~,KU*Qʠ "QC)}͹FʅU͙BlUA~Uw# ^UF* DWڬ qU6Qʦ ʠ !' ~U U#~¸U`i}WÙU>O #~(PY!' ůwͱW:!͞Zʻ =ʝ =UѯÚ <ʻ !% ^#Vr+s9Q6V PY,V!#V`i>yV!' ~UͱW)9V6Qʦ !&QV! ~+n6Qʦ ! ~*~Ee\DM'~U4N#V pʝVzw w+s#r#6#6DM:V!" s#r#6 W! {zVWw<W<\u]*Q  ! ^#V~,+ zʵ +s#r! w#w! ~#fo!CT[Ò[BK>!)g[)#h[))v[ u[#=][}_}la)ҍ[#x"o]! "q]!) "s]!}o|gCڼ[bk:u]\C[ \DM*s]*q]X\"q]PY\*o]#"o]}o|g|Ÿ[ \DM*q]*s]X\"q]PY[2*o]! ~#foCs#rG\:T\!T\!& äV~# xY\DM\ʓ\͹\! w!( V6 ʎ\zwø \ʓ\͹\! ~!ô\! ^#V! s#rDMͱ\ͫ\C" ͒#\>;S"]C ** C!X9}o|g xOberSubscript out of rangeRedimensioned arrayDivision by zeroIllegal directType mismatchOut of string spaceString too longString formula too complexCan't continueUndefined user functionNo RESUMERESUME without errorUnprintable errorMissing operandLine buffer overflowFIELD overflowInternal errorBad file numberFile not foundBad file modeFile already open?Disk I/O errorFile already exists??Disk fullInput past endBad record numberBad file nameMode-mismatchDirect statement in fileT ͫ!ʹ bk))0_E +ͫ* }_|W *( ( ʹ "+E A \ 3E F| *->3À: * *-ʹ# ү > 2 N-`i$ ͙ " $ "-!F>:yHG+ͫȸ#"<֌W1ͺ" ̀ͧ!͈9P*X #^#V*/ʹD*+ʹL*( ʹL>#"#V9…ͫͺzs PYү" :! :#_- ͆&~Gʔͺ+K xʓ,Õ! " <2#~z€<ͫ* * "-~#####͆&$  ͺ, :! $ à* "-  *-" " 6 * À {K2#* " * |/_#‰ * |"|2*X4! :#*!"-:  * ? >* >  2 â *  ʹ " +ڽ ͫ<=ʽ ~ K9ͦ " ҕ4ͫ" G ʯW-(ʆ *( ͼ "( t##s#r# w# y| ͮ !6"9*5"" A *7"9*" "5ý */bk~####~ Ҷ ڶ ͬͫø #s#rî   ͺ */DM~#+2%Oɯ2&:%> > 2%:*±" H> : 8 \:'G: <2 O*5|ʠz/7X4:1!FA ! |":*/2*>d2 ͙  "  *-ͺʈ:҈:̀:~d&94=:A9QZ~>5́=:A98OG* 3{" !9" ~:ʋ #~# #^#V"-:R ʊ>[?>]ͫFցL%O! N#F#~: ʫ : * ì#2 ~#o&" >2 <2 1oo many files H8jII, A*  |" 2 " ý ̀~,̫4ͺ+9Lͫ} }ÒͫNN<>2&o\2+ͫʆa(BB,;̀?5"*5|*X :&ʿ:%:'G: "> "o: 6!> > *5|:"=2 *5|% ~9:&+:%p3:(G: 9/t̓&ͺ)+o*5|% ~o:&l:%o: / xͫv2&go"5ͺ#21̈́:ڝ8"?REDO FROM START : !|"* Z2!#">2*6"ͺ##~#foʹ`i~#fo?? :YG!9^#V# 5*/ 2 2 w#w#"( */+" !0 6#M 2! og" "& * " U*( "* ", 5*+++" ##! " ͆go2 * >?> 2 2 ;~"n Dw: ~D?>D8͗ڇ!AO ^#V#͗Oʢ#  +>͌2 ͌ó ! +``>2 ~t͊%͊>͌p~.ʗ:0: ~D.D>͌}͌|͌ó ~i>: *X |>}e. ҷü͌!X ! GZ9" !$  ҫ0?<=: F F* @###^#VC<! : 2 {9*/j `iү+". oo<Ó5" ! " !*-}<ʴ"$ * "& 2*! – á >2&2*>^@*& |$ *$ "-͆&:'G{<2">2R 1!J V9** ͺ,1ˆ:** ʹV9J V9>2 12 `i *, ʹe `i", ~,ͫM AOGͫ¯ͫAGͫx>ƕo> g9*+++" $  0 *-|< @T ~͌#=ó 7ʫý&DͫH> 8> ͌õ#͌:VJ\>2 2 U³ ~|wD~#͌b!@}O|G!>: y$ ~a{_w+=2 g~ ҽ ʽ ʽ> : \2)>+#~+!2)O:)J>\2)yʊ7  ʊ nÊ@#_ x<>ʕyq# 2 > oʥ 4|}~#ʫ *5|.:&) > :% :%<  ;"͙ ڝ#~+6,!*. 2 -ͺ,1~,U: >?͙ ڝ#~+*5|2‚ͫWG"u:,+9"!ͫxi>b>+ͫʝ,+ͫ): k*5|!|"Æ?Extra ignored #~#$ #^#V" ͫU1" ͙  " ~#~#.39n6M9D9͓9W####N#F#^#Vi`q;: 7r+s^#V#9D9i"-i`B" * ~,Fͫͺ(+ "" *" ~ڲҲW " ͫÖzG~" _: y#!MxVz-Q;z;!X : === !N#F#NWV)~#.+)#),7)z@W)~#>.©(# V)~##+)T)T]^###xG#z+v)xv)~-q)v)>W)̀Cxz?|"+ͫ7ʮ)2 ;ʫ), ͫ~#N#fi_x¯()*r(#Æ>*)̀̈́:*X An$"*X G> ʕ) *z>+2#* <0*" ү`i##N#F#&|<>!?> ! ~#`*Gok*0ڇ* ҇*_zWk*!i*’*O++*1ڨ* ! ,#+#*c+-+J++(^+*[+>1*~+#*!D+7o +6ʹs#s#rW_2[ go"X /! "X * W*, ʹ: ʦ#‡~#ˆ~>##^#V#j:  DM7  $ w#_q#p#O ##" q#: y q#p#E;=BKڡ ", +6ʹW* ^) ++s#r#8 GO~#^#V#ʹҡE;=DM : DM)0 )5 )5 *" *, !9W #Ϳ"*+* }o|gC<:%i : og%:͎ ͠N#F!7: #!X ͫҦ ڦ ͫ: O! ͎ ͺg&s#rʭ !!s#r~(ͫ1~)ͺ, !: "" ~#fo ~(`,̀̈́:ͺ,*X ̀ͺ)#7i #G=O>~x~#F#fh GN#^#Vt% k%#V%ѯx<#h%S%~ #~ #ͺ(1̈́:#^#V*+ʹڰ%"V9ͺ,͆&~ &ͺ̀#G!7y~<%yH #^#fk GN#~#foyw# %)&ͺ,͆&ͺ)͉&2$&i s&s&+ͫB&ͺ,͆&C&͆&2'V&/<2(ͫ̀:z͆&2D&2,&ͺ,Æ&ͫ̀j&+ͫ{>2& !"-N#F#xʢ *5|pN#F#ʹڡ " ?> &!&ß&~+#&&#~ #F#!T N#F#N#F*!KGd* Ã=:&9D&:&xdd!*X w&y2 xʗ: ʿWxzʈ:!w N#F*X i:́9"V "T 69i:!c: O ~#fó92 ʥ"X ê=:!mð&9]:A9"Z "X ]:&9]:8ͫ$ i> &<.=Ҷʨ"6"ʱ&Gͫ:#i Xͫ* C<‡ͫͺ(#t̓&͚2w1ͺ)|%:o $$ 6 |ͺ)}̓*" 81"X {9&ͫOH#:)0)G)7))))oT_D+~!++ܡ++#~++&H*~>\+~D++͡+5+>\~ow+#J+6H*oʑ+ +ʓ+ ʱ+ʱ+ ʱ+ c+_±+>_ʹ+++c+ ~77#~+w#ã+y+>c+ o&DM#Ϳ w+#c+x+~++&z z2 17҈:["ѯ~) !*" ͺ(* 1 ~)W!ͺ,ͺ,>!ͫͺ)>ͺ̀+ͫ ʶ!!Қ!p+qv!+p+qv!+p+q+p+qv! ["!YO q* *X ʹ!"u!! #~" w#q#pv!*-#| $ ͺ>2 G6QD "TD "?5"#$~#͕"N#F*"o͸#͕"! w#s#r+"P#~ K"K"<""̫#y*" >* "X >2 V9 ʹ" ~$ #5"#F9  Æ"*+* /O #ʹڳ"" #$ "* " !*+! * ʹ"0#*( ** ʹ#~###"1#_"X ' c'&<~'#~#'' ̶:!:G@ #T]~5'#9'~6'y[R'~#_!+P'&+ͫ&' QD TD* ?: O ʕ' H '>&{: ڱ'!ʱ'#~ K9~#': ڷ' '.'D'E·'÷'{'* & W- (T]ʹ! |"! *( ʹ(`i"( E(~i ̀E(ͺ,͆&::[ :Z z6́̈́:ͺ;*X {(: ʅ(2 F#N#fiï(X~#\) ¥( ”(C>\*_W*W~#!)#))+>ʲ(+~#. )\ʐ(©($(*©(x#(~$> (# 27+ͫ)8 7)))0O %:#~ցOͫyY|ͺ,̈́:*X ͆&n͠} j=: N#fi#~#N#F#^#N#F{zد< #ʌ?8< 9Z̓:}/o|/g"X Ï: 7:zM<{;k F{o|P{o|< {o|2{/o|/}//o|//+ͫͺ,#2 F OͫJWOͫKK~%$!#xA_!0 V+z2 ͫ: =d~(1312 *( ** ʹo>&ã|wʹʹO*, ͼ ", `i"*  *, ʹU#~#D9 #" N #* ʹ#"#ů#^#V#DM* ʹ`iʹ`i}+F+N+n& PY+DM* Ϳ q#pi`+"*X ̈́:~*X $ '"##* Ͱ#Ͱ#!W"~#N#Fo,- ù#̈́:*X #PYN* ʹ#G " * +F+N+ʹ" i #W~i ##^#V>'"͉&* sW"ͫͺ(͆&ͺ,̀ͺ)C$͉&F$$O$͉&> {'"_$* w#^$$$O>~w$x͕"#F#fh DM*"o͸##W"$k$~$ &o$=O~GC#i _#~#foFr~b>pͺ)Cͫ|> %͉&  = > G-!#-|"??+,Undefined line ,###N#F>!-* +p+q+w: ó,̀2ʡ1!$ ~}-#N>O #~ 9PY!$ 6i/ʞ1«-ѯÛ1<ʼ1!" ^#Vr+s̓2- PY-!-`i>".!$ ~Ć-i/&-̀2ʧ1!# ~+nk ̀2ʧ1! ~i *5~ʀDM$~̃-4~O#V pG.zw w23t2¡1!" ^#V~,+ͫ {ʶ1+s#r#6#6DM! {zV.w<.<ʼ1!! {w:3.9/!! ~!& .̓-.Æ~ w6:S =!\ ~++w!T 4#=47+6 !^ <=>!^ T 2C=# B=~/w!S Oyw#V=qv=NsY+k=a= W~w+€=y=!Z }=~w# •=8͆85>q=G4=͋=x µ=¬=! qA>+=? >>+=:Z <==!T ͕=! ͓=x=![ 5=7y2d + ~q+@>́9+~7wf<476|:`h%:~&-ʆ>+ʆ>+ͫP?.?E£>ͫL>·>~% ?#?!?D>?!>ͫ-++ͫ?>_{-?=?>8!7.: .z/ڭ1 33"%3G{,x%3PXz/s3!Oz"y^3 ʓ3 ^3O{,y3z/s3 ^3{ m3,> m3m3s3s33z/*3"~3 ¦3z/ڦ3 ~3,ʦ3 ž3z/ڦ3 ʦ3*5% 46!{ ʹ38"ͫi>ɷw#ç3ë03:Y22+ͫ3ͺ,ͺR 2Y21!6"9. :22Y*7"9"5z/<…4*/*+ ʹa4 /w#4ͪ ##"( !Y~226A :22Y:1ʢ F͆ͼ-Õ . 3+ͫz4X4 21z/<ʡ1*5% ~ʽ 4ý *5|B$ Ë3+ͫʻ4ͺ,ͺAÚ&ͳ,>.*( */ʹX4~#.4-:Y44=4~,ͫ͆ :!Z ~w9og%:ʈ:8*X ||8*X *Z D9"X `i"Z !X ^#V#N#F#X Z9: Gw#Z9!Z ~7w?##wy7O!^ U9Ç9!^ V9X T x8!88y!Z yͭ9#x+y+z+{z|88}8!^ V9e 8!88O!Z y#ª9+998*X ʈ:G:!7:[ .:͍:"X >2 ͓9aj$:Z:ʈ:A9:xc9!W F7*X :|U8ʈ:Z:!"T "V >>*: $ GOW_A9c9g:>A7|7-7z< 8:9:8:ʈ::![ ~:X ~͍:6{y6![ ~:;O+~ y# .*5% ~#/+~#5O ~+~0/6/ /7>*5T]" N#F+q#p###6 N/i/=c/>w+w!% /7?*5$ 6#67̀#~ʳ1#^#fk_ڸ/N#~:ʼ/++@ʳ1y@ڳ1ҳ1l #0~.//7/#/z ʳ1ڳ1> //>  0/͕/l<ʤ1!\l w# 40ͺAͺS͕/:l!\l<¿1\̀#~ʡ1#N#F Oʓ0Iʓ0R¡1ͺ,#̫͆&ͺ,{ʧ1_̓2°1z͕/" 0{0!u~ 06B#6A#6S"5#l w# 0i/~ 1 A >?Æ> #>??=:i:8J>=8=yZ:7ҥ?t$͓9?ͻ8͸?}?s:J>́98s:f<}?&98z6{ ?0_2>! |"%:p@ @{"p@?6+9 @6-8#60: W: @@y@͜C!g F : _ =@x*=@Aqͫ]@E]@D]@0=@,=@.`@+60{i@+6${+p2 !g 6 WRB@Ҕ@B60K9C+~0ʣ@.K9@>"w#6+@6-/</ @:#p#w#6!g #zVAABzB͜C{̬8= &4ů4ѯt2ʧ1¡1& G~,̓&ͺAͺS1̈́:Oڹ1ҹ1q#s#r 571̈́:ͺ̀#F~O#^#V5*/ʹҶ5*( ʹڶ5Y*+* ʹ5y͕"##s#r#^#V#^#Vyx5yGyO55~#55> 56x'"W"ß5ͫͺ$ͺ(͆&~,06ͫt2¡1l2ͺ)}'"b6͡]6w# C6͆W"Éz/ڭ1P6!CD9z6D99x:[ 69Ҕ6/<&969c9gA7!X 6!77#47.W77G~_#~W#~O-7hcGy6JTeox62[ )zWyO6x\E7![ w6 z+;!%:yA9c9+6:;!Z >_==2S )ڡ)^; ڡ=P;|G.);)ұ; ;=£;|;x*<;]:&9]:ô7x%:]:9| "<. < <7>{_zW}o|g=<÷;|G)<|%:Ooyg%:*X .<|:8;g{o(:*6=!\ L=G:Z 7@?2C:$ 1!l6# R2ĕ/!mN2!uN2lʤ1O!  ~#y#2~ 2>. 2: W:'<2> l1~*6?# R2#t2ѻ¡1ͺ,`i"5+ͫ#̫͉̀&_:Yڧ1!9N#F ̈́2!& >>>ͧ!'"* ̈́9$>>>#<#N#fi2 {9x ,2Z2Z21̈́:W_ x![ 7F#~怩O69 4$ ~_#~W#~O!\ ~/woG}_}W}OP7CZQC7 o-yOzW{_xGS7V"vE88![ ~5pz68!e7t6!i7WEz6͸?1r8.͐8y27"7PX!6!7!X ~#8Wy7O|g}oxGz7CZQO&9!=398 .͐844+~2B8+~2>8+~2:8AOW_2E8}o|gxG>?S82E87y<=7{_zWyO)xG:E82E8y68![ 5687>.!d N#G.xʴ8}![ Gx8ƀw7c9w+8/67A9x7Gz6![ 47:[ :Z /<![ Op#6698<ʈ  B&@ Ap#6!f #:" ~ A*A+$Aͫ-+$0NA#ͫNA++wDAANA6%ArAC9A?+6%͓9iA8RBA_xBBCBB@_y;?A=?A{_xABBAByBOBGOCA*" =BPAZ:ѯB87RBy;?OzWO=? B.B/<0 THEN 810 800 PRINT:PRINT"Congratulations!!! A perfect landing!" 805 PR !I"+" * ^#V"t"H##^#V"##^#V"h##^#V" !"-2*2 2##"%! " *" !~>2Y"ZGF#~+w##lG+p"Z!ͫG/ʟG+6""Z#/ʟGͫGGpͫMʮGF ͫͺ:Gz{2YG" +ͫGͺ/ãG* +"  +:Y!F"792Y<s#r# =H#"/Iʹ "+" {ozg ?!pH|"!|"" ! "F Owned by Microsoft Memory size Bytes free BASIC Rev. 4.51 [CP/M Version] Copyright 1977 (C) by Microsoft   ne is 30 FT/SEC/SEC or" 300 PRINT" 30 units of fuel per second" 310 PRINT"(4) When you contact the lunar surface, your engine will" 320 PRINT" automatically shut off and you will be given a" 330 PRINT" report of your landing speed and remaining fuel" 340 PRINT"(5) If you run out of fuel, the `?' will no longer appear," 350 PRINT" but your second by second report will continue until" 360 PRINT" you contact the lunar surface.":PRINT 365 PRINT:INPUT "HIT TO CONTINUE...";W9 3 ,#TĆ9!C{9f<;C> B/>9=.C>9=p#=%C!T 39`Ck6<͍:69AD?BA9/{_#zW#yO++tC!7#69p#fC>âCGD>BN#F#*X /}o|gҵC"X p#=¢CBw1_cƤ~@zZrN vH Tʚ;@B''d GE(f կpD))))Dy=ʁDʍD0:ڊD ʚDlDjD!9&9!C39ñD=:8xDD 6yA9D:͓9|"Z "X ܝD9v7ʹ7&98; INT"Your license will be renewed ....... later." 808 GOTO 845 810 IF ABS(V1)<2 THEN 840 820 PRINT:PRINT" * * * Sorry, but you blew it Kiddo!!!!" 825 PRINT" This was our only chance to make contact with Extraterrestrial" 827 PRINT" beings. Inappropriate condolences might be sent to your" 830 PRINT" next of kin." 835 GOTO 845 840 PRINT:PRINT"Well .... that was OK. But not too spectacular..." 845 PRINT:PRINT 850 INPUT "Another mission, anyone";ANS$ 855 IF ANS$="Y" THEN 390 860 IF ANS$="y" THEN 3 0 REM R O C K E T L A N D E R 2 PRINT CHR$(26):PRINT:PRINT:PRINT:PRINT:PRINT 5 OUT 2,26 10 P=1 11 REM ....P IS THE INPUT PORT NUMBER FOR YOUR KEYBOARD...... 15 REM 20 REM 70 PRINT "LUNER LANDING SIMULATIONS" 80 PRINT "----- ------- ---" 100 PRINT:INPUT "Do you want instructions (Y or N)";ANS$ 110 IF ANS$="N"THEN 390 120 IF ANS$="n"THEN 390 160 PRINT 200 PRINT"You are landing on the moon and have taken over manual" 210 PRINT"control 500 feet above a good landing spot. You have 90 PRINT CHR$(26):PRINT:PRINT"BEGINING LANDING PROCEEDURE.........":PRINT 410 PRINT"G O O D L U C K ! ! ! " 420 PRINT:PRINT 440 PRINT"SEC FEET SPEED FUEL PLOT OF DISTANCE" 450 PRINT 455 T=0:H=500:V=50:F=120 490 PRINT T;TAB(4);H;TAB(12);V;TAB(20);F;TAB(29);"I";TAB(H/12+29);"*" 500 INPUT B 510 IF B<0 THEN 650 520 IF B>30 THEN B=30 530 IF B>F THEN B=F 540 V1=V-B+5 560 F=F-B 570 H=H-.5*(V+V1) 580 IF H<=0 THEN 670 590 T=T+1 600 V=V1 610 IF F>0 THEN 490 615 IF B=0 THEN 640 620 PRINT: 17:[ Ү8:ƀڮ8!e7n6ͮ7w69!6EfEJô7@.tpO.wnz*|P~&9;A9ʹ7&9~#39=ʹ7D9z6oE8!EE!F39!EȆw#O D9ʹ7:E<2E!FO n6A9{YOO6+F6!E4~֫Ew 6!FM9w+w+wE5Jʙ9v" GSљ e͘w>ROhFhiuh!mFn6&9I698&9:w6!qFt687YFk689!qFn69!uFWEId&X4#]I&9)F&969#F88D9:[ ڼFQY8!t6!FWE!mF J;xn{/|t1}=Z}~L~l */+6*Z~3â a" 220 PRINT"downward velocity of 50 FT/SEC. 120 units of fuel remain." 225 PRINT 230 PRINT"Here are the rules that govern your space vehicle:" 240 PRINT"(1) After each second, the height, velocity and remaining" 250 PRINT" fuel will be reported." 260 PRINT"(2) After the report, a `?' will be typed. Enter the" 270 PRINT" number of units of fuel you wish to burn during the " 280 PRINT" next second. Each unit of fuel will slow your descent." 290 PRINT"(3) The maximum thrust of your engi !!&C890 880 PRINT:PRINT "Control out. ":PRINT 999 SYSTEM $!9! ":GOTO 710 740 IF A=1 THEN 780 750 IF D(A)>=0 THEN 780 760 PRINT AR$;"Captain, we don't have ";D$(A);" anymore." 770 IF DT=1 THEN 2680 ELSE 710 780 ON A GOTO 820,670,1470,1530,1790,2140,2230,2680,4910,3910 790 PRINT:FOR A=1 TO 9:PRINT A;" = ";D$(A):NEXT A 800 A=10 810 PRINT A;"= ";D$(A):GOTO 710 820 INPUT"COURSE";C1:IF C1<0 OR C1>359.99 THEN 850 830 INPUT"WARP FACTOR";W1 840 SL=0:KP=0:GOTO 860 850 PRINT AR$"REJECTED ! Course must be in range of o to 359.99 degrees." 860 IF NOT(W1>0)THEN 710 !26) 170 PRINT "Command order : STAND BY !" 180 PRINT "You are presently being assigned to a mission..." 190 PRINT " with a failure factor of"; (RR*20) 200 PRINT" Good-bye, Captain..." 210 CX=.017453:AR$=" ---> " 220 XA=INT(X4*50):AC=(1/(X4+.1)) 230 IF X4>=9 THEN 3800 240 E=3000-XA+100:P=10:S9=200 250 DEF FND(D)=SQR((K(I,1)-S1)^2+(K(I,2)-S2)^2) 260 Q1=INT(RND(1)*8+1):Q2=INT(RND(1)*8+1) 270 S1=INT(RND(1)*8+1):S2=INT(RND(1)*8+1) 280 DATA Warp Engines,Short Range Sensors,Long Range Sensors 29!1=INT(RND(1)*8+1):R2=INT(RND(1)*8+1):IF S(R1,R2)<>0 THEN 500 510 S(R1,R2)=3:K(A,1)=R1:K(A,2)=R2:K(A,3)=S9:NEXT A:IF B3=0 THEN 550 520 IF B3=0 THEN 550 530 R1=INT(RND(1)*8+1):R2=INT(RND(1)*8+1):IF S(R1,R2)<>0 THEN 530 540 S(R1,R2)=4 550 IF S3=0 THEN 590 560 FOR A=1 TO S3 570 R1=INT(RND(1)*8+1):R2=INT(RND(1)*8+1):IF S(R1,R2)<>0 THEN 570 580 S(R1,R2)=2:NEXT A 590 G(Q1,Q2)=INT(G(Q1,Q2))+.5 600 PRINT 610 PRINT"QUADRANT (";MID$(STR$(Q1),2,1);",";MID$(STR$(Q2),2,1);")" 620 PRINT"SECTOR (";MID$(STR$(S!! 870 IF D(1)>=0 OR W1<=AC THEN 900 880 PRINT AR$;"Warp Engines are damaged, maximum speed = ";AC 890 GOTO 820 900 TEC=TEC+1:C$="":IF K3>0 THEN GOSUB 2290 910 IF E>5*W1 THEN 980 920 IF S<1 THEN 2450 930 PRINT"Captain, you only have"E"units of energy. " 940 PRINT"Refuel from your Shield reserves, which have"S"units"; 950 Q9$="NO":INPUT " ";Q9$:IF (Q9$="Y" OR Q9$="YES") THEN GOSUB 6860 960 A=6:IF D(A)<0 THEN 2450 970 GOTO 710 980 FOR I=1 TO 10:IF D(I)>=0 THEN 1020 990 D(I)=D(I)+1:IF D(I)<0 THEN 1020! 0 DATA Phasers, Photon Torpedoes,Shield Control 300 DATA Damage Control, Computer,Damage Repair,Communications 310 FOR A=1 TO 10:READ D$(A):NEXT A 320 A$(0)=" . ":A$(1)=" E ":A$(2)=" * ":A$(3)=" K ":A$(4)=" B " 330 F1=.86:F2=.01:F3=.95:F4=.99:K9=0:B9=K9 340 FOR I=1 TO 8:FOR J=1 TO 8:R1=RND(1):R2=RND(1):R3=INT(8*RND(1)+1) 350 K3=-(R1>F1-F2*R9)-(R1>F3-F2*R9)-(R1>F4-F2*R9):K9=K9+K3 360 B3=-(R2>F3):B9=B9+B3:G(I,J)=100*K3+10*B3+R3:NEXT J,I 370 IF NOT(B9>0 AND K9>0)THEN 330 380 PRINT"Objective:Destroy"K9!1),2,1);",";MID$(STR$(S2),2,1);")" 630 IF KP<>0 THEN 4060 640 IF DT=1 THEN 2680 650 IF S<200*K3 THEN PRINT AR$;"Shield Energy too low":SL=1:A=6:GOTO 750 660 A=2: GOTO 750 670 PRINT 680 PRINT D$(2):FOR A=1 TO 8:FOR B=1 TO 8:PRINT A$(S(A,B));:NEXT B:PRINT:NEXT A 690 PRINT:PRINT"Shields";S;SPC(4);"Energy";E;SPC(4);"Photons";P; 700 PRINT SPC(4);"Stardays";T9-T 710 GOSUB 3220:INPUT"Command";A 720 IF A>10 OR A<0 THEN INPUT" ----> COMMAND";A 730 IF A>10 OR A<0 THEN PRINT"WARNING - PROPER COMMANDS ONLY !!10 'EXPANDED APRIL 1977 BY W.A. BURTON 20 'PIRATED JAN. 1978 BY ZOSO 30 DIM G(8,8),S(8,8),K(3,3) 40 PRINT CHR$(26) 50 GOSUB 5470 60 PRINT 70 INPUT "What is your security clearance number (1 TO 1000)";T9 80 E8=T9 90 IF T9<1 OR T9>1000 THEN PRINT AR$;"INVALID!! REENTER!!":GOTO 70 100 FOR A=1 TO T9/2 110 R9=RND(1):R9=RND(2) 120 NEXT 130 CLEAR:PRINT CHR$(26):INPUT" Enter rank (1=Low,12=High)";R9 140 IF (R9<1 OR R9>12) THEN GOTO 130:RR=R9 150 X4=R9:R9=R9+1E-03:W1=W1+1E-03 160 PRINT CHR$(!Y"Klingons using"B9"starbase"; 390 U=K9:Y=B9 400 IF B9=1 THEN PRINT" ";:GOTO 420 410 PRINT"s "; 420 T9=K9+RND(1)*K9/R9+10-R9:PR=T9/K9:PRINT"in"T9"stardays." 430 GOSUB 4270 440 S3=0:B3=S3:K3=B3:FOR A=1 TO 8:FOR B=1 TO 8:S(A,B)=0:NEXT B,A 450 FOR A=1 TO 3:FOR B=1 TO 3:K(A,B)=0:NEXT B,A:S(S1,S2)=1 460 X=.01*G(Q1,Q2):K3=INT(X):Y=(X-K3)*10:B3=INT(Y) 470 S3=G(Q1,Q2)-100*K3-10*B3 480 IF K3=0 THEN FOR A=1 TO 3:FOR B=1 TO 3:K(A,B)=0:NEXT B,A:GOTO 520 490 PRINT AR$;"CONDITION RED !!!!!":FOR A=1 TO K3 500 R !! w 1000 IF D(7)<0 THEN 1020 1010 PRINT"Damage Control report: "D$(I)" repaired." 1020 NEXT I:IF RND(1)>.1 THEN 1130 1030 IF RND(1)>.1 THEN 1130 1040 GOTO 1100 1050 IF RND(1)>R9/10 THEN RETURN 1060 R1=INT(RND(1)*8+1):IF D(R1)<0 THEN RETURN 1070 D(R1)=D(R1)-10*RND(1)-1:IF D(7)<0 THEN RETURN 1080 IF D(7)<0 THEN RETURN 1090 PRINT:PRINT"Damage Control report: "D$(R1)" out.":PRINT:RETURN 1100 R1=INT(RND(1)*8+1):IF D(R1)>=0 THEN 1130 1110 IF D(7)<0 THEN 1130 1120 PRINT:D(R1)=0:PRINT"Damage Control repor!S4)=0:G(Q1,Q2)=G(Q1,Q2)-100 1990 K3=K3-1:K9=K9-1:IF K9=0 THEN 2650 2000 FOR A=1 TO 3 2010 IF K(A,1)=S3 AND K(A,2)=S4 THEN K(A,1)=0:K(A,2)=0:K(A,3)=0 2020 NEXT A 2030 GOTO 710 2040 PRINT AR$;"Starbase destroyed":B3=0:B9=B9-1:S(S3,S4)=0:GOTO 2060 2050 PRINT AR$;"You can't destroy a star":GOTO 710 2060 G(Q1,Q2)=G(Q1,Q2)-10:GOTO 710 2070 NEXT W1 2080 GOTO 710 2090 FOR W1=0 TO 8 2100 S3=INT(S1-W1*SIN(C1*CX)) 2110 S4=INT(S2+W1*COS(C1*CX)) 2120 IF S3>8 OR S4>8 OR S3<1 OR S4<1 THEN 710 2130 GOTO 1950! g" 1350 S=0:P=10:C$="D":E=3000-XA+100 1360 GOSUB 2290 1370 FOR R1=1 TO 10 1380 IF D(R1)>=0 THEN NEXT R1:GOTO 710 1390 D(R1)=D(R1)+(11*RND(1)/R9):NEXT R1:GOTO 710 1400 NEXT X:S(S1,S2)=0:S1=8-B2+8*INT(B2/8):S2=A2+1-8*INT(A2/8) 1410 Q3=8-INT(B2/8):Q4=INT(A2/8)+1 1420 IF NOT(Q1=Q3 AND Q2=Q4)THEN Q1=Q3:Q2=Q4:GOTO 440 1430 S(S1,S2)=1:FOR A=S1-1 TO S1+1:FOR B=S2-1 TO S2+1 1440 IF A>8 OR B>8 OR A<1 OR B<1 THEN 1460 1450 IF S(A,B)=4 THEN 1340 1460 NEXT B,A:GOTO 710 1470 PRINT 1480 FOR A=(Q1-1) TO (Q1+1!1740 PRINT") destroyed":K3=K3-1:K9=K9-1:IF K9=0 THEN 2650 1750 G(Q1,Q2)=G(Q1,Q2)-100:S(K(I,1),K(I,2))=0:K(I,1)=0:K(I,2)=0 1760 K(I,3)=0 1770 NEXT I 1780 GOTO 710 1790 PRINT 1800 IF P>0 THEN 1830 1810 PRINT AR$;"All Photon Torpedoes expended" 1820 GOTO 710 1830 INPUT"DIRECTION";C1 1840 T=T+.05:IF T>T9 THEN 2520 1850 P=P-1:IF C$<>"D" THEN GOSUB 2290 1860 A1=8*Q2+S2-9:B1=72-8*Q1-S1:IF C1=90*INT(C1/90)THEN 2090 1870 DEF FNA1(W1)=INT(.5+A1+W1*COS(C1*CX)) 1880 DEF FNB1(W1)=INT(.5+B1+W1*SIN(C1*CX)) ! Rt: "D$(R1)" repaired.":PRINT 1130 W1=W1*8:A1=8*Q2+S2-9:B1=72-8*Q1-S1:IF W1<1 THEN W1=W1*1.25 1140 E=E-2*W1:T=T+W1/25:IF T>T9 THEN 2520 1150 A2=INT(A1+W1*COS(C1*CX)+.5) 1160 B2=INT(B1+W1*SIN(C1*CX)+.5) 1170 IF NOT(A2<0 OR A2>63 OR B2<0 OR B2>63)THEN 1200 1180 PRINT AR$;"Captain, heed Starfleet regulations! ( STAY IN GALAXY ) !! 1190 T=T+W1/24:GOTO 710 1200 DEF FNA1(X)=INT(.5+A1+X*COS(C1*CX)) 1210 DEF FNB1(X)=INT(.5+B1+X*SIN(C1*CX)) 1220 FOR X=0 TO INT(W1) 1230 IF NOT(Q1=8-INT(FNB1(X)/8)AND Q2=INT(! 2140 PRINT 2150 PRINT"Energy available="E+S" Number of units to Shields"; 2160 INPUT X 2170 IF X<0 THEN 710 2180 IF E+S-X<0 THEN 2150 2190 E=E+S-X 2200 S=X 2210 IF SL=1 THEN 660 2220 GOTO 710 2230 PRINT 2240 PRINT"DEVICE STATE OF REPAIR" 2250 FOR R1=1 TO 10:PRINT D$(R1);TAB(21) D(R1):NEXT R1 2260 IF DT=1 THEN 2680 ELSE 710 2270 PRINT"Short Range Sensors report no Klingons in this quadrant" 2280 IF DT=1 THEN 2680 ELSE 710 2290 IF C$="D" AND K3<>0 THEN PRINT"Starbase protects Enterp!):FOR B=(Q2-1) TO (Q2+1) 1490 IF A<1 OR B<1 OR A>8 OR B>8 THEN PRINT" ***";:NEXT B:PRINT" ":PRINT:NEXT A:GOTO 710 1500 PRINT" "SPC(3-LOG(G(A,B)+1)/LOG(10)); 1510 PRINT MID$(STR$(G(A,B)),2,LOG(G(A,B))/LOG(10)+1); 1520 G(A,B)=INT(G(A,B))+.5:NEXT B:PRINT" ":PRINT:NEXT A:GOTO 710 1530 PRINT 1540 IF K3<=0 THEN 2270 1550 IF D(8)>=0 THEN 1570 1560 PRINT AR$;" Computer failure hampers accuracy" 1570 PRINT"Phasers locked on target. Energy available="E 1580 PRINT"Number of units to fire:"; 1590 INPUT X 1!1890 FOR W1=0 TO 10 STEP .9 1900 IF W1=0 THEN S3=S1:S4=S2:GOTO 1950 1910 IF NOT(Q1=8-INT(FNB1(W1)/8)AND Q2=INT(FNA1(W1)/8+1))THEN 710 1920 S3=8-FNB1(W1)+8*INT(FNB1(W1)/8):S4=FNA1(W1)+1-8*INT(FNA1(W1)/8) 1930 IF FNA1(W1)=A2 AND FNB1(W1)=B2 THEN 2070 1940 A2=FNA1(W1):B2=FNB1(W1) 1950 PRINT"(";MID$(STR$(S3),2,1);",";MID$(STR$(S4),2,1);")";A$(S(S3,S4)) 1960 ON S(S3,S4)+1 GOTO 2070,2070,2050,1970,2040 1970 IF RND(1)<(.1*X4) THEN PRINT"Shields deflect Torpedo":GOTO 710 1980 PRINT"Klingon destroyed":S(S3,! FNA1(X)/8+1))THEN X=W1:GOTO 1400 1240 S3=8-FNB1(X)+8*INT(FNB1(X)/8):S4=FNA1(X)+1-8*INT(FNA1(X)/8) 1250 IF S(S3,S4)<2 THEN 1400 1260 S(S1,S2)=0:S1=8-FNB1(X-1)+8*INT(FNB1(X-1)/8) 1270 S2=FNA1(X-1)+1-8*INT(FNA1(X 1)/8):S(S1,S2)=1 1280 PRINT AR$;"Navigational error :Engines shut down at ("; 1290 PRINT MID$(STR$(S1),2,1);","MID$(STR$(S2),2,1);")" 1300 T=T+(W1/24) 1310 PRINT" You lost "T" units startime restarting engines." 1320 PRINT 1330 IF S(S3,S4)<>4 THEN 710 1340 PRINT"Shields lowered for refuelin!600 IF E-X<0 THEN PRINT"NOT ENOUGH POWER":GOTO 710 1610 T=T+.05:IF T>T9 THEN 2520 1620 E=E-X 1630 IF C$<>"D"THEN GOSUB 2290 1640 IF D(8)>=0 THEN 1660 1650 X=X*RND(1) 1660 FOR I=1 TO 3 1670 IF K(I,3)<=0 THEN 1770 1680 H=(X/FND(0))+SGN(RND(1)-.5)*8*RND(1) 1690 K(I,3)=K(I,3)-H 1700 PRINT H"Unit hit on vessel at (";MID$(STR$(K(I,1)),2,1);","; 1710 PRINT MID$(STR$(K(I,2)),2,1);"), leaving"K(I,3)" 1720 IF K(I,3)>0 THEN 1770 1730 PRINT"Klingon at (";MID$(STR$(K(I,1)),2,1);",";MID$(STR$(K(I,2)),2,1); ""rise" ELSE 2310 2300 GOTO 710 2310 PRINT 2320 FOR I=1 TO 3 2330 IF K(I,3)<=0 THEN 2430 2340 H=K(I,3)/FND(0)+SGN(RND(1)-.5)*RND(1)*7 2350 S=S-H:PRINT H"Unit hit from ("MID$(STR$(K(I,1)),2,1);","; 2360 PRINT MID$(STR$(K(I,2)),2,1);"), leaving"S 2370 IF S<0 THEN 2550 2380 GOSUB 1050 2390 IF RND(1)>R9/10 THEN 2430 2400 R1=INT(8*RND(1)+1):R2=INT(8*RND(1)+1) 2410 IF NOT(S(R1,R2)=0)THEN 2400 2420 S(R1,R2)=3:S(K(I,1),K(I,2))=0:K(I,1)=R1:K(I,2)=R2 2430 NEXT I 2440 RETURN 2450 PRINT AR$;" Enterprise d"3400 IF SD<>1 THEN 4230 ELSE 5320 3410 GOTO 710 3420 GOSUB 3660 3430 GOTO 2680 3440 PRINT"You have screwed up once too often !" 3450 PRINT"Off to the Vulcan torture camps !!" 3460 IF T<= 0 THEN 2630ELSE 3560 3470 PRINT"You will be executed at sunrise" 3480 GOTO 3560 3490 PRINT"You will be put to death for your incompetence" 3500 GOTO 3560 3510 PRINT"You will be confined to your quarters until" 3520 PRINT"Vulcan's moons become tourist traps !!" 3530 IF T<=0 THEN 2630ELSE 3560 3540 PRINT"Imbecil"Status Report" 2750 PRINT" 3 = Photon Trajectory" 2760 PRINT" 4 = New Mission" 2770 PRINT" 5 = Present Position" 2780 PRINT" 6 = Self-Destruct" 2790 PRINT" 7 = Warp-Compass" 2800 PRINT" 8 = Mission Progress Report" 2810 PRINT" 9 = Exit Computer" 2820 GOTO 2680 2830 PRINT:PRINT"--TEMPORARY MALFUNCTION--":GOTO 710 2840 IF XM<0 THEN 2880 2850 PRINT AR$;"Safety check -- Do you wish to abort mission":INPUT AN$ 2860 IF LEFT$(AN$,1)<>"Y" THEN 2890 ELSE 130 2870 PRINT 2880 PRINT"You have"+360 3160 IF C2(I)<0 THEN C2(I)=C2(I)+360 3170 PRINT"(";MID$(STR$(K(I,1)),2,1);",";MID$(STR$(K(I,2)),2,1); 3180 PRINT")",C2(I),C3(I),W1 3190 NEXT I 3200 IF DT=1 THEN 2680 ELSE 710 3210 RETURN 3220 MR=(T9-T)/K9:DT=0 3230 XM=((MR-PR)/PR)*100 3240 IF KA=1 THEN PRINT TK-T"stardates left to save Starbase.":GOTO 3330 3250 IF RND(1)>.01*R9 OR B9=0 THEN RETURN 3260 KA=1:FOR A=1 TO 8:FOR B=1 TO 8 3270 IF G(A,B)-100*INT(G(A,B)/100)>9 THEN K1=A:K2=B:IF RND(1)>.5 THEN A=8:B=8 3280 NEXT B,A:TK=T+.09*SQR((Q1"ead in space" 2460 PRINT 2470 CY=1:PRINT:GOTO 2590 2480 IF K3<=0 THEN 2590 2490 GOSUB 2290 2500 GOTO 2480 2510 PRINT 2520 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT AR$; 2530 PRINT"It is stardate"T:PRINT 2540 GOTO 2590 2550 PRINT 2560 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT AR$; 2570 PRINT"Enterprise disabled !!":PRINT:PRINT 2580 CY=0 2590 PRINT"There are"K9"Klingons remaining.":IF CY<>0 THEN 3560 2600 PRINT"You have failed !!":PRINT 2610 L=INT(RND(1)*5) 2620 ON L+1 GOTO 3440,3470,3490,3510,3540 2630" e !! We hope you consider suicide!" 3550 IF T<=0 THEN 2630ELSE 3560 3560 L=(U-K9)*10+((U-K9)*500/T)-100*(Y-B9) 3570 IF E<=0 OR S<0 THEN L=L-200 3580 IF K9=0 THEN L=L+(R9*100) 3590 PRINT:PRINT 3600 PRINT"Your mission rating is: ";L 3610 PRINT:PRINT:pPRINT:PRINT:PRINT 3620 GOSUB 5450 3630 PRINT CHR$(26) 3640 GOTO 5460 3650 GOTO 2630 3660 PRINT 3670 PRINT"  O9O" 3680 PRINT" 135  . 5O45" 3690 PRINT" . . ." 3700 PRINT" . . ." 3710 PRINT"18O . "C not been authorized for new mission !!":PRINT 2890 GOTO 2680 2900 PRINT"QUADRANT CODE MEMORY MAP" 2910 FOR A=1 TO 8:FOR B=1 TO 8:IF G(A,B)=INT(G(A,B))THEN PRINT" ???";:GOTO 2940 2920 PRINT" "SPC(3-LOG(G(A,B)+1)/LOG(10)); 2930 PRINT MID$(STR$(G(A,B)),2,LOG(G(A,B))/LOG(10)+1); 2940 NEXT B:PRINT" ":NEXT A:GOTO 2680 2950 PRINT" STATUS REPORT" 2960 PRINT"Number of Klingons left ="K9 2970 PRINT"Number of stardates left ="T9-T 2980 PRINT"Number of Starbases left ="B9 2990 A=7:GOTO 750 3000 IF K3=0 T"<-K1)^2+(Q2-K2)^2)*(10-R9) 3290 TK=TK+1 3300 PRINT AR$;"!!! Starbase in quadrant ("MID$(STR$(K1),2,1)","; 3310 PRINT MID$(STR$(K2),2,1)") is under attack!!" 3320 PRINT"You have"TK-T"stardates to save it!":RETURN 3330 IF T=10 THEN PRINT AR$;" NO SUCH COMMAND !!":GOTO 2690 2710 ON A GOTO 2900,2950,3000,2840,600,3400,3420,5120,710 2720 PRINT"FUNCTIONS AVAILABLE FROM COMPUTER" 2730 PRINT" 1 = Galactic Memory Map" 2740 PRINT" 2 = General "+HEN 2270 3010 IF D(2)<0 THEN A=2:GOTO 740 3020 PRINT"COORD","LOWDIR","HIGHDIR","DIST" 3030 FOR A=1 TO 47:PRINT"-";:NEXT A 3040 PRINT 3050 FOR I=0 TO 3 3060 IF NOT(K(I,3)>0)THEN 3190 3070 W1=SQR((S1-K(I,1))^2+(S2-K(I,2))^2) 3080 IF W1=0 THEN PRINT"--->MALFUNCTION !":GOTO 710 3090 ON ERROR GOTO 2830 3100 C1=1.5708-ATN((K(I,2)-S2)/W1/SQR(1-((K(I,2)-S2)/W1)^2)) 3110 ON ERROR GOTO 2830 3120 C1=C1*SGN(S1-K(I,1))/CX 3130 C2(I)=C1-(10*RND(1)) 3140 C3(I)=C1+(10*RND(1)) 3150 IF C3(I)<0 THEN C3(I)=C3(I) "" y7 . . E . . .OOO WARP-COMPASS" 3720 PRINT" @. . ." 3730 PRINT" . . ." 3740 PRINT" 225  . 315" 3750 PRINT" 27O" 3760 PRINT 3770 RETURN 3780 XX=INT(RND(2)*10)+1 3790 RETURN 3800 PRINT:IF X4>12 THEN 3900 3810 PRINT"Command Central advises that your ranking-";X4;"-is in the expert" 3820 PRINT"category. Be advised that if you are not properly qualified" 3Q830 PRINT"your chances of avoiding failure are nil." 3840 PRINT 3850 PRINT"Do y"U GOTO 4730,4750,4790,4790,4760 4790 GF=TF*1.5 4800 IF XM>GF THEN 4880 4810 IF XM>TF THEN 4850 4820 PRINT:PRINT"Captain, despite your slight advantage, you are no match for" 4830 PRINT"the glorious Klingon Fleet" 4840 PRINT TAB(25)"End of message from Klingon Command":GOTO 710 4850 GOSUB 3780 4860 IF XX<=5 THEN PRINT" Klingon command to Enterprise..":GOTO 4750 4870 GOTO 4890 4880 PRINT CHR$(26) 4890 PRINT:PRINT"Message from Klingon leaders..." 4900 PRINT:PRINT"We concede the war, Sir, congratulat" <rise" 4190 GOSUB 3780:A=XX 4200 GOSUB 3780:I=(XX/2)+(X4/7) 4210 PRINT"Your ";D$(A);" will be inoperative for ";I "units of startime" 4220 D(A)=D(A)-I:GOTO 710 4230 PRINT 4240 PRINT"Security Control advises that no authorization has been" 4250 PRINT"given to activate Self- Destruct system." 4260 PRINT"Proceed with assigned mission":PRINT:GOTO 2690 4270 PRINT 4280 PRINT"Be advised, your mission progress factor is";PR 4290 GOSUB 3780 4300 TF=(XX*X4)/1.6:IF TF<10 THEN TF=TF+10 4310 PRINT" The toler"XRINT:PRINT 4540 GOSUB 5450 4550 GOTO 5320 4560 PRINT:PRINT"You are ahead of schedule and beyond tolerance factor" 4570 PRINT"Call Klingon leaders and request their surrender":KQ=1 4580 PRINT:GOTO 3910 4590 PRINT AR$;"Message from Command base" 4600 PRINT:PRINT"Enemy has surrendered to Federation Command !!" 4610 PRINT:PRINT:PRINT:PRINT 4620 GOTO 2650 4630 IF KQ=1 THEN 4880:IF EQ=1 THEN 4660 4640 ON SGN(XM)+2 GOTO 4650,4710,4760 4650 IF ABS(XM)<=TF THEN 4710 4660 PRINT:PRINT"Klingon command on f" ou wish reassignment to a less hazardous mission (Y or N)" 3860 INPUT AN$ 3870 IF LEFT$(AN$,1)="Y"THEN 130 3880 IF LEFT$(AN$,1)="y" THEN 130 3890 PRINT CHR$(26):GOTO 240 3900 PRINT"You have requested a suicide mission":GOTO 3840 3910 PRINT"--COMMUNICATIONS ACTIVE--" 3920 PRINT 3930 GOSUB 3780 3940 PD=XX 3950 GOSUB 3780 3960 PE=XX 3970 GOSUB 3780 3980 PF=XX 3990 GOSUB 3780 4000 PG=XX 4010 PH=PD*10+PE 4020 PJ=PF*10+PG 4030 IF PH=PJ THEN 2830 4040 KP=1:IF PD=PE OR PF=PG THEN 4050ELSE 4070 4"ions !!":GOTO 3610 4910 AV=INT(X4/2)+1:DR=-1 4920 IF TEC"D" THEN 4980 ELSE 5000 4940 AU=AV-TEC:IF AU=1 THEN KF$=""ELSE KF$="s" 4950 PRINT:PRINT"Damage Repair inactive !!" 4960 PRINT"Requires";AU;"more recharge unit";KF$ 4970 PRINT:GOTO 710 4980 PRINT:PRINT AR$"You must be docked at Starbase for Damage Repair !!" 4990 PRINT:GOTO 710 5000 PRINT 5010 PRINT:FOR A=1 TO 10 5020 IF D(A)<0 THEN PRINT TAB(10)A;TAB(20)D$(A);TAB(40)"damaged" 5030 NEXT 5040 PRINT:PRINT"If no dama"ance factor for this mission is [+/-]";TF;"percent" 4320 PRINT 4330 RETURN 4340 ON SGN(XM)+2 GOTO 4350,4390,4410 4350 IF ABS(XM)>(TF*1.5)THEN 4470 4360 IF ABS(XM)>TF THEN 4440 4370 PRINT:PRINT"Captain, you are behind schedule - Let's go !!" 4380 GOTO 710 4390 PRINT:PRINT"You are exactly on computed schedule; Proceed with mission" 4400 GOTO 710 4410 IF XM>TF THEN 4560:IF XM>(TF*1.5)THEN 4590 4420 PRINT:PRINT"You are ahead of computed schedule, keep up the good work !!" 4430 GOTO 710 4440 PRINT:P"requency" 4670 PRINT"Naturally, we are pleased that you are conceding, Captain" 4680 PRINT"We are presently boarding your craft" 4690 PRINT:PRINT"Here is a message from your leaders-":PRINT:GOSUB 5450 4700 PRINT CHR$(26):GOTO 2610 4710 GOSUB 3780 4720 IF XX<=5 THEN 4750 4730 PRINT:PRINT"Message from Klingon Command...." 4740 PRINT"Eat Phaser Death, Federation dogs!!":GOTO 4840 4750 PRINT:PRINT"We'll talk with our weapons, Earth-swine !!":GOTO 4840 4760 GOSUB 3780 4770 AQ=INT((XX+1)/2) 4780 ON AQ" 050 PRINT"Sunspots block transmission at : ":GOTO 610 4060 PRINT"Move elsewhere and try again":PRINT:GOTO 820 4070 PRINT"Authorized frequencies":PRINT 4080 PRINT"Federation Command Base = ";PH 4090 PRINT"Klingon Command Central = ";PJ 4100 PRINT 4110 INPUT"Communication on channel ";XF 4120 IF XF=PH THEN 4340 4130 IF XF=PJ THEN 4630 4140 PRINT 4150 PRINT AR$;"ALERT !!" 4160 PRINT"Attempted communication on unauthorized frequency" 4170 PRINT 4180 PRINT"While security check is conducted on enterp"RINT"You are behind schedule and out of tolerance factor !!" 4450 PRINT"Command Control projects failure...you may surrender to enemy" 4460 EQ=1:SD=1:GOTO 3910 4470 YY=AC^X4 4480 PRINT CHR$(26) 4490 PRINT AR$;"---COMPUTER PROJECTION--":PRINT 4500 PRINT"Projected likelihood of success for your mission =";YY;"percent" 4510 PRINT"We have auto activated Self-Destruct system on your vessel" 4520 PRINT"Goodbye, Captain..>.":PRINT 4530 PRINT"End of message from Federation Command":P ##ge indicated above, answer with 0 (ZERO)" 5050 INPUT "Which one to repair ";A 5060 IF A<1 OR A>10 THEN PRINT AR$;:GOTO 710 5070 IF D(A)<0 THEN 5090 5080 PRINT:PRINT D$(A);" not damaged !!":GOTO 5050 5090 PRINT:PRINT TAB(20)D$(A);"-- repaired":PRINT 5100 D(A)=0:TEC=0:GOTO 710 5110 PRINT:PRINT AR$;"Nothing damaged at present":GOTO 710 5120 PRINT 5130 GOSUB 4310 5140 PRINT"Initial mission progress factor was";PR 5150 PRINT"Current mission progress factor is ";MR 5160 IF XM<0 THEN PW$=" worse#e the ship, to defend" 5890 PRINT "the ship, or to fire at Klingons. In executing any of the afore-" 5900 PRINT "mentioned functions, energy is expended. If you ever run out of" 5910 PRINT "energy, you will be immobile and defenseless.":PRINT:PRINT 5920 PRINT " A SUMMARY OF TOP LEVEL COMMANDS FOLLOWS:" 5930 PRINT 5940 PRINT "---> LIST TOP LEVEL COMMANDS (Activated by a '0') 5950 PRINT " This will list the commands you have available to you in" 5960 PRINT " response to `COMMAND?'. 5970 P#T:GOSUB 5440 5420 PRINT"ZERO":GOSUB 5440 5430 PRINT CHR$(26):GOTO 5460 5440 FOR I=1 TO 50:A=A+1:NEXT:RETURN 5450 FOR I=1 TO 1200:A=A+1:NEXT:RETURN 5460 GOTO 6910 5470 REM INTRODUCTION TO GAME. R.SCHRADER, 1/12/83 5480 REM WITH ADDITIONS AND CORRECT=IONS BY V. STAPEL 5490 PRINT:PRINT:PRINT:PRINT 5500 PRINT " SPACE - THE FINAL FRONTIER!":PRINT 5510 PRINT " THESE ARE THE VOYAGES OF THE STARSHIP ENTERPISE. THE MISSION: " 5520 PRINT " TO SEEK NEW LIFE AND NEW CIVILIZATIONS; TO#Krants. The 3-digit" 5690 PRINT "numbers encode information about quadrants. The first digit" 5700 PRINT "tells how many Klingons are in the quadrant; the second, how" 5710 PRINT "many friendly bases; the third, how many stars." 5720 PRINT:INPUT "HIT RETURN TO CONTINUE";Q8:PRINT CHR$(26):PRINT 5730 PRINT " When you are in a quadrant, it will be displayed as:" 5740 PRINT:PRINT 5750 PRINT "  ." 5760 PRINT " . K . * ." 5770 PRINT "  ." 5780 PRINT " * #aned "ELSE PW$=" improved " 5170 PRINT 5180 PRINT"Your combat situation has";PW$;"by a factor of";XM;"percent" 5190 IF ABS(XM)>=TF THEN EG$=" not "ELSE EG$=" " 5200 IF EG$=" "THEN EH$=""ELSE EH$=AR$ 5210 PRINT EH$;"Your progress is";EG$;"within tolerance for this mission" 5220 PRINT 5230 IF EG$=" not "THEN 5240 ELSE 2680 5240 IF XM<0 THEN 5250 ELSE 5290 5250 PRINT:SD=1:KD=0 5260 PRINT"Captain, Command Central projects defeat by enemy. You are now" 5270 PRINT"authorized to surrender or to activate # RINT 5980 PRINT "---> WARP (Activated by entering a '1')" 5990 PRINT " WARP moves the starship. Upon entering the command, you" 6000 PRINT " will be asked for a direction of travel ( 0 to 360 degrees," 6010 PRINT " 0 is right, 90 is up, etc), and the warp speed." 6020 PRINT 6030 PRINT "---> SHORT-RANGE SCAN (Activated by a '2')" 6040 PRINT " Displays the local quadrant." 6050 PRINT:INPUT "HIT RETURN TO CONTINUE";Q8 6060 PRINT CHR$(26) 6070 PRINT "---> LONG-RANGE SCAN ('3')" 60#" BOLDLY GO WHERE NO" 5530 PRINT " MAN HAS GONE BEFORE.":PRINT:PRINT:PRINT:PRINT 5540 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:INPUT "Do you need instructions";Q9$ 5550 IF LEFT$(Q9$,1)="N" THEN RETURN 5560 IF LEFT$(Q9$,1)="n" THEN RETURN ELSE PRINT CHR$(26) 5570 PRINT " ** WELCOME TO STARTREK **":PRINT 5580 PRINT " You are in control of the Starship Entrprise. Your mission" 5590 PRINT "will be to rid the galaxy of Klingons." 5600 PRINT " The known ga#. . * ." 5790 PRINT "  .B E . ." 5800 PRINT " . . . K . . . B" 5810 PRINT " . * K ." 5820 PRINT " . . . * . . . *" 5830 PRINT:PRINT 5840 PRINT "The Klingons are represented by 'K', stars by '*', Your ship by" 5850 PRINT "an 'E', bases by 'B', and empty sectors by '.'" 5860 PRINT:INPUT "HIT RETURN TO CONTINUE";Q8:PRINT CHR$(26):PRINT 5870 PRINT " In your pursuit of Klingons, you will have a large number of" 5880 PRINT "units of energy. These can by used to mov#oSelf-Destruct system" 5280 GOTO 2680 5290 PRINT:SD=0:KD=1 5300 PRINT"Captain, Federation Command projects success for your mission." 5310 GOTO 4560 5320 PRINT CHR$(26) 5330 GOSUB 5440 5340 PRINT"Self Destruct System activated" 5350 PRINT:PRINT:PRINT:GOSUB 5440 5360 PRINT"COUNTDOWN BEGUN !":PRINT:PRINT 5370 PRINT TAB(25)"FIVE":PRINT:GOSUB 5440 5380 PRINT TAB(20)"FOUR":PRINT:GOSUB 5440 5390 PRINT TAB(15)"THREE":PRINT:GOSUB 5440 5400 PRINT TAB(10)"TWO":PRINT:GOSUB 5440 5410 PRINT TAB(5)"ONE":PRIN# laxy is mapped into 64 quadrants (8 X 8). Each" 5610 PRINT "quadrant is composed of 64 sectors (also 8 X 8)." 5620 PRINT " A map of the galaxy, as represented by your on-board Com-" 5630 PRINT "puter, looks like this:":PRINT 5640 FOR Q8=1 TO 3:PRIN7T " ??? ??? ??? ??? ??? ??? ??? ???":NEXT Q8 5650 PRINT " ??? ??? ??? ??? 316 ??? ??? ???" 5660 FOR Q8=1 TO 4:PRINT " ??? ??? ??? ??? ??? ??? ??? ???":NEXT Q8 5670 PRINT 5680 PRINT "The question marks represent unexplored quad## >80 PRINT " Displays information about your quadrant and it's eight" 6090 PRINT " immediate neighbors:":PRINT 6100 PRINT " 103 8 104 ) (Numbers are interprteted" 6110 PRINT " 203 316 4 &like on a galactic map)" 6120 PRINT " 106 505 207":PRINT 6130 PRINT " The computer updates your galactic map after every " 6140 PRINT " Long-Range scan." 6150 PRINT 6160 PRINT "---> PHASERS ('4')" 6170 PRINT " Computer-controlled high energy beams#X5= 6830 INPUT "HIT RETURN TO START";Q8 6840 PRINT CHR$(26)  6850 RETURN < 6860 PRINT " Amount to transfer from Shields";: INPUT Q8 & 6870 IF Q8<0 OR Q8>S THEN GOTO 6860  6880 S=S-Q8:E=E+Q8:PRINT 2 6890 PRINT E;" units of energy now - Try again." 6900 RETURN  #  are docked at a Starbase." 6410 PRINT:INPUT "HIT RETURN TO CONTINUE";Q8:PRINT CHR$(26) 6420 PRINT:PRINT "LIST OF COMPUTER COMMANDS" 6430 PRINT " These are the options available to you in response" 6440 PRINT "to `Computer on---COMMAND?'":PRINT:PRINT 6450 PRINT "---> `0' Lists available commands from the Computer.":PRINT 6460 PRINT "---> GALACTIC MEMORY MAP (`1')" 6470 PRINT " This option lists all quadrants that the Enterprise has" 6480 PRINT " been to or has seen through a Long-Range S#  are fired at all" 6180 PRINT " Klingons in the quadrant." 6190 PRINT 6200 PRINT "---> PHOTON TORPEDOES ('5')" 6210 PRINT " One of ten Torpedoes can be fired at a Klingon. They must" 6220 PRINT " be manually aimed." 6230 PRINT:INPUT "HIT RETURN TO CONTINUE";Q8:PRINT CHR$(26) 6240 PRINT 6250 PRINT "---> SHIELDS ('6')" 6260 PRINT " As the Klingons have weapons like yours, your ship has" 6270 PRINT " shields to protect it. This command controls the energy" 6280 PRINT " in# 6910 RESET  & < 6860 PRINT " Amount to transfer from Shields";: INPUT Q8 & 6870 IF Q8<0 OR Q8>S THEN GOTO 6860  6880 S=S-Q8:E=E+Q8:PRINT 2 6890 PRINT E;" units of energy now - Try again." 6900 RETURN  #lcan.":PRINT 6490 PRINT "---> GENERAL STATUS REPORT (`2')" 6500 PRINT " This will list the number of Klingons, Stardates and" 6510 PRINT " Starbases left, as well as the state of repair of all" 6520 PRINT " devices on the ship.":PRINT 6530 PRINT "---> PHOTON TRAJECTORY (`3')" 6540 PRINT " This will assist in telling the Captain what direction" 6550 PRINT " to aim the Photon Torpedoes.":PRINT 6560 INPUT "HIT RETURN TO CONTINUE";Q8:PRINT CHR$(26) 6570 PRINT "---> NEW MISSION #|NUE";Q8:PRINT CHR$(26) 6740 PRINT "---> EXIT COMPUTER (`9')" 6750 PRINT " This returns you to the top level of commands." 6760 PRINT 6770 PRINT 6780 PRINT " Some free advice for beginners:" A 6790 PRINT " 1) Put enery in the shields before warping." 6800 PRINT " 2) When in doubt, consult the Computer (COMMAND 8)" 6810 PRINT " 3) Choose a low Security Clearance and a low Rank." 6820 PRINT  #  the shields." 6290 PRINT 6300 PRINT "---> DAMAGE CONTROL ('7')" 6310 PRINT " Enables you to check the operational status of any of the" 6320 PRINT " ship's functions. " 6330 PRINT 6340 PRINT "---> COMPUTER ('8')" 6350 PRINT " Accesses the on-board Computer. (See the list of computer" 6360 PRINT " commands at the end of this list.)" 6370 PRINT 6380 PRINT "---> DAMAGE REPAIR ('9')" 6390 PRINT " This will allow you to repair damage to the Enterprise" 6400 PRINT " if you#  are docked at a Starbase." 6410 PRINT:INPUT "HIT RETURN TO CONTINUE";Q8:PRINT CHR$(26) 6420 PRINT:PRINT "LIST OF COMPUTER COMMANDS" 6430 PRINT " These are the options available to you in response" 6440 PRINT "to `Computer on---COMMAND?'":PRINT:PRINT 6450 PRINT "---> `0' Lists available commands from the Computer.":PRINT 6460 PRINT "---> GALACTIC MEMORY MAP (`1')" 6470 PRINT " This option lists all quadrants that the Enterprise has" 6480 PRINT " been to or has seen through a Long-Range S#roy the" 6660 PRINT " Enterprise to avoid take-over by the Klingons.":PRINT 6670 PRINT "---> WARP-COMPASS (`7')" 6680 PRINT " With the Enterprise in the middle, this will help deter-" 6690 PRINT " mine direction for movement and Photon Trajectory.":PRINT 6700 PRINT "---> MISSION PROGRESS REPORT (`8')" 6710 PRINT " This gives the Initial and Current Progress Factors as " 6720 PRINT " well as the tolerance factor for this mission.":PRINT 6730 INPUT "HIT RETURN TO CONTI#  are fired at all" 6180 PRINT " Klingons in the quadrant." 6190 PRINT 6200 PRINT "---> PHOTON TORPEDOES ('5')" 6210 PRINT " One of ten Torpedoes can be fired at a Klingon. They must" 6220 PRINT " be manually aimed." 6230 PRINT:INPUT "HIT RETURN TO CONTINUE";Q8:PRINT CHR$(26) 6240 PRINT 6250 PRINT "---> SHIELDS ('6')" 6260 PRINT " As the Klingons have weapons like yours, your ship has" 6270 PRINT " shields to protect it. This command controls the energy" 6280 PRINT " in# 6910 RESET  & < 6860 PRINT " Amount to transfer from Shields";: INPUT Q8 & 6870 IF Q8<0 OR Q8>S THEN GOTO 6860  6880 S=S-Q8:E=E+Q8:PRINT 2 6890 PRINT E;" units of energy now - Try again." 6900 RETURN  #lcan.":PRINT 6490 PRINT "---> GENERAL STATUS REPORT (`2')" 6500 PRINT " This will list the number of Klingons, Stardates and" 6510 PRINT " Starbases left, as well as the state of repair of all" 6520 PRINT " devices on the ship.":PRINT 6530 PRINT "---> PHOTON TRAJECTORY (`3')" 6540 PRINT " This will assist in telling the Captain what direction" 6550 PRINT " to aim the Photon Torpedoes.":PRINT 6560 INPUT "HIT RETURN TO CONTINUE";Q8:PRINT CHR$(26) 6570 PRINT "---> NEW MISSION #|NUE";Q8:PRINT CHR$(26) 6740 PRINT "---> EXIT COMPUTER (`9')" 6750 PRINT " This returns you to the top level of commands." 6760 PRINT 6770 PRINT 6780 PRINT " Some free advice for beginners:" A 6790 PRINT " 1) Put enery in the shields before warping." 6800 PRINT " 2) When in doubt, consult the Computer (COMMAND 8)" 6810 PRINT " 3) Choose a low Security Clearance and a low Rank." 6820 PRINT  #  the shields." 6290 PRINT 6300 PRINT "---> DAMAGE CONTROL ('7')" 6310 PRINT " Enables you to check the operational status of any of the" 6320 PRINT " ship's functions. " 6330 PRINT 6340 PRINT "---> COMPUTER ('8')" 6350 PRINT " Accesses the on-board Computer. (See the list of computer" 6360 PRINT " commands at the end of this list.)" 6370 PRINT 6380 PRINT "---> DAMAGE REPAIR ('9')" 6390 PRINT " This will allow you to repair damage to the Enterprise" 6400 PRINT " if you#(`4')" 6580 PRINT " This is to be used on the first couple of turns to abort" 6590 PRINT " a mission that is too much (or too little) for the" 6600 PRINT " player's experience or skill.":PRINT 6610 PRINT "---> PRESENT POSITION (`5')" 6620 PRINT " If your Short-Range Scanners are out, this will give your" 6630 PRINT " present position, but NOT what is in the quadrant.":PRINT 6640 PRINT "---> SELF-DESTRUCT (`6')" 6650 PRINT " If Security Control authorizes it, you may dest $5$$TRINT"HOW MANY NUMBERS DO YOU WANT IN THE LIST"; 1120 INPUT N 1130 LET N=INT(N) 1140 IF N <= 0 THEN SYSTEM 1150 IF N<=50 THEN 1180 1160 PRINT"At this time, regulations allow a maximum of 50 numbers." 1170 GOTO 1100 1180 LET Y=0 1190 LET Z=0 1200 PRINT 1210 PRINT"The list is:"; 1220 FOR I=1 TO N 1230 PRINT I; 1240 LET L(I)=1 1250 NEXT I 1260 IF N>1 THEN 1310 1270 PRINT 1280 PRINT"How very generous of you to forfeit all to the Taxman." 1290 PRINT"The Taxman has 1 You have 0 THE TAXMAN$50 GOSUB 630 160 '--V-> CHECK IF ANY NUMBERS STILL HAVE FACTORS 170 GOSUB 740 180 IF M=1 THEN 110 190 '--)-> FIND THE WINNER 200 GOSUB 960 210 '--> AGAIN? 220 GOTO 1030 230 '---> THE HUMAN MOVES 240 PRINT 250 PRINT 260 PRINT"You take"; 270 INPUT K 280 LET K=INT(K) 290 IF K <= 0 THEN 1030 300 IF K <=N THEN 330 310 PRINT K;"is not in the list -- try again." 320 GOTO 25$#HECK IF THE LIST IS EMPTY 740 IF M=0 THEN 940 750 FOR I=N TO 4 STEP -1 760 FOR J=2 TO I/2 770 IF L(J)=0 THEN 810 780 IF I<> J*INT(I/J) THEN 810 790 LET M=1 800 RETURN 810 NEXT J 820 NEXT I 830 '---> THE TAXMAN GETS THE REST OF THE NUMBERS 840 PRINT 850 PRINT"I get"; 860 FOR I=1 TO N 870 IF L(I)=0 THEN 900 880 PRINT I; 890 LET Z=Z+I 900 NEXT I 910 PRINT"because no factors of any number are left." 920 PRINT"My total is";Z 930 LET M=0 940 RETURN 950 ' ---$$ , WINS." 1300 GOTO 1030 1310 RETURN 1320 '--> INSTRUCTIONS 1330 PRINT 1340 PRINT"You try to beat the Taxman." 1350 PRINT 1360 PRINT"We start with a list of whole numbers in numerical" 1370 PRINT"order (You decide how many)." 1380 PRINT 1390 PRINT"You take a number from the list -- The Taxman gets" 1400 PRINT"all the factors of your number that are still left." 1410 PRINT"Your number and all of its factors are then deleted" 1420 PRINT"from the list." 1430 P$D 0 330 IF L(K)=0 THEN 310 340 '--> FIND ALL THE FACTORS 350 IF K>1 THEN 390 360 PRINT"There are no factors of";K;"for me!" 370 PRINT"Are you trying to short-change the Taxman?" 380 GOTO 250 390 LET M=0 400 FOR I=1 TO K/2 410 IF L(I)=0 THEN 460 420 IF K <> I*INT(K/I) THEN 460 43>0 LET M=M+1 440 LET T(M)=I 450 LET L(I)=0 460 NEXT I 470 '--_> CHECK WHETHER THERE WERE ANY FACTORS 480 IF M=0 THEN 360 490 LET L(K)=0 500 RETURN 510 '--> COMP$---> FIND THE WINNER 960 PRINT 970 IF Z>Y THEN 1000 980 PRINT"You have";Y;" The Taxman has";Z;" YOU WIN!!!" 990 RETURN 1000 PRINT"The Taxman has";Z;" You have";Y;" THE TAXMAN WINS." 1010 RETURN 1020 '--> AGAIN? 1030 PRINT 1040 PRINT 1050 INPUT"Again (Type Y or N)";ANS$ 1060 IF LEFT$(ANS$,1)="N" THEN 1600 1070 IF LEFT$(ANS$,1)="n" THEN 1600 1080 GOTO 90 1090 '--%> INITIALIZATION 1100 PRINT 1110 P$10 DIM T(10) 20 DIM L(50) 30 PRINT CHR$(26):PRINT:PRINT 40 PRINT "Hi, I'm the Taxman" 50 INPUT "Do you want the regulations (type Y or N)";ANS$ 60 IF LEFT$(ANS$,1)="Y" THEN 1330 70 IF LEFT$(ANS$,1)="y" THEN 1330 80 '--'-> INITIALZATION 90 GOSUB 1100 100 '--1> THE HUMAN TAKES A NUMBER 110 GOSUB 240 120 '--A-> COMPUTE THE HUMAN'S AND TAXMAN'S TOTALS 130 GOSUB 520 140 '--> PRINT THE NEW LIST 1$UTE THE HUMAN'S AND TAXMAN'S TOTALS 520 LET Y=Y+K 530 PRINT"Your total is";Y 540 PRINT"I get"; 550 FOR I=1 TO M 560 PRINT T(I); 570 LET Z=Z+T(I) 580 NEXT I 590 PRINT 600 PRINT"My total is";Z 610 RETURN 620 '--> PRINT THE NEW LIST 630 PRINT 640 PRINT"NEW LIST:"; 650 LET M=0 660 FOR I=1 TO N 670 IF L(I)=0 THEN 700 680 PRINT I; 690 LET M=1 700 NEXT I 710 RETURN 720 '--2-> CHECK IF ANY NUMBERS STILL HAVE FACTORS 730 ' --> C $$ RINT 1440 PRINT"Example: Suppose you want ten numbers to be in the list." 1450 PRINT"The list would be: 1 2 3 4 5 6 7 8 9 10" 1460 PRINT 1470 PRINT"If you took 8, the Taxman would get: 1, 2, AND 4" 1480 PRINT"and the new list would be: 3 5 6 7 9 10" 1485 PRINT 1490 INPUT"TYPE TO GO ON";W 1495 PRINT 1500 PRINT"The Taxman must get something every time, so you can" 1510 PRINT"only pick a number that has factors left." 1520 PRINT 1530 PRINT"When none of the remaining numbers have factors," $0 IF M(R(I),C(I))>1 THEN 620 680 FOR I1=1 TO 5 690 IF Q(I1)=0 THEN 870 700 NEXT I1 710 IF M(R(I),C(I)+1)>3 THEN 870 720 IF M(R(I),C(I)-1)>3 THEN 870 730 IF M(R(I)+1,C(I))>3 THEN 870 740 IF M(R(I)-1,C(I))>3 THEN 870 750 A1=M(R(I),C(I)+1) 760 A2=M(R(I),C(I)-1) 770 A3=M(R(I)+1,C(I)) 780 A4=M(R(I)-1,C(I)) 790 IF A1=2 AND A2<4 AND A3<4 AND A4<4 THEN 620 800 IF A2=2 AND A1<4 AND A3<4 AND A4<4 THEN 620 810 IF A3=2 AND A1<4 AND A2<4 AND A4<4 THEN 620 820 IF A4=2 AND A1<4 AND A2<4 AND A3<4 T$ $(ANS$,1)="Y" THEN GOSUB 3410 321 IF LEFT$(ANS$,1)="y" THEN GOSUB 3410 330 PRINT Z1$ 340 FOR I=1 TO P1 350 PRINT "Player",I, 370 INPUT " what is your name ";P$ 380 IF I=1 THEN P1$=P$ 390 IF I=2 THEN P2$=P$ 400 IF I=3 THEN P3$=P$ 410 IF I=4 THEN P4$=P$ 420 NEXT I 430 PRINT Z1$ 440 PRINT TAB(10),"...Now I will decide who goes first...":: PRINT:PRINT 445 PRINT:PRINT 450 PRINT:PRINT:PRINT 460 I=INT(P1*RND(R1)+1) 470 GOSUB 490 480 GOTO 550 490 PRINT 500 ON I GOTO 510,520,530,540: REM - IDE$ J 1540 PRINT"the Taxman gets them!!!" 1550 PRINT 1560 PRINT"Your score is the sum of numbers you take." 1570 PRINT"If you want to give up, take 0." 1580 PRINT"GOOD LUCK !!!" 1590 GOTO 90 1600 SYSTEM  sum of numbers you take." 1570 PRINT"If you want1485 PRINT 1490 INPUT"TYPE TO GO ON";W 1495 PRINT 1500 PRINT"The Taxman must get something every time, so you can" 1510 PRINT"only pick a number that has factors left." 1520 PRINT 1530 PRINT"When none of the remaining numbers have factors," $HEN 620 830 IF A1=3 AND A2<4 AND A3<4 AND A4<4 THEN 620 840 IF A2=3 AND A1<4 AND A3<4 AND A4<4 THEN 620 850 IF A3=3 AND A1<4 AND A2<4 AND A4<4 THEN 620 860 IF A4=3 AND A1<4 AND A2<4 AND A3<4 THEN 620 870 NEXT I 880 GOSUB 2060 890 PRINT 900 I=P 910 GOSUB 490 920 PRINT ", Here are your legal moves for this turn" 930 PRINT 940 FOR I=1 TO 5 950 PRINT R(I);MID$(M$,C(I),1);" "; 960 NEXT I 970 PRINT:PRINT 980 INPUT "What is your move ";R$ 990 IF LEN(R$)=0 THEN R$="S" 1000 IF LEFT$(R$,1$5 REM STAR TRADERS 10 REM - MODIFIED FOR 'ALTAIR BASIC 4.0' BY - S J SINGER 20 REM 30 REM 35 DEFINT C 36 DEFINT I 40 DIM M(10,13),S(5,4),N$(5),D1(5),S1(5),Q(5),M$(12),C$(25) 50 DIM C1$(25),C2$(25) 60 DATA 1,"`Altair Starways'" 70 DATA 2,"`Betelgeuse,LTD.'" 80 DATA 3,"`Capella Freight Co.'" 90 DATA 4,"`Denebola Shippers'" 100 DATA 5,"`Eridani Expediters'" 110 Z1$=CHR$(26)+CHR$(0) 120 PRINT Z1$ 130 FOR I=1 TO 5 140 FOR J=1 TO 4 150 S(I,J)=0: D1(I)=0: S1(I)=100: Q(I)=0: $NTIFY PLAYER 510 PRINT P1$;:P5$=P1$: RETURN 520 PRINT P2$;:P5$=P2$: RETURN 530 PRINT P3$;:P5$=P3$: RETURN 540 PRINT P4$;:P5$=P4$: RETURN 550 PRINT " is the first player to move." 560 FOR W=1 TO 2000: NEXT 570 K=0 580 P=I:GOTO 610 590 K=K+1: IF K=D48 THEN 4450 600 P=P+1: IF P=P1+1 THEN P=1 610 FOR I=1 TO 5: REM --> SELECT 5 LEGAL MOVES 620 R(I)=INT(9*RND(R1)+1) 630 C(I)=INT(12*RND(R1)+1) 640 FOR I1=I-1 TO 0 STEP -1 650 IF R(I)=R(I1) AND C(I)=C(I1) THEN 620 660 NEXT I1 67$ $w\B(I)=6000 160 NEXT J 170 NEXT I 180 L$=".+*ABCDE" 190 M$="ABCDEFGHIJKL" 195 PRINT" ** STAR TRADERS **":PRINT 197 PRINT:PRINT 200 INPUT "Type a 3 digit number ";R1 220 R1=RND(-R1/1000) 230 FOR I=1 TO 9 240 FOR J=1 TO 12 250 IF INT(20*RND(R1)+1)<>10 THEN M(I,J)=1 ELSE M(I,J)=3 260 NEXT J 270 NEXT I 280 PRINT Z1$ 290 INPUT "How many playeqrs (1-4) ";P1 300 PRINT:PRINT 310 INPUT "Does any player need instructions (Type Y or N)";ANS$ 320 IF LEFT$ %%V)="M" THEN R$="" ELSE 1030 1010 GOSUB 2060 1020 GOTO 900 1030 IF LEFT$(R$,1)="S" THEN R$="" ELSE 1060 1040 GOSUB 3230 1050 GOTO 900 1060 IF LEN(R$)<>2 THEN 1110 1070 IF ASC(MID$(R$,2,1))-64<1 THEN 1110 1080 IF ASC(MID$(R$,2,1))-64>12 THEN 1110 ELSE 1120 1090 IF VAL(R$)<1 THEN 1110 1100 IF VAL(R$)>9 THEN 1110 1110 PRINT "I didn't understand that - Try again ": GOTO 980 1120 R=VAL(LEFT$(R$,1)) 1130 C=ASC(RIGHT$(R$,1))-64 1140 FOR I= 1 TO 5 1150 IF R=R(I) AND C=C(I) THEN 1190 1160 NEXT I %470 PRINT Z1$ 2480 GOSUB 3370: REM SUBROUTINE - PERFORMS CALCULATIONS 2490 RESTORE: REM TO ACCOMPLISH A MERGER 2500 READ N,C$ 2510 IF X<>N THEN 2500 2520 C1$=C$ 2530 PRINT C1$; 2540 PRINT " has just been merged into "; 2550 RESTORE 2560 READ N,C$ 2570 IF T1<>N THEN 2560 2580 C2$=C$ 2590 PRINT C2$;"!" 2610 PRINT "Please note the following transactions." 2620 PRINT 2630 PRINT TAB(3);"OLD STOCK = ";C1$;" NEW STOCK = "; 2640 PRINT C2$ 2650 PRINT 2660 PRINT "PLAYER";TAB(10);"OL%1490 PRINT "It's name is ", 1500 RESTORE 1510 READ N,C$ 1520 IF I<>N THEN 1510 1530 PRINT C$ 1540 S(I,P)=S(I,P)+5 1550 Q(I)=1 1560 PRINT:PRINT:PRINT:PRINT 1570 IF A1=3 THEN S1(I)=S1(I)+500 1580 IF A2=3 THEN S1(I)=S1(I)+500 1590 IF A3=3 THEN S1(I)=S1(I)+500 1600 IF A4=3 THEN S1(I)=S1(I)+500 1610 IF A1=2 THEN S1(I)=S1(I)+100 ELSE 1640 1620 Q(I)=Q(I)+1 1630 M(R-1,C)=I+3 1640 IF A2=2 THEN S1(I)=S1(I)+100 ELSE 1670 1650 Q(I)=Q(I)+1 1660 M(R+1,C)=I+3 1670 IF A3=2 THEN S1(I)=S1(I)+100 ELSE 1700 %_FRINT MAP 2070 PRINT TAB(22);"MAP OF THE GALAXY" 2080 PRINT TAB(21);" **_*" 2090 PRINT TAB(13);" A B C D E F G H I J K L" 2100 FOR R2=1 TO 9 2110 PRINT" ";R2;" "; 2120 FOR C2=1 TO 12 2130 PRINT" "; 2140 Z2=M(R2,C2) 2150 IF Z2=0 THEN Z2=Z2+1 2160 PRINT MID$(L$,Z2,1)" "; 2180 NEXT 2190 PRINT 2200 NEXT 2210 RETURN 2220 F1=A1-3: IF F1<0 THEN F1=0:REM SUBROUTINE - CALCULATES THE 2230 F2=A2-3: IF FB2<0 THEN F2=0:REM SURVIVOR IN THE EVENT 2240 F3=A3-3: IF F3<0%1170 PRINT "That space was not included in the list..." 1180 GOTO 980 1190 A1=M(R-1,C) 1200 A2=M(R+1,C) 1210 A3=M(R,C+1) 1220 A4=M(R,C-1) 1230 IF A1<=1 AND A2<=1 AND A3<=1 AND A4<=1 THEN M(R,C)=2 ELSE 1250 1240 GOTO 1760 1250 IF A1>3 AND A2>3 AND A2<>A1 THEN GOSUB 2220:REM - LINE 2090 IS 1260 IF A1>3 AND A3>3 AND A3<>A1 THEN GOSUB 2220\REM THE MERGER SUB. 1270 IF A1>3 AND A4>3 AND A4<>A1 THEN GOSUB 2220 1280 IF A2>3 AND A3>3 AND A3<>A2 THEN GOSUB 2220 1290 IF A2>3 AND A4>3 AND A4<>A2 THEN GOSU% D STOCK";TAB(22);"NEW STOCK"; 2670 PRINT TAB(34);"TOTAL HOLDINGS";TAB(53);"BONUS PAID" 2680 FOR I=1 TO P1 2690 GOSUB 490 2700 PRINT TAB(10);S(X,I);TAB(22);INT((.5*S(X,I))+.5); 2710 PRINT TAB(34);S(T1,I)+INT((.5*S(X,I))+.5); 2720 X1=0 2730 FOR I1=1 TO P1 2740 X1=X1+S(X,I1) 2750 NEXT 2760 PRINT TAB(53);" $";INT(10*((S(X,I)/X1)*S1(X))) 2770 NEXT I 2780 FOR I=1 TO P1 2790 S(T1,I)=S(T1,I)+INT((.5*S(X,I))+.5) 2800 B(I)=B(I)+INT(10*((S(X,I)/X1)*S1(X))) 2810 NEXT I 2820 FOR I=1 TO 9%1680 Q(I)=Q(I)+1 1690 M(R,C+1)=I+3 1700 IF A4=2 THEN S1(I)=S1(I)+100 ELSE 1730 1710 Q(I)=Q(I)+1 1720 M(R,C-1)=I+3 1730 IF S1(I)>=3000 THEN T1=I ELSE 1750 1740 GOSUB 3100 1750 M(R,C)=I+3 1760 FOR I=1 TO 5 1770 B(P)=B(P)+INT(.05*S(I,P)*S1(I)) 1780 NEXT I 1790 FOR I=1 TO 5 1800 IF Q(I)=0 THEN 2040 1810 PRINT:PRINT "Your current cash= $";B(P) 1820 PRINT:PRINT "Buy how many shares of "; 1830 RESTORE 1840 READ N,C$ 1850 IF I<>N THEN 1840 1860 PRINT C$; 1870 PRINT " at $";S1(I) 1880 PRIN% THEN F3=0:REM OF A MERGER 2250 F4=A4-3: IF F4<0 THEN F4=0 2260 T=Q(F1) 2270 T1=F1 2280 IF Q(F2)>Q(F1) THEN T=Q(F2) ELSE 2300 2290 T1=F2 2300 IF Q(F3)>T THEN T=Q(F3) ELSE 2320 2310 T1=F3 2320 IF Q(F4)>T THEN T=Q(F4) ELSE 2340 2330 T1=F4 2340 IF F1=T1 OR A1<4 THEN 2370 2350 X=F1 2360 GOSUB 2470 2370 IF F2=T1 OR A2<4 THEN 2400 2380 X=F2 2390 GOSUB 2470 2400 IF F3=T1 OR A3<4 THEN 2430 2410 X=F3 2420 GOSUB 2470 2430 IF F4=T1 OR A4<4 THEN 2460 2440 X=F4 2450 GOSUB 2470 2460 RETURN 2%B 2220 1300 IF A3>3 AND A4>3 AND A4<>A3 THEN GOSUB 2220 1310 IF A1<4 AND A2<4 AND A3<4 AND A4<4 THEN 1410 1320 IF M(R,C)>3 THEN 1760 1330 IF A1>3 THEN I=A1-3 1340 IF A2>3 THEN I=A2-3 1350 IF A3>3 THEN I=A3-3 1360 IF A4>3 THEN I=A4-3 1370 Q(I)=Q(I)+1 1380 S1(I)=S1(I)+100 1390 M(R,C)=I+3 1400 GOTO 1570 1410 FOR I=1 TO 5 1420 IF Q(I)=0 THEN 1460 1430 NEXT I 1440 IF M(R,C)<3 THEN M(R,C)=2 1450 GOTO 1760 1460 PRINT Z1$ 1470 GOSUB 3370 1480 PRINT "A new shipping company has been formed !" % T TAB(5); "You now own ";S(I,P); 1890 INPUT R3$:IF LEN(R3$)=0 THEN R3$="0" 1900 IF R3$(1,1)="M" THEN R3$="" ELSE 1930 1910 GOSUB 2060 1920 GOTO 1810 1930 IF R3$(1,1)="S" THEN R3$="" ELSE 1960 1940 GOSUB 3230 1950 GOTO 1810 1960 R3=VAL(R3$) 1970 R3$="" 1980 IF R3*S1(I)<=B(P) THEN 2010 1990 PRINT "You only have $";B(P);" - Try again" 2000 GOTO 1810 2010 IF R3=0 THEN 2040 2020 S(I,P)=S(I,P)+R3 2030 B(P)=B(P)-(R3*S1(I)) 2040 NEXT I 2050 GOTO 590 2060 PRINT Z1$: REM  SUBROUTINE - P %+%  2830 FOR J=1 TO 12 2840 IF M(I,J)=X+3 THEN M(I,J)=T1+3 2850 NEXT J 2860 NEXT I 2870 A1=M(R-1,C) 2880 A2=M(R+1,C) 2890 A3=M(R,C+1) 2900 A4=M(R,C-1) 2910 F1=A3-3 2920 IF F1<0 THEN F1=0 2930 F2=A2-3 2940 IF F2<0 THEN F2=0 2950 Q(T1)=Q(T1)+Q(X) 2960 S1(T1)=S1(T1)+S1(X) 2970 IF S1(T1)=>3000 THEN GOSUB 3100 2980 F3=A3-3 2990 IF F3<0 THEN F3=0 3000 F4=A4-3 3010 IF F4<0 THEN F4=0 3020 S1(X)=100 3030 Q(X)=0 3040 FOR I=1 TO P1 3050 S(X,I)=0 3060 NEXT I 3070 PRINT:PRINT 3080 M(R,%U not adjacent to an existing shipping lane. If he/she" 3910 PRINT "establishes a new shipping lane, he/she is automatically" 3920 PRINT "issued 5 shares of the new company as a reward. He/she" 3930 PRINT "may then proceed to buy stock in any active company," 3940 PRINT "including the one just formed, as described below.":PRINT 3950 PRINT "The market value of the new stock is established by the" 3960 PRINT "number of stars and occupied spaces as described in #2" 3970 PRINT "above." 398% anes, and purchasing stock in" 3460 PRINT "the companies that control those trade routes. During" 3470 PRINT "the course of the game, stock appreciates in value as" 3480 PRINT "the shipping companies become larger. Also, smaller" 3490 PRINT "companies can be merged into larger ones, and stock" 3500 PRINT "in the smaller firm is converted into stock in the larger" 3510 PRINT "one as described below.":PRINT 3520 PRINT "Each turn, the computer will present the player with" 3%rto one - and only one -" 3740 PRINT "existing shipping lane, the space he/she selects will be" 3750 PRINT "that shipping lane and will be designated with the first" 3760 PRINT "letter of the company that owns that lane. if there are" 3770 PRINT "any stars or unattached outposts also adjacent to the" 3780 PRINT "selected space, they, too, will be incorporated into the" 3790 PRINT "existing lane. Each new square adjacent to a star adds" 3800 PRINT "$500 per share, and each new outpo% C)=T1+3 3090 RETURN 3100 GOSUB 3370: REM SUBROUTINE - CALCULATES STOCK SPLITS 3110 PRINT "The stock of ", 3120 RESTORE 3130 READ N,C$ 3140 IF T1<>N THEN 3130 3150 PRINT C$, 3160 PRINT " has split 2 for 1 !" 3170 S1(T1)=INT(S1(T1)/2) 3180 PRINT:PRINT 3190 FOR I1=1 TO P1 3200 S(T1,I1)=2*S(T1,I1) 3210 NEXT I1 3220 RETURN 3230 PRINT Z1$ 3240 PRINT 3250 PRINT "STOCK";TAB(30);"PRICE PER SHARE"; 3260 PRINT TAB(50);"YOUR HOLDINGS" 3270 FOR I3=1 TO 5 3280 IF S1(I3)=100 THEN 3340 329%0 PRINT:PRINT 3990 GOSUB 3620 4000 PRINT Z1$ 4010 PRINT " 4. He/she may merge two existing companies - if a player" 4020 PRINT "selects a space adjacent to two existing shipping lanes, a" 4030 PRINT "merger occurs. The larger company takes over the smaller" 4040 PRINT "company. (If both companies are the same size prior to the" 4050 PRINT "merger, then the survivor is determined by alphabetical order" 4060 PRINT "of the two company names - the earlier survives.)" 4070 PRINT "The stock of%530 PRINT "five prospective spaces to occupy on a 9 X 12 matrix" 3540 PRINT "(rows 1-9, columns A-L). The player, after examining the" 3550 PRINT "map of the galaxy to decide which space he or she wishes" 3560 PRINT "to occupy, responds with the row and column of that" 3570 PRINT "space (I.E., 7E, 8A, ETC). There are five possible moves" 3580 PRINT "a player can make.":PRINT:PRINT 3590 PRINT 3600 GOSUB 3620 3610 GOTO 3660 3620 INPUT "PRESS TO CONTINUE";X2$:PRINT CHR$(26) 365%st adds $100 per share" 3810 PRINT "to the market value of the stock of that company." 3820 PRINT:PRINT 3830 GOSUB 3620 3840 PRINT Z1$ 3850 PRINT " 3. He/she may establish a new shipping lane - if there" 3860 PRINT "are five or less existing shipping lanes established." 3870 PRINT "The player may, given the proper space to play, establish" 3880 PRINT "a new shipping lane. He/she may do this by occupying a" 3890 PRINT "space adjacent to a star or another unattached outpost," 3900 PRINT "but% `0 RESTORE 3300 READ N,C$ 3310 IF I3<>N THEN 3300 3320 PRINT C$, 3330 PRINT TAB(30);S1(I3);TAB(50);S(I3,P) 3340 NEXT I3 3350 RESTORE 3360 RETURN 3370 PRINT CHR$(7) 3380 PRINT TAB(22);"SPECIAL ANNOUNCEMENT !!!":PRINT 3390 PRINT 3400 RETURN 3410 PRINT Z1$ 3420 PRINT " Star lanes is a game of interstellar trading." 3430 PRINT "The object of the game is to amass the greatest amount" 3440 PRINT "of money. This is accomplished by establishing vast," 3450 PRINT "interstellar shipping l%50 RETURN 3660 PRINT Z1$ 3670 PRINT " 1. A player can establish an unattached outpost - if" 3680 PRINT "he/she selects a space that is not adjacent to a star," 3690 PRINT "another unattached outpost, or an existing shipping lane," 3700 PRINT "that space will be designated with a `+'. He/she will" 3710 PRINT "then proceed with stock transactions, as listed below.":PRINT 3720 PRINT " 2. A player can add to an existing lane - if he/she" 3730 PRINT "selects space that is adjacent &&V the surviving company is increased in value" 4080 PRINT "according to the number of spaces and stars added to its" 4090 PRINT "lane. Each players stock in the defunct company is exchanged" 4100 PRINT "for shares in the survivor on a ratio of 2 for 1. Also, each" 4120 PRINT "player is paid a cash bonus proportional to the percentage" 4130 PRINT "of outstanding stock he held in the defunct company." 4140 PRINT "NOTE: After a company becomes defunct through the merger" 4150 PRINT "process&NT "`STOCK' to an input statement. Likewise, he/she can review" 4340 PRINT "the map of the galaxy by typing `MAP' to an input statement." 4350 PRINT:PRINT 4360 GOSUB 3620 4370 PRINT Z1$ 4380 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT 4390 PRINT TAB(16);"** GAME ENDS AFTER 48 MOVES **" 4400 PRINT:PRINT:PRINT:PRINT 4410 PRINT "The player with the greatest net worth at that point is the winner." 4420 PRINT:PRINT 4430 FOR W=1 TO 2000:NEXT W 4440 RETURN 4450 PRINT Z1$ 4460 GOSUB 3370 4470 FOR &51 PRINT CHR$(26):PRINT:PRINT:PRINT:PRINT:PRINT 5 REM *** HUNT THE WUMPUS *** 10 DIM P(5) 15 INPUT "Do you want instructions (type Y or N)";ANS$ 17 IF LEFT$(ANS$,1)="N" THEN 35 18 IF LEFT$(ANS$,1)="n" THEN 35 22 PRINT:PRINT:PRINT 30 GOSUB 375 35 GOTO 80 80 REM *** SET UP CAVE (DODECAHEDRAL NODE LIST) *** 85 DIM S(20,3) 90 FOR J=1 TO 20 95 FOR K=1 TO 3 100 READ S(J,K) 105 NEXT K 110 NEXT J 115 DATA 2,5,8,1,3,10,2,4,12,3,5,14,1,4,6 12&, it can reappear elsewhere on the board when, and if" 4160 PRINT "a new company is established." 4170 PRINT:PRINT 4180 GOSUB 3620 4190 PRINT Z1$ 4200 PRINT " Next the computer adds stock dividends to the player's" 4210 PRINT "cash on hand (5% of the market value of the stock in his" 4220 PRINT "possession), and offers him the opportunity to purchase" 4230 PRINT "stock in any of the active companies on the board." 4240 PRINT "Stock may not be sold, but the market value of each" 4250 PRI& S-265 GOSUB 670 270 ON O GOTO 280,300 275 REM H*** SHOOT *** 280 GOSUB 715 285 IF F=0 THEN 255 290 GOTO 310 295 REM O *** MOVE *** 300 GOSUB 975 305 IF F=0 THEN 255 310 IF F>0 THEN 335 315 REM L *** LOSE *** 320 PRINT:PRINT "HA HA HA - You lose!" 325 GOTO 340 330 REM ( *** MOVE *** 335 PRINT:PRINT "HEE HEE &W=1 TO 500:NEXT W:PRINT CHR$(7) 4480 FOR W=1 TO 500:NEXT W:PRINT CHR$(7) 4490 PRINT TAB(10)," THE GAME IS OVER - HERE ARE THE FINAL STANDINGS" 4500 PRINT:PRINT:PRINT:PRINT 4510 PRINT CHR$(7) 4520 PRINT "PLAYER";TAB(10);"CASH VALUE OF STOCK";TAB(33);"CASH ON HAND", 4530 PRINT TAB(50);"NET WORTH" 4540 PRINT 4550 FOR I=1 TO P1 4560 FOR J=1 TO 5 4570 D1(I)=D1(I)+(S1(J)*S(J,I)) 4580 NEXT J 4590 NEXT I 4600 FOR I=1 TO P1 4610 GOSUB 490 4620 PRINT TAB(10);"$";D1(I);TAB(33);"$";B(I); 46&0 DATA 5,7,15,6,8,17,1,7,9,8,10,18,2,9,11 125 DATA 10,12,19,3,11,13,12,14,20,4,13,15,6,14,16 130 DATA 15,17,20,7,16,18,9,17,19,11,18,20,13,16,19 135 DEF FNA(X)=INT(20*RND(1))+1 140 DEF FNB(X)=INT(3*RND(1))+1 145 DEF FNC(X)=INT(4*RND(1))+1 150 REM & *** LOCATE L ARRAY ITEMS *** 155 REM *** 1-YOU, 2-WUMPUS, 3&4-PITS, 5&6-BATS *** 160 DIM L(6) 165 DIM M(6) 170 FOR J=1 TO 6 175 L(J)=FNA(0) 180 M(J)=L(J) 185 NEXT J 190 REM *** CHECK F&NT "player's stock is taken into account at the end of the" 4260 PRINT "game to determine the winner. If the market value of a" 4270 PRINT "given stock exceeds $3000 at any time during the game," 4280 PRINT "that stock splits 2 for 1. The price is cut in half, and" 4290 PRINT "the number of shares owned by each player is doubled." 4300 PRINT 4310 PRINT "NOTE: The player may look at his/her portfolio at any" 4320 PRINT "time during the course of his/her turn by responding with" 4330 PRI&30 PRINT TAB(50);"$";D1(I)+B(I) 4640 NEXT I 4650 PRINT:PRINT:PRINT:PRINT 4655 INPUT "Do you want to play again (type Y or N)";ANS$ 4660 IF LEFT$(ANS$,1)="N" THEN SYSTEM 4670 IF LEFT$(ANS$,1)="n" THEN SYSTEM 4680 RESET 4685 PRINT CHR$(26) 4690 GOTO 195  4660 IF LEFT$(ANS$,1)="N" THEN SYSTEM 4670 IF LEFT$(ANS$,1)="n" THEN SYSTEM 4680 RESET 4685 PRINT CHR$(26) 4690 GOT@ && ~HEE - The wumpus will get you next time!!" 340 FOR J=1 TO 6 345 L(J)=M(J) 350 NEXT J 355 PRINT:PRINT:INPUT "Do you want to play again (type Y or N)";A$ 356 IF LEFT$(A$,1)="N" THEN 1150 357 IF LEFT$(A$,1)="n" THEN 1150 360 PRINT:INPUT "Do you want t{he same setup (type Y or N)";AN$ 361 IF LEFT$(AN$,1)="N" THEN 170 362 IF LEFT$(AN$,1)="n" THEN 170 370 GOTO 230 375 REM \ *** INSTRUCTIONS *** 377 PRINT CHR$(26):PRINT:PRINT 380 PRINT "Welcome to `HUNT THE WUMPU&A , *** MOVE WUMPUS *** 860 GOSUB 935 865 REM Q*** AMMO CHECK *** 870 A=A-1 875 IF A>0 THEN 885 880 F=-1 885 RETURN 890 REM *** SEE IF ARROW IS AT L(1) OR AT L(2) 895 L=P(K) 900 IF L<>L(2) THEN 920 905 PRINT:PRINT "Aha! You got the wumpus!" 910 F=1 915 RETURN 920 IF L<>L(1) THEN 840 925 PRINT:PRINT "Ouch! Arrow got you!" 930 GOTO 880 935 REM  *** MOVE WUMPUS ROUTINE *** & ves (75% chance) one room" 475 PRINT " or stays still (25% chance). After that, if he is where you" 480 PRINT " are, he eats you up and you lose!" 485 PRINT 490 PRINT " YOU:" 495 PRINT " Each turn you may move or shoot a crooked arrow" 500 PRINT " MOVING: You can move one room (thru one tunnel)" 505 PRINT " ARROWS: You have 5 arrows. You lose when you run out" 510 PRINT " Each arrow can go from 1 to 5 rooms. You aim by telling" 515 PRINT " the computer the room numbers you want the &tREM *** CHOOSE OPTION *** 675 PRINT:PRINT "Shoot or move " 680 INPUT "(Type 0 for SHOOT or 1 for MOVE)";I 685 IF I<>0 THEN 700 690 O=1 695 RETURN 700 IF I<>1 THEN PRINT CHR$(7):GOTO 675 705 O=2 710 RETURN 715 REM ( *** ARROW ROUTINE *** 720 F=0 725 REM *** PATH OF ARROW *** 735 PRINT "No. of rooms (1-5)"; 740 INPUT J9 745 IF J9<1 THEN 735 750 IF J9>5 THEN 735 755 FOR K=1 TO J& S'" 385 PRINT " The wumpus lives in a cave of 20 rooms. Each room" 390 PRINT "has 3 tunnels leading to other rooms. (Look at a" 395 PRINT "dodecahedron to see how this works - if you don't know" 400 PRINT "what a dodecahedron is, ask someone)" 405 PRINT 410 PRINT " HAZARDS:" 415 PRINT " BOTTOMLESS PITS - Two rooms have bottomless pits in them." 420 PRINT " If you go there, you fall into the pit (and lose!)" 425 PRINT " SUPER BATS - Two other rooms have super bats. If you" 430 PRINT " &940 K=FNC(0) 945 IF K=4 THEN 955 950 L(2)=S(L(2),K) 955 IF L(2)<>L THEN 970 960 PRINT:PRINT "Tsk tsk tsk - Wumpus got you!" 965 F=-1 970 RETURN 975 REM *** MOVE ROUTINE *** 980 F=0 985 PRINT "Where to"; 990 INPUT L 995 IF L<1 THEN 985 1000 IF L>20 THEN 985 1005 FOR K=1 TO 3 1010 REM *** CHECK IF LEGAL MOVE *** 1015 IF S(L(1),K)=L THEN 1045 1020 NEXT K 1025 IF L=L(1) THEN 1045 1030 PRINT "Not possible -"; 1035 GOTO 985&arrow to go to." 520 PRINT " If the arrow can't go that way (if no tunnel), it moves" 525 PRINT " at random to the next room." 530 PRINT " If the arrow hits the wumpus, you win." 535 PRINT " If the arrow hits you, you lose." 540 PRINT:INPUT "TYPE TO CONTINUE ";W9:PRINT CHR$(26) 545 PRINT " WARNINGS:" 550 PRINT " When you are one room away from a wumpus or hazard," 555 PRINT " the computer says:" 560 PRINT " WUMPUS: `I smell a wumpus!'" 565 PRINT " BAT : `Bats ne&*9 760 PRINT "Room #"; 765 INPUT P(K) 770 IF K<=2 THEN 790 775 IF P(K)<>P(K-2) THEN 790 780 PRINT "Arrows aren't that crooked - try another room" 785 GOTO 760 790 NEXT K 795 REM z *** SHOOT ARROW *** 800 L=L(1) 805 FOR K=1 TO J9 810 FOR K1=1 TO 3 815 IF S(L,K1)=P(K) THEN 895 820 NEXT K1 825 REM r *** NO TUNNEL FOR ARROW *** 830 L=S(L,FNB(1)) 835 GOTO 900 840 NEXT K 845 PRINT "Missed" 850 L=L(1) 855 REM & go there, a bat grabs you and takes you to some other" 435 PRINT " room at random. (Which may be troublesome.)" 440 PRINT:INPUT "TYPE TO CONTINUE ";W9:PRINT CHR$(26) 441 PRINT:PRINT 445 PRINT " WUMPUS:" 450 PRINT " The wumpus is not bothered by hazards (he has sucker" 455 PRINT " feet and is too big for a bat to lift). Usually" 460 PRINT " he is asleep. Two things wake him up - You shooting an" 465 PRINT " arrow or you entering his room." 470 PRINT " If the wumpus wakes he mo&yParby!'" 570 PRINT " PIT : `I feel a draft!'" 575 PRINT 580 RETURN 585 REM *** PRINT LOCATION & HAZARD WARNINGS *** 590 PRINT 595 FOR J=2 TO 6 600 FOR K=1 TO 3 605 IF S(L(1),K)<>L(J) THEN 640 610 ON J-1 GOTO 615,625,625,635,635 615 PRINT "I smell a wumpus!" 620 GOTO 640 625 PRINT "I feel a draft!" 630 GOTO 640 635 PRINT "Bats nearby!" 640 NEXT K 645 NEXT J 650 PRINT "You are in room "L(1) 655 PRINT "Tunnels lead to "S(L,1);S(L,2);S(L,3) 660 PRINT 665 RETURN 670 ''s 1040 REM 1 *** CHECK FOR HAZARDS *** 1045 L(1)=L 1050 REM b*** WUMPUS *** 1055 IF L<>L(2) THEN 1090 1060 PRINT:PRINT "... Oops! Bumped a wumpus!" 1065 REM R *** MOVE WUMPUS *** 1070 GOSUB 940 1075 IF F=0 THEN 1090 1080 RETURN 1085 REM i *** PIT *** 1090 IF L=L(3) THEN 1100 1095 IF L<>L(4) THEN 1120 1100 PRINT:PRINT "YYYYIIIIEEEE . . . F''''_-ell in pit" 1105 F=-1 1110 RETURN 1115 REM *** BATS *** 1120 IF L=L(5) THEN 1130 1125 IF L<>L(6) THEN 1145 1130 PRINT:PRINT "Zap -- Super Bat Snatch! Elsewhereville for you!" 1135 L=FNA(1) 1140 GOTO 1045 1145 RETURN 1150 SYSTEM  1130 PRINT:PRINT "Zap -- Super Bat Snatch! Elsewhereville fo$r you!" 1135 L=FNA(1) 1140 GOTO 10@' '''' '9' '' '' '''' '((qg VV015/S2.0KAY-PRO DUP 5"-48/40 2S DD SS30510-1J  30510-1  (