TDucg( Kaypro 10Autoload Distkette #4 C-BASIC Digital Research S-BASIC Kaypro Corp    MASMENU COM rMASMENU DAT MASMENU TXT&MASPREP COM !"#$%&'(CANDR-C COM-)*+uCBAS2 COM&,-./0123456CRUN2 COM 789:;<=>?CRUN238 COM @ABCDEFGHXREF COM8IJKL5BASICLIBRELMNOPQRSTUVWXYZ[\BASICLIBRELD]^_`aCANDR-S COM.bcdDPLAY BASeFAC BASfGRAPHICSBASghGRAPHICSDOCCijklmÐ9Copyright (c) 1984, Kaypro Corporation MASMENU V. 5.226#> 6 #=+>6#=Ll$lQLlXlAڅ+[<+@H+aڅ+{҅+`w# .f++N+͌+w#O+{o|g +͌+w#p+!|a{9^#V*>>9}|ڷ+**"MASMENU:!"N""!"!! 9"!9^#V!0;w!9^#V##^#VBK?`i#DM`i~w`i^͔>\!"Nw*N ;`i^"N:!Ç#!9~#fo[;>)!9~#fo^#V^!-!;;)!9~#fo^#V#^ͼ>d!;!";)!9~#fo^#V#^ͼ>  OVERLAYBCOM6nopq1SBASIC COMLrstuvwxyz{|}~USERLIB REL2XAMN BAS SP-MAIN CMD  ZIP COMh RELOAD 4  x!;!";)!9~#fo^#V#^ͼ>s!;;!À!U!!])"f|n!!B)!!&!=!S"<!S">!!2!!͎!9"@!!2!!͎!9"H!!2!!͎!9"D!!!8!͎!9"B!!!8!͎!9"F*f+!9s#r!9^#V!:0;*<"|b!"!9^#V!:"*f!!!ͮ*!9*fz-"W!W!W!*D͜W!"dW!"bW!*<#s#r"`!*fx*?!C!4!*D0!B  !0!*< "<*<~!C!0!!"L*<[ !*<!!".!;"h|ʉ!9!9!l!j͂.!9*j+"jE%!"J!ß#*NA; \;+)*<^#V~#!"NØ*N|*N+"Lͪ MASMENU.DATr Can't find MASMENU.DAT:L":no&|’:no&|*|y!#+ [;s!!9DM|sJE%Ï!L"ʌ"DMÏ1×"DM!"`i!;ʮͱ9*J!;*<*>`i/ n&+*L[;O!B!0!*L#"L+[ !C!0#+"!2V ~:n& 0;:#n& !;O#:!4DM!!=!4! s#r! 9^`is`i:!4DM!!=! 9^`is!9^! s!9^! s!9^! s`i:!9^#V)! 9~#fo^#V! ^#VBKzk!!9^#V)!9~#fo^#V!>%?*f*!9W!!9^#V)!9~#fo^#V! s#rBK*F͜*F:! 9N#Fx$!ß+\;!"!#[;! !9Ø!!"!"N*<~!C!1!!"J!`i)^#V!>%?*f*!9*> ">*L)*<^#V^#V*>#s#r!C!1!*>~!"L!C!0!*L*>[ *L*>`i)^#Vh !C!4!*D0*L[ :!9N#F*f+!) ) 4!9s#r=`i^!9^#Vs! ^#V!9^#V#s#r!9^#V###s! ^#V͈6͈6!9^#VBK;4+#|ʿ )!9~#fos#rÊ ! #! ^[;e !L")PY^#VW!9͉=!25<5<͑)s#r)~#:!)^#V!b9^#V=`iL!!!L!L!L!!!L2!2L2Lq!q*#T;*~/w#d;*~?G*^0123456789ABCDEF:!!9!VDM`i#DM+^!9`i~!!"*dDM$`i#DM+^!9`i~.!5!"*bDMH`i#DM`i~ʛ`i^!%!;ʉ!7{#+^!9~ʆfØ`i^!9C:! 9N#F!9^#V! ^#V"|*͈6! s#r!! s~#+^! !;!*L[ *Ln&#*L"!*L)^#V!>?*L|!B!0!*L+"L#[ !C!0!*L[ *Ln&#*L"!*L)^#V!>?*Lͪ *J!;FUͫ!"J!B!0!*<~!C!0!*N"L*<[ *Ln&#*L"!"N*L#X#n&@;{)~#!*L!;, ͦ>)^#V^#V^ͦ>!;) !B!0!*L[ !C!0!"L[ *Ln&#*L #[;!!!9ê`i^!"! !9!B!3!! ^#V͉=!5<;+[;ʁ!+#|ʥ! !9#Á! ^#V"ú*#"*~*^!9ó!#[;! !9!C!3!! !9`i^!"!?! !9#+[;T2!"!j# [;T`i^"! !9! !9! ^@;!! !9#[;!"Q!)PY^#V^but*f+u*f+u*f!!ͮ*!9*f!!ͮ*!9!u t `i:!!r9^#V!>%?*f*!9W!DM|™ !ù !#+)!V9s#r [; â !p9^#V###^U2!!P!9=!`i~`i^! !;;!9~!93!!P!9=!`i^!!;x!9!V9`i#DM-DMxo!U!`i^!!;`i#DM^!)!T9~#ʽ)!T9^#V!9=!|`i^! \;`i^!9͉=!9s!`i#DM`in&#s:! 9N#F! !!=!}2! ^K#*B^[;t!)s#rD*B~#ʐ*B^#V͈6! ^*Bs"*@;ʹ*+"! ^#V"*Bs#r!*~/*)s#r*^! 0;*^z*#"*~%*#"#:! 9N#F! ^P#*@^[;ʧ!"!"Ç*#"*2[;ʤ! !9ÀI*@~#*@^#V͈6! ^*@s! ^#V*@s#r!~R!M"!*L)^#V!>?, QZ `<  P P  G:! 9N#F!9^#V`i^#"!")PY^#V^#V! !9*|ʔ !L"n&!; #+^!9#+^!9Ñ n&| n& !;( ! !9*+"Ñ n&:u n&:"N *+"*|r ! !9*+"|r G Ñ #+^!9*+"î `i^#":! 9N#F*J!; *< *>`i)^#V##~ʵ !B!1!!B!0!*L !9~!93!!P!9=!!9d=!9͉=!9DM*J!;ʒ*N#"N! `i#DM+s*N ;0`i#DM+s*N u;0`i#DM+s! `i#DM+s!-`i#DM+s*|ʸ!xû!s`i#DM+s*|! `i#DM+s!-`i#DM+s!d`i#DM+s!93!p9^#V###^*!;!"!*sN4ͱ9:!\9N#F!^9^#V`i#DM+^!! !9s!9"z`i#DM+^*#"+s`i^!0;ʋf!*s!9*H͜*H0!9͉=*@#^*@^#"!B!4!)~#)^#V͈6*@#^!  #V"+*~0*#"+^!9 +\;Q! !90c`i^!"!C!0!!À#[;ʝ!!9y!B!0!:!DMý`i#DM*>###^`i[;`i)*>^#V~#nf͈6 ~#n f ͈6!u t ø:*|**LDM!*L)*<^#V^#V[;ʡ#+"!C!0!! !9!B!0!!vP!B!0!!B!1!!"! !9!C!1!`i\;T`i+DM#"!C!0^! !;)`i^! !;))!`i#DM+s,)(å(!'*](B):Ϳ9:!:!:! 9N#F!!!4=! ^!:!;ʳ)`i## :`i^ͦ>uû) :!9!;)͈6!!u$t%!u*t+u&t'u(t)!>%?*!9:! 9N#F!9>>?͂B!( s#r!9>>b@͂B!$ ^#V0;r*!$ s#r",x*:! 9N#F!( ^#VoB%?!$ ^#VaB>4@=?ͻ?:!9N#F!9^#V!!9s#r!9^#V!9~#fo;|!+(~#!++ S!u`i:! 9N#F`i [;5`i0!9:;:! 9N#F`i ;0!9`i u;0!9:! 9N#F!9^#V`i~ʰ`i#DM+^!9+Ì+#\;! !9ð:! 9N#F`i~`i#DM+^!9:! 9^#V͉=##4DM|3 !G !B)!9^#Vd=`i Out of memory:! 9N#F!9^#V`i~!!`i^! 0;!!`i^!: `i#DM+^!:ë +| ! !9+ä !`i^!!;!`i#DM+^!9`i#DM+^!9?*0;4%*U!;%͟-!U!":%!"A:$$$.SUB:*h|F'! 9! 9!9!9͂.!9!9!9!97.!9^#V*j0;)'!!"!9^#V"j!9^#V! \;%*|%! !9~#fo5!$#n&[;ʔ$)^#V! ~#‘$!)^#V!>%?*f*!9W!)^#V! s#r$**[;$!*#"+oB>4@%?*f*!9!>p?%!!>%?*f*!9*f+!> N!$ ^#Vsr!& s#r!9!$ ^#V!! s#r!!# s!!9X-!!* s#r!`i,!9s.!9!29^#V :!9!9:!9.0! 9^!9^#Vs#r!9^!9^#Vs#r! 9^!9^#Vs#r:!9.0!9^!9^#Vs#r!9^!9^#Vs#r!9^!9^#Vs#r!9^!9^#Vs#r:!!"Z2!!"Z2Jx =w# =!9^#V#N#F#nx)=s# =!9^#V#~#foxO=T=O=# ;=!^=!}!}!9^#V#~#foxʆ=~ʆ=# u=!9~#foʞ=#Õ=}!9^#V#^#V#N#F;=!9^#V#^#V#N#Fu=!9^#V#~#foxʆ=~=# =u=!9^#V#^#V#N#F=!9^#V#n~#>)>#>!|!9^#V#nE>#<>x#> +~E>)>!9~ z> z> z>Ï>!9~Aڏ>[ҏ>!}!9~aڏ>{z>!!9~0ڏ>:ҏ>z>!9~aڷ>{ҷ> o&!9~A>[> o&*݊h`i^!*?!3*2^#VBK*2͈6`i"22!"2!!$!2=!2!3 :!}22!2!90;ʢ3!9!9!}22}22!2!!9Ÿ3:2o&#}22:2o&#}22v3ï3!2!9:2o&}22$$$.SUB:! 9N#F͉=4*2ut##d="2##͉=|>4+##^! A;:4!##s;44nf"2͈6:*2|\4*2|ʿ4!!!9=*2##͉=!9s*2##!9d=!9!9!2!9*2^#V"2\4!2!999999:!9^#V!͕<4!!9s#r;9*4@8!9:5<!9s#r!9^#V`i͖<89!9^#V:9`i:*4|„9!͢:!9s#r!9^#V##"4!!9^#V##s#r!9^#Vs#r:!ɊB"9*"[R8{;;g(*9ÿ9<9<*:DM*:o&<9o&<*:*+++*:DM*:!9N#F#^#Vkb6#> 6 #=:>6#=%: : >X: Aڒ:[I:@U:aڒ:{Ғ:`w# .s:ʌ:[:͙:w#\:{o|g ʌ:͙:w#}:!!|a{ !9^#V*9!9}|:*9"9|!¯d`i#D|g}o|/g}/o^#V#DM!99`i:-!!"Z2!! Z2!$L2DM!4/#[;V/!$L2`i0;V/-/!;f/!! Ͷ1!;}/!À/!:! 9N#F`i^! 2! ^! 2! ^! 2! ^! 2! ^! 2! ^! 2! ^! 2! ^! 2!! 2! ! Z2:! 9N#F.P0!!=!Ͷ1`is!Ͷ1! s!Ͷ1! s!Ͷ1! s!Ͷ1! s!Ͷ1! s! Ͷ1! s!Ͷ1! s! ! Z2:!9^#V!:0!0!"!.!9^#V+DM! 9^#V! *w#w#w#w*~#~#~#~">*V+^+V+^*>">*s#r#s#r*>**""*>w#f?*~1B#u?&B=ɯ<**###??è??ڂ?†?+ª?**#?**#?**#?**#@**#@*~/w#+@*~?G*^#V#~#fo))P@#H@DM*s#r#q#p*~?W*###~@~w+y@u@7~w+‹@‡@~#œ@Oc?*>͙@y2>*>͙@:>2>A>*w#@:>`?*>͙@y2>*>͙@A!4DM~#5++nf!9~#fo͇<5nf!9~#fo5<͕o&zo&|m;}|>o&|o&z2:͆;::;||;/g}/o#z;/W{/_ß;DM!>2:))Ҳ;#}o|g; ::=2:ª;}::=2:ª;}DM!>)); =;}}/o|/g#}|:;+;|g}o{_2<|<|7g}o<{_2<)-<}}o|gN#F# N#F#zV<{Z<##^#VBK^#Vz<#yz<###h<#xu<#~#fo}|>?o&}|>o&{_2<|g}oª<|g}o~# x¿*w#A:>`?!>w#A> 2>!>~w#/AO>!>#DAy_A!>4!>5)A!>5ʑA!>~w#lAO>!>#Ay_ASA>!>#šA*>~#­A*>~#½A!>w#A> 2>!>~w#AB>!>#ABA!>5A*>w#B͊?1B!͊?&B!<͊?1B&B͊?1B1B&B͊?&B1B͊?&B&B1B*s#r#6#6*s#r#ziB6#6*^#V5A*>w#B͊?1B!͊?&B!<͊?1B&B͊?1B1B&B͊?&B1B͊?&B&B1B*s#r#6#6*s#r#ziB6#6usingEnglish- likecommands. With dBaseIIyoucan createcomplete informationsystems andeasilyadd, delete, edit, display, sortandprintdata baseduponany criteria.Included withyourKAYPRO are severalsampledBase programs. Create a Form v*DataStar*:+Quick ReportsD+@,Report EditorF,#-Report Print*--Form Sort-.List Data Files/q/List Index Files/0List DEF Files 00List Report Files01List Reports411Thisprogram "Itwill displaythe text one pageata time. When youarethrough readingonepage, press to view the next page. WordStard Install WordStar:kThe Word PlusxCheck SpellingnnAlphabetic Sort}HyphenationAnagramFind a Word; Look up a WordS 1!Word CountH!"WordStaris a popular wordprocessing programdevelopedby MicroPro.Itcanbe customizedtoyour desireswiththe installation program.Micro Plan/ creates theformsthatare usedbyDataStar. Notethat a form must becreated before any datacanbe entered. Itishighly recommendedfor this, and all other InfoStar programs,thatyou createallofyour files on the B: disk. MBasic 1OBasic2c2Biorhythm2,3Blackjackt34Horse RacesV44Rocket55Star Trek66Taxman77Star Traders 8u8Wumpus8%9MBasicisaBASIC interpreter.Itis easytouse for both thebeginnerand experienced p/Do not try to edit this file with a Word Processor!See instructions and edit MASMENU.TXTUsetheup-arrow and down-arrow keys to move the darkenedbartoyourchoice. Then, press the right-arrow key. To exit this menu, press ESCMaster MenuVersion % / 6.8Main Menu InstructionsWord processing }Spreadsheets}dBase II InfoStarMBasic & Games More Games\ CBasic Compiler SBasic CompilerTelecommunicationsH!"CalcStar"#CalcStar Dump#I$MicroPlanisa spreadsheetprogram producedbyChang Labs.It is easy to useand has a command menu on the screen. Run dBase II Q$Run dSort i$V%Run dGen ]%&Run Zip &'dBase Tutorial '(List Command Files ( )List Data Files ))d)List Index Files ))Install dBase II )*Install Zip (*o*dBaseIIisan information management toolthat allows easy manipulationof small andmedium size data- bases Utilities"Thismenuwill guide you in the use of your Kaypro.The highlighted portion of thescreenis a list ofthe major types of programs that you have onyourcomputer. Whenyouchoosean optiononthemain menu,a sub-menu will appear to the right of it.Choosing one of the options will run a program. Use the left arrowkeyto leave a sub-menuwithout running a program.Instructions Thischoicewill put onthescreen a file thatwilltellyou somethingaboutyour computer.O@rogrammer. It is an excellent language for thoseinterestedin learningabout programming.Clone Wars h9Alienso99Ladder9:Catchum:;Battlethe evil Clone Masterandtryto escapehisnasty clutches in this game of dexterity and wits.List Source Files ;List Programs;<Edit a program<<Compile a program<=Run a program9==Compile and Run=u>Thiswill list all of theCBasicsource files.Theyare signifiedbytheir .BAS extefile you specifyandturnit intoa sorted list of allthewords in it. Youroriginalfile willberenamed as a .BAK file!b: a:dictsort 0file? a: Thisprogramwill hyphenatewordsthat arelongerthan10 characters.Youcan controlthe length of words to be hyphenated bytyping$n(for wordslongerthatn letters)afterthe filename. If you do notspecifyafile nameyoucantype wordsdirectlyinto theprogramandit willtellyou how to hyphenate them.hyphen b:0file to hyphenate? a: Anagramtase damagetoyourhard disk.This option leads to a sub-menu that contains programstohandle yourwordprocessing needs.Thisoption takes you to a sub-menu with two spread-sheet programs: CalcStarandMicro Plan.dBaseIIisAshton- Tate'sAssembly LanguageRelational DatabaseManagement System. It allows you tomanipulatedata- basesusingEnglish- like commands. You can createandmaintain databases,write programs,generate reports,andmuch more.InfoStarisadata basemanagement package which car is alsoWS.COM. If you change the name of the installedversionit willnolongerwork with this menu.winstall ws TheWordPlusisa spellingchecker. It willtake a file, and findall the words it doesnotrecognize fromthefile.It thenshowsyoueach word and allows you to lookupthecorrect spellingofthe word andreplacethe misspellingwiththe correction. Any words which change length in yourfilearethen markedwith a special character.: :The Word Plus will not return to MASMENU by itsnsion.List source files>List programs>>Edit a program>a?Compile program??Run a program @_@Compile and Runw@@Thiswilllistall fileswitha.BAS extension.Automite AM.I.T.E.AAInstall new modemAkBThiscommunications program has everything thenovice and expert will ever need. It is the most user friendly package available, yet itisalsothe most powerful. If you are inexperienced in using telecommunications, we recommend th kesan arbitrarystringand findsall anagrams of it. You can use wild cardswith this. For example,typing ???ee willfindall five letterwords have two two e's.anagram 0string of letters? pause Thisisan excellent toolforcrossword puzzle buffs. Given a patternofletters, thiswillfindall wordsthatmatch the pattern. It uses wild cards?and*. For example,thepattern do?willfindall threeletterwords beginningwithdo, while'do*' will find allwordsstarting with'do'. '?'s can be onsists oftwoproducts: DataStarand ReportStar.Each of theseconsistof severalprograms. Theyarecompatible with both WordStar and CalcStar.MBasicis Microsoft's versionof BASIC. It isinterpretiveand easy to use. A variety of games is included.Theseare games which do not require a BASIC interpretertorun. They are all real time gamesthatchallenge your dexterity.CBasicisDigital Research'sversion of BASIC.Itisa pseudo-compiler.SBasicis a compiled, structuredversion of BASIC.ItiCelf. After it is :done, type MASMENU and return when you see the A1> prompt. : pause tw b:0file to check? This program will take afileand check all ofthewords,then giveyoualistof thosewordswhich it doesn'tknow.Note that this merely gives you a list of possible misspellings, but does notallowyouto interactivelycorrect themlikeTheWord Plus.spell b:0file to check? pause Thisprogramtakes a fileand sorts all of thewordsinit alphabetically. CAUTION: This program will take the nat you use this version of MITE. Turn Off Computer=uBSpace on DiskvBBPrinter data rateCCSerial PrinterCDParallel PrinterDEConfigurationE{FBackup InstructionsFFBackup filesF!GRestore files*GfGExamine filesoGGFloppy FormatGHBeforeturningoff yourcomputeryou shouldwait until the lightlabeled'10 MB READY' goes out. This willinsurethat the diskisdeselected. Turningoffthe computerwiththe lightoncancausmore difficultto learn, butismore powerful than the other BASICS.Thisoptionleads to programswhichallow yourKayproto interactwithother computers via a modem.Thischoice will take youtoasub-menu containingvarious CP/MandKaypro utility programs.read kaypro.lrn pause b: a:ws 0file name? a: Thisprogramallows youto customize your versionofWordStar howeveryouwant it. WordStarshouldbe installedon A:. The nameofthefile to installisWS.COM. Thenameforthe installedWordSt@rogrammer. It is an excellent language for thoseinterestedin learningabout programming.Clone Wars h9Alienso99Ladder9:Catchum:;Battlethe evil Clone Masterandtryto escapehisnasty clutches in this game of dexterity and wits.List Source Files ;List Programs;<Edit a program<<Compile a program<=Run a program9==Compile and Run=u>Thiswill list all of theCBasicsource files.Theyare signifiedbytheir .BAS extear is alsoWS.COM. If you change the name of the installedversionit willnolongerwork with this menu.winstall ws TheWordPlusisa spellingchecker. It willtake a file, and findall the words it doesnotrecognize fromthefile.It thenshowsyoueach word and allows you to lookupthecorrect spellingofthe word andreplacethe misspellingwiththe correction. Any words which change length in yourfilearethen markedwith a special character.: :The Word Plus will not return to MASMENU by itsnsion.List source files>List programs>>Edit a program>a?Compile program??Run a program @_@Compile and Runw@@Thiswilllistall fileswitha.BAS extension.Automite AM.I.T.E.AAInstall new modemAkBThiscommunications program has everything thenovice and expert will ever need. It is the most user friendly package available, yet itisalsothe most powerful. If you are inexperienced in using telecommunications, we recommend th kesan arbitrarystringand findsall anagrams of it. You can use wild cardswith this. For example,typing ???ee willfindall five letterwords have two two e's.anagram 0string of letters? pause Thisisan excellent toolforcrossword puzzle buffs. Given a patternofletters, thiswillfindall wordsthatmatch the pattern. It uses wild cards?and*. For example,thepattern do?willfindall threeletterwords beginningwithdo, while'do*' will find allwordsstarting with'do'. '?'s can be onsists oftwoproducts: DataStarand ReportStar.Each of theseconsistof severalprograms. Theyarecompatible with both WordStar and CalcStar.MBasicis Microsoft's versionof BASIC. It isinterpretiveand easy to use. A variety of games is included.Theseare games which do not require a BASIC interpretertorun. They are all real time gamesthatchallenge your dexterity.CBasicisDigital Research'sversion of BASIC.Itisa pseudo-compiler.SBasicis a compiled, structuredversion of BASIC.Itinat you use this version of MITE. Turn Off Computer=uBSpace on DiskvBBPrinter data rateCCSerial PrinterCDParallel PrinterDEConfigurationE{FBackup InstructionsFFBackup filesF!GRestore files*GfGExamine filesoGGFloppy FormatGHBeforeturningoff yourcomputeryou shouldwait until the lightlabeled'10 MB READY' goes out. This willinsurethat the diskisdeselected. Turningoffthe computerwiththe lightoncancausmore difficultto learn, butismore powerful than the other BASICS.Thisoptionleads to programswhichallow yourKayproto interactwithother computers via a modem.Thischoice will take youtoasub-menu containingvarious CP/MandKaypro utility programs.read kaypro.lrn pause b: a:ws 0file name? a: Thisprogramallows youto customize your versionofWordStar howeveryouwant it. WordStarshouldbe installedon A:. The nameofthefile to installisWS.COM. Thenameforthe installedWordSt  ;put anywhere in the word;'*'smayonly appear at the end.find 0pattern? pause Thisworkslikea spellingdictionary. You type in a word and thiswillfindall words that are spelled similarly.Thisis veryusefulwhen you don't know exactly how tospell a particular word,buthavea general idea.lookup 0word? pause Thisutilitywill countthenumberof wordsina file. It will display the total numberofwords, the number of unique words inthefile, and the numberofwords appearingonce.It w;d 0Drive A or B?:*.ndx pause Thesearethefiles thatarecreatedby theformgenerator program.They contain thegeneralform informationneeded by DataStarand ReportStar.d 0Drive A or B?:*.def pause Thesearethefiles whichtell ReportStar howtoprintyour data.d 0Drive A or B?:*.rpt pause Thiswill list all of thereportsthat you havegeneratedand senttodisk instead of to the printer.d 0Drive A or B?:*.prn pause b: : :When you are done, type SYSTEM to return to menu : a:mbasic a:  edGenutilities. dGenallowsyouto createprogramsto view,add to and edit files, create reports, makemailinglabels, andcreatemenus for yourdBaseII programs.dbase dgen Zipallowsyouto design the screens and printedforms used in yourprogramsby simplytyping them as youwantthemto appear.Itis recommendedthatyou putallzip files on yourB: drive. To do thiswhen asked for a filename,prefix it with b:zip Thiswill take you to acopy of dBase and a set of files geared to helpingyoOeportthanthis programcan make, use theReportEdit Program.rgen Thisprogramis used togeneratereports thataretoo complex fortheQuick Report programtohandle. Thisincludes reports that have complicated headings,multiple filesinvolved,or require special print formatting.redit Thisprogramis used to prepare your report for printing according to the instructions in yourreport specification file.report 0report file? FormSortisthe ReportStar program for sorting data files and perf ill also build a .FRQ filewhichwill list allthe words in your file and the number of timeseachone appears.Typing$A afterthefilename willsortthe.FRQ file alphabetically.b: a:wordfreq 0file name? a: pause plan CalcStar is MicroPro's spreadsheetprogram. Itworksverymuch likeWordStar,and hence is easy to learn touse. It uses many ofthesame commands that WordStar does.cs Thisprogram lets you print out a listing of aCalcStar file. The listing can be written eithertoanother filJOBasicisanolder versionofMBasic. Severalofthe games thatarelistedare written in OBasic.b: : :When you are done, type SYSTEM to return to menu : a:obasic a: Biois a computerized biorhythmcalculator. Itwillplotyour mental,physicaland emotionalcyclesfor asmanydaysas you want.: :When you are done, type SYSTEM to return to menu : pause obasic bio Challenge the computer toagameof blackjack. The stakes arehigh,andthe rulesarestandard casinorules, includinginsurance, splits,aEu learn all aboutdBase II. Once youfeelconfident withyourability to usedBase,youmay wanttoerasethis copyof dBase and all ofthefiles to give you more disk space.dbase lessons This will show you all ofthe command (.CMD) filesthatyouhave created.d 0Drive A or B?:*.cmd pause Thiswilldisplaya listofallof your data (.DBF) files.d 0Drive A or B?:*.dbf pause Thiswill list all of the index (.NDX) files that you have.d 0Drive A or B?:*.ndx pause Thisallowsyouto customizedBarormingfile maintenance. All your file sorting needs can beaccomplishedwith thissimpleyet powerfulprogram. Pleasenoteboth the formtosort and the destinationform must already be defined.formsort 0Output file name? 1Input filename(s) to sort? Thiswill list all of theDataFiles generatedthrough DataStar.Theyare indicatedbytheir .DTA extension.d 0Drive A or B?:*.dta pause Thiswill list all of yourIndexFiles. Theyareusedby ReportStartoprint outinformationin sorted order. e, for editing with WordStar,orcanbe printeddirectlyto the printer.csdump dbase 0command file? dSortisfast, flexibleutilityfor sortingdBaseII databases.You may sortupto 32 fields atthesame time, in eitherascendingor descendingorder. Sortingtimeis very rapidandnot appreciably affected bythenumberof fields.dsort dGenmakes it easy to createandrun programsthat facilitateuseof a dBase II database. To createtheprograms, yousimply answer the questions displayed by thse II to your personal tastes.install Thisenablesyouto customizethescreen formatterto your own tastes.zipin formgen DataStaristhe data entrypartof InfoStar.Onceyou havecreateda DataStarform,use thisprogram to enter yourdata. Remember that your all of your files should be on the B: disk.datastar TheQuickReport programwill help you producereportsfrom yourdata base. This programprovidesfor reports which are easy tobuild, and quickly generated.Ifyou needamorecomplex rnddoubling down.: :When you are done, type SYSTEM to return to menu : obasic blkjk Cometotrackand placeyourbets. Decidewhowill win, placeandshow. And don'tforgetyour binoculars!: :When you are done, type SYSTEM to return to menu : obasic horse Trytolandyour rocketonthemoon. Youcontrolyour velocityasyou descendtowardthe rockysurface.But don'tburnyour fuel too soon, as a lunar crashcanbemost unpleasant!: :When you are done, type SYSTEM to return to menu : obasic rocketa serial printer.This assignmentis temporary,andgoes away the next time you eitherreset, or turn off your computer. To permanentlyswitch to aserial printer, use theconfiguration program.stat lst:=tty: Run this when you want toswitchtoa parallel printer. This assignmentis temporary, and will go awaywhenyour computerisreset or turnedoff.To permanentlyselecta parallelprinter, use theconfiguration program.stat lst:=lpt: This option allows you tochange the meaning ofthevectorkeys lad traverse the maze of ladders in hispursuitof$. Grab the &'s but avoid theeverdangerous o's.Use the keypad to move around.ladder Catchum puts your cats (C)intoamazeof dots which you want to eat.Butbewarethe evilA's which try to putanendtoyour munching.Eat the tastymice(M) and $ forextrapoints. Thereare nine levels ofdifficultywhich canbesetbefore running the game.catchum d b:*.bas pause Thiswill show all of theCBasiccompiled programs.Theyall havea.INT exte name?.bbx Thiswillexecutea .COMfile. Type the programnamewithout the .COM extension.b: 0program name? a: Thisoptiontakesa .BAS file and compiles then executes it. Type theprogramname withoutthe.BAS extension.sbasic 0program name?.bbx b: 0 a: AUTOMITE Thisversionofthe telecommunications package should be used onlyby those who are proficientinthe fieldof telecommunications, or byexperienced programmers only!MITE Runthis when you buy amodemforyour Kaypro computer. This , (10key pad and arrow keys),thedefault printerassignment (serialvs parallel), andtheinitial baud rate assignments.Config Theoptiondisplays instructionsfor backing up large files onfloppies using the MUFBAR backup system.MUFDESC Thisoptionwill backupfilesonto floppies.MUFBACK Thisoption will copy files from floppy onto the hard disk.MUFREST This option allows you toexaminefiles backedupusingthe MUFBAR system.MUFLOOK This option allows you toformatafloppy diskette in Drive Cnsion.d b:*.int pause Thisallowsyouto edita CBasic program usingWordStar.Type theprogram name (1-8 letters)withoutthe .BAS extension.b: a:ws 0program name?.bas a: This turns a .BAS file intoanexecutable .INTfile.Typethe programnamewithout the .INT extension.b: a:cbas2 0program name? a: This runs a .INT file. Typethe program name withoutthe.INT extension.b: a:crun2 0program name? a: Thistakesa.BAS file,compilesit, then runs it. Even if thecompilationis notsuccessfu" willtellthe communications packagesexactly what kindofmodemyou have,so it will know how to use it.MINSTALL Thisoption will tell youhow much space is leftona disk. Type theoneletter drive name; 'A' or 'B', when asked.STAT 0Drive name?: pause Thisallowsyouto changethedata rate (Baudrate)fora serialprinter.If youareusinga parallelprinteryou don't need to do this. Tochangethebaud ratepermanently, use theconfiguration program.BAUDP Run this when you want toswitch to {sic taxman Becomeagalactic traderinthis excitinggameof multi-milliondollar, interstellarstock transactions.: :When you are done, type SYSTEM to return to menu : obasic trade Chasedowntheever elusive wumpus through histwenty-cave lair. Bewarethe bottomless pits and super bats!: :When you are done, type SYSTEM to return to menu : obasic wump clone SavetheEarthfrom invadingaliens. Six levelsofdifficulty keepthisgame challengingforall fledglingGalactic Defenders.aliens Help yourpl,an attemptwillbe made torunthe .INT file ofthesamename. Typethe program name withoutthe.BAS extension.b: a:cbas2 0program name? a:crun2 0 a: d b:*.bas pause Thiswilllistall .COMfilesinthe current user.d b:*.com pause Thisallowsyouto edit an SBasic program usingWordStar.Type theprogramname withoutthe.BAS extension.b: a:ws 0program name?.bas a: Thiswillcompilea .BASfileintoan executable.COM file. Typethe program name withoutthe.BAS extension.sbasic 0programnddoubling down.: :When you are done, type SYSTEM to return to menu : obasic blkjk Cometotrackand placeyourbets. Decidewhowill win, placeandshow. And don'tforgetyour binoculars!: :When you are done, type SYSTEM to return to menu : obasic horse Trytolandyour rocketonthemoon. Youcontrolyour velocityasyou descendtowardthe rockysurface.But don'tburnyour fuel too soon, as a lunar crashcanbemost unpleasant!: :When you are done, type SYSTEM to return to menu : obasic rocketa serial printer.This assignmentis temporary,andgoes away the next time you eitherreset, or turn off your computer. To permanentlyswitch to aserial printer, use theconfiguration program.stat lst:=tty: Run this when you want toswitchtoa parallel printer. This assignmentis temporary, and will go awaywhenyour computerisreset or turnedoff.To permanentlyselecta parallelprinter, use theconfiguration program.stat lst:=lpt: This option allows you tochange the meaning ofthevectorkeys Takecommandofthe Starship Enterprise in it'sneverending battleagainstthe KlingonEmpire. This gameincludeslevels ofdifficulty to make itchallengingfor everyonefromSpace CadetstoGalactic Admirals!: :When you are done, type SYSTEM to return to menu : obasic strtrk Try to beat the taxman at his own game. Pick numbersfrom the list provided,butdon't forget,thetaxman alwaysgetshis cut! Trytoend up with more than the Taxman.: :When you are done, type SYSTEM to return to menu : oba , (10key pad and arrow keys),thedefault printerassignment (serialvs parallel), andtheinitial baud rate assignments.Config Theoptiondisplays instructionsfor backing up large files onfloppies using the MUFBAR backup system.MUFDESC Thisoptionwill backupfilesonto floppies.MUFBACK Thisoption will copy files from floppy onto the hard disk.MUFREST This option allows you toexaminefiles backedupusingthe MUFBAR system.MUFLOOK This option allows you toformatafloppy diskette in Drive Cnsion.d b:*.int pause Thisallowsyouto edita CBasic program usingWordStar.Type theprogram name (1-8 letters)withoutthe .BAS extension.b: a:ws 0program name?.bas a: This turns a .BAS file intoanexecutable .INTfile.Typethe programnamewithout the .INT extension.b: a:cbas2 0program name? a: This runs a .INT file. Typethe program name withoutthe.INT extension.b: a:crun2 0program name? a: Thistakesa.BAS file,compilesit, then runs it. Even if thecompilationis notsuccessfu" willtellthe communications packagesexactly what kindofmodemyou have,so it will know how to use it.MINSTALL Thisoption will tell youhow much space is leftona disk. Type theoneletter drive name; 'A' or 'B', when asked.STAT 0Drive name?: pause Thisallowsyouto changethedata rate (Baudrate)fora serialprinter.If youareusinga parallelprinteryou don't need to do this. Tochangethebaud ratepermanently, use theconfiguration program.BAUDP Run this when you want toswitch to {sic taxman Becomeagalactic traderinthis excitinggameof multi-milliondollar, interstellarstock transactions.: :When you are done, type SYSTEM to return to menu : obasic trade Chasedowntheever elusive wumpus through histwenty-cave lair. Bewarethe bottomless pits and super bats!: :When you are done, type SYSTEM to return to menu : obasic wump clone SavetheEarthfrom invadingaliens. Six levelsofdifficulty keepthisgame challengingforall fledglingGalactic Defenders.aliens Help yourpl,an attemptwillbe made torunthe .INT file ofthesamename. Typethe program name withoutthe.BAS extension.b: a:cbas2 0program name? a:crun2 0 a: d b:*.bas pause Thiswilllistall .COMfilesinthe current user.d b:*.com pause Thisallowsyouto edit an SBasic program usingWordStar.Type theprogramname withoutthe.BAS extension.b: a:ws 0program name?.bas a: Thiswillcompilea .BASfileintoan executable.COM file. Typethe program name withoutthe.BAS extension.sbasic 0program ; ۗ :.FLPYFMT :g Theoptiondisplays instructionsfor backing up large files onfloppies using the MUFBAR backup system.MUFDESC Thisoptionwill backupfilesonto floppies.MUFBACK Thisoption will copy files from floppy onto the hard disk.MUFREST This option allows you toexaminefiles backedupusingthe MUFBAR system.MUFLOOK This option allows you toformatafloppy diskette in Drive C ing program developed by MicroPro. It can be customized to your desires with the installation program." ** b: a:ws $"file name?" a: ** "Install WordStar",1 "This program allows you to customize your version of WordStar however you want it. WordStar should be installed on A:. The name of the file to install is WS.COM. The name for the installed WordStar is also WS.COM. If you change the name of the installed version it will no longer work with this menu." ** winstall ws ons",1 -- instruct file is in user #1 "This choice will put on the screen a file that will tell you something about your computer. It will display the text one page at a time. When you are through reading one page, press to view the next page." ** read kaypro.lrn pause ** } -- -- Word processing menu -- "Word processing" "This option leads to a sub-menu that contains programs to handle your word processing needs." { "WordStar",1 "WordStar is a popular word process is "/MDY". Normal European format is "/DMY". -- "/mdy" -- -- Start defining menu groups -- "Instructions" "This menu will guide you in the use of your Kaypro. The highlighted portion of the screen is a list of the major types of programs that you have on your computer. When you choose an option on the main menu, a sub-menu will appear to the right of it. Choosing one of the options will run a program. Use the left arrow key to leave a sub-menu without running a program." { "Instructi ess the right-arrow key. To exit this menu, press ESC" -- -- Main menu title -- "Master Menu" -- -- Current version -- "Version % / 6.8" -- -- Main menu title -- "Main Menu" -- -- Clock time. This must be included even if the system has -- no clock. The format is: -- -- 12 for normal AM/PM time. -- 24 for military/European time. -- 12 -- -- Date format. The first character is the date separator, -- the next three are M, D, and Y in the order desired. -- Normal US format} ** "The Word Plus",1 "The Word Plus is a spelling checker. It will take a file, and find all the words it does not recognize from the file. It then shows you each word and allows you to look up the correct spelling of the word and replace the misspelling with the correction. Any words which change length in your file are then marked with a special character." ** : :The Word Plus will not return to MASMENU by itself. After it is :done, type MASMENU and return when you see thB-- -- -- English Language Menu Text File -- -- This file is processed by MASPREP to generate MASMENU.DAT. -- The .DAT file is used by MASMENU to control its actions. -- -- Version for the Kaypro Ten -- -- Revised: 04-19-84 -- Revised: 08-07-84 -- Revised: 8-29-84 sgr 6.6 -- Revised: 09-05-84 RWB 6.7 - Revised 9-06-8 sg 6.8 -- -- First, we have to define the ever-present cursor prompt -- "Use the up-arrow and down-arrow keys to move the darkened bar to your choice. Then, prons",1 -- instruct file is in user #1 "This choice will put on the screen a file that will tell you something about your computer. It will display the text one page at a time. When you are through reading one page, press to view the next page." ** read kaypro.lrn pause ** } -- -- Word processing menu -- "Word processing" "This option leads to a sub-menu that contains programs to handle your word processing needs." { "WordStar",1 "WordStar is a popular word process  is "/MDY". Normal European format is "/DMY". -- "/mdy" -- -- Start defining menu groups -- "Instructions" "This menu will guide you in the use of your Kaypro. The highlighted portion of the screen is a list of the major types of programs that you have on your computer. When you choose an option on the main menu, a sub-menu will appear to the right of it. Choosing one of the options will run a program. Use the left arrow key to leave a sub-menu without running a program." { "Instructiess the right-arrow key. To exit this menu, press ESC" -- -- Main menu title -- "Master Menu" -- -- Current version -- "Version % / 6.8" -- -- Main menu title -- "Main Menu" -- -- Clock time. This must be included even if the system has -- no clock. The format is: -- -- 12 for normal AM/PM time. -- 24 for military/European time. -- 12 -- -- Date format. The first character is the date separator, -- the next three are M, D, and Y in the order desired. -- Normal US format %e A1> prompt. : pause tw b:$"file to check?" ** "Check Spelling",1 "This program will take a file and check all of the words, then give you a list of those words which it doesn't know. Note that this merely gives you a list of possible misspellings, but does not allow you to interactively correct them like The Word Plus." ** spell b:$"file to check?" pause ** "Alphabetic Sort",1 "This program takes a file and sorts all of the words in it alphabetically. CAUTION: Th dBase II databases. You may sort up to 32 fields at the same time, in either ascending or descending order. Sorting time is very rapid and not appreciably affected by the number of fields." ** dsort ** "Run dGen",10 "dGen makes it easy to create and run programs that facilitate use of a dBase II database. To create the programs, you simply answer the questions displayed by the dGen utilities. dGen allows you to create programs to view, add to and edit files, create repoNd cards ? and *. For example, the pattern do? will find all three letter words beginning with do, while 'do*' will find all words starting with 'do'. '?'s can be put anywhere in the word; '*'s may only appear at the end." ** find $"pattern?" pause ** "Look up a Word",1 "This works like a spelling dictionary. You type in a word and this will find all words that are spelled similarly. This is very useful when you don't know exactly how to spell a particular word, but have a cs ** "CalcStar Dump",8 "This program lets you print out a listing of a CalcStar file. The listing can be written either to another file, for editing with WordStar, or can be printed directly to the printer." ** csdump ** } -- -- dbase II -- "dBase II",10 "dBase II is Ashton- Tate's Assembly Language Relational Database Management System. It allows you to manipulate data- bases using English- like commands. You can create and maintain databases, write programs, generate repis program will take the file you specify and turn it into a sorted list of all the words in it. Your original file will be renamed as a .BAK file!" ** b: a:dictsort $"file?" a: ** "Hyphenation",1 "This program will hyphenate words that are longer than 10 characters. You can control the length of words to be hyphenated by typing $n (for words longer that n letters) after the file name. If you do not specify a file name you can type words directly into the program and it  rrts, make mailing labels, and create menus for your dBase II programs." ** dbase dgen ** "Run Zip",10 "Zip allows you to design the screens and printed forms used in your programs by simply typing them as you want them to appear. It is recommended that you put all zip files on your B: drive. To do this when asked for a file name, prefix it with b:" ** zip ** "dBase Tutorial",9 "This will take you to a copy of dBase and a set of files geared to helping you learn all M general idea." ** lookup $"word?" pause ** "Word Count",1 "This utility will count the number of words in a file. It will display the total number of words, the number of unique words in the file, and the number of words appearing once. It will also build a .FRQ file which will list all the words in your file and the number of times each one appears. Typing $A after the file name will sort the .FRQ file alphabetically." ** b: a:wordfreq $"file name?" a: pause ** orts, and much more." { "Run dBase II",10 "dBase II is an information management tool that allows easy manipulation of small and medium size data- bases using English- like commands. With dBase II you can create complete information systems and easily add, delete, edit, display, sort and print data based upon any criteria. Included with your KAYPRO are several sample dBase programs." ** dbase $"command file?" ** "Run dSort",10 "dSort is fast, flexible utility for sorting9will tell you how to hyphenate them." ** hyphen b:$"file to hyphenate?" a: ** "Anagram",1 "Anagram takes an arbitrary string and finds all anagrams of it. You can use wild cards with this. For example, typing ???ee will find all five letter words have two two e's." ** anagram $"string of letters?" pause ** "Find a Word",1 "This is an excellent tool for crossword puzzle buffs. Given a pattern of letters, this will find all words that match the pattern. It uses wilf } -- -- Spreadsheets -- "Spreadsheets" "This option takes you to a sub-menu with two spread-sheet programs: CalcStar and Micro Plan." { "Micro Plan",2 "Micro Plan is a spreadsheet program produced by Chang Labs. It is easy to use and has a command menu on the screen." ** plan ** "CalcStar",8 "CalcStar is MicroPro's spreadsheet program. It works very much like WordStar, and hence is easy to learn to use. It uses many of the same commands that WordStar does." **  about dBase II. Once you feel confident with your ability to use dBase, you may want to erase this copy of dBase and all of the files to give you more disk space." ** dbase lessons ** "List Command Files",10 "This will show you all of the command (.CMD) files that you have created." ** d $"Driv o B?":*.cmd pause ** "List Data Files",10 "This will display a list of all of your data (.DBF) files." ** d $"Driv o B?":*.dbf pause ** "List Index Files",10 to return to menu : a:mbasic a: ** "OBasic",3 "OBasic is an older version of MBasic. Several of the games that are listed are written in OBasic." ** b: : :When you are done, type SYSTEM to return to menu : a:obasic a: ** "Biorhythm",3 "Bio is a computerized biorhythm calculator. It will plot your mental, physical and emotional cycles for as many days as you want." ** : :When you are done, type SYSTEM to return to menu : pause obasic bio ** "Black dRemember that your all of your files should be on the B: disk." ** datastar ** "Quick Reports",7 "The Quick Report program will help you produce reports from your data base. This program provides for reports which are easy to build, and quickly generated. If you need a more complex report than this program can make, use the Report Edit Program." ** rgen ** "Report Editor",7 "This program is used to generate reports that are too complex for the Quick Report program Tn in sorted order." ** d $"Driv o B?":*.ndx pause ** "List DEF Files",7 "These are the files that are created by the form generator program. They contain the general form information needed by DataStar and ReportStar." ** d $"Driv o B?":*.def pause ** "List Report Files",7 "These are the files which tell ReportStar how to print your data." ** d $"Driv o B?":*.rpt pause ** "List Reports",7 "This will list all of the reports that you have generated  & "This will list all of the index (.NDX) files that you have." ** d $"Driv o B?":*.ndx pause ** "Install dBase II",10 "This allows you to customize dBase II to your personal tastes." ** install ** "Install Zip",10 "This enables you to customize the screen formatter to your own tastes." ** zipin ** } -- -- InfoStar -- "InfoStar",7 "InfoStar is a data base management package which consists of two products: DataStar and ReportStar. Each of these consist of severaljack",3 "Challenge the computer to a game of blackjack. The stakes are high, and the rules are standard casino rules, including insurance, splits, and doubling down." ** : :When you are done, type SYSTEM to return to menu : obasic blkjk ** "Horse Races",3 "Come to track and place your bets. Decide who will win, place and show. And don't forget your binoculars!" ** : :When you are done, type SYSTEM to return to menu : obasic horse ** "Rocket",3 "Try to land yto handle. This includes reports that have complicated headings, multiple files involved, or require special print formatting." ** redit ** "Report Print",7 "This program is used to prepare your report for printing according to the instructions in your report specification file." ** report $"report file?" ** "Form Sort",7 "Form Sort is the ReportStar program for sorting data files and performing file maintenance. All your file sorting needs can be accomplished w~and sent to disk instead of to the printer." ** d $"Driv o B?":*.prn pause ** } -- -- Basic and games -- "MBasic & Games" "MBasic is Microsoft's version of BASIC. It is interpretive and easy to use. A variety of games is included." { "MBasic",3 "MBasic is a BASIC interpreter. It is easy to use for both the beginner and experienced programmer. It is an excellent language for those interested in learning about programming." ** b: : :When you are done, type SYSTEM   programs. They are compatible with both WordStar and CalcStar." { "Create a Form",7 "This program creates the forms that are used by DataStar. Note that a form must be created before any data can be entered. It is highly recommended for this, and all other InfoStar programs, that you create all of your files on the B: disk." ** formgen ** "DataStar",7 "DataStar is the data entry part of InfoStar. Once you have created a DataStar form, use this program to enter your data. ith this simple yet powerful program. Please note both the form to sort and the destination form must already be defined." ** formsort $"Output file name?" $1"Input filename(s) to sort?" ** "List Data Files",7 "This will list all of the Data Files generated through DataStar. They are indicated by their .DTA extension." ** d $"Driv o B?":*.dta pause ** "List Index Files",7 "This will list all of your Index Files. They are used by ReportStar to print out informatio 3our rocket on the moon. You control your velocity as you descend toward the rocky surface. But don't burn your fuel too soon, as a lunar crash can be most unpleasant!" ** : :When you are done, type SYSTEM to return to menu : obasic rocket ** "Star Trek",3 "Take command of the Starship Enterprise in it's never ending battle against the Klingon Empire. This game includes levels of difficulty to make it challenging for everyone from Space Cadets to Galactic Admirals!" ** ^out the .BAS extension." ** b: a:ws $"program name?".bas a: ** "Compile program",5 "This will compile a .BAS file into an executable .COM file. Type the program name without the .BAS extension." ** sbasic $"program name?".bbx ** "Run a program",5 "This will execute a .COM file. Type the program name without the .COM extension." ** b: $"program name?" a: ** "Compile and Run",5 "This option takes a .BAS file and compiles then executes it. Type the program  to escape his nasty clutches in this game of dexterity and wits." ** clone ** "Aliens",3 "Save the Earth from invading aliens. Six levels of difficulty keep this game challenging for all fledgling Galactic Defenders." ** aliens ** "Ladder",3 "Help your lad traverse the maze of ladders in his pursuit of $. Grab the &'s but avoid the ever dangerous o's. Use the keypad to move around." ** ladder ** "Catchum",3 "Catchum puts your cats (C) into a maze of dots" ** b: a:cbas2 $"program name?" a: ** "Run a program",4 "This runs a .INT file. Type the program name without the .INT extension." ** b: a:crun2 $"program name?" a: ** "Compile and Run",4 "This takes a .BAS file, compiles it, then runs it. Even if the compilation is not successful, an attempt will be made to run the .INT file of the same name. Type the program name without the .BAS extension." ** b: a:cbas2 $"program name?" a:crun2 $0 a: ** }  : :When you are done, type SYSTEM to return to menu : obasic strtrk ** "Taxman",3 "Try to beat the taxman at his own game. Pick numbers from the list provided, but don't forget, the taxman always gets his cut! Try to end up with more than the Taxman." ** : :When you are done, type SYSTEM to return to menu : obasic taxman ** "Star Traders",3 "Become a galactic trader in this exciting game of multi-million dollar, interstellar stock transactions." ** : :When dname without the .BAS extension." ** sbasic $"program name?".bbx b: $0 a: ** } -- -- Telecommunications -- "Telecommunications" "This option leads to programs which allow your Kaypro to interact with other computers via a modem." { "Automite",6 "This communications program has everything the novice and expert will ever need. It is the most user friendly package available, yet it is also the most powerful. If you are inexperienced in using telecommunications, we recommend which you want to eat. But beware the evil A's which try to put an end to your munching. Eat the tasty mice (M) and $ for extra points. There are nine levels of difficulty which can be set before running the game." ** catchum ** } -- -- CBasic and its accomplices -- "CBasic Compiler" "CBasic is Digital Research's version of BASIC. It is a pseudo-compiler." { "List Source Files",4 "This will list all of the CBasic source files. They are signified by their .BAS extension."-- -- SBasic and friends -- "SBasic Compiler" "SBasic is a compiled, structured version of BASIC. It is more difficult to learn, but is more powerful than the other BASICS." { "List source files",5 "This will list all files with a .BAS extension." ** d b:*.bas pause ** "List programs",5 "This will list all .COM files in the current user." ** d b:*.com pause ** "Edit a program",5 "This allows you to edit an SBasic program using WordStar. Type the program name with you are done, type SYSTEM to return to menu : obasic trade ** "Wumpus",3 "Chase down the ever elusive wumpus through his twenty-cave lair. Beware the bottomless pits and super bats!" ** : :When you are done, type SYSTEM to return to menu : obasic wump ** } -- -- Games -- "More Games" "These are games which do not require a BASIC interpreter to run. They are all real time games that challenge your dexterity." { "Clone Wars",3 "Battle the evil Clone Master and trye ** d b:*.bas pause ** "List Programs",4 "This will show all of the CBasic compiled programs. They all have a .INT extension." ** d b:*.int pause ** "Edit a program",4 "This allows you to edit a CBasic program using WordStar. Type the program name (1-8 letters) without the .BAS extension." ** b: a:ws $"program name?".bas a: ** "Compile a program",4 "This turns a .BAS file into an executable .INT file. Type the program name without the .INT extension. )  that you use this version of MITE." ** AUTOMITE ** "M.I.T.E.",6 "This version of the telecommunications package should be used only by those who are proficient in the field of telecommunications, or by experienced programmers only!" ** MITE ** "Install new modem",6 "Run this when you buy a modem for your Kaypro computer. This will tell the communications packages exactly what kind of modem you have, so it wil know how to us it." ** MINSTALL ** } -- --2U& *! '!DM9% !DM`iu*)&F *! 'G ! !!*͹!9 *hL9&ʐ !͔utß  + hL*| !9~# *! ' *| !9~# *! '*+"!9^#V Missing closing '}' at line %d Menus nested more than %d at line %d Expected a string at line %d Too many menu entries at line %dmenu title User number expected at line %d User number too big, line %d Expected a description at line %ddescriptive text Mi n off your computer. To permanently switch to a serial printer, use the configuration program." ** stat lst:=tty: ** "Parallel Printer",0 "Run this when you want to switch to a parallel printer. This assignment is temporary, and will go away when your computer is reset or turned off. To permanently select a parallel printer, use the configuration program." ** stat lst:=lpt: ** "Configuration",0 "This option allows you to change the meaning of the vector keys, (10 key###s*!ͺJ!m*aKʡ!d*aKʡ!y*aKʡDo not try to edit this file with a Word Processor!See instructions and edit MASMENU.TXT Pass 1: Reading %s [1] The first line in the .TXT file must be the cursor movement line Check the instructions and try againcursor movement line The second line in the .TXT file must be amenu screen titlemenu title The third line in the .TXT file must be a version header.menu version The fourth line in the .TXT file must be the main menu  CP/M Utilities -- "Utilities" "This choice will take you to a sub-menu containing various CP/M and Kaypro utility programs." { "Turn Off Computer",0 "Before turning off your computer you should wait until the light labeled '10 MB READY' goes out. This will insure that the disk is deselected. Turning off the computer with the light on can cause damage to your hard disk." ** ** "Space on Disk",0 "This option will tell you how much space is left on a disk. Type the one letterssing '}' at line %d Extra '}' at line %d%*)&M *! 'G *J) !!9s#r!*DMy `i#DM`i~ |ʖ `i^! :&t `i^!$&ʵ ! ^K ! ^!"&ʵ `i#DM^K `i#DM+^!9s#r !0!9s#r`i^!")&' !#+s!9^#V#+s`i+DMò !#+s!9^#V#+s`i#DM`i~ʆ `i^! )&ʆ `i^!")&ʆ `i#DM+^#+sL `i^!")&ʤ *!" 'G !#+s `i^#+s!t !u!9!9^#VhL!9^#Vͼ"!9UL ExP,8MASMENU Preprocessor Version 5.0 05-04-84 Copyright (c) 1984, Kaypro Corporation >K+ A-0A0A0A?u=z=========<<<<<<-<-<-<-<-<-<-<-<2ͤ !!!+(8!:o&*L.Lsmdy%!'! !"!` titlemain menu title The fifth line in the .TXT file must be the 24/12 hour indicator The sixth line in the .TXT file must be the date format%!*#"U&!|*! '*!! 'G *+"!!!9s#r99*)&ʨ *|¨ *)&/*!? 'G !9~#fo#s#r+ U&j*!] 'G *+"!9^#V! !*$ͨ *hL|ʧutò!9s#r NLhL!utut9& 9)&*! '*DM  drive name; 'A' or 'B', when asked." ** STAT $"Drive name?": pause ** "Printer data rate",0 "This allows you to change the data rate (Baud rate) for a serial printer. If you are using a parallel printer you don't need to do this. To change the baud rate permanently, use the configuration program." ** BAUDP ** "Serial Printer",0 "Run this when you want to switch to a serial printer. This assignment is temporary, and goes away the next time you either reset, or tur9^#V!9^#V,!͔" !<%!E!y!!'!"!"!"9)&ʌ!'!'!'!!'!'|!!*$*9)&|* )&ʏ*)&ʏ!'!@'|*"9)&ʴ!Z'!'|*J)&á*#^L*#s*##^L*##s*###^L*kFpected '**' submit lines, line %d Line %d, $" line not ended with a "%*#"T&^ !| '!! '!< Too many fatal errors! %s file unchanged.%*| ! !"!"*+"*"%!!'!"!"! !L("**& !#!*|2!5!n.*:o&n.*:o&!aK.'n.*:o&!aK.'n.*:o&!aK.'n.!9*n+hL*!.!NL{L*ͷ*!9!DM`i#DM`iT&t'|#!9~##!'|Onf!ͺJ!!!9s#rjnf!ͺJ!!9s#r-|ʀ!'!!L("|¥!'!9s#r#+^!09&29:&2!>9^#V! &!>9s#rÒ2.&13!!@9s#r#+^!09 1o{_+'|'|7g}o'{_+')&'}}o|gN#F# N#F#zO'{S'##^#VBK^#Vzy'#ys'###a'#xn'#~#fo}|>?o&}|>o&{_+'|g}o£'|g}o~# x¸'!9%~#'!'|Q%!l"'!9!9^#V!5(1%! 9^#V"'!9!9^#V!5(1%*'!9^#V͖,%!aDM`i~z(`i DM̀'w(!V(!9^#V#^!+&!9^#V^r)|ʬ(!ï(!!9^#V=! s!&(!Å)|(!(!&!9^#V=! s!+9^#V*-&-!'PY&%! 9N#F! ^#V`i^#V̀'-! ^!%^-!!`in&%s`i~#„-0! ^#V! ^#V! ^EB:&-|½-!-!`in&&s!! ^#V`is#r! s#r`i~#fo#s#r+^!%%!w!9^#Vn.%! 9N#F!9^#Vn.T&F.!!9^#V`i͛'n.T&k.!`i%!9N#F! ^#V`i^#V̀'ʣ.! 9^#V!%ͤ/! 9^#V`i~#fo#s#r+s!%%!!9^#Vͤ/%!aDM`i͎'/`i DM/ t##! s#r!)&a#++nf##PY&a#`i^#V##~#fos#r##utDM`i^#V`i##&ʲ###~##!! s#rò#nf##`i~#fos#rnf! s#r!"%* !%*!%*!%*!%&&&%*!! 9~#fo)&ʝ$*!! 9~#fo)&ʝ$*!! 9~#fo)&ʝ$* !! 9~#fo)&ʝ$*!* !&O$! 9^#V"!Ý$*!* !&j$! 9^#V"!Ý$*!* !&ʅ$! 9^#V"!Ý$* !* !&ʝ$! 9^#V" !%!DM*!++þ$nf++##~#$nfPYDMó$!9%.'PY%!DM*!++&139:&13!@9^#V! &!@9s#r2l&q3#+^!:9!T9~#fos#rULhL4d&ʣ3!:9!T9~#fo##s#r++^#VOhL4e&3f&3g&3!9!T9~#fos#rOO4!:9!T9~#fo##s#r++^#VͷOhLú5!9!!>9UL{L\7!9!49s#r5!:9UL@L͍Oʏ4!9! !>9ULͶL{L6!9!49s#r!-!69~#fo+s#rsò4!9! !>9UL{L6!9!49s#r5!9! !>9UL{L\7!9!49s#r5!9!!>9UL{L\7!9!49s#r& )!Å)|)!)!&!9^#V=! s!&F)!!NL{L! ^[H!9Å)!"W!Y'r(w(a)h)!! s!! s#r!`is#r! s#r! s#r`i%!9N#F!!9s#r)!9~#fo#s#r!9^#V!9~#foT&@*!9^#V*+|=*!9^#V*-&.*!9^#V`i#DM+s))!9^#V%! 9N#F!9^#V!9~#fo&!z*#͎'ʮ*!9^#V`i#DM+^n.&ʫ*!s*!9^#V%!9N#F! ^!%*!ͤ/*!'+!9^#V!&'+`i~#'+!9.%!9N#F!!9s#r`i~ʒ/! ^!%I/!ͤ/!9s#r! ^*?!9~#fo&s#r! ^!%ʒ/*! ^#Vs#r! ^#V"!! s!9^#V%! 9N#F! ^!%0! ^#V`i^#V.'! ^#V! ^͉E&0!`in&&s!!9^#V!&G0!`in&%s!`is#r! s#r!`i~#X00! ^#V!&ʑ0!!9! ^͉E&/!9^#V! ^#V`is#r! ^#V! ^#V! s#r!`in&&s!9^#V`i~#fo#s#r+s!%%!9N#F! ^#V! %nf++##~#5%nfPY͏'2%nfDM%!9%.'!9s#r!9^#V`i͏'l%!9^#Vn%`i%*!|¸%!9!9s#r!9^#V##"!!!9^#V##s#r!9^#Vs#r%!N'M.R|g}o|/g}/o^#V#DM!99`i%|z2%&:%&}͘&}}$&|3&!}3&|$&!}|L&}|?>o&zo&|f&}|>o&|o&z2%&:%&||&/g}/o#z&/W{/_Ø&DM!>2%))ҫ&#}o|g& :%=2%£&}:%=2%£&}DM!>))& =&}}/o|/g#}|3&$&|g}9`i^#V! ^#V.'OͧLUL'MhL!! s#r`is#r!9^#V!9UL{L! ^[H!9@L͍Oj+!!%!9N#F!9!NL{L! ^[H!9hL! ^!%+!9! ^#V`i^#V.'OͧLULMhL ,`i~# ,!9`i^#V! ^#V.'OͧLUL'MhL!9UL%! 9N#F`i~J,!l`i#DM+^͖,&G,! ,!l! ͖,%! 9N#F`i~ʒ,!9^#V`i#DM+^͖,&ʏ,!d,!%! 9N#F!9^#V!PY%DM`i &,! n.&,!n.%! 9^#V*-DM&-! Y5!:9ULO!49s#rJ!89s#r5e&55!85!!B9^#V!&O5!W5!B9^#V!9! 9OOO!9! 9!49s#rJ!89s#r!!@9s#r5!:9ULO!9!69s#rs5Y'o4d<4u4x4s5e#5f#5c55!9!49~#fo.'!89s#r!89^#V!@9~#foU&6!@9^#V!89s#r!D9~#W6!>9~#fo+s#r#!89~#foU&W6!B9^#V`i%&6!!69s#rt6!69~#fo#s#r!49^#V~ʴ6!69^#V!@9~#foT&ʴ6!49~#fo#s#r+^`i%e6!D9~#6!>9~#fo+s#r#!89~#foU&6! `i%þ66`i%1%!;!9^#VEJ`i*CB"CB`i:BAo&.'}2BA`i%!9N#F!JE#!9~#foT&}E! 9^#VD8`i#DM+s!&}ECE- 6 #=8>6#=™8 : >8 A9[ҽ8@8a9{9`w# .898 9w#8{o|g 9 9w#8 =G`i!9^#V%! 9N#F!!D8!!D8"W&KG*W&fG!"W!!!eJrG*W|rG!!9^#V!9^#V!$ ^!EJ!"D8"W|ʪG!!$ ^!9~#fo%!$ szG`i!~#fo#s#r!%!9N#F!G#!9~#foT&WH`i#DM+^!9s#r!9^#V! &?H! !9^#VD8!9^#V!9^#VD8G%! 9^#V!T&—H! 9^#V! U&—H! 9^#V)))9^z¥H!"WNL! 9^#V)))<^#VBK!9^#VFI!D8&H!"WNL!#D8!!$ s!9!!f,Yfàf͏*t Ίf*t Ίg,Yf͏,YDM[*tPY݊*t|Ag`i"Ί6g!79g!8(eygcon:CON:lst:LST:prn:PRN:pun:PUN:rdr:RDR:%!9^#V!!9^#V=%!6!!9s#r=!9~#fo#s#r!9^#V! T&>nf-<&%>=!"W!!DM5>`iDM`i~#V>!9^#V`i^#V́JV>->! ^#V!9^#V!%#!9s#r!9^#V!%ʝ>n&u|>!"W!!9^#V!%>n&u|>!"W!! ^#Vsrn&un&u!0Aut!9^#V!9^#V!^#VCC!!9^#V`i.'͛'!9s#rzxC!9^#V!9^#V`iI!9s#rzxC!9^#V!9~#fo.''PY!9^#V!'PYDM`i!9~#fo͎'C!9^#V`i.'!9^#V`iCC`i!9^#V%! 9N#F!!D8!!D8"W|C!!9^#V!$ ^!!9^#VEJ!$ ^!9~#fo%!$ szMD`i!~#fo#s#r!%:BAo&|D!}2AA!}2CA}2BA!AA! D8! !D8:CAo&&ʧD!}2BA!! :BAo&#}2BAAA#s! :BAo&#}2BAAA#s!"CB:BAo&DM!9~#foU&D!9^#VBK*CBAAY!!|a{ !9^#V**8!9}|89**8"*8|!c a b b"b'b(b)5b,bca`i!9~#foOc!b(e"B!="$!9~#fo#s#r^zc~‹c[ýc~)!9^#V#+^zʽc[ác[c͏! %!!!y9EJ!:o&%y9s!;"=9!y9DM!"9*9T&;`i^! &b:`i^! &j:`i#DMF:`i^z;`i^!>&ʋ:!ß:`i^!<&~;!`i#DM^! &¾:`i^! &:ß:`i`i#DM~:`i^! &:`i^! &:!`i#DM+s::9^#Vnf%! 9!T&!?!!9^#V%! 9^#V!T&O?! 9^#V! U&Y?!"W!! 9^#V)))6DM! ^#V! ^#V%! 9s#r!! s! s! s`is!-!+ w#= |" + +| + w## y9 ! ~\+ [  PROGRAM CHAIN/EXECUTE ERROR$! > 6 #=} !6! ::>© ~##`ڧ @~ #. ­ ~ #. þ ( ~ # !  !(  !  w#  ~* > _y{  >?w# }o|g}o|g|>" ͐2! :_!6:% } !:O>ͅ * 2 ~ʦ 2 #~ʦ ʹ! 5ʦ Ð : ʳ y 2% " ͐2( !( !) "& !( + :!*&  ~#.,-$*^   23L!4L~w#2O]O4L! 2 !",!6 :_!>"^"a!6 :a2!+ !""͐2! !+ !:N ! ڣ2͹:!!Ø" ͐2! ͐2! !+ !+ 2!""*~#"O! ~*w#"! `#^#V#N#FÑJ!9^#V#^#V#N#FJ!9^#V#~#foxJ~FK# 7KJ!9^#V#^#V#N#F7K!9^#V#n~yKK#lK!|!9^#V#nʛK#ÒKxyK +~›KK!9~ K K KK!9~AK[K!}!9~aK{K!!9~0K:KK!9~a L{ L o&!9~A#L[#L o&VFuFuFuFu!*YL!*w#w#w#w*~#~#~#~"(L*V+^+V+^*(L"(L*s#r#s#r*(L**""*>w#¼L*~‡O#L|O=ɯ<**###LLLLt%+/&!\ #~:O~ʹ# N# 6~> #4 6#> ^"#:k c  : **l 2 ~2#~2#: ! ʲ :O>[ʹ5 >]ʹ> ʹ: =2 ² >2 y  : /2  ^"# ! n : WARNING *t]]*$>n n N$ WRITTEN BY ROBERT SCHRADER !)! !"c*a*~"wÓ...Ù !Þ"ÿ#$%&'()*+,-./0123456789:;<=>? @ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_ `ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}~!s!͕*/͕!͕!͕!͕! Z$$$` !e"Æ#$%&'()$+$-$/0123456789$$$$$$ê @ABCDEFGHIJKLMNOPQRSTUVWXYZ$\$^_ `ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}~!:!]͕*c/͕!h͕!͕!͕! l4 !"8͐2! !+ !~#-!ʰaz:va2͐2! !:O~ʜ# 6x2>2w $$$ SUB !6 *%%"x * w#~=_*6 6*-!F * 6*%{/_z/W"!~_#Vf#N#F* r+sK*"< $"3 :w 2*% w#z‰**%CHAIN/EXECUTE OPE   $ ) / N Q >%!# + P + _+ *P {P  LL+M**#M**#2M**#GM**#\M**#qM*~/w#M*~?G*^#V#~#fo))ҦM#žMDM*s#r#q#p*~?W*###~M~w+MM7~w+MM~#MOùL*4LMy22L* 23L!4L~w#…NO8L!*W*&>*Z @!* &+ >*Q!X!ͧ*N !X>*T!C b!!>;k!;q**oc* Ç***+ <* ͟ õ A4>CBAS2 !L *L ͮ ͟  A4>CRUN2 !L *L ͮ ** CBAS I ONL:O n !& n :!, n 5 ERRO IN LINE*|0ʹ|0ʹ}0ʹ}0ʹ!>w~ ʹ!4#n ʹ* s#r#" * +V+^" y2  :O! ~Һ > ʹ< O> ʹ> ʹ2^#V#" ~2 #͹: !!"wz1OFxHy#6H#wHH #6HO~NC #6#y*w"u|b}bq3!y2*uyHFO #6 wÁzʚ1 4:L*pOMͦ:L!*pO&!rOp+q*qO~$B*qON*qO#"qO(!tOp+q!vO6+6>!uOڶ!wO60*uO&9) sOLLڑ*uO&9) sOLL+s#r!vO6#4_:uO/!vOҪ*wOMï !uO4Q:L2xO:L2yO!L6!L6 L"BO""*@O#"@ODMC!?O6   :xO2L:yO2L!{Oq:{O 6 :M<2M3A!M4*{OM:{O V!>O:?OVͷ  !L6!L6W: €"×: ‘"×" . *M -ª! N6 *M 6 *M 6*MN!L6#6!L6!L6"*M~ έ!:X> !!D !'F %BAD CHANNEL NUMBEÂ::öþ:::?y(1::::::::_|›*:­ʢ2×!Ã:|*7>|22*&|! "&__7:\\!F >2:{\!F _<2!~ɀ&INPUT FILE REAP) H2 COPYRIGHT 1977,1981 COMPILER SYSTEMS, INC'd  END # ()*+, -/: ;<= > ^ASEQ GEGOGT IFLELTNEONORTOABSANDASCATNCOSDEFDIMENDEXPFORFREINPINTLENLETLOGNOTOUT POSREMbRNDSGNSINSQRSUB!TABTANVALXOR"BUFF(CALL#CHR$DATAcELSE$FEND%FILE&GOTO'INT%LINE)MID$NEXT*OPEN+PEEKPOKE,READ-RECL.RECS/SADDSIZESTEP0STOP1STR$THEN2WEND3%LIST%PAGECHAINICLOSE4FLOATGOSUB5INPUT6LEFT$LO###7MATCHPRINT8USING9WHILE:WIDTH;%CHAIN%EJECTCOMMONREMARKbRENAM R]V  ! 4 6!/ 4 6y2 >P 2 ^#V!!  *M>@O:!|O6>!|OE*|O&*M~ ;*|O&*MN:|O<2|O" :Lfͦ͐O:L/vM:L҇  :LN. *MDMO -£:Nʹ:N2OOOb!3O6!S"N. *MDMM -:N:N2M:L MM$b!;M6*MO>Eb: :LQ!S"O*N+*L!~Os+6:~O!}Oڣ*OMʏb*O"O:}O<2}Ol!L6#6!O6!O6!L6!L6!L6!Oq:L*N#"N!9LI!"N*N*N:Ow!Or+s+ M1@@P(P(P(P ERETURN?RIGHT$UCASE$VARPTR%NOLISTCONSOLEBRESTORECSAVEMEMD%INCLUDECOMMAND$CONCHAR%CONSTAT%LPRINTERGRANDOMIZEHINITIALIZEIJh}>ku  PAGE$OUT OF DISK SPACE$OUT OF DIRECTORY SPACE$DISK ERROR $BASNO SOURCE FILE: $.BAS$ERROR $ IN LINE$ AT POSITION$WARNING: INVALID CHARACTER IGNORED IN LINE$INCLUDE NESTING TO DEEP NEAR LINE$FILE: $!mOs+q+p+q:mO=2mOʏ*jO:lOw*jO#"jOrNO!O6!nOq*O&N :nOw:O<2O͐!oOq*oO&!pOq:L!L:L*pOM:pO !?O >: O: !@n!A \#~#^#VN#!A z~#‡H"^#=V#=**"__{s+=r+=s+= !&PPt  q+p+q:L] *L#"L:L2O!L6"*O|O*O}O"*ODMC"*OMCW:O2L!O6!L6! N !iO6=% !iO6::L2LP 2L >! Nҙ : N=2 N.!"* N&L?M DM*M -` "* N&L?M ! ~2>M*ʉ v: N– !iO6: .*M6 !>M6L :L :L h !4O6*w*O >*zP&O) ^#V"O>OWL*O~2P*xP͒!{P>*O#^#V"Oî>:P=O! *O*P&*xP ":P=2P>>*xP>2POD*tP"O*xP*O wo*xP#*O -S*O :{Pw*zP&O) *O#N#Fq#p*O 6*zP&O) *Os#r:PtPK+s#r*O~!Pq*O :P*O w*O ~*O ^#V!Pq*O :Pw*O ~2P!P6:P! $!M6{:L :L+H:L-HpEH{:Mx!L6_{/U$f{e_p:L px !M6{$pBº!O6:L=!Oں*O&L >1!Oҫ$!M6:O<2Oˆ:M!M!L6:M$p.:L=2L!L6:LN"L:M !L6:L !L60!L6#60#NB*8ODM*;O )͸LLf?:L$_!L6fw:L%r!L6fw!L6S/ҷ:LF:LNH:LHҫ!L6Mð!L6J#I:Lb:L ͦ ͯ & 2LÿI:Lc34:L *LM4& 2 :LE !M6f:M<2M:L .x !M6!Oq*L#"L:LM*OM!"O!M6pH’!O6:L=!Oڎ*O))))3_"O:O<2Of*OpB!O6:L=!O*O)3_"O:O<2OŸ*O>!L~>3#HH!M6!!O6:L!O!*O)))*O) 3_"O:O<2O*O|/!M6*O*O&L ~2OAM:O 2O:O> !L_>!O6*L& ~2O:O!O/:O!O2O!O6*L&) :O=:Lñ u:4O<24OO!N :Lw:L 4 :4O!;O!4O2;O!L6 ; :;O<2;O:L G :L!;O6& :>M<2>Ml !>M6*l >*>M&*ڬ *OM! ^#V!L6ì !L6!L6ì !L6 PMo&O"P*POLL3*PN#F`i"P*O#*PN#Fq#p:P<2P2P!P6:P!PڜO!O *O#N#Fq#pO!O *Os#r:P<2PY!Rq:Lү*RM!"O}2O2O2Oo&"Oo&"Oo&"L2R2Ro&"O2O!O6!R6#!"Oͤ:L$͈!"xP!zP6#6%1͝$͝r!Rq:O/8*O#"O:L/G*RM!Rp+q*R|O%*R}O%!Rp+q!RLDMH:O/!L:O/Hҕ* !Rړ*RM!z ^#VÐÐP0*RMb1,OZLLD L,44*L+"LI:LMw*M# e:L::L*Mw:L==2LoLL ->!L!L6*L*M#L -! 7*O&L :O=O*O ~%:O<2O,:O=2Oq>:L =x !L6:LHP_:L,:L Hq& 2LPNTI:L!:O*8O_DM 1.CONSTANT AREA: $CODE SIZE: $DATA STMT AREA: $VARIABLE AREA: $AQGFKLPBTNOCDEIJHXRrU[qZWpS\YVsvwxq     && PROD $FUNCTION REFERENCE BEFORE DEF: $PROGRAM CONTAINS $ UNMATCHED $ STATEMENTS$FOR$WHILE$DEF$NO$ ERROR$ DETECTED$:LO>@_e!V"tP*++"rP"O#6!|P6#6*O~=!}P *}P& *O:|P ì !L6ì !L6ì !L6!L6*O& ~(l :O<2O!>O6:O<2OO! ~02OO> l :>O:>OH!O2>O9 ì !L6+6*O& ~(› :O<<2OO! >2Nì   o à :l2N͛!M6#6!;O6!4O6!"M6!iO6:!L6 x !L6!L6!L6#6:M/:;O2:O*M6͛: N<2 N͖!L6 x ͔ :L3!L6+6!L6:L2L:L2L:L2L͔ :L!L\ͷ͔ 2!>Os>@L!MҁuÄ͔ !O6:L :O<2OH2*O&L) q#p:Mu:L & 2LÌ͔ 6Nbu)ͦ ͯ ͖)-Sx :L!L6*4O&N 6?x :M/^:L<2LO!L :Lw:L!L?w:L^!M6-x -& 2L*L&L ~:L0O> /:La/>z!L/H:L.͇!Lҷ:L_2Lͤ:LAO>/͇H{͸H͛H{f͸:LAO> ͼ0)*ODMrͭ:O$*OM)1!iO6*͖ÐÐ͖Ð:OO!O6T!O6Ð!O6ÐÐ!O6Ð!O6Ð!O6Ð7:@W_bjr|/>+!Rڟ|/:R,O!". ^#V!O6|/|/ORJL:RH2%4|/:R*RDM_*R"ODM60|/ ͆0*RMb1OOJLH>/*ON#F_*ON#F60DAF0|/|/*RMO3|/ P0|/_P0|/|/ O3|/|/N2 % ͆0|/|/́2*RM%t0|/|/:Rʮ!R6́2|/́2|/:RFMͼ0*RM͆0*RMt0|/:R%:R %*O&O) N#FH*O&O) ^#V"O>6L4-*ODMr:O=2O|/|/:RR-SMͼ0W-y%|/u%|/|/~%!O6|/:R‚-%Ç-%*RM6*O#"O|/*O#"O|/:R²-%÷-%*RM6*O#"O|/*O#"O|/:R-CS0-*R&P) ^#V"O:R.FSͼ0 .z%:O.DS0.!O6|/GJT\dgor"4ADQ l !!!!!!!""""&"."3#v##$}$$$$$$$$(%2%V%%& &&&&&"&T&Z&c&f&l&r&&.'I'L'W'b'v'''''''''''')(,(2(8(;(A(G(O(\(l(((( _9%x:%7%*rPN#FH*rP##*Os#r|/*R&Q *R& w6%*rP##N#FH*rP *Os#r:R2ROt0t|/!L6>rPWL+s#r"O*O#>*O#wD:O<2O|/:Rµ#FMͼ0:R:RH#p%#:R:RH#:%͆0*RMt0|/:R:R=O!Q ~H*$p%P$:R:R=O!Q ~HP$:%:R=O!Q :Rw*rP ^#V"ODM_P0|/͝1|/͝1|/*R&Q ~¡$]%`%6DMH|/|/f6|/͝16%1|/:R$EI0:R$:%7%1|/*R"O:L% G5|/ͽ1%DMHb%G5|/f6P0|/f6:R!Sچ**S&L) N#FH:S<2Sc**ODMH:OҞ**O"Ow+!L6:L2L:L2L͔ :O**O͎::O**O͎::O*͎:%%>!LbL+*L  0%FMͼ0 ͆0*RMt0|/|/!R6́2|/́2|/|/ ́2|/:Ox:Rp*R&P) N#F_!O6Ø:R“*R&P) N#F1Ø%|/P0|/ P0|/ P0*RMt0|/:O*R&Q 6*RMb1P0*R&P) q#p*RM6 *RM6|/:L IF0r2*R"O* *RM!R: NS0DM1*RM͚3!%9L!Li SI0|/͆0*RMq1/ҍ ͭr͆0*ODM60|/r2|/ 9*R&-Q) *R&) N#Fq#p9|/9|/8|/ 98|/ P0*RMb13!OOJL!O ! a(((())!),):)V)Y)\)_)b)h)n)q)w))))z+++++++++++++++++++,,,,&,.,1,<,D,u,,,>-A-Z-b-e-r-----*R&Q ~2R*R& ~2R*R& ~2R*R&Q ~2R*R& ~2R*R& ~2R*R&P) ^#V"R*R&P ~2R*R& ~2R*R& ~2R*R&Q) ^#V"R*R&) ^#V"R*R&) ^#V"R*R&Q ~2R*R& ~2R!Rp+q*R&P) *Rs#r!Rq*R&Q :Rw!Rq*R&Q :Rw!Rq*R&Q :Rw!Rq*R&Q :Rw!Rq*R&P :Rw!Rq*R&P :Rw!Rp+q*R*R&Q ^*RDM !Rp+q*R*RDM*R !Rp+q*R*RDM* ,*RM:O/%%74%*R"R͝1|/*RMt0|/:LG%/1*Oq#p*O#"O!O6|/:Of%MPͼ0%6% P01*O"R*RMq12 S*RMt0*O"O*ODM60:L! SҬ%DFͼ0%:L%D*tP##"tP*O 6 ͭ*ODMr%OZL!L%DFͼ0%N|/D:|/P0|/P0|/D:|/|/|/|/͆0*RM6:R<&FI0*R&P) N#F1-%|//2|/_|/|/3|/3|/*R"O:O&:Rʒ&VC0!O6*R&P) nM:R¾&*R&P) n}LWL%+S"!S6>!Sf+W*S&R) N#F"*S&L) N#FC:S<2S0+*DM_IO |//%|/M%|/j%|/|/j%|/|/:Rʮ+SM0|/N2|/_|/N2|/|/__|/N2|/N2|/k%|/|/k%|/|/N2e%|/N2e%|//2i%|/|/lO3|/f%|/|/N2o%|/g%|/:Ol,*O"Ot%*R"R͝1!O6r,DNͼ0|/:O<2O ڊ,NWͼ0í,*O&O) >w#6*O&O) *Os#rt|/:R,EWͼ0:R,:%7%1*O&O) *Os#r|/:O,UWͼ0;-6 FRͼ00!*R&-Q) *Os#r*R&P) s#rOͪ0|!:Lv!!L6E"! S6:L! Sk!* S&L N: S<2 SJ!W!L6|!UFͼ0|/*L& Nb0:L*L& >HOP0*L& ~Oͪ0:L!!O6!:L#!!O6|/7|/L|7|/P0|/͆0|/P0|/͆0|/P0|/P0|/P0|/͆0|/P0|/:R=O!Q :R:RHV"EF0*rP ^#V"O:R/:RH҃".%H:Rҏ"%DM1:R§"%û":RҶ"%û" %:R"DM_%%:R #%_x:%_8%x:% rr'1DMr:O/'DM_͆0*ODM60|/:OC'!O6VC0F'r2|/|/N2@%|/N2@%|/:Ls'>%!L6|/m͕4!L6|/|/'%!L6|/h͕4|/:Rʩ'PI0n%͊4|/_n%͊4|/4|/4|/!L6|/|/?%!L6|/:R=O!Q ~!(SM:R=O!Q :R=O!Q ^N#F &(c%|/|/}8|/}8|/|/}8|/}8|/d%|/d%4%|/!L6/2&%|/!L6:R=O!Q ~¦(FM:R=O!Q :R=O!Q ^N#F :R=O!Q ~¼(]%%/2%%|/|/|/|/5%|/f6|/{5|/{5͝1:O(%|/ E [R *O#"O!Rp+q!RLDMH!Rq*R&mQ n&-R!Rq*RM$1"xP*R&P ~2zP*R&Q ~2{P!Rq*RM91͝!Rq*RMb1҃1>%>!R"xP:R?2zP!{P6 !Rq:LҼ1*R"O:ROKDMr:R<2R1:R<2R͉1͝/1%*ODM60ͽ1DMH!R:R2MMͼ0>>:R2FM0>:R+2FMͼ0>1:R@2FM0M2:RM2]%:R_2FMͼ0l2:Rl2]%t0/2:R<2RO͆0!Rs+q+q ͆0!R:R3:R:RHһ2p%2:R:RH2%p%:R/2%!R6t02MMͼ03 ^/ABvtIJa=o p~sxcdegtroqEFEHGTSYYYYYYUWTUVX!VFnsz#Z$%)&',PW(GM"\/+*-.2]O345601789;4$&   #$% q1@7͸6͒:O/H=7UI*S&Q) *S&Q ^N#F M71DMrͭ*R&P) q#p:L{7!L6*rP *Os#r! Sp+qb0%! S6*S~! Sڴ7* S&*SN%: S<2 S‘7:M7 7%Ì7P0:O7:R8*R&P) @OL8*R&P) N#F_8%*R&P) N#FH.%b0*RMq1/t8! S6:L! SY8* S&L N͝: S<2 S88$͝*O#"ODMrͭDMH:Lҩ8:R”8,%æ8:R¡8p%+%8:R¹8$%8:O/8:R8p%#%8!O6:R 9*R"O*ODM60:R=2RO͘0 <%*+-FN3: ! #Wdd 8lhcdbaf$&cdba&cdba}>Dcdbaucd67[~@ p%'(,29:w:D/ ?CDyCD CD CDCD.Z\CDXCD]`CDCDCDCDCD0CD1CDCD&cdba*"#p%'(,2 :R:RH3FM0:R03*RM%I3:RB3*RM%I3*RM%!R6!Sq ͆0:Rj3:%!R6:R‹3%:%%!R6t0 2ҙ3*SM%!Sq:S¯3_3:S3_3_2S!R:SH3NSͼ03*RM*RM͚3 %*RM%%!Sq:S!4%64:S14%64%:R:RHW4p%~4:R:RHw4:%~41~474*RM 4!L6;%!Sq:Rʧ4SMͼ0:R¿4*R&P) N#F_*SM%%!L6:R4*R&P) N#F_:L4"1'55:L F&(&&02356537899:;<9>&?@XBCcdeeefghd(ijklmmmnopsxp{ppp~pppppppp !#%')+.147:>@BDFHJLNQTWZ\_behlorux{~<<r<<| DM_:R k9*R"O!Rc9:RH:RH]9*R&Q 6!R6p%c9PF0*RM 49!R9H9:R9Hҥ9:%9:R9H9p%9PF0:RO͘0:R=2RO͆0:R:R ::R9NF0%*R&-Q) ^#V"ODMH:R-:NF0:RO! ~2RO%:Lw:*R&Q 6*RM91%1DMr*RM:Ruuvvvwwyyzz{{||}}{q     ^   5)*'55=<'5:R5:%*RM 4!Ss+q:R?5*SM%F5*SM%/2:R<2R)\5OOͼ0*R&R N_^%9%!O6!O6*R&R :Rw:O=2O¨5!O6UN056%*O N#FH!OL*Oq#p*O#>5*O"O5*R&Q 6*RMb1*O OLLH6͎56IN0P0*RMq1e6!O/!Le6:L M6*?BCDEGHIJKM/E  J J  "2"'5 " "". "" " " """0"2""  EFJLM )J #%&'*+,-1345678:<=>?BCDGHIJKM( #&'*+,-134568:=>?BCDGHIJKM)J J  $   AE $ $J JEF9; $  $ """""""""0"""""""""/""  $ )J  $( )J     N%F  '(),./02679<E!&X   [ T 33446688: <<<AADFFSSTTUUVVWW Z[\]^^___``abcddeffgghiijkklmmnrrsttuuuvvwwxxx{{||}}}~~R                     ^; n&"S}!S:LbLH/K*S#"SJ*S?) ^#V"P\K͑K͆K*R&P) q#pyK"PIHoK!L6HvͱL Ͱ*PB) ^#V*PF n&:R<2R ­KOS*8ODM*:O :RҽK !R6:L!:O!Sq*R&-R :Sw:R<2RO>dKOV;K*8O_DM _oogDM!>))L = L_og^#V|g}o *L_{ozgO{ozgi`N#Fogo&og_{_z#W +CBASIC V2.08 COMPILATION OF $ # K   &   $ -3;<@N[kvCBASIC COMPILER VER 2.08  $$\$COPYRIGHT 1981 COMPILER SYSTEMS INC. $1LrH"H"oKͷ!L6:L!LbK!L6!R6!"  I+ \ INT iv #~#VZ{+_~#F!{w!rN,F!vq#p{,q#prYP͵7!rN,F!fwq#p7rYE!{~,FOx'T.6#6.N,F.O!{w#p.~}SOx.q#w.~,F.ޖ,OxҖS.N,F.q#p.6#6*{+{!{,_zS-N,F*{ ~!{w.N,F! "{ÝS!rN,F!vq#p!{N,F!vq#prYP!{N,F͵7!rN,F!fwq#p7r_# P!R6!R6!mQ6:L_K>!PbL4J͑K*R&P) *Ps#ryK"SͮK͆K*S+"S*S"SSSJL1J*S: :LJ*R&mQ :Rw!S6:L!SڝI*S&L NK!S4I*R&P :Lw*R&Q :Lw*R&Q) *8Os#r;K*R&Q w*R&P) *Ls#r*So=) ^#V"P!R6*S"S$JSSJL$JES;K*8O_DM *S"SSI\K!PeLJ͆K:R6L!Rs:R<2RPOLM͚:LJ:R2RyK"S*R&mQ ~2R*R&P) ^#V"S*S< n&"S}SSJLHJ*S#"SÓJ*SKA) ^#V"P>6LJ!L6\K>!PbLAKyK"SͮK*S /  LST@ $:!  Ht PCOPYRIGHT (C) 1978, 1979, 1980 COMPILER SYSTEMS INC xw #^        !q!q{`i!N#F+͸!!q#xw6 ɗyOxG~O#~G+ ~#q#0:?ɇ:=2:<2Я/2ɯ2!K +T]~ fG+~Qs+T] Gʌ#~w!~!BÓz/g{/o# |>|>!  + ! > W!z#?>!> ffff?hfffffA>533333>=ii<0$;9"sU':9"sU'9BT8!%8hxVg 7"hC60wYEG417Gv@`v'b1AAPX#C`QI"U&Àe(HBCTbDvRWaGv"C%T$a'ÙH%Csrb"(HdA1AAXS&YA1AIy&cypt dYd?Sh&&iyv&3uF=84SY592xXT(E133@P5D @cbe@(u?Bp6W>W"f(@E3SxI͗I1͒NI~͗! DM=v ×xʯ ʯ< O*C4|ͅ"q**Cs#r#6LSa  !"g|3|)}/o|/g#>2]^#V#}o|gB5*g&$"g{-Ó'd !} ~5*~ ~z+"~ 0:} ɷG>0͔x=È*p w#:{ :n :m ʿʿ6,#"p :> >-!"~ >2} `i"p :i g: 2m 2l 2n 2k 2o > ͔ > 2}  !i ~2k w͔:@2o !n OO6>2m > 2l 6!o pZ2m /<2l  I:O•2m 2o 8:| ʆ=2u :r > Ĕs :r ʢ͔:n !o 6 y@Gʺ/%͔2{ 2r 2s  i #e /e !e &e $* I $e >$͔ *< I *e >*$ -S I #e .e >-$ \I e ͔I  *p `i~AҜ 6G>Mw!:A<2 )T])i_: =2 :}/o|/g# WzQS͑1I1!~G w!o|g~x>II1N͗=FI W2z1͏ DT͒!2>]iI1ͺ 1|}!#:ēI:- o ' P'> '!~ȯw+6>+6='$`i~G2x2#:W:_!ɯ' #b7>'w #n7>'w #Á>Ø2i2:W³1!:iw `I1!`!`:iw:`G2hxW!`1r!q= :hG:8!aa!>q$ a3!aTmÓ:h2Ó"L:!A!:!AH2H!!"I>2K*L~#"L:*Ia4=³A*Ia=!K5*I#"Iá: 3W vF#~ Oͅ*Cs#r~# **C {_zW*Cs#r#w#w#w*Cw#w#s#r!C^#V^#Vz###~X#{_zW{_zW+++++UMOax!R"&6 #x’+6{z+++Fr+Nsq#p#s#r#6`i##s#r*&^#VN#Fx###~p+q`is#rR*a+6++++^#Vz!~*C~2C*C#"C]:E4 ] :CFù:C:CTH:CRHҳ!C6] ,}"C]*C~,¡] }"Cð>CzB°ö]>2!C!C62:C2fCgC*CM*C\!fC"C:C=2C*C#"C!Cs+q!  1 :| 2m Gy@w:r !s >0 >0 4!m 5<2u :m !l G:n I :o OxGxs W?< =V zz !~s g:u ¡ :s !r  :m :| >-͔ G:t OW*ʵ $µ $ :s !r  O z͔ y͔:i :|  :r : :m >0̔͂ !m ~ 5i͔ :m ͇2{ :i 2 !j ~ҕ 6>.͔:n V :o G:l N GO 2l x͇͂n !l ~n 5i͔V :l ͇:i • *p +~0Š 6 ~ .ʐ #6 "p :n >E͔!o :i ¬ 5~ /<-Gy͔x/ Gy͔x0͔:s ͔2s 2r :i > ͔:k 2i *p 2 $3 2>Ae1FI2!>iI1!u>iNI:AO>y/G ͗m͗II1N :W z1͒/:ҵ͗:͗/͒!~w::INI>iI1͗Iä1!~>w2:AQIIfFI>͗I1>6i:!wI[07HWgtA1A@P\d5bEHyed"BA1PYTAE(('@ @@I@hf :!w#zW@13w`i#j͓ !z@3- W-_!~ȓ_Aw3o{3-z+w>2`i22?G!ҤmÒa!~w:=2K:!KÏ!qÏ!͓ ů28>@2>2 :=2~#ɯ : 2 :x{22 M+d-g>20dr.ʗEʥeʥG&:$o:/2o ʥG-_ʺx½GOxG{G!~+ 2!xw-͓ g2 `i#" " GOW~# < /: &: !: \< #< NUa# y2z z2y ! ~\ : w* b 5* ~#" 2 ɯ2j :z z NNa`i"p : # $Ÿ I $ >$͔:  *± I * >*Ö . I #>.– 2| 1 - I # .>-– >2r 2| O1 >2r \I ĔI  2t  > 2t  I # ,& >2{  !| q.B >2j I #B 6 !l q^U I H !n q-f >2s I *p DM*w #"w ~:v =2v >w > n Ô:y œ SNa`i"w xʧ 2v bk"p : / ! & \I ĔI ò ̓ I ʖ / ̓ I *p w  n ͔ `i"p : EC6:C2C*C"C:C*C:CH:CH\:C V*CNͺ:C<2CO!C Hq:C*C~ H|]!"C!C6:C!C*C&C >9~0Hү*C!CB*C&C >_"C!C4ˆ*C:C2C*C"C*C##~*CN#F!Cp+q>CzB>*C~!Cq:C_AO>/!Cq:C0O> /!Cp+q*C~2C:C=2Cd*C#"C*CNͺ*CwCu*C"C*C^#V"C ҏ*C"CÙ*C^#V"C*C~2C!C6:C!C*C*C >*C*C~>*C#"C*C#"C!C4¥># "+E*/EDM*+E?*CDMIh4%::E/%F#4%*C6 "Ck_*C"C"C*C"C+"'D*C"C*C"C"C"C*C"C"C*C~%*C#*C w*C>?*C#w*C~%4*CN!3 ^#V*CDM1*CDM͗*CDMIh4*CDM1*CDM͒*CDMIh4*CDM1*CDM*CDMIh4S44l&*Ci*C6A&҇&҄&*C i&қ&EN͑*C>w*CDM*CDM1*CDM*CDMI*CDMth4*C*CͳAs#r4*C*CoB+s#r44*C :;E/H!WE!XE60*WE&) UEoBڼ*WE&) UEoB+s#r!XE4Í*XEM!WE4!]Er+s+q+p+q*\E+"\E\B*YE:[Ew*YE#"YE!_Ep+q*^E|O*^E}O>!%DͅB,7F*%DDMt;;!"6E>!6EͅBH0:5E] ͈ ͈`0!aEp+q::5Ey;!5E6;AF*`EDM !cEp+q:5E2dE!5E6;HF*bEDM:dE25E!eEq*eEM:eE_:eE*C#"C*C"C>cB"C*C"C"C!gEp+q  `i"E~!!*E#DM *CN#F `i"E*E4*CN#F*C\*CCͳA++s#r W!7!Z!*C^#V"C*D *CDM1:i Қ!+Di !+D\B!*Dsì!+D!+D\B!*Ds!*D:i !*CN#F+D͏ !+D\B!*Ds!*D!*C^#V!Ep+qE6EmB" *6E#"6E!!Ep+q*EDMͣ"*E~2E!E6:E!EU"*E#"E*EN*6E#"6E1E}BN"0!E4#"*C"4*C"4!Eq:i ҡ"+D !+D\B!*Ds:EҐ"*D4:Ö"*D"!i 6!E6:E<2EO>"*E&4) >ͅB"*EM:ç"͢": *C|# #*"D#""D" WHPMa*C>ͅB>*C~2C*C^#V"CDMͣ*C^#V"CDMͣHO>*C~2C2C!C6:C!Cڇ*C&*C~\€!C4!C5!C4^*C~2C!CҘ>:C=2C:C!CO:C:C<2CO:Cß>!Cq!C6+6:C!C&:C!C>:C/*C&*C~\H!C6)!C4>!C4>*C&*C~2C:Cw:C?I>:C#`*C&*CN&:C!w*C&*CN!C6*C&*C:C!Cq!"C:C* HҴSSa*C^#V"C*C*CN#Fq#p#SSa*CN#F!CͅB*CN#FͣH n*C^#VN#FB+s#r:E*'*C/B#+s#r44I'ZD͑*Cq#p`'*C*CN#F^#VA+s#r:Ev'*C/B#+s#r4Ҍ'*C>w#6'#ҟ'*C>w#6'*C^#V"E!"E*CEmB'*C^#V*E B+s#r*E"Eү'4*CN#F+q#p4*C/B+s#r4*C*CA+s#r4*C*CDB+s#r44͉ ͠44ͭ4ͺ4͉ 4ͯO?4eO?4*C*C^#VN#FͧO?4*C#B+s#r4*C#"C*C*CN#Fq#p*C#"C4*CDM *C^#V"E*C*EN#Fq#p4͠ 4*C*C 1CfEmB!iEp+q*hECoB3*hEN#Fg*C*hEq#p!lEr+s+q*C#~œ*kE^#V"kEC}Bi*kEDMg*C"kE*kE^#V"mEDMҜ*mE~!jEڜ*mE+"mE~œ*kE^#V!*CDM*Ci*CDM*Ci*CDMoEiͭ*CoEi*CDM *CN#F*Ci*C~*C~*C>ͅB*C>ͅB*C~*C~*C#~*C#~!wEq*C##:wEw!xEq*C:xE^*Cq#pg*C>w#6:҄FO͑*C i!6*CDM1ҝ͒ã͗ͺ *Cq#p*CDM1*CDM*C"yE!"{E*yE>ͅB *yE ~*yEyEmB>cB*{E"{E )D :+D:*DH##"!*D"-E**D& 6 **D&*D -E}B*8E"C;QF}*'D#"'D!C͈Bs#DOa*'D~*-E#"-E~::E¨#+ErBҡ#8*+E*D w8#::E´#x#::E#\#!"+É#2E ##::E#!*D"/E#::E#*-E"/E#*'D"/E:E" $!E6,'$!E6"::E!$*/E#"/É#2E!E:E+~ HP$*+E#"+É#2E'$:E"v$́#2E,:E Hv$X$#>+EzB•$*C>w#6$*+EM*C4"E>YB¸$*+E#DMͅ"E*E#*+EDM*/E\*E*+Es*C*Es#r1#>!+EͅB%>!+EͅB%! *C>w#61*C*CN#F*CYB!Cs͈BL:CE:C<*CwL*C:Cw:Ca*C^#V"CÎ:C*C:CͿA*C~cB"CÎ*CCͳA+"C*C>CzBN4"C>YB·DMͅ"C*CDM*C\*C*C w*C*Cs#r1*CN#F`id @PEv2(<PdxPRINTER BUSY?$ IN LINE $ERROR $WARNING $IMPROPER INPUT - REENTER $AT LINE $1fC;5%1fCͥ%"v!MEq*ME& !NEq:;E!;E6*C|YB EAa*C^#V"E*EN#F!Eq+6:E!EN ̀ *C*E^#VN#FB*E "E!E4 ̀ *EEoBc BSa*E##*E*E& B *Cq#p*E##"E*CDM *C^#V*CDMi*CDM 1*C^#V"E*CoB6!*EN#F *EN#F `i"E~=w *EN#F*CN#F%!*CN#F s s#r*Cn&"C14*CN#Fͣ+)U)*CN#FͣD)ͺU)*C*C^#VN#Fͱ4*C#:$D<2$DO!C q#p*C^#V"C4*$D&C) ^#V"C:$D=2$Dң)GRa4445#ڼ)F#$4v!DM"4Ͱ!DM":i )4*CN#FͰ7*CN#F7V"4*CN#FͰ7V"45#(*F#+*I4*C*C^N͏4!:E6$4!:E6z$4v!DM :4Ͱ!DM9:i z*4!E6:E<2EO!4 >ͅBʠ*Å*ͪ5*CN#F*E&6*CN#F͖74*CN#F*Ci4*C+"'D4*C>w45#+F 8 9V8r8 555*4|58 (95!4~ЇwRWa͒5*4*4{_zW{z<*5{9͜5=[9͒57!4>w*4|WDa#"C*4"C*4"C5}*4|ʶ9*4|REa+"497939*4"4:49|8*4 5*4q!4>w:i 4:,!4~6Ԟ9"͞94:"Þ9:i 4:,!4~6Ԟ9 `i#~ OĞ9=#:x `i#N͞9=<:*4}_|Wh:zh: ͞9X: ͞9 ͞95*4|FEa#"C*4"C*4"C*4!=~:! DM!)*4+"4!4~w5}! 6í:H64 ^w#Vwz:UCa"4͒5539͒55;54 w #r4*C^#V"EN*Cq#p42E*C:Ew#64ͅ4*C~=w*C~=HU/IOa*C~YB™0!"1E!5E64l!I4*CN#F͗4*CN#Fͪ5*C*C^#VN#F6*CN#FJ72E:E0}4* 444!4~ /w4<ECa4!4~ w4*4DM!"5>25zW{_!55{5*5c5 |g}o"5*5|g}o"5N5*5*5DM*4>͊5"465*4"465xʸ5>@>Ҿ5NBa`i>)=5> DMͅ"45 *4 "4"4}245Ò54*4!!*4 DM!45H64~#FDa*4r+s"4:4=5|5!4~@w5`i"4)xZ6>>FNax7*4#  *4G7ڑ6:’6w#>266ڨ6 š6.¦6266 õ6:66.6# 67*6:4>*6>266?#`6{6_:7* #z$4*C^#V"EDM/>EzBH3+*EDM 4404:i ڟ+!E6:E<2EO! ^#V"E!6E͈Bn+K+ErB…+*EMß+1EEmBҗ+0ß+*EDM!4^!4ҵ+^!ý+*C##"C4J!47!4ͅ4!:E6*C"8E"4!:E6z$4!:E6$4 94c"J:4*CN#F:4*C>w4*CDM͏ 4͚*DM N*CDMI4c,*Cq#p,v,*C>w#6,*C>w#64*CDMͤ4*CDM4*CDM)4ͭ*CDM*CDMͤS44*CDM 4*C1EoB>zBH,LTa*C6EmB,:*C U#wH64 ^w#VwzUDa"4͒554 w#w;5*}o|gyx"465!ͅ"4ͣv;`64OSa%5v;͜5=f;*4DMͪ5*4"4`64<RFa"4`64<ʿ;4;5!;5!ͪ5>24`6*4 6?4 <`*4O ~O ;;524NO INTERMEDIATE LANGUAGE FILE $CRUN VER 2.08 $COPYRIGHT 1981 COMPILER SYSTEMS INC. $!*E"F!\"F:Cڷ<4<VIa @2E*;=!E6@:E<2EO!E Hqy$= CN#Fͪ5*C*C^#VN#F6*CN#F͂74*C^#V"E*C*E w4*D8l!4*C^#V"E>YBʠ1*E~2E!E6:E!Eڝ1*E&*EN͈!E4~1å1?͈ ͈4*C^#V"3E>YB1!"3E4*CN#F *CDMI4*CDM 4*CDM͏ *CDM1ͺ *Cq#p4*CN#Fͣ72.2*CN#F 1*CN#F64XIa4 2E *E& 4*C*Cs#r14 Җ2*Cq#pß2*C>w#64 *Cw#64͢"!C6!\"4*CN#F`6 *C"C"Ck?7*4*4}O|Gxr# 07*4*4#{z"4`64[77>;5*4)4w#w4^#VzEOa#"C`65 57EMa`64<ʈ77H64 s#rH64 ^#VzUFa"4*4)4 ^#V"45*4"4!46Ò5!4~w8:4BR=aURax8RIa *4C5*4{o>g+{z_zGyW*4  P8~f8395r͙7sn839s!4~w"45͒5*4!)DM! !4>w:428%5±8!85͜5ß87:4*4 497839͊5"4|8:4|8*4~u:8 *4|8ERa`i6 ]N#F!4*CDMt4"EADM *E|:-͗*CDMI4*C|r-HE *LE&SB*KE& >8B"x-*"D"4HҒ-NL͑Ú-*CDM4*C*6Es#r4*CN͈*Cw#64*C^#V"EDMͣ-CAa*E#~2E*C:Ew#64ͅ"E*E6*C*E# w*C*Es#r14͎4*CN#F2E*E&*Cq#p4͎4͎4:i 2E!i 6v!!Es!*D5#~ ƒ.:*D=2+D+D É.*D 1:E2i 4*CN#F*CN#F_?*CDMI4*C*C^#VN#F;"E*C*Es#r4*CN#F;"E*C*Es @C*C^#VN#F/;4% &,&M&S&&&&-'y''''(*(0(<(=(C(L(R(^(h(r(((((()X))))))))**.*D*O*Z*h******+6+9+?++++++++++, ,,&,1,P,,,,,,, --E-{-----.&.E.M.U....//7/=/c/y//0'0K0S0b0z0000061S1_11111 2:2C2d2{2222å%!E6#84:E/2E*C/B#+s#r*R4:E/2E*C/B#+s#rm4ZD͑*C iÅ4*CDM1*CDMN*CDMIh6*4 m l<*EE?:=CNa*EDMI*E"E*C͈B8=A<:Cү=AE}BT=FCaAE}Bf=CCaAE}Bx=DCaAE}BҊ=PCaAC}Bʝ=SCa*C"E*C"E&A>A"EF"E"CA"E*E"E"CA"E*C"CA"E*C "C*C*CA"C}B\B>A*C"E@@:E3=>@*Ew:>*E#"E$> @:EQ>@͆@@ @:E„>@*E"F*F6@@ʁ>@*F~<*Fwj> @:E~ˆ?@~ʅ?:C҂?:Ex?*E"F*F^#V"FC}Bx?>FzB+s#r*F ~<*F w>*F 6:E=2Ex?*F*E& " :!w#zW@13w`i#j͓ !z@3- W-_!~ȓ_Aw3o{3-z+w>2`i22?G!ҤmÒa!~w:=2K:!KÏ!qÏ!͓ ů28>@2>2 :=2~#ɯ : 2 :x{22 M+d-g>20dr.ʗEʥeʥG&:$o:/2o ʥG-_ʺx½GOxG{G!~+ 2!xw-͓ 9!L!#k Ht PCOPYRIGHT (C) 1978, 1979, 1980 COMPILER SYSTEMS INC xw #^        !q!q{`i!N#F+͸!!q#xw6 ɗyOxG~O#~G+ ~#q#0:?ɇ:=2:<2Я/2ɯ2!K +T]~ fG+~Qs+T] Gʌ#~w!~!BÓz/g{/o# |>|>!  + ! > W!z#?>!> ^F*F^#V" F*F##"F!" F F FmBx?*F^#V"FC}Bb?>FzB+s#r*F ~<*F wb?*F 6*F###"F* F" F?*E"EÌ> @@:E6:E7H:E`H:EH?@*ECͳA+*Eq#p@ @:E.?@*E^#V)))F*Eq#p@ @:E @@@>:C+@OA*EECmB *F 6I*F 6N*F 6T*F 6 *F 6*F {@:Cr@  2]^#V#}o|gB5*g&$"g{-Ó'd !} ~5*~ ~z+"~ 0:} ɷG>0͔x=È*p w#:{ :n :m ʿʿ6,#"p :> >-!"~ >2} `i"p :i g: 2m 2l 2n 2k 2o > ͔ > 2}  !i ~2k w͔:@2o !n OO6>2m > 2l 6!o pZ2m /<2l  I:O•2m 2o 8:| ʆ=2u :r > Ĕs :r ʢ͔:n !o 6 y@Gʺ/%͔2{ 2r 2s  `/PMXList @ F STACKSIZECODEDATASTACKMEMORYSTARTSYMBOLSPUBLICS LINES MAP NAME PURGE PRINTORDERRESTART0!fw6#6.pN,FYE!}wq.nN,F=!pww#p.nw#p*nw~!}w¹F*nw#KB=!nww#püFqF(̈́Fnw28!~ww#p)̈́F!~w~,F-N,F,q#p.nN,Fz=!nw,Ox.|q.y6.{6!yw o ' P'> '!~ȯw+6>+6='$`i~G2x2#:W:_!ɯ' #b7>'w #n7>'w #Á>Ø2i2:W³1!:iw `I1!`!`:iw:`G2hxW!`1r!q= :hG:8!aa!>q$ a3!aTmÓ:h2Ó"L:!A!:!AH2H!!"I>2K*L~#"L:*Ia4=³A*Ia=!K5*I#"Iá: 3W n#"E@O`iSB@_MNa *C"F>FzBNA*F 6*F^#V"F,A*C"F*F^#V"F>YBʰA*F>ͅBuA*F ~*F ~HңA*F DMíA*F^#V"FUAi`N#Fog_og_{ozgi`N#FogDM!>))덑o|gA =A^#V))) DM!>))B =BYP뗖_>#Wi`/o/g_{ozgi`N#Fog^#V) SB_{ozgO{ozgi`N#Fogo&og_{_z#Wi`N#Fog1    1 :| 2m Gy@w:r !s >0 >0 4!m 5<2u :m !l G:n I :o OxGxs W?< =V zz !~s g:u ¡ :s !r  :m :| >-͔ G:t OW*ʵ $µ $ :s !r  O z͔ y͔:i :|  :r : :m >0̔͂ !m ~ 5i͔ :m ͇2{ :i 2 !j ~ҕ 6>.͔:n V :o G:l N GO 2l x͇͂n !l ~n 5i͔V :l ͇:i • *p +~0Š 6 ~ .ʐ #6 "p :n >E͔!o :i ¬ 5~ /<-Gy͔x/ Gy͔x0͔:s ͔2s 2r :i > ͔:k 2i *p 2 *C>w#61*C*CN#F*C4B!CscBL:CE:C<*CwL*C:Cw:Ca*C^#V"CÎ:C*C:C͚A*C~>B"CÎ*CC͎A+"C*C>CUBN4"C>4B·DMͅ"C*CDM*C\*C*C w*C*Cs#r1*CN#F`id @PEv2(<PdxPRINTER BUSY?$ IN LINE $ERROR $WARNING $IMPROPER INPUT - REENTER $AT LINE $1AC;5%1ACͥ%"v!(Eq*(E& !)Eq:E!E6*C|E !*E6E :*E) !*E6  ý*)E& *C| $3 2>Ae1FI2!>iI1!u>iNI:AO>y/G ͗m͗II1N :W z1͒/:ҵ͗:͗/͒!~w::INI>iI1͗Iä1!~>w2:AQIIfFI>͗I1>6i:!wI[07HWgtA1A@P\d5bEHyed"BA1PYTAE(('@ @@I@hf vC6:C2C*tC"C:C*tC:CH:CH\:vC V*tCNͺ:vC<2vCO!vC Hq:C*tC~ H|]!"C!C6:vC!C*C&vC >9~0Hү*C!CA*C&vC >_"C!C4ˆ*C:C2C*C"tC*C##~*CN#F!Cp+q>CUB>*C~!Cq:C_AO>/!Cq:C0O> /!Cp+q*C~2C:C=2Cd*C#"C*CNͺ*CwCu*C"C*C^#V"C ҏ*C"CÙ*C^#V"C*C~2C!C6:C!C*C*C >*C*C~>*C#"C*C#"C!C4¥># g2 `i#" " GOW~# < /: &: !: \< #< NUa# y2z z2y ! ~\ : w* b 5* ~#" 2 ɯ2j :z z NNa`i"p : # $Ÿ I $ >$͔:  *± I * >*Ö . I #>.– 2| 1 - I # .>-– >2r 2| O1 >2r \I ĔI  2t  > 2t  I # ,& >2{  !| q.B >2j I #B 6 !l q^U I H !n q-f >2s I *p DM*w #"w ~:v =2v >w > n Ô:y œ SNa`i"w xʧ 2v bk"p : / ! & \I ĔI ò ̓ I ʖ / ̓ I *p w  n ͔ `i"p : :E/HE !E6!+Eq:E/*+EM͘:*+E&   !-Ep+q*,E~$f*,EN*,E#",EL!/Ep+q*.E)))!1Ep+q!2E6>!2E!3E60*2E&) 0EJBڼ*2E&) 0EJB+s#r!3E4Í*3EM!2E4!8Er+s+q+p+q*7E+"7E7B*4E:6Ew*4E#"4E!:Ep+q*9E|O*9E}O>!D`B,7F*DDMt;;!"E>!E`BH0:E] ͈ ͈`0!Ep+q:E2?E!E6;HF*=EDM:?E2E!@Eq*@EM:@E_:@E*C#"C*C"C>>B"C*C"C"C!BEp+q ffff?hfffffA>533333>=ii<0$;9"sU':9"sU'9BT8!%8hxVg 7"hC60wYEG417Gv@`v'b1AAPX#C`QI"U&Àe(HBCTbDvRWaGv"C%T$a'ÙH%Csrb"(HdA1AAXS&YA1AIy&cypt dYd?Sh&&iyv&3uF=84SY592xXT(E133@P5D @cbe@(u?Bp6W>W"f(@E3SxI͗I1͒NI~͗! DM=v ×xʯ ʯ< O*C4|ͅ"q**Cs#r#6LSa HPMa*C>`B>*C~2C*C^#V"CDMͣ*C^#V"CDMͣHO>*C~2C2C!C6:C!Cڇ*C&*C~\€!C4!C5!C4^*C~2C!CҘ>:C=2C:C!CO:C:C<2CO:Cß>!Cq!C6+6:C!C&:C!C>:C/*C&*C~\H!C6)!C4>!C4>*C&*C~2C:Cw:C?I>:C#`*C&*CN&:C!w*C&*CN!C6*C&*C:C!Cq!"C:C* HҴSSa*C^#V"C*C*CN#Fq#p#SSa*CN#F!C`B*CN#FͣH i #e /e !e &e $* I $e >$͔ *< I *e >*$ -S I #e .e >-$ \I e ͔I  *p `i~AҜ 6G>Mw!:A<2 )T])i_: =2 :}/o|/g# WzQS͑1I1!~G w!o|g~x>II1N͗=FI W2z1͏ DT͒!2>]iI1ͺ 1|}!#:ēI:- F#~ Oͅ*Cs#r~# **C {_zW*Cs#r#w#w#w*Cw#w#s#r!C^#V^#Vz###~X#{_zW{_zW+++++UMOax!R"&6 #x’+6{z+++Fr+Nsq#p#s#r#6`i##s#r*&^#VN#Fx###~p+q`is#rR*a+6++++^#Vz!~*tC~2C*tC#"tC]:E4 ] :vCFù:vC:wCTH:xCRHҳ!C6] ,}"C]*tC~,¡] }"Cð>CUB°ö]>2!C!C62:C2ACBC*CM*tC\!AC"tC:C=2C*tC#"tC!Cs+q! CAEHB!DEp+q*CECJB3*CEN#Fg*C*CEq#p!GEr+s+q*C#~œ*FE^#V"FECXBi*FEDMg*C"FE*FE^#V"HEDMҜ*HE~!EEڜ*HE+"HE~œ*FE^#V!*CDM*Ci*CDM*Ci*CDMJEiͭ*CJEi*CDM *CN#F*Ci*C~*C~*C>`B*C>`B*C~*C~*C#~*C#~!REq*C##:REw!SEq*C:SE^*Cq#pg*C>w#6:҄FO͑*C i!6*CDM1ҝ͒ã͗ͺ *Cq#p*CDM1*CDM*C"TE!"VE*TE>`B *TE ~*TETEHB>>B*VE"VEJN#F!4*CDMt4"EͩADM *E|:-͗*CDMI4*C|r-#E *'E&.B*&E& >B"x-*C"4HҒ-NL͑Ú-*CDM4*C*Es#r4*CN͈*Cw#64*C^#V"EDMͣ-CAa*E#~2E*C:Ew#64ͅ"E*E6*C*E# w*C*Es#r14͎4*CN#F2E*E&*Cq#p4͎4͎4:i 2E!i 6v!!Es!D5#~ ƒ.:D=2DD É.D 1:E2i 4*CN#F*CN#F_?*CDMI4*C*C^#VN#F1;"E*C*Es#r4*CN#Fx;"E*C*EsD :D:DH##"!D"E*D& 6 *D&D EXB*E"C;QF}*D#"D!CcBs#DOa*D~*E#"E~:E¨#EMBҡ#ͦ8*ED wͦ8#:E´#x#:E#\#!"É#2uE ##:E#!D" E#:E#*E" E#*D" E:uE" $!vE6,'$!vE6":E!$* E#" É#2uE!vE:uE+~ HP$*E#"É#2uE'$:vE"v$́#2uE,:uE Hv$X$#>EUB•$*C>w#6$*EM*C4"wE>4B¸$*E#DMͅ"wE*wE#*EDM* E\*wE*Es*C*wEs#r1#>!E`B%>!E`B%!s#r*Cn&"C14*CN#Fͣ+)U)*CN#FͣD)ͺU)*C*C^#VN#Fͱ4*C#:C<2CO!C q#p*C^#V"C4*C&C) ^#V"C:C=2Cң)GRa4445#ڼ)F#$4v!DM"4Ͱ!DM":i )4*CN#FͲ7*CN#F7V"4*CN#FͲ7V"45#(*F#+*I4*C*C^N͏4!E6$4!E6z$4v!DM94Ͱ!DMͬ9:i z*4!E6:E<2EO!4 >`Bʠ*Å*ͬ5*CN#F*E&6*CN#F͘74*CN#F*Ci4*C+"D4*C>w45#+F*TE^#V"TE*VE*C~2aE!"XE*C"[E*C"]E!ZE6*C~!ZEc*CN#F*XEA+s#r"XE!ZE45*[E"C*]E"C*XE*aE&A*C~<_DMͅ"[E"_E*C*_E w#6!ZE6*C~!ZE*_E##"_E*C*_EN#Fq#p!ZE4¤*C*[Es#r*C~2fE*C^#V"bE>4B EAa*C^#V"gE*bEN#F!eEq+6:eE!dEN ̀ *C*bE^#VN#FA*gE "gE!dE4 ̀ *bEgEJBc BSa*bE##*gE*fE&A *Cq#p*bE##"bE*CDM *C^#V*CDMi*CDM 1*C^#V"iE*CJB6!*iEN#F *iEN#F `i"kE~=w *iEN#F*CN#F%!*CN#F #r4*C^#V"EN*Cq#p42E*C:Ew#64ͅ4*C~=w*C~=HU/IOa*C~4B™0!" E!E64l!I4*CN#F͗4*CN#Fͬ5*C*C^#VN#F6*CN#FL72E:E0}4* "E* EDM*E?*CDMIh4%:E/%F#4%*C6 "C7_*C"C"C*C"C+"D*C"C*C"C"C"C*C"C"C*C~%*C#*C w*C>?*C#w*C~%4*CN!3 ^#V*CDM1*CDM͗*CDMIh4*CDM1*CDM͒*CDMIh4*CDM1*CDM*CDMIh4S44l&*Ci*C6A&҇&҄&*C i&қ&EN͑*C>w*CDM*CDM1*CDM*CDMI*CDMth4*C*C͎As#r4*C*CJB+s#r44*CU#z$4*C^#V"EDM/>EUBH3+*EDM 4404:i ڟ+!E6:E<2EO! ^#V"E!EcBn+K+EMB…+*EMß+ EEHBҗ+0ß+*EDM!4^!4ҵ+^!ý+*C##"C4J!47!4ͅ4!E6*C"E"4!E6z$4!E6$484c":4*CN#F|:4*C>w4*CDM͏ 4͚*DM N*CDMI4c,*Cq#p,v,*C>w#6,*C>w#64*CDMͤ4*CDM4*CDM)4ͭ*CDM*CDMͤS44*CDM 4*C EJB>UBH,LTa*CEHB,:*C `i"kE~!!*kE#DM *CN#F `i"kE*kE4*CN#F*C\*CC͎A++s#r W!7!Z!*C^#V"CD *CDM1:i Қ!Di !D7B!Dsì!D!D7B!Ds!D:i !*CN#FD͏ !D7B!Ds!D!*C^#V!nEp+qmEEHB" *E#"E!!pEp+q*oEDMͣ"*oE~2qE!rE6:qE!rEU"*oE#"oE*oEN*E#"E EXBN"0!rE4#"*C"4*C"4!sEq:i ҡ"D !D7B!Ds:sEҐ"D9Ö"D"!i 6!tE6:tE<2tEO>"*tE&4) >`B"*tEM|:ç"͢": *C|# #*C#"C"l*C^#VN#FA+s#r:yE*'*C B#+s#r44I'ZD͑*Cq#p`'*C*CN#F^#VͿA+s#r:yEv'*C B#+s#r4Ҍ'*C>w#6'#ҟ'*C>w#6'*C^#V"|E!"zE*CzEHB'*C^#V*|EA+s#r*zE"zEү'4*CN#F+q#p4*C B+s#r4*C*CͲA+s#r4*C*CB+s#r44͉ ͠44ͭ4ͺ4͉ 4ͯO?4eO?4*C*C^#VN#FͧO?4*CA+s#r4*C#"C*C*CN#Fq#p*C#"C4*CDM *C^#V"~E*C*~EN#Fq#p4͠ 4*C*C a CN#Fͬ5*C*C^#VN#F6*CN#F̈́74*C^#V"E*C*E w4Dͺ8l!4*C^#V"E>4Bʠ1*E~2E!E6:E!Eڝ1*E&*EN͈!E4~1å1?͈ ͈4*C^#V"E>4B1!"E4*CN#F *CDMI4*CDM 4*CDM͏ *CDM1ͺ *Cq#p4*CN#Fͣ72.2*CN#F 1*CN#F64XIa4 2E *E& 4*C*tCs#r14 Җ2*Cq#pß2*C>w#64 *Cw#64͢"!C6!\"4*CN#Fb6 *C"C"C7EUB)A*E 6*E^#V"EA*C"E*E^#V"E>4BʋA*E>`BPA*E ~*E ~H~A*E DMÈA*E^#V"E0Ai`N#Fog_og_{ozgi`N#FogDM!>))덑o|gA =A^#V))) DM!>))A =AYPz_>#Wi`/o/g_{ozgi`N#Fog^#V) .B_{ozgO{ozgi`N#Fogo&og_{_z#Wi`N#FogC *7?7w#:47FIa>? 7*4*4}O|Gxr# 27*4*4#{z"4b6 5]7!7>=5*4)4w#w4^#VzEOa#"Cb655!7EMab6 5<ʊ7!7J64 s#rJ64 ^#VzUFa"4*4)4 ^#V"45*4"4!46Ô5!4~w8:4BR=aURax8RIa *4E5*4{o>g+{z_yW8!*4 s#r!4~w"46͔5*4!,! ~#~!4>w:428(5!7!85͞5o8;7Ҕ88͌5"4L8:4L8*4~::͂8 *4|ʦ8ERa`i6͂8 8Vʾ8rþ8 656*4|6͂8 86!4~ЇwRE"E*CcB=@î<:CҊ=@EXB/=FCa@EXBA=CCa@EXBS=DCa@EXBe=PCa@CXBx=SCa*C"E*C"EA=@"EE"E"C@"E*E"E"C@"E*C"C@"E*C "C*C*C@"CXB7B=@*C"Eͼ@?:E3>ͼ@*Ew>*E#"E=?:E,>ͪ@a@ͪ@?:E_>ͪ@*E"E*E6ͪ@ͼ@\>ͪ@*E~<*EwE>?:E~c?ͼ@~`?:C]?:ES?*E"E*E^#V"ECXBS?>EUB+s#r*E ~<*E w¿>*E 6:E=2ES?*E*E& "E*E^#V"E*E##"E!"EEEHBS ~C*C^#VN#F:4% &,&M&S&&&&-'y''''(*(0(<(=(C(L(R(^(h(r(((((()X))))))))**.*D*O*Z*h******+6+9+?++++++++++, ,,&,1,P,,,,,,, --E-{-----.&.E.M.U....//7/=/c/y//0'0K0S0b0z0000061S1_11111 2:2C2d2{2222å%!yE6#84:yE/2yE*C B#+s#r*R4:yE/2yE*C B#+s#rm4ZD͑*C iÅ4*CDM1*CDMN*CDMIh6*4*#:!#}Wa͔5*4*4{_zW{z<05:9͞5=9͔5!7!4>w*4|WDa#"C*4"C*4"C6}*4|u9*4|REa+"4;7҄98*4"4:4¢9L8*4! N#F p+q*4q!4>w:i 9,!4~6]9"]99"]9:i 9,!4~6]9 `i#~ O]9=9x `i#N]9=:*4}_|W-:z-: ]9: ]9 ]96*4|FEa#"C*4"C*4"C*4!,! w#w*4+"4!4~w6}J64 ^w#Vwz•:UCa"4͔558͔55=54 w#wJ64 ^w#VwzUDa"4͔554 w#w=5*}o|gyx"485$ͅ"?*E^#V"ECXB=?>EUB+s#r*E ~<*E w=?*E 6*E###"E*E"E>*E"Eg>?ͪ@:E6:E7H:E`H:EHұ?@*EC͎A+*Eq#p@?:E.?@*E^#V)))E*Eq#p@?:E?@@=:C@*A*EECHB *E 6I*E 6N*E 6T*E 6 *E 6*E V@:CM@  ;F *E *E#"E!E7Bک@!D"ED W@ʐ@*E6é@D W@ʩ@*E 6*E*E w*E#"Ea@*E~2Eͼ@*E#wͼ@*Ew*E##"Eͼ@O`i.Bͼ@_MNa  C4!4#54444<ECa!44"44*4DM!"5>25zW{_!55}5*5e5 |g}o"5*5|g}o"5P5*5*5DM*4.͌5"485*4"485xʺ5>@>5NBa`i>)=5. DMͅ"45 *4 "4"4}246Ô54*4$$*4 DM!45J64~#FDa*4r+s"4:4=6|6!4~@w6`i"4)x\6>>FNax7*4#  *4G7ړ6:”6w#>266ڪ6 œ6.¨6266 ÷6:66.6# 67*6:4>*6>266?#`6{6_:74ͣ(;b6 5OSa(5(;͞5=;*4DMͬ5*4"4b64<RFa"4b6424b6*4 6?4ʾ;`*4O ~O ×;=524NO INTERMEDIATE LANGUAGE FILE $CRUN VER 2.38 $COPYRIGHT 1981 COMPILER SYSTEMS INC. $ REQUIRES CP/M V2 OR MP/M$!E"E!\"E:Cڒ<;F;F "C}s<Ү<VIa ͼ@2E*=!E6ͼ@:E<2EO!E Hqy$<þ<*EE?:<CNa*EDMI* 8/PMXList @ *F STACKSIZECODEDATASTACKMEMORYSTARTSYMBOLSPUBLICS LINES MAP NAME PURGE PRINTORDERRESTART0!fw6#6.pN,FYE!}wq.nN,F=!pww#p.nw#p*nw~!}w¹F*nw#KB=!nww#püFqF(̈́Fnw28!~ww#p)̈́F!~w~,F-N,F,q#p.nN,Fz=!nw,Ox.|q.y6.{6!yw<2  *DMz *:=o&" DM! :=o&" ! :w*# D:}:‚ :|*w~:{==2{_| >!{Ґ !{6|*# _DM !65!y6 ͼö  :y\  ͷ !r6ͼ :{<2{O!{ :yw:y!x?w ͼ 2y*{&{ ~:y0O> /:ya/>z!y/H:y.#!S:y_2y@:yAO>/#HTH7H҉|TҦ:yAO>ڢãç|:y ¶ͼ> !{>!6*{&_ ~2:!ڐ:!2!6*{&I) =:{<ZRESTORE@SAVEMEMCOMMAND$CONCHAR%CONSTAT%LPRINTERGRANDOMIZEDINITIALIZEEEcx4>  DISK ERROR $BASXREF06: NO SOURCE FILE: $.BAS$XREF07: INVALID PAGE LENGTHXREF05: INCLUDE NESTING TO DEEP NEAR LINE$XREF03: OUT OF MEMORYXREF01: OUT OF@ MEMORY$XREF04: TO MANY FUNCTIONSXREF02: OUT OF MEMORY $PAGE NO$  NAME 7 TYPE$.BASPARAMETER $ FUNCTION $ GLOBAL $XREF V2.08 $$E$COPYRIGHT 1981 COMPILER SYSTEMS INC.$1r  ͓Ϳk6:<2O! ~$*& ~'H!:H=  *& ~$f :<2O! ~2'!:Hf :A2O>c *M!S ^#V!6c !6c !6#6c !6!6P!6$!6c !6c *& ~( !4!6:<2O! ~02O>  ::H!2 :-   *& ~)@ !4c !6c !6c C K L !6+~! :<2O! ~':!/H#~!H *& *& w!4t :l2a5!6!y6 ͼ!{6!x6!r6!t6:y" !r6B"  gH_"*&*:<2O!{ a!{:^*&*~2r[:r2u!r6G>*&{ :=O* ~҆:<2Í:=2>>@_D!s"8*++"!>6#6*~=!?*?& *:>2>!?4·:>?*^*"> 9+s#r!8G  #*!Ap+q:y 9*@+"@* >DZ* ^#V"9*~=O! *@. H҇*~ ¹* q#p* ^#V"6* >w#6*N! **@s#r*4*<&) ^#V!Bq:B8!G vi^ v!s+p+q+p+q:=2C** w*#"*#"!s+q+p+q:=2n*:w*#"Qc!_6!q*_& :w:_<2_ڥo!q*&!q*& Ͷ Ͷ!q:*Mͦ:*Mͅ: !4!6 !4!p+q*~$**NͶ*#"j  v *DM !6 * 6 * 6*y *~ʜ*>@_:!6>!*&*~ *&*^!4¡  :ͅoc:; :y ͼ:y" 7H !r6A:y0C 2y2 |7S |:yH:yhHq ÿ :y :y+H:y-H EHҿ Ҵ ÿ :y ¿ ͼͫ T҃ j  :y$  :y% ͷ> :|F:}NH:{H& !r6H+ !r6F!{"::x2<ͫÀ :rb] :y Z 2yF À :rc| :y y 2ye À ͫ :y%:z Hҹ ͼ@:|I³ :y ʽ 2yì ͼ!{6:y :y.H:y H @  * 5:2 COPYRIGHT 1978,1979,1981 COMPILER SYSTEMS INCd  # ()*+, -/: ;<= > ^ASEQ GEGOGT IFLELTNEONORTOABSANDASCATNCOSDEFDIMENDEXPFORFREINPINTLENLETLOGNOTOUT POSREMbRNDSGNSINSQRSUB!TABTANVALXOR"BUFF(CALL#CHR$DATAcELSE$FEND%FILE&GOTO'INT%LINE)MID$NEXT*OPEN+PEEKPOKE,READ-RECL.RECS/SADDSIZESTEP0STOP1STR$THEN2WEND3CHAINCLOSE4FLOATGOSUB5INPUT6LEFT$L#CALaMATCHPRINT7USING8WHILE9WIDTH:COMMONCREATE;DELETEZ+:    !p+q!6+6>!!60*&=) .*&=) .+s#r!6#4Ö:/!*M !4ˆ:y2z͔2yc>!W!5"*& *DM! "*& ! ~2<Gv:T!6:`!6:yÐ:y w!`6*#":y „!y6 :y ʐ:y:<2ڰ!6<°>*&* ~ :yHü:y 2y:y\ͼ!6!    !Dp+q* *Cs#r* >w* >">9q*~2E*:ctc>*#^#V"=>:E=O! **E&*: §:E=2E¤>t>*:>2FO*8"*:#* *:*w_ * 6*#q#p*<&) *s#r:F8+s#r!Gq* :Gw*~!Hq* :Hw* ~* ^#V!Iq* :Iw* ~\2L!M6:L!Mھͯo&"J*J.ʧ*JN#F`i"JË*#*JN#Fq#p!M4p: :rF27/!T!ͪ"DM *6* >w#6:T!.MAIN.\.PROG..DATA..BLNK.FORRD $\FORRS FORBN FORI mFORW -\REPX 1LOG DEPX CSW M\CWS SRD RDS RSRD .\RDRS .CBNI cBNRD 7RDBN \RDW CIRD QRDI NFINT 7U\FFIX &SADD bIEXP :EXP \RND fINT 6FIX hSGN C\ABS !$SQR "xATN # TAN $-v\COS %SIN &IMP ' FRE (^ \POS )$SETMID*RFCB$ +!TAB$ ,\HEX$ -EPEEK .ASCII /CHR$ 0 Y\STRING1$LEFT 2'RGHT$ 3YRIGHT 4 ͞*P"N!"jRj,L*N^#V"!m6*~!mP:m=O! *N!m4**>!O~,klMÂ,|wMÂM@"!i6: >9 !m6*~!m:i, !i6:!^!:/!͞+~:m=O! *N#Fz!m4¥* ^#V"Ô^!:/!7͞*N##"N*j"j!op+q!p6*p&*n~$}*p&*nN!p4X!qq!r6:q!rڝ !r4‡ MM~M:+~7M:h<2hOz^^?M^^!6_ogDM d!4*M%!%@"*DM$ :rH²:sš*#">"^  ͪ"DM *6* >w#6!6*M%!T6*"7ү@"*DM$ :r !T!6*"*ML!T6 :r :T!T6!6: *"e!6:r2sÿ~*8"P"N!"R!s"8,}*N*s#r*N##"N*+%s  *RDMz *R#"R0*P++"P*R"U>!UDR!U+s#rR<"W!Y6:YO!Y6!"\W\,L*U*\"Z*\)*P*Z)*P^#VN#F[?*\PD\MID 5?XLATE 6kINSTR 7iSPACE$8\LEN 9)VAL :KNUM$ ;BGTE <B\BLTE =BLT >BGT ?BEQU @k\BNEQU ABABS BBNEG C PNUM D\P$ EEXC FCHAIN GSIZE H\RENAM IXFCREATJFDEL K=FOPN L6\FCLOS MRSET NRREAD OGRWRITEP\SWRITEQ^SREAD RSETFCBSIIMP Tl\IEQV U IXOR V IOR W IAND X \INOT Y IGTE ZILTE [ILT \\IGT ]IEQU ^INEQU _IABS `\ISUB a IADD b IMUT cIDIV d)l\INEG e WGTE f WLTE gWLT h \P!>))  =^#V|g}o _{ozgi`N#Fogo&og_{_z#W'CBASIC XREF LISTING OF $ $ $\ INT x )*P^#V"^*Z)*P*\)*PN#Fq#p*Z)*P*^s#r!Y6*\"\óÌ*P##"P!cr+s+p+q*` *b ~z>*` *b ҏ>*` *b ~Ҥ>*` *b ҹ>*`*b *b~2f*`~2f!g6:g<2g!f>*g& *`*g& *b~ᖟ*`:g5*g& *`~2d:!d6 *b:gY*g& *b~2e^!e6 !e:d!h6!l6*~ʤ*>@:l<2lO! Hq:l<2lO! 6:!m6>!m*m&*~ *m&*:l<2lO! w!m4©h*l& DM :{1 XRF ;:eM$$$I"I$! !$I@!B B"D$!D $I$ WGT iWEQU j WNEQU kWABS l #\WNEG mDGTE nDLTE oDLT p\DGT qDEQU rDNEQU sDABS tA\DNEG u RGTE vRLTE wRLT x9\RGT yREQU zRNEQU {RABS |\RNEG } SGTE ~SLTE SLT \SGT SEQU SNEQU PRS Q\PRD qCMPSTR^CMPRD cCMPRS c\CMPEX CMPBN ICMPI CLS s\RSTR CLBN RBN #CLRD \RRD %CLRS RRS RI .\CLW RW CRSL CRDL \CBNL CIL CWL CSL \TSTRSd!p>!;7 $"h"f!"j!>v;L C!p>2͇@*f#";_ f!p>!>`;r Ⱥ!p>dD*f|; !p>!>``; ɇ*f+"f!p>V; C!>2͹!p>K; HÇ!p>d!>0@; d͇*h#"h!p >; C! >2͹!p>; H!p>d!>0; d͸!~>2!~>O; C!~>!!p>!;3 >!!"n>2l !p>L;G 2!~>! >+;[ d͹!~>2*n";n nQ;b`!C*> !>>;u3͸!*>!n;2͇QHQi4; V;D"f"!>@!>;b">! >7;(dͱ*>2!>;;C*>!:0͈;NHi*!>@!>;b`!C*> !>C;u3Ͳ!*>!y;2͈QHQi2;\;D"e"!>@!>;b">! >2;(dͧ*>2!>;;C*>":`͊;Nh*! >!>>!; >ͳ!>c; C!>3!z; y=´ >!V; >! >ʹ ; C!>2Ͳ!>C; C!>!!>!; >! >!>͢; !>d!>0;# C!> >2! >;8 fͳͱD:=-!>ͼ;K ͳȱ*|@p;] !>`ͳ͒;n ȱ*!zLOG <= ; 0 OR A^X A<=; ; <цxAr; Rr, TSTRD TSTBN 'TSTI \TSTSTR%TSTW $PBN BDIV i\BMUT &BSUB BADD  DRD \DRS DBN DINT DCHAR \DST iDNUM SDSET IRS 2\RADD RSUB +RMUT KRDIV d|\RSNORMmIRD /DADD DSUB 3p\DMUT `DDIV yRDNORMlREDIM I<\BASET 0MAT ARRAY IBN -;\PCHR APST 1PST 9PI \\CI lCBN uICHR +IIN \IS ERR20 dMPY ]COVDECrp\GETVALIBUF STRPMT"PSTR 2\PRMPT O >C!~>0͹; dͷ:l=I2lK!p >; $2l:l=I$2l!p >n; C!w>!!~>!O; >͹!~>!~; >! >*j|; +#e"jͺ; d͹!p>3ͷ !p>; 2!p>!w >~; d͇™!p>@*f|;1 FFC!>0͹Q;C dͷ*h|#` !>/;V 3͹2͸*d;h  r;}  C; ; I$I X;b!*>@!>D;ufͦC*>!;d͊PʐPh;X;D"G"ZD"k"iH"!"%;I"K"W*k*"*i/;+:l]2͋J@*!*;?i*k!**ka;U"!d͋:ʐ:J;i;D"""~wy%{o;!~w!~;*@; $"!>2! >; B:#2#B:2,2;* C!>3";< C!>!!>B;O dͲ! >3 0ͳ;` C!$>!!$>wX^; R]@; $"!>2! >; B:2B: 22 -;* C!>30=;; C!>!!>!;N >͸!>:';a $p!">2ô@!>;u d! >2)`͹!; >C!> !">; 3ͷ!!>!; >&":@!>o; f$"! >0; I*b͹: !>; 2!">! >h; dͺ*;  ;# "NERR FMT tSTRCLR\MPOP MPUSH 7ERR1 (LN p\ERR2 SAVHL GETHL SAVIO \GETIO TAB TAB1 RETN \IWRD 8DUBL =SCLEAN6STRPUT 9\SPUSH SPOP |SMOV %SCHNL17\SCHNL2FCNTLCECHO BASOUT\ASCIO iZP XP !PHRS <\PHRD PHBN ZPOP XPOP +\SYSIN SYSOUTf;D"f"!>@!> ;b">! >/;(dͷ*>2!> ;;C*>!:0͇;NHi*!>@!>G!(;s >!$ >!->"; ͱ!$>@!(>; f2B*|@!->; b*|g}o" !; >dͳ*| !'; >C! >0ͳ5; C! >&îͳ@:, ; !>!->`!l; >dʹ*";  A; $"!>0!H":V; $t:Ht!>`!;) >d͈[*#"E;= C!>!!>ʹn;P C!>$ *| ž!;d >C!>0͈;v HҞ*+"!D ; 88.; ؝I$I}; F; ; ]ݪrs;% >2>",![>!.;: >!$"<!T>0';M C!M>!!?>!?O;` >!F >!.5;s ~#u!.>*<:; 3͹!!.>!MR; >!T >ȹ!M; >![ >!.>͙; ͺ!M>`͹!; ?>dͷ!?>0; C!?>!!F>͇; I !.5#M)>;$d&!)>3%0ʹ;; %$!;%3"&~!& >̱&;&$"~!>2: 2;&2!>! >D;)&d͈M!>@!>I;<&fͲC!> !;N&>C!>0͈;`&Hҥ!>d!>0;s&d͈ڗ!>@!>;&fͲC!> å!;&>I!Ä:l;&B:2D:22';&C!>!!>ͳ ;&C!>!!>!;&>ͳ!>!b;&>! >!>͞; `|ʀ!;!;!"F|2Pe)};lg"N!I>6#=>/!Ie;*2wͻ:P$=:O 2O!;>I>!k;$">!G>2*H}lg:G; !B=A 5Gu;*|g}ox!5;3"! >:%; ! >2!1>;#fͧ! > Q;4;$"! >1! w#>\;w+>!h;&"_f2!` ;2!!;"f!`!~ 8# 4<; D:>= 2>*<#"< ]!;! ?>@*,h;5  ;J   ;_ ""!>!;t >*|g}oH"Ҝo; C!>2͹*|ʺ; C!>!!>͹; C!>$y*; ; &"!6&`:ox; !; >;&" :`!^;&" `;![;$"$!'>2:*W2* ; z2-!' >!;);$"$!'>2:-W:*;F &!>d!>0;&C!>3ͳͲ !>3;1&3ͳ2Ͳ!>;C&fͳͲC!>0ͳY;T&dͲ!>3ͳ !>;f&2:!w@!>:;z&`!o;&]3;&|%;'{2_N;(}!9* |/g}/oF;(# |! <?;*(^#V"`i ;>(O! N# I\; S(+|F;)x!ZCe !{T;) y!{ NI;*&"Kf2!`;;4&.wG# ;xR;H Ny22.; [`2!;z5!z8zW#;{_'`z@8q;)`iDM!;$"d!o>2!o>;C!s>!!o>!;'>ͱK>2"d;;C!s>!!o>!g;N>! >!w>͊;a!>d!>0;sC!g>!!k>!w;@{~#‹!w>;C!>2ͳ!w>;C!o>!!s>ͳ;C!o>!!g>!ok;>!;_">,!;s"e;#$"!>2: 2:;#2!>@!>;(#f͈H]!>`! ;:#>dʹ!>0;L#C!>&cͲHc2;`#D"!>@!>b;t#d! >2!>;#C!>!!>!;#>>H2!>`;#ȳ!>fͳ`ͱ:;#=¡! >!a;#:!!>:-;#2!>!u;#;#":u;$$"&!)>2! & 2*!' >!k;);$"O!]>0!@:`t;R:`R:_;) R:_ R:^;>R:bNe!;RDM)) )O L;&"->2G!g ;w#L!0"ȶ!0;'>!;!"}>2ͅ!>;~% !#@x~;'f2,f!,:w!;8'>1:6| K/@;J$<2!>2: =n2;^!>ͥØV:6;q3:6!o;d;&"`M)>;$d&!)>3%0ʹ;; %$!;%3"&~!& >̱&;&$"~!>2: 2;&2!>! >D;)&d͈M!>@!>I;<&fͲC!> !;N&>C!>0͈;`&Hҥ!>d!>0;s&d͈ڗ!>@!>;&fͲC!> å!;&>I!Ä:l;&B:2D:22';&C!>!!>ͳ ;&C!>!!>!;&>ͳ!>!b;&>! >!>͞; `|ʀ!;!;!"F|2Pe)};lg"N!I>6#=>/!Ie;*2wͻ:P$=:O 2O!;>I>!k;$">!G>2*H}lg:G; !B=A 5Gu;*|g}ox!5;3"! >:%; ! >2!1>;#fͧ! > Q;4;$"! >1! w#>\;w+>!h;&"_f2!` ;2!!;"f!`!~ 8#Ufͱ!_> ;5;$"P!_>2:bH2g:_;!S3 !_4#~w;*I%:_$!b:gG~";?w!_͵!!_>!;R!!c>*P;fx; 3"!!! >:!!; /:!#@>!>H2B!?;& >*!!;>`*;8 !2;!$"! >2:#2#g;!C! >!+;"!"h>2w!!k>!k;">!o >ȴ!s#;'">!k >!s>;:"ʹ!s>`ͱ!9;K"o>dʹ!w5Hg!s 4<; D:>= 2>*<#"< ]!;! ?>@*,h;5  ;J   ;_ ""!>!;t >*|g}oH"Ҝo; C!>2͹*|ʺ; C!>!!>͹; C!>$y*; ; &"!6&`:ox; !; >;&" :`!^;&" `;![;$"$!'>2:*W2* ; z2-!' >!;);$"$!'>2:-W:*;F &!>d!>0;&C!>3ͳͲ !>3;1&3ͳ2Ͳ!>;C&fͳͲC!>0ͳY;T&dͲ!>3ͳ !>;f&2:!w@!>:;z&`!o;&]3;&|%;'{2_N;(}!9* |/g}/oF;(# |! <?;*(^#V"`i ;>(O! N# I\; S(+|F;)x!ZCe !{T;) y!{ NI;*&"Kf2!`;;4&.wG# ;xR;H Ny22.; [`2!;z5!z8zW#;{_'`z@8q;)`iDM!;$"d!o>2!o>;C!s>!!o>!;'>ͱK>2"d;;C!s>!!o>!g;N>! >!w>͊;a!>d!>0;sC!g>!!k>!w;@{~#‹!w>;C!>2ͳ!w>;C!o>!!s>ͳ;C!o>!!g>!ok;>!;_">,!;s"e;#$"!>2: 2:;#2!>@!>;(#f͈H]!>`! ;:#>dʹ!>0;L#C!>&cͲHc2;`#D"!>@!>b;t#d! >2!>;#C!>!!>!;#>>H2!>`;#ȳ!>fͳ`ͱ:;#=¡! >!a;#:!!>:-;#2!>!u;#;#":u;$$"&!)>2! & 2*!' >!k;);$"O!]>0!@:`t;R:`R:_;) R:_ R:^;>R:bNe!;RDM)) )O L;&"->2G!g ;w#L!0"ȶ!0;'>!;!"}>2ͅ!>;~% !#@x~;'f2,f!,:w!;8'>1:6| K/@;J$<2!>2: =n2;^!>ͥØV:6;q3:6!o;d;&"`D >!w> ;ʹ̳ͱ!g>;!g>d!k>0r; d͈[!w{ -#;:$=[2!g>͕;3!k>d!>0;EC!>2ͱ!>2;XHÃ!g>`!;l _; R;&"W͝HN!Z>`!;b>dͳ!^>0A;%dʹ!b>2!b>o;8C!b>3Ͳ !b>P;J2!b>!e; ]PT;3"P!_ >:b6;f !_>!2 >!;$ *D"N"PF*P|€Jx<;&*J:OaJw#@;9*DJ J:N=2N0!B;N*;+&"!6S2;+> 2!;,&"!Z N{%; , O8!;-&":!z@=w#;-z=w#{̀=w#{ ;)-=w>f2!; ;-0:; .N*;/&"!6:_T;/!;0>A;1""""1"E:"0!Q;1 w#!;2""""%a!6:%;2f2!f!h" *! 0dW;%D}0 ! c@*-;9D`a}0H : :;MD>- H: "*;bD!* "*";vDF*a$"*@*;Da"*|#" *6;D0#"ÐH"**u;D" "*1a" *;DD*"**"*;D|*+~#w+"!>;Dȋ>0d2*#H"B;D@#.,-$*;D^+:O*;-D"#"*"#"* #"ɇ;BDD*#"D*#">% |;WD> *I"*"|>;lDBq >AA ;=3"A͊ >AAA b;>3"A͊ >AA ;?3"A͊ >AA>@;?`A9;@3"A͊ >AA ;A&"͊>>!};A;B3"C! >: ;B`C1;C&"!>: 2y;C !>0!;D`:_!6>H22S;DI222$2222^;)DB2>02B2> 2!";?DI"""&"*o@"~R;SDHg:‰/2!ӐrN;gDHʀ~$\w*~H *;}DHQ*+"*#~͐1;DB*$!*|"+~#w+0!;jD1͋` >12͘B!];}DI"@*+"~ *#";^DHF**͋> $ :;rDʸ**+ȋҖ;D>* *$#"{**;D2͋Ҹ@:>$̐ :";D>*q;#2;3&"T` &"W2;3f!f!!(;$3#~${b2*W`:;73H>2Wo`e:W;K3@:W!!;4"";">f2`!͌;4!!>:N ;#40! ړ@2> :>T;64!!5;5""8"=&";`2!I;5!!:;r;$5O :=d:=!!;85;6&"df2!`;62!!;"6f!32! "g";36i*i~ʈ^#"iO0!;G6 ~5B*g )>2>22H22;DI222 b;D ; D;Ed*o"~$:@·>;EL2!r"*~!L5:C;)E!/> !Ç/v *;>E#~/N"ʷ ?L"!;TE~h́# T Ç;iE> hÇ&˜:3;~E0O!>*~ !ʲ;E!/ʲ&ʲ#"G\@©F#;EB"x##"o:o;E0O!>!r"om;Ea:O;F0u}͸;F&}Ð?:3;)F };[$B;DHm:„m>2͐**;D##"Ç**|;D*m:m>H2*;DB*##"$‡> 2;D2*Ç,%*|;DB*|m>22@Ç-;;'DHI*|B:>2HÇ:];=D!>2!+w *|\;RD!c>2 >+2Ç :;gDB>2>+2^¬i;|DD**|m*#~^Y;D*É>2~-@‡>;DH2Ç.H¿:ˆ/2;DBÇ#‡B::2;DHÇ*#"o!"";D ~ *!- *>X;D 2~.ʄ# :g:*2;D#*͋!> *#;DI":g:g:/;D:>$- : :;D !"":ʁ@**;DaH"*|H?*C;-D~#" D*+"Ð%*;BD|ʛ*1!͋>,;UD *>~ # =\";jD*a"*:;~DH?*|Dʛ+"*~#"8;D Á@:>.̐ *;D|*|*~#"';DH *+"*+" è*;D|+B">0 H:l;D*|C>E͐ :;D>+ >- *|;D1ew#"g`!4C;[6M5!;7&"ff2!`!;72!;"7f!K!:;47G:ʘa:Œ[v;H7T e#ʀH# ;]7 =!J;8#""}!6 #= M; 8l!;9&"&f2!`!;9!~# ;#9!;:&"=f2!`!;:!D"Ͷ!@;":H7:J g:G2G!D;7:>!8W;;!">2P̈́;;!;<3"A͊ # E#o;DH#*w#I"B*~;#D.*~ BHEH H*;8Dw#"͒J*(E¹;MD>+2*~-e @e+U;bDIk2*#~+~|>0*c;xD$+"2͉*~2:0o&;D! c:0o &b;D$":$-¹*`eL;DH"*6B*|@:;D*|**a ;DF*͋IR*\ *;De*a*͋l;DHR*eͦ͐*e;D#*͋$Ґ*"* ;0D#*"~w~:R;DD w!͋*;WD#*  dÈ&2;?Ff2f!`!};OF0:O~Aa# T6x2;cF}}>E;wFf2GG$$$ SUB;F ;F;G0!6*%%L"S;GL* w#€~ ;(G@7=_*6 6;=G@* Q!0;QG@* 6*%{/_z/;fG W"!~_#Vʊ#N7;{G#F* r+so*"`;G$"W:@2f;bG *% w#z€*;G*%CHAIN/EXEC;GUTE OPEΪ F;G5;>P0P,;4OaPkPw#=˜7P,;P"=ʪ!*~};P ~#k~}#=;,PH* w#4 ":;APO>~Rª ~;TP!$"@ ~#a ;iP=_!x~*;~PD͗*w"#"͗@*~#.;PD"*|"ʤ+" !;P!׀D;P READ/WRITE PAST EO;P+READ/WRITE SEQUENC;QF"+: O>@~`;Q S ~R>Ww";(Q@+~#-HI*+;>Q~͋~#@U=_!~*;SQ+~͋ }L###6!S-TYPE FI;LLE NOT FOUN"L"!~;L6S:ʀ=_;L*`;L w# 6#6# ;L@*! ;L(6#>6#=6#6!;LR-TYPE FILE NOT;0L FOUN`;M }2M>ʀ~J;M!RʰS-&!")FILE;'M CLOS"%~~;QS-T;MYPE FILE CLOS:Ÿ:}Ÿ9;N!w#`3;N]:ʭ";N"_:ʿD*~#"~{o;N xs*5;Nw#"5 }耄;N]:"_:;N*~#"~{€!7;N@"5}$G:@8Ϳ;.N=’,ͅ+|;CND89 :~;XN_!_:ʐq*Z';mN #"Z{@ x&;NHK:8>*7};N`$9:ʭ;N!_:ʿ*Z #"Z{+;N$28!F&;N #"7 >DHMSru;G>!$GO t͜;GO_O*t{€t<;$G>! Ow#=@,|;9G$FO+|=Ow#GG;OGy]! ~\;dGO@ ;yGPROGRAM CHAIN/E;GXECUTE ERROR$;HfK!@"2;H:@#=_2;'H! |A ;@#~;R S# ~W#>Rw".;(R@0*~#-H^͞);>Rf2!͞w#=D;QRb!*Zd"N3$X;M0N ~#¼:N ;Ma:N3N+;M0*N3 *N3(6;M;NGx !2:O>;Nb-~R- ";(Nw! |2@"3A;=ND""@"!$ 2;RN~#HU: @9;gN$:ʯI£ **6;|N6 #{|+6 +6 *3$/;N  w#—!6;NIʟ+rʹ+H;NIË >2 9;NË+BË:*;N *|}*KH!;Nd:I9=* "*L;N"շѯx|g}o;N>!) #=;N@)) #Ð!;Nd!2!];'NL!!3;:N \;ON G;dN 2;yN ;NR-TYPE REAE;NXTENDING FILEND OF ;NDISK DAT RANDOM RECO;NR R-TYPE FILE NOT OP;NE NO MORE DIR SPAC*q;NWRONG TYPE FIL;O1P=P*P 4;OP2!Pw#;#O&=!3* e;IfK!@G~# ;IfK!@7~#;&I` 7z;:I e; OI];JfK;J;KF;KD":"6!60S;&K`!>6#=+!;9K!m;L M>@~RʀSʧ;L&!(FILE OPE";)L!6"!6`ͬ;';&N"/2*IK7!0;:NH]*3$w#BDM*5;PN }2zW{_|;eNg}o\z1" "~";zNZ22\D:*;N|1}@1}O*3 ;N~@*3q*;N3! *3R;ND!9]!~w##;N$:!d:i2!\;N:*}2; N}2Y:] =_*M; N!"7!"5* !;5N}o":S ͅ¹;IN=‰Dͅ+|;^NHS:5Iͅa ;sN Cw=_!);eR~*Z̀w#=j*.;zR@0*w#ͳ!\;Rd*Q"V*S"X@*V|;RDʈ+"V*X~#"XH:U!jh;R2*Q "@*S=;R:0 =_0;RB x;RÄ*Q"4; R}>M6# ;!R!;5R `;JR RE;_RAD PAST EOREAD ON U;tRN-OPENED FIL,S TYPE *;RFIL;S@!> 6 # =!6k;S2!`::>@1~#;'S2#! ~;9 1Oz„2#8À1 ;N"12M1l;&"`!>! >;!: &~n;$_:  !͉9;5F*`! `~w!;H @R@_#r; [ T!;&"`!>!>;! :&~v;$_:!͉9;5F*`!` ~w!;H @R@_#w; [ T!; Oy;?;&"F! >!> ;!: .~>*;q`s;r3"s͇ >ss ;s&"͇>>!L;s;t3"u! >: ;t`u;u&"!>: 24;u !>0!_;v3"{͈ >{{ ;w3"{͈ >{{{ B;x3"{͈ >{{ ;y3"{͈ >{{>Z;y`{;z3"{͈ >{{ ;{&"͈>>!A;{;|3"}! >:;|`};}&"!>:22;}!>0!];~3"͆ >҃ ;3"͆ >?;J7+;>2"82262<;C!?>":@ʠ@:E2;'72EC!?> >{;2͇\@!S>;OfͺD!647>0;aC!a>2͇ҁ@!S>f;tf͹D!65\:<šB;$/2<!h>3ͷ 7!;?>B!6~/< ; Ҵ^~w> 2>{2=!F;ą w#@+~0;مA:7> >-2:=;$1:==B26>2=> 2>;L!F:==2=~#-;  >.D:>X=@2>~;,#!$F:=/<6.#6;@0=>#`/ @~@T#; ;S_y{ʠ  >?w#ˆ;S/;TzW{_x/Wy/_;Ux/Wy/_; VzW{_`; WzW{__; XzW{_~; Yz/W{/_";Z3"_͋ >__ ;[3"_͋ >___ ;\3"_͋ >__ ;]3"_͋ >__>;]`_=;^3"_͋ >__ ;_&"͋>>!Y; %7EE0 ~7l;9E+@9!;zz>7zR; {; }Í;$"!H!!; TrueFalse; }Ï;$"!H!>`!X;c; }Ñ;$"!H!>`!T;; }Ó;$"!H!>`!X; ;! !; }Ö;&.T .F;&"͝!!!;j;&"͞!!!;i;&"͟!!8̃à ;3"͆ >ڃ ;3"͆ >ʃ><;`Ã;3"͆ >ʃ ;&"͆>>!A;~;>2P"022. 23!l;6>D:7ʘ:92/N;) 29!6 >>0X;2͈\@!@>;OfʹD!.47>0;aC!H>2͈ҁ@!@>;tfͳD!.5\:3šZ;$/23!L>3ͱ 7!;6>B!.~/<; Ҵ^~w>25{24!:;Ąw#@+~0;لA:/> >-2:4:= G:>G#wN;V+~0ʄX.f#6:6m;k ʠ6E# +{/<-p#K;" ڈ 2p0O x2oQ;@ʜ0w#q#6!~·;60#6>2#~·i;3x2: :Ӏn>;Ѕ:O>3! *8;!?>!S>`k;ȹ!?>b2:@!?~.;H((=w@!E~w+ ;D::2:Ó!?ͻ ::c;20 ;Go;\Ѵ$5 `;&"3!6!6j;!~ʀKO;$D6_;`| /g}/o#;a}o|gɯ;b}o|g;c3"dd 0e;c`*d;d$"0"e!;d| |exŷe ;'d; e|/g}/o#;fy>k k X;gy>k k k I;hy>k k N;iy>k k >0k ;jy>k k \;ky>ƒ >͖;l{ /<_; m{/<_;n3"s͇ >ss ;o3"s͇ >sss k;p3"s͇ >ss ;q3"s͇ >ss>{;i;$1:4=B2.>24>25;L!::4=24~#L;  >.D:5X=@25~;,#!$::4/<6.#6;@0=>:4 G:5G#wN;V+~0ʄX.f#6:.v;k ʘ6E# +{/<-p#T;" ڈ:Oxʔ0w#q-;#6!~¯60#6>;d2ú#~¯x2:P;:n :O>;Єf!A*0!6 >;C!@>2ͳ!6>;$22!6~$  = w!9;; ~w+ ‘:222 ! ;!6͵:20;5    !;h;&"͠!!!;g;&"͢!!!;f;&"͡!!!;e;>Þ; >"!:>; @/!;!"$>!!;# O~#>!; |>; "#{ʃâ!2;6*#:â;}T t Yʀ yY; >>2;""!>:2;C!>0:nʐ0!;(>ͧ!> 6#=5;:5Ƙh! 0R6;L #E.-+~=w;~w~w+ $;*6:@+~6# 8;?>w+>K;T~+2~;; #"> +2~#ʀ ʱ;P ʅ EG~+ʀj-;ej+>+2#~ʅ{;z_~_#Ap+6E:+{F;/<2́"x//2!dͻ: +ʿ:; 2 :!( /;Ͷ$<2!">@:= ;ᶒ2*>͹e; Ҹ!;¥~+ ~~$;ץ!~w# ; `ç~w+?;!! !f;§`!w# ;`ͧ~@>w`ç>; wç3;B >U>2n;8!@:@*pN;*w>*̀;>H!'w# Dù;S:>!HjC;i27>5;~'w## @v>Hj!;@ !ِ!;@OVERFLOW/UNDERFLOe;י~w> ( !;$"!>2!>;D::!~_;) w!~Ww":H2!;? w#BTʐo;THM!w+ ;iIcM:G:O2xc;~: x*!A;>:!>*{;D*;!::!>;!!>2*j;г ;!~w+ !;~w# D!7wy;B+ 0!~+~=w!;$~w+) 2;9zW~ww;$"!^>2!Z> @v#~##;a0v>6 #=h60##É=;v`:gw-ʀ6 #w +9;a:nʓ#6 #6>0 !+;0w:nʘ:O>0; *;aͧ2ͧͥ >2;y!#L !B;&#)&`!;:7>'# ?3;NLf! ȥ!y5:xʟ;a3z!2ͥ!y4>2x;uB6:y! 򧀟<C;'# \•HүE@Ë Z;F!`ͥxw`! ̈́;äɥÉ!:`2;Ԥp[C!!>!!>͹O;a*>*ͻA*w;~w2 G!>;-6#=.A*~E#"Y;B.O>25 !;W ~#‰Y!  !;l  I!  ! ; $2!>6+=E;I’! $:@ʪ *;H5:‘*!Eʾ;.4$ü:H! ;ֶH ɯw+ ;0 >77a; ^0;1;*;>øo;>2/",!!:>!2l;>CH 2;ҧ""">!>!;d*H!;M; 1ͮö; 1ͮð; 1ͮ; 1ͮȀ;3ͭ!~w;#3* ~;BP""'"+>,O#~ʚ;'33 #x2~);;AFy,E ##" !";O&!VOUT OF STRIN|;cG DAT;f* ~9~ " ; ",ʄ(+# ;( #" xf2!`" ;9L!?OUT OF NUMERI ;MC DAT;@" ~,#H" ;I");D:_:[!a~_;) w!]~Ww"b:ZH2V%;?U!YD: ʀH!]:;UH!a]+ˆ^?D;kH!a]+sD};D:^o:VgG2V| x;!x"*b!$>E;C!!>"*!Y7;!w+»$!W.!V4#>c;Ӵ w!V͵*b!Y :Wͮ;紐E!V>!!>i;*!<RS> D;IVISION BY ZER;#!_.@![~w# 1;9~w+@<zW~*;Nww-;c;~2@#~  Aw x*".;a!>!>`̀;̧*a!>*q; &! DIVISION; BY ZER :0:;1 !̥!;B(!7>Π;U'wG# QxK;aͧ2ͧ>H2ͽ8; > 2 $͗D@>;(3!0ͧD+~0§;9=&L!͘!;Ma:2]pw:5;aPڃ*&"!> ;tC!>2ͧ*0!;>*:u; G:<7C2!O=; ~-9!+Ͷ:1W@:.;$2.*)+w#  >; )Y;>ò{;>2/",!!7>!2x;>262;<@!2>;(`!;20!57wҦ+š;@:0G!5~w!2͵;A:325!5~_w!j;в:~W w:/W"0!2;@7NWG x 1;H4#~w€6;~/w+~w+~;$w $292AB@!2>;(`!;<$!2!:Q;QB*0|oD:0i!9,;fIo!A$!A9;{ +x*0}};H!9>H20!87w;+ :0G!8~>;&w!2ͻA:328!8V;θ~_w!@~W w:/;W"0!2@:NG ;;xH~<w#^; ~w ~/w+@*;"~w+~w )\;$"!>2!>;D::!~_v;) w!~Ww":H2!;?w#+;s#r ;*:OG~ "T#; r~"ʂ9# r+;(A~"; # r+~#t;=! F,; yK"y2;R,9# h~HT;{;h FÓF! !;|ِ::í;ɀSTRING INPU??;H!%ERROR IN INPUT,; RE-ENTER PLEAS0:;)c:Oِy!E;;fِ:`??H!N%;NNUMBER TO LARGE/SMALA;c;y!Dx+; )! "[>2Z;+7?{_zW!Z5ʀW6:@+~6# 8;?>w+> JЋ;T~0?;#"/32!0;`:_!6!:/;# O>@*/;#"732!0;`:_!6:Ӏn;;#Ù1!:O>*7;5W;#"Z f0;& !6 :e+@%w#7;3B0Tʐo;TH M! w+ ;iIcM:G:O2xB;~: x*!;>O!>*6;D*!:O!>;!!>2*R;й _; ;! ~w+ !o;~w# D! 7w8;$B,+ `!~+~=w!;9 ~w+> .2;NzW~wwɨ;$"!p>2!i>;D:q:j!v~_N;) w!o~Ww"w:iH2b1;?0U!h yOj;@xG#yO# xG/*[ DM; Uˀ/BK;02 +B->2N;`i"p! 8T])))֛;)0 ?F_:z;=|/g}/o# *pDM! ;RHȷ707 b?_"; g))))P;#"]:ON`*~a; #ʐN~,@h ;(Bh hE~C+h;>-h #"u ~,V ;T# >0u~,N C5;i _~,†u# "0y2S;|);O>O2!;c"2ar;' aʄw ʨq;@]}>Ҁb/2@;c#}o|g@"DM:#¨;y*  " |!9@*ZP;""Y!f|>+2e@}/&;o|/g#>-2e[N#F;* |7,+y/Ox/G ;?y0w#R@&V;T@*Y;i; "^>!a2`:f.; >+2g" >-2g!as;*~0@H~01;? #*X":`W /2`;T*^;ih.;1:#0*~#0!; 5,ƒ#5" ;' I;33 DF ʀH!oF;UH!vo+ˆ^?D;kH!vo+sDM;D:po:bgG2b| x;!x"*w!0>Q;C!*>"*!h7;!w+»$!c:!b4#>9;Ӻ w!bͻ!bͻA *w ;I!h:cQ!!b>!Fq;!!#>*! 0O;  DIVISION BY ZER;"R!q:;7@!j~w# =~w+;L HzW~ww?;a K;v;0~2@#~ -+~=w;~w~w+ ;*ZͿx*; !;"""##~2#~@2#~;@2#N#F# x~+y~W;+ :=ʀVN#F#0;?x~„Ny~ =;T5:OB:e0;h *N#F" :G: *v;}&!SUBSCRIPT OU;T OF BOUND';a">2͐,;L!,:w>!'`*{;$>> 2> 2!;7'w#L<!`2~;J+Y-†Z>2#~ʏ;_0rʄ#@Z 1;tBB„  !(; w#Z!  j w:[;P΃Z~~#€>;d`26:>E6;wx+ ~ x ;+ >>0 p;>Ba>#;f!>@>#1;fd:!;c:O2:TOO ;MANY CHARECTERS. MAX ;IS 252!"2;^#V"> !+P;#F**0*~ @N;6Fi#"a:2Q;HL!>"!\*0*;[0*6!"#";ma:2\>2\@;W ;& ;; ;P ;e;~#^#V#0;"(^#=ʀV#=;&*(*(;^#V#N#F#N#FG;^#V#N#F#N#F#N#F#T;N;^#V#N#F#N#F#N#F;;~#^#V#0;"(__{ s{;+='"r+ ='s+=€!b;*;? '>]> d:o=H2oD,;;>2oyz;N_":n/2n;c0€b8;^"$#&!͘:;` WARNING ONL:;)O͒!H͐`:;<!N͐@W ERRO IN ;Q LINE*|0;e|0}o;x0}0!5;>w~!4; !#Ð~;* s#r#" ;* +V+^" ; y2 #;`:Oz;> ;`!Z ~> ; <. F-ASCII FILL;~#d#~#;y ;B21~!A20#~!;"!05!$ :10; ) y; L!ِ?; f2%"&ɧ;D2n"(&+H2q!q;d!r"o!q0:;'!*_o$~#.;<,-$*^+/;Q&!\€_#~`:OE;e0~#À.;y ; ; r; ]; ; O> >1 2c; >$^#V;>!!7:7`;(a:5 ;&":f:!`:; `:!0:;#f!a:90:; 4!!;&"2"!1O  ;3~2!0!0 ;%f2!dF; {;^#V#"~2#:[; !!; "zz@4OFx@Ky;A#6K#wKK;* #6ÁKO~Q F,;? #6#1y*z"x;Ta|e 7 ;i ~;~ i; dm; !A  7N;#~#^#VN#!A ;**7~#7;? ;T ;i ;~ }; h; S; >; ); ; ;  H; 3; ;  ;! ;6 ;K ;` ;N# 6~#@ ;6#;y/Ox/G*  " ~#; x6;* w# x" $!;9z! `! *** OUT;) OF MEMORY **%;^"!#:%0&;f:**&;';C2m~2 0#~2# :m!;؂nD`:O>[W`;u}eqØ6!};h3y2&*x@KF;z;0FO #6 w;@zʀ! ; ; ;* ;? ;T ;i ;~ ; m; X; C; .; ;; j w:[;P΃Z~~#€>;d`26:>E6;wx+ ~ x ;+ >>0 p;>Ba>#;f!>@>#1;fd:!;c:O2:TOO ;MANY CHARECTERS. MAX ;IS 252!"2;^#V"> !+P;#F**0*~ @N;6Fi#"a:2Q;HL!>"!\*0*;[0*6!"#";ma:2\>2\@;5; ;* ;? ;T ;i ;~ ; l; W; B; -; ; ;; ; $ !Z 4 '=;6'!{ 4 '6y2X;,>F: 2Y;?^#V!P!Y> :XO;T@:Y F-ASCII FILL;~#d#~#;y ;B21~!A20#~!;"!05!$ :10; ) y; L!ِ?; f2%"&ɧ;D2n"(&+H2q!q;d!r"o!q0:;'!*_o$~#.;<,-$*^+/;Q&!\€_#~`:OE;e0~#À.;y ; ; r; ]; ; O> >1 2c; >$^#V;>!!7:7`;(a:5 ;&":f:!`:; `:!0:;#f!a:90:; 4!!;&"2"!1O  ;3~2!0!0 ;%f2!dF; {;^#V#"~2#:[; !!; "zz@4OFx@Ky;A#6K#wKK;* #6ÁKO~Q F,;? #6#1y*z"x;Ta|e 7 ;i ~;~ i; dm; !A  7N;#~#^#VN#!A ;**7~#7;? ;T ;i ;~ }; h; S; >; ); ; ;  H; 3; ;  ;! ;6 ;K ;` ;N# 6~#@ ;6#;y/Ox/G*  " ~#; x6;* w# x" $!;9z! `! *** OUT;) OF MEMORY **%;^"!#:%0&;f:**&;';C2m~2 0#~2# :m!;؂nD`:O>[W`;u}eqØ6!};h3y2&*x@KF;z;0FO #6 w;@zʀ! ; ; ;* ;? ;T ;i ;~ ; m; X; C; .; ;; ^"#* ! ͔ : WARNING ONL:O ͔ !L ͔ :!R ͔ [ ERRO IN LINE*|0|0}0}0!>w~ !4#Ô * s#r#" * +V+^" y2 1:O!4 ~ > < O> > 2^#V#"~2"#:"!!"zWOFxnyA#6n#wnn A#6nO~ti #6#y*"|ˆ}ˆqY!y2*͟nFO #6 wçzvͬ ! #!#!~#!-#͹ & !$!~ͻ!~#!s"q!v"t!y"w!|"z!"}!"`\*^*q~"qwr\*p"w\Ä*}*] "}Ø\Ý **] "ñ**t~"tw*"z!-*͉*q#*&>*}*&>* @!->* &Q >*w!~!*t#!~8>*z! 8i b!! >ak!aq*$*$8*oQ b*$#ÑÙ.AAX*$*͉!ͻ*$#  A5>SBASIC !r *$r  A5>!r *$*$8*!I Q v Q _Q *v {v >!Q w#=. |H Q +|? Q w#I y_ ! ~\Q   PROGRAM CHAIN/EXECUTE ERROR$!F > 6 #=£ !6!E ::> ~##` @~ #.  ~ #. N ~ #F !F $ !N $ !E  w# ~*0 > _y{> > >?w#& }o|g}o|g|>" Ͷ2!#:_!6:K ʣ !:O>ͫ * 2 ~ 2 #~ ! 5 ö :  y 2K "  Ͷ2N !N #!O "L !N Q 70  !4 4 6!U 4 6Q br *$*$& SBASIC.COM!/*$*$8*-Q bCopyright (C) 1979, By Topaz programming. All rights reserved. From here on protected by End User License.  "Ͷ2!#Ͷ2!#!Q !Q !~#w#x y222!";!6#͞ 2> 2!"R!6#:_!>""!6#:2!Q !""Ͷ2!#!Q !:N ! 2:!!þ"1Ͷ2!#Ͷ2!#!Q !Q 2!"4"K :!*L  ~#.,-$*^+/&!\< #~:O~# N# 6~d #Z 6#d ^"#: ʉ * : ** 2 ~2#~2#: ! :O>[[ >]> : =2 >2 y + : /2 + $t*J>͔ ͔ N$ WRITTEN BY ROBERT SCHRADER !)!#!&"$c*a*$~"$wÓ...Ù !Þ"ÿ#$%&'()*+,-./0123456789:;<=>? @ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_ `ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}~!s!ͻ*Uͻ!ͻ!ͻ!ͻ!#Z$$$` !e"Æ#$%&'()$+$-$/0123456789$$$$$$ê @ABCDEFGHIJKLMNOPQRSTUVWXYZ$\$^_ `ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}~!:!]ͻ*cUͻ!hͻ!ͻ!ͻ!+#lT6*6~+#"6O! ~*4w#"4!4!"^Ͷ2!#!Q !~#S!‡à:ʜÇ2Ͷ2!#!:O~# µ6x2>2 $$$ SUB !6#*%%"͞ * w#~9=_*6 6*S!l * 6*%{/_z/W"!~_#Vʌ#N#F* r+sq*"b $"Y : 2*% w#z¯**%CHAIN/EXECUTE OPE     ! 7 = @ F J O U t w > < L4y22>v123^#V!*!3>:2O:3!@ʔ!A ‚#~#^#VN#!A  ~#­""(^#=V#=*(*(6O Rem This function finds X! Function fac(i=real)=real If i=0 then i=1 else i=fac(i-1)*i End =i Var x=real 0Loop Input x Print fac(x) Goto 0Loop End +XREF COM8IJKL5BASICLIBRELMNOPQRSTUVWXYZ[\BASICLIBRELD]^_`aCANDR-S COM.bcdDPLAY BASe FAC BAS   I'P)PPt< "(__{s+='r+='s+=!`4~> G!D !Ml %BAD CHANNEL NUMBEè`````eßNW````````_8|*:727ý!é:78|ĵ*7>|)2727*L|! "L__7:‚\!l >2:¡\!l _<2!~ɀ&INPUT FILE REAP REM USED TO "PLAY" WITH RANDOM DISK FILES var x,y=integer var xdata=integer files r(256) if size("JUNK")=0 then create "JUNK" open #0;"JUNK" 0 input "SEQ ON=0 OFF=1";x if x=0 then record.sequential on if x=1 then record.sequential off input "0=READ 1=WRITE";x input "RECORD #";y if x=1 then begin input "DATA=";xdata write #0,y; xdata end if x=0 then begin read #0,y; xdata print "DATA=";xdata end goto 0  35 @@P(P(P "X)-WIDTH*HORZ.P) END IF (INSIDE = FULL) THEN BEGIN FOR I = REF(X) TO CENTER(X) STEP HORZ.P LINEON REF(Y), I, CENTER(Y), I NEXT I FOR I = 0 TO (WIDTH*HORZ.P) STEP HORZ.P LINEON CENTER(Y), CENTER(X)-I, REAR(Y),(REAR(X)-I) NEXT I FOR I = 0 TO (HEIGHT*VERT.P) STEP VERT.P LINEON CENTER(Y)-I, CENTER(X), (REAR(Y)-I),REAR(X) NEXT I LINEOFF CENTER(Y),CENTER(X),CENTER(Y),REF(X) LINEOFF CENTER(Y),CENTER(X),REF(Y),CENTER(X) LINEOFF CENTER(Y),CENTER(X),REAR(Y),REAR(PROCEDURE LINEOFF (VERT1,HORZ1,VERT2,HORZ2=CHAR) PRINT CHR(27);'D';(VERT1+31);(HORZ1+31);(VERT2+31);(HORZ2+31); END PROCEDURE CLEAR.SCREEN PRINT CHR(26) END FUNCTION SQRT(N=INTEGER) =INTEGER VAR ROOT1,ROOT2 = INTEGER ROOT1 = N ROOT2 = 1 WHILE (ROOT1 > ROOT2) DO BEGIN ROOT1 = (ROOT1 + ROOT2)/2 ROOT2 = N/ROOT1 END END = ROOT1 PROCEDURE CIRCLE (CENTER.Y, CENTER.X, RADIUS = INTEGER) VAR X, Y, OFFSET = INTEGER OFFSET = (RADIUS * 100) / 141 PIXON CENTER.Y + RADIUS - 1, CEb Y = 2 FULL = 1 EMPTY = 0 REF(X) = REF.X REF(Y) = REF.Y CENTER(X) = REF.X + (WIDTH * HORZ.P) CENTER(Y) = REF.Y + (HEIGHT * VERT.P) REAR(X) = CENTER(X) + (DEPTH * HORZ.P) REAR(Y) = CENTER(Y) + (DEPTH * VERT.P) IF (INSIDE = EMPTY) THEN BEGIN FOR I = REF(X) TO CENTER(X) STEP HORZ.P LINEOFF REF(Y), I, CENTER(Y), I NEXT I FOR I = 0 TO (WIDTH*HORZ.P) STEP HORZ.P LINEOFF CENTER(Y), CENTER(X)-I, REAR(Y), (REAR(X)-I) NEXT I FOR I = 0 TO (HEIGHT*VERT.P) STEP VERT.P  ۇX) END END Y)-I, CENTER(X), (REAR(Y)-I), REAR(X) NEXT I LINEON REF(Y),REF(X),CENTER(Y),REF(X) LINEON REF(Y),REBNTER.X PIXON CENTER.Y - RADIUS + 1, CENTER.X FOR X = 1 TO OFFSET Y = SQRT(RADIUS^2 - X^2) PIXON CENTER.Y + Y , CENTER.X + X PIXON CENTER.Y + Y , CENTER.X - X PIXON CENTER.Y - Y , CENTER.X + X PIXON CENTER.Y - Y , CENTER.X - X NEXT PIXON CENTER.Y, CENTER.X + RADIUS - 1 PIXON CENTER.Y, CENTER.X - RADIUS + 1 FOR Y = 1 TO OFFSET X = SQRT(RADIUS^2 - Y^2 ) PIXON CENTER.Y + Y , CENTER.X + X PIXON CENTER.Y + Y , CENTER.X - X PIXON CENTER.Y - Y , CENTER.X + LINEOFF CENTER(Y)-I, CENTER(X), (REAR(Y)-I), REAR(X) NEXT I LINEON REF(Y),REF(X),CENTER(Y),REF(X) LINEON REF(Y),REF(X),REF(Y),CENTER(X) LINEON CENTER(Y),CENTER(X),CENTER(Y),REF(X) LINEON CENTER(Y),CENTER(X),REF(Y),CENTER(X) LINEON CENTER(Y),CENTER(X),REAR(Y),REAR(X) LINEON REF(Y),CENTER(X),(REAR(Y)-HEIGHT*VERT.P),REAR(X) LINEON CENTER(Y),REF(X),REAR(Y),(REAR(X)-WIDTH*HORZ.P) LINEON REAR(Y),REAR(X),(REAR(Y)-HEIGHT*VERT.P),REAR(X) LINEON REAR(Y),REAR(X),REAR(Y),(REAR(OPROCEDURE SET.ON (ATT=CHAR) PRINT CHR(27); 'B'; ATT; END PROCEDURE SET.OFF (ATT=CHAR) PRINT CHR(27); 'C'; ATT; END PROCEDURE POSITION (VERT, HORZ = CHAR) PRINT CHR(27); '=' ; VERT+31; HORZ+31; END PROCEDURE PIXON (VERT1,HORZ1=CHAR) PRINT CHR(27);'*';(VERT1+31);(HORZ1+31); END PROCEDURE PIXOFF (VERT1,HORZ1=CHAR) PRINT CHR(27);' ';(VERT1+31);(HORZ1+31); END PROCEDURE LINEON (VERT1,HORZ1,VERT2,HORZ2=CHAR) PRINT CHR(27);'L';(VERT1+31); (HORZ1+31); (VERT2+31); (HORZ2+31); END  X PIXON CENTER.Y - Y , CENTER.X - X NEXT END PROCEDURE RECTANGLE (Y, X, HEIGHT, WIDTH = INTEGER) LINEON Y, X, Y + HEIGHT, X LINEON Y, X + WIDTH, Y + HEIGHT, X + WIDTH LINEON Y, X, Y, X + WIDTH LINEON Y + HEIGHT, X, Y + HEIGHT, X + WIDTH END PROCEDURE SQUARE (Y, X, SIDE = INTEGER) RECTANGLE Y, X, SIDE, SIDE END PROCEDURE BAR(REF.Y,REF.X,HEIGHT,WIDTH,DEPTH,INSIDE,VERT.P,HORZ.P=INTEGER) VAR I, TEMP, EMPTY, FULL, X, Y = INTEGER DIM INTEGER REF(2) CENTER(2) REAR(2) X = 1  k  /G R A P H I C S D O C U M E N T A T I O N  ===  === In the S-Basic graphics package (graphics.bas), there are several procedures that allow the user to draw complicated figures with just one command. These are: - a circle drawing routine; it requires three parameters: the vertical coordinate of the center of the circle, the horizontal coordinate of the center, and the radius of the circle. - a rectangle drawinhITIONING When positioning the cursor on the KAYPRO 10, the screen is treated as an array 25 characters high, and 80 characters wide. Any spot on the screen can be addressed by a vertical coordinate (ranging from 32 to 66) and a horizontal coordinate (ranging from 32 to 111). The character in the upper left corner of the screen has coordinates of 32,32. The cursor can be moved to a desired position on the screen by writing an escape sequence to the console output. For the purpose of  3 = INTEGER VAR V3, H3, LENGTH = INTEGER VAR V4, H4, H, W, V.PERSPECTIVE, H.PERSPECTIVE, INTERIOR, DEPTH = INTEGER V1 = 15 H1 = 15 RADIUS = 10 CIRCLE V1, H1, RADIUS V2 = 30 H2 = 10 HEIGHT = 20 WIDTH = 40 RECTANGLE V2, H2, HEIGHT, WIDTH V3 = 60 H3 = 20 LENGTH = 30 SQUARE V3, H3, LENGTH V4 = 80 H4 = 80 H = 50 W = 15 DEPTH = 8 V.PERSPECTIVE = -1 H.PERSPECTIVE = 1 INTERIOR = 0 BAR V4, H4, H, W, DEPTH, INTERIOR, V.PERSPECTIVE, H.PERSPECTIVE V4 = 20 H4 = 130 H = 50 W = 10 DEPkng lines and pixels, an escape sequence is a 4 or 6 byte sequence defined as follows: Escape sequence = ESC

[

] where: 1) ESC is an ascii 27 (1B hex). 2) is a character of the set { *, (space), L, D }. 3) V1, H1, V2, H2 are 1-byte values indicating locations on the screen. To write a pixel, the sequence-type must be a "*". H2 and V2 are not used. V1 is the vertical coordinate of the pixel. H1 is the horizontal coordinate.  g routine: it has four parameters: the vertical coordinate of the upper left corner, the horizontal coordinate of that corner, the height, and the width. - a square drawing routine: it needs three parameters: the vertical coordinate of the upper left corner, the horizontal coordinate of the upper left corner, and the length of a side. - a bar drawing routine; it requires eight parameters: the vertical coordinate of the base of the bar, the horizontal coordinate of the base, the height, the widthcursor positioning, an escape sequence is a 4 byte sequence defined as follows: Escape sequence = ESC EQUALSIGN

