8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL LL !Cb" %n"o" (#M8( % ) L'"p"q" (\4, )7(P0  ( @p 8  x"!b"i"0 ~&i"0 %r"s" (,) &Սt"u" ( %L'")0I0hx H( + FINDER.DATA$$BOOT5BOOT6FINDER.ROOT$$,MINI.CATALOG*MAKE.SCENE,!%D.BUG ! !@+D.CODE.LOGO!@FP!p-LINE.SPLITTER!@+MAKE.SCENES!,MAILING.LISTI !(BIRTHDAYQ!#CALW 'STARTUP] !-SUPER.SHOPPERh]+!TEXTFILE~z!HELLO' &PRODOS }<{( ,BASIC.SYSTEM'(! -BASEBALL.STST<0!+MUNCH.MOUSE@J!MOUSEDN@+DEC.HEX.BINF >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@LLnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!)? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8R %Щ ߩx"L! )L! 8'  )ɀ)4,- U JNT) x"Lv"w" ( !` a"M)Fi/ e"3 k"  !"#$%آ <B*IBGF08Lé'+8H <,``h(`@ڍL3<>=?<>CAB@?A` 1 L  <>`ڢF]PL8i m L   6< L  BLRAM' hLDLHB-9F 3"aɿ LLB Nϰ H  @h( L Lj  @`eLJCAB@=?.<ʆ>,=?BC8 é&'112``* G** c*` v* G* c*`hh8`8`***`}*`e`H)hJJ*0JJ)` (< ( < *? ( < (? ( < (? ( <*? * **? *? *? ( < *? ( <ȱȱȱȱ0]cȱeem*ȱ*ȱ**ȱ**ȱ* )* * )L(`L?* *Ll) ) L( )Ll)8e` ,$`ee` < @( )m((.(( M(i ``) |'(j21 z& {&!` ({&z&(i({&(( CBDFGE (r&$ 3(,}&r& … 3(ŅL&JJJJ`Ϡ'8`r&h)hr')L&18|&"m11 2H22h2舌|&|&12H)M0 h10200I20h2 (`LE%12 `_'"L  <8# ȱ)ɀ  )( ` (Xp0`ŠӠֱҭԠŠҬî̠ӠĮʎ1|&… (n}&Dž (\%Tz&Lc()8= (J 8'z&'{& 3((ʎ1|&|&|&3223 `%YYZLYLYLY뿭` 8!@8` %MNЩUMߩ  L 5   8 0 8  `0 / X& & +&&7&P^& S ɘL   V7 L ' 0% '8 Jm ʈ0  0ŠϠĠ͢Š͠͠ϠŠŠϠĠخ͠ ͍B B(8. ) ɘ"    L=#=#&ŠϠĠԠŠ ԩ m# m# J Qڨ)̰m] нȱ ̀𩠙 i F >l"m" h" iL X%;"L8"ΠΠҠ`y""""""*$ Fk%YeQP!/RB}QBiBB}\ ĉFEL/#> ț6 hh@ihAiH(ؠȱ@JJJJq@)@Yvȱ@Hȱ@Ah@y@cYe J) LL LJiB LJ) >xhHHHHL(  ްƠx@BEOD  ް(`( C)CJJJlB O-`J,~@~@}J@` ߩ%S @ ~`E hhhߺ0 h ߐ( ߐ ߐ ߐ  0 HϭߍLпllllIL/FHGI ҭJjHIHB>IؙJJ W: ELyHIHI`JKJK`FHIG ( Ȣ؝؈JL)eKM`)` J zJ͟ $0 ΎJFJL8`JGBJ P ؑ@`M8`8@ؐʈI묆)z8zz Ly LةC8`؍)@ i)z8zyJ ^ ؅F Lo) +%J(a *FإGؐ.` *JHIH ۩ ٰz{`JJJJ;i v묅͚ vٍ0  `H8` `ٍyٍiB0H0FG h0`FG `ϩBxED0C ް(`(8`{ `ٽJJJJ`H͐hn)NjNjNjN. CH͐ v;٭ *Nۙ۰ڙک `Z8` C# (`{ .{ .{ .{8۰*Jzܝ٭(ܝ`)َ 8ʈ` 0ٝ)i `8`R ꍐz{ vNمFمG < ΐ0 FGL鮅0 ٭{٭zٽ8`H8`  ,z { 8` z E8`1ݾ00 Y 0ʩ 谼 谷`12)1`0`Ȏi 0U`)8`ά` W xG 0A)H ܝʈh٭0٭)ܝ٭*ܝ٥F٥G٭'ȱHά`Ύ8EeHI |SB:0M ٙKٙIFNGʈ d献`8m0`,0H hi PȽάhٍ0GF8yאFG  $0 G01܅I `P܍QR d8D`F` ]lH)HFȍNHGO $%܍&܍!ܢ8* J8` L ܝ>)I 'ܝ:`F8iRFPGQ`F܅IH3H ( )O 밨G%܈D" T)Ii)܍R*܍E'ܮ( 4 䭐 $H %HFFHGHG 됬`R8`)` EHS` #Q'܅IHHSSЍS@`8 ` ͍% ΍Q8`ʈ@qȱ@cȱ@mopfNxOyS)5SI0ܢܽ iP'E* 7deFG (GH Lv܅IR mEIH` tq qM0PQ ESHNFOG 밳NN` G8`F@ 0 > LK8`: ;I8`FHGH hGhF܌ բFܽܕF芝ܝ 밶:; <܅I m=IHHyHȘI Lܝ` @c@ k@Ю׍S)mיSi 뎅`C8` @ r3N@) G莱 ⭮i`0 Y; 뮅ٝ٘ 0 W,0 .H hȑNWȮّNW8`ٍّNά0N뎒׮Б` L` @>S)I38Mdeם`K8`@Nȱ@O@ rIiNȽבN)/ȩ/N`@[ WHJjjjhA ,'KI؍0JHhh8` Qx")T'P) ɺiL; )?     ~ `l@Hȱ@IױHXATȱH ɯȩ׍̒5H)/@a)_ .0 :A[8@`,FإG`BH PFإG`,H hHB؅F  ؅GxDE؍00C ް(`(8` vL'J  6"L vH  6 9ؙ` @ P8`K8`B8` L؈SJJJJحq) ) )Ю ЪGdF $ ᭔ع+ؠ 2H  :h8` 䮅ٽ ٬ؠ@` ( L )8`)i п` H h)N$%hꭋILhH),Nx8 (8` ԍ`@ABe 2U,,CnZ1IJK,-NOPQRSuHUSTON!' @  K cXXK تKo`V8`no` , on cI9XX`)HJJJh`OeNeO࿰ c9XАO`@ȭ@` ON INJKO`Hх 밽܅F݅G ` c* Z% L`L뮴HH hFhG܍ݍ 8 `FHGH  hGhF`ݹܙ݊`@Bɼ>K@J5 c9X(N    ܮ `J HH hh` 0 @ L/L Z`̸Yܝ ݝ0̸ȩFG   0` ܅F݅G ` c Zͬ LȹL@ȅH@IL,0` G וֹ= YH.q)N 0 >deS)@LP8` D᮴ ֩SGHG v L䬅yٙ٭yٙ٩`K CEdFeG 6%&ȹP8` i` %ם0 B %)( ȹ`8m8m@8` G8`F Pq)@N8`S)@J טyרםSS)׍Sde 밑 Ȣ؝I؈ 2h(8H ( h(8Hh(`ؑ@`@ȱ@ ` B@8ZS d鮅ٍٍٍsHٍr8fhgSJJJJS)S@` %I -q) 0@S)N8` @LL =@ ؝~@~ݞ@ʈL2 KIJHȢݞ)Jn 8 θ ؍ ؍ DH8 ع)ꭵJJJJ )߹0 )p )@ ) ȩ ؝L0NO 방 PQNOFG 嬆؍f؍g؝h ؝c zS) zS )حM͚ v`H@h`h``N8`  ) 1⬆iع `  عiعi` )؍0CGHFHBFG ުhFhG`@4͔ L @Ai ׭2` . :#ع؍0 Y讅)`.@+ i 8` L ؊ PLE΢ʱNLMOMEKP%MEK΢L$ O, PeNNO 2(` C  7 2JzHI{HI؊ }LE  *` A Hz ع H{ ؙ؊ؠIhHIhH } `؝}zIzؐ` f~ؽ؝z f % f؝~z؈` ` H  Ph)N@ 1; L  2$ )bJ Y ) H 4hL )  )حJjI{HIzHNO 8 ؍JL`R΢ʱLN1MOMEKP/MEK΢L7L-M O,p莡eNNO(`JNKOL 2/ "P L8 y WؑJ`L@ȱ@ `@Nȱ@O LL L r L 2 "pJ덣 )@፦NJOK 2iKK΢΢ IJΣ JФ̭JjHFIH HIGxKE ް((H hH h8`8@ȭ@L2쬆8N !"#$Ԡ͠ˠĠԠҠ(c)1983-1987 AppleLKL`BLL ެެެެެެެެެެެެެެެ(C)APPLE'83xLLM Mh@8nЍLޭ 0J @,,LN&()*+,-./0123456789:! !5).莀/ ! !!!!! !!$ ! "<" !!뭳!!!!ILYL 8!9!詍` ! !ՠî򠠠!STARTUP/p$# {  { / XXύX?klmnÍoL) !6L'!(0`670! = ***)<JJH !h穖tp% !Z/݀!!' Fby LҠؠӠ΢ϠԩҠŠƠԠԠŠӢɯϠҠůȠԠĠ  ɈL :Lɍ)ې)ɮ۰ɺH h 'L  ġLL ̹L)'L ȳL O'F ʻ ̹(((L $ʩ $$ $L `ީ % K@D E  / XʩXύX X %   % ɍRH hɛɘɉɈ $ Ld :Ldې)ɮ۰ɺ' Ld  : X ( % ɛ$ɘɉ 8V%֌&8V֌֠)HV)hH)hHIhդD?DRIDQD)҅; ?JDQD]ՎՎՎ`MY pӭY)p  ӭp`C)`BFGV 8``8LխӅ:HhHh Ո թ թ ՘VYҪҦ>:Y)Ң`;R?AJ;<ȰY)Ң`Y?)Ң`ȐҰ ;HhHh=Ң`Hh `Hh`DEiȍ0֌1֍ZԍsԍԍԍԥDEԌ8TԌ8WpԌqԠ 7I꽌ɪ꽌ɭ蠪:љVE:8`]ѾV]H)]ѾV]ҙ)]ѾT]ҙ)] >8hUD` ԝY`> Hh݌(`HCJJJJ)*h`0($ p,&"op8`kkV꽌ɪɖxlӽ*kӽ-kәmMlӈ 꽌ɪ`8` *L o % ԽYӍZӭoӝY 3Ѡ шNZ`rZLkӭZӍq8r7IZӐiZkӐk 8 ѹs ӭq ѹ| kн Z)*>>` @ $(,048<@DHLPTX\`dh 0ުlptx| ֽ ְ& .Vӈ  JJJJH 8h Ei 8EX`'8`jӍWӥC)p> pӥCYӍY 轊( ( ӈBV ( ӭp0 \BkJ ՠ@iӦ> Ӑi'j:ZH i@ioZZH h ѐȭnWǥBJ Ӱ8XӦ>` Ր+>P׽8H  ): e: y8鰕:Jjjj<)yאi8i;i(*=>hPם8`;Zx3QZYXXWV[HEVhEhH)IWHPHHHAHHHLaVEWLӿŠϠŠà͠ӠàԠŬ Gh  l( G쳼󩭙Llid l`H) ZhJJJJ ɺi`  ` .8 `O`S  [AI-Ly !B C ⟩VW 5L壥>  5e>>?́?`>ȥj>>m>` T`m8injkiljo풼i>?Ek?>Q>;>:8o>oȑ>ppȑ>> :op` {KpnͶ @p;=po:i>?Ek?!>Q>>>̀ `` > ̀ `e>>?́?>?Emn(>e>ȱ>e?>Q>ؠ> ie>>?`|;}=:<~:<=;`||m}K`JJJJ8`轚K)` 7#hhL"Jپھ pHJh` {!hgt}~p  `~t}p8n~ni}tpi~~tsLo8pinii>j?k̈́>~|ppn + {pnI:L ؅30,3L]8^933LAAJL ةޘг uv $ 8LЌ Le p>?@`>?@`BQ8`e 矮K ⟩ 䟢 춼LK  z KɍKL"?`  L@3 @LtJ)s@J % `͘?s?,E30ɍФ3 +E3HD F3 Ʉ%h3 M +E  LthɍLL3`3,A0s0% I`O>0O  矢POپھ p AH־Ǿh۰8L"־Jjjjɾ)Ⱦ8 + OL L$L>(F`־ؾپھ׾` Ʉ +KDEF L LK K% ʽ  ٚ,S` w $݅3`(l8L"3L>(Ƀ,`3,G0]ɾ ` w`پ_پ p _پ׾`>( p۾m׾) W)ʩ@`ɾ>(O puȾ ɾ-O c־Jjjj 왻ɠ, XLޭBDEF޾ p 7 ޾ p($ذ (0 U( L?ԦʚLeةީ s +  L ,FL,DLE,C0!3 > Ɉ 3ɾL(3ɾ;Ƀ UB94 H06172839h` 97L75v^͘ ?/( ?LKLLɍ$?`? ɍɥAH93827160hH46576879h`,C Lޛ $0. ɍ  ,S0 ?@ L L btR莪Ta 0a [HT ph(K,Lǧ/A5ʩJ _V zrTJ6LySLا [AJ w@V k38`J" zʩ @V zЧ z ( zЖabT)!J B8`@U)9VJ T)h*I/W) VV }>S ?@$I0 U)VJ *T)`l8`a HbIJhjǾȾɾ p٭b=aIe f`8` yP־ǾҾ,G0C =W)_``\"׾پӾؾھ pD`־ǾY׾ؾOW)ݩȾɾʾ pD`8`W)CB) ۵ 5W) )W)@! pZ}ȾȾ޾,N0MHhHh p' ,N HCNh`M`M N `޾Lp yh־Ҿ,G0^W)TP) ecfdپھ׾ؾӾ p$c d pccddީ 8`ȾɾʾNfne`_ 2Ͼ pH h8`jGMоM  G):_`蹀:`V)8`MN; ;`;C N8` G)̀#:蹀:`V)R y pH h8`Ͼо־ǾҾ_` EӾ pW) |LC`C N `9V) ß ` V) y޾ p` y (8` 8`8`(W)`_V)Ij!؍Í`_ jЭW)з#Ͼ p о־޾Ǿ` 8` 8`ɾ)ɾ̸ ɾɾ0miȾ p pY)ικ`lP y*,N!ǾȾɾʾ pǾ~H Uh8`8`,C U  8` 2ȾɾM$ mHݓǾ phϾ A ԟ ` ])Y 񩢍`Ⱦɾ0Ǿ p)莼 * 6 w= l& l8Hh l` 6Y׾ؾ+پھ p|پɾʾ`HV)jh츾$-ˌھپLp k V)@W0!XY aX6Y7` a YX`X:Y;τ<:: <`:8`'OV)Jj *f a  ԟ  ԟ ⟭ + +:ji  ԟɃ B , ԩ p`SW)0پȾھɾ p p 3LjÍ L I 9 1׾ؾ  p p 3 H h(`׾ؾ`  ߭׾t8퍼mؾŰ펼t폼 L8` `F`4W)ɐ/XYjV) *8` h e`l׾ XYW0V):W׾ؾ_`)0%I0)3]8X^YȰ8` 8` p Ⱦɾʾ8`پھW)@%ZȾ pSɐ"jÍgh I @8gȾhɾʾg׾hؾ  p hgͺ칾`L3V)jC mMjà Lp `VJJ°LyLp *)< LA * LAW)8VJưϥ3 ⟢BT eօ ܬ L s򩣍S3 Ly B# e $L? L Y kimljn`  pg׾mȾXhؾmɾYtѮȾɾ YX`8gM CgIY2m*b6>BSAVERIFYBLOADELETECATALOGOPENWRITEXECREATEFRESd MUNCH MOUSEn BY 0x MIKE SEEDS6?500R,JJ170:JJ:vSX(49200)(49200)(49200):SX(1)248:SX(2)248:SX(3)139:SX(4)31SY(1)19:SY(2)171:SY(3)95:SY(4)171S0:J120:SS(16383J):J:S8451020 (4OP$(OP$,(OP$)1)/ TB(OP$));OP$;:N0:1000, 31((PS(X,1))));PS(X,1);I TB39:MUL100:IN4:1000T :X:{ "DO YOU WISH TO CONTINUE? (Y/N)"; A$:A$"Y"Ĭ PS(X,IN)0OP$"0.00":1040 OP$((PS(X,IN)MUL.5)MUL1(MUL10)) (OP$,1)"."OP$"0"OP$ S(PI,2)9PS(PI,0)R n:"NAME";15);"ERA";22);"IP";28);"ER";33);"K POWER":f xX0PI:XPIĺr P$(X); PS(X,3)0PS(X,1)0ĺ14);"******";:160 TB19:MUL100:IN3:1000 T(PS(X,0)):PS(X,0)Tĺ24((T)));T;:180 TB26:MUL10:I;=>IVEN UP?";PS(X,1)M <"HOW MANY BATTERS HAS ";P$(X):"STRUCK OUT?";PS(X,2) F:IX02:PS(PI,IX)PS(PI,IX)PS(X,IX):IX:PS(X,0)090 PPS(X,3)PS(X,1)9PS(X,0):PS(X,4)PS(X,2)9PS(X,0) ZX dPS(PI,0)0PS(PI,3)PS(PI,1)9PS(PI,0):PS(PI,4)P9 :"HOW MANY PITCHERS ARE THERE":"ON THE TEAM?";PIcP$(PI),PS(PI,4):P$(PI)"TEAM TOTALS"X0PI1::"WHAT IS PITCHER":"NUMBER ";X1;"'S NAME";:P$(X)("HOW MANY INNINGS HAS ";P$(X):"PITCHED?";PS(X,0) 2"HOW MANY RUNS HAS ";P$(X):"GL5LLL"L  KN)_ `@S8` ԠŬLL<[B?I>孓`仫6VtCicQĿUKqtVt Nʮq$6,⨁ K6, VtI=v!gNVt Vt  lg~TŠӠŠҠüϠž(+@ABCDEFGHIKLMNPSV     T[fouu~ՠٯ* PWN*]ĿNTz @n6VC/+A>@I5gN Oz @n[Dz @nd0,~z @`$仫@v$⩔,CTORENAMEBRUNLOCKCHAIN#FLUSHREADPOSITIONOMONPR#PREFIXCLOSEAPPENDx{[{0ǭ0hЫ}wA Xw­孶׭fl@@ -!S    !C- !ABELSDFRV@@ !$(19@E);"BLOAD MOUSE"$ 232,0:233,64< :SC0:1:32:6000R ST1:XNX:YNY:Rq L49168,0: CLEAR KB STROBEw   ***MAIN LOOP*** A(49152): PEEK KB A1281300 AA128:49168,1 A73DYST:DX0:R48 A74DXST:DY0:R32?ABC70 FLTRU:170) NUMBANUM(B$)7 X:FL20x "DECIMAL: ";NUM:A$"%"İ1000:"BINARY: ";NUM$70 "HEXADECIMAL: ";NUM$;:2000:70 ANS$"":CNUM C16ĺ"HEXADECIMAL: $";:C10ĺ((C),1);ANS$: C16ĺ(C55);ANS$:@ EG0ĺ"DECIMAL: ";NUM:1000:2000:70; Z(NUM$)220t dA$(NUM$,1):BA2TRU((A$"%")8(A$"$")):BA020 nFL0:X2(NUM$):B$(NUM$,X,1) xB$"0"B$"1"160 B$"2"B$"9"A$"$"160 B$"A"B$"F"A$"$"NUMBANUM(B$)551 TRU1:Q$(34)8:D"INPUT A POSITIVE DECIMAL,"]"HEXADECIMAL, OR BINARY NUMBER"v("FOR CONVERSION.":2"PRECEDE HEX INPUT WITH A ";Q$;"$";Q$;","<"BINARY INPUT WITH A ";Q$;"%";Q$;".":F:"INPUT";:NUM$:NUM(NUM$):) PNUMBER ,666#$*II5???M--->???n----5?????w)----?????---??4,114,186,114,186,76,279,76,5,155,190,155,152,217,152,217,114,248,114,04,93,57,186,57,186,133,93,133,0bt' 8,62,38,217,38,217,114,93,114,93,76,62,76,62,152,217,152,0' 2,0,38,217,38,2,62,76,279,76,2,0,114,217,114,2,62,152,279,152,0I<( 6,0,152,93,152,93,114,31,114,31,38,124,38,4,62,76,155,76,155,38,279,38,5,124,152,12X,Y N2NN:X,Y:X,Y:N* 6010<  DRAW CHEESEC 0` J14:1SX(J),SY(J):J SU4:NX15:NY19:R32:R:2NX,NY: DRAW DX0:DY0: N S SUBROUTINE SET SPEED XSTST1:ST5ST1 b & ' DATA FOR FOUR MAZES!' STOP 2X,Y: DRAW) NXX:NYY:/ FG P WE'VE HIT CHEESE!g Z0:1SX(IX),SY(IX): ERASEx dR:SUSU1:~ f o SUBROUTINE DRAW MAZE pSCSC1:SC5SC1: u:49234,0:3 x0,0279,0279,1900,1900,0 zNN:NN06100 X,Y:* n  ~+  SUBROUTINE COLLISION4 IX0? J14M CY0:CX0f (NXSX(J))14CXJ (NYSY(J))11CYJ CXCY0IXJ:J4 J IX05200   WE'VE HIT A WALL 2NX,NY: ERASE 400 DX0:DY0:RO:RRO: A75DXST:DY0:R04 A77DYST:DX0:R16H A32DX0:DY0X A27ė::h A19İ7000| NXXDX:NYYDY 2X,Y: ERASE (R 22NX,NY: DRAW <(234)87İ5000 FSU0İ6000 PXNX:YNY:ROR:1200 Z ***END MAIN LOOP**DV(C16):RC16DV:ANS$(R487(R9)TRU)ANS$:CDV:1010R ANS$"":CNUM~ C2ĺ"BINARY: %";((C),1);ANS$: DV(C2):ANS$((C2DV),1)ANS$:CDV:2010 ::1000-R$(100,4),MU$(8),FI$(4)ML$" ":I138:L$L$"-":I(D$(13)(4):G$(7):EX$"PRESS TO EXIT.":P$" PLEAS PRESS ANY KEY TO CONTINUE."2I18:MU$(I):I<I04:T$:FI$(I)TT$":":I F:14);"MAILING LIST";1 NEW LIST,ADD OR EDIT RECORDS;z SAVE THE LIST TO DISCk LOAD A LIST FROM DISK,SEARCH FOR A RECORD PRINT THE LIST,DISPLAY THE DISK CATALOG QUIT,NAME,STREET,CITY,STATE/ZIP,REMARKS3 3);"IF THERE'S NO CHANGE, PRESS ."O :15);"RECORD ";X:L$r J04:(FI$(J),(FI$(J))2); "?";T$:T$""R$(X,J)T$ J:L$::P$;:A$::24:11);"PRESS TO EXIT.";35,22:D$;"CATALOG"::p BEGIN ACODE";CODE;"."#:P$;:A$:90aCODE16ĺ"SYNTAX ERROR AT LINE ";(218)256(219);".":" I'M GETTING ERROR CODE";CODE;".""PLEASE CHECK YOUR MANUAL."::15);"RECORD ";::X::J04:FI$(J);R$(X,J):JL$: L$:2000(16384)155IR2:780>LM);R$(I,0):LM);R$(I,1)\LM);R$(I,2);",";R$(I,3)mJ1SP::J I:D$;"PR#0":P$;:A$:90 5000:P$;:A$:90*:::CODE(222):CODE0CODE141030G$;"SORRY! I CAN'T DO THAT! ERROR "BLANK LINES BETWEEN LABELS--> ";T$DSP(T$):SP1ĺG$;:670g"LEFT MARGIN--> ";T$:LM(T$)LM1LM60ĺG$;:690:"PRESS ANY KEY WHEN PRINTER IS READY.";:A$:"PRESS KEY TO STOP PRINTING."16368,0:D$;"PR#1":IR1R235,23::K13İ3000:4000/NK$(27)I100NXI:35,24::X0K15590ib:G$;16);"NO MATCH!"|l:P$;:A$:90v:"PRINT FROM RECORD--> ";T$:R1(T$)R11R1100ĺG$:630"TO RECORD--> ";T$:R2(T$)R2R1R2100ĺG$;:650'J:K(16384):K155I100:X00XI600f35,24::"FOUND ";(34);S$;(34);" IN RECORD ";Iv:L$:2000&22:"PRESS TO CONTINUE,"04);"TO EDIT RECORD, OR TO EXIT.":K$:K(K$):K13K27K32570D(I1). I::10);"SEARCH WHICH FIELD?";HH A$:A$"5"ĺG$;:440m A(A$)1::"SEARCH FOR ...";S$ S$""ĺG$:90 4000:16368,0:SL(S$):X0 I1100:3::"SEARCHING RECORD ";I J1(R$(I,A))SL1 S$(R$(I,A),J,SL)XI#";A$;"..."5 hD$;"OPEN ";AF$:" LOADING";A$;"..."\ rI1100:J04:R$(I,J):J,I:410 |D$;"UNLOCK ";A$:"LOADING ";A$;"..' D$;"OPEN ";A$:D$;"READ ";A$ I1100:J04:R$(I,J):J,I:410 D$;"CLOSE ";A$:90 I15:10);I;") ";FI$A$"I"A$(105)Ĺ35,24::3000:90> A$","XX1:300U A$"."XX1:300c "G$;:250 ,XX100((X100)(X1)):240 6I(0):500:EX$: @"FILE NAME--> ";A$:A$""90 JSEL4380 T(A$)25ĺG$;:320 ^A$A$".LIST"::"SAVING , I(0):I1100:J04:R$(I,J)"":J,I4 X1Z 21:10);" INPUT/EDIT RECORD"w 10);" EXIT TO MENU" 10);"<,> BACK ONE RECORD" 10);"<.> FORWARD ONE RECORD" 35,20:3:1:L$ 2000 A$:A$"E"A$(101)Ĺ35,24:90' HJKLMNO4); P:34,2 Z::I18; d8);I;")";MU$(I)::IU n8);"SELECTION--> ";v xA$:A$"1"A$"8"ĺG$;:120 SEL(A$):SEL7160 :"DO YOU WANT TO ";MU$(SEL);"? ";:A$ A$"Y"A$(121)90 :SEL170,180,310,310,420,630,800,810 ********************7 * HAPPY.BIRTHDAY *S *BY JONATHAN COHEN *n( *COPYRIGHT (C) 1985*t)z*+"TYPE FOR PROGRAM LIST"2 *MICROSPARC, INC *< * CONCORD, MA 01742*F ******************** P POKE PROGRAM VXZ[\bcdef."0 SP$(0)" ":SP$(4)SP$(0):SP$(8)" "M (LY$(0)"not ":LY$(1)"" 2H1$"=====================":H2$" S M T W T F S" <D$(4):I$(9) FI112:MN$(I)::MN$(0)MN$(12):MN$(13)MN$(1)D P " JANUARY "," FEBRUARY "," L ::MN$(13),MD(13),DY$(7),DA$(7),C(13,7,6),LY$(1),SP$(8),HD$(12,31,2) M$(1)"Print calendar for one year.":M$(2)"Print calendar for one month.":M$(3)"Find the number of days between dates.":M$(4)"Calculate information about a date.":M$(5)"Quit 64,72,96,96,47,57,72,76,86,54I 54,57,72,64,72,234,94,31,125,125s 125,250,94,31,125,125,125,250,94,31 125,125,125,125,125,94,31,125,125,125 250,234,0210,160,160,160,160,160,160,160,160SN 160,160,160,160,160,160,160,160,160,160X 160,160,160,200,193,208,208,217,160,194b 201,210,212,200,196,193,217,160,212,207l 160,217,207,213,234,21,42,82,103,234v 96,96,86,96,72,76,96,96,86,96"160,194,201,210? 212,200,196,193,217,160,212,207,160,217m 207,213,200,193,208,208,217,160,194,201& 210,212,200,196,193,217,160,212,207,1600 217,207,213,200,193,208,208,217,160,194: 201,210,212,200,196,193,217,160,196,197%D 193,  133,0,189,10,97,133,1,173,48,192O  136,208,4,198,1,240,8,202,208,246t  166,0,76,77,96,230,3,166,3,224  25,208,178,96,234,2,6,11,15,18  21,23,27,32,36,39,42,44,48,53  57,62,64,82,84,88,93,97,100,103 234,200,193,208,208,217,88,252,169,0,133,0,133,1,133C  2,133,3,133,4,133,7,169,40,133g  5,169,4,133,6,164,2,166,4,189  235,96,197,2,240,3,76,47,96,230  4,230,6,169,0,133,7,185,131,96  164,7,145,5,166,3,230,2,230,7  189,105,96,197,2,208,214,189,240,96'OOP1,1))65Ĺ24769LOOP,((P$,LOOP1,1))S64:280Z 24769LOOP,((P$,LOOP1,1))Sd LOOPt ,24698,F62 @24576 T"SAVE PROGRAM (Y/N)?";:A$:A$:A$"Y"370 ^(P$)10P$(P$,10) hF(4)"BSAVE "P$".BDAY,A24576,L293" r  32,:"HOW MANY LETTERS FOR THE FIRST NOTE?";:F5 FP F1F20F(P$)ī160 :"FLASHING, INVERSE,OR NORMAL NAME? ";S$ (S$,1)"F"S0 (S$,1)"I"S64 (S$,1)"N"S64 S0(S$,1)"F"ī190 LOOP0(P$)16 ((P$,LPRSTUAND DATA6 Z:12:"READING DATA":LOOP2457624868= dAI nLOOP,AS xLOOPl - GET INFORMATION- :22:"** COPYRIGHT 1985 BY MICROSPARC,INC.**":1:"ENTER NAME OF THE BIRTHDAY PERSON";P$ (P$)20(P$)1ĺ"SORRY.BAD LENGTH"::140. MARCH "," APRIL "," MAY "," JUNE " Z " JULY "," AUGUST "," SEPTEMBER "," OCTOBER "," NOVEMBER "," DECEMBER " dI013:MD(I):: 31,31,28,31,30,31,30,31,31,30,31,30,31,D(P1KK)D II397ĺD$;"PREFIX";;DI$:LELE1:I$(LE)DI$"/":60W II395B$"B"{ II387II395OP$"RUN":520: II397II395OP$"-":520: "KK15OP$"LOAD" ,KK14OP$"LOCK" 6KK13OP$"UNLOCK" @KK12OP$"DELETE" 32F 16368,0:KKKK192:P9KK37KK56KK11KK10170i KK37ĺD$;"PREFIX/":LE0:60 LE0ĭKK56LELE1:FF$"":FF0LE:FF$FF$I$(FF):FF:D$;"PREFIX";FF$:60 (KK15KK10)(KK1KK1LPP)170 KK9290 480:IIID(K)(J)(J1):ID(K)320KPAA0LPK1:AA1: :M P9LP5:170 IPLP:I:18:LL1:"[";(L);"]":ID(I)197Ģ(I):19::(L): I LP2:1:(MS$,39);:MS$(MS$,2)(MS$,1):KK(16384):KK128āLL175:LL::170 KK224KKKKY^_`a ";:C(MN,X,R)0ĺ" ";:600BNC(MN,X,R)10);C(MN,X,R);"";wXX:"|":X14:" ";:J17:"| ";::"|":bJ12:" ";:X17:HD$(MN,C(MN,X,R),J)""ĺ"| ";:630lHD$(MN,C(MN,X,R),J);v:"|":" ";:X171:"-";::R)DII1:I8I1:RR1&D-M:Hİ1050[1040:::D$"PR#1":I$"80N"w&26);YR;MN$(MN);YR::0" ";:I171:"=";:::" ";:I17:"| "DY$(I)" ";::"|":" ";:I171:"=";:::R16:" ";:X17 D"| YYY) ";Y1:Y11753390]16:"Do you want holidays to appear (Y/N) ";H$:H$"Y"H1:430rH$"N"H0:430{400MNM11:YRY1:MN0MN12:YRYR1DY1:960:1020:MNM1:YRY1:900IDWMMN1MN1R1D1MD(M)C(M,I,J" ";:R16CTX084:I17:C(MX,I,R)0ĺ" ";:360h^C(MX,I,R)10);C(MX,I,R);" ";hI:SP$(X);:X::" ";:R:::::Mr(12):D$"PR#0":|12:"Month for calendar (1-12)";M1:M11M11238014:"Year for calendar (YD M, 1040:::D$"PR#1":I$"80N"c "36);"********":36);"* "YR" *":36);"********"r ,::M14 1" ";MN$(M);" ";MN$(M4);" ";MN$(M8) 6" "HL1$" "H1$" "H1$:" "H2$" "H2$" "H2$:" "H1$" "H1$" "H1$1-5) ";A$:A(A$):A1A51403 10:M$(A)::N A180,380,720,820,170V : 12:"Year for calendar (YYYY) ";YR:YR1753180 DY1:MN1:900:960:1020 IDW M112 R1 D1MD(M) C(M,I,R)D II1:I8I1:RR1 Z <:DI$"":DD0:BE1041:S913:P0:L64:K0:AA0:CC1:SD1ĺD$;"CAT,S";SN;",D";DN:CC0h FSD1100{ PD$;"CAT":CC0 ZLE0110 d23:D$;"PREFIX":I$(0):SD0:CC0 nSS128:PP1:(S)217(S)1601102 xIBEBE8040:JII896128:KK1:I  530&ID(26),ID$(25),I$(25)jD$(4)::(27)(17):33,40:D$;"PREFIX/":D$;"PREFIX":I$(0)(MS$"TYPE LETTER TO RUN, OR LOAD=1 LOCK=2 UNLOCK=3 DELETE=4 CHANGE DRIVE=5 EXIT=6...")*+"TYPE FOR PROGRAM LIST" 2SN6:DN131 nI17:DY$(I),DA$(I):: SUN,"Sunday",MON,"Monday",TUE,"Tuesday",WED,"Wednesday",THR,"Thursday",FRI,"Friday",SAT,"Saturday" x:"THE CALENDAR PRINTER BY: BILL FORTENBERRY ": "You may: ":I15:I". "M$(I)::: 10:"Your selection (JKK10Ģ23:G TKK11ĢLP2:1:"SLOT:":LP2:7:SN$:16368,0 ^KK11:1:"DRIVE: ";:DN$:(SN$)49(SN$)55(DN$)49(DN$)50170 hKK11SN(SN$):DN(DN$):D$;"PREFIX/":SD1:LE1:60rLP2:F1:"TYPE 'LETTER' YOU WISH TO ";OP$;"":16368,0: 9 SPACES 7|KK(16384):KK128380LKK224KKKK32`OP$"LOAD"41016368,0:KKKK192:KK1KK1LPP170480OP$"LOAD"450520:60IIID(P1KK):II428II397ĢLP2:DI$"":170II395B$"B" '********************************N * *t* SUPER.SHOPPER ** BY STEVEN AND MARSHA ** M E U S E ** COPYRIGHT (C) 1985 * * BY MICROSPARC, INC. 1980,12,3,1981,12,21,1982,12,11,1983,12,1,1984,12,19,1985,12,8,1986,12,27,1987,12,16,1988,12,4,1989,12,23,1990,12,121,1983,4,3,1984,4,22,1985,4,7,1986,3,30,1987,4,19,1988,4,3,1989,3,26,1990,4,15,1991,3,31,1992,4,19,1993,4,11,1994,4,3,1995,4,16,1996,4,7,1997,3,30,1998,4,12,199,4,4,2000,4,23I111:Y,M,D:YYR1250HD$(M,D,1)"| HANUKAH ":HD$(M,D,2)"|BEGINS ",3,7,5,"| ARMED ","|FORCES DY",3,1,6,"|FATHER'S ","| DAY ",1,2,9,"| LABOR ","| DAY " 2,2,10,"|COLUMBUS ","| DAY ",4,5,11,"|THANKSGIV","| DAY "I121:Y,M,D:YYR1210HD$(M,D,2)"| EASTER " 1980,4,6,1981,4,19,1982,4,1RIAL ":HD$(5,C(5,2,R),2)"| DAY "LVI17:C,D,M:MMNćA$,A$:1160X`R1:X0tjC(M,D,R)0RR1:1130tXX1:XCRR1:1140~HD$(M,C(M,D,R),1),HD$(M,C(M,D,R),2)] 3,2,2,"|WASHINGT.","|BIRTHDAY ",2,1,5,"|MOTHER'S ",'| DAY "7,"|ST. PAT> ","| DAY ",6,14,"| FLAG ","| DAY ". 7,4,"|INDEPEND.","| DAY ",10,31,"| ","|HALLOWEEN",11,11,"|VETERAN'S","| DAY ",12,25,"|CHRISTMAS","| DAY "8R6:MN51110BC(5,2,R)0RR1:1090&LHD$(5,C(5,2,R),1)"|MEMO(YR4)(.75((YR100)1))#GDWF((1F)71)7:DW0DW7Mt:"** TURN ON YOUR PRINTER**"::I19:M,D:HD$(M,D,1),HD$(M,D,2)::$ 1,1 "|NEW YEARS","| DAY ",2,12,"|LINCOLN'S","|BIRTHDAY ",2,14,"|VALENTINE","| DAY ",3,1ANY KEY";::A$:A$:)MD(2)28:LY0@YR4(YR4)LY1[YR100(YR100)LY0vYR400(YR400)LY1LYMD(2)29F365YRDY31(MN1)MN21000FF((YR1)4)(.75((YR1)100)1)1010FF(.4MN2.3)te(MM,DD,YYYY) ";MN,DY,YR:MN1MN12820<>YR1753820PHDY1DY31820_R960:1020\"This date falls on "DA$(DW)"."fF1F:MN1:DY1:960:"It is day ";F1F1;" of the year."p900:YR" is "LY$(LY)" a leap year."z18::" PRESS Y) ";MN,DY,YR:MN1MN127201YR1753720EDY1DY31720S960:D1F14:"Second date (MM,DD,YYYY) ";MN,DY,YR:MN1MN12720YR1753720 DY1DY31720960:D2F 16:(D1D2);"days between dates."*890+412:"DaR@:17);MN$(MN1)" "MN$(MN1):17);H2$" "H2$R17);:R16X112:I17:C(MNX,I,R)0ĺ" ";:700C(MNX,I,R)10);C(MNX,I,R);" ";I:" ";:X::17);:R:(12):D$"PR#0": 12:"First date (MM,DD,YYY520:OP$"DELETE":520:FL0:60OXFL1(Q206Q238Q141Q155)FL0:170b(222)0Ģ23:1:"ERR NUMBER=";(222);"IN LINE";(218)(219)256:(4);"PREFIX/":16368,0:222)225CC1100/(222)255Ģ23:(7):K&(222)3SN6:DN1:600(222)10FL1:1:LP2:"FILE LOCKED. CONTINUE? (Y/N)":FL1Q(16384):Q.217Q249Q206Q238Q141Q155570D16368,0!NFL1(Q217Q249)OP$"UNLOCK":520:60GLO769(P128)(KK128):MELO(LO1921)984(LO2945)984ZSMME1:DI$""SMSM1:DDDD1:DI$DI$((SM)128):(SM)160500DI$(DI$,DD1):1:LP2:16368,0:B$;OP$;" ";DI$;" ";:D$;B$;OP$;DI$:B$"":: 33 SPACES( *2 * CONCORD, MAINE 01742 *X ********************************z THIS IS PRODOS VERSION ONLY NIBBLE 11/85-14 <100 FBB$"":I1(B$):B((B$,I,1)):BB$BB$(B(B96B123)32):I:B$BB$: P16384,128:A$:(A$)gijklmnopqrstuvwxyz{|}$(C,P)B$:P%(C,P)B:1620:510&I$ " Change list status of itemO.81600:2)"Choose the item to put on/off list":1890:P%(C,P)P%(C,P):1600:1620:510BL "Tidy up a list(Alphabetical Insertion sort)V 5`1600:"AlphabetizePNPVPVP1ZP40P$(C,P)P$(C,P1):P%(C,P)P%(C,P1):(P$(C,P))İ1600:500P40P$(C,P)"":P%(C,P)0:1600:500PP1:960 " Change a product name23:6)"Change which product name?":1890:16001650 P(C,P)P%(C,P1):=RP$(C,P)B$:P%(C,P)B:PNPİ1620:510F\500Lfdp "Delete a productjz23:9)"Delete which product ?":1890:1600" Delete "P$(C,P)"? (Y/N) OR ";80:1600:(A$)27510A$"N"900A$"Y"920productK (P$(C,40))ĺ(7)"This list is full.":1610:1600:510k*1650:(P$(C,1))P1:850423:4)"Pick a place for the new product":NPNP1:P$(C,NP)(27):NP21İ1770>1890:1600:PNP850HAP:PNPA11:P$(C,P)P$(C,P1):P%0:::350<C0CTG1:1770:P140:P%(C,P)Ă::35023:8)"Did you buy "P$(C,P)"?":24:9:"(Y/N) or to menu";:80:1600:(A$)27P40:CCTG:760A$"Y"P%(C,P)0:1620:760A$"N"760720::350   "Add a ing !":4)"==============================="::: "31/31 ='S"You may:"::8)"R)emove all '*' markers"::8)"S)elect markers to be removed"::8)" to menu":::80:(A$)27350A$"S"710A$"R"660 C0CTG1:P140:P%(C,P)0:A$"P"(P$(C,1))1080;DA$"T"(P$(C,1))1120MN(A$)27350^XA$"N"510}bHP0:VP0:CC1:CCTGC0l500v " Update lists after shopping?:5:4)"=============================":4)"!Update lists after shopp350 " Edit lists&22130:<177023:"A(dd, D)elete, C)hange, P)ut on/off listN)ext ctgy, S)elect ctgy< T)idy, ";1:1:80:1600A$"S"1230A$"A"800&A$"D"(P$(C,1))9000A$"C"(P$(C,1))102:4)"(S) Print a shopping list"::4)"(F) Print the Full list":r4)"(A) Add, Change or Delete categories"::4)"(Q) Quit"|1:22:80:AN$A$A$"W"490A$"U"660A$"S"1280A$"F"1280A$"A"2430A$"Q"3100"-"(1): "Print category names control code (usu.underline) 6PN$(27)"-"(0): "Print normally control code (negates PC$) @ J " Main menu T ^:1590:8:"You may:"::4)"(W) Write lists"::4)"(U) Update list after shopping "Ehs(currently for epson mx80)# F PSLOT1: "printer slot number~ PINIT$(9)"80N":" Printer initialization lstring PFF$(12): "Print a form feed control code P80$(18): "Print in 80 colmuns control code "P1$(27)"Q"@ ,PC$(27)3,133,0,165,104,133,1,160,1,177,0,240,33,160,4i 177,0,240,13,48,8,201,96,144,4,41,95,145,0,200,208 239,160,0,177,0,170,200,177,0,133,1,134,0,208,223,96 1590 2950 (4)"RESTORE SHOPPER.VARS":216,0  " printer control code95A$((A$)32)Q Z: "upsift a lowercase GET, skipping the flashig cursorY d:_ n x "If the computer isn't a //e or //c then convert " lowercase program text to uppercase (1101)6A768:BAA47:C:B,C::A0 165,10 this list? (confirm Y/N) ";:80:A$"N"İ1600:510GjA$"Y"1120ct1600:14)" (working)"~B240:A$P$(C,B):AP%(C,B):(A$)B40::1190PB111:P$(C,P)A$P$(C,P1)A$:P%(C,P1)A:P1:::1190P$(C,P1)P$(C,P):P%(C,P1)P%(C,P):%P$(C,P1)A$:P%(C,P1)A:.5004o "Search for next category (calculate arrow position)uCTG21VCC1:HC0:490HC2((C19)20):VC1C((C19)20):490  " Print shopping list ,:12:7)"(A)80 OR :1:B25:C20CTG1:B:P$(C,0)::HC0HC2D&VC0VC1:HC2X&VC:HC:"==>";x& 35:23:80:VC:HC:" ";& (A$)13CVC1((HC2)20):& (A$)21(A$)10VCVC1:VC21HC2VC1:HC22&$ HC22VC19CTGVC1:HC2)'. (A$)8(A$%VC:9:"==>";4%35:23:80:VC:9:" ";S%(A$)21(A$)10VCVC1q%(A$)8(A$)11VCVC1%VC0VCCTG%VCCTG1VC1%(A$)13CVC1:%(A$)27AN$"W"ġ:350%(A$)27ġ:2430%21800&C019:B:P$(C,0):510 $4<$> "Choose a category ( using moving arrow)B$Hc$R:22:12)"Which category?"$\6)"Use arrow keys for selection":9)"Use (RETURN) to enter";:(1)$fHP0:VP0:VC1VC1$pB12:CTG20B5:2280%zHC2:C0CTG1:B:P$(C,0):VP2:HP1D#(A$)8(A$)11VPVP1:VP1HP1HP20:VPVP19_#VP1HP20VP21:HP1s# (A$)271990#PVP1((HP1)20)# 1600::P$(C,NP)(27)FP$(C,NP)"":VPVP(PNP):NPNP1:NP20İ1770: " adjust NP and VP if (A)dd changed it$*1"(A$)13PVP1:M"(A$)27PVP1:2080: "save redundant codeW"1910f"HP0HP1y"VP:HP:"->";"1:1:80:VP:HP:" ""(A$)13PVP1((HP1)20):"(A$)21(A$)10VPVP1:VP22HP1VP2:HP20 #VP18NPHP20 (using moving arrow)!N'!X1770k!b24:"Use arrow keys to select-(RET) to enter";:VP2VP2:HP0{!lNP201980!vVP:7:"--->";!1:1:80:VP:7:" ";!(A$)21(A$)10VPVP1:VPNP2VP2"(A$)8(A$)11VPVP1:VP1VPNP 1:35,22::35,24:(39(P$(C,0)))2::P$(C,0):U A120:D:P%(C,A)ĺ"*"; D2:P$(C,A):(P$(C,A))NPA1:A20::  2:D23:A2140:D:P%(C,A)ĺ"*"; &D2:P$(C,A):(P$(C,A))NPA1:A40 0: :!D" Choose a productlist? (Y/N/esc) ";:80:1600:A$"Y"B1:>A$"N"B0:S(A$)27ġ:510]1670k(B$)ıA$"":B1(B$):((B$,B,1))31A$A$(B$,B,1):B$A$:  "Screen product list display D3:NP40:(P$(C,21))D107):B:1P(P20)20:B3Ĺ33,19A^868:33,40:P%(C,P)ĺ"*";UhB2:P$(C,P):r17)"...............";:1:34,(37):"Enter new item->";B::1710:1600:(B$)151650:: "15 PERIODS|(B$)ġ:510,70:"Is "B$" on your current":"shopping *************************** Super Shopper by Steven Meuse ** Copyright 1985 by MicroSPARC, Inc. ****************************************":: "41/241 *'S@23:1:958:J6)"press to continue....";:A$:!TB3(NP21)720(P20e whole list!"::FC0CTG1CLM:PC$:ACCLM1:ACTGACTG1sP040:NP0:BCA:(P$(B,P))Ă:1540HT,(BC)16:P$(B,P);:NP1:NPĺPN$::PFF$:D$"PR#0': GOTO 350""Various subroutines,63:"**************%(B))ĹHT,(BC)16:P$(B,PR%(B));:PR%(B)PR%(B)1:NP1::1460uPR%(B)PR%(B)1:PR%(B)41ĭ(P$(B,PR%(B)))1430PR%(B)40:NPĺPN$NP0:BCA:PR%(B)40NP1:NP1410:PFF$:D$"PR#0":B0CTG1:PR%(B)0::350"Here's th1380"P216,0:(222)32950zZD$"PR#0":::10:(7)"There isn't a printer card in slot "PSLOT".":23:1610:350dAN$"F"1500nHT,CLM7:"Shopping list"::xC0CTG1CLM:PC$ACCLM1:ACTGACTG1NP0:BCA@P%(B,PR(B) 132 column? ";:80:A$"B"CLM8:1320G A$(13)A$(27)350YA$"A"1280cCLM5(:12:9)"Printing shopping list "::6)"Please turn on printer"21360<D$"PR#"PSLOT::14:958:216,0:PINIT$:A$"A"ĺP80$:1380FP132$:)11VCVC1:VC0HC2VCCTG20:HC22D'8 VC0HC22VC20:HC2a'B (A$)27AN$"W"ġ:350w'L (A$)27ġ:2430'V 2300'` 'j "Category add, change & delete menu't '~ :1590.( :9)"======================":9)"! CATEGORY UTILITIES !":9)"======================": "22/22='S ( :"You may :":::9)"A)dd a category"::9)"D)elete a category"::9)"C)hange a category"::9)" to menu"( 80:A$"D"2540( A$"C"2690( A$"A"2860( (A$)27350( 2460)  :D$(4)P2FU"THIS PROGRAM WILL ALLOW THE USER":Z" TO MAKE A ";::"HARD COPY";::"OR A DISKETTE":_" CATALOG IN EITHER OR TWO WAYS. A NAME":d"MAY ALSO BE ASSIGNED TO THE CATALOG":g"LIST.": i" THE PRINT-OUT x  32,190,222,32,227,223,169,128,133,51,32,106,253,160,0,138,145,131,169,0,200,145,131,169,2,200,145,131,76,57,213 dD$(4)::+nI131:X:767I,X:Bx"TEXTFILE READER"a" COPR. 1986 GARY LITTLE":"ENTER NAME OF TEXTFILE: ";F$:200D$;"OPEN";F$D$;"READ";F$768,A$:A$(A$,1): Insted of INPUTA$:180D$;"CLOSE" check the disc drive,"::"and try to quit Shopper again.":23:1610:350[3D 216,0::LB$P$(CTG,0):70:P$(CTG,0)B$:P%(CTG,0)1:CTGCTG1:CTG40ĺD$"CREATE"F$",TVAR":250a2 3000g2 2 "EXITS FROM PROGRAM2 2 31202& 1::D$"UNLOCK"F$:D$"STORE"F$:D$"LOCK"F$:314020 216,0:P(222):P6P92950L3: :10:(7)" Please......"::9)"Press RETURN to finish":15:34,14:" Enter category name->";B$::1710:P$(CTG,0)B$: " 15 PERIODS1 (P$(CTG,0))CTGĺD$"CREATE"F$",TVAR":2501 (P$(CTG,0))26301 (P$(CTG,0))15Ģ20:(7)"Entry too long.":::1610:3000W2 may:"::8)"E)nter categories"::8)"Q)uit":1:1:80:A$"Q"3140Y0 A$"E"29700 P$(39,40),P%(39,40),PR%(39):CTG00 :1590::11)"=================":11)"! SHOPPER SETUP !"::11)"=================":::: 17/17 = 'St1 22)".........$(C,P)"":P%(C,P)0::CTGCTG1:2430-/h l/r " This is where we go the very first time SHOPPER is runr/| / 216,0::P(222):P5P7ĺ"ERROR #"P" IN LINE #"(218)(219)256:/ P0:C0:A0:HT36:F$"SHOPPER.VARS":D$(4)G0 :1590:::"Youadded only after an existing category is deleted."H.@ 23:1610:2430.J 12:1:958:16:25)"...............";:1:34,15:"Enter new category name>";B$::1710:(B$)2430: " 15 PERIODS.T (B$)152890'/^ 70:CCTG:P$(C,0)B$:P%(C,0)1:P140:Ping category name"4- P$(C,0)B$:P0:A$"K"2820U- P140:(P$(C,P))Ă:2820p- P$(C,P)"":P%(C,P)O:z- 2430- - "add a category-" -, CTG4028904.6 :1590:9:(7)"You have reached the 40-category limit. A new category may be DS, (B$)152700W, 70:"Change "P$(C,0)" to "B$"?";:24:13:"9confirm Y/N)";l, 80:A$"N"2430~, (A$)27350, A$"Y"2730, 1600:12)"K)eep or D)elete":6)P$(C,0)"list contents?";, 80:A$"K"A$"D"2770- :12:9)"Chang:A$"A"3000 +P A$"Q"3140*+Z 26300+d N+n " Change a category nameT+x + :22:6)"Change which category name?":2140, 1:22:958::25)"...............";:1:34,22:"E`nter new category name>";B$::1710:1600:(B$)2430: "15 PERIO:P040:P$(C,P)P$(C1,P):P%(C,P)P%(C1,P)::m*2 CTGCTG1:P040:P$(CTG,P)"":P%(CTG,P)0::CTG2430*< 1::D$"UNLOCK"F$:D$"DELETE"F$+F :1590:::"You have left all categories unused."::"You may:"::9)"A)dd categories"::9)"Q)uit":80) " Delete a category ) ~) :22:9)"Delete which category?":2140:22:1:958::"Delete"P$(C,0)"? (confirm Y/N)") 80:A$"N"2430) (A$)27350) A$"Y"2550) :12:9)" Deleting"P$(C,0)) CCTG1VCVC1:26102*( CCCTG2MAY EITHER BE REDUCED":U n"IN SIZE (";::"MINI-CATALOG";::") OR IT MAY BE": s"PRINTED IN NORMAL SIZE PRINTER MODE.": t" THE ";::"MINI";::" SIZE CATALOG MAKES A GREAT": u" LABEL FOR THE DISKETTE BOX OR ENVELOPE." x23:7)"(PR ` ȱ 8 ȩX  e ȱ e `L$) @ :LBBB LAAꍉsAtUU IUUUUUVߢA XAA ӢE@ stVVLPL{=L XLEB I 9U U {FLDU)UL@ĮǠ٠ĮϠŭĬŠТΠΠĮǮĮǍԠéΠčŠӬîĠҠà͠ů@尰 ~@ 8s tTȅ A  / A @L@/  > A @L@ 8e/3:N113:X,Y" X,YX1,Y:6 ---CAR BODY---O "5:Y101154:X1,X2q ,X1,YX2,Y:279X1,Y279X2,Yw 6 @---TIRE OUTLINE--- J7 TX1,Y1,X2,Y2 YX10380 ^X10380 hX1,Y1X2,Y2:279X1,Y1279X2,Y2 r340 |---NUMBER (109)ĺ"MONOCHROME";:7:180; Z$"C"Z$(99)150M "COLOR!";:6f Y063:0,Y279,Y:} ---DRAW GRASS--- 1:16302,0: Y64:X13106 0,YX,Y:YY1: X148:Y64100 X,Y279,Y:XX2: ---CENTER LINE--- P(104)8Ĺ104,8:103,1:2048,0:(4)"RUN MAKE.SCENE"O Z16384:ERE2090] d:::21 n"===FORMULA NIBBLE SCREEN GENERATOR===": x ---DRAW SKY--- "CO YOU HAVE A COLOR OR A MONOCHROME" " MONITOR? (PRESS C OR M) "; Z$:Z$"M"Z$ NIBBLE12/86 PG149 **************************Z * MAKE.SCENE *{ * BY COLIN FRENCH *( * COPYRIGHT (C) 1986 *2 * BY MICROSPARC, INC. *< * CONCORD, MA 01742 *F **************************: VE":& b" THIS CATALOG ? ";N$, l2 vJ : PRINTER REMINDERQ 6 " BE SURE THE PRINTER IS ON AND PAPER IS": "ADJUSTED." 22 8)"PRESS ";::"P";::" TO BEGIN PRINTING." P$ P$"P"730 :  ,234:44598,234* (27)"S"(1):(15)8 (27)"1"@ N$R D$;"CATALOG"X f (27)"@"w X112::X D$;"PR#0"  : ENDING MODULE  6:6)" THANKS FOR USING ";::"MINI-CATALOG": & X6:"WHAT DO YOU WISH TO GI,500 128( ,:NORMAL MODE MODULE. .< 1600:700K 6D$;"PR#1"p ;44596,234:44597,234:44598,234x @N$ JD$;"CATALOG" OX112::X TD$;"PR#0" ^  : MINI MODE MODULE  600:700 D$;"PR#1" 44596,234:44597ESS ANY KEY TO CONTINUE.)"$ }A$* 8 5:18::J "MENU":::n 6)"1.NORMAL MODE PRINT-OUT": 6)"2.MINI MODE PRINT-OUT": 6)"3.EXIT THE PROGRAM"::: :"SELECT A NUMBER": A$ I(A$) I1I3160 I300,400#L{FxȘȑ F0: P0\X RWWWWL&BGFFs,V,(L/EEɛ/ɜ7ɬv 78LآGFLLB A L ALB J BhhLץ UHUH`LPv F,UP F,U I 6DUi ISU8 mIvLJ N΢LNץHH T ]JLPJ *Thh` P&Q PPPQP=TQ>T)8=TPHP>TQH8Q hVhVULFL,U *T P 6Db`3 *T`Lޠ: VV,U ILDL WۦPQ $ C vCPQwx zH,ɓɠ ɠ<Ɉ ɕɃ-UU KLeC$c0$c0cx : K FLG$c0LF IA,ULI LJŸ幐QPLHPwQx`{$`PQP IV VU IU UЅDTij 'FU gݩU \F eCLeG eCLF eCLeG RuWЙvWВWWWЅW KX cR: 88 sآxc{UU H A \CU ULJHȱ wx K FLHh:g6䰰1 H K$c R 8劅 =۠<LJ! K `V؍V؍VVVFTGTuvVV`VحVVVVVuv`U %H L "# HU [ Bh [`ȥe>T =TUUUVV`0XjM \C RmCT( UU%U H I XL5ILGV,U0yz S,s *TLEUU \C@TAT I 'F c, yz Wۢ0M:, \Ɗ J \ {$0 4 E%$!{! WLlE \FLeC CLE<=<  <UUUx {FLDbU H {FUUU`bɈ,ɕɋjɊyɼ$ɬ ɮ<ɾ8ɠb`U`8.U`UU8UUULDUحUU I XUiLDU HUULDU HU [ L U= 5I L##ʊ [! F'xuw Kuvwx $ C nC$U{U{U QEUɃ 5IL =DɍU 5ILaB``:  慤 C C"`H Ch8Єτ ,0 ,0Ɗ0 CLC C CH$ {$hL\NU`a0 ]JLeCij YՄ P PLl8湦 CQU)U`X)X`)@X XU @U`L0X`  ڦQP ʆ ɼ^: ɭqɴgLަ0 ڦX RPWQWWW  g R禊PWQW ZQ` N JRLQLK…0 R S: WƋLީWXLZQX* K-+ \ۢh *T $ \f)f C RW  C \` C RWW $, \ WۤWWL$ `U LRUU L] *TvHv Tb@@ U*U*A (~ x U*~~ c@A?8pU*U*U*U*UxU*Ux pp `U l! ex@? `? T"U*Q*@? D$DD?``@xAx? ~*Q"(yp x@*U("*U*U*u} p @?~N@?~ DH |O*U*U"Qx0$DDDD @(UbU*U*U*  x*U* A*U(U| ~|*U*E*U*p >|Dx||?``|@xAx?p T*`P wp*@*|C**Ux  xo)}( |p*A (U*U | | @@U U*? ( | U*pHx F| 9p U*U*U*E` U*| x ZABREALIS1LLLLLLLL LL L LLOO.O8PGAPRAPPPnQ5TOCCURRENCES: USE "<", ">", AND UP & DOWN ARROWS ACTIVATE TRACE FIRST NO ERRORS<88?``@xAx?~@@ P 'upB?T*U*x `? o)( |?` U*pO*U*U*|? x U*~`G P U*U*x*~? `?@ `? acG| 9pQ*U*U*~ U*Ux | pQ\{.( e~ @?`E U*U*` ?``|@xAx? ~?*U*~?` p(U*U U*U*E  S*U*U Q ~%|8|?~N@?~ ~'eP X#*U*Ur |*U*U*U*x ?``@xAx?~ P*QJ.ep@P*U*x x ~o)9*P`(E*`*U*U*|?  U `P U*U*q*~? p E @~ acGpI8pU*U*UU*U|U*Ux ` pUn) e `?@U*U*U*`? >D88?``|@xAx?r ~? U*(U* |` x(U*U"U*@"U*U*| pyp a<?~L@?~pc y ?*~"ypp@@ xU*U*x | `!U*(@? `@*U ~Q*U*U*~? x `?T**U* U*p?D>8x8 (E*U*U*U*@ <D88 @@*UB?T(U*U*~  Tp)9` U U*U*UB(U*|? | x U*p?T*npA**xG*(Ux `? |P*U*U EHx ~?TT"Q"U(U| 2 ?~@O?@?~`Cx @@T*U*|  P*pP*|  pU*U*U* U x ~?`O*U*U*U*` D|d?~`O@A?~ @'@{$ U@ j?` p| U*U*U*~ <)yxp(@ |#U*Ux p p?(U* Q~ `@*U T*U*U*~? ~ T*@) y`(UT*U*U ?(U |? ~@ @ Ux'U*\pA*P*a*Ux p xP*T px ~T@*U*E"| pQqpqhxx?~`O@A?~ D  P*U*Ux@ @@*)"T~  $) \ۥ$!,{I $ȱb38Єτ _B0 \ _B0 \ \۩ LB`枱`BB :`BB :`LAbɭć bɭ`Ȣ:   "鱸`LBLBLCL7CLRCLpCLCLBLBźҺҠŠҺŠ2,3,4,5,6,7,6,7,8,9,8,9;n 8,9,8,9,6,7,6,7,4,5,2,3,0,1[x ---STEERING WHEEL DATA---i 132,139124,139,118,139,114,139,110,139,108,139 106,139,104,139,102,139,100,129,100,121 98,117,98,115,96,113,94,109,94,109 92,107,92,107,,36,139,32,1399 28,139,24,139,24,139,20,139,20,139]( 16,139,16,36,12,32,12,28,8,28|2 8,24,4,24,4,20,0,20,0,16< 0,16,0,12,0,12,-1,-1F 54,89,50,95,46,101,42,107,40,115P---INSTRUMENTS DATA---Z1,3,4,4,7,7,7,7,5,5,3,1d 0,1,6,35,105,35,106,32,107,32,109P 33,107,33,1089,30,110,30,113,31,110,31,113{ 28,114,29,117,114,29,117,-1,-1,-1,-1---DASHBOARD DATA--- 96,139,84,139,76,139,72,139,64,139  60,139,56,139,52,139,48,139,48,139 44,139,40,139,36,1390,29,0,27,0,25,0,21,0,198 0,17,0,15,0,13,0,11,0,9N 0,7,0,5,0,3,0,1f---TIRE OUTLINE--- 12,101,57,101,6,102,11,102,42,102,47,102 58,102,61,102,2,103,5,103,0,104,104 38,103,41,103,62,103,63,103,36,104,37,104 34,105,34,10125,56,115,54,111,50,111,48,115JV 46,125,42,139,40,139,36,139,34,139s` 32,139,30,139,28,139,26,139,24,139j 20,139,18,139,16,139,14,139,12,139t 10,139,8,93,6,83,4,75,2,69~ 0,63,0,59,0,55,0,51,0,47 0,45,0,41,0,39,0,35,0,33 ING ON"8"RACE RECORDS SCREEN...":D1500::1730T---CENTER LINE DATA---}$ 132,67,126,70,120,73,114,76,108,79.102,82,100,83,90,88,88,89,74,96,72,97,70,98,68,998---ORANGE CAR DATA---B105,139,91,139,77,139,68,139,64,139!L 60,TIRE HIGHLIGHTS---&7:X10278PX,104X3,104:279X,104176X,104:^X6238X,105X3,105:279X,105276X,105::22:10)"WORKING ON SCREEN 2"(4)"BSAVE TRK.SCREEN2,A$2000,L$1FFB" :22:"FINISHED HI-RES SCREENS, WORK:-PAUSE TO ADMIRE?----SAVE IMAGES---A:16301,0:22o"READY TO SAVE IMAGES.. INSERT THE DISK""YOU WANT TO SAVE THEM ON & PRESS A KEY";Z$::21::10)"WORKING ON SCREEN 1"(4)"BSAVE TRK.SCREEN1,A$2000,L$1FFB"---DRAW 0X1,Y120X2,Y;*139X1,Y139X2,Y:140X1,Y140X2,Ye4159X1,Y159X2,Y:160X1,Y160X2,Yk>yH---BOX--R4,165107,165:172,165275,165\4,1654,190:5,1655,190f274,165274,190:275,165275,109p4,190275,190zD1800::4!X18:X1,Y1,X2,Y2GX1,Y1X2,Y2:179X1,Y1279X2,Y2Mh---STARTING LIGHTS---xL07:ADDX618:C:ADDX,C:X2733:C:ADDX,C::3 ---STARTING LIGHTS---Y160169:X1,X2 119X1,Y119X2,Y:12Y123144:X5X125X,Y126X,Y:153X,Y154X,Y>b:7TlY132145:X1,X2~v125X1,Y125X2,Y:126X1,Y126X2,Y153X1,Y153X2,Y:154X1,Y154X2,Y---STEERING WHEEL---Y122160:X1,X2X1,YX2,Y:279X1,Y279X2,Y X1,X2:X10550# XX1X24B X,Y1,Y:276X,Y277X,YN :YY1c X1,X2:X10550r XX1X24 X2,YX3,Y:278X,Y279X,Y :YY1:470 &4:Y144148:X1,X2 0X1,YX2,Y:279X1,Y279X2,Y : D---INSTRUMENTS---NON HOOD---2 126,106153,106:126,111153,111X 116,107135,107:140,107163,107~ 112,108127,108:152,108167,108 112,109135,109:148,109167,109 116,110135,110:144,110163,110 140,109143,109 ---DASH BOARD--- Y128 ӠԠԠҠǠŠŠӠϠǠŠΧԠŠԠŠϠŭҠŠҊŮҍԠéΠčŠӬî92,105,90,105,90,103? 90,103,90,103,88,101,88,101,88,101d 88,101,88,99,86,99,86,99,84,99 82,99,80,101,80,103,78,103,78,103 78,103,78,103,78,101 84,152,84,156,85,152,85,156,86,157,87,157 88,158,91,158,92,159,93,159,94,158,97,158) 98,157,98,154,99,157,99,154@---TEXT DATA--- p 15056,127,25,3,115,7,0,30,30,0,30,30,0,30 3,62,124,1,0,30,3016080,24,24,71,51,0,0,51,51,0,51,51,0,51" 3,99,12,3,0,51,51, 9040,24,24,111,51,96,0,51,51,12,51,51,0,51HTS---7:X10278DX,104X3,104:279X,104176X,104:RX6238|X,105X3,105:279X,105276X,105::22:10)"WORKING ON SCREEN 2"(4)"BSAVE TRK.SCREEN2,A$2000,L$1FFB":22:"FINISHED HI-RES SCREENS, WORKING ON", ADMIRE?!---SAVE IMAGES---5:16301,0:22c"READY TO SAVE IMAGES.. INSERT THE DISK""YOU WANT TO SAVE THEM ON & PRESS A KEY";Z$::21::10)"WORKING ON SCREEN 1"(4)"BSAVE TRK.SCREEN1,A$2000,L$1FFB"---DRAW TIRE HIGHLIG2,Y/*139X1,Y139X2,Y:140X1,Y140X2,YY4159X1,Y159X2,Y:160X1,Y160X2,Y_>mH---BOX--R4,165107,165:172,165275,165\4,1654,190:5,1655,190f274,165274,190:275,165275,109p4,190275,190 zD1800::-PAUSE TOX18:X1,Y1,X2,Y2;X1,Y1X2,Y2:179X1,Y1279X2,Y2A\---STARTING LIGHTS---lL07:ADDX618:C:ADDX,C:X2733:C:ADDX,C::3 ---STARTING LIGHTS---Y160169:X1,X2 119X1,Y119X2,Y:120X1,Y120XX)X125X,Y126X,Y:153X,Y154X,Y2b:7HlY132145:X1,X2rv125X1,Y125X2,Y:126X1,Y126X2,Y153X1,Y153X2,Y:154X1,Y154X2,Y---STEERING WHEEL---Y122160:X1,X2X1,YX2,Y:279X1,Y279X2,Y:40550 XX1X246 X,Y1,Y:276X,Y277X,YB :YY1W X1,X2:X10550f XX1X24 X2,YX3,Y:278X,Y279X,Y :YY1:470 &4:Y144148:X1,X2 0X1,YX2,Y:279X1,Y279X2,Y : D---INSTRUMENTS---NY123144: 126,106153,106:126,111153,111L 116,107135,107:140,107163,107r 112,108127,108:152,108167,108 112,109135,109:148,109167,109 116,110135,110:144,110163,110 140,109143,109 ---DASH BOARD--- Y128 X1,X2:X13:N113:X,Y$ X,YX1,Y:8 ---CAR BODY---Q "5:Y101154:X1,X2s ,X1,YX2,Y:279X1,Y279X2,Yy 6 @---TIRE OUTLINE--- J7 TX1,Y1,X2,Y2 YX10380 ^X1,Y1X2,Y2:279X1,Y1279X2,Y2 r340 |---NUMBER ON HOOD---&Z$(109)ĺ"MONOCHROME";:7:180= Z$"C"Z$(99)150O "COLOR!";:6h Y063:0,Y279,Y: ---DRAW GRASS--- 1:16302,0: Y64:X13106 0,YX,Y:YY1: X148:Y64100 X,Y279,Y:XX2: ---CENTER LINE--- P(104)8Ĺ104,8:103,1:2048,0:(4)"RUN MAKE.SCENE"Q ZLOMEN:16384:2090_ d:::21 n"===FORMULA NIBBLE SCREEN GENERATOR===": x ---DRAW SKY--- "CO YOU HAVE A COLOR OR A MONOCHROME" " MONITOR? (PRESS C OR M) ";" Z$:Z$"M" NIBBLE12/86 PG149 **************************Z * MAKE.SCENE *{ * BY COLIN FRENCH *( * COPYRIGHT (C) 1986 *2 * BY MICROSPARC, INC. *< * CONCORD, MA 01742 *F **************************: 6 3,99,12,51,0,51,51K@ 10064,24,24,59,115,97,0,51,51,12,51,51,0,51cJ3,99,12,51,0,51,51T 11088,24,24,19,51,0,0,51,51,0,51,0,51^ 3,127,124,1,0,51,51h 12112,24,24,3,51,96,0,51,51,12,51,51,0,51r 3,99,12,48,0,51,51#| 13136,24,"RACE RECORDS SCREEN...":D1500::1730H---CENTER LINE DATA---q$ 132,67,126,70,120,73,114,76,108,79.102,82,100,83,90,88,88,89,74,96,72,97,70,98,68,998---ORANGE CAR DATA---B105,139,91,139,77,139,68,139,64,139L 60,125,56,115,54,111,50,111,48,115>V 46,125,42,139,40,139,36,139,34,139g` 32,139,30,139,28,139,26,139,24,139j 20,139,18,139,16,139,14,139,12,139t 10,139,8,93,6,83,4,75,2,69~ 0,63,0,59,0,55,0,51,0,47 0,45,0,41,0,39,0,35,0,33 0,29,0,27,0,24,3,51,96,0,51,51,12,51,51,12,51< 3,99,12,48,0,51,51l 14160,24,24,3,115,7,0,30,30,0,30,30,12,30 63,99,12,0,0,30,30---STARTING LIGHTS--- 0,1,2,3,4,5,6,7,6,7 6.7.6.7.4.5.2.3.0,1:V1:1990::14)"RECORD HO IN LINE "(218)256(219):" ";:::" ";::0 ---DRAW LOGO---@V:1:1950c"----------------";: 16 - 'Sm1970V1:1:1970" FORMULA NIBBLE ";1950 V2:1:1950"----------------";: 16 - 'S 1970: *::12:"ERROR "(222)""MONACO"X15:"DETROIT"1b19:"MONTREAL"`l24:" (PRESS KEY OR BUTTON FOR MENU)";nv23::32(4)"BSAVE RACE.RECORDS,A$400,L$400:"ALL DONE!":---CHECKERED PATTERNS---N16:" ";:" ";:::N15::" ";:N139:".";:Y::817:"ROOKIE";:30:"CHAMPION"NN139:".";::YN13p13:":";:27:":"|N21313:": --- 00:00.0 : --- 00:00.0"&N2,N0N112:".";::":";:N113:".";::":";DN112:".";: N11:1:,51,51,12,51,51,12,510 3,99,12,48,0,51,51` 14160,24,24,3,115,7,0,30,30,0,30,30,12,30y 63,99,12,0,0,30,30---STARTING LIGHTS--- 0,1,2,3,4,5,6,7,6,7 6.7.6.7.4.5.2.3.0,1:V1:1990::14)"RECORD HOLDERS",51,0,51,51?@ 10064,24,24,59,115,97,0,51,51,12,51,51,0,51WJ3,99,12,51,0,51,51T 11088,24,24,19,51,0,0,51,51,0,51,0,51^ 3,127,124,1,0,51,51h 12112,24,24,3,51,96,0,51,51,12,51,51,0,51r 3,99,12,48,0,51,51| 13136,24,24,3,51,96,098,157,98,154,99,157,99,1544---TEXT DATA--- d 15056,127,25,3,115,7,0,30,30,0,30,30,0,30} 3,62,124,1,0,30,3016080,24,24,71,51,0,0,51,51,0,51,51,0,51" 3,99,12,3,0,51,51, 9040,24,24,111,51,96,0,51,51,12,51,51,0,51 6 3,99,125,90,1033 90,103,90,103,88,101,88,101,88,101X 88,101,88,99,86,99,86,99,84,99 82,99,80,101,80,103,78,103,78,103 78,103,78,103,78,101 84,152,84,156,85,152,85,156,86,157,87,157 88,158,91,158,92,159,93,159,94,158,97,158 6,7,8,9,8,9/n 8,9,8,9,6,7,6,7,4,5,2,3,0,1Ox ---STEERING WHEEL DATA---] 132,139124,139,118,139,114,139,110,139,108,139 106,139,104,139,102,139,100,129,100,121 98,117,98,115,96,113,94,109,94,109  92,107,92,107,92,105,90,1039- 28,139,24,139,24,139,20,139,20,139Q( 16,139,16,36,12,32,12,28,8,28p2 8,24,4,24,4,20,0,20,0,16< 0,16,0,12,0,12,-1,-1F 54,89,50,95,46,101,42,107,40,115P---INSTRUMENTS DATA---Z1,3,4,4,7,7,7,7,5,5,3,1 d 0,1,2,3,4,5,6,7,106,32,107,32,109D 33,107,33,1089,30,110,30,113,31,110,31,113o 28,114,29,117,114,29,117,-1,-1,-1,-1---DASHBOARD DATA--- 96,139,84,139,76,139,72,139,64,139  60,139,56,139,52,139,48,139,48,139 44,139,40,139,36,139,36,139,32,125,0,21,0,19, 0,17,0,15,0,13,0,11,0,9B 0,7,0,5,0,3,0,1Z---TIRE OUTLINE--- 12,101,57,101,6,102,11,102,42,102,47,102 58,102,61,102,2,103,5,103,0,104,104 38,103,41,103,62,103,63,103,36,104,37,104 34,105,34,106,35,105,35,LDERS"!N139:".";:Y::D17:"ROOKIE";:30:"CHAMPION"ZN139:".";::eN13|13:":";:27:":"N21313:": --- 00:00.0 : --- 00:00.0"&N2,N0N112:".";::":";:N113:".";::":";DN112:".";:N11:1:"MONACO")X15:"DETROIT"=b19:"MONTREAL"ll24:" (PRESS KEY OR BUTTON FOR MENU)";zv23::32(4)"BSAVE RACE.RECORDS,A$400,L$400:"ALL DONE!":---CHECKERED PATTERNS---N16:" ";:" ";:::N1*LL3STARTUP3zCAL3BIRTHDAY3 MAILING.LIST3< DEC.HEX.BINMOUSEz MUNCH.MOUSE BASEBALL.STST BASIC.SYSTEMHPRODOS:$~|]sBOOT5HBOOT6qz MAKE.SCENESq LINE.SPLITTERqFPq< D.CODE.LOGORD.BUGRz MAKE.SCENER MINI.CATALOGRTEXTFILER< SUPER.SHOPPER0h)ύh0HHHH " ׍hhhhhhh .hh8`JIMJAYKERRY&MIKEOR "(222)" IN LINE "(218)256(219):5::" ";:&" ";:::" ";::< ---DRAW LOGO---LV:1:1950o"----------------";: 16 - 'Sy1970V1:1:1970" FORMULA NIBBLE ";1950 V2:1:1950"----------------";: 16 - 'S 1970:+ *::12:"ERR