IMD 1.17: 5/01/2010 22:07:07 mbasic 5.21 bazic 3.03 1!"̀)À>A Not a SYSTEM Diskette (^ 1!"̀)À>A Not a SYSTEM Diskette (^ BAZIC14 COMjCRT 0027 BAZIC10 COMj BAZIC12 COMjMBASIC COM> !"#$%&REL06/04 OBASIC COM'()*+,-./RANTEST BAS0BAZIC08 COMj1234567BAZCONFIDOCE89:;<7!5iP)g4)Y4)*D]4)\4)4)E4)&5421D10]01>2*->20+#";-S=->25+1)s7+>22+>2)2-+0L*;-[=-N (! ( 8R0*;-:5+(*1-6Ä"9-:5+(*/-/)*1-#)\Ͱ N:( *+" "=-!6(cͨ !)):6#:] (!hiw2*-*;-"(-å Q"7"!"K+> 2b+y:*- :5+(25+#*;-J25+2)P(>22+!S(U({7+!"1-2/+26+:-+(1*3-M,͘$> !M,(Rb+*3-[5- "3-KEU(:M, (k8:, D7 ܰ g! ,!ͦ! !1+:)(4)G ((:x*C+*b+!M,6 ͤ(O͔(O2(-24+ w!M,b+!](\(_((  _((Q;M 8N:4+  (w#6 G\( ͔(Ob+!M,6 2Ä ( ͮ \( ͮG  (%\(:(-(+6 :4+ : G\( \(>G\(:4+<24+\(>\(> e@\(U(:6+E*--(E!M,͑#8" , ,0~; 6,: 6\[ 6(] 6)G # ~ (f" ~ ([" x ((((( ( (0͔#>D}ځ  x 0~,yD2,> !qO~ v# ~_ܰ !g!{A7RUNLISTMEMSETSCRAUTOLOADCONTAPPENDRENNSAVE SAVE BYE EDIT DEL PSIZECATLETFORPRINTNEXTIFREADINPUTDATAGOTOGOSUBRETURNDIMSTOPENDRESTOREREMFNDEF!ONINSTATOUTSTATOUTFILLEXITOPENCLOSEWRITECHAINLINEDESTROYCREATEERRSETCLSAPPENDSTEPTOTHENTABELSECHR$ASCVALSTR$NOENDMARKINCHAR$FILESIZEFILEPTRFILECPMFN(*+-/ANDOR>=<=<>=>=<<=>NOT^INTLENCALLRNDSGNSINSQRTATNADDRFREEINPEXAMABSCOSLOGEXPTYP[ ,5#0"-:,([9- R#(.8*9-(*=-R!*9-S9-*-(S9-!,[-~O> 21+2/+!"C+x ҁ"?o&()@  d   p x --   -  )O,LI~1)s7+z#Ͱ U(*;-~=ʄ+"A+6 22+23+2[+!"K+y 84H! 2!҄!ͭ!Ͳͣv! ! Q"7"s9+*;+"=+ͦͼ 0(:2,-! *;-*9-(.#ͼ !*9!ͭ!>ͼ!"*-W 8(  **-w2,*;+~”++͞8 )”N#F:,̔-~()s DMZ0";+ ()ͼ *;+~”";+ځ͊####ځ͊#ͼ ͭ!>ͼ!###͚'zM"(ځ(!> ͊#"(X͠e!!:F-(>21+0ï "! #~ʁ #\0"( >21+*;+#͗"ҁځ~#()###*;+#͗x(z(&~## (z(7!!F-6A>";+#<>#;*A+ͼ0 ڄ( 8h!>"͓ ͼ0"A+>1;ͪ(>";8"--(#!>26+?\(E26+U(M,(ͳ#8)ͼ8(x ?\(> ͓  x !(U(  INPUT ERROR-RETYPE " !\  ~ ȸ#*;+~ʔ( (+V+^+";+~Š +N+!)B)";+~($͗ͼ y[;+#x(S;+)͠*;+ͼ z[;+S;+>2.+*?+"=+21++V+^+~+";+V+^+";+h!ͭ82!C!͚'C!Gͼ2!C!ͭ!!͚'ͭ!(ͼ0!sͼ 8%>23+*;+s7+M}! |"Ċw'u!t"A͊$^( 4)$$nw$"4)n>25+8!J#"1-ѧRd*;-"(-2*-!\͵ß (͚'|M}M M͔(}**-wͼ:)G͚'z>(@2*!0+!\͵6 ?6 ?6 ?\4)\4) ~ (,#͑#ځ|M.u6  |Rd# #} B8 z0! "`+!,7͓ >  >('ځ͊#"U+!R"W+!R"Y+>2[+(:)!F~< G# 4)ͤ(**-6!!9҄2.+:.+ L͞8 R̓!<(_03~"0-!2N~!(m!0 0S:.+ʁ*.+-(( #> ~( ~#ͣ~[;+ !";+DM!#()#*.+-ʁ!́!͠!!O 0'4]0&5b421 D1 .-- - .#",! >U(~:) :,-(= !Y(U(:=2,- ,Z #(U(*,R0#()͘$##~(u  !~(͑#>[R>*9-RMS *;-6"9-*9-#w";+*=-"E+4ͳ23+ >2-+Â2-+! "3-"5-͑#8"3-ͼ ͑#>|M"5- !:3+ʄ22+23+";+ J#*;-N# ("## >- /)J#8 [7-#)*3-[5-*;-Ny=tu ! ʁ̓#b+Z (U(Â͑#>͉#!͑#>͉# ! R>>*9-B#DM o& ,͘$> (!K([;-*9-R#}($|(͑#}02\4)!]6?^ >\4)U(!(!a (X  \(X  \(= U(>F\(# : "͑#8!J#"1-[/-R> *;-"(-25+>2*-!!\͸\4)<>[(-4)\4) *(-"(-[=-R!\4)!!\͸\4)<>\4)ʓ ͠h!*`+͘*;+R";+R0#)BK*;+#xR!͠h!!͠>;0!L0̓!͠ͼ ڔ2)P(!F(23+g*;-Ԋ#+"A+D"(0 U( /%(g@K"(%͠*;+e!$ͤ(G͔(ܛ(ͼ(U(*;+͗";+#z(͔(Gͤ(ԛF\(#:)G:0+U(Q"#͑#03!M+Z C  A $ # 6"B09}2O+"I(E(F %͑#8| }!O+0#w2N+!M+~ˎO7"oW!͚'!zM ͤ(o\(!͚'!͚'{W!ͤ(**-r5!~< o# 4)*D]4)\4)oÄ͚'!͚'zMY͚'!͚'s#!͚'A_ng :Ͳ$u%t&>%;8͚'!͵4)$w$#!͚'A_n>%;8'!>;>&;"(1͠e!!?-~ 6~#ͼ0>ë͗|## > #>|}*;+R";+#z(~#͚'M{͚'A_n>%;8'!>&;0k(!Rw#ͼ0J*`+( RW_*;+!";+#z( w#Þ Ro&̈́'h!b$͹wf&n%N' ͫ4'$͊6'4!4"4#b͹~)M(#U/ !17>DJP (!X"0RzMn&̈́'|!!"`+!,7͓ !F-, (ͳ#ڄ!F-̓!L!!\6 ?6 ?6 ?͵4)4)!40(!( F-ͳ#n!F-̓!!\!!40_!!RI!I!͚'ͼ ͚'!I!͚'zM{%Mͼ ͚'4)IA6Gx" O&($ ( ($ %BK40Ô-͝'A_n#4)~#! n!f"0#Ä'͝'A_nn!f"'̈́'K;+T0͓.K;+o&̈́'[;+͔-e!e!*E+[;+R͝'zMKhb͝'n&Ä'͝'An!(#8# PY\! BK(\w\w\w\w\w\w>Aw>`ifG~ (  # $\!>ɯŷX"0$!>~"0Rz(BK͛! >;0!͚'{ͼ!!!͚'{(4)(_ : !͠!D"*;+e!$X"\+6A;<E7S2b-h(*1-"9-6p}*9-+:/+(*G+"E+*I+6#6 2*-( :2+ :[+2)P((!s(:2+g*;-N R(0B#()!z( ,͘$> ! ,(gȹ 7! (\(# EsH!xA*=-+_R^#V+z( ~# ##"I+yͼ!ͭ!7!L0!F-*;+";+*;+B";+#*;+ !";+<2.+*;+ !";+*;+##!r";++s*;+#!w";+*E+R8 *;+R*9-#";+Ä,#)"Á~ #~# !"̈́&"͑!"$*M+"Q+*O+"S+*Q+"M+*S+"O+!#"M+ɷ >"" ;"\+G~# ʁW>; R2!H/)!>ͼ!(%̓!ͭ!>ͼ!͠h!", ͼ8T͓ )>);8?ͭ!ͼ!:1+!9!)rDMy*;+#S;+_1)ͭ!*=+"?+>;Ä͔#>*;-~7#)+N *3-*;-"/-"7-Ny=7#)+?[5-M#"/-+ ! *;-͔#>5#d!"$-:(?_:(0$M+ɯ2-2-+(( -( >2-S$-"&-+w+:(8'. :(87:((8 E(C3:(0x$:((8.(x$:(8.(E(@#!-*&-w[$-:-G:(8+(( -( 2-:(0_:(0$:(:-{(D (A #w0#6ɯ'ʹ$ʹ$dʹ$ ʹ$}B8 BѰx0"^-bk)))*^-_zW"&->2-:N+#(pIʚ%Eʰ%:O+y(zMP{Y!)M0#z+{s#r#~#fo^#V#REVISION 09-16-82 COPYRIGHT 1980 MICRO MIKE'S INC.̈́'*W+h!:*-o&̈́'*Y+h!2[+{9+*=+";+*U+###ARG"DIMENSION"FUNCTION DEF"OUT OF BOUNDS"TYPE"FORMAT"LINE NUMBER"FILE"HARD DISK"DIVIDE ZERO"SYNTAX"CONTINUE"TOO LARGE OR NO PROGRAM"DOUBLE DEF"CONTROL STACK"MISSING NEXT"READ"INTERNAL STACK OV"INPUT"MEMORY FULL"ARG MISMATCH"ILLEGAL DIRECT"LENGTH"NUMERIC OV"STOP" BLOCKS"READY"PRESS ANY KEY TO CONTINUE" ERROR" IN LINE "!A[?#!0:?#̈́G͑?СO͞ځ>$;>,"ݾ+7!!F-ͳ#!F-Ã!>;n#f#:1+ ”:2+"ÄF-_!'Z:4):2+:E2*-:[+ ͭ!ͭ!!DM> ͳͣv!++++ ͭ!ͭ!(#)*;+R##DMͲͣv!###"G+>2/+*I+#)*E+B!"E+# T]w͞ځͳ9 >ݾ(2!0Q Ͳͣv!>#2!h##͚')M##N#Fx( (+!!#2!D/)S`+/)"\+S^+>;?08͝ RM*\++"\+ͼ8 ͝ RMS^+!*^+RM#"^+"`+7[^+*\+>=*^+*\+*`+͚'M"`+"\+"^+"\ ( !1+~=7ȧ###! \!1+ͭͼ "&#[M+~ 8+kN'c( >"6"+6 $CN'r(* -:O+G*"-+T]"c -N'>"p #wCO+~(+O0=G+~ ~(xA8)(:O+"%W2P+:O+<&6"%!-6"+6 ~2-(Aw:O+&~.(#6E#:-+( A%-Dp#_ͫ$:N+# >"w%!-~" 6 %!M+f(=G> !-6"+w" -+6!~]'A0DG:P+<.'6.( #N f60#N( [!M+v( 8O !F-ͳ#Ã!͠(O~$8c q yO'~#͠(~ (DMS ( (z_J8'_0, $(=w({'~##jM*;+e!~!T\M(A*$-~2-#"$-:0?7ͤ( \( X:)(84)xͤ(**- 6 5 84!):)("*-~!)>#;>8-͚'ͼzM{M>#;>8͚'ͼzM{M2) "~G ʁ\(#o$x!o-o- (#o`i ~+f-@-D8_!VG`- 8 D G!g-C/!g-~P0f-F+1.'+8>#g0<$/!f-'w+0!f->'w+# #  !f-AC/ xw}.6f- >G+(w+  !u-bkw!u-A/!m-+~(OI/>w ~(u-OI/ +`-08/G~@(*/>0/:ÄG怰g-_! !o+շ'w+| ! "(-!-+bkw+!w-A/g-!-/*(-w!w-/*(-o#"(-08/goA(/>/$/W{怲 '+0I/y!~( P+> >'w+ > 0BP@A%`CeS`E( x0K;+\0͓.͝'+"K+_g_o"K+e!*K+}-0?|g}o"K+#̈́'K;+\0U/M@G(1>V-_!V-N-U/V-N-̀-D0V-͓.N-V-͔-= i2"'UsB;%p4qxDc#7spf'uA8N-\!N-U/!N-_!N-_!N-͓.> N-V-!51V-͓.8V- (4͔-!V-5~(w_!(#@333#RHc`P@'Yc)E'gH@w&xPgvd?D5u3R"'C9!P?q@IsT >/"INPUT"MEMORY FULL"ARG MISMATCH"ILLEGAL DIRECT"LENGTH"NUMERIC OV"STOP" BLOCKS"READY"PRESS ANY KEY TO CONTINUE" ERROR" IN LINE "!A[?#!0:?#̈́G͑?СO͞ځ>$;>,"ݾ+7!!C-ͳ#!C-Ã!>;n#f#:1+ ”:2+"ÄC-_!'Z:4):2+:E2*-:[+ ͭ!ͭ!!DM> ͳͣv!++++ ͭ!ͭ!(#)*;+R##DMͲͣv!###"G+>2/+*I+#)*E+B!"E+# T]w͞ځͳ9 >ݾ(2!0QͲͣv!>#2!h##͚')M##N#Fx( (+!!#2!D/)S`+/)"\+S^+>;?08͝ RM*\++"\+ͼ8 ͝ RMS^+!*^+RM#"^+"`+7[^+*\+>=*^+*\+*`+͚'M"`+"\+"^+"\ ( !1+~=7ȧ###! \!1+ͭͼ "TTEN. EACH PAIR CONSISTS OF THE VALUE TO BE WRITTEN AND THE" K "NUMBER OF BYTES FROM THE BEGINNING OF BAZIC OF WHERE THE BYTE IS TO"  "BE WRITTEN." K \"THE BAZIC DISK MUST BE IN DRIVE ONE FOR THIS PROGRAM TO OPERATE"\ % "PRESS RETURN TO CONTINUE ",X$  \ CLEAR SCREEN $ "1=ZENITH Z-19 OR HEATH WH-19"  "2=ADM-3A"  "3=INTERTEC INTERTUBE"  "4=HAZELTINE"  "5=SOROC"  "6=NORTHSTAR ADVANTAGE"  "7=DIGITAL VT-100"  "8=OTHER"  \ C "PICK THE NUMBER THAT CORRESPONDS TO YOUR CRT (0 TO END) ",I * I0 IC \ ID RESPSE CHECK " I0 , \ CLEAR SCREEN 16 "1= 8 DIGIT SOFTWARE FLOATING POINT BAZIC" 1@ "2= 10 DIGIT SOFTWARE FLOATING POINT BAZIC" 1J "3= 12 DIGIT SOFTWARE FLOATING POINT BAZIC" 1T "4= 14 DIGIT SOFTWARE FLOATING POINT BAZIC" 1^ "5= 8 DIGIT HARDWARE FLOATING POINT BAZIC" 1h "6= 10 DIGIT HARDWARE FLOATING POINT BAZIC" 1r "7= 12 DIGIT HARDWARE FLOATING POINT BAZIC" 1| "8= 14 DIGIT HARDWARE FLOATING POINT BAZIC" !N-_!wTB@TBA"*-_!͓.**-"*-͔-=  PY\! -<01Z8̓!͝'N-_!N-͓.3\!2Z!K0_!2ZM̓!K;+2͓.K;+D0͔-[;+'!2V-N-[;+͓.V-[;+͓.N-̀-V-̀-N-_!N-͓.N-V-!2>1N-^-!2>1V-͓.^-̀-^-U/D0͔-PY͔-*;+~w͝'{Z2D{(2U/.t2<wPbCseÆ8P@QA)%FIp"=PDdCubB3(sdeA?yD bCA1b'v`A23U/MM>@BK3Z0=M4N-_!D0̀-D0̀-N-L0͔-N-U/N-_!N-͓.>V-!31>^-!31V-͓.^-U/2͔-N-͓.o&̈́'K;+3̀-[;+͔-e!CBH%@dB1b'v`@s#Ah#p$bP6QyAqC32&)AWP##Bdft CGRV8sB!x5VA̓!2!F-e!͓.È1BK4͔-2-̓!K;+4U/K;+D0͔-[;+'*;+̓!͝'C(:-2-!4V-[;+V-͓.[;+N-͓.N-̀-V-̀-[;+_!K;+͓.K;+N-!%5>1[;+N-͓.N-͓.N-͔-e!:-wpyc&yIA1AY&SXA1AAY&SX$=ffffff3333'Y>& A256\ IGIN OF BAZIC 0100 HEX)  A$12) ? ADDITIAL CRTS ARE ADDED THIS PROGRAM, LEAVE "OTHER" >( AS THE LAST OPTI IN THE MENU UPDATE THE "C" VARIABLE 92 C8\ MAXIMUM NUMBER OF TERMINALS 1 IN THIS PROGRAM *< \ CLEAR THE SCREEN BY SCROLLING IF "THIS PROGRAM IS DESIGNED TO CONFIGURE BAZIC FOR A PARTICULAR CRT." JP "FOR THE PRINT@ AND THE CLS STATEMENTS TO WORK PROPERLY, BAZIC MUST" LZ "KNOW THE CURSOR ADDRESSING PREFIX AND OFFSET FOR YOUR CRT AS WELL AS" Jd "THE CODES TO CLEAR THE SCREEN. THIS PROGRAM IS DESIGNED TO CHANGE" In "BAZIC FOR THE TERMINALS LISTED AND TO ALLOW CUSTOM CHANGES IF YOU" Hx "KNOW THE CODES FOR A CRT THAT IS NOT LISTED HERE. SOME CRTS MAY" K "REQUIRE RE-WRITING THE CURSOR ADDRESSING AND CLEAR SCREEN ROUTINES." J "THIS PROGRAM CAN BE CHANGED SO THAT IT 'WRITES' THE PROPER ROUTINE" M "BY ADDING AN ENTRY TO THE TABLE OF DATA STATEMENTS AT THE END OF THIS" H "PROGRAM. THE FIRST FIELD IS THE NUMBER OF PAIRS THAT HAVE TO BE" G "WRI \ : "ENTER NUMBER OF BAZIC TO BE CHANGED (0 TO END) ",E  E0 E8   E0  \ LE OF BAZIC NAMES  J1 E ) A$\ NAMES UNTIL THE RIGHT E  J % P\ LE OF BYTES KNOW CRTS ! IC \ OTHER SITUATI  H1 I + M\ NUMBER OF CODES LOCATI PAIRS  N1 M 5 NN),BN)\ UES O N ARRAY LOCATI O B  N  H 2 SECTI CRECT UES DISK COPY OF BAZIC #& N58155825\N)8'\N\ '' N,11\#1,A$\N,8\ BAZIC AS A 0 N1 M ': #1%BN),&NN),\ CRECT UES D N E I7N\\N0101\H F #1%13552N,&H,\N N #1 O I7X KP "THE VT-100 CONFIGURATION MUST BE PERFORMED ON THE DISK ONLY. PLEASE" /Q "TYPE `BYE' AND REENTER baZic FROM CP/M." R X N1 M ?b ABN),NN)\ PUT CURS ESG INFO IN RAM COPY OF BAZIC l N 2v SECTI TEST CLEAR SCREEN CURS ADDRESG  \ CLEAR THE SCREEN L "THIS LINE SHOULD BE AT THE TOP OF THE CRT AND THE REE THE CURSOR" Fp "ADDRESSING AND CLEAR SCREEN FEATURES OF BAZIC. PLEASE EXAMINE" Er "THE PARTIAL SOURCE LISTING IN YOUR BAZIC MANUAL AND CONSULT A" It "MACHINE LANGUAGE PROGRAMMER FOR HELP IN CONFIGURING BAZIC TO WORK" v "ON YOUR CRT." ?z \ "PRESS RETURN TO CONTINUE OR ANY OTHER KEY TO END ",X$  X$"" \  N1 6\ 6 BYTE UES 4 N1 \ INFO CURS ADDRESG PREFIX & N3 8\ INFO OFFSETS + N5 \ INFO CLEAR SCREEN ; "ENTER A VALUE ACCORDING TO THE INSTRUCTIONS ",NN) , NN)0 NN)255 \ OF RANGE  N E B1)29\B2)36\B3)41\B4)42\B5)70\B6)77\M6\ SET AULTS - \ MAKE CHANGES BAZIC TEST THEM * DESCRIPTI OF CURS ADDRESG PREFIX   F "THE FIRST THING TO BE ENTERED IS THE CURSOR ADDRESSING PREFIX." G "THIS IS THE CODE OR CODES SENT TO THE CRT TO INFORM THE CRT THE" H "CURSOR IS TO BE ADDRESSED. IF YOUR CRT NEEDS ONLY ONE CODE THEN" G "ENTER A ZERO (0) FOR THE FIRST VA2FCOM" F "BAZIC14FCOM" !P LE OF CODES OF KNOWN CRTS ;Z 6,27,30,89,37,31,68,31,69,27,74,69,81\ Z19 WH19 4d 6,27,30,61,37,31,68,31,69,26,74,0,81\ ADM3A 5n 6,27,30,61,37,31,68,31,69,12,74,00,81\ ITUBE Dx 8,126,30,17,37,255,68,255,69,126,74,28,81,92,49,93,56\ HAZEL D 10,27,30,61,37,31,68,31,69,5,70,27,71,43,72,13,73,13,74,36,75  SOC DELAY 9 6,27,30,61,37,32,68,32,69,4,74,0,81\ N ADVANTAGE B 8,82,6,54,7,195,26,240,27,53,28,195,71,56,72,54,73\ VT100  UES VT100 C 0,62,27,205,35,54,62,91,205,35,54,123,205,15,54,62,59,205,35 E 54,122,205,15,54,62,72,205,35,54,175,201,1,0,47,79,4,214,10,48 G 250,120,254,48,40,3,205,35,54,121,198,48,221,229,253,229,229,213 G 197,95,14,6,205,5,0,193,209,225,253,225,221,225,201,62,27,205,35 D 54,62,91,205,35,54,62,50,205,35,54,62,74,205,35,54,62,1,87,95  24,158,0,0,0,0 V3 Inventory Control III MM-SO-EX-PAY Expanded Payroll (30+ employee cat.) MM-SO-JC-PAY Job CST OF THE SCREEN" ) "SHOULD BE CLEAR. 1=YES, 0=NO ",F ) F0 F1 \ ID ANSWER CHECK 7 F0 <\ NO, SO GO BACK TRY AGAIN CTINUE # SECTI TEST CURS ADDRESG  \ CLEAR SCREEN TEST  Z0 35 .25 ' @24Z)10,2Z4Z)6),"*",  Z J @20,1),"THIS COMPLETES THE TEST. IF EVERYTHING IS OK THERE SHOULD" = "BE A DISTINCT PATTERN FROM THE PREVIOUS !@ STATEMENTS" . "ENTER 1=EVERYTHING IS OK, 0=NOT OK ",F  F0 F1  $  F0 <\ START OVER OK    SECTI CUSM @ * \ CLEAR SCREEN H4 "THIS SECTION ASSUMES THAT YOU DO NOT HAVE ONE OF THE CRTS LISTED" J> "IN THE PREVIOUS MENU, BUT YOU DO KNOW THE CURSOR ADDRESSING PREFIX" IH "AND ROW AND COLUMN OFFSET VALUES AND THE CLEAR SCREEN CODE(S) FOR" PR "YOUR CRT. THE PREFIX IS PRESENTLY LIMINTED TO TWO BYTES, THE OFFSETS TO" J\ "ONE BYTE EACH, AND THE CLEAR SCREEN CODES TO TWO BYTES. IF ANY OF" Mf "YOUR CODES EXCEED THESE LIMITS, YOU WILL HAVE TO CUSTOMIZLUE. EACH CODE MUST BE IN THE" @ "RANGE OF 0 TO 255. ENTER THE CODES ONE VALUE AT A TIME." $ . 8 DESCRIPTI OF OFFSET UES B  GL "THE NEXT ITEM TO BE ENTERED IS THE OFFSET VALUE FOR THE ROW AND" HV "COLUMN. MOST CRTS REQUIRE A VALUE TO BE ADDED TO THE ACTUAL ROW" G` "AND COLUMN POSITION BEFORE THE TERMINAL WILL RESPOND CORRECTLY." Ij "THIS VALUE IS NORMALLY 31 BUT CAN BE 0 OR ANY OTHER VALUE IN THIS" Dt "RANGE. ENTER THE VALUES ONE AT A TIME STARTING WITH THE ROW" ~ "VALUE."   + DESCRIPTI OF THE CLEAR SCREEN CODES   G "THE LAST TWO VALUES TO BE ENTERED ARE THE CLEAR SCREEN CODE(S)." E "IF YOUR CRT REQUIRES ONLY ONE VALUE, ENTER A ZERO (0) FOR THE" < "SECOND ENTRY. REMEMBER TO ENTER ONE CODE AT A TIME."   < X1 25\\X1110\X1\ X\\ CLEAR SCREEN BY SCROL # LE OF BAZIC NAMES DISK  "BAZIC08 COM"   "BAZIC10 COM"  "BAZIC12 COM"  "BAZIC14 COM" ( "BAZIC08FCOM" 2 "BAZIC10FCOM" < "BAZIC1͔#>D}ځ  x 0~,yD2,> !qO~ v# ~_ܰ !g!{A7RUNLISTMEMSETSCRAUTOLOADCONTAPPENDRENNSAVE SAVE BYE EDIT DEL PSIZECATLETFORPRINTNEXTIFREADINPUTDATAGOTOGOSUBRETURNDIMSTOPENDRESTOREREMFNDEF!ONINSTATOUTSTATOUTFILLEXITOPENCLOSEWRITECHAINLINEDESTROYCREATEERRSETCLSAPPENDSTEPTOTHENTABELSECHR$ASCVALSTR$NOENDMARKINCHAR$FILESIZEFILEPTRFILECPMFN(*+-/ANDOR>=<=<>=>=<<=>NOT^INTLENCALLRNDSGNSINSQRTATNADDRFREEINPEXAMABSCOSLOGEXPTYP[ ,5#0"-:,([9- R#(.8*9-(*=-R!*9-S9-*-(S9-!,[-~O> 21+2/+!"C+x ҁ"?o&()@  d   p x --   -  )O,LI~1)s7+z#Ͱ U(*;-~=ʄ+"A+6 22+23+2[+!"K+y 84H! 2!҄!ͭ!Ͳͣv! ! Q"7"s9+*;+"=+ͦͼ 0(:2,-! *;-*9-(.#ͼ !*9!ͭ!>ͼ!"*-W 8(  **-w2,*;+~”++͞8 )”N#F:,̄-~()s DMZ0";+()ͼ *;+~”";+ځ͊####ځ͊#ͼ ͭ!>ͼ!###͚'zM"(ځ(!> ͊#"(X͠e!!:D-(>21+0ï "! #~ʁ #\0"( >21+*;+#͗"ҁځ~#()###*;+#͗x(z(&~## (z(7!!D-6A>";+#<>#;*A+ͼ0 ڄ( 8h!>"͓ ͼ0"A+>1;ͪ(>";8"--(#!>26+?\(E26+U(M,(ͳ#8)ͼ8(x ?\(> ͓  x !(U(  INPUT ERROR-RETYPE " !\  ~ ȸ#*;+~ʔ( (+V+^+";+~Š +N+!)B)";+~($͗ͼ y[;+#x(S;+)͠*;+ͼ z[;+S;+>2.+*?+"=+21++V+^+~+";+V+^+";+h!ͭ82!C!͚'C!Gͼ2!C!ͭ!!͚'ͭ!(ͼ0!sͼ 8%>23+*;+s7+7!_5iP)g4)Y4)*D]4)\4)4)E4)432h1$10A0f1>2*->20+#";-S=->25+1)s7+>22+>2)2-+0L*;-[=-N (! ( 8R0*;-:5+(*1-6Ä"9-:5+(*/-/)*1-#)\Ͱ N:( *+" "=-!6(cͨ !)):6#:] (!hiw2*-*;-"(-å Q"7"!"K+> 2b+y:*- :5+(25+#*;-J25+2)P(>22+!S(U({7+!"1-2/+26+:-+(1*3-M,͘$> !M,(Rb+*3-[5- "3-KEU(:M, (k8:, D7 ܰ g! ,!ͦ! !1+:)(4)G ((:x*C+*b+!M,6 ͤ(O͔(O2(-24+ w!M,b+!](\(_((  _((Q;M 8N:4+  (w#6 G\( ͔(Ob+!M,6 2Ä ( ͮ \( ͮG  (%\(:(-(+6 :4+ : G\( \(>G\(:4+<24+\(>\(> e@\(U(:6+E*--(E!M,͑#8" , ,0~; 6,: 6\[ 6(] 6)G # ~ (f" ~ ([" x ((((( ( (0- .#",! >U(~:) :,-(= !Y(U(:=2,- ,Z #(U(*,R0#()͘$##~(u  !~(͑#>[R>*9-RMS *;-6"9-*9-#w";+*=-"E+4ͳ23+ >2-+Â2-+! "3-"5-͑#8"3-ͼ ͑#>|M"5- !:3+ʄ22+23+";+ J#*;-N# ("## >- /)J#8 [7-#)*3-[5-*;-Ny=tu ! ʁ̓#b+Z (U(Â͑#>͉#!͑#>͉# ! R>>*9-B#DM o& ,͘$> (!K([;-*9-R#}($|(͑#}02\4)!]6?^ >\4)U(!(!a (X  \(X  \(= U(>F\(# : "͑#8!J#"1-[/-R> *;-"(-25+>2*-!!\͸\4)<>[(-4)\4) *(-"(-[=-R!\4)!!\͸\4)<>\4)ʓ ͠h!*`+͘*;+R";+R0#)BK*;+#xR!͠h!!͠>;0!40̓!͠ͼ ڔ2)P(!F(23+g*;-Ԋ#+"A+D"(0 U( /%(g@K"(%͠*;+e!$ͤ(G͔(ܛ(ͼ(U(*;+͗";+#z(͔(Gͤ(ԛF\(#:)G:0+U(Q"#͑#03!M+Z C  A $ # 6"B09}2O+"I(E(F %͑#8| }!O+0#w2N+!M+~ˎO7"oW!͚'!zM ͤ(o\(!͚'!͚'{W!ͤ(**-r5!~< o# 4)*D]4)\4)oÄ͚'!͚'zMY͚'!͚'s#!͚'A_ng :Ͳ$u%t&>%;8͚'!͵4)$w$#!͚'A_n>%;8'!>;>&;"(1͠e!!?-~ 6~#ͼ0>ë͗|## > #>|}*;+R";+#z(~#͚'M{͚'A_n>%;8'!>&;0k(!Rw#ͼ0J*`+( RW_*;+!";+#z( w#Þ Ro&̈́'h!b$͹wf&n%N' ͫ4'$͊6'4!4"4#b͹~)M(#E/ !17>DJP (!X"0RzMn&̈́'|!!"`+!,7͓ !D-, (ͳ#ڄ!D-̓!L!!\6 ?6 ?6 ?͵4)4)!"0(!( D-ͳ#n!D-̓!!\!!"0_!!RI!I!͚'ͼ ͚'!I!͚'zM{%Mͼ ͚'4)IA6Gx" O&($ ( ($ %BK"0Ä-͝'A_n#4)~#! n!f"0#Ä'͝'A_nn!f"'̈́'K;+:0̓.K;+o&̈́'[;+̈́-e!e!*E+[;+R͝'zMKhb͝'n&Ä'͝'An!(#8# PY\! BK(\w\w\w\w\w\w>Aw>`ifG~ (  # $\!>ɯŷX"0$!>~"0Rz(BK͛! >;0!͚'{ͼ!!!͚'{(4)(_ : !͠!D"*;+e!$X"\+6A;<E7S2b-h(*1-"9-6p}*9-+:/+(*G+"E+*I+6#6 2*-( :2+ :[+2)P((!s(:2+g*;-N R(0B#()!z( ,͘$> ! ,(gȹ 7! (\(# EsH!xA*=-+_R^#V+z( ~# ##"I+yͼ!ͭ!7!40!D-*;+";+*;+B";+#*;+ !";+<2.+*;+ !";+*;+##!r";++s*;+#!w";+*E+R8 *;+R*9-#";+Ä,#)"Á~ #~# !"̈́&"͑!"$*M+"Q+*O+"S+*Q+"M+*S+"O+!#"M+ɷ >"" ;"\+G~# ʁW>; R2!H/)!>ͼ!(%̓!ͭ!>ͼ!͠h!", ͼ8T͓ )>);8?ͭ!ͼ!:1+!9!)rDMy*;+#S;+_1)ͭ!*=+"?+>;Ä͔#>*;-~7#)+N *3-*;-"/-"7-Ny=7#)+?[5-M#"/-+ ! *;-͔#>5#d!"$-:(?_:(0$M+ɯ2-2- +(( -( >2-S$-"&-+w+:(8'. :(87:((8 E(C3:(0x$:((8.(x$:(8.(E(@#!-*&-w[$-:-G:(8+(( -( 2-:(0_:(0$:(:-{(D (A #w0#6ɯ'ʹ$ʹ$dʹ$ ʹ$}B8 BѰx0"V-bk)))*V-_zW"&->2-:N+#(pIʚ%Eʰ%:O+M}! |"Ċw'u!t"A͊$^( 4)$$nw$"4)n>25+8!J#"1-ѧRd*;-"(-2*-!\͵ß (͚'|M}M M͔(}**-wͼ:)G͚'z>(@2*!0+!\͵6 ?6 ?6 ?\4)\4) ~ (,#͑#ځ|M.u6  |Rd# #} B8 z0! "`+!,7͓ >  >('ځ͊#"U+!R"W+!R"Y+>2[+(:)!F~< G# 4)ͤ(**-6!!9҄2.+:.+ L͞8 R̓!<(_03~"0-!2N~!(m!0 0S:.+ʁ*.+-(( #> ~( ~#ͣ~[;+ !";+DM!#()#*.+-ʁ!́!͠!!O 0'3A04b32h1 $1 .-p- ̈́'*W+h!:*-o&̈́'*Y+h!2[+{9+*=+";+*U+###ARG"DIMENSION"FUNCTION DEF"OUT OF BOUNDS"TYPE"FORMAT"LINE NUMBER"FILE"HARD DISK"DIVIDE ZERO"SYNTAX"CONTINUE"TOO LARGE OR NO PROGRAM"DOUBLE DEF"CONTROL STACK"MISSING NEXT"READ"INTERNAL STACK OV"INPUT"MEMORY FULL"ARG MISMATCH"ILLEGAL DIRECT"LENGTH"NUMERIC OV"STOP" BLOCKS"READY"PRESS ANY KEY TO CONTINUE" ERROR" IN LINE "!A[?#!0:?#̈́G͑?СO͞ځ>$;>,"ݾ+7!!D-ͳ#!D-Ã!>;n#f#:1+ ”:2+"ÄD-_!'Z:4):2+:E2*-:[+ ͭ!ͭ!!DM> ͳͣv!++++ ͭ!ͭ!(#)*;+R##DMͲͣv!###"G+>2/+*I+#)*E+B!"E+# T]w͞ځͳ9 >ݾ(2!0Q Ͳͣv!>#2!h##͚')M##N#Fx( (+!!#2!D/)S`+/)"\+S^+>;?08͝ RM*\++"\+ͼ8 ͝ RMS^+!*^+RM#"^+"`+7[^+*\+>=*^+*\+*`+͚'M"`+"\+"^+"\ ( !1+~=7ȧ###! \!1+ͭͼ " &#[M+~ 8+kN'c( >"6"+6 $CN'r(* -:O+G*"-+T]"c -N'>"p #w CO+~(+K0=G+~ ~(xA8)(:O+"%W2P+:O+<&6"%!-6"+6 ~2-(Aw:O+&~.(#6E#:-+( A%-Dp#_ͫ$:N+# >"w%!-~" 6 %!M+f(=G> !-6"+w" -+6!~]'A0DG:P+<.'6.( #N f60#N( [!M+v( 8O !D-ͳ#Ã!͠(O~$8c q yO'~#͠(~ (DMS ( (z_J8'_0, $(=w({'~##jM*;+e!~!T\M(A*$-~2-#"$-:0?7ͤ( \( X:)(84)xͤ(**- 6 5 84!):)("*-~!)>#;>8-͚'ͼzM{M>#;>8͚'ͼzM{M2) "~G ʁ\(#o$x!c-c- (#o`i ~+\-@-D 8_!VGX- 8 DG!]-3/!]-~P0\-F+!.'+8>#g0</!\-'w+0!\->'w+# #  !\-A3/ x wm.6\- >G+(w+  !g-bkw !g-1/!a-+~(O9/>w ~(g-O9/ +X-/(/G~@(/> /:ÄG怰]-_! !o+շ'w+| ! "(-!o-+bkw+!i-1/]-!o-/*(-w!i-/*(-o#"(-/(/goA(/>//W{怲 '+09/y!~( P+> >'w+ > 0BP@A%`CeS`E( \0K;+@0̓.͝'+"K+_g_o"K+e!*K+}-t0?|g}o"K+#̈́'K;+@0E/M@G(0>P-_!P-J-E/P-J-p-.0P-̓.J-P-̈́-= !J-_!wTB@TBA"*-(q4̈́-!P-5~(w_!@333#c@'YcE'@w&gv?D5u3"'C9?q@IT >d !)):6#:] (!hiw2*-*;-"(-å Q"7"!"K+> 2b+y:*- :5+(25+#*;-J25+2)P(>22+!S(U({7+!"1-2/+26+:-+(1*3-M,͘$> !M,(Rb+*3-[5- "3-KEU(:M, (k8:, D7 ܰ g! ,!ͦ! !1+:)(4)G ((:x*C+*b+!M,6 ͤ(O͔(O2(-24+ w!M,b+!](\(_((  _((Q;M 8N:4+  (w#6 G\( ͔(Ob+!M,6 2Ä ( ͮ \( ͮG  (%\(:(-(+6 :4+ : G\( \(>G\(:4+<24+\(>\(> e@\(U(:6+E*--(E!M,͑#8" , ,0~; 6,: 6\[ 6(] 6)G # ~ (f" ~ ([" x ((((( ( (0y(zMP{Y!)M0#z+{s#r#~#fo^#V#REVISION 09-16-82 COPYRIGHT 1980 MICRO MIKE'S INC._!̓.**-"*-̈́-=  PY\! -(0e1Z8̓!͝'J-_!J-̓.Õ3\!h2Z!30_!b2ZM̓!K;+n2̓.K;+.0̈́-[;+'!z2P- J-[;+̓.P-[;+̓.J-p-P-p-J-_!J-̓.J-P-!2>0J-V-!2>0P-̓.V-p-V-E/.0̈́-PŸ́-*;+~w͝'{:2D{(2E/.T2<wPbCseÆ8@QA)%FIp=$8hC 2vBtDCA1b'v`Aͪ2^3E/MM>@BKj3Z0=M4J-_!.0p-.0p-J-40̈́-J-E/J-_!J-̓.>P-!|30>V-!30P-̓.V-E/n2̈́-J-̓.o&̈́'K;+d3p-[;+̈́-e!CBH@dB1b'v`@)h81cIAg5`i@BUA̓!͟2!D-e!̓.h1BKq4̈́-2-̓!K;+w4E/K;+.0̈́-[;+'*;+̓!͝'C(:-2-!4P- [;+P-̓.[;+J-̓.J-p-P-p-[;+_!K;+̓.K;+J-!4>0[;+J-̓.J-̓.J-̈́-e!:-wpyc&A1AY&SA1AAY&SX=ffff3333>i'UsB;%pxDc7spf'uA8J-\!J-E/!J-_!J-_!J-̓.> J-P-!^50P-̓.8P-  7!5iP)g4)Y4)*D]4)\4)4)E4)432x1410O0v1>2*->20+#";-S=->25+1)s7+>22+>2)2-+0L*;-[=-N (! ( 8R0*;-:5+(*1-6Ä"9-:5+(*/-/)*1-#)\Ͱ N:( *+" "=-!6(cͨ !)):6#:] (!hiw2*-*;-"(-å Q"7"!"K+> 2b+y:*- :5+(25+#*;-J25+2)P(>22+!S(U({7+!"1-2/+26+:-+(1*3-M,͘$> !M,(Rb+*3-[5- "3-KEU(:M, (k8:, D7 ܰ g! ,!ͦ! !1+:)(4)G ((:x*C+*b+!M,6 ͤ(O͔(O2(-24+ w!M,b+!](\(_((  _((Q;M 8N:4+  (w#6 G\( ͔(Ob+!M,6 2Ä ( ͮ \( ͮG  (%\(:(-(+6 :4+ : G\( \(>G\(:4+<24+\(>\(> e@\(U(:6+E*--(E!M,͑#8" , ,0~; 6,: 6\[ 6(] 6)G # ~ (f" ~ ([" x ((((( ( (0- .#",! >U(~:) :,-(= !Y(U(:=2,- ,Z #(U(*,R0#()͘$##~(u  !~(͑#>[R>*9-RMS *;-6"9-*9-#w";+*=-"E+4ͳ23+ >2-+Â2-+! "3-"5-͑#8"3-ͼ ͑#>|M"5- !:3+ʄ22+23+";+ J#*;-N# ("## >- /)J#8 [7-#)*3-[5-*;-Ny=tu ! ʁ̓#b+Z (U(Â͑#>͉#!͑#>͉# ! R>>*9-B#DM o& ,͘$> (!K([;-*9-R#}($|(͑#}02\4)!]6?^ >\4)U(!(!a (X  \(X  \(= U(>F\(# : "͑#8!J#"1-[/-R> *;-"(-25+>2*-!!\͸\4)<>[(-4)\4) *(-"(-[=-R!\4)!!\͸\4)<>\4)ʓ ͠h!*`+͘*;+R";+R0#)BK*;+#xR!͠h!!͠>;0!@0̓!͠ͼ ڔ2)P(!F(23+g*;-Ԋ#+"A+D"(0 U( /%(g@K"(%͠*;+e!$ͤ(G͔(ܛ(ͼ(U(*;+͗";+#z(͔(Gͤ(ԛF\(#:)G:0+U(Q"#͑#03!M+Z C  A $ # 6"B09}2O+"I(E(F %͑#8| }!O+0#w2N+!M+~ˎO7"oW!͚'!zM ͤ(o\(!͚'!͚'{W!ͤ(**-r5!~< o# 4)*D]4)\4)oÄ͚'!͚'zMY͚'!͚'s#!͚'A_ng :Ͳ$u%t&>%;8͚'!͵4)$w$#!͚'A_n>%;8'!>;>&;"(1͠e!!?-~ 6~#ͼ0>ë͗|## > #>|}*;+R";+#z(~#͚'M{͚'A_n>%;8'!>&;0k(!Rw#ͼ0J*`+( RW_*;+!";+#z( w#Þ Ro&̈́'h!b$͹wf&n%N' ͫ4'$͊6'4!4"4#b͹~)M(#͔#>D}ځ  x 0~,yD2,> !qO~ v# ~_ܰ !g!{A7RUNLISTMEMSETSCRAUTOLOADCONTAPPENDRENNSAVE SAVE BYE EDIT DEL PSIZECATLETFORPRINTNEXTIFREADINPUTDATAGOTOGOSUBRETURNDIMSTOPENDRESTOREREMFNDEF!ONINSTATOUTSTATOUTFILLEXITOPENCLOSEWRITECHAINLINEDESTROYCREATEERRSETCLSAPPENDSTEPTOTHENTABELSECHR$ASCVALSTR$NOENDMARKINCHAR$FILESIZEFILEPTRFILECPMFN(*+-/ANDOR>=<=<>=>=<<=>NOT^INTLENCALLRNDSGNSINSQRTATNADDRFREEINPEXAMABSCOSLOGEXPTYP[ ,5#0"-:,([9- R#(.8*9-(*=-R!*9-S9-*-(S9-!,[-~O> 21+2/+!"C+x ҁ"?o&()@  d   p x --   -  )O,LI~1)s7+z#Ͱ U(*;-~=ʄ+"A+6 22+23+2[+!"K+y 84H! 2!҄!ͭ!Ͳͣv! ! Q"7"s9+*;+"=+ͦͼ 0(:2,-! *;-*9-(.#ͼ !*9!ͭ!>ͼ!"*-W 8(  **-w2,*;+~”++͞8 )”N#F:,̌-~()s DMZ0";+()ͼ *;+~”";+ځ͊####ځ͊#ͼ ͭ!>ͼ!###͚'zM"(ځ(!> ͊#"(X͠e!!:E-(>21+0ï "! #~ʁ #\0"( >21+*;+#͗"ҁځ~#()###*;+#͗x(z(&~## (z(7!!E-6A>";+#<>#;*A+ͼ0 ڄ( 8h!>"͓ ͼ0"A+>1;ͪ(>";8"--(#!>26+?\(E26+U(M,(ͳ#8)ͼ8(x ?\(> ͓  x !(U(  INPUT ERROR-RETYPE " !\  ~ ȸ#*;+~ʔ( (+V+^+";+~Š +N+!)B)";+~($͗ͼ y[;+#x(S;+)͠*;+ͼ z[;+S;+>2.+*?+"=+21++V+^+~+";+V+^+";+h!ͭ82!C!͚'C!Gͼ2!C!ͭ!!͚'ͭ!(ͼ0!sͼ 8%>23+*;+s7+ M}! |"Ċw'u!t"A͊$^( 4)$$nw$"4)n>25+8!J#"1-ѧRd*;-"(-2*-!\͵ß (͚'|M}M M͔(}**-wͼ:)G͚'z>(@2*!0+!\͵6 ?6 ?6 ?\4)\4) ~ (,#͑#ځ|M.u6  |Rd# #} B8 z0! "`+!,7͓ >  >('ځ͊#"U+!R"W+!R"Y+>2[+(:)!F~< G# 4)ͤ(**-6!!9҄2.+:.+ L͞8 R̓!<(_03~"0-!2N~!(m!0 0S:.+ʁ*.+-(( #> ~( ~#ͣ~[;+ !";+DM!#()#*.+-ʁ!́!͠!!O 0'3O04b32x1 41 .-x- ̈́'*W+h!:*-o&̈́'*Y+h!2[+{9+*=+";+*U+###ARG"DIMENSION"FUNCTION DEF"OUT OF BOUNDS"TYPE"FORMAT"LINE NUMBER"FILE"HARD DISK"DIVIDE ZERO"SYNTAX"CONTINUE"TOO LARGE OR NO PROGRAM"DOUBLE DEF"CONTROL STACK"MISSING NEXT"READ"INTERNAL STACK OV"INPUT"MEMORY FULL"ARG MISMATCH"ILLEGAL DIRECT"LENGTH"NUMERIC OV"STOP" BLOCKS"READY"PRESS ANY KEY TO CONTINUE" ERROR" IN LINE "!A[?#!0:?#̈́G͑?СO͞ځ>$;>,"ݾ+7!!E-ͳ#!E-Ã!>;n#f#:1+ ”:2+"ÄE-_!'Z:4):2+:E2*-:[+ ͭ!ͭ!!DM> ͳͣv!++++ ͭ!ͭ!(#)*;+R##DMͲͣv!###"G+>2/+*I+#)*E+B!"E+# T]w͞ځͳ9 >ݾ(2!0Q Ͳͣv!>#2!h##͚')M##N#Fx( (+!!#2!D/)S`+/)"\+S^+>;?08͝ RM*\++"\+ͼ8 ͝ RMS^+!*^+RM#"^+"`+7[^+*\+>=*^+*\+*`+͚'M"`+"\+"^+"\ ( !1+~=7ȧ###! \!1+ͭͼ "&#[M+~ 8+kN'c( >"6"+6 $CN'r(* -:O+G*"-+T]"c -N'>"p #w CO+~(+M0=G+~ ~(xA8)(:O+"%W2P+:O+<&6"%!-6"+6 ~2-(Aw:O+&~.(#6E#:-+( A%-Dp#_ͫ$:N+# >"w%!-~" 6 %!M+f(=G> !-6"+w" -+6!~]'A0DG:P+<.'6.( #N f60#N( [!M+v( 8O !E-ͳ#Ã!͠(O~$8c q yO'~#͠(~ (DMS ( (z_J8'_0, $(=w({'~##jM*;+e!~!T\M(A*$-~2-#"$-:0?7ͤ( \( X:)(84)xͤ(**- 6 5 84!):)("*-~!)>#;>8-͚'ͼzM{M>#;>8͚'ͼzM{M2) "~G ʁ\(#o$xM/ !17>DJP (!X"0RzMn&̈́'|!!"`+!,7͓ !E-, (ͳ#ڄ!E-̓!L!!\6 ?6 ?6 ?͵4)4)!+0(!( E-ͳ#n!E-̓!!\!!+0_!!RI!I!͚'ͼ ͚'!I!͚'zM{%Mͼ ͚'4)IA6Gx" O&($ ( ($ %BK+0Ì-͝'A_n#4)~#! n!f"0#Ä'͝'A_nn!f"'̈́'K;+G0͋.K;+o&̈́'[;+͌-e!e!*E+[;+R͝'zMKhb͝'n&Ä'͝'An!(#8# PY\! BK(\w\w\w\w\w\w>Aw>`ifG~ (  # $\!>ɯŷX"0$!>~"0Rz(BK͛! >;0!͚'{ͼ!!!͚'{(4)(_ : !͠!D"*;+e!$X"\+6A;<E7S2b-h(*1-"9-6p}*9-+:/+(*G+"E+*I+6#6 2*-( :2+ :[+2)P((!s(:2+g*;-N R(0B#()!z( ,͘$> ! ,(gȹ 7! (\(# EsH!xA*=-+_R^#V+z( ~# ##"I+yͼ!ͭ!7!@0!E-*;+";+*;+B";+#*;+ !";+<2.+*;+ !";+*;+##!r";++s*;+#!w";+*E+R8 *;+R*9-#";+Ä,#)"Á~ #~# !"̈́&"͑!"$*M+"Q+*O+"S+*Q+"M+*S+"O+!#"M+ɷ >"" ;"\+G~# ʁW>; R2!H/)!>ͼ!(%̓!ͭ!>ͼ!͠h!", ͼ8T͓ )>);8?ͭ!ͼ!:1+!9!)rDMy*;+#S;+_1)ͭ!*=+"?+>;Ä͔#>*;-~7#)+N *3-*;-"/-"7-Ny=7#)+?[5-M#"/-+ ! *;-͔#>5#d!"$-:(?_:(0$M+ɯ2-2- +(( -( >2-S$-"&-+w+:(8'. :(87:((8 E(C3:(0x$:((8.(x$:(8.(E(@#!-*&-w[$-:-G:(8+(( -( 2-:(0_:(0$:(:-{(D (A #w 0#6ɯ'ʹ$ʹ$dʹ$ ʹ$}B8 BѰx0"Z-bk)))*Z-_zW"&->2-:N+#(pIʚ%Eʰ%:O+ y(zMP{Y!)M0#z+{s#r#~#fo^#V#REVISION 09-16-82 COPYRIGHT 1980 MICRO MIKE'S INC.B@TBA"*-_!͋.**-"*-͌-=  PY\! -20u1Z8̓!͝'L-_!L-͋.3\!z2Z!?0_!s2ZM̓!K;+2͋.K;+90͌-[;+'!2S-L-[;+͋.S-[;+͋.L-x-S-x-L-_!L-͋.L-S-!2> 1L-Z-!2> 1S-͋.Z-x-Z-M/90͌-PY͌-*;+~w͝'{J2D{(2M/.d2<wPbCseÆ8@QA)%FIp"=PDdCubB3(sde?yD CA1b'v`A23M/MM>@BK3Z0=M4L-_!90x-90x-L-@0͌-L-M/L-_!L-͋.>S-!3 1>Z-!3 1S-͋.Z-M/2͌-L-͋.o&̈́'K;+3x-[;+͌-e!CBH@dB1b'v`@s#Ah#p$bP6QyAqC32)AWP#Bdft GRV8B!x5A̓!2!E-e!͋.x1BK4͌-2-̓!K;+4M/K;+90͌-[;+'*;+̓!͝'C(:-2-!4S-[;+S-͋.[;+L-͋.L-x-S-x-[;+_!K;+͋.K;+L-!4> 1[;+L-͋.L-͋.L-͌-e!:-wpyc&yA1AY&SXA1AAY&SX=fffff3333'>i2'UsB;%p4xDc#7spf'uA8Ì]z))DEc9@gQC}DE CsD +"]D  $ |D}DDD<|""XL{LL{PtM=$$YXTZZSR\SZeXY{TzTSYHIyII|(*g(678&+7y8919JHFIHH"+IFFz)) *m*zQ}QQU@VXVaQdQgQ;LM$Xq"9BLdhiUTϫNBTSLOSONԚLEAҒINSNDBV+V,V-O HRAL̶OMMOθHAIιELETŪATI͆EFSTҭEFINԮEFSNǯEFDB̰EƘLSŢNāRASŦDIԧRROҨRRX O/QO҂IELILERIOTωO TωOSUEEXNPUԅƋNSTNNMNKEYILPRINԞLISԟPOEԈINűOASEISԓO O0EEFTO1ERGOKI2KS3KD4IDEXԃUL̖AMEהOPEοUԝΕCTPTIOκRINԑUOKřOEEETURΎEAćUΊESTORŌE͏ESUMũSEIGHTNENUͬESEANDOMIZŻTOАWAХAVPCTEGQI TRTRINGPACEYSTEͽHEROΣROFƤABA SINSAARPTIDTȡAIԗHILŴENĵRITŷO۾yy||PF<2(z{ *z);*)&,,d-D.s)%%'i')1+%+Q+3)NEXT without FORSyntax errorRETURN without GOSUBOut of DATAIllegal funct!i-i- (#o`i ~+a-@-D 8_!VG\- 8 DG!b-;/!b-~P 0a-F+).'+8>#g 0</!a-'w+0!a->'w+# #  !a-A;/ x wu.6a- >G+(w+  !n-bkw !n-9/!g-+~(OA/>w ~(n-OA/ +\-/0/G~@("/>(/:ÄG怰b-_! !o+շ'w+| ! "(-!w-+bkw+!p-9/b-!w-/*(-w!p-/*(-o#"(-/0/goA(/>//W{怲 '+0A/y!~( P+> >'w+ > 0BP@A%`CeS`E( j0K;+N0͋.͝'+"K+_g_o"K+e!*K+}-0?|g}o"K+#̈́'K;+N0M/M@G( 1>S-_!S-L-M/S-L-x-90S-͋.L-S-͌-= !L-_!wTL-\!L-M/!L-_!L-_!L-͋.> L-S-!5 1S-͋.8S- (4͌-!S-^5~(w_!(@333#Rc`@'Yc)E'g@w&xgvd?D5u3R"'C9!?q@IsT >CREEN BY SCROLLING IF "THIS PROGRAM IS DESIGNED TO CONFIGURE BAZIC FOR A PARTICULAR CRT." JP "FOR THE PRINT@ AND THE CLS STATEMENTS TO WORK PROPERLY, BAZIC MUST" LZ "KNOW THE CURSOR ADDRESSING PREFIX AND OFFSET FOR YOUR CRT AS WELL AS" Jd "THE CODES TO CLEAR THE SCREEN. THIS PROGRAM IS DESIGNED TO CHANGE" In "BAZIC FOR THE TERMINALS LISTED AND TO ALLOW CUSTOM CHANGES IF YOU" Hx "KNOW THE CODES FOR A CRT THAT IS NOT LISTED HERE. SOME CRTS MAY" K "REQUIRE RE-WRITING THE CURSOR ADDRESSING AND CLEAR SCREEN ROUTINES." J "THIS PROGRAM CAN BE CHANGED SO THAT IT 'WRITES' THE PROPER ROUTINE" M "BY ADDING AN ENTRY TO THE TABLE OF DATA STATEMENTS AT THE END OF THIS" H "PROGRAM. THE FIRST FIELD IS THE NUMBER OF PAIRS THAT HAVE TO BE" G "WRI ion callOverflowOut of memoryUndefined line numberSubscript out of rangeDuplicate DefinitionDivision by zeroIllegal directType mismatchOut of string spaceString too longString formula too complexCan't continueUndefined user functionNo RESUMERESUME without errorUnprintable errorMissing operandLine buffer overflow??FOR Without NEXT??WHILE without WENDWEND without WHILEFIELD overflowInternal errorBad file numberFile not foundBad file modeFile already open?Disk I/O errorFile already exists??Disk fullInput past endBad record numberBad file name?Direct statement in fileToo many filespP8`@` :C{K2* " * |< " " * |! 4 4 5wY2B!{DP 2R U >(_#U * ~?o !P #GC!BʻY|<1>DA2MSB!E :* > @(K 2 Ç 2 *  C " :b ʢ >(Kڢ <=ʢ (ͬ~ ̾(" ҊSe]" ;5$ܢ"ʇ: \*v " * ͶB" t##s#r## w# y}ͯ!6"*" 7C*"* "â *bk~####~ ҷ ڷù#s#rïC *DM~#+##~#foC`i~#fo??2i 2h ;#~=!@}O|G!""y O:h ~ʂ#Y:aJg>2h 2i U%~|*O~#Ym?>HjZEڗ;;>ʸ;>HOZ#þGO TOUBZ!AO ^#V#ZOd#<y(!!!Z.!>dG>Y2i Y%=+ZOiMk֢ύ>2i W„Y>5W>Y{~.ʧ:"0":i ~O.O>Y(ͬ}Y|Y%~.ͬ:g * |>}e. <֌W-͋9C" :g G:g x=ͬ:g  H * #^#V*Cs* C{! C{>HͣFH(µC(zʢPY" : {:_ u ~GC+K x),  <2~(z˜<* * "~ #####u   =>C,* =( |" 2 " â ~,dC+͆(~ʕ *n €€l>2á Q+!B>ee,%;d)1F6 * 4TF* ::G<:?=:G<:e ?=!B&Gá(* TF~\:I:G<:\V:G:e \!B\/V tz|TF›:::o<ʛ& ,C)+(* TF~:::e /<!B{= @è2go"C#ʧQHLo͋9;*0KDF>-?Redo from start #~ "4N: !!#G* Q!a ;#YHL">2>2 F~,2 ÓC;&G: ʫ>?@> @0KDů2 6,+>2 ͉:~+[(# "4([]), in Ok Break!9~#b  T N#F#`izv C T  *|<ʗ :  D=96543>7@?2C: * "   *" 2 2 |< "  * Y! d! ~Y#=%iʎ%à&O[H> K> Yi>: y +=2i ZY#ZEo:ҋ0o.o%~ Ҡ ʠ ʠ> :i <ʩ=m+~ ʬ ʬ ʬ#>d2 ͋9C" :g ͬ! (" !9T  +V+^##* C" B* *Cd Nz)~S ͒(q)ʹ(QZ~>r)ʹ(E(OdG+ $* "* 3àE3\B" !9" ~: #~#ʅ #^#V": >[@1>]@ցLO! N#F#~: ҆ ځ#:l `#2l f>R~#"j &o"n >2m !~##"j +fC͎*j <2m n G("j ! 0?<=:l ҫ ګ*n ¨###^#V,:m 2g *n " *p " !n (E AOGEAGx3Ø(:l  *j #*C > 2 ,$`i P "  "!>:yHG+ȸ#", ~,B>2 d: =Bd̨H+~,ʿ+N6,E* 2 QC,͋9~,c: 2 TF—Qd¢WG"ʌ: Wʉ:,+FO: y!...+ʽ,G+M: C#~# #^#V" cCC(+B͓2 " * ~" ڎ_4:g {[H !xVzʬQںzʺ! :g  N#F#N#F! N#F#N#FKG* W " Ð)͙(6Çz)uÇxdd!BdX* \FÇy2h :g g+Wx(zOxdz o! N#F* *(" " ͩ( *!:h og~#fox(2g 6" ;)!A͙(*ʹ(" " i*͙(*g' .EJ ]<=ʓ<"FO&i:* ,C(#r PQ͉:C)|)IoBI'UTC)}* k(͋9" d(~a{_&([OʭH¬#~[Eҗ:0ÞG7))))o~ +8  )))0O í)#~ց(7>OyC,;*! _!A!_.!!!/!: -!<-!> >2 { =! ! <~J!#~#X! k*l!~#>l!+!:G@ #T]~u!#y!~v!ʏ!y_¢!: >2 ÷![®!2 !: >2 !> XG{!~#_XG!!2 E0:?+͎ " o6 r6*n )1:l O " H*">&{:m ;"!;"#~ ̾(~#m":m A" ^".h"Dh"EA"A"{v"*j 5$Ҕ"T]C!E #G!* C¦"`i" "\]~"\]C,u "z)d: E()È% PX/#,#BK/#C,/#C,( z`iC[# !C^#Vzn#~#+K#͑#^#Vzʌ##s#r u# 2 *+#~##^#Vʚ#O: y$#¦#¦#3z##£#3 > %$B!$#G11+ã#Undefined line #3###N#F>!#*j +p+q+w: Ò#CBCACSCE: * * C ~0  2 <2 ~̓$#y$\Aʔ$z)ð$!$#G KD#~.~•$z)"j87Random number seed (-32768 to 32767)$*" +%%$ xE(!N(E(y! y )#x+y+z+{z|O(@)}P(! ( E(!N(E(O! y#)+f)I)N(d* )(! 6(&,)Ü)y%: 2 : B*: ½)))|/g}/o)! : )B*" >2g )aj)d* ʹ(6*x(! F#&* 6*|UY(d *!" " >>)d GOW_ʹ((gf*>b&|5&N&z< dE(*t(̀*k(dҦ* )! ~: ~B*6{y%! ~*O+~+¶*!*) *yʹ((+6+q*: O! >%-,2 Ñ,! ~5#*!x"+>);)+ ;=+|G+y4+|Gz)*͙(,N0|)+DM!>)ډ+)q+ ډ+=c+|+x+ʚ+*͙(*'x)*t(| ++DM!>+ +7>{_zW}o|g=+w+|G+|)Ooyg)* +|6*Y(ͨ+g{o)+! ~w! ~G+N (R,/<#Fwx+ B,F+N9(! G>w2 ! %-x,: 2 ,,4ʈ0Q-,>,! -G: º,! Vwz# Ÿ,x’,%! Y-,x,! w%: ,! ~++w! 4#,4ʈ0+60 ! ->! * u )4} )H>2  N#fi-++<(aZz)}/o|/g" :g q7xz)z ,{ʨ+F•{o|P {o|<«{o|2¸{/o|/}//o|//}o|g,::e 2 ͋9:g " " ͬB!9(:g * ~)C,* C,Á2N 2g !9(!9.,:g G:N Od}!P O:* * C)>" : OBO/2 OÐ9~ #~#`J x 2b b + C,u W : u 2_H 2u 2_H 2H /<z)zu 2 2 C,u Y +{>2e]!"N#F#xʇ TFQBN#F#Cچ " 1~ > @ !b !BÑ ~ͥB# b 2 e] #~ %#~#Y #^#V" y~.%$$$$$%** "͋9+%c%C,+8%": 2 2 ! 6ͷ(È%ͷ(t(x: ʩ(Ң%/<͙(ͩ((gb&|! %B&#ʈ0.͉&#&G~_#~W#~ON&hcGy&JTeox%2 |&y%O&)zWyO%x\E#&! w%%x! 5&F#~怩Oé( 4Ç0~_#~W#~O! ~/woG}_}W}Oq&CZQd& oz…&y-O{&Ë&-yOzW{_xGÅ&$cCu͍M r5E(&1r'ʹ(>2 ͙(!&ͧ7͙(ͩ(!&ͧ7i'͙(T(È%E(.(y2<'"7'PX!%!%'! ~#Y'Wy='O|g}oxGQ'x Gz/'CZQO͙(!-ͦ(E(ʐ0.(4g04g0+~2'+~2'+~2'AOW_2'}o|gxG>?ұ'2'7y<=':'x'> $&{_zWyO)xG:'2'y”'! 5”'%>.! N#G.x'(}! Gx&(ƀwW'(w+E(/%g0ʹ(xڀ0G͈%! 4À0: : /<! Op#6%͆(d+ ! ~w͆(og)d E(* ||O(* * ͷ(" `i" ! ^#V#N#F# (:g Gw#(! ~7w?##wy7O! ((! ( d 2 -# -~/w! Oyw#-q<-NsY+1-'- W~w+F-?-! C-~w# [-E(: %'͝.qʙ-G,Q-x ‚-y-Ñ,! --Ñ-L} : A--! (d-: -2 !t(. ! (.&, ! (>.".&,! 3.=-..! 5%! >5=.>! N#F#=(.>! p+q+=9.: ʔ0: %'44ʈ0͝.!7 qA>,?t.>,: <=,! [-!0 Y-xb.! 5b.%y2 +6 ~q+¨.(+~ڈ0w&,4È0%3*j%>2 `h)~&i-.+.+/.ʆ/e /E5/l#/L#/q#/Q4/:g N/>N/~%ʓ/#ʤ/!ʥ/dN/De/ͮ/2S0e/_{_//i/k(d!W')d e/ܮ/.!W'!z)e/ͮ/e/) *d.(.=d^'- ̓$> ̓$!  101(d0! 1(* |* "1C 6.#605#H56." #H 6,#dq5(! 6(&,*6> 5/>,K5>,p#=B5! ͦ(~5y%>B*ͩ(_6?5ʹ(/{_#zW#yO++Ғ5B&#ͩ(p#ڄ5>5e6>5N#F#* /}o|g5" p#=55w1_cƤ~@zZrN vH Tʚ;@B''d G" կʎ6))))Ÿ6y=ʟ6ʫ60:ڨ6 ʸ6ʊ6È6!t(͙(! 6ͦ(6)!r%>2 E(x+76ʗ0%yʹ(7: 77͍*)|" " ܻ6t(ͽ&'8;': `7hr7͙(͍*Ɓc7ͅ%!{7ͧ7J'͙(: o7%~0é(|Yt&wz^Pc|u~r1͙(+ʹ('͙(~#ͦ(='ͷ(͈%ð7RO!&ͦ(76*E(!H8>8!i8ͦ(!H8Ȇw#O ͷ(':G8<2G8!i8O |%ʹ({YOO6+F6!F84~֫58w %!i8(w+w+w85Jʙ9v" GSљ e͘w>ROhFhiuh!8|%: w: 82 t("~'͙(͍*ͅ%)8͈%͈%E(t(͈%t(: 82 !9͘7: 2 "~|<>!@1> @!b  ~#=GA"=[0A= A=_zW"=! =L=ʺ>O>>ʨ=1g= !>=#ʻ=>>= >>(9>ʵ=6>>@!B<~ͥB#¨=!>7A_>~=ͥB܁>=#~== !B<~>\ͥB~>ͥB́>=>\@~A +> +>+> +>>@ >wͥB# >6Hͨ=Aq>s> >s> ʑ>ʑ> ʑ> >>_‘>>_ʙ>ͥB+>> ~7W'#~+w#Ã>yڡ>>@>> o&DM#͹BwͥB#Þ>x+>ͥB>x+~ͥB> !Bz\@@_W@W~#!ʎ@#ʡ?&ʉ@g@+>H?+~#.?_}@\&???$ʚ?*??x#ڒ?~$> ž?#W?~#.?#ʡ?,?z@Wá?~#>.??# ?~##??T]^###xG#z+@x@~-@@>Wr@Cxz*1#G+7N@2 ;K@, ~#_~#foxE?m@@@?!BͫH@~#@_@Ò@>@r@;** AxxOI&G* 5@G> 5@@@z>+@TFfV:\A@:@27A  !@ #G"G)Ͳ1F1Ͳ1416+͆(F16-k(#60: W:g 22һ1ͺ5! F : _ 1x*1{1Aqʟ1Eʟ1Dʟ101,1.¢1+60{ʫ1+6${+p2 ! 6 ͙(* * 2 f2E~2:101 #~1>DG1" `i" #~+N2-%20OxGN2#~ 2`xEC2y 1>2 S2|1;21" `i" ͩ(#W\4: 2Ë22ҏ2460̾("5+~0ʞ2.ľ(2d>"w#6+26-/</ 2:#p#w#6! #zQ334z4ͺ5{(=4b13p#6! #: ~ 3* 3+3-+$0I3#I3++w?3 3I36%3m36C){3)1+6%)d3E(\43_x44"5452_y/3/3{_x34434y5O4GO"53* =4P2*ѯ3E(7\4y/OzWO/4)4/<* C;^#~#¸;:g ¸;~;#^^#V#˜;:f DMW']< #:¹;#ʾ;+͸<þ;:g w#_ʖ @:A 3A6A:<:-A!MA6A<2Oɯ2:> 7A> 7A2:XG{A:e ʍA=2e >îA A> @:e €A ڮA:G:e ʥA!BʮA<2e OTFAWMS: 0P:A!7C!E #G:AD/2AD:e !B6!a > @> @TF3B:?B2ɯ2e :=@FBAA2CDD͙BƒBʌBAͷF_H!D " >2g :2@ > @+B> BC~ +üB*v  >ƕo>gB9*++"  BgGBB* C:G!^#V#C T*}D2 2 2 w#w#" *+" : XC2 2 ! 6#QC7!i8(!F8w#w#w2 og" " *v : ƒC" C* " " : T*++" ##!z "x r%DAgo" 2 "N " " 2 * |}~C##~:  *C(`i+" < D T" !z "x !*}<-D" * " 2DAB!J b Æ >OD22>^@@@!B* | * "u <2>2 ͋9! (* dC,͋9Gd * CD( (>2 ͋9D2 `i D * CD `i" ~,DC(u C,C)d$Ix 'IH0Ix > {͹FGH* w#?IHIO>~XIxIx C,;*C,* C)ͥHW'ͫHG=O>x~#F#fh GN#^#VUJ LJ#7Jѯx<#4JIJC(͋9;*#^#V* CڍJ*CҍJͣF(C,u ~JͥHG!W'y~?@> @(KͿAzK68Kp22 ͿAoK!B!=:>\2UK'K@+iK~@K+@K@!B!b 2OAK:ʐK>\@2yKCD7 ;L K ´K(KKCD(KK0K@> @>bKK>#iKK6!B!b K KxL*|>L!b ("_yq#@ K2e > @ͿA,L KzK: Bw!a >2 ;2 " $L33oL " ** áL LL" *" ##^#V#~#fo"͆(ʵLA3à* "à!9~#L L~#foC L >2 ͋9dP!B#*QѻQ  C,PY"+#x _:ڦ !N#F :Q!)^Q! >>>ͬ͹F* (H>>>ͥH<2g #~#fo(d ,»QZûQ Q͋9;*W_Wڬ Q¾Q"QG{,xQPXW1R!b Oz"yR QR RO{,yĊRW1R R{ +R,> +R+R1R1R͊RWQ"hV* *CMS~#hVSV:SS=S~,~#u SůSѯ*Qʦ   ! ~#fo" !"o]| G~,r CACS͋9;*O*o] "o]* Cڸ q#s#r9T7͋9;*ͥHF~O#^#VT*CT* CTY* * CUy*x " >2g ( C"x ~ #FͨH͹( @ +B-G* * /O #CZG" # >G*v " !* !z *x CxGH!L " * " * * CʹG~###͚<²GH_ÕG* ^#Vz* G" ##^#V#" ÕG* C7H~###͚!=_M=_M=_M!9DM!jM* * * à2 2 ~‡M2 #+͔R!" +NC,,ʸM"" +NC,MCACLCLNOC, 2 5$`i" NT]" CNO**+#~#N#^#V"N:N2 ͉:ʢNxG͒;>2 hN~(nNþN~(͉:zNxGN::g W):zBK!N N 2 ~(nN ͖N+"N(NC)"NC,BN"* * C#ON##~w#͚< NO* " N* C Oy_xW `i" * CNO##~w#͚2 : mS:2ùR2 2 * DM* " * #* " CNP `i" * *+zʠ `ià Q+PdP)1F* #^#V ªPr+s+5&G+P;ʿPC,+>,@ÇP>"@&G>"@íP*|Q~Q\}o|gQ> @+|U>  U!Ux͹FFTC$C(u ~,KU*Qʠ "QC)}͹FʅU͙BlUA~Uw# ^UF* DWڬ qU6Qʦ ʠ !' ~U U#~¸U`i}WÙU>O #~(PY!' ůwͱW:!͞Zʻ =ʝ =UѯÚ <ʻ !% ^#Vr+s9Q6V PY,V!#V`i>yV!' ~UͱW)9V6Qʦ !&QV! ~+n6Qʦ ! ~*~Ee\DM'~U4N#V pʝVzw w+s#r#6#6DM:V!" s#r#6 W! {zVWw<W<ʻ !! {w:W}W!! ~!) ;WU;W~#>W*~ʖ\( ~hW+~#5O ~+~tWzWJW7>*T]% N#F+q#p###6 ’WͱW: ͞Z>ªW>w+w!(HW7?*' 6#67ͥH~ʲ #^#fk_XN#~:X++@bXy@bXbX #RX~.0X>X7X#X2 z bXbX> >X7X> WX7Xò W<ʣ ! w#…XCACSW:!<¾ ͥH~ʠ #N#F OXIXR  C,#u C,{ʦ _!9}o|g ] \ \ ** C!9}o|g!X9}o|g S] )] )]*|<:  C*+6* ~šRÇ !?`2 "!"6:͗C2e " * ^#V"zB"UB"##^#V"A##^#V"A##^#V"=A 2!]!!"" !"22d 2 2 2!"!" !z "x ! "L *"v >2!^" :^^<2^!~" ^F#~+w##D^+6" !^/x^+6"" #/x^i^^6ZS^Mʐ^F C:dʯ^z{2ô^"v +^C/}^C:d" ô^+*v +"v +:!]"2<s#r# *  DM=^#"" {ozgB|g}o_|0_!{ozgB"v "" " *B}o|g++!_#G1!_#G!#G" !B! v] Owned by Microsoft Bytes freeBASIC-80 Rev. 5.21 [CP/M Version] Copyright 1977-1981 (C) by Microsoft Created: 28-Jul-81 ##͚')M##N#Fx( (+!!#2!D/)S`+/)"\+S^+>;?08͝ RM*\++"\+ͼ8 ͝ RMS^+!*^+RM#"^+"`+7[^+*\+>=*^+*\+*`+͚'M"`+"\+"^+"\ ( !1+~=7ȧ###! \!1+ͭͼ "berSubscript out of rangeRedimensioned arrayDivision by zeroIllegal directType mismatchOut of string spaceString too longString formula too complexCan't continueUndefined user functionNo RESUMERESUME without errorUnprintable errorMissing operandLine buffer overflowFIELD overflowInternal errorBad file numberFile not foundBad file modeFile already open?Disk I/O errorFile already exists??Disk fullInput past endBad record numberBad file nameMode-mismatchDirect statement in fileToo many filesH8jII,9Q¯ WzZ" 1Y{1Y!~ 1Y6B#6A#6Sz"# w# >YwwͱWoY<ʻ ÅY<…Y£ cY!%w#w#w#w~ʨYCzW* ) p# ®YC T T _W<Yʣ Z!6# ͖ZW2 !͒Z!͒Zʣ O!  ~#@ygZ~ dZ>.@ QZ:e W:ڀZ> @@!BAZ~*6?# –ZO!!4¶Z#4¶Z#4y"Zʻ ><+Z* C! s#r#wZ2u]*Q  ! ^#V~,+ zʵ +s#r! w#w! ~#fo!CT[Ò[BK>!)g[)#h[))v[ u[#=][}_}la)ҍ[#x"o]! "q]!) "s]!}o|gCڼ[bk:u]\C[ \DM*s]*q]X\"q]PY\*o]#"o]}o|g|Ÿ[ \DM*q]*s]X\"q]PY[2*o]! ~#foCs#rG\:T\!T\!& äV~# xY\DM\ʓ\͹\! w!( V6 ʎ\zwø \ʓ\͹\! ~!ô\! ^#V! s#rDMͱ\ͫ\C" ͒#\>;S"]C ** C!X9}o|gG:%:,}O!Uej"&- V.& 3(  (&b&K&  M,*',Q1i05O.N.43g410q1V5U54X1g$$$ 9:8DE)Fv7D#FFF< &f #"$#$,(J$!"` :=:i::222_--.222;LMx  C\o(267NBTSUTϫLOSONԚLEAҒINSNDBV+V,V-O HRATI͆EFSTҭEFINԮEFSNǯEFDB̰EƘELETŪNāLSŢRASŦDIԧRROҨRRX O/QO҂IELILERIOTωO TωOSUEEXNPUԅƋNSTNNMILEԈINűOASEPRINԞLISԟPOISԓO O0EEFTO1ERGOKI2KS3KD4IDEXԃUL̖AMEהOUԝΕPEοCTUOKřRINԑOEEEAćUΊESTORŌETURΎE͏ESUMũSEIGHTNENUͬESETOАWAХAVPCTEGQI TRTRINGPACEYSTEͽROΣROFƤABHEA SINSAARPTIDTȡAIԗO۾yy||PF<2(z{i:::=:f<_<==:z6w6789q;e;;9NEXT without FORSyntax errorRETURN without GOSUBOut of DATAIllegal function callOverflowOut of memoryUndefined line num in Ok Break!9~#N#F#i`zʳ ʹ Ý ʹ~ + *,  >>ƕo> g9*+++" $  0 *-|< :! $ à* "-  *-" " 6 * À {K2#* " * |/_#‰ * |"|2*X4! :#*!"-:  * ? >* >  2 â *  ʹ " +ڽ ͫ<=ʽ ~ K9ͦ " ҕ4ͫ" G ʯW-(ʆ *( ͼ "( t##s#r# w# y| ͮ !6"9*5"" A *7"9*" "5ý */bk~####~ Ҷ ڶ ͬͫø #s#rî   ͺ */DM~#+2%Oɯ2&:%> > 2%:*±" H> : 8 \:'G: <2 O*5|ʠz/7X4:1!FA ! |":*/2*>d2 ͙  "  *-ͺʈ:҈:̀:~d&94=:A9QZ~>5́=:A98OG* 3{" !9" ~:ʋ #~# #^#V"-:R ʊ>[?>]ͫFցL%O! N#F#~: ʫ : * ì#2 ~#o&" >2 <2  GZ9" !$  ҫ0?<=: F F* @###^#VC<! : 2 {9*/j `iү+". oo<Ó5" ! " !*-}<ʴ"$ * "& 2*! – á >2&2*>^@*& |$ *$ "-͆&:'G{<2">2R 1!J V9** ͺ,1ˆ:** ʹV9J V9>2 12 `i *, ʹe `i", ~,ͫM AOGͫ¯ͫAGͫx?͙ ڝ#~+*5|2‚ͫWG"u:,+9"!ͫxi>b>+ͫʝ,+ͫ): k*5|!|"Æ?Extra ignored #~#$ #^#V" ͫU1" ͙  " ~#~#.39n6M9D9͓9W####N#F#^#Vi`q;: 7r+s^#V#9D9i"-i`B" * ~,Fͫͺ(+ "" *" ~ڲҲW " ͫÖzG~" _: y#!MxVz-Q;z;!X : === !N#F#N#F#!T N#F#N#F*!KGd* Ã=:&9D&:&xdd!*X w&y2 xʗ: ʿWxzʈ:!w N#F*X i:́9"V "T 69i:!c: O ~#fó92 ʥ"X ê=:!mð&9]:A9"Z "X ]:&9]:8ͫ$ i> &<.=Ҷʨ"6"ʱ&Gͫ:#i Xͫ* C<‡ͫͺ(#t̓&͚2w1ͺ)|%:o $$ 6 |ͺ)}̓*" 81"X {9&ͫOH#:)0)G)7))))o##~#foʹ`i~#fo?? :YG!9^#V# 5*/ 2 2 w#w#"( */+" !0 6#M 2! og" "& * " U*( "* ", 5*+++" ##! " ͆go2 * >?> 2 2 ;~"n Dw: ~D?>D8͗ڇ!AO ^#V#͗Oʢ#  +>͌2 ͌ó ! +``>2 ~t͊%͊>͌p~.ʗ:0: ~D.D>͌}͌|͌ó ~i>: *X |>}e. ҷü͌!X !T ~͌#=ó 7ʫý&DͫH> 8> ͌õ#͌:VJ\>2 2 U³ ~|wD~#͌b!@}O|G!>: y$ ~a{_w+=2 g~ ҽ ʽ ʽ> : \2)>+#~+!2)O:)J>\2)yʊ7  ʊ nÊ@#_ x<>ʕyq# 2 > oʥ 4|}~#ʫ *5|.:&) > :% :%<ͫ!ʹ bk))0_E +ͫ* }_|W *( ( ʹ "+E A \ 3E F| *->3À: * *-ʹ# ү > 2 N-`i$ ͙ " $ "-!F>:yHG+ͫȸ#"<֌W1ͺ" ̀ͧ!͈9P*X #^#V*/ʹD*+ʹL*( ʹL>#"#V9…ͫͺzs PYү" :! :#_- ͆&~Gʔͺ+K xʓ,Õ! " <2#~z€<ͫ* * "-~#####͆&$  ͺ,*  |" 2 " ý ̀~,̫4ͺ+9Lͫ} }ÒͫNN<>2&o\2+ͫʆa(BB,;̀?5"*5|*X :&ʿ:%:'G: "> "o: 6!> > *5|:"=2 *5|% ~9:&+:%p3:(G: 9/t̓&ͺ)+o*5|% ~o:&l:%o: / xͫv2&go"5ͺ#21̈́:ڝ8"?REDO FROM START : !|"* Z2!#">2*6"ͺ7+ͫ)8 7)))0O %:#~ցOͫyY|ͺ,̈́:*X ͆&n͠} j=: N#fi#~#N#F#^#N#F{zد< #ʌ?8< 9Z̓:}/o|/g"X Ï: 7:zM<{;k F{o|P{o|< {o|2{/o|/}//o|//+ͫͺ,#2 F OͫJWOͫKK~%$!#xA_!0 V+z2 ͫ: =d~(1312 *( ** ʹo>&ã|wʹʹO*, ͼ ", `i"* +6ʹs#s#rW_2[ go"X /! "X * W*, ʹ: ʦ#‡~#ˆ~>##^#V#j:  DM7  $ w#_q#p#O ##" q#: y q#p#E;=BKڡ ", +6ʹW* ^) ++s#r#8 GO~#^#V#ʹҡE;=DM : DM)0 )5 )5 *" *, !9W #Ϳ"*+* }o|gC<:%i : og%:͎ ͠N#F!7: #!X ͫҦ ڦ ͫ: O! ͎ ͺg&s#rʭ !!s#r~(ͫ1~)ͺ, !: "" ~#fo ~(`,̀̈́:ͺ,*X ̀ͺ)#7i #G=O>~x~#F#fh GN#^#Vt% k%#V%ѯx<#h%S%~ #~ #ͺ(1̈́:#^#V*+ʹڰ%"V9ͺ,͆&~ &ͺ̀#G!7y~<%yH #^#fk GN#~#foyw# %)&ͺ,͆&ͺ)͉&2$&i s&s&+ͫB&ͺ,͆&C&͆&2'V&/<2(ͫ̀:z͆&2D&2,&ͺ,Æ&ͫ̀j&+ͫ{>2& !"-N#F#xʢ *5|pN#F#ʹڡ " ?> &!&ß&~+#&&#~ ' c'&<~'#~#'' ̶:!:G@ #T]~5'#9'~6'y[R'~#_!+P'&+ͫ&' QD TD* ?: O ʕ' H '>&{: ڱ'!ʱ'#~ K9~#': ڷ' '.'D'E·'÷'{'* & W- (T]ʹ! |"! *( ʹ(`i"( E(~i ̀E(ͺ,͆&::[ :Z z6́̈́:ͺ;*X {(: ʅ(2 F#N#fiï(X~#\) ¥( ”(C>\*_W*W~#!)#))+>ʲ(+~#. )\ʐ(©($(*©(x#(~$> (# > G-!#-|"??+,Undefined line ,###N#F>!-* +p+q+w: ó,̀2ʡ1!$ ~}-#N>O #~ 9PY!$ 6i/ʞ1«-ѯÛ1<ʼ1!" ^#Vr+s̓2- PY-!-`i>".!$ ~Ć-i/&-̀2ʧ1!# ~+nk ̀2ʧ1! ~i *5~ʀDM$~̃-4~O#V pG.zw w23t2¡1!" ^#V~,+ͫ {ʶ1+s#r#6#6DM! {zV.w<.<ʼ1!! {w:3.9/!! ~!& .̓-.Æ~# .*5% ~#/+~#5O ~+~0/6/ /7>*5T]" N#F+q#p###6 N/i/=c/>w+w!% /7?*5$ 6#67̀#~ʳ1#^#fk_ڸ/N#~:ʼ/++@ʳ1y@ڳ1ҳ1l #0~.//7/#/z ʳ1ڳ1> //>  0/͕/l<ʤ1!\l w# 40ͺAͺS͕/:l!\l<¿1\̀#~ʡ1#N#F Oʓ0Iʓ0R¡1ͺ,#̫͆&ͺ,{ʧ1_̓2°1z͕/" 0{0!u~ 06B#6A#6S"5#l w# 0i/~ 1!ͫ" !ͺ, >2 17҈:["ѯ~) !*" ͺ(* 1 ~)W!ͺ,ͺ,>!ͫͺ)>ͺ̀+ͫ ʶ!!Қ!p+qv!+p+qv!+p+q+p+qv! ["!YO q* *X ʹ!"u!! #~" w#q#pv!*-#| $ ͺ>2 G6QD "TD "?5"#$~#͕"N#F*"o͸#͕"! w#s#r+"P#~ K"K"<""̫#y*" >* "X >2 V9 ʹ" ~$ #5"#F9  Æ"*+* /O #ʹڳ"" #$ "* " !*+! * ʹ"0#*( ** ʹ#~###"1#_"*, ʹU#~#D9 #" N #* ʹ#"#ů#^#V#DM* ʹ`iʹ`i}+F+N+n& PY+DM* Ϳ q#pi`+"*X ̈́:~*X $ '"##* Ͱ#Ͱ#!W"~#N#Fo,- ù#̈́:*X #PYN* ʹ#G " * +F+N+ʹ" i #W~i ##^#V>'"͉&* sW"ͫͺ(͆&ͺ,̀ͺ)C$͉&F$$O$͉&> {'"_$* w#^$$$O>~w$x͕"#F#fh DM*"o͸##W"$k$~$ &o$=O~GC#i _#~#foFr~b>pͺ)Cͫ|> %͉&WV)~#.+)#),7)z@W)~#>.©(# V)~##+)T)T]^###xG#z+v)xv)~-q)v)>W)̀Cxz?|"+ͫ7ʮ)2 ;ʫ), ͫ~#N#fi_x¯()*r(#Æ>*)̀̈́:*X An$"*X G> ʕ) *z>+2#* <0*" ү`i##N#F#&|<>!?> ! ~#`*Gok*0ڇ* ҇*_zWk*!i*’*O++*1ڨ* ! ,#+#*c+-+J++(^+*[+>1*~+#*!D+7o_D+~!++ܡ++#~++&H*~>\+~D++͡+5+>\~ow+#J+6H*oʑ+ +ʓ+ ʱ+ʱ+ ʱ+ c+_±+>_ʹ+++c+ ~77#~+w#ã+y+>c+ o&DM#Ϳ w+#c+x+~++&z z7@?2C:$ 1!l6# R2ĕ/!mN2!uN2lʤ1O!  ~#y#2~ 2>. 2: W:'<2> l1~*6?# R2#t2ѻ¡1ͺ,`i"5+ͫ#̫͉̀&_:Yڧ1!9N#F ̈́2!& >>>ͧ!'"* ̈́9$>>>#<#N#fi2 {9x ,2Z2Z21̈́:W_z/ڭ1 33"%3G{,x%3PXz/s3!Oz"y^3 ʓ3 ^3O{,y3z/s3 ^3{ m3,> m3m3s3s33z/*3"~3 ¦3z/ڦ3 ~3,ʦ3 ž3z/ڦ3 ʦ3*5% 46!{ ʹ38"ͫi>ɷw#ç3ë03:Y22+ͫ3ͺ,ͺR 2Y21!6"9. :22Y*7"9"5z/<…4*/*+ ʹa4 /w#4ͪ ##"( !Y~226A :22Y:1ʢ F͆ͼ-Õ . 3+ͫz4X4 21z/<ʡ1*5% ~ʽ 4ý *5|B$ Ë3+ͫʻ4ͺ,ͺAÚ&ͳ,>.*( */ʹX4~#.4-:Y44=4~,ͫ͆:!Z ~w9og%:ʈ:8*X ||8*X *Z D9"X `i"Z !X ^#V#N#F#X Z9: Gw#Z9!Z ~7w?##wy7O!^ U9Ç9!^ V9X T x8!88y!Z yͭ9#x+y+z+{z|88}8!^ V9e 8!88O!Z y#ª9+998*X ʈ:G:!7:[ .:͍:"X >2 ͓9aj$:Z:ʈ:A9:xc9!W F7*X :|U8ʈ:Z:!"T "V >>*: $ GOW_A9c9g:>A7|7-7z< 8:9:8:ʈ::![ ~:X ~͍:6{y6![ ~:;O+~+;!%:yA9c9+6:;!Z >_==2S )ڡ)^; ڡ=P;|G.);)ұ; ;=£;|;x*<;]:&9]:ô7x%:]:9| "<. < <7>{_zW}o|g=<÷;|G)<|%:Ooyg%:*X .<|:8;g{o(:*6=!\ L=G:Z B/>9=.C>9=p#=%C!T 39`Ck6<͍:69AD?BA9/{_#zW#yO++tC!7#69p#fC>âCGD>BN#F#*X /}o|gҵC"X p#=¢CBw1_cƤ~@zZrN vH Tʚ;@B''d GE(f կpD))))Dy=ʁDʍD0:ڊD ʚDlDjD!9&9!C39ñD=:8xDD 6yA9D:͓9|"Z "X ܝD9v7ʹ7&98;&4ů4ѯt2ʧ1¡1& G~,̓&ͺAͺS1̈́:Oڹ1ҹ1q#s#r 571̈́:ͺ̀#F~O#^#V5*/ʹҶ5*( ʹڶ5Y*+* ʹ5y͕"##s#r#^#V#^#Vyx5yGyO55~#55> 56x'"W"ß5ͫͺ$ͺ(͆&~,06ͫt2¡1l2ͺ)}'"b6͡]6w# C6͆W"Éz/ڭ1P6!CD9z6D99x:[ 69Ҕ6/<&969c9gA7!X 6!77#47.W77G~_#~W#~O-7hcGy6JTeox62[ )zWyO6x\E7![ w6x![ 7F#~怩O69 4$ ~_#~W#~O!\ ~/woG}_}W}OP7CZQC7 o-yOzW{_xGS7V"vE88![ ~5pz68!e7t6!i7WEz6͸?1r8.͐8y27"7PX!6!7!X ~#8Wy7O|g}oxGz7CZQO&9!=398 .͐844+~2B8+~2>8+~2:8AOW_2E8}o|gxG>?S82E87y<=7{_zWyO)xG:E82E8y68![ 5687>.!d N#G.xʴ8}![ Gx8ƀw7c9w+8/67A9x7Gz6![ 47:[ :Z /<![ Op#6698<ʈw6:S =!\ ~++w!T 4#=47+6 !^ <=>!^ T 2C=# B=~/w!S Oyw#V=qv=NsY+k=a= W~w+€=y=!Z }=~w# •=8͆85>q=G4=͋=x µ=¬=! qA>+=? >>+=:Z <==!T ͕=! ͓=x=![ 5=7y2d + ~q+@>́9+~7wf<476|:`h%:~&-ʆ>+ʆ>+ͫP?.?E£>ͫL>·>~% ?#?!?D>?!>ͫ-++ͫ?>_{-?=?>8!7.: >?Æ> #>??=:i:8J>=8=yZ:7ҥ?t$͓9?ͻ8͸?}?s:J>́98s:f<}?&98z6{ ?0_2>! |"%:p@ @{"p@?6+9 @6-8#60: W: @@y@͜C!g F : _ =@x*=@Aqͫ]@E]@D]@0=@,=@.`@+60{i@+6${+p2 !g 6 WRB@Ҕ@B60K9C+~0ʣ@.K9@>"w#6+@6-/</ @:#p#w#6!g #zVAABzB͜C{̬8=7:[ Ү8:ƀڮ8!e7n6ͮ7w69!6EfEJô7@.tpO.wnz*|P~&9;A9ʹ7&9~#39=ʹ7D9z6oE8!EE!F39!EȆw#O D9ʹ7:E<2E!FO n6A9{YOO6+F6!E4~֫Ew 6!FM9w+w+wE5Jʙ9v" GSљ e͘w>ROhFhiuh!mFn6&9I698&9:w6!qFt687YFk689!qFn69!uFWEId&X4#]I&9)F&969#F88D9:[ ڼFQY8!t6!FWE!mF J;xn{/|t1}=Z}~L~l */+6*Z~3â !I"+" * ^#V"t"H##^#V"##^#V"h##^#V" !"-2*2 2##"%! " *" !~>2Y"ZGF#~+w##lG+p"Z!ͫG/ʟG+6""Z#/ʟGͫGGpͫMʮGF ͫͺ:Gz{2YG" +ͫGͺ/ãG* +"  +:Y!F"792Y<s#r# =H#"/Iʹ "+" {ozg ?!pH|"!|"" ! "F Owned by Microsoft Memory size Bytes free BASIC Rev. 4.51 [CP/M Version] Copyright 1977 (C) by Microsoft ͔#>D}ځ  x 0~,yD2,> !qO~ v# ~_ܰ !g!{A7RUNLISTMEMSETSCRAUTOLOADCONTAPPENDRENNSAVE SAVE BYE EDIT DEL PSIZECATLETFORPRINTNEXTIFREADINPUTDATAGOTOGOSUBRETURNDIMSTOPENDRESTOREREMFNDEF!ONINSTATOUTSTATOUTFILLEXITOPENCLOSEWRITECHAINLINEDESTROYCREATEERRSETCLSAPPENDSTEPTOTHENTABELSECHR$ASCVALSTR$NOENDMARKINCHAR$FILESIZEFILEPTRFILECPMFN(*+-/ANDOR>=<=<>=>=<<=>NOT^INTLENCALLRNDSGNSINSQRTATNADDRFREEINPEXAMABSCOSLOGEXPTYP[ ,5#0"-:,([9- R#(.8*9-(*=-R!*9-S9-*-(S9-!,[-~O> 21+2/+!"C+x ҁ"?o&()@  d   p x --   -  )O,LI~1)s7+z#Ͱ U(*;-~=ʄ+"A+6 22+23+2[+!"K+y 84H! 2!҄!ͭ!Ͳͣv! ! Q"7"s9+*;+"=+ͦͼ 0(:2,-! *;-*9-(.#ͼ !*9I "R",,"B:RFILEI #, AS N$I #,  AS I$I I I( N$(,)J2 I$(I) J< #,IJA I$JF I#JK+JL @JM "R",,"B:RFILESJN #,  AS N$bJP I mJZ #,IvJd N$~Jx IJ}JA I$JyĊRW1R R{ +R,> +R+R1R1R͊RWQ"hV* *CMS~#hVSV:SS=S~,~#u SůSѯ*Qʦ   ! ~#fo" !"o]| G~,r CACS͋9;*O*o] "o]* Cڸ q#s#r9T7͋9;*ͥHF~O#^#VT*CT* CTY* * CUy2*->20+#";-S=->25+1)s7+>22+>2)2-+0L*;-[=-N (! ( 8R0*;-:5+(*1-6Ä"9-:5+(*/-/)*1-#)\Ͱ N:( *+" "=-!6(cͨ !)):6#:] (!hiw2*-*;-"(-å Q"7"!"K+> 2b+y:*- :5+(25+#*;-J25+2)P(>22+!S(U({7+!"1-2/+26+:-+(1*3-M,͘$> !M,(Rb+*3-[5- "3-KEU(:M, (k8:, D7 ܰ g! ,!ͦ! !1+:)(4)G ((:x*C+*b+!M,6 ͤ(O͔(O2(-24+ w!M,b+!](\(_((  _((Q;M 8N:4+  (w#6 G\( ͔(Ob+!M,6 2Ä ( ͮ \( ͮG  (%\(:(-(+6 :4+ : G\( \(>G\(:4+<24+\(>\(> e@\(U(:6+E*--(E!M,͑#8" , ,0~; 6,: 6\[ 6(] 6)G # ~ (f" ~ ([" x ((((( ( (0- .#",! >U(~:) :,-(= !Y(U(:=2,- ,Z #(U(*,R0#()͘$##~(u  !~(͑#>[R>*9-RMS *;-6"9-*9-#w";+*=-"E+4ͳ23+ >2-+Â2-+! "3-"5-͑#8"3-ͼ ͑#>|M"5- !:3+ʄ22+23+";+ J#*;-N# ("## >- /)J#8 [7-#)*3-[5-*;-Ny=tu ! ʁ̓#b+Z (U(Â͑#>͉#!͑#>͉# ! R>>*9-B#DM o& ,͘$> (!K([;-*9-R#}($|(͑#}02\4)!]6?^ >\4)U(!(!a (X  \(X  \(= U(>F\(# : "͑#8!J#"1-[/-R> *;-"(-25+>2*-!!\͸\4)<>[(-4)\4) *(-"(-[=-R!\4)!!\͸\4)<>\4)ʓ ͠h!*`+͘*;+R";+R0#)BK*;+#xR!͠h!!͠>;0!(0̓!͠ͼ ڔ2)P(!F(23+g*;-Ԋ#+"A+D"(0 U( /%(g@K"(%͠*;+e!$ͤ(G͔(ܛ(ͼ(U(*;+͗";+#z(͔(Gͤ(ԛF\(#:)G:0+U(Q"#͑#03!M+Z C  A $ # 6"B09}2O+"I(E(F %͑#8| }!O+0#w2N+!M+~ˎO7"oW!͚'!zM ͤ(o\(!͚'!͚'{W!ͤ(**-r5!~< o# 4)*D]4)\4)oÄ͚'!͚'zMY͚'!͚'s#!͚'A_ng :Ͳ$u%t&>%;8͚'!͵4)$w$#!͚'A_n>%;8'!>;>&;"(1͠e!!?-~ 6~#ͼ0>ë͗|## > #>|}*;+R";+#z(~#͚'M{͚'A_n>%;8'!>&;0k(!Rw#ͼ0J*`+( RW_*;+!";+#z( w#Þ Ro&̈́'h!b$͹wf&n%N' ͫ4'$͊6'4!4"4#b͹~)M(#=/ !17>DJP (!X"0RzMn&̈́'|!!"`+!,7͓ !C-, (ͳ#ڄ!C-̓!L!!\6 ?6 ?6 ?͵4)4)!0(!( C-ͳ#n!C-̓!!\!!0_!!RI!I!͚'ͼ ͚'!I!͚'zM{%Mͼ ͚'4)IA6Gx"O&($ ( ($ %BK0|-͝'A_n#4)~#! n!f"0#Ä'͝'A_nn!f"'̈́'K;+-0{.K;+o&̈́'[;+|-e!e!*E+[;+R͝'zMKhb͝'n&Ä'͝'An!(#8# PY\! BK(\w\w\w\w\w\w>Aw>`ifG~ (  # $\!>ɯŷX"0$!>~"0Rz(BK͛! >;0!͚'{ͼ!!!͚'{(4)(_ : !͠!D"*;+e!$X"\+6A;<E7S2b-h(*1-"9-6p}*9-+:/+(*G+"E+*I+6#6 2*-( :2+ :[+2)P((!s(:2+g*;-N R(0B#()!z( ,͘$> ! ,(g!ͭ!>ͼ!"*-W 8(  **-w2,*;+~”++͞8 )”N#F:,|-~()s DMZ0";+()ͼ *;+~”";+ځ͊####ځ͊#ͼ ͭ!>ͼ!###͚'zM"(ځ(!> ͊#"(X͠e!!:C-(>21+0ï "! #~ʁ #\0"( >21+*;+#͗"ҁځ~#()###*;+#͗x(z(&~## (z(7!!C-6A>";+#<>#;*A+ͼ0 ڄ( 8h!>"͓ ͼ0"A+>1;ͪ(>";8"--(#!>26+?\(E26+U(M,(ͳ#8)ͼ8(x ?\(> ͓  x !(U(  INPUT ERROR-RETYPE " !\  ~ ȸ#*;+~ʔ( (+V+^+";+~Š +N+!)B)";+~($͗ͼ y[;+#x(S;+)͠*;+ͼ z[;+S;+>2.+*?+"=+21++V+^+~+";+V+^+";+h!ͭ82!C!͚'C!Gͼ2!C!ͭ!!͚'ͭ!(ͼ0!sͼ 8%>23+*;+s7+M}! |"Ċw'u!t"A͊$^( 4)$$nw$"4)n>25+8!J#"1-ѧRd*;-"(-2*-!\͵ß (͚'|M}M M͔(}**-wͼ:)G͚'z>(@2*!0+!\͵6 ?6 ?6 ?\4)\4) ~ (,#͑#ځ|M.u6  |Rd# #} B8 z0! "`+!,7͓ >  >('ځ͊#"U+!R"W+!R"Y+>2[+(:)!F~< G# 4)ͤ(**-6!!9҄2.+:.+ L͞8 R̓!<(_03~"0-!2N~!(m!0 0S:.+ʁ*.+-(( #> ~( ~#ͣ~[;+ !";+DM!#()#*.+-ʁ!́!͠!!O 0'330o4b32X1 1 {.|-h- ̈́'*W+h!:*-o&̈́'*Y+h!2[+{9+*=+";+*U+###ARG"DIMENSION"FUNCTION DEF"OUT OF BOUNDS"TYPE"FORMAT"LINE NUMBER"FILE"HARD DISK"DIVIDE ZERO"SYNTAX"CONTINUE"TOO LARGE OR NO PROGRAM"DOUBLE DEF"CONTROL STACK"MISSING NEXT"READ"INTERNAL STACK OV"INPUT"MEMORY FULL"ARG MISMATCH"ILLEGAL DIRECT"LENGTH"NUMERIC OV"STOP" BLOCKS"READY"PRESS ANY KEY TO CONTINUE" ERROR" IN LINE "!A[?#!0:?#̈́G͑?СO͞ځ>$;>,"ݾ+7!!C-ͳ#!C-Ã!>;n#f#:1+ ”:2+"ÄC-_!'Z:4):2+:E2*-:[+ ͭ!ͭ!!DM> ͳͣv!++++ ͭ!ͭ!(#)*;+R##DMͲͣv!###"G+>2/+*I+#)*E+B!"E+# T]w͞ځͳ9 >ݾ(2!0QͲͣv!>#2!h##͚')M##N#Fx( (+!!#2!D/)S`+/)"\+S^+>;?08͝ RM*\++"\+ͼ8 ͝ RMS^+!*^+RM#"^+"`+7[^+*\+>=*^+*\+*`+͚'M"`+"\+"^+"\ ( !1+~=7ȧ###! \!1+ͭͼ "&#[M+~ 8+kN'c( >"6"+6 $CN'r(* -:O+G*"-+T]"c -N'>"p #wCO+~(+I0=G+~ ~(xA8)(:O+"%W2P+:O+<&6"%!-6"+6 ~2-(Aw:O+&~.(#6E#:-+( A%-Dp#_ͫ$:N+# >"w%!-~" 6 %!M+f(=G> !-6"+w" -+6!~]'A0DG:P+<.'6.( #N f60#N( [!M+v( 8O !C-ͳ#Ã!͠(O~$8c q yO'~#͠(~ (DMS ( (z_J8'_0, $(=w({'~##jM*;+e!~!T\M(A*$-~2-#"$-:0?7ͤ( \( X:)(84)xͤ(**- 6 5 84!):)("*-~!)>#;>8-͚'ͼzM{M>#;>8͚'ͼzM{M2) "~G ʁ\(#o$x!]-]- (#o`i ~+W-@-D 8_!VGT- 8 DG!X-+/!X-~P/W-F+.'+8>#g/< /!W-'w+0!W->'w+# #  !W-A+/ xwe.6W- >G+(w+  !`-bkw!`-)/![-+~(O1/>w ~(`-O1/ +T-/ /G~@(/>/:ÄG怰X-_! !o+շ'w+| ! "(-!g-+bkw+!b-)/X-!g-/*(-w!b-/*(-o#"(-/ /goA(/>/ /W{怲 '+01/y!~( P+> >'w+ > 0BP@A%`CeS`E( N0K;+20{.͝'+"K+_g_o"K+e!*K+}-f0?|g}o"K+#̈́'K;+20=/M@G(0>M-_!M-H-=/M-H-h-#0M-{.H-M-|-= !H-_!wTB@TBA"*-_!{.**-ȹ 7! (\(# EsH!xA*=-+_R^#V+z( ~# ##"I+yͼ!ͭ!7!(0!C-*;+";+*;+B";+#*;+ !";+<2.+*;+ !";+*;+##!r";++s*;+#!w";+*E+R8 *;+R*9-#";+Ä,#)"Á~ #~# !"̈́&"͑!"$*M+"Q+*O+"S+*Q+"M+*S+"O+!#"M+ɷ >"" ;"\+G~# ʁW>; R2!H/)!>ͼ!(%̓!ͭ!>ͼ!͠h!", ͼ8T͓ )>);8?ͭ!ͼ!:1+!9!)rDMy*;+#S;+_1)ͭ!*=+"?+>;Ä͔#>*;-~7#)+N *3-*;-"/-"7-Ny=7#)+?[5-M#"/-+ ! *;-͔#>5#d!"$-:(?_:(0$M+ɯ2-2- +(( -( >2-S$-"&-+w+:(8'. :(87:((8 E(C3:(0x$:((8.(x$:(8.(E(@#!-*&-w[$-:-G:(8+(( -( 2-:(0_:(0$:(:-{(D (A #w/#6ɯ'ʹ$ʹ$dʹ$ ʹ$}B8 BѰx0"R-bk)))*R-_zW"&->2-:N+#(pIʚ%Eʰ%:O+y(zMP{Y!)M0#z+{s#r#~#fo^#V#REVISION 09-16-82 COPYRIGHT 1980 MICRO MIKE'S INC."*-|-=  PY\! -0U1Z8̓!͝'H-_!H-{.p3\!V2Z!'0_!Q2ZM̓!K;+[2{.K;+#0|-[;+'!e2M- H-[;+{.M-[;+{.H-h-M-h-H-_!H-{.H-M-!o2>0H-R-!~2>0M-{.R-h-R-=/#0|-PY|-*;+~w͝'{*2D{(2=/{.D2<wPbCseÆ@QA)%FI=$8C 2BDCA1b'vA͏2B3=/MM>@BKL3Z0=M4H-_!#0h-#0h-H-(0|-H-=/H-_!H-{.>M-![30>R-!o30M-{.R-=/[2|-H-{.o&̈́'K;+G3h-[;+|-e!CBH@dB1b'v@)h1cIAg5`iBA̓!̈́2!C-e!{.X1BKK4|-2-̓!K;+P4=/K;+#0|-[;+'*;+̓!͝'C(:-2-!Z4M- [;+M-{.[;+H-{.H-h-M-h-[;+_!K;+{.K;+H-!n4>0[;+H-{.H-{.H-|-e!:-wpycA1AY&A1AAY&SX=ffW3Q>t&0;A8H-\!H-=/!H-_!H-_!H-{.> H-M-!50M-{.8M- (K4|-!M-4~(w_!@333#@'YE@w&g...document created with WordStar .op .hebaZic II baZic for CP/M Configuration Addendum .mb0 How to Configure baZic for CP/M for Your System Mak cop o th baZi distributio dis an fil th maste dis i saf place Th Creat Workin Diskette optio o th Micr Decisio shoul b use t d this Turnkeying baZic I th followin example w wil turnke an se uppe memor limit fo 10-digi softwar floatin poin baZic W wil loa 10-digi softwar floatin poin baZi int memory toggl o th turnke byt (271) ente one-lin turnke progra t b save a par o baZic exi baZi t CP/͠ an sav th fil "BAZIC10.COM, 5 block long o th dis t preserv thes changes. Eithe Sysge th cop o th baZi dis o remov th CP/ boo dis fro Driv an plac th cop o th baZi dis i Driv an the d war boo (pres CTR an key simultaneously) Th copADY LOAD CRT  READY RUN  Th progra "CRT.002 wil b executed Yo wil no se th followin o th screen: THI PROGRA I DESIGNE T CONFIGUR BAZI FO PARTICULA CRT FOҠ THŠ PRINT AN TH CL STATEMENT T WORˠ PROPERLY BAZI MUS KNO TH CURSOR-ADDRESSIN PREFI AN OFFSE FO YOU CR A WEL A TH CODE T CLEA TH SCREEN THI PROGRA I DESIGNE TϠ CHANGŠ BAZI FO TH TERMINAL LISTE ANĠ TϠ ALLOנ CUSTO CHANGE I YO KNO TH CODE FO CR THA I NO LISTEĠ HERE SOMŠ CRT MA REQUIR REWRITIN TH CURSO ADDRESSIN ANĠ CLEA SCREE ROUTINES THI PROGRA CA B CHANGE S THA I 'WRITES THŠ PROPEҠ ROUTINŠ B٠ ADDIN A ENTR T THŠ TABLŠ OƠ DAT STATEMENTӠ A TH EN O THI PROGRAM TH FIRS FIEL IӠ TH NUMBEҠ O PAIR THA HAV T B WRITTEN EAC PAI CONSIST O THŠ VALUŠ TϠ BŠ WRITTE AN THŠ NUMBEҠ OƠ BYTEӠ FRO͠ TH BEGINNIN O BAZI O WHER TH BYT I T B WRITTEN. THE BAZIC?D5u3"'C?q@IT>}2!"!" !z "x ! "L *"v >2!^" :^^<2^!~" ^F#~+w##D^+6" !^/x^+6"" #/x^i^^6ZS^Mʐ^F C:dʯ^z{2ô^"v +^C/}^C:d" ô^+*v +"v +:!]"2<s#r# *  DM=^#"" {ozgB|g}o_|0_!{ozgB"v "" " *B}o|g++!_#G1!_#G!#G" !B! v] Owned by Microsoft Bytes freeBASIC-80 Rev. 5.21 [CP/M Version] Copyright 1977-1981 (C) by Microsoft Created: 28-Jul-81 ##͚')M##N#Fx( (+!!#2!D/)S`+/)"\+S^+>;?08͝ RM*\++"\+ͼ8 ͝ RMS^+!*^+RM#"^+"`+7[^+*\+>=*^+*\+*`+͚'M"`+"\+"^+"\ ( !1+~=7ȧ###! \!1+ͭͼ " o th baZi distributio dis mus b i Driv t continu wit th configuration. Followin i a exampl configuratio o 10-digi softwar floatin poin baZic 56 CP/ (you response ar underlined): A>^C A>BAZIC10  READY FILL 271,0  READY 10 CHAIN "MENU"  BYE  A>SAVE 54 BAZIC10.COM  A> baZi㠠 include built-i cursor-addressin an clea scree commands/statements I yo wan t ru onl existin NorthSta BASI program unde baZi yo d no nee t us thes features S tha baZi user wit variet o CRT ca us thes curso addressin an clea scree features th baZi distributio dis include CRԠ configuratio program "CRT.002. I th followin exampl w wil configur 10-digi softwar floatin poin baZi fo SORO I 12 termina (you response ar underlined): COPYRIGHT 1981 - i - MICR MIKE'S INC. A>BAZIC10  RE DISK MUST BE IN DRIVE ONE FOR THIS PROGRAM TO OPERATE. PRESS RETURN TO CONTINUE Pres Retur an th progra wil displa men o CR option an a "other option. 1=ZENITH Z-19 OR HEATH WH-19 2=ADM-3A 3=INTERTEC INTERTUBE 4=HAZELTINE 5=SOROC 6=NORTHSTAR ADVANTAGE 7=DIGITAL VT-100 8=OTHER I you CR i no on o thos liste consul you CRԠ manua fo th value o you CR and/o you programmer W will fo th purpose o thi example selec 2 fo ADM-3A. Next you will see: 1= 8 DIGIT SOFTWARE FLOATING POINT BAZIC 2= 10 DIGIT SOFTWARE FLOATING POINT BAZIC 3= 12 DIGIT SOFTWARE FLOATING POINT BAZIC 4= 14 DIGIT SOFTWARE FLOATING POINT BAZIC 5= 8 DIGIT HARDWARE FLOATING POINT BAZIC 6= 10 DIGIT HARDWARE FLOATING POINT BAZIC 7= 12 DIGIT HARDWARE FLOATING POINT BAZIC 8= 14 DIGIT HARDWARE FLOATING POINT BAZIC ENTER NUMBER OF BAZIC TO BE CHANGED (0 TO END) 2 W wil selec fo 10-digi softwar floatin poin baZic (Hardwar floatin poin operatin system: The configuration process is the same as for CP/M. Fo baZi t functio unde th MP/ operatin system yo mus disabl Contro C Yo ca disabl Contro b addin thi lin o cod a th firs lin numbe i th firs progra t b run: 1 FILL 280,1 Yo mus eithe ad thi lin o cod t th progra o FIL thi locatio manuall fo baZi t operat unde th MP/ operatin system T disabl Contro à manuall (you respons i underlined): READY FILL 280,1  READY COPYRIGHT 1981 - iii - MICR MIKE'S INC. baZic File Name Extensions Unde CP/ baZi program wil hav ".002 extension e.g. "PROGRAM.002. baZi dat file generall wil hav ".003 extension unles specifie otherwise Typ machin languag program wil hav ".001 extension. Movin NorthSta BASI Program an Dat File fro NorthSta DO Dis Forma t CP/ Dis n progra writte i NorthSta BASI wil run wit few or no modifications, under baZic. Micr Mike's Inc offer variet o applicatio softwar t operat unde baZi an CP/M Amon man program available: .uj0 Most MMI application program manuals 25.00 MM-SO-CSUB CSUB (Common SUBroutines for baZic) MM-SO-T&CTim Charge Progra MM-SO-GPTGraphplo MM-SO-OILOil/Ga Producer' Accounting Progra MM-SO-TRUCKLINETrucklin Managemen Progra MM-SO-FEEDLOTFeedlo Managemen Progra MM-SO-G/LGenera Ledge Progra MM-SO-A/RAccount Receivabl Progra MM-SO-PAYROLLPayrol Progra MM-SO-A/PAccount Payabl Progra MM-SO-INV3 Inventory Control III MM-SO-EX-PAY Expanded Payroll (30+ employee cat.) MM-SO-JC-PAY Job C baZi i fo us wit th NorthSta Floatin Poin Board.) COPYRIGHT 1981 - ii - MICR MIKE'S INC. Now you will see: THI LIN SHOUL B A TH TO O TH CR AN TH RES O TH SCREE SHOUL B CLEAR 1=YES 0=N 1 Ente i th abov sentenc i a th to o th scree an th res o th scree i clear A thi poin serie o loop-de-loop wil appea o th screen Belo th loop-de-loop th followin wil b displaye o th screen: THIS COMPLETES THE TEST. IF EVERYTHING IS OK THERE SHOULD BE A DISTINCT PATTERN FROM THE PREVIOUS !@ STATEMENTS ENTER 1= EVERYTHING IS OK, 0= NOT OK I everythin i oka ente an th nex promp wil be: READY Configuratio i no complete T tes th clea scree functio typ (you respons i underlined): READY CLS  The screen should clear and READY should appear at the top, left-hand corner of the screen. Adapting baZi for operation unde th MP/Format utilit fo movin NorthSta BASI program an dat fil fro NorthSta DO dis forma t NorthSta CP/ dis forma i availabl fro Micr Mike's Inc COPYAL allow yo t cop fro NorthSta DOӠ dis forma t on o fou differen NorthSta CP/ flopp dis formats COPYAL operate wit th NorthSta Horizo only; the Advantag is no supporte currently. Machine Language Sort Subroutine and Powerful Editor for baZic Sڠ Softwar System ha develope fast machin languag sor subroutin which onc installed become par o baZic N*SORԠ i man time faste tha th fastes Shell-Metzne sor writte i BASIC N*SOR i availabl fro Micr Mike's Inc. N*BUӠ i powerfu globa edito fo baZic I i availabl fro Micr Mike's Inc. COPYRIGHT 1981 - iv - MICR MIKE'S INC. Application Software for Use with baZic Virtuall aosting Payroll MM-SO-BRINVBranchin Inventor Progra MM-SO-MAILMailMaste Mail Lis Progra MM-SO-ACRSACRS Depreciation Schedule MM-SO-AMORTAmortizatio Schedul MM-SO-CJC Contractor Job Cost .uj1 Prices and specifications are subject to change without notice. COPYRIGHT 1981 - v - MICR MIKE'S INC. ]:&9H<þ?|%:");)ұ; ;=£;|;x*<;]:&9]:ô7x%:]:9| "<. < <7>{_zW}o|g=<÷;|G)<|%:Ooyg%:*X .<|:8;g{o(:*6=!\ L=G:Z