where: 1) ESC is an ascii 27 (1B hex). 2) EQUALSIGN is the character '=' (3D hex). 3) V1, H1 are 1-byte values indicating the location on the screen. GRAPHICS CHARACTERS Each of the character positions on the screen occupies the same area as eight pixels (4 high, 2 wide). Thus, pixels can be addressed in groups of eight at a time. To set pixels in a character TH = 15 V.PERSPECTIVE = 1 H.PERSPECTIVE = 1 INTERIOR = 1 BAR V4, H4, H, W, DEPTH, INTERIOR, V.PERSPECTIVE, H.PERSPECTIVE VIDEO GRAPHICS AND ATTRIBUTES COMMAND SET FOR THE KAYPRO 10 === INTRODUCTION The KAYPRO 10 has a graphics and attributes set that currently includes drawing and erasing lines, drawing and erasing pixels, inverse video, reduced intensity, blinking fields, graphics char- acters, cursor posi To erase a pixel, the sequence-type must be a space. H1, V1, H2, and V2 are the same as above. To draw a line, the sequence-type must be a "L". H1 is the horizontal coordinate of the first point of the line. V1 is the vertical coordinate of the first point. H2 is the horizontal coordinate of the last point. V2 is the vertical coordinate of the last point. To delete a line, the sequence-type must be a "D". H1, V1, H2, and V2 are the same as above. CURSOR POS , the depth, the interior of the bar filled or empty, vertical illusion of depth up or down, and horizontal illusion of depth up or down. The fifth parameter should be 0 for an empty bar, or 1 for a full one. The seventh parameter should be 1 for down, -1 for up. the eighth should be 1 for right, -1 for left. It is reccommended that the user run the following program to observe the use of these procedures: $INCLUDE GRAPHICS.BAS VAR V1, H1, RADIUS = INTEGER VAR V2, H2, HEIGHT, WIDTHNtioning, and cursor on/off. GRAPHICS To draw graphics on the KAYPRO 10, the screen is treated as an array 100 pixels high, and 160 pixels wide. Any spot on the screen can be addressed by a vertical coordinate (ranging from 32 to 131) and a horizontal coordinate (ranging from 32 to 191). The pixel in the upper left corner of the screen has coordinates of 32,32. Line and pixel graphics are drawn on the screen by writing an escape sequence to the console output. For the purpose of drawi position, the cursor is moved to that position, and then a byte is sent to the console output. This byte must have the high order bit set to 1 to distinguish it from normal characters. The remaining seven bits are use to set 7 of the 8 pixels.  "I.E: to write these pixels....  -------  4 Pixel # 1 ------> | | | <------ Pixel # 0   |---+---|  5 Pixel # 3 ------> | | | <------ Pixel # 2 cs character; (ESC,B,0),10000000b would print a solid character. ATTRIBUTE COMMANDS A character can be set to inverse video, blinking, reduced intensity, or underlined. Also, the cursor can be turned off. These attributes are activated by sending a 3 byte escape sequence to the console output: Escape sequence = ESC where: 1) ESC is an ascii 27 (1B hex) 2) is a 'B' to set an attribute on, or a 'C' to set it off. 3) hatribute commands: Inverse video on ESC, B, 0 Reduced intensity on ESC, B, 1 Blinking on ESC, B, 2 Underlining on ESC, B, 3 Cursor on ESC, B, 4 Inverse video off ESC, C, 0 Reduced intensity off ESC, C, 1 Blinking off ESC, C, 2 Underlining off ESC, C, 3 Cursor off ESC, C, 4 he coordinates used are 32 or greater. At first glance, it would seeC, * , V1, H1 Clear Pixel ESC, , V1, H1 Set line ESC, L , V1, H1, V2, H2 Delete line ESC, D , V1, H1, V2, H2 AtK |---+---|  4 Pixel # 5 ------> | | | <------ Pixel # 4  L |---+---| Pixel # 7 (off)------> | | | <------ Pixel # 6  -------  output this byte:   --K- must be '1' --> | | | | | | | | | <-- bit for # 0   ---  ^ ^ ^ ^  Fs a value of 0 through 4, as follows: 0 = inverse video, 1 = reduced intensity, 2 = blinking, 3 = underline, 4 = cursor. Default for these attributes is: 0 = off, 1 = off, 2 = off, 3 = off, 4 = on. COMMENTS 1) Examples of line and pixel drawing can be found in GRAPHICS.BAS. 2) All of the coordinates used are 32 or greater. At first glance, it would seem natural to start them at 1 or 0. However BDOS interprets some byte values of 32 or less as control keys. For example, an att ^ ^  | | | | | |  +bit for # 6 | | | | bit for # 1  | | | |  #bit for # 5 | | bit for # 2  | |  bit for # 4 bit for # 3 As shown above, pixel # 7 is off. To write a pixel with it on, send the inverse video command (ESC,B,0), then output the inverse for bits 0 through 6. I.e: 10000000b would print a blank graphiempt to use a coordinate of 9 will result in eight spaces being printed on the screen (BDOS thinks that the 9 is a tab). 3) A line drawn from point a to point b will not always look the same as a line from b to a; it will be a mirror image. 4) Graphics characters, pixels, and lines cannot write over normal characters. SUMMARY Graphics commands: Set Pixel ESC, * , V1, H1 Clear Pixel ESC, , V1, H1 Set line ESC, L , V1, H1, V2, H2 Delete line ESC, D , V1, H1, V2, H2 At . _ yCopyright (C) 1979, By Topaz programming. All rights reserved. From here on protected by End User License.  B;<A}~#ʑÃ> > > > !ʻҵ)ì*>#">*<#"<*@#"@:x=##^#Vɯ2::y y  > #= * +" |">*<*B"D*>"F> *Dt !t *]t *_t *F*@t t !t !t !t !x4>2w:2 *~ > #=• ! 5 :2 ~ > #=± ! 5© !#~##š * := : Ú #~##¶ *: ö 2q "o *o #:q 6 =2q e #$ ~#~̓XREFF LIB TO LIB ERROR*o ~#U #e ## u} | !x4>2w!p~ #‘ !x4>2w#rͪ\° ; \ ̓I'M LOST.. . .ͪ! ͦͪ+| ͪͪø ͪ ͪ>w*~ G͂":p_͂"͂s:qҕ{=! ͦ*6"ygxͪGszxͪ2pxG ͪͪ y•ʦGszʦ2pxG *l6#ͪw#¸ͪ2oͪw#ͪw#"l"6#6*l6#w#2dow#w#"l6#6!c6 #!c4w#&w*c#>UX#G7#X##:E r2y:w< 2wɯ2w1@2~2}2\!e>$w#w#w:e22!]~#I4̓͆I>2w*a"B!;"6!wڐڥں&1HOSZ^djpsz~=  ()1>E^ery ; HHOOSSd  *w#*>s#r#"6#"6_W*@"@og|+ _W*ͪͪ=! ͦ*~* Gͪ ͪͪø ^#V2 ͖ I y 8 A͖ c yHG } | 8 x=! ͦ*^#VA͖ syHG } | 8 : g{® ͪW%s| ͪOzW|=2 ͪͪø \ ; \ ̓I'M LOST.. . .! ͦ+|  =! ͦ*~G G7  ^#V2 ͳ f y U Aͳ ڀ yHG } | U x=! ͦ*^#VAͳ syHG } | U : g{ W%s| OzW|=2  *]|/ }/ *_| D<"<;; !zw#+ͬڌڞ:k>2̓UN-DEFINED LINE NUMBER(S)!z~#|n> > ^#V*D} | ^#V{ z :!y#òï#7!z"~#B#6 *"#># 7ɯ###);;_W*F} | ;;_W*B} | *>p">*]* |z*_*r |zj &:o:_" *<*B*>*~ >#=#F#Nx> r+s##;/ }/ *w}  )|% Ox͘:M ̓Compilation complete͆̓Compilation aborted*"lͪ\p ͪ2nͰ:n={ ͪͪ\x :o2\™ 2n:n=¤ \ʡ :o2  6##: 6 ̓UN-DEFINED LIB-REF.!c~# ͪWͪͪͪ2q=! ͦ*~Bͪ2ͪͪ ͪGTI:p_TITs:qҕ{=! ͦ*6I̓UN-RECOVERABLE ERROR¬̓GEN LIB ERROR̓REV-DEF LIB ERROR:q=! ͦ*#~#SW2q=! ͦ 0S COM BASICLIBREL USERLIB REL :_22!+/FfGfHfIffff,*G' tm S-BASIC Compiler Version 5.4b Y'r&>22!9"\:j'&:w":8MY>XXYͯ4p=X:tXYX:uXY>2:Y2͇:Y:v;[Z:~ [:z[f:xb,$END.MODULExr&LXtYHҚ=o&)^#iVʠHSc K d HS w HSHSk!!!!)}$$HSHS$HSVHSHSHSR HSc,Aid5JX5UJACE FOR OBJ FILE___ :\=:=[SICLIB}%! :_XyG̓READ PAST EOF̓DISK READ ERROR USERLIBw͑! {:}_̓ERROR IN EXTENDING OBJ FILE̓END OF DISK DATA FOR OBJ FILE̓NO DIR SPkOÙCopyright (c) 1980 By G.Ohnysty Structured BASIC (S-BASIC) Compiler All rights reservede1:e_12!"*"Lʊ! OVERLAYBCOM n~#"_  CANNOT OPEN OVERLAYBcREAD ERROR OVERLAYBi:|=_} $$$ $0"y̓CANNOT OPEN BASICLIB:2!"y:_22!"{̓CANNOT OPEN USERLIB:42!"{:~_2h\ʨ!"u2|̓CANNOT OPEN TEMP FILE:hƒ2|!"u:}_2!"w̓CANNOT OPEN-CREAT OBJ FILE:}_̓ERROR IN CLOSSING OBJ FILE:}_j2!"w̓CANNOT CREAT OBJ FILE:}_:~_\*y|¼͝!!y"y*u|0!!u"u*{| !! q w  20 F 9~Nc7:8/28*&ͬ)MY!)MY&*&b,=S*&ͬ)!,R*L>2PS&ʓh,ON>ڗ/×:X/2Xr&>2&*&ͬ)"a*&:::=2?a!w#x6 #&L*r&!\>!͉K!\>͉K:!]~# a:, ʍ*t:X>2X&:OG'MODULE NOT FOUND2XØb,$MODULE|&:4!,|ʂ#nr&)r&2X"tͯ&>22ì\!\>ͫK!\>!ͫK͹&&h,ON>/:w/2wͯ4p=X>XYX>XYr&>$F$}"{*w| v!!w"wuK! 5:~_\~ym̓READ PAST EOF̓DISK READ ERROR TMP FILEy͸! ¢:_y̓READ PAST EOF̓DISK READ ERROR BASICLIB}%! :_XyG̓READ PAST EOF̓DISK READ ERROR USERLIBw͑! {:}_̓ERROR IN EXTENDING OBJ FILE̓END OF DISK DATA FOR OBJ FILE̓NO DIR SP  2&> ͽX>2e> ͽX>2l 5 5MYMYMYyMY2/)MY}MYH)͈)MY>2l 5 5MYMYMY"/)MY{MY2H)͈)MYMY[&b,ERROR *&*&:Y» MY!*&LR%YtY>MY>XXYͯ4s=b,OFFHS>é >2l 5MYMY}2I :Y2J   NS*&:J  MYMYX:I <2I XY:J  MY$ MYLR%YtY:J < MY&* `SX>XY*&LR%YtY*&:YK w RX>P X>XY>2MY/)**͈)>$2[*x2M L"P "N QS=%*P *:*N ">2:::M r&&b,=SMYͯ4=?MY!)ͯ4+?&*&!ͺRES>āS*&b,=S*&h,VAR҆!ͺRES>ʛMY!)ygMY")MYMY>MYMY*)ͯ4=h,ARRAYҥ!]RESMY*)Vh,SPECҼ!]RESOh,FILEb,#`S*&ͬ)}!*e~cS#^#V!#S!&Ûh,FCBԄSb,#`S*&ͬ)}!*e~cS#^#VO:KS>2!,"m2w# E!,*&:YSb,,Nb,=}"*tNr&j'N*&%*oR,ʻ7&ڌb,:*&ͬ)"|'S:_!,"mSRxPSMY!*o###"o+)MY" 7")MYMY")>2l 5*,MYMY; 5MY>MYMYͯ4?:WS>22&:RmSmDZS&Á:22:2b,R>2l 5:RʬMY!MYMYMYͯ4o?MY*oYڿ.1*o"o{XYzXYMY>MYMY!!5):MYXXYͯ4i?:< ]S!*e+r+s+:wMYͯ4=X:XYX:XYX:A>A>XY/Y{XYzXY:Ro!=6#4!=6#4Á!=6#4!=6#4:<2:y *Q"*`Sr&j'Q*&b,#`S>2l 5R"**`SMYͯ4=?>2l 5R*>2l 5ͯ4C?ͯ4=?MY]MY>MYoS͹&H)**͈)&:Y2&&:YrS2l 5&MY"T"R%Y!RN)2lH)*͈)* 5>2:YuS&MY/)**͈)[&œ,r&j'""""MY%Y!N)X!N)2l 5>2:YxS:lͯ4>0ͯ4>0 ͯ4>0ͯ4>0&ͯ4>0HSͯ4>MY/)**͈)&͢:Yʃ:y c[&:Yʀr&j'[&:Yʀ>2&2',MY/)**͈)&͢[&LҽX>XY%YtY&""X!N):KS>2>2*&:Y>2*& 2M 2l 5TSͯ4C?MY222"b%"K "I X!I N):H *#">2MY/)**͈)>#2[*ͬM" " QS=%* *:* ">2::r&MY222"b%" " X! N): *#"!,QS>2 *| }~ " 3 >23 G2lx= 5-S * ~#9 MY%YtY: * |MYX* {XYzXY*MY!)ͯ4=>2 *}/_|/W*o" z MYX{XYzXY*MY!)ͯ4= :a ʊS/2a MY/)XtY& b," X>"XY͊(!_)XXYXXYX{=XYS:KS>2!,"m2w# B!,*&:YSb,,Kb,=z"*qKr&j'K*&%*qR,ʸ7&ډb,:Ҿ*&ͬ)"|'S:_þ!,"mSRxPS*q"qxX{>XYXXYS>2!,"m22w# -!,*&:YSb,,6b,=e"*\6r&j'6*&%Rxux2l&b,:Ң*&ͬ)"|'S:_&:2!,"mSRx¾PS*o"oxX{>XYXXYSXMY!!5)ͯ4i?ͯ4C?ͯ4=*&b,#`S>2l 5Rͯ4=*&b,ONPb,OFFHS>!>MY>XXYͯ4=>v[&b,#b >24*&b,#`S5$21Sʕ:y "*`S&;&"*ҵr&j'Û*`SÛL*[&(*,ͨ(!,ͺRSyMY*MY!)xMY>XXY:1R:4 ͯ4=ͯ4=+ͯ4=ͯ4=MYMY MYMYMY>2l 5ͯ4=>2l 5:YfS 5ͯ4=>2l 5ͯ4=>2l 5ͯ4=ɯ2l 5HS:Y$iS**͈)r&j'[&ʪ:Y ""X!N):lMY>XXYͯ4>:lMY>XXYͯ4> 5b,:%>2*&%Rx2`{2a&R:`x:Rh,:x*&ͬ)|3S}2a&Rxh,:h>2l 5&xMY!MYPMYMY:YS&R(*S>:>2l>2Q8!, ~#¨:`MYMYMY5HS!<:*!, w #HS&Rͬ)<&R*:*6S2bO:`G:aRN_:I{MYXXYMY!!5)MY>MYͯ4i?&x:`:MY*&!ͺRESy{Sx*&b,AT~S>2l 5´MY*)MY~MYMY")MYwMYMY")*&!]RESy{Sx*&b,AT~S>2l 5MYMY") 6"#6!~ XXY# r&j'[&L6 XtY&[&b,DATAP ,>,22 XXYH)͈)&L*&ʃ (*҃ ͨ(&ä !,ͺRESy MY*)ä MY!)x³ ͯ4x?  ͯ4|?  ͯ4?  ͯ4?  ͯ4? Sͯ4?:y *`Sb &!-w# LRMY!%YtYͯ4s?DATA[&R>2l(*d 5MYMY"/)MYH)͈)MYMY*& 5>*&!ͺRESxSMY*)MY*&=l:*6SMYMYMYMYMYMY"/)MYMYH)͈)MYMYMYMYMYMY")MYMYMY")MYMYlS:lͯ4>Q ͯ4>Q-ͯ4>Q:ͯ4>QGͯ4>QHSͯ4>MY/)**͈):l2l""""MY%Y!N)**X!N)ê*&>2ͯ4C?MY:YfS 5:Y  5mMY/)**͈)H):l!>*!>*!>* !>*HS!>GX~#XY,""X!N)MY!/)͈)MY>XXYͯ4=:l:>2H)**͈)ͯ&r&MY!%Y""!N)2¶ͯ4y=ͯ4=ͯ4=ͯ4=HSͯ4=: B!4ڇS*mw#"mH|HS*d9I#+#:##~7(#F#^*o*m~7#~^#"m:y͹&:s:sX>XYXXYXXY&(*S&!ͺRڿMY!)L*&(*ESͨ(MY&*`S>2l 5>2Q85&b,=S>2l 5ͯ4P>*&L*& (*v>2ͨ(x2l͝R*&b,=S:leͯ4C?yMY>XXYͯ4=ͯ4C?ͯ4>b,= !,ͺR ySx2l͝R:lyMY>XXYyMY*)MY!)ͯ4=:Yr&yMY*)MY!)Y:W-/2W:X- c S͋,%--0-:-2X>2W/~Q-̀-2Y~ 2y z-e-ͽX!x4~`u- [u- w#;- 'e-~A-[-Ao&)-^#VM...v// 0000I1K1M1112L222L3364F4q4444k,$LINES>1k,$PAGE>2k,$TRACE>?k,$LOADPT>@k,$INCLUDE>Ak,$LIST>Bk,$CONSTANT>Ck,ABS>k,ATN>k,ASC>k,ASCII>k,AND>دk,BEGIN>k,BASE>%k,BASED>'دk,COM>k,COMMON>k,COMMENT>k,CASE>#k,CLOSE>*) #MY!)x#ͯ4?!)#ͯ4 ?!6#ͯ4 ?!C#ͯ4?!P#ͯ4?!Sͯ4?!:0$ͯ47?MYyͯ4?ͯ47?ͯ4 ?:4$ʑ#ͯ4C?MYw!y¥#MY*)MYw!MY2)!ͯ47?MYyͯ4>:4$#ͯ4C?ͯ4I?!y#MY*)ͯ4I?!MY!)ͯ4I?!&#$b,;>21$b,,$>21$:Y2.$>21$>2l 5ͯ41?:y >S*>S 5:yMY>XXYMY:4MY>XXYͯ4=>R>2r&ͯ&**o=%:>22b%"ͯ&r&j',ʯ$7&ڸ$:Y ²$͹&*&ͬ)}MYXXY*&*`S (2<%ͯ&ͯ4\> (G:<y9Y/Y/Y*){XYzXY5)%YK)%YXY|}XYu)X!XY~XY# V)~u)XXY:XY:ʀ)XYXY>|)!~:/2ͯ4=?:l2b 5::b2l5ͯ4>@ͯ4>Kͯ4$>Vͯ4->aͯ41>*&MY>Xb,ON>z>XYMY2!>4*&MY>Xb,ON>ڟ>XYMY2!>4!!&ͬ)}~>24:!>MY>XXYͯ4>>2![&>2!b,USING2 ,>2l 5>2!MY>XXYͯ4>/!2l[&:YN N ,&! 5!:ld ͯ4i> q ͯ4m> ~ ͯ4q> ‹ ͯ4u> ˜ ͯ4x>ò S:ʭ ͯ4> ͯ4}>:! ͯ4> :! ͯ4>* >2!:!5 ͯ4>5 "* >2!5 : ! 0k,CREATE>0k,CHAIN>5k,CALL>:k,COS>k,CHR$>k,CHR>k,CONSOLE>Dk,CONTROL.C.TRAP>Fدk,DIM>k,DIMENSION>k,DO>k,DELETE>.k,DATA>8دk,END> k,ELSE>k,EXECUTE>;k,ECHO>Ek,EXP>k,EQV>دk,FOR>k,FUNCTION>"k,FILES>(k,FIX>k,FFIX>k,FINT>k,FCB>k,FCB$>k,FRE>دk,GOTO>k,GOSUB>k,GO>دk,HEX$>دk,INPUT> k,INPUT1> k,INPUT2> k,INPUT3>k,IF>%%xXXY$͹&XXY&>3%"*>3%*>`SXXY*j+*h+*f+*d+*b+*`+*j"%"%*j*`+%!`>%*j*b+%!b>%*j*d+%!d>%*j*f+%!f>%*j*h+%!h>%#6*%"j6*%^#V r+s##=%}/o|/g# |&~z &{&#&,7&&,I&&,R7&*&b, b, b, h, h, h, ,g&7&[&>2: :&&/2&:,:y ʕ&,&,*t2x2y}<'o|'g"t:v<'2v:v='2v:y &[&,r&j':l&ͯ4>&ͯ4>&ͯ4>E~)+#~+#F#N#^#V#x͝Ry:+<2++MY!)xE+ͯ4>W+MY>XXYͯ4=:+=2+)+ͯ4C?MY:ʕ+:*{+&b,=S&%ES!+^#p*+*+b!k,!,,~|,#m,/7#~#,/!,ʢ,#~ʞ,Ï,7;:[]<>{},()"=#-+/*%~^ '\  ,,,k,\,r&j',:,/2: bk2_:Y!:y 9S>2!&!: :Y :!̀![&@!b!̀!,b,#b!,5$SY!"*`S:y {!:MYXXYMYͯ41?̀!:!ʞ!>2!MY>XXYͯ4>ͯ47?ͯ4?!!!>2.$24x2/$y20$:MYXXYMYͯ41?21$22$23$:.$]#&]#b,#^"b,"j"͊(23$L*#ͯ47?ͯ4\>:3$G!,xD"~XXY#-"XXYX:1$XY:2$!!5$"*`ST">24$L*[&(*ҍ"*&>24$2ͨ(Ù"!,ͺRS#:2$"/22$:/$ʹ"ͯ47?ͯ4c>:1$"xq#ʯ#ͯ47?MYyͯ4>:4$"ͯ4C? #y#MY*d 'ͯ4>'ͯ4>Sͯ4>:|!}0'> ͽX!x~> ͽX4<6'~#U'dG'> d> d> d> d:'w'/2'*t|0ͽX|0ͽX}0ͽX}0ͽX:>:´'>*ͽX:v0ͽX:v0ͽX> ͽXMY*MYMYMYMY!5)!"XXY>2N?2S?2X?2^?:W(/2W:X ( c +( '> RͽX!x4 B(2X(:X( Q(͘&j'> 2X(XXY*o#ʅ(=XXY#l("o! ("wy #y SÑ(")!,]RS>2l( 5=ù(>2Q8>2l5MY!)ͯ4%?:(ͯ4=?*)  k,INITIALIZE>-k,INT>k,INSTR>k,INP>k,IMP>دɯɯk,LOCATE>&k,LOCATION>4k,LET>6k,LPRINTER>7k,LOG>k,LOG10>k,LEFT$>k,LEFT>k,LEN>دk,MID$>k,MID>دk,NEXT>k,NUM$>k,NOT>دk,OF>$k,OPEN>)k,ON>3k,OUT>=k,OR>دk,PRINT>k,PROCEDURE>!k,POKE>>k,POS>k,PEEK>دɯk,REM>k,REMARK>k,RETURN>k,RET>k,REPEAT>k,READ>+k,RENAME>/k,RESTOB~SBB@>ͷB2@*B~1AB2@BA:C:Q8SD2@:B:YdA_A֖SÿAֿÿA:B˜Ab,NOT>ڿAb,%>ڿAb,+>ڿAb,->ڿA$SB!SʿAʿAʿAʿA ʿAʿAA2B2BG26BxG'BBA"A>A> A> A>7x!B :x<BG#B7<>=#-+/*~%+-^,7&'B>26B:6BKB26B2B: 2B,7&NB7777G*B~ҔBҙBҞBңBҨBҭBҲBx7x?x?x?x?x?x?x?*B#w"B@*B~+"B@*B6#w#6"BL*'B(*ҎC7B!,]R ]8:5BSG:l%7x<7ͯ4>x<7:l<7ͯ4>O7:lO7ͯ4 >x!=e7=*=6#4:l==!*E=6#4#~#F#N#^#V#"5x-8y8x77x´7ͯ4=77ͯ4=7Sͯ4=)!8MY*)x7y7MY&MYMY!8MY>XXYMY*)ͯ4=x 7!5425yC8MY!)MY!8MY*)MY!8DGTDLTDLDGDEQDNEQDSUDADDDIDMUDTDDPCDABDNEDEPRGTRLTRLRGREPEERGHTFCBRSRBNRCIRCIRSRURRDRRDBRDRDRDRDLONERFORRFORRFORBFORFORCHAIFOPFCLOSREASWRITRREARWRITRSEASCIFDERENAFCREAMPUSMPOXPOXZPHRPHRPHBSPOSPUSCBNCWCSCLRCLRCLBCLCLCLCRDCRSCBNCICWCSSETMIPSTSTRPMPRMPPRPRPBPPCHPSAPSFMPNUPTATABSCLEADUBSTRPUCMPRCMPRCMPBCMPCMPSTTSTRTSTRTSTBTSTTSTTSTSTECHFCNTLIBU RE>9k,RECORD.SEQUENTIAL>Gk,RND>k,RIGHT>k,RIGHT$>دk,SUB>k,STOP>k,STEP> k,SGN>k,SIN>k,SQR>k,STRING$>k,STRING>k,SPC>k,SPACE$>k,STR$>k,SIZE>دk,TO>k,THEN>k,TEXT>k,TO>k,TAN>k,TAB>دk,UNTIL>دk,VAR>k,VARIABLE>k,VAL>دk,WHILE>k,WRITE>,دk,XLATE>k,XOR>دɯɯ"4"4^#V#6#4*4*44X>XY%Y~#4XY4XY6#%Y~#_:l:Q8>2Q8*B6#>w2l#6"BͷB{2@=@C*(C:*-SRBS:*0S*B6#2Q8kC"Cx*C2lw#6"B*B6#s#r#w#p#q#C!,ͺRyFx͝R*B:l¸C6#|2lw#6#q#p#q#s#r#"B6"DW2BzC(*S:lW:CGO2DͷB>2D*D*|AD}AD>2D*}/_|/W*o"D|AD*B6 #6#s#r#6"ByʐD*B6#w#6"B2l>2C*D:D:D2@2D2D"D:* ʍDID-S0S2D*BOzŸDy6#wO#6#s#r#:Dw#6#6"Bx2C>2BBSy2l:D2@*D|2@*B6 #:Dw#s#r#6"B2@\QRNEQRSURADRDIRMURTDRPCRABRNEREPBGTBLTBLBGBEQBNEQBSUBADBDIBMUBTDBPCBABBNEBEXIGTILTILIGIEQINEQISUIADIDIIMUITDIPCIABINEIEXWGTWLTWLWGWEQWNEQISUIADIDIIMUWTDWPCWABWNEIEXSGTSRETIRIRIBIIICHIIIWRARRABASESAVIGETISAVHGETHSMOERRERRSYSISYSOUMAREDIMPDSEDRDRDBDINDCHADSEXCYͫ???XCY!R8 ~?#X~XY#? ñ?!=ñ?!p=~@X#~XY?#?#@#?*j#6"B!6#:lw#6"B2B2B26B>2C7B@:YG@@à@*@"*@b,:@:'/F͋,ڌ@:͏E/FB҄@!,[QCS>2B2@(*A:*Ab,"ڭE*B~@DA>AYBҼ@ͷB2@BBà@@>2x@2l*B6 #6"BDA>AͷB2@*LTSLSGSEQSNEQSSUSADSDISMUSTDSPCSABSNESEXIIMIEQIXOIOIANINOABATCOEXFIINLOLOG1PRNSGSISQTAFFIFINASCICHRFRCVTFSIZCVT$CVT$STRINLEFRIGHMILEINSTSPACENUMVAXLATHEXIMPOTAB k,INITIALIZE>-k,INT>k,INSTR>k,INP>k,IMP>دɯɯk,LOCATE>&k,LOCATION>4k,LET>6k,LPRINTER>7k,LOG>k,LOG10>k,LEFT$>k,LEFT>k,LEN>دk,MID$>k,MID>دk,NEXT>k,NUM$>k,NOT>دk,OF>$k,OPEN>)k,ON>3k,OUT>=k,OR>دk,PRINT>k,PROCEDURE>!k,POKE>>k,POS>k,PEEK>دɯk,REM>k,REMARK>k,RETURN>k,RET>k,REPEAT>k,READ>+k,RENAME>/k,RESTOPEERGHTFCBRSRBNRCIRCIRSRURRDRRDBRDRDRDRDLONERFORRFORRFORBFORFORCHAIFOPFCLOSREASWRITRREARWRITRSEASCIFDERENAFCREAMPUSMPOXPOXZPHRPHRPHBSPOSPUSCBNCWCSCLRCLRCLBCLCLCLCRDCRSCBNCICWCSSETMIPSTSTRPMPRMPPRPRPBPPCHPSAPSFMPNUPTATABSCLEADUBSTRPUCMPRCMPRCMPBCMPCMPSTTSTRTSTRTSTBTSTTSTTSTSTECHFCNTLIBU RE>9k,RECORD.SEQUENTIAL>Gk,RND>k,RIGHT>k,RIGHT$>دk,SUB>k,STOP>k,STEP> k,SGN>k,SIN>k,SQR>k,STRING$>k,STRING>k,SPC>k,SPACE$>k,STR$>k,SIZE>دk,TO>k,THEN>k,TEXT>k,TO>k,TAN>k,TAB>دk,UNTIL>دk,VAR>k,VARIABLE>k,VAL>دk,WHILE>k,WRITE>,دk,XLATE>k,XOR>دɯɯ"4"4^#V#6#4*4*44X>XY%Y~#4XY4XY6#%Y~#_:l:Q8>2Q8*B6#>w2l#6"BͷB{2@=@C*(C:*-SRBS:*0S*B6#2Q8kC"Cx*C2lw#6"B*B6#s#r#w#p#q#C!,ͺRyFx͝R*B:l¸C6#|2lw#6#q#p#q#s#r#"B6"DW2BzC(*S:lW:CGO2DͷB>2D*D*|AD}AD>2D*}/_|/W*o"D|AD*B6 #6#s#r#6"ByʐD*B6#w#6"B2l>2C*D:D:D2@2D2D"D:* ʍDID-S0S2D*BOzŸDy6#wO#6#s#r#:Dw#6#6"Bx2C>2BBSy2l:D2@*D|2@*B6 #:Dw#s#r#6"B2@\QRNEQRSURADRDIRMURTDRPCRABRNEREPBGTBLTBLBGBEQBNEQBSUBADBDIBMUBTDBPCBABBNEBEXIGTILTILIGIEQINEQISUIADIDIIMUITDIPCIABINEIEXWGTWLTWLWGWEQWNEQISUIADIDIIMUWTDWPCWABWNEIEXSGTSRETIRIRIBIIICHIIIWRARRABASESAVIGETISAVHGETHSMOERRERRSYSISYSOUMAREDIMPDSEDRDRDBDINDCHADSEXCYͫ???XCY!R8 ~?#X~XY#? ñ?!=ñ?!p=~@X#~XY?#?#@#?*j#6"B!6#:lw#6"B2B2B26B>2C7B@:YG@@à@*@"*@b,:@:'/F͋,ڌ@:͏E/FB҄@!,[QCS>2B2@(*A:*Ab,"ڭE*B~@DA>AYBҼ@ͷB2@BBà@@>2x@2l*B6 #6"BDA>AͷB2@* +5XY4XY>2Q82>2 @!~7:7"525*5~a5|756y6 76 57S#~#"5Ҝ55!:l=*! *!R8~ʐS6#4ù5! *;ʱ5$Œ5>2Ì5:5BS<25#~ 725! ==*|;Ì5#~#"52l25#"5:5BS:l6ͯ45>6ͯ4:>6ͯ4?>$6ͯ4H>/6ͯ4L>>2l25#~#S6K6ͯ4=25ͯ4=25MYX~#XY~#"5XY*MY!)#^#V#!,w#‚6MY%YzY:5BS<25#~#"5 7*5~ 25#~25:l25ͯ4>25#^#V#~27#F#N###"5y6MY!)ͯ4e?:7G:5BS25!LTSLSGSEQSNEQSSUSADSDISMUSTDSPCSABSNESEXIIMIEQIXOIOIANINOABATCOEXFIINLOLOG1PRNSGSISQTAFFIFINASCICHRFRCVTFSIZCVT$CVT$STRINLEFRIGHMILEINSTSPACENUMVAXLATHEXIMPOTAB N[2B7B(*S!*K_:lW:CGN#ͷBy_E~#*B6#w#6"B2l>2C2@:* \E/E-S0S~*BOzjEy6#wW#6#s#6"Bx2C>2BBSz2l!E#O~y’E/0123456789.,'MY/):¿E͛)e)!w ("Ew#6E S!@! ~#EXyXY*͛)e)G !áCMY/)e)!@ëFMY/)e)!@:'hF:lFFFʨFhF*SF:'†F (o*&:'HS&ÎFͬ)|3S" H* HG!áCͬ)" H* HG!áC=G*HG!áC H*"HG!áC!"H)H* given is a reserved wor One of these VAR names in us Too many left parenthese Too many right parenthese Reserved symbol ex. ": Two symbols make no sense ex. "%+ Number too larg Error in numbe Not enough argument Too many argument This number too large/smal Missing right bracke Error in print statemen Cannot end like thi Intr. symbol overflo Does not balanc Var not define Cannot process this / Statement erro Local code onl Form: ON /ERROR GOTO/GOSUB w+>gK~!>!>!>!>!"HG!áCy-GXXY GH)͈)͛)> 2H>2H!Hw#MG!~ʈG0sGʌG*S*&!VG *SͼG!Hw#VGͼGͼG#~ʰG0*S *SG!HwÑG:HGðG!H~w#G ¾G!H53S:H!H~w#G G:Hg2H!H53S!"H)H:(HW:%H2%H" J3H*S!~+DH-DH+>+2J#"J>+2J~#ʓHESH&:,+pH-pH>+2JyH&!,~ʖH{_~I_#~H+6E:J+{ʡH/<2'J0Ix//2J!J9K:J+H:J2J:'JI!8JH/<2'J!*J"(J>͉K:'J= I2'J*(J>͉K?J sul One FILES statement allowe Must be random (R) or serial (S Over max coun A "," or ";" or "#" was expecte File not defined in files statemen TO expecte OF expecte ":" expected for CASE statemen No matching FO UNTIL expecte Must end with D Missing THEN of IF-THE Not based location typ AT expecte Wrong typ Location statement erro Sorry 255 max All DATA statements must be togethe ### OUT OF MEMORY ## Illegal function cal:XXb͜Y͘Y͘Y͜Y͜Y͘Y͜Y͘Y͘Y͘Y͜Y͘Y͘Y͘YX^!",2MM0M#MM)M=$MM7",!#9M:+<_###'Q*` "`*b "b*d "d*f "f*h "h*M "M!",~#ƒM!+~G#ʝM~ÒM*}|*M"PN*`!",MMM#öMMM=MóM7",!#M:+_###'Q*b "b*d "d*f "f*h "h*PN "PN!",~#*N!+~G#CN~8N*}|*PN"P,*bʩNsNʃN#`NsN _N:SHSS žN*P,!#±N'Q*d"d*f"f*h"h!,~#N2P|2P}2P(P}|">!>!>!> !> !> !> !> !>!>!>!>!>!>!>!>!>!>!>!>!>!>!>!>!>!>!> !>!!>"!>#!>$!>%!>&!>'!>(!>)!>*!>+!>,!>-!>.!>/!>0!>1!>2!>3!>4!>5!>6!W>2~:y >22̕&ʻS>$ͽXr&>$ͽX½S!TS#~SS#~ͽX~SSS*\> ͽX> ͽX Not valid label numbe GO is reserved word / TO or SUB expecte End of line unexpecte TYPE does not exis No vars give Error code 0 Missing = sign, = sign expecte Missing left bracke No names give Line too lon Un-defined operan ERROR CODE 1 NameH!1J>͉K!J>͉K?J* J>ͫK* J^K* J~w2JG!J>6#=2JCI!JJ~#gI!JJI!JJI!JJI!JJII2J!J>6+= I!JJI:JʸI CI:JI*J!'JEI.I4I:JJ!JJIɯw+I0J >7ѯ7"J!J>ͫK!J>ͫK!J~_w!J~Ww"J:J2J!Jw#sJ0ÅJʠJJJ~J!JJ w+ ”J~J:JG:J2J K!J^K*J!J.K!J>͉K!!J ~w+ J!JP:P:>O:P<2P=:PO(P ;P:MO:PB2e:f ZZZ@2|Z>2zZ:e2|>A2f:g HZZ@ZXHZYPZ@2>a8Z:e2>a>S2gXZ>2{8Z>2|8Z>2}8Z!]~~#`Z!]Aa~#pZa:z‹ZiaaÞZ>2,cÞZ>2,c!d"-c!|:}·Z:{Z>2bZ>2bZ!d"bZ!d"bb͟a!Z~[#ͽXZ ****** End of p!.MAIN.\.PROG..DATA..BLNK.SYSIN \SYSOUTERR1 ERR2 ; f/};@M> !D ;&!%BAD CHANNEL ;)NUMBEw$//Ð;>Ió//$/4ÐnO;SI&//$//Ð//;hH//_@|Z;}@*:; ¢ʗ 2;@Ì!|;x:|;*7>|;  22;;È*|!w; "_  y>~ee#=e!ele:e&e0ee:e0ee:e<'2e> ee> ee> ee>2eee :e<92eد2e> _~ee#~me Program: Page: P[REAL.DOUBLEREALFLOAT.DOUBLEFLOATFIXEDINTEGERCHARSTRINGPBYTE/ rogram ****** ͘?!|:}A[:{A[>b*[OQc͏b:z:~Q[iCYCY>,c*:`}W[)|p[O2d[b:|2\:e=2eG'Compilation complete G'Compilation aborted ͉!"e):g:[MYɯ2!"\!e ~#^#V#!&R\!#S\!>g\[ͣ\:P1\=2P*\^#V#"\>g\\MY͛)e)ͣ\:!V#~zX/YXY#~#XY=D\ɷʓ\*oMY!)MY")*o#"oXXY*\s#r#"\!4*\6#6#"\!4P$ ;&_7:Q;<\!>2;QB:~p\;f!_<2~!;z~ɀ&INPUT FILE REA;ĥ;,@|Z;}@*:; ¢ʗ 2;@Ì!|;x:|;*7>|;  22;;È*|!w; "_  PRN :|=_}ʃa2!":`G'CANNOT CREAT OBJ FILE:>a=_@aa2`a!"a=_@a2`a!"a=_@aG'ERROR IN CLOSING PRN FILE:>a=_@a:?a=_\*a=_@a¥cG'ERROR IN EXTENDING PRN FILEcG'END OF DISK DATA FOR PRN FILEG'OUT OF DIR SPACE FOR PRN FILE\:?a=_\d>2\G'DISK READ ERROR:]Kd! 5d:|=_}†dG'ERROR IN EXTENDING OBJ FILE¯dG'END OF DISK DATA FOR OBJ FILEG'NO DIR SPACE FOR OBJ FILE__:eLe!le!yele!]T, bc, a_psw ) bc = sec call ( setsec, hl, de, bc, a_psw ) call ( b_read, hl, de, bc, a_psw ) sector[0] = bios_return end of get_sector procedure put_sector( track, sec = integer ) bc = track call ( settrk, hl, de, bc, a_psw ) bc = sec call ( setsec, hl, de, bc, a_psw ) call ( b_write, hl, de, bc, a_psw ) sector[0] = bios_return end of put_sector function ascii_character ( x = integer ) = char x = x and ascii_mask if x<32 then x = 46 end = x procedure dk number to examine = integer var crt ; logical device list ; logical device CR ; ASCII CR BS ; ASCII BS ascii_mask ; ASCII mask bit_0_mask ; mask used to look at bit 0 true, false ; true/false logical flags = integer var menu_selection ; prompt return = char var r1, r2, r3, r4 ; Real number for computations = real based spt ; sectors/track dsm ; max data block number drm ; number of dir blocks off ; number of reserved tracks wboot ; entry tjpsw only location var hl = a_psw base bios_return at hl+1 0seldsk input "Disk number (0,1,...,15) ";disk_number bc = disk_number call ( seldsk, dph, de, bc, a_psw ) if dph=0 then 0seldsk base skew_table at dph base dpb at dph+10 base alv at dph+14 bc = loc_sector+1 call ( setdma, hl, de, bc, a_psw ) base spt at dpb base bsh at dpb+2 base blm at dpb+3 base exm at dpb+4 base dsm at dpb+5 base drm at dpb+7 base off at dpb+13 block_size = 1024*(2^(bsh-3)) r1 = ((dsm+ gisplay_sector ( device = integer ) var x, j = integer for x=1 to 128 step 16 print hex$(x-1);" "; for j=0 to 15 if j=8 then print ' '; print #device; right$(hex$(sector[x+j]),2);' '; next hex byte for j=0 to 15 if j=8 then print ' '; print #device; ascii_character(sector[x+j]); next ascii byte print #device next line of sector display end of display sector 0menu print print print "Drive number ..!.";disk_number, "Current disk ";'}o bios dpb ; location of disk parameter block skew_table ; location of bios skew table (used by sectran) alv ; pointer to allocation table = integer based bsh ; block shift factor blm ; block mask exm ; extent mask alloc_byte ; used in searching allocation table = byte crt = 0 rem S-BASIC device # for con: list = 1 rem S-BASIC device # for lst: CR = 0DH BS = 8 ascii_mask = 007FH bit_0_mask = 1 true = -1 false = not true base wboot at 1 rem loca1)*(block_size/128))/spt max_tracks = r1 + off function physical_sec ( sectr = integer ) = integer if skew_table=0 then sectr=sectr-1 end = sectr function skew ( sectr = integer ) = integer if skew_table<>0 then begin bc = sectr - 1 de = skew_table call (sectran, hl, de, bc, a_psw) end else hl = sectr - 1 end = hl procedure get_sector( track, sec = integer ) var x = integer for x=1 to 128 sector[x] = 0 next x bc = track call ( settrk, hl, de $lines REM XAMN Disk track and sector editor. REM No warranty is made, expressed, or implied. var hl,de,bc,a_psw ; cpu registers dph ; location of disk parameter header block_size ; cp/m logical block size max_tracks ; number of tracks/disk seldsk ; bios select disk settrk ; bios set track routine setsec ; bios set sector routine setdma ; bios set dma address b_read ; bios read sector b_write ; bios write sector sectran ; bios sector skew disk_number ; distion of bios wboot entry seldsk = wboot + 0018H rem set up bios entry address settrk = wboot + 001BH setsec = wboot + 001EH setdma = wboot + 0021H b_read = wboot + 0024H b_write= wboot + 0027H sectran= wboot + 002DH rem dma buffer for read/write sector operations dim byte sector(128) var loc_sector = integer location array loc_sector = sector dim base char file_chars(11) fcb_name(11) byte_dm(15) dim base integer word_dm(7) based bios_return = byte rem high order byte of a_jpsw only location var hl = a_psw base bios_return at hl+1 0seldsk input "Disk number (0,1,...,15) ";disk_number bc = disk_number call ( seldsk, dph, de, bc, a_psw ) if dph=0 then 0seldsk base skew_table at dph base dpb at dph+10 base alv at dph+14 bc = loc_sector+1 call ( setdma, hl, de, bc, a_psw ) base spt at dpb base bsh at dpb+2 base blm at dpb+3 base exm at dpb+4 base dsm at dpb+5 base drm at dpb+7 base off at dpb+13 block_size = 1024*(2^(bsh-3)) r1 = ((dsm+ gisplay_sector ( device = integer ) var x, j = integer for x=1 to 128 step 16 print hex$(x-1);" "; for j=0 to 15 if j=8 then print ' '; print #device; right$(hex$(sector[x+j]),2);' '; next hex byte for j=0 to 15 if j=8 then print ' '; print #device; ascii_character(sector[x+j]); next ascii byte print #device next line of sector display end of display sector 0menu print print print "Drive number ..!.";disk_number, "Current disk ";'}o bios dpb ; location of disk parameter block skew_table ; location of bios skew table (used by sectran) alv ; pointer to allocation table = integer based bsh ; block shift factor blm ; block mask exm ; extent mask alloc_byte ; used in searching allocation table = byte crt = 0 rem S-BASIC device # for con: list = 1 rem S-BASIC device # for lst: CR = 0DH BS = 8 ascii_mask = 007FH bit_0_mask = 1 true = -1 false = not true base wboot at 1 rem loca $lines REM XAMN Disk track and sector editor. REM No warranty is made, expressed, or implied. var hl,de,bc,a_psw ; cpu registers dph ; location of disk parameter header block_size ; cp/m logical block size max_tracks ; number of tracks/disk seldsk ; bios select disk settrk ; bios set track routine setsec ; bios set sector routine setdma ; bios set dma address b_read ; bios read sector b_write ; bios write sector sectran ; bios sector skew disk_number ; distion of bios wboot entry seldsk = wboot + 0018H rem set up bios entry address settrk = wboot + 001BH setsec = wboot + 001EH setdma = wboot + 0021H b_read = wboot + 0024H b_write= wboot + 0027H sectran= wboot + 002DH rem dma buffer for read/write sector operations dim byte sector(128) var loc_sector = integer location array loc_sector = sector dim base char file_chars(11) fcb_name(11) byte_dm(15) dim base integer word_dm(7) based bios_return = byte rem high order byte of a_ *A'+disk_number;':' print "Sectors/track ..0";spt, '['; hex$(spt) ;']' print "Tracks/Disk ..";max_tracks, '['; hex$(max_tracks) ;']',\ "XAMN Disk editor" print "Number of reserved tracks ..";off, '['; hex$(off) ;']',\ "Version 1.1" print "# of logical blocks ..u";dsm+1, '['; hex$(dsm+1) ;']' print "# of directory entries .....";drm+1, '['; hex$(drm) ;']' print "Block size ..N.";block_size, '['; hex$(block_size) ;']' print "128 byte sectors/block ....e = crt for s=1 to c dump_physical device bump 1 next Sector end of 'R' 'C': modify track, physical_sec(sectr) end of case end until letter='E' end of option #1 '2': begin input "Track, sectr"; track, sectr print dump_logical crt repeat begin input "(F)oward, (B)ackward, (R)ange, (C)hange, (E)xit ";letter case letter of 'F': begin bump 1 dump_logical crt end 'B': begin bump j sectr = sec + 1 end procedure bump ( amount = integer ) sectr = sectr + amount if sectr>spt then begin track = track +1 if track>=max_tracks then track=max_tracks-1 sectr = 1 end if sectr<1 then begin track = track -1 if track<0 then track=0 sectr = spt end end of bump procedure dump_physical ( device = integer ) get_sector track, physical_sec(sectr) print #device; "Track=";track; " Physical sector=";sectr, \ " Logical sector=";skew(seRnd if c=CR and x=128 then x=127 print x=x+1 end until x>128 print print t,s display_sector crt repeat begin print input "(W)rite to disk, (C)hange more bytes, (A)bort ";c if c='W' then begin print "Writing sector to disk..." put_sector t, s if sector[0]=1 then begin input2 "Write fault. to continue";c print display_sector crt c=' ' end else c='A' end of write end until c='A' or c='C' end until  J.";block_size/128, '['; hex$(block_size/128) ;']' print "Disk size in K ..u.";(dsm+1)*(2^(bsh-3)), '['; hex$( (dsm+1)*(2^(bsh-3)) ) ;']' text 0,% Help Examin a sector (physical)..C. 1 A Examin a sector (logical skew)..... 2 B Move Sectors  ..! 3 C Produce a map of a file .. . 4 D Produce a map of disk ... 5 E Find bad sectors  ..P 6 F Compute Block from Trk & Sec ...... 7 G Compute Trk & Sec from Bloc -1 dump_logical crt end 'R': begin var s, c, device =integer input "Number of sectors to display";c device = crt for s=1 to c dump_logical device bump 1 next Sector end of 'R' 'C': modify track, skew(sectr) end of case end until letter='E' end of option #2 '3': begin var t = char repeat begin t = ' ' while t<>'L' and t<>'P' and t<>'E' do input "Move (L)logical sectors, (P)hysical sectors, (E)xit ctr); if sector[0]=1 then print #device; " {BAD}" else print #device display_sector device print end of dump_physical procedure dump_logical ( device = integer ) get_sector track, skew(sectr) print #device; "Track=";track; " Logical sector=";sectr, \ " Physical sector=";skew(sectr); if sector[0]=1 then print #device; " {BAD}" else print #device display_sector device print end of dump_logical function hex_byte ( c = char ) = char c = c-'0' c='A' end of procedure modify $page case menu_selection of '1': begin input "Track, sectr"; track, sectr print dump_physical crt repeat begin input "(F)oward, (B)ackward, (R)ange, (C)hange, (E)xit ";letter case letter of 'F': begin bump 1 dump_physical crt end 'B': begin bump -1 dump_physical crt end 'R': begin var s, c, device =integer input "Number of sectors to display";c devic k ...... 8 H Select disk  ... 9 I % input2 "Please enter selection ==>"; menu_selection var track, sectr =integer var letter = char function group ( trk, sec = integer ) = integer var sectrs, grp = real sectrs = ((trk-off)*spt)+sec-1 grp = sectrs/(block_size/128) end = grp procedure trk_sec ( grp = integer ) = integer var sectrs, sec, trk = real sectrs = grp*(block_size/128) trk = sectrs/spt track = trk + off sec = sectrs-((track-off)*spt)e = crt for s=1 to c dump_physical device bump 1 next Sector end of 'R' 'C': modify track, physical_sec(sectr) end of case end until letter='E' end of option #1 '2': begin input "Track, sectr"; track, sectr print dump_logical crt repeat begin input "(F)oward, (B)ackward, (R)ange, (C)hange, (E)xit ";letter case letter of 'F': begin bump 1 dump_logical crt end 'B': begin bump j sectr = sec + 1 end procedure bump ( amount = integer ) sectr = sectr + amount if sectr>spt then begin track = track +1 if track>=max_tracks then track=max_tracks-1 sectr = 1 end if sectr<1 then begin track = track -1 if track<0 then track=0 sectr = spt end end of bump procedure dump_physical ( device = integer ) get_sector track, physical_sec(sectr) print #device; "Track=";track; " Physical sector=";sectr, \ " Logical sector=";skew(seRnd if c=CR and x=128 then x=127 print x=x+1 end until x>128 print print t,s display_sector crt repeat begin print input "(W)rite to disk, (C)hange more bytes, (A)bort ";c if c='W' then begin print "Writing sector to disk..." put_sector t, s if sector[0]=1 then begin input2 "Write fault. to continue";c print display_sector crt c=' ' end else c='A' end of write end until c='A' or c='C' end until  J.";block_size/128, '['; hex$(block_size/128) ;']' print "Disk size in K ..u.";(dsm+1)*(2^(bsh-3)), '['; hex$( (dsm+1)*(2^(bsh-3)) ) ;']' text 0,% Help Examin a sector (physical)..C. 1 A Examin a sector (logical skew)..... 2 B Move Sectors  ..! 3 C Produce a map of a file .. . 4 D Produce a map of disk ... 5 E Find bad sectors  ..P 6 F Compute Block from Trk & Sec ...... 7 G Compute Trk & Sec from Bloc -1 dump_logical crt end 'R': begin var s, c, device =integer input "Number of sectors to display";c device = crt for s=1 to c dump_logical device bump 1 next Sector end of 'R' 'C': modify track, skew(sectr) end of case end until letter='E' end of option #2 '3': begin var t = char repeat begin t = ' ' while t<>'L' and t<>'P' and t<>'E' do input "Move (L)logical sectors, (P)hysical sectors, (E)xit ctr); if sector[0]=1 then print #device; " {BAD}" else print #device display_sector device print end of dump_physical procedure dump_logical ( device = integer ) get_sector track, skew(sectr) print #device; "Track=";track; " Logical sector=";sectr, \ " Physical sector=";skew(sectr); if sector[0]=1 then print #device; " {BAD}" else print #device display_sector device print end of dump_logical function hex_byte ( c = char ) = char c = c-'0'  k ...... 8 H Select disk  ... 9 I % input2 "Please enter selection ==>"; menu_selection var track, sectr =integer var letter = char function group ( trk, sec = integer ) = integer var sectrs, grp = real sectrs = ((trk-off)*spt)+sec-1 grp = sectrs/(block_size/128) end = grp procedure trk_sec ( grp = integer ) = integer var sectrs, sec, trk = real sectrs = grp*(block_size/128) trk = sectrs/spt track = trk + off sec = sectrs-((track-off)*spt) if c>9 then c=c-7 end = c procedure modify ( t, s = integer ) var c=char var x=integer repeat begin x=1 repeat begin print hex$(x-1) ;' '; right$(hex$(sector[x]),2) ;' ';\ ascii_character(sector[x]);' '; input3 c if c<>'.' and c<>CR and c<>BS then begin sector[x]=hex_byte(c) input3 c if c<>'.' and c<>CR and c<>BS then sector[x]=(sector[x]*16)+hex_byte(c) end if c='.' then x=128 if c=BS then begin x = x-2 if x<0 then x=0 e";t if t<>'E' then begin var ok = char var trk1, trk2, sec1, sec2, cnt, x = integer ok = ' ' while ok<>'Y' and ok<>'A' do begin input "Source Track, Sector ";trk1, sec1 input "Dest. Track, Sector ";trk2, sec2 input "Number of sectors to move";cnt print print "Source Track, Sector = ";trk1, sec1 print "Dest. Track, Sector = ";trk2, sec2 print "Number of sectors to move ";cnt print input "Is the above correct (Y/N/(A)bort) ";ok end if  x = 1 to (t2-t1+1)*spt print "Track:";track; " Sector:";sectr; " "; get_sector track, physical_sec(sectr) if sector[0]<>0 then print "{BAD}" else print chr(0DH); bump 1 next x print input2 "Read complete, press to cont.";x end of option #6 '7': begin input "Track, Sector ";track,sectr print "Group #";group(track,sectr), hex$(group(track,sectr)) input "Press to cont. ";track end of #7 '8': begin var x = integer input "Group number";x trk_sec x 'k sectr = 1 rem starting sector input "File name ( only to skip) ";file_name if len(file_name)>0 then begin function match = integer var result, x = integer result = true if fcb_name[0]=0E5H then result=false else for x=1 to 11 if file_chars[x]<>(fcb_name[x]) and file_chars[x]<>'?' \ then result = false next x end = result procedure dump_fcb( device = integer ) var x = integer print #device; "Track";track; " Sector";sectr; ' ';  byte_dm at loc_sector+113 locate word_dm at loc_sector+113 if match then dump_fcb crt bump 1 next directory sector var x=char print input2 "Press to continue";x end end of option #4 '5': begin function bin( x = integer ) = string var bits = string:8 var y = integer bits = "" for y=1 to 8 if x and bit_0_mask then bits="1"+bits else bits="0"+bits x=x/2 next y end = bits bc = 14 de = disk_number call(5,hl,de,bc,a_ok<>'A' then begin for x=1 to cnt print "Reading track";trk1;" Sector";sec1; if t='L' then print " Physical #";skew(sec1); if t='P' then get_sector trk1, physical_sec(sec1) else get_sector trk1, skew(sec1) if sector[0]<>0 then print " Fault" else print print "Writing track";trk2;" Sector";sec2; if t='L' then print " Physical #";skew(sec2); if t='P' then put_sector trk2, physical_sec(sec2) else put_sector trk2, skew(sec2) if sector[0]  print "Track:";track,"Sector:";sectr input "Press to cont.";x end of #8 end of function number menu selection if menu_selection = '9' then 0seldsk case menu_selection of 'A': begin text 0,%  ? To examine a physical sector use this command. Sectors are  Fnumbered from 1 to the end of the track. Tracks are numbered from 0  Fto the end of the disk. The physical sector number displayed is the  7sector number from 1 to end of track, the logical sect for x=1 to 11 print #device; fcb_name[x]; next x print #device; ' '; if dsm>255 then for x=0 to 7 print #device; hex$(word_dm[x]); ' '; next x else for x=0 to 15 print #device; right$( hex$(byte_dm[x]),2 ); ' '; next x print #device end file_name = fcb$( file_name ) print "Search for file:";file_name for count = 1 to (drm+1)/4 get_sector track, skew(sectr) print "Searching Track:";track; " Sector:""psw) rem bdos seldsk function var x, y = integer print for x = 0 to (dsm/8) step 8 print hex$(x*8);": "; for y = 0 to 7 if x+y<=(dsm/8) then begin base alloc_byte at alv+x+y print bin(alloc_byte);' '; end next y print next x print "Last block is";dsm+1,'[';hex$(dsm+1);']' input2 "Press return to cont.";x end of option #5 '6': begin var x = real var t1, t2 = integer input "Starting track, last track ";t1,t2 track = t1 sectr = 1 forv<>0 then print " Fault" else print track = trk1 sectr = sec1 bump 1 trk1 = track sec1 = sectr track = trk2 sectr = sec2 bump 1 trk2 = track sec2 = sectr next sector end end end until t='E' end of option #3 '4': begin var count ; number of sectors to search = integer var file_name ; file name to search for = string:12 location var count=file_name locate file_chars at count track = off rem starting tracH;skew(sectr);" ";chr(0DH); locate fcb_name at loc_sector+1 locate byte_dm at loc_sector+17 locate word_dm at loc_sector+17 if match then dump_fcb crt locate fcb_name at loc_sector+33 locate byte_dm at loc_sector+49 locate word_dm at loc_sector+49 if match then dump_fcb crt locate fcb_name at loc_sector+65 locate byte_dm at loc_sector+81 locate word_dm at loc_sector+81 if match then dump_fcb crt locate fcb_name at loc_sector+97 locate'k sectr = 1 rem starting sector input "File name ( only to skip) ";file_name if len(file_name)>0 then begin function match = integer var result, x = integer result = true if fcb_name[0]=0E5H then result=false else for x=1 to 11 if file_chars[x]<>(fcb_name[x]) and file_chars[x]<>'?' \ then result = false next x end = result procedure dump_fcb( device = integer ) var x = integer print #device; "Track";track; " Sector";sectr; ' ';  byte_dm at loc_sector+113 locate word_dm at loc_sector+113 if match then dump_fcb crt bump 1 next directory sector var x=char print input2 "Press to continue";x end end of option #4 '5': begin function bin( x = integer ) = string var bits = string:8 var y = integer bits = "" for y=1 to 8 if x and bit_0_mask then bits="1"+bits else bits="0"+bits x=x/2 next y end = bits bc = 14 de = disk_number call(5,hl,de,bc,a_ok<>'A' then begin for x=1 to cnt print "Reading track";trk1;" Sector";sec1; if t='L' then print " Physical #";skew(sec1); if t='P' then get_sector trk1, physical_sec(sec1) else get_sector trk1, skew(sec1) if sector[0]<>0 then print " Fault" else print print "Writing track";trk2;" Sector";sec2; if t='L' then print " Physical #";skew(sec2); if t='P' then put_sector trk2, physical_sec(sec2) else put_sector trk2, skew(sec2) if sector[0]  print "Track:";track,"Sector:";sectr input "Press to cont.";x end of #8 end of function number menu selection if menu_selection = '9' then 0seldsk case menu_selection of 'A': begin text 0,%  ? To examine a physical sector use this command. Sectors are  Fnumbered from 1 to the end of the track. Tracks are numbered from 0  Fto the end of the disk. The physical sector number displayed is the  7sector number from 1 to end of track, the logical sect for x=1 to 11 print #device; fcb_name[x]; next x print #device; ' '; if dsm>255 then for x=0 to 7 print #device; hex$(word_dm[x]); ' '; next x else for x=0 to 15 print #device; right$( hex$(byte_dm[x]),2 ); ' '; next x print #device end file_name = fcb$( file_name ) print "Search for file:";file_name for count = 1 to (drm+1)/4 get_sector track, skew(sectr) print "Searching Track:";track; " Sector:"v<>0 then print " Fault" else print track = trk1 sectr = sec1 bump 1 trk1 = track sec1 = sectr track = trk2 sectr = sec2 bump 1 trk2 = track sec2 = sectr next sector end end end until t='E' end of option #3 '4': begin var count ; number of sectors to search = integer var file_name ; file name to search for = string:12 location var count=file_name locate file_chars at count track = off rem starting tracH;skew(sectr);" ";chr(0DH); locate fcb_name at loc_sector+1 locate byte_dm at loc_sector+17 locate word_dm at loc_sector+17 if match then dump_fcb crt locate fcb_name at loc_sector+33 locate byte_dm at loc_sector+49 locate word_dm at loc_sector+49 if match then dump_fcb crt locate fcb_name at loc_sector+65 locate byte_dm at loc_sector+81 locate word_dm at loc_sector+81 if match then dump_fcb crt locate fcb_name at loc_sector+97 locate  or number is  ;the number your BIOS uses to access this physical sector.  ? When you type this command you will be asked for the track  Fand sector you wish to examine. After you respond the sector will  Fbe displayed. You will then be asked if you want to move forward or  Fbackward from your current position on the disk. You may, at this  Ftime, specify a range of sectors to be displayed from the current  'position on the disk. You may also edi: to cont.";track end of 'E' 'F': begin text 0,%  ? This command is used to find a bad sector. It will ask for  Fa starting track and an ending track. As it reads each track and  Fsector it will report its progress. Any bad sectors will be  ]reported. % input2 "Press to cont.";track end of 'F' 'G': begin text 0,%  ? Use this command to compute a group number from the  /LOGICAL track and sector. Remember that logi #  q For more info see 'A' above. % input2 "Press to cont.";track end of 'B' 'C': begin text 0,%  ? This command is used to move sectors around on the disk. It  Fcan be used to move physical sectors or logical sectors around. The  Fmain purpose for moving sectors around is to allow re-formatting of  Fa track on the disk. First, move the data on the track you wish to  Mre-format to an unused area of the disk. This area can be found by : command generates a map of a file showing all the CP/M  Fgroups assigned to that file. It also reports on the directory  Fsectors that contain that file's FCB. As each directory sector is  searched a report of that operation is made sector by sector. % input2 "Press to cont.";track end of 'D' 'E': begin text 0,%  ? This command generated a disk map showing allocated groups.  BA 0 is an empty group, un-used by any file. A 1 is a group in us nt the sector making changes  Fto it in an buffer internal to XAMN. And last but not least you can  Fexit to the main menu. Each option is selected by one key press.  $The letters are F, B, R, C, and E.  ? When changing a sector the sector address in hex will be  Fdisplayed along with the hex contents of the byte and the ASCII  Fcharacter it represents (Period if none). To enter a new value type  .it in, to move forward push return, backwardcal groups start in  the directory, NOT in the reserved, or 'OFF' tracks. % input2 "Press to cont.";track end of 'G' 'H': begin text 0,%  ? Use this command to compute the track and LOGICAL sector  mnumber for a given group. % input2 "Press to cont.";track end of 'H' 'I': begin text 0,%  ? Use this command to select another disk. XAMN commands are  Nin reference to the current disk number (see the display above the G generating a map of the disk using another of XAMN's commands (Map  Fdisk, see also help 'E'). Second, exit XAMN and using your system  Fformat utility format ONLY the track with the bad sector. Re-enter  1XAMN. Third, move the data back onto the track.  ? This command will start by asking you if this is a physical  Fmove or a logical move (use logical if you want to move CP/M groups  Garound). You can exit at this point. Next, you will be asked for 3e  Aby a file. WARNING: this command makes a BDOS disk select call.  ? At the end of the map a few groups that do not exist may be  Fdisplayed as empty. This is because the disk map is made up of  Fbytes where each bit in the byte is a group, the last byte in the  Fmap may not be fully used up. At the end of the map the last group  #number is given, use this number.  O This command can be used to find unused disk space. % input2 "Press   push back space, and  Fto exit push period. Upon exit you may re-edit, write the sector to  the disk, or abort leaving the sector on the disk un-changed. % input2 "Press to cont.";track end of 'A' 'B': begin text 0,%  ? Use this command to examine and edit logical sectors.  FLogical sectors are the sectors that the BDOS refers to, the  Fphysical sector number may be different. It is the physical sectors  that the BIOS access. 6M the starting track and sector number, the destination track and  +sector and the number of sectors to move.  ? BEFORE each sector is read or written you will be told of  Fit, if an error occurs you can see where it happens. AFTER the  Foperation the program will move on to the next sector if all is  well or print "Fault" to show a read or write error. % input2 "Press to cont.";track end of 'C' 'D': begin text 0,%   This menu). % input2 "Press to cont.";track end of 'I' end of help case statement if menu_selection=03H then stop goto 0menu 8Ͱ!!1& *>/#">/ !{.>)#!}""_,!M0*_,&0>!*_,>!/>ͅ>" .*_,>!/>ͅ>".*_, >!x.>,!".*_,!..>G!*_,!/.>G!!""-!">/*>/ |*-*>/P"0>P!*>/#">/*_,~!C/P!!C/ ͝!|2a,!C/ ͝!|2b,!C/ ͝!|2c,!C/6!"@/">/."O0*O0*>/̓"*_,3*@/*_,**>/~O !1,*>/3">2!*_,**>/~_W*@/"@/*>/#">/W!,n&!,n&= }2.:.og!0-n&= }2.:.og!c-n&= }2.!#==" @ 4, 0 SAY "||" @ 4,78 SAY "||" @ 5, 0 SAY "||" @ 5,78 SAY "||" @ 6, 0 SAY "||" @ 6,78 SAY "||" @ 7, 0 SAY "||" @ 7,78 SAY "||" @ 8, 0 SAY "||" @ 8,78 SAY "||" @ 9, 0 SAY "||" @ 9,78 SAY "||" @ 10, 0 SAY "||" @ 10,78 S=AY "||" @ 11, 0 SAY "||" @ 11,78 SAY "||" @ 12, 0 SAY "==" @ 12,40 SAY "==;" @ 5,29 SAY " 0. exit" @ 6,29 SAY " 1. mailing labels"V2#D/TBMEQSVH@#.-DI NPAK_FLCV  = y CABCD&s1a&s0a  COPYRIGHT 1982, PAWLUK CORPORATION5455 Wilshire BoulevardLos Angeles, CA 90036(213) 937-0551^#VN#F!}~#zo*!U.>)Þ!/.>S |2!/>͝!!.c!!C/P!=!C/.>P!!/>͝!!C/͛!!/e!w!!0L!!0͕ >3>!0GͰ!!0&  !B/Ͱ!!B//>!< !-.6!C/6!0.>)Ø!0/>L!!0͕ >3>!E1GͰ!!C1&  !C/P!!C/͛!!/>͝!!/>͝!͔ !/!” ]c-K ͝!!0-K ͝!!,K ͝!!,K Ge!w!w!!.Ͱ!RW0!-͛!` ),*_, !0x!t&,å*_, !0x!Ž4,å*_, !0x!¥B,!{.9 < !S00>L!!Q0͕ !>06!?010>G!!G090>G!!">/*>/ |!I0*>/6*>/#">/!>0"<0!02 W* .".*-".R50!d,͛!` ):b,i!"1*1 |i3>+"1*1*1̓" *-*1P">P͝!!1>͝! +" .: .q ͜ *_,>!1>ͅ>"1* .#"1*1*1̓"/* @ 7,29 SAY " 2. inventory program" @ 8,29 SAY " 3. checkbook program" @ 9,29 SAY " 4. help" STORE 5 TO select DO WHILE select < 0 .OR. select > 4 STORE " " TO mselect @ 12,33 SAY " select : : " @ 12,41 GET mselect PICTURE "#" READ STORE VAL(mselect) TO select ENDDO DO CASE CASE select= 0 SET TALK ON SET INTENSITY ON SET ESCAPE ON SET BELL ON CLEAR RETURN CASE select= 1 DO Lb-print CASE select= 2 DO In-ma*_,>!/>ͅ>* .̓"7R;0!/>͝!` )!"-" .͜ !">/*."F1*F1*>/̓"!"@/*_,>!/>ͅ>"H1*H1*@/̓"*-*>/P"*@/"J1!J1& *@/#"@/Ã*>/#">/S*_,>>"@/!">/*_,>> X!/>ͪ> >"L1*L1*>/̓"4R*0>͛!/>͝!` )*>/#">/7RL0!-͛!` )Ra0!d,͛!` )!">/*>/ |3/#">/g ×< !{.>)!S1/>L"!!Q1͕ !{.9 R0!-͛!` )R0!d,͛!` )!">/*>/ |3>"-!" .͜ !1*1L>G!*_,>!1>ͅ>*1n&N " .!"1* ."1*1*1̓"; *1*1] G!1>!!1& *1#"1 RL 0͛)!"1*_,>!1>ͅ>"1*1*1̓" !1& *1#"1o *."-*." .͜ >22!,n&}22:2og:2og̓" !,:2_ G!1>! *-*_,#>>> m!12!; !,:#*|<*~<=!9: ͇62w=>͔ͯ|}~> <͔ͯ|s*w=*+*^#V6+6++W#͔>"N#F#~͞q#p#w>͔>*~!=>!*" s#r#w=*  }!36 4>23*3!4#4#4~#N#F#y#x#:3*3!!:3g<&:3~G~#~O?Ҧ#~¦! p! y! q<ª<&ɯ~#N#F#w#q#p ~#!!ͬ! 6?<= _!x ^ |*. |G!2́*2^#V}*.}GA!2́:.e*2^#V}*.}Ge!2́:.*2^#V}!2́^#V"2!."2*2"2!2͊&22!2ä^#V"2:.:.*2*25!26:2  ú !2:*2 *25!.6!2::.*26F22:29!."2!"2!2͊&!.6#6!26 ^#V"2!."2*2"2!2*p!."2!"2!2͊&m:.*2~ ڊ*.#".*2~ ž!.6#6:.*2~ *.#".!.6#6*2~ *.#".!.#!.6#6*.*.#̓"|!."2!"2!*##^ ~?# xCON CON RDR PUN LST M!+ ~$¨1t\[l¨$¨!~ ¨! ʝ#|x=Gy>ɯ*+ͪ^#VͲ#{#zͪ6#6Ͳ r+s!?3F#~ !?36P  U* U*!@3^r+s6 #6 !@34^N*|9}=&511O>~EE>͇N*|qY1=^yjU*m>~}=}>͇q2 */" ͹{Ͳ* *#: OͲ#s#r͹ڠÇͲr+s{!4* +>|+ /2_ G!2>!6 * .*_,#>>> m!12!; !16!1n& :a, !1!1͛!!2>͝! G!1>2!>22!1n&}22:2og:2og̓" !1:2_ G! 2>!!2& !24 !1͛!N"2*2}3>! 2GͰ!! 2& !,:2_ G!2>!!2& !24ë ^#V^ #V! *3> K*  3 |G |{z= FZ ʆ Oʆ } # ʊ h Å e gl #~wí !9_#F#O FNwxG>O>G!$q#p#61"3"323x23 23!3~5Lw=¢:3¢*3Gx|g}o ""G!9!y??)0:1Š"# #yJ) ?xDMox&9`iɷ҈!9VzwzO#eʄ¶ ¶ ! 9/GO~¶ O¶ ~q+¬!96#=¿O!9Fxny! 9~WwzO+_ 2͊& !.6:.!3:"3!9"3!3?! 9^ 3~# D* 3^#V|Y* 3*3 *3 nb*3 !3>!è!3>͝!* 3c!!3Ͱ!* 3~#* 3^#V)))|* 36P#6* 3~#* 3^#V))|* 36#6* 36<#6* 36#6* 36#6* 36#6* 3 6* 3^#V}}23* 3^#V}e!344* 3^#V}{>23* 3^#V}*3~#¦*36#6* 3"*3*3"&3*3"(3! 3* 3^#V|* 3"43!"63!,3͊&^#V^#V?*:.!&͊&2z}o͔͞~2͞"ͯ: :@G: *p:4#6:[*++"d}+h}|2""1"| ##"6*s#rUy{ y*:wګ6*"<:y*w#w͔ͯ͞q͔ͯ͞NL*~" 4#4#4͔ͯ~k͡*>Ͱ͔ͯ~>Ͱ*~ʘ>͡/*!*~!/2 *|(^#V{zz<2z: qNL { >+ ~ !  # # H o&!2Ê&"42!22B ^#V"62*62"82!82\Y Ç O:.y !9Gʀ ~#'q q yÇ O:.   {§ *.| j& *.*.̓"#̓"> > > {=>'!9=~#' {>' {=>'{>b*.++|2<2!:2:ɯ7>7>2G2"H2"J2`i"L2!9"N2!=2S2 ~# X*2~*2~œ!2>͝!G3!!!0. !0."2!2!2>͝!G3!R.!!. !."2!2*2"2!2!2?*2^#V!.s#r*2^#V!.s#r*2^#V.O!/6 +~#w!. s#r!.4)./.02 I/O Stack Overflow:.f!."=3!93c!836q:.283!.6:83 ڀ*.#".:83 !.6#6:83""*^#V#"^#Vͪ͞"ͪ"|ͯ|~ͪ͞yaA =.:;<>[]y * $1) o&))))\xH  F#w F*#uAuG:z 6p4+ʤ#ʰ#*œ6?àw‹ʷä#6 °. #*6?w#6 %#6 /!9~#= n"3>*3"3!N*3"3!N*3G!9!xʪ ʥ+w$%Š"gå-l0":"0T])ڊ")ڊ"ڊ")ڊ"o|gڊ"\{ʺ$%Š"}û|ڊ"z-{"o&9}O!9 w#60#60! 9~ !97>?'w#-!9~S'~#S! 9~.9+60E0E6 #-+r>o&9y>o&90w+j6./G! ¶>0 »>-3T]))寕iO>`G>0 < DM0 l1 SYSININOUT1<ed##^#V#{_zW#{_zW"4z)#{R###^#V# ##s#rs#r#s#r+++~sw#r####}*4}|#*{z#+F+N+V+5^{#{z#}|#{ʦ#ڦ#i`~sw#r##q#p i`N#F#^#V~#q4#p+i`##s#r#+#+ FREE Request Out-of-Range$ Free Space Overwrite$:423i`"3!3~6"$_$ԓ$*3:423N#F#^#V : G$ %@23`i"3>23[$_$͓$>23!3~y$%‡$ :3=23g$^#V"3!3%:3?4M&3-&&!^#V"3!^#V+}o"3&*3*4{z$H4M&>23!3"35%~%^#V#NONRDRPUNLSTBADG!/~>)#)+ Condition Stack Overflow$4Ox!l4 w#s#r#s#r!9!/ s#r!/N!l4 +++++w)#{)#zʕ)++~w)++!/5!~# ¤)à)!/N!l4 +++++¿)#~#)+{)#z)++~ÿ)#^#V=!.~?*5:._!.^#V"...~# **.))))). )| &**.|}* %w#% O~#;GxNZ ¶ > f¶ #Z!9!97>?'w#v!9!7>?'w#‘ì!9~#¸!9#>ê"!9Z !9Z !9͝ !9͊ !45!9|  7 !9! 9k ! 9w#J !9~k <7>?'w#n 'w# 7>?'w## ^{w{W#¡ ! Ê& ȇ ) yw# ~# ~#W   0'0hen #F*30%%*3i`0%%*36*3 "3:3=23$}|!3~M%Q4M& :%*3MD%3 w#^%*3*3}O|G3|%"4" 4yo`" 4* 4|% " 4*4]Tu&* 4T]p&c4M&*4"4Í%u& %%#%>ɯ %w#%a{3 %:4@w#6:#   &w#{&6.#&!3|%?&k&<Z4M&! w #F& 24!(4 w#W&%!4͊&GKҢ&Mbkâ&o(Fn(Nn(N#Fn(^#V"/y2/xҵ&i&ͯ)&&x&>&!.{#z*.*.)xyx&ae_*4s#r"4*4#"4*4DM!4x~®+#~+®++F+Nq#p*4+"4E+Ҭ+=_+!+~O~#~G!/x‡+yʤ+ >O6# ~+ n+=ɯ ~#fo+++!4~#+*4+¸+++,  Insufficient Memory$ Invalid I/O List End of Execution$P,,$ZSCRN ,,$MGEN :,$CGEN H,$DGEN b bb P#!9Ox A!O 1!=!#;! $! 1! > #;!~#o>gxG\!G!wF#"3x͝!w!*3!9G_>WObk++ʗ!~+!y~#/g{ozg!"Ê&""""" Conversion2"!"Ê&""""#}OD*4~###~#fo"!"Ê&""""" Free Space Exhaust  [ Sign = ' 'E1P1S1&1 1 1 1 H 2 2 2 22.22 Invalid Format Item42<2G2H2J2L2N2O Stream/Record Sequen/Direct Input/Output Keyed Access P< $con Z22.2P2^2l2z222>22 222222222222   3.dat 33*3 3 34363=3837 OVL,44444OVERLAY,  . DRIVE SIZE NESTING NO FILE READ - pad and arrow keys), the default printer assignment (serial vs parallel), and the initial baud rate assignments." ** Config ** "Backup Instructions",0 "The option displays instructions for backing up large files on floppies using the MUFBAR backup system." ** MUFDESC ** "Backup files",0 "This option will backup files onto floppies." ** MUFBACK ** "Restore files",0 "This option will copy files from floppy onto the hard disk." ** MUFREST ** "Examine file ys",0 "This option allows you to examine files backed up using the MUFBAR system." ** MUFLOOK ** "Floppy Format",0 "This option allows you to format a floppy diskette in Drive C:." ** FLPYFMT ** } tion displays instructionMUFBAR backup system." ** MUFDESC ** "Backup files",0 "This option will backup files onto floppies." ** MUFBACK ** "Restore files",0 "This option will copy files from floppy onto the hard disk." ** MUFREST ** "Examine file   f     x                             !!!!!!! !!!! !! !! !! !!!! ! """"""" """""" "" "" """ "" "" """" " ####### #### ## ## ## #### # $5$$$$$$ $$$$ $$ $$ $$ $$$$ $ %%%%%%% %%%% %+% %% %% %%%% % &'&&&&&& &&&& && && && &&&& & ''''''' '''' '9' '' '' '''' '((qgCV015/S2.0KAY-PRO DUP 5"-48/40 2S DD SS30510-1J  30510-1  (