!>)! >)!>)!&#<   :o![!t :o !t! >x>z >:o! p!>:o2AFIRST DIR UBOOT DIRECTORY BootPicFT WBASICPGMTWHELLOAHH*WPRINTERHH-WBingoV2ApB2WBINGOV2HH:WREADmeHEFTBYBLOCKS LEFTD\BootPicBASICPGM 00000000* Ό͉@@@????????000000 ??????3300 33????DDDHLHNࠠʪΤ0 Ȯ΂ $Ό쪬?Ό @@00000000NNB ## ????????000000 ??????ꪪΤĄʊ 0NJ  ĪࠠʪΤ   * ?HHH000000 ??????0033 33<HIMEM?LOMEM@BREAKANOBREAK?B&+-*/^<><=>=<>=ANDORNOTGOTOGOSUBSTEPATTHENTHENTO:#(),;=<=>><:=;;;==:[>::c::;<<<:i;w>=<:<:C>:y:::C>::::C>:i>:6>:N>:'>:Hi CathyFATAL SYSTEM ERROR Coleco SmartBASIC V1.0 (c) 1983, Lazer MicroSystems Inc]: NEXT without FORSyntaxRETURN without GOSUB Out of DATAIllegal QuantityOverflow Out of MemoryStack OverflowUndefined StatezW(02&?(#z2&?é*+?""?*-?"$?*.?"%?[%?*.?}2?".?S%?!&?4;z|(0 ց}(ց82&?PY:"?Ͱ:#?Ͱ:$?Ͱ:%?Ͱ|¥è(&70*+? DM*-?Z:? yHCZ;|z ƀ( ƀ2&?!"?"?"'?")?"?" ? !'?? # # # # # # # ڴ7!?###!.?>+++++++:?*?)""?*?j"$?:?:%?2%?:&?<2&?*?""?*?"$?Ð!'?? # # # # # # # N!%?˾:&?:%?!""?"Ý>O'd GOSUBGOTOINPUTLETNEXTPRINTREAD REM FOR IF DATA DIMONONERRSTOPRETURNENDDEFCLEARRESUMENEWPOPRUNLISTTRACENOTRACEDELCALLCONTCLRERR GET!POKE"RESTORE#HOME$DRAW%XDRAW&FLASH'INVERSE(NORMAL)TEXT*GR+HGR,HGR2-HLIN.VLIN/HPLOT0PLOT1HTAB2VTAB3SHLOAD4RECALL5STORE6WAIT7SPEED8ROT9SCALE:COLOR;HCOLOR<IN=P   *. @@ment Bad SubscriptRedimensioned ArrayDivide by Zero Type MismatchString Too LongFormula Too ComplexUndefined FunctionIncorrect Function Usage Illegal ModeBreakCan't Continue*5EMMZkx  32 | OGO Oͼ !v?N//:.?2.?:&?*.?8K+?[-?*%?SK"?[$?(D:%?2?!%?.g<<<( iHCZ% ( := }*"? DM*$?Z0 S0 »»,»$S:?"$?C"?D*"?BDM*$?R_0:?2?!BDM!R_:&?W| ehAK$?>2&?!.? !%?>w!/? !&?~/ 6+w+w+w+wɯw:&?a ֐e D*$?|<=J X ɯo>g!7!/?r !&?zʧ ʪ {D_z/?Wʫ >>=# w+ ˺r+s+w+wSz> Ø [%?*.?z | } z { $?!-? + + :%?<ɴ } 72?GOW_oO+(- =2?E(je(f.  ( 0 g} ͔ }o͔ ُ͔ ُ DMZٍo|فO0    7}o( / `i)DMbkjɯGO+(-  0 0gx 0VGGí xDG ehAS"?J"$? *"?*$?&M0)O!; #6?*%?".?*#?",?*!?"*?,-*+?6+#6?*.?"%?*,?"#?**?"!?,-*"?6"#6?^!coQ$~oY$~#fo>R 7&og 7 &og 7 ogg !"?͟!+?͠PY   W_r o g##~`}|##~O#(>7/2 ?͵: ?/2!?Gxw *  32  32>  3  ~ N O# ͟{zYP!9+!&?W_3!9ѯ!"?!+? y#NOybk`s#rx#+>!"/?` :2?_''_! R5/ :&?K"?[$?ք( :< :2?z0w#zW=(`i)DMj)j)j DMZG :2?G+~0 +~:? 8 > 6.DG#60#w G( w#6. 60# %6E#:?+ -Dp#/ p#:< p#+v?R}:&? :%? !?4! ]*%?|}>2&?!!,!!Y!C<!!րog7g /!]:&?!&?5:/? :&?͂!.?~(˾!<,(ͳ)2B?͸ (>2B?h80;!.?˾`;JY`:B?/ !]h89D!2*?`ì' '͵#2!? :!?#~#foyٷ̓2!?̀T2!? [>">x@Gpʢ[>}|0##^#V#Ox $p( ːS>">33æ>(Oxp(++++>#.͡2> .xG(*> %[>">!X˘PWHW̓.yٷj.˰!HÖ `NO! ~#fo2͵/͞C͛t 3K"?q#p#K$?q#p#:&?w 32 DMq#p 3*"?}| q#p˸ˠWt.!">ã>>xD[>*"?"+?*$?"-?*%?".?+?! "?*%?*#?*!?"!?"#?"%?*.?*,?**?"*?",?".?2 |x} }? !%?~:&?˾r1);8In"ITy445-@K.|OGX}fё~ L~  l]-q|oetv/wvzXc|u~r1їyJv3#}]Ijv6٪{J靁yV^d 8v;8[%?K>?*@?z(8{(K#?C+?"-?!ͬ2>?ͬ2??ͬ2@?ͬ2A?K>?*@?2?_~Ͱ#}|*%?*#?*!?,- go*"?!9}w#|wo}|,-"!?"#?"%? go*"?6" ]ѷ 7 8 ! ] & Y$$* -T <K'&O,_B"J }#t'%F*w-1mA4q7P;e<>~JlAE2w8HfK|O5$4RB.aU ̼ Y /\[_A_p cw+f֔Vi7mG'pYQsnw= #zL} Hz@PC$t >(kn@C:h* 52_c/1:k ^# x-÷&X2x?h)SaQYԺo%(Ny9?!I@|o|稭7EW߄v |Η@½pQv!w?:&? 60+6:%? 6-#2%?&:&?<0 ! ]%W!? ~0{2??!+?yON#x /*+?["?## !"?`""?###>'`p:&?:/?:&?G:/? ͸ 8<X ͸ 8L(J* ͸ 8(8 ͸ 0* ͸ (>2&?!""?"$? ͸ (2&?*"?*+?##?.%3 7̓7 ̓7 d͵3Gx r̓1̓Cyٷ( ֠ 0 OO )\cjqx Av AwI<!.?˾Dogg /!Ͷ:&? <R :.? ! #:%?>|,K3?[5?Y>@|:%?>!%?˾2B?!]K"?[$?:&?ւ8(+ 88:<®!= C3?S5?:B?W! ˺r(!BDM!R*R8 *B!0&!BDM!@R!)x(>=! ˺2&?C"?S$?8r"7?,`*7?ͶY`!͸ 84!͸ 8 <!Ù! !<*%?$"%?! !!!< !!!!`~#+?"7?*"?"9?*$?";?:&?2=?*9?"+?*;?"-?:=?2/?`*7?+?"7?/*>OzH>g "gk"% m!  !4 y -!:'$x' %R+^,,*+/+4+9+>+C+H+++,+8,B,M+--'P*,,[+o+4//+v*' 7~G#N#^} ~#N#F(- ~#fo_}o+DM##(## w !͏*>6++++DM+">p+q_ +o(R?p+q~G#N#^} A! ͚̓_0{ ͚͹p+q  8";Wz0T]œ) DM o͵;" ?* ?!`iF#  :303 0Kz^#V#͚8%2 8$%+R8&# bkN/~DO~_# /# >?./BKE#!?b ( *#7S?y2?͛l#x$ $#T] ~#t# BK["?s#r#[$?s#r#:&?w ,(ʯ# #Ý#yٷ *#yٷ( M#!#N/`/@ !$N/[?:?O`/*#>?Extra Ignored?Reenter0 ~ #$S ?T]("h$>#~,(-$S ?ѷR}`i`}|##~#(ODM[ ? "#Ý##~"7$7$#j$#~ #$T] 2 }|BKÝ#i/͛$$$o.(E(e(-(+( 0 : e &og K%?w#w#w#q#p`i>`}((yٷo `iyٷ} Bo"O?0CO?0}iO|`GWB( N͓4BXXCO?0͓4)yٷ*>|   yٷ`i y ٷ xDgyMoB"O?000$"O?0[>R( +++V+^R81*>|(ã>`i1ã>3+:&?6=6 Ö ̀ AfkDo-ck (> .-    W=<  3x¸yٷx`/*"?##N/îAfO> . yٷx!!9>> >> >>>>3:&?(*8&ͳ)*$?:&?| ֑<<&'X $'!'̓2ѯ̓*?'~ogg ' }*?B yٷʫ' }gxʬ'̓*?2'*>K>Bg *>">T]*>S>K>B=(^#V+0(0(:>:>]T##~"(O*>S>'##~#o'$'*>">*"?##~ #Ow?v? ( *"?##~#n&g 2 |M ָ "!B >}=X!- J!D!  ̓͛!     B! #x+ y­!!##N#~##+ y0+~+ngÕ! 3K"?q#p#K$?q#p#:&?w 3*%?*#?:"?3yٷ"" 3*%?*#?:"?3!1"!9H" x`(yٷv"͛N"     ~ ~(!9>`i!9~#fo"?!9+?/!"?+?͸ ~ (0#|+(!1"H"!9yٷ k" WY >!>   *F#~#+  !30Ʒ ̓2 8͚ A x_0{ ͚͹q#pyٷL}!9ҭ8)|x" ?S ?Ay7O ͏BoDM*>(R?rsr+s+qDM+">[ ?* ?_0(1(?(3((8(_x=  > O&o0$͏yK> ">`iq#p#w++!.9>K> ڤK>B'K> K>B`/*>K> ͓4N x yٷ( !)yٷ(*>| |###w*>">2>2>2>:>j%*>K>@%K>B##N#F# .% W%O@%@% C>">@%2>͛2&w%%Y&͒M&T]ø%*>:>O~ ž% '&#Ð%,ʂ%"%T]"? %#~,­%# ">y2>R-}`^#V+}|##~%#[?OM&#">#ý% '&#T]"?~" & %#% &#~,& &  #">#ý%y2>">o%Y&`iK"?q#p#K$?q#p#:&?wyٷ %:>O[> p& &b&,&y2>S>,ʴ& }&*>w?:>O">x2>w?  ʨ&[> bk[>">R:>O*>~,&  &#&y2>S>2&?ɯ2&?bk# ">y2>> >> >2?S>">0@’c_`/>?.:? >2?G!( ~#o0$N/:?0!N/p(!N/+++V+^ͧ2`/!""?"+?:?£>ːæ>HK>Þ  Error In ˀp( C> %*>+">*># K>x >(DO8Ww#w+:> :>(T]K>">*>BDMS>*>">"> p*~0 #!   ֌*~ q#p p(H( ˈ*>[>  CO?0Ҹ ̀>} D!}=ʖ -  yك_̓ CyO##~()O ָx) ()gO  yLw)ڢ)GyHv)( 9)E  ڢ)9)9)yAOx = G!"?y<(%`""?##N####xo0$ѯw#wɯ!"?`""?Ý):&?K$?x(*"?*$?*%?!* **"?8<)%)˸C$?""?}2 g }!%?".?"-?"+?͸ (!".?!"+?",?/:?!o0$n&g }2? Afo&g Hfo&g '*>B**>[>RT] DM*>+BzPG{YO*>">">">S>*!k+BPY*>K>BDM*>S>">">">*>T]))[>"> (:?.C4N/ G$3!(.4xN3V3a33l33ʥ4!(.0._ͧ2 ^#Vͧ2 xgoT]))[>~Wz@3z(2G###~.B ( `G .D x0 >$.>%.###~#foyK> ON/Ô3!/;N/N/N >".F yON/>".yH Ox14> .xM4N/.x4e4)4> .> .:?x(?!T4!2 b4^#W4O2 > .3ys4&o#e4!|N/|4͟2^#V#|4`/2"?2#?2$?2%?2&?yO*>N#F+ : 5 ##~`i`N#F+}|##~(#*>###O"Eyٷ]- > >SYDMVdyٷ > >Ed3-d2 |}Oiogg *~( ~###GOx7|gDM ) K> F#~#foDM~! _ W͚=-0(͚|`G}iO̓-̓-hѷ!8FO#y.Hy*.,.# x.;. ;.".7 .7.oe.A?[a?{0?:!">!">">!@">?!"@?7ͬM!v?N/`/w?RE> .>^.`/N/!.N/`/ã> Expected*I?2f ( :1?= > f>*>xG*>5~~x###B7y8>77yN#F*> OF#GOK.P7##|+733+++~*>+B|g7!">͐.Too Many Variables Declared!7/8*>#> >5*>T]K>BDM!">(+#S>Ay82 ?@: ?7Hw@y#q#p#O8<5*>[>Rs#r*>q#S>^.0 w8*>#">+>g!">͐.Statement Too Complex*>| >!>`">###6*>###^4#>)8)DM) p#q#r#s#K>p#q*>|###F#~#N#V#^#͊7F#Nz{!">*>w#">g}w|^6 >>>> >>>g[5D52121 }o*>^#V*O?R.19100*> *>7100A1DM[>*>B`i[>R:M?O*>T]BK>B1">xʙ1:O?:P? xʲ1sr:M?O*>#">))">*>">">*>+">!."O?0##^#V0K>*> BKR`iPY=O x&2K>x2V^RY2b2 82:N?_b2rs~w~w 82">+">*>+">))">:?^#V#2Q?!>=(18 (:Q?7{0.N#F#| }8B:?3  >?. 'K>BK>B">!3f&!f!!'f!H!M/I >M(I>' >'E͞J>' >'}g >'}_uI>' >'}g >'}_I2 |>'  >'EJogg MOf}>Mkffyٷ( > >E]g͹fyٷ( > >E]i Mf Mf =- > >>*>###">##~#o0o&͏*>:> :>(P ##N848*>65O ">">.X.ڱ5l.ڦ5:(.< '<(@G(?ʓ5>=¡5 7<ʔ5>7 l.ڥ57 X.ڰ5l.ڰ577>!5>!2_A~5N#K.5+R7~yo5$555!">!w@">z6͑66L6͐.'Meaning Of Line Unclear ':' Expected ?8*>w@B|o6͐. Line Too Long}2M?͓8w@K>8ͨ6*>B}=.:ʜ6.:ʜ67[57x6&(͐.Illegal Command5688#~#fo6>8!~7#N#F#!6=6 f:0?21?:?G < L >)U? ~#fo"I? >)e? ~#fo"E?~O#~. T/!~N/*E?2`/!yN/:nB2nB:pB :lB2lBu?>N##i/ 8,0(ẅ́0#xڤ/6x͓0:pB 2lB2nB!Q0 !b0 ~#fo>>̈́0ä/wó/xʤ/+>̈́0ä/:;Bw>̈́0ó/͸GzD6 #xһ/> ̈́0= ä/>\̈́0͓0à/   /////////D0//00$00/*K?2!~F#~̈́0!O 8l.)8 DM)8)8 0͐.Number Too Bigbk bkBи7?88780 88$9?0$980 888?08 9!Q90!f:[5S97%=#<.%="=88͹98Ұ<[5050 0887B0͐.Illegal Equation;9Gg;9ҥ9g.|9.0#֠!9o0$~og>oDM9}8Y x8 x8p7˄!5Ð.O:O:͑.Numeric EquationL:L:͑.String Equation!͹9|33r:r:͑.Equation͹9338:>8:C>:<6>(͑. Real Variable<>:6::͑.'THEN'>88"8[5ҹ6( ¹6>8z6>8>Ì=>8:>> !&> !&!"tB! "sB!>>ͶC >2qB8xG:pBx:mB  80 !lB(DDz :mB C͞C< :kBDÉCK2kB>0 (ͨͨ> CaBScBSiB"eB2gB2hBz2B=2?B::B2;B:9BGO2qByC:9B>UC!G !G G~#foCG*iB$:=B0:o&)))KgB :nB2nBxG2nB:pB :rB{>2qB2oBF: GTD> F*iBWD*iB:>B( l.8X.>8<͐.Number Too Big 8:&?ʥ=C=C=*"?|f=>8*"?}8|8*$?}8|8:&?8:$?C=2 7g ͸ C=|=>8X Ú=!>[5ͣ0|·=} Ҭ=8>8}8>8}8|8:!>=>"78*>8= >"> 8=x"(q>͑.'"': 0?>8ù6>8.:–>>8͑.'='8͑.','>8͑.'#'>8͑.'TO'>8͑.'AT'>8͑.'GOTO'͑. Line Number͑.':'1~a@Wv/!>/w?.l.> 6ͣ0"O?͑6> 6J11kkkkk>F!@B:bBO:;B*iBGZG!@Bp:pB zW:nB!@Bw*iB>2oBZG!;B\b)))))[eB:oBWo&)))KgB   GzEBED E&EDDEEEFEEDD&E[iB[iB:BD_G*cBKaBxAOZG!@B::B!@B +G(##6!@Bc> f> f,GZD!9B>w!:B>w2pB2lB2mB2nB͖B>2pB2mB>2lB!9Bw>!:Bw ͱHͱH!>0>ͶC 8 !HsK!H͆K>2pB!>&!A6!  !H H ͠f!>2A(!;N/`/>.!)AA ]HELLOA:pB =2rB:qB{E:sB=jA*tB>g"tB>)> 2sB2rB#g_ yB   !>)!>)! >)!)!8>)>!&>! &>! &8!JC!8:C>:>8;3;͑.'FN'FN [5y!0;K.[5Ï:͑.'GOTO' or 'GOSUB'>88>80͌=88[5ʗ=Ç>ͧ;ͧ;͑.Line Number Range[5(888[5×=͗=Ͱ;. $( %(>.(y͐.Illegal Variable Name<͑.Variable<<[5?y8!0;K. &[50 D68x8G;G78Q8x@j<|8}8 ( y8 (^.0 8 €<͜BʭD-:=BgE>2oBaE:pB >2oBaE::B2;BZDͥF:;Bw T]+:9B>2oB͔E:pBZD>2oB͔EZDͥFT]#::B~2;B:9Bw:aBG*cBOF::B2;BG*cBTDFZDF*iB,:>BO:aBZDG:B(ҭD:?B(ڭDE:/O>y>y>y!+| >yíD!@B ::Bw#>F:bBO>2oBlF:pB>2oBZG!@B,>2oB͑F:pB>2oBͥFA:F::B2;B*iB:=B2oBF:pB>2oB*cBZG:aBG,ZG:bBO!@B!@B  PP CC / /RC /. / / / / / /CCCCCCCCSPC TAB ERRNUM>*ABSASCo(ATNTCHR(COSjEXPFRE'INT)LEFT )LEN(LOGMIDC)PDLc-PEEKk'POS\*RIGHT!)RNDXSCRN,SGNSINrSQR^STR(TANHUSRY'VALE(VPOSi*JFU@JL[@GYY|p.z}!>"u?bkN#yo0$~#~#fo͍7!>w!0AfF>2oB9+t.2lB2vBGf> 2:B>_29B2qBͨͱZͪZͣZ͸Z!yB"B!A w!Aw c!A)A>&!5>&!>&! `5;I2A6I2A!]I!MI ~!lIy        IIII:pB=yHGSyIYHCDXGCJ͔KO!mIO ^#V( y y!ͰKèIK!ͰK!K!ͰK!K1J>JUJqJ:pB=yHGSyJYHCDXHGBK͔K!IO ^#VͰK(̓JK!ͰK(̓J!K!ͰK(̓J!K(̓JA !!ˁJJJJ:pB=xAO͔K!JO ^#VͰKüJK!ͰKüJ!K!ͰKüJ!KüJKK%K0K:pB=B*A"AhS:A!A '@S^`/[B*Aͧ2!SN/`/:Aa7?S_!AͥS!SN/!B͌S`/͠S͘S!AͥS.[B> ͨ2͠S+6 !B ~#.`/:B>*8> .B > B ~(#+~DIRECTORYVolume: Blocks Free [D[>A[+B!A q#q!Ab0/!A:A 7B~`!7B~#  !"A`:A!A^2A!A͔axP(p!AbV#^SA["B:A*B:APY^*B:A^2A2A*B͔a+B^b\\ :A^:AGaa X[!"A. 7RP>A[!Ab"_!A((O(͡P(͠P(qQ(R(͔R($`(Z(Z(ͨ](](ͱ_(S(ͷW(!V(T(fa(oaLLOLLOLLͳbLL]LL4PLw?.N_!N N[5N!NFx(/#K.( #xoM$Mxo0$8.N!AO ~#foˀ͘R0ã>(O8!O(O(͡P(͠P(qQ(R(͔R($`(Z(Z(ͨ](]NONNONNͳbNN]NN4PNOAWPCDRLUBNMSIFOPENAPPENDREADWRITEPOSITIONPR IN CATALOGDELETERENAMELOCKUNLOCKBz :A?bq#pjV%_!A(!A:A^2A!A͔adO> jy2A?b##~#fo N#F ^#V ~#fo|gB(| _}l _ _g _`iRjV0:A2A\x jVy%a$W[>A[.(͋Y8X!Ab"_!A%a:A!A^^~#x0 2A!A͔a*I?>O >U7"G?!OU"I?7շY~#X!A%aA:A^!A:A^2A!A͔a["B:A*B:APY^*B:A^F+NCA*B2A2A͔a:A2A\\x z  x \\z :A?bq#p X%_!A%a!A:A.,Q.ߨ.$ #.YQ!oYQ0)8 )8)8)&Q?m.ͣ0xAA(As#r7m. '? ?[PPD[["B:A*A :A*B^:A*B^2A*B͔a!"A>2A:A!A^:AKA*A^:A^:AGa>HS\7[.(,Q.A P*A"A7D[0>H[:A!A^2A!A͔a:A!A^:A%_8*A"A:A*A( ^:A:AGa*A7^R!"AD[:A!S^!S͔a2A!A^SS:A!A^%:A!A 6!BF 6(X^ V( [xAO͔K!JO ^#V@K8KWK8K!@K8K!WKCI!wA:wA????!wA:wA:pB> ZC~#^#V#)sK~G#N# ÆKP((xGA)a0oz!wA:AO>!wAwxA!wA!wA:AO>!wAwK*I?!RC"I?!xBN/"I?`/!vBV K(8O:pB:?(͞C< !:kB!? =2?͞C< :kB!? >yZC͸Gzѷ> 2vB (*Bw#"BBB_*B2vBwyBR}SB*AL.L!NL[5L!NFx(G#K.(#xo0$ðL*C?"E?*G?"I?xo0$8.N!sO ~#fo͘RL(O8_:A!A^2A!A:A͔a*A|7MD:A?bo g}| \\_ x 7*A*AURC! /"I?>2vBRC :wB (>2wB:A2A?b\G"(?####^#Vr+sz(- *\x\\z ##^#V++r+sU\:A2A\_:A?b"(+####^#Vr+sz( \z ##^#V++r+s[>A[.(͋Y8q!Ab"_!A(:A!A^~#(2A!A͔a*E?>S >U7"C?!SU"E?*K?"A!V"K?7O>y(%a!2A2A/շY~#(g!A(:A!A^2A!A͔aF+N\x z  x \SAVEBLOADBRUNCLOSEMON NOMON"LOAD$SAVE&FP(INT*INIT,RUN.RECOVER0NN!N(N/N6N=NDNKNRNYN`NgNnNwNNNNMMTMbM[MiMpMwMLLMMMMM#M*M1M8M?MFMMMMMMIllegal Form Of OS Command>>!>]2z7[D[>A[:A!A7>H[:A!A7^[[D[>A[>A[:AA!A7>H[>H[:AA!A7^[D[>A[:AA!A7>H[:AA!A7 A!A>a[>A[:AA!A7>h[>h[:AA!A7^7[D[>A[!AA:AP>H[!AA:A^:BGX x/2B!AA:A7^L!A^2A!A͔a["B:A*BPY:A^:A*B^2A!"A*B͔a:A?b##N#F:A^b:A2A:A2A\\x X!Ab"_,‰Y.B_(R‰YYM*A"A.( Y. >B([A*A(>7ɸ( *A7[A!>7[._ GQ!dZ!lZ_!tZ D`i aZ <<<2pB2mB>2lB YcYc 8 !{A6#6!DcsK!Tc͆K! >&!>&!A6͠f>2pB2mB>2lB!9Bw>!:Bw YcYc!>&!5>&! `5!>&!>0>ͶC :pByHGe! Sf! f!!fPYCeKfeyHG{ZWx y  d:pBe! Sf! f!!f˅ˍ˕z0DW{0D_8zS_dQX!{AF#Ns+r\d!z/DOe$k&JeJBDM^*I?!\"I?[z]D[z]["B:Awb:A*BKA[A^:A^2A*B͔a#^:A^:AGa:A[B^>AS\7"I?\*A"E?*A"I?*A"K?:A^:AGa> ]!]"E?*K?"A*A"K?*I?"A!]"I?]!]][D[[:A!A͔a*E?"A\*A"E?*A"I?*A"K?:A^:AGa2?*>K>͓4 x > 2? Range ErrorWrite Protected End of DataFile Not Found I/O Error No More Room File Locked Syntax ErrorNo Buffers AvailableFile Type MismatchControl Buffer Overflow (, (((((%(!g= g>!g=g>!g=g>!g>A-gG>G!AySg>Sg>Sg>Sg!`g_^#Vpgzgggggggp6g6xDwg6pgp6gxDw6g6pg6xDwgxDw6##6?$$--66?:pByKXWe! Sf! f!!f*~AyO ^#V*~A~dhGuh̓hx_huh̓hx_huh̓h#~/hKfeW88x_8!Ax'oґh$~#ngy:}AG®hCeˏxGxʺhDhxhhxhDGyOyhDhyhhyhDO^:AA^a!Ab? 67bFOa( AaKawGa`ã`!A (+~za'/7zaA/7ɷ.# .m.0o&!A ~("_p#w 1#s#r( X b"_#++xRwAx!A # +6#kbA>AL.( != ! 7O!A ~(#~+( _~?b q#p> # *I?!b"I?!"A"A#^"I?*AJ"A*A#"ABASICPGM[D[!Ab:A7!Akb w!A:Aͽ:A!c^!c^7?.,7?[!A!A .Z8[Z8Z86A#67.(, .͉[yx!Zȷ CG8.m..(, .!Zk[ .1!Zo0$~2A> ++!A!A͵[w!Z!Z"_>A[:A!A2A>H[:A!A^2A!A 2:A= KA:A!A  x :A:A%_:A^ A!A>A[:AA!A(>H[:AA!A ?>a[:A!A(>h[:A!A!A͵[~!A͵[ w:AA!A^[:A[B!A^:A!A x!A~ ^!Aw:A,eDMz=dKfeU&ezS_M/e{D_E8ezDW{_zWCe:pB( y8ïe!{Ap#qe! Kfy³ex³ey_! fNxG7G:Axʜe/wïew!f>G:Aw"fe! f!!fveY5KX5Q2)))! fPY!!f>2lB2nB:pB2lB2nB>2nB:pB2lB͸Gz͸G{ͳGyWy_}f>ZCͳG Y}f>ZC:B8_:?B_!&#< :pB!Af!A˾:pB!{AV#^gyf>2}AA>?G///O:f=g>>>>$>>>>>>>>> >!2?p(S>">@’c_`/:?G!>^( ~#o0$N/`/ã>! /"I?!C"E?!RC"K?!A#~#(+w#~#~#fo]T ~!Aw[P8!"AD[>A[A!A:A(^!APY:A(^!A ^!A~("_!A *As#r7[D[>A[!A(E!Akb !A~#N(8`(^#V+EM!AL.i(##:AAay?b0Oa```0\\ :A:AGa!C"E?^:A[B*B"B>A[>AS\a! /"I?,!C"E?!RC"K?! /"I?:pB!Ag!A˾i>!A>!A>>!i ~#fo~(]>çi~Gi~Gi~Gi~0:8=( ; >#çi>*çiçi~di~çi~çi~~ ~~ :i:i:i:iiiiiiiDiOiUi[iai~iiiii!A>>!A>>~!jO ~#fo~!jj!ij j!ij j!ij j!ij j!ij#j j!ij#j j!ij#j j!ij#j j!ijj!ijj!ijj!ijj!ij#jj!ij#jj!ij#jj!ij#jj>0>w~0w jj,j>j#j jXj j5jKj j jejjrjjj{j "; 48FOR x=1 TO 3:? CHR$(255); :NEXT:? " "; 49? CHR$(255); :? " "; :? CHR$(255); :? " "; 50FOR x=1 TO 4:? CHR$(255); :NEXT:? " "; 51FOR x=1 TO 4:? CHR$(255); :NEXT:? " "; 52? TAB(31); :NORMAL:? CHR$(143); 55? CHR$(143); :INVERSE:? TAB(31); :NORMAL:? CHR$(143); 56FOR x=1 TO 31:? CHR$(143); :NEXT 58?:?:? 60 t$="BY CHARLES B. STERNBERG" 61? TAB((31-LEN(t$))/2); t$; TAB(32) 62 t$="MODIFIED BY H.M.GUILL":? 63? TAB((31-LEN(t$))/2); t$; TAB(32) 64 t$="GRAPHICS PROVIDED BY":? 65?:? TAB((31-LEN(t$))/2); t$;10? CHR$(4); "Brun PRINTER" OT DIRECTORY BootPicFT WBASICPGMTWHELLOAA*WbingoV2ApB-gWBingoV2ApB2WBINGOV2HH:WBLOCKS LEFTB^jjjjjjjj3? CHR$(255); :? " "; :? CHR$(255); :? CHR$(255); :? " "; 34? CHR$(255); :? " "; :? CHR$(255); :? " "; 35? TAB(31); :NORMAL:? CHR$(143); 36? CHR$(143); 37INVERSE:? " "; 38? CHR$(255); :? " "; :? CHR$(255); :? " "; 39? CHR$(255); :? " "; 40? CHR$(255); :? " "; :? CHR$(255); :? CHR$(255); :? " "; 41? CHR$(255); :? " "; :? CHR$(255); :? " "; 42? CHR$(255); :? " "; :? CHR$(255); :? " "; 44? TAB(31); :NORMAL:? CHR$(143); 45? CHR$(143); 46INVERSE:? " "; 47FOR x=1 TO 4:? CHR$(255); :NEXT:? " TAB(32) 66 t$="GERLACH FAMILY SOFTWARE":? 67? TAB((31-LEN(t$))/2); t$; TAB(32) 70REM data initialization *************** 72 y=1: ln=0 73DIM c(2, 75) 74DIM a$(5) 75READ a$(1), a$(2), a$(3), a$(4), a$(5) 80DATA "B", "I", "N", "G", "O" 85FOR x=1 TO 5000:NEXT x 90HOME:INVERSE:? TAB(32); 91NORMAL 92?:? " DO YOU WANT BINGO CARDS" 94?:? " PRINTED FIRST ? " 100GET an$ 110IF an$="N" OR an$="n" THEN 160 112IF an$="Y" OR an$="y" THEN 120 114GOTO 100 120GOSUB 590 130? 140? 150? 160? "PRESS FOR THE NEXDFHJLNPd BRUN BINGOV2d  ONE MOMENT....)d ONE MOMENT....) BJ(     (21  II 21  I 21  PRINTER21  MATRIX 21  ADAM 21  DOT ' TURNED ON AT THIS TIME ? ADAM SmartWRITER PRINTER PRINTER OR THE STANDARD DO YOU HAVE A DOT MATR>2BB;;&.BB>k>[>R##DM)kk,l޺~@,l ,l,l͈  >*o(T(j#'')+ )/(48C)<c-@k'D\*I!)MXS,W\r`^d(hHlY'pE(ti*xxv!eSPCTABERRNUMABSASCATNCHRCOSEXPFREINTLEFTLENLOGMIDPDLPEEKPOSRIGHTRNDSCRNSGNSINSQRSTRTANUSRVALVPOSxu- d b"B$"&( *,.02468:t<\>2@&B#THE NEXT" 162?:? " CALL - OR - ENTER 'BINGO'" 170FOR io=1 TO 75 180?:INPUT "===> "; b$ 190IF b$="BINGO" OR b$="bingo" THEN 220 200GOSUB 1020 210NEXT io 220HOME:INVERSE:? TAB(32); :NORMAL 222?:? " NUMBERS CALLED: " 230?:? " "; 240FOR i=1 TO 75 250IF c(l, i)=0 THEN 270 260? a$(i/15+l); " -"; i, 270NEXT i 280REM 290REM TERMINATION ************* 300GOTO 2000 310REM LINE PRINT ROUTINE ********** 320FOR j=1 TO 2 330? ":-----:-----:-----:-----:-----: "; : ln=ln+1 331IF n=8 OR n=16 OR n=24 OR n=32 THEN 340IX#)  b!. + 229,33,40,0,205,99,252,225,201  00P M 126,254,3,40,13,245,219,64,230,1,40,250,241,211,64,35,24,238,201: 7 229,33,41,0,54,3,43,119,205,99,252,225,201B ? 03,03,03,03,03,03,03,03,03,03,03,03,03,03,03,03,03G D 229,33,70,000,34,100,252,33,057,000,34,103,252,225,201 F C 229,33,21,245,34,100,252,33,252,244,34,103,252,225,201)!9B~68:t<\>2@&B#T" 162?:? " CALL - OR - ENTER 'BINGO'" 170FOR io=1 TO 75 180?:INPUT "===> "; b$ 190IF b$="BINGO" OR b$="bingo" THEN 220 200GOSUB 1020 210NEXT io 220HOME:INVERSE:? TAB(32); :NORMAL 222?:? " NUMBERS CALLED: " 43); 55? CHR$(143); :INVERSE:? TAB(31); :NORMAL:? CHR$(143); 56FOR x=1 TO 31:? CHR$(143); :NEXT 58?:?:? 60 t$="BY CHARLES B. STERNBERG" 61? TAB((31-LEN(t$))/2); t$; TAB(32) 62 t$="MODIFIED BY H.M.GUILL":? 63? TAB((31-LEN(t$))/2); t$; TAB(32) 64 t$="GRAPHICS PROVIDED BY":? 65?:? TAB((31-LEN(t$))/2); t$;; t$; TAB(32) 66 t$="GERLACH FAMILY SOFTWARE":? 67? TAB((31-LEN(t$))/2); t$; TAB(32) 70REM data initialization *************** 72 y=1: ln=0 73DIM c(2, 75) 74DIM a$(5) 75READ a$(1), a$(2), a$(3), a$(4), a$(5) 80DATA "B", "I", "N", "G", "O" 85FOR x=1 TO 5000:NEXT x 90HOME:INVERSE:? TAB(32); 91NORMAL 92?:? " DO YOU WANT BINGO CARDS" 94?:? " PRINTED FIRST ? " 100GET an$ 110IF an$="N" OR an$="n" THEN 160 112IF an$="Y" OR an$="y" THEN 120 114GOTO 100 120GOSUB 590 130? 140? 150? 160? "PRESS FOR DFHJLNPd BRUN BINGOV2d  ONE MOMENT....)d ONE MOMENT....) BJ(     (21  II 21  I 21  PRINTER21  MATRIX 21  ADAM 21  DOT ' TURNED ON AT THIS TIME ? ADAM SmartWRITER PRINTER PRINTER OR THE STANDARD DO YOU HAVE A DOT MATR 332IF ln=56 OR ln=112 OR ln=168 OR ln=224 THEN 1200 340NEXT j 350? 360RETURN 370REM random draw of numbers ******* 380LET z=(RND(y)*((h-1)/100)+.01)*100+1 390LET x=INT(z) 400IF c(k, x)<>0 THEN 370 410LET c(k, x)=c(k, x)+1 420RETURN 430REM array clear and fills 440FOR l=1 TO 2 450FOR k=1 TO 75 460LET c(l, k)=0 470NEXT k 480NEXT l 490FOR l=0 TO 60 STEP 15 500LET h=l+15 510FOR t=1 TO 5 520FOR k=1 TO 2 530GOSUB 370 540NEXT k 550NEXT t 560NEXT l 570RETURN 580REM card print routine ************ 590HOME:INVERS"; 18FOR x=1 TO 4:? CHR$(255); :NEXT:? " "; 19? TAB(31); :NORMAL:? CHR$(143); 20? CHR$(143); 21INVERSE:? " "; 22? CHR$(255); :? " "; :? CHR$(255); :? " "; 23? CHR$(255); :? " "; 24? CHR$(255); :? CHR$(255); :? " "; :? CHR$(255); :? " "; 25? CHR$(255); :? " "; 26? CHR$(255); :? " "; :? CHR$(255); :? " "; 27? TAB(31); :NORMAL:? CHR$(143); 28? CHR$(143); 29INVERSE:? " "; 30? CHR$(255); :? CHR$(255); :? CHR$(255); :? " "; 31? CHR$(255); :? " "; 32FOR x=1 TO 4:? CHR$(255); :NEXT:? " 5 740FOR j=1 TO 2 750LET s=1 760FOR l=1 TO 5 770FOR m=s TO s+14 780IF c(j, m)=0 THEN 890 790IF m<10 THEN 860 800IF k<>3 THEN 840 810IF l<>3 THEN 840 820? "|*FREE"; 830GOTO 870 840? "| "; m; " "; 850GOTO 870 860? "| "; m; " "; 870LET c(j, m)=0 880GOTO 900 890NEXT m 900LET s=s+15 910NEXT l 920? "| "; 930NEXT j 940? 950GOSUB 310 960NEXT k 970REM 980? 990REM 1000NEXT i 1010HOME:PR #0:RETURN 1020REM calls random numbers ****************** 1030LET z=(RND(y)*.75+.01)*100 1040LET x=INT(z) 1045IF x>=75T:? " "; 48FOR x=1 TO 3:? CHR$(255); :NEXT:? " "; 49? CHR$(255); :? " "; :? CHR$(255); :? " "; 50FOR x=1 TO 4:? CHR$(255); :NEXT:? " "; 51FOR x=1 TO 4:? CHR$(255); :NEXT:? " "; 52? TAB(31); :NORMAL:? CHR$(143); 55? CHR$(143); :INVERSE:? TAB(31); :NORMAL:? CHR$(143); 56FOR x=1 TO 31:? CHR$(143); :NEXT 58?:?:? 60 t$="BY CHARLES B. STERNBERG" 61? TAB((31-LEN(t$))/2); t$; TAB(32) 62 t$="MODIFIED BY H.M.GUILL":? 63? TAB((31-LEN(t$))/2); t$; TAB(32) 64 t$="GRAPHICS PROVIDED BY":? 65?:? TAB((31-LEN(t$))/2)4HOME:TEXT 5REM bingo program 6REM basic computer program for the home 7REM by Charles D. Stern - 1980 8REM modified for Adam by H.M.Guill 1987 9REM modified with graphics by Gerlach Family Software 1989 10FOR x=1 TO 31:? CHR$(143); :NEXT 11? CHR$(143); :INVERSE:? TAB(31); :NORMAL:? CHR$(143); 12? CHR$(143); 13INVERSE:? " "; 14FOR x=1 TO 4:? CHR$(255); :NEXT:? " "; 15FOR x=1 TO 3:? CHR$(255); :NEXT:? " "; 16? CHR$(255); :? " "; :? CHR$(255); :? " "; 17FOR x=1 TO 4:? CHR$(255); :NEXT:? " E:? TAB(32); :NORMAL 592?:? " HOW MANY CARDS SHOULD I PRINT" 594?:? " (prints 8 cards per sheet)":? 600?:INPUT "even # 0 to 40 ===> "; n 610IF n=0 THEN 1010 620?:?:FLASH:? " PREPARE PRINTER ":NORMAL 622?:? " PLACE PAPER IN PRINTER NOW &" 624?:? " PRESS WHEN READY.":? 630GET an$ 640FOR i=1 TO n/2+.5 650HOME:PR #1:?:GOSUB 430 660GOSUB 310 670FOR j=1 TO 2 680? "| "; a$(1); " | "; 690? a$(2); " | "; a$(3); " | "; a$(4); " | "; a$(5); " | "; 700NEXT j 710? 720GOSUB 310 730FOR k=1 TO "; 33? CHR$(255); :? " "; :? CHR$(255); :? CHR$(255); :? " "; 34? CHR$(255); :? " "; :? CHR$(255); :? " "; 35? TAB(31); :NORMAL:? CHR$(143); 36? CHR$(143); 37INVERSE:? " "; 38? CHR$(255); :? " "; :? CHR$(255); :? " "; 39? CHR$(255); :? " "; 40? CHR$(255); :? " "; :? CHR$(255); :? CHR$(255); :? " "; 41? CHR$(255); :? " "; :? CHR$(255); :? " "; 42? CHR$(255); :? " "; :? CHR$(255); :? " "; 44? TAB(31); :NORMAL:? CHR$(143); 45? CHR$(143); 46INVERSE:? " "; 47FOR x=1 TO 4:? CHR$(255); :NEX THEN 1030 1050IF c(1, x)<>0 THEN 1030 1060LET c(1, x)=c(1, x)+1 1070LET j=INT(x/15)+1 1080? " "; a$(j); "-"; x 1100RETURN 1200HOME:PR #0:INVERSE:? TAB(32):NORMAL 1210?:FLASH:? " INSERT MORE PAPER ":NORMAL 1220?:? " IF USING SINGLE SHEETS AND" 1230?:? " PRESS TO CONTINUE" 1233GET an$ 1240GOTO 660 1500? " BINGO ALLOWS THESE OPTIONS:" j=1 TO 2 680? "| "; a$(1); " | "; 690? a$(2); " | "; a$(3); " | "; a$(4); " | "; a$(5); " | "; 700NEXT j 710? 720GOSUB 310 730FOR k=1 TO ; t$; TAB(32) 66 t$="GERLACH FAMILY SOFTWARE":? 67? TAB((31-LEN(t$))/2); t$; TAB(32) 70REM data initialization *************** 72 y=1: ln=0 73DIM c(2, 75) 74DIM a$(5) 75READ a$(1), a$(2), a$(3), a$(4), a$(5) 80DATA "B", "I", "N", "G", "O" 85FOR x=1 TO 5000:NEXT x 86GOSUB 1499 90HOME:INVERSE:? TAB(32); 91NORMAL 92?:? " DO YOU WANT BINGO CARDS" 94?:? " PRINTED FIRST ? " 100GET an$ 110IF an$="N" OR an$="n" THEN 160 112IF an$="Y" OR an$="y" THEN 120 114GOTO 100 120GOSUB 590 130? 140? 150? 160? "PRESS 1045IF x>=75 THEN 1030 1050IF c(1, x)<>0 THEN 1030 1060LET c(1, x)=c(1, x)+1 1070LET j=INT(x/15)+1 1080? " "; a$(j); "-"; x 1100RETURN 1200HOME:PR #0:INVERSE:? TAB(32):NORMAL 1210?:FLASH:? " INSERT MORE PAPER ":NORMAL 1220?:? " IF USING SINGLE SHEETS AND" 1230?:? " PRESS TO CONTINUE" 1233GET an$ 1240GOTO 660 1499HOME 1500? " BINGO ALLOWS THESE OPTIONS:" 1520?:? " <1>Automatic printing of up" 1530?:? " to 40 BINGO cards" 1540?:? " <2>Random number calling" 1550?:? " <3>Review of cn=32 THEN 340 332IF ln=56 OR ln=112 OR ln=168 OR ln=224 THEN 1200 340NEXT j 350? 360RETURN 370REM random draw of numbers ******* 380LET z=(RND(y)*((h-l)/100)+.01)*100+l 390LET x=INT(z) 400IF c(k, x)<>0 THEN 370 410LET c(k, x)=c(k, x)+1 420RETURN 430REM array clear and fills 440FOR l=1 TO 2 450FOR k=1 TO 75 460LET c(l, k)=0 470NEXT k 480NEXT l 490FOR l=0 TO 60 STEP 15 500LET h=l+15 510FOR t=1 TO 5 520FOR k=1 TO 2 530GOSUB 370 540NEXT k 550NEXT t 560NEXT l 570RETURN 580REM card print routine ************ 5or correct answer 2010IF an$="Y" OR an$="y" THEN 220 2012IF an$="N" OR an$="n" THEN 2020 2015GOTO 2005 2020?:? " DO THE NUMBERS MATCH ?" 2030?:? " ENTER OR " 2032GET an$ 2040IF an$="N" OR an$="n" THEN HOME:INVERSE:? TAB(32); :NORMAL:?:GOTO 160 2050IF an$="Y" OR an$="y" THEN 2052 2051GOTO 2032 2052HOME:?:? " WE HAVE A ...":?:?:? 2060? 2061REM 2062FOR x=1 TO 31:? CHR$(143); :NEXT 2063? CHR$(143); :INVERSE:? TAB(31); :NORMAL:? CHR$(143); 2064? CHR$(143); 2065INVERSE:? " "; 2066FOR x=1 TO 4:? CHR$(30FOR k=1 TO 5 740FOR j=1 TO 2 750LET s=1 760FOR l=1 TO 5 770FOR m=s TO s+14 780IF c(j, m)=0 THEN 890 790IF m<10 THEN 860 800IF k<>3 THEN 840 810IF l<>3 THEN 840 820? "|*FREE"; 830GOTO 870 840? "| "; m; " "; 850GOTO 870 860? "| "; m; " "; 870LET c(j, m)=0 880GOTO 900 890NEXT m 900LET s=s+15 910NEXT l 920? "| "; 930NEXT j 940? 950GOSUB 310 960NEXT k 970REM 980? 990REM 1000NEXT i 1010HOME:PR #0:RETURN 1020REM calls random numbers ****************** 1030LET z=(RND(y)*.75+.01)*100 1040LET x=INT(z) FOR THE NEXT" 162?:? " CALL - OR - ENTER 'BINGO'" 170FOR io=1 TO 75 180?:INPUT "===> "; b$ 190IF b$="BINGO" OR b$="bingo" THEN 220 200GOSUB 1020 210NEXT io 220HOME:INVERSE:? TAB(32); :NORMAL 222?:? " NUMBERS CALLED: " 230?:? " "; 240FOR i=1 TO 75 250IF c(1, i)=0 THEN 270 260? a$(i/15+1); " -"; i, 270NEXT i 280REM 290REM TERMINATION ************* 300GOTO 2000 310REM LINE PRINT ROUTINE ********** 320FOR j=1 TO 2 330? ":-----:-----:-----:-----:-----: "; : ln=ln+1 331IF n=8 OR n=16 OR n=24 OR alled numbers" 1560?:? " to verify BINGO" 1570?:? " <4>Resume game if NO Bingo" 1580?:? " <5>Start new game or quit" 1590?:? " press to continue" 1599GET an$ 1600HOME:?:INVERSE:? " * NOTE *"; :NORMAL 1610?:? " ADDITIONAL CARDS MAY BE" 1620?:? " PRINTED IF THE " 1630?:? " COMMAND IS USED TO PAUSE THE" 1640?:? " PRINTER AFTER THE FIRST 40" 1650?:? " CARDS ARE PRINTED." 1660?:? " press to continue":GET an$ 1710RETURN 2000?:? "SEE NUMBERS AGAIN ?":GET an$ 2005REM waiting f90HOME:INVERSE:? TAB(32); :NORMAL 592?:? " HOW MANY CARDS SHOULD I PRINT" 594?:? " (prints 8 cards per sheet)":? 600?:INPUT "even # 0 to 40 ===> "; n 610IF n=0 THEN 1010 620?:?:FLASH:? " PREPARE PRINTER ":NORMAL 622?:? " PLACE PAPER IN PRINTER NOW &" 624?:? " PRESS WHEN READY.":? 630GET an$ 640FOR i=1 TO n/2+.5 650HOME:PR #1:?:GOSUB 430 660GOSUB 310 670FOR j=1 TO 2 680? "| "; a$(1); " | "; 690? a$(2); " | "; a$(3); " | "; a$(4); " | "; a$(5); " | "; 700NEXT j 710? 720GOSUB 310 7255); :NEXT:? " "; 2067FOR x=1 TO 3:? CHR$(255); :NEXT:? " "; 2068? CHR$(255); :? " "; :? CHR$(255); :? " "; 2069FOR x=1 TO 4:? CHR$(255); :NEXT:? " "; 2070FOR x=1 TO 4:? CHR$(255); :NEXT:? " "; 2071? TAB(31); :NORMAL:? CHR$(143); 2072? CHR$(143); 2073INVERSE:? " "; 2074? CHR$(255); :? " "; :? CHR$(255); :? " "; 2075? CHR$(255); :? " "; 2076? CHR$(255); :? CHR$(255); :? " "; :? CHR$(255); :? " "; 2077? CHR$(255); :? " "; 2078? CHR$(255); :? " "; :? CHR$(255); :? " "; 2079? TAB(31); :NpE1 !b"@#)$%&'()*o,X-M.B/&0 12347v8_:X<8=>?@ABlCIFHIJKPUVZ[\v^YdSn>p)r$xʂʌʖʠɢɪɴɾg^j=PXS"4,.6 @JKLT^h}rY| JȐ5ȚȤȮǸ&0:}DXNGP"RXblnpivcƀNƊ@Ɣ:ƞ0ƨƲ 2093? CHR$(255); :? " "; :? CHR$(255); :? " "; 2094? CHR$(255); :? " "; :? CHR$(255); :? " "; 2095? TAB(31); :NORMAL:? CHR$(143); 2096? CHR$(143); 2097INVERSE:? " "; 2098FOR x=1 TO 4:? CHR$(255); :NEXT:? " "; 2099FOR x=1 TO 3:? CHR$(255); :NEXT:? " "; 2100? CHR$(255); :? " "; :? CHR$(255); :? " "; 2110FOR x=1 TO 4:? CHR$(255); :NEXT:? " "; 2120FOR x=1 TO 4:? CHR$(255); :NEXT:? " "; 2130? TAB(31); :NORMAL:? CHR$(143); 2140? CHR$(143); :INVERSE:? TAB(31); :NORMAL:? CHR$(143); 2150FOR x=1 TO  <1>Automatic printing of up#,*+'d= #zd'  !&"& -& &K DO THE NUMBERS MATCH ? #Y#y#) #N#n# BYE BYE   #Y#yH # ENTER OR  WANT ANOTHER GAME ?   ' (  (       ִ>2BB;;&.BB>k>[>R##DM@kk|l޺~@~0|l|l  >*o(T(j#'')+ )/(48C)<c-@k'D\*I!)MXS,W\r`^d(hHlY'pE(ti*xx!tyln c)a"anio!biljnzhktsmSPCTABERRNUMABSASCATNCHRCOSEXPFREINTLEFTLENLOGMIDPDLPEEKPOSRIGHTRNDSCRNSGNSINSQRSTRTANUSRVALVPOS"{g= z o dH, ORMAL:? CHR$(143); 2080? CHR$(143); 2081INVERSE:? " "; 2082? CHR$(255); :? CHR$(255); :? CHR$(255); :? " "; 2083? CHR$(255); :? " "; 2084FOR x=1 TO 4:? CHR$(255); :NEXT:? " "; 2085? CHR$(255); :? " "; :? CHR$(255); :? CHR$(255); :? " "; 2086? CHR$(255); :? " "; :? CHR$(255); :? " "; 2087? TAB(31); :NORMAL:? CHR$(143); 2088? CHR$(143); 2089INVERSE:? " "; 2090? CHR$(255); :? " "; :? CHR$(255); :? " "; 2091? CHR$(255); :? " "; 2092? CHR$(255); :? " "; :? CHR$(255); :? CHR$(255); :? " ";ż {n b*V4J>DH3R-\f pzĄĎĘĢĬĶ_PC0$.8Lðúc]W6޺",z6X?R@;JT^hr|spK6 u  8|YNC' ͿaO$׾ ̾!"#$l%A&'()*Ͻ+,-p.N/70,1!234Ǽ>HRx\Uf>#  31:? CHR$(143); :NEXT 2200?:? " WANT ANOTHER GAME ?" 2210?:? " ENTER OR " 2215GET an$ 2220IF an$="Y" OR an$="y" THEN CLEAR:GOTO 72 2221IF an$="N" OR an$="n" THEN HOME:? " BYE BYE ":GOTO 3000 2224GOTO 2215 3000HOME:TEXT:END :? " "; 2086? CHR$(255); :? " "; :? CHR$(255); :? " "; 2087? TAB(31); :NORMAL:? CHR$(143); 2088? CHR$(143); 2089INVERSE:? " "; 2090? CHR$(255); :? " "; :? CHR$(255); :? " "; 2091? CHR$(255); :? " "; 2092? CHR$(255); :? " "; :? CHR$(255); :? CHR$(255); :? " ";        '  (            '  (              ' ( )even # 0 to 40 ===> ) (prints 8 cards per sheet)! HOW MANY CARDS SHOULD I PRINT#'  (# card print routine ************'-,r , - +' '<',!', ,K '  array clear and fills!,!, !,r  *"  random draw of numbers *******( 8 p ೋ )))) T($:( # ENTER OR   waiting for correct answer #N#n #Y#ySEE NUMBERS AGAIN ? # press to continue # CARDS ARE PRINTED. PRINTER AFTER THE FIRST 40  COMMAND IS USED TO PAUSE THE PRINTED IF THE  ADDITIONAL CARDS MAY BE#'  * NOTE *( # press to continue <5>Start new game or quit <4>Resume game if NO Bingo to verify "O"#""""" " !K ( % data initialization ***************!  GERLACH FAMILY SOFTWARE!  GRAPHICS PROVIDED BY!  MODIFIED BY H.M.GUILL!  BY CHARLES B. STERNBERG   ' (  (     6( | ' ../!(/| / f| / f |*FREE 'H ,H / \ !(/z /.. '. ( ,6(@" | " | " | " | | " |  (6#= &) # PRESS WHEN READY.  PLACE PAPER IN PRINTER NOW && PREPARE PRINTER  (           '  (               '  ' (   # WE HAVE A ... #N#n#'  -----:-----:-----:-----:-----:   (!  LINE PRINT ROUTINE **********  TERMINATION ************* &  NUMBERS CALLED: #'  ($ %BINGO%bingo ===> % $K CALL - OR - ENTER 'BINGO'PRESS FOR THE NEXTNd #Y#yx #N#n # PRINTED FIRST ?  DO YOU WANT BINGO CARDS(#'    "B", "I", "N", "G",BINGO <3>Review of called numbers <2>Random number calling to 40 BINGO cards BINGO ALLOWS THESE OPTIONS: # PRESS TO CONTINUE IF USING SINGLE SHEETS AND& INSERT MORE PAPER (#=' (  "(-( !! ! K  * *?= #zd+ ( calls random numbers ******************#=&  ,          '  (            '  (             comes on while loading the HELLO program, a program that now gives you the option of printing via dot matrix or the standard Adam SmartWRITER daisy wheel printer. Then simple ASCII graphics have been added to the basic program, for a little more color. There is one bug in the program, B-15 will show as I-15 when calling numbers, N-45 will be called as G-45, and G-60 will get called as O-60. The error can be fixed partically, by changing two lines in the program, made line 1070 to rby Gerlach Family Software 1989) & modified for Adam by H.M.Guill 1987  by Charles D. Stern - 1980( % basic computer program for the home  bingo program#)~         '  (             blic domain software, and enjoy it. RICKI J. GERLACH, GERLACH FAMILY SOFTWARE 1989 nting via dot matrix or the standard Adam SmartWRITER daisy wheel printer. Then simple ASCII graphics have been added to the basic program, for a little more color. There is one bug in the program, B-15 will show as I-15 when calling numbers, N-45 will be called as G-45, and G-60 will get called as O-60. The error can be fixed partically, by changing two lines in the program, made line 1070 to r x E 1987, is now modified by Gerlach Family Software, 1989. GFS has made this a self booting program, all you have to do is pull the reset button. A Bingo Card screen com BINGO Written by Charles D. Sternberg, in 1981, modified for Adam by H. M. Guill in 1987, is now modified by Gerlach Family Software, 1989. GFS has made this a self booting program, all you have to do is pull the reset button. A Bingo Card screen  '  (           '  (               '  ' (   ; 8 modified with graphics ead: 1070 LET j=INT(x/15) 1075 IF x=0 THEN J=1 1075 is a new line. This will fix the numbers in the B and I, and N rows, but not G and O rows. So we did not fix this. Also there was a problem printing out cards when we used more than 16. But we feel that this might have been a printer controller problem and not a program bug. When using the Adam printer, everything printed out fine. Feel free to correct any bugs you may find, and add your name at line 9. Just remember that this is still pu '  (           '  (               '  ' (   ; 8 modified with graphics B*A"AhS:A!A '@S^`/[B*Aͧ2!SN/`/:Aa7?S_!AͥS!SN/!B͌S`/͠S͘S!AͥS.[B> ͨ2͠S+6 !B ~#.`/:B>*8> .B > B ~(#+~DIRECTORYVolume: Blocks Free [D[>A[+B!A q#q!Ab0/!A:A 7B~`!7B~#  !"A`:A!A^2A!A͔axP(p!AbV#^SA["B:A*B:APY^*B:A^2A2A*B͔a+B^b\\ :A^:AGaa X[!"A. 7RP>A[!Ab"_!A(.,Q.ߨ.$ #.YQ!oYQ0)8 )8)8)&Q?m.ͣ0xAA(As#r7m. '? ?[PPD[["B:A*A :A*B^:A*B^2A*B͔a!"A>2A:A!A^:AKA*A^:A^:AGa>HS\7[.(,Q.A P*A"A7D[0>H[:A!A^2A!A͔a:A!A^:A%_8*A"A:A*A( ^:A:AGa*A7^R!"AD[:A!S^!S͔a2A!A^SS:A!A^%:A!A 6!BF 6(X^ V( [