8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL L? @ABCDEFGHIJKLMNOPQ \5\5(PIKNROLL P1! PIKDATA.1#BIN\FINDER.DATAɖF3BOOT5BOOT6FINDER.ROOTəz!COMPUALPPLEY!BIN.CAPACITYZ!,MINI.CATALOGo!*MAKE.SCENEs 5COMPUAPPLE}'CHECKITg {{HOME.USE.APPLE' SHOPPER.VARSR&PRODOS < }:,BASIC.SYSTEM+(! -SUPER.SHOPPER[+'STARTUPT !TEXTFILE^ >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(8R95A$((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  )1& ` (Xp< @1& )m1&1&.1&4& M1&i  ``rȱȱȱȱ0]cȱeem<(ȱ=(ȱ>(=(ȱF(=(ȱN( '<( z' #'Lg&`L' 'L& ' 8f ZHH)hh8JhJJJJJ '&H(&8H) 12 (j21 h!hH h %)Ђ12H)M0 h10200I20h2 9&`L#`)&!2"L  :8! ȱɈ 5   8 0 8 `0 / x X$$ $&$0`ŠӠ­ԠŠҬîʎ1DžϠ)&ʈ0  0ŠϠĠ͢Š͠͠ϠŠŠϠĠخ͠ YYZLYLYLY뿩 8@  *$ MNЩUM  LPN!-RB}PBiB ,m# m# J Qڨ)̰n]e мȱ ; ̀𩠙< iO P F V >Z SY ɘL` X _ [ V7 c L '0%O '8O JmO *  !"#$%&'()n!o!p! k! iL X%>!L;!ΠΠҠ`}!!!"!!!l4"# G$YO!-q(qR9B}PBiBCe! H$q!r! c&L*!M8tl # ) y!s!(&s!t! c&E )?  @ e!l!0 $l!0u!v! c&-) &ۍw!x! c&Эb)0I0 ( d!N)Gi/ h!4 350 " 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 codeLg& 'L&8ei` ,$`ee` `<( '<( '` ' ' '`hh8`8`=(>(F(`}N(`e`H)hJJ'0JJ)` (< ( < *? ( < (? ( < (? ( <*? * **? *? *? ( < *? ( <ȱH΄`f8eHI ٰSB0% ؠ]#!F&dʈ pٌ`8m0k`,0H hi LٍȽ΄h]0GF𨍆8ylFmG ݰ ڰ`]0Q8`d*؅IFG ݐ`g()*g p8D`F` ilH)HFȍ&HG' ݰ$%d&e!8* J8` Lע )I '`8fi*F(G)`f*؅IH3H g( g )c'G ݰ%" ݰX)Im'F(G)** ݰ4 ֭ $H ݰ%HFFHGHG ݐ`R8`ͺͻ)` װ H+` /ٰR(*؅IHH++Ѝ+@`g8c ؐedc e* eIȱ@;ȱ@EGH>&P'Q+)7+I0 ('*A ܰ7<=FG ݰ( ְLݩI* mIH` LI I%0(F)G ݰ ֬+H&F'G ݰ&FF@ 0 [ gLթK8` I8`FHGH ܪhGhF ݰբFF芝 ݰFG ݮI mIHHyHȘI ݰLԩ` ՠ @;@ C@Ю+)m+ʈ@i ]`^C8` @ x3N@) Wڎ ԭi`0 iڰ0GF ݰ#]0 ڰW,0 ] ۩.H hȑNWȮNW8`N΄0NN` װG8`j𪭄Б` Ґ L` א@>+)I38j%k@؍L3<>=?<>CAB@?A` / L  <>` ڢF]PL8i m L   4< L  BLRAM' hLDLHB-4F 1"aɿ LL@ Nϰ H  @h( L Lh  @`bLJCAB@=?,<ʆ>*=?BC8 é&'112` Wڭ01 E8`1ݖ0 iڰ$]0̩GF ݰ ڰ ڰ`12)1`0]`Ȏ]i 0U`)8`΄`] ېW }װG =۰A)H ]ʈh0)*FG'(`)\ \8ʈ` ۰0)i `8`]R ܍hRSg ݰN]FG ݰ< h0 FGLۮ]g0 SR8`a`H8` ܹ ,gR S 8h)ꭍJJJJ^ ^ȢvI ;ސh(8H N h(8Hh(`^@`@^ȱ@ ` אB@8Z+`a] qۮ]a`KHJ8`>ha?+JJJJ+)+@` װ%I -I) 0@+`N8`  ) N^ȢV@vVv^@ʈL\ 簞KIJH^Ȣv^vvw)xJn 8 ΐ^ nH8^ ^i 8`L Ӑ L Ӱ )ܹ0 )p )@ )  ^$0&F'G ݰ ح()&'FG ׬^>?@ ; R+) R+ ְ^)%r ݰ`H@h`h`^ IhHIhH  i ` ܰ ii` )0CGHFHBFG ЪhFhG`@5^͔ M @B^i ׭` .^ @#^0 iڮ])`L@.^ 簪HIRH^  PLzEzʱNLMOwxMEKP%zMEKzL2 Owx,vy PveNNO \(` R  F .AxJRHISHI^ HIHI`  .` .A^ HR HS`@Nȱ@O^`^vY}RIR` tVYR t 3 tVR` ^` H  ^h)N@ N; L  ;ް$ )bJ`a f۰ ) H BhL ) . )xJwjIS@L;ެ^8NvNO 8} |vJLy`zRzʱLN.MOwxMEKP/zMEKzLCL-}M| Owx,vpyeNNO(`JNKO^L ;ް/  0P L8 | Zߠ^J`L@yȱ@z^ h)N$%^vywz LL⭦ L x L ;ް  0pzJ{ )@~NJOK ;ްiKKzzww xxIJ{ y zJФ̭xJwjHFIH ~HIG~xKE а((H hH h8`8y@ȭz) ) )cвHJ8` G^悔<F^f $ ӭ+v ;ސH^  @^h8` ߰] ^@`fc__f (^_ $c )8`)i п`  H  ^FG`BH T^FG`H ^hHBF  GxDE^0~0C а(`(8` L*J ^ :"L ݢH ^ : ^9` א@ P8`^_B8` ^$+JJJJIHIH IL9߅FHGI ѭxJwjHIH;7I^JJ Zߐ3HIHIL|ߩJKJK`FHIG ߰( ߬^ȢYvJLw)eKM`^)` J RJfw ߰$f0 ߰fJFJL8`JGBJ T(`(8`^@`M8`^8@tʈI^)Rw8RR xL|߹ Lߠ^C8`b)@ i^)Rx8RbzwJ x_ F Lr߹) +b&xJ(b .^FG/8` .xJRp qq]RS`]JJJJi LWݩH8`]r ݰ]rq0 ݰ ] o`q ݰq`r]uysitB0Hr0sFtG ݪh0`שB*xED~0C g` RS `]JJJJ`hH]hhn)gNhjNhjNhjnNh.p WݰHuh ݰ;h]r ݰ*nNpg qq`Z8` Wݰ#ppo o 5ݐ`noS .S .S .S8p*J)N8` @LL א=@ Aȹ]P8` 2i]` O0 AB O)( ȹ`8m8m@8` װG8`F  װ PI)@N8`+)@J Ay++)+8hUD` Y`> Hh݌(`HCJJJJ)*h`0($ p,&"op8`kkV꽌ɪɖxl*k-kmMl 꽌ɪ`8` *L o % YZoY 3 NZ`rZLkZq8r7IZiZkk 8 s q | kн Z)*>>` @ $(,048<@DHLPTX\`dh 0ުlptx| . .V  JJJJH 8h Ei 8EX`'8`jWC)p> pCYY 轊( ( BV ( p0 \BkJ @i> i'j:ZH i@ioZZH h ȭnWǥBJ 8X>` +>P8H  ): e: y8鰕:Jjjj<)yi8i;i(*=>hP8`;Zx3QTTSRWVUHEVhEhH)IWHPHHHAHHHLaVEWLӿLLՐ`BLڑL COPYRIGHT APPLE, 1983 h@ 0J @L:HUSTONLL`BLLТТТТТТТТТТТТТТТCOPR. APPLE,1983LM Mh@8nЍLЭ 0J @,,L:,LĠԠhhhhIL@Ae \{**ӂӹi|wWIJK,-NOPQRSuHUSTON!' @   !"#$Ԡ͠ˠ9X(K iXXK^ Ko`V8`no` 2 on iI9XX`)HJJJh`OeNeO࿰ i9XАO`@ȭ@` ON ONJKO`HHHHхFG ݐ ` }ͬ ݰFG ݐ` * }% L`FGLݮ 'ܰ8`FHGHi 'ܰihGhF`@Bɼ>K@J5 i`O WݰI:Y)`;R?AJ;<ȰY)`Y?)`ȐҰ ;HhHh=`Hh `Hh`DEiȍ018V%&8V)HV)hH)hHIhդD?DRIDQD); ?JDQD]`MY pY)p  p`FGV 8``ɍ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 ŠϠŠà͠ӠàԠŬ*,-./0123456789:;<=>! !5).莀/ ! !!!!! !!$ ! "<" !!뭳!!!!ILYL 8!9!詍` ! !ՠî򠠠!STARTUP/p$# {  { / XXύX?klmnÍoL) !6L'!(0`670! = ***)<JJH !h穖tp% !Z/݀!!'  &@DEF   %LҠؠӠ΢ϠԩҠŠƠԠԠŠӢɯϠҠůȠԠĠ  ɘɉ ɈL :Lɍ)ې)ɮ۰ɺH h 'ĝL  LL L)'L L L'L  (L(L $ʩ $$ $L `ީ % XʩXύX X A %  % ɍNH hɛɘɉɈ $ Lc :Lcې)ɮ۰ɺ'Ɲ Lc  : X i % $ɛ$pn + {pnI:L ؅30,3L]8^933LAAJL ةޘг uv $ 8LЌ Le p>?@`>?@`BQ8`e 矮K ⟩ 䟢 춼LK  z KK`JJJJ8`轚K)` 7#hhL"Jپھ pHJh` {!hgt}~p  `~t}p8n~ni}tpi~~tsLo8pinii>j?k̈́>~|p `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`8gS ?@$I0 U)VJ *T)`l8`a HbIJhjǾȾɾ p٭b=a 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}ԩ p`SW)0پȾھɾ p p 3LjÍ L I 9 1׾ؾ  p p 3 H h(`׾ؾ`  ߭׾t8퍼mؾŰ펼t폼 L8` ˌھپLp k V)@W0!XY aX6Y7` a YX`X:Y;τ<:: <`:8`'OV)Jj *f a  ԟ  ԟ ⟭ + +:ji  ԟɃ B , '********************************N * *t* SUPER.SHOPPER ** BY STEVEN AND MARSHA ** M E U S E ** COPYRIGHT (C) 1985 * * BY MICROSPARC, INC.L5LLL"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(8mȾȾmɾɾʾiʾ` Lpl8l:/[ҝƬƀ#(ZZV4D\-:% >M CgIY2m*b6>BSAVERIFYBLOADELETECATALOGOPENWRITEXECREATEFRES p` y־ǾҾ,G 8`׾ؾ  p жۥs׾tؾE` y ( о(־Ǿ,G 8`_`W)H־Jjjjh p̭ L;Ǿ ..8 ۭ }ȾȾI>Ie 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츾$- *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$)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 shopp:1P(P20)20:B3Ĺ33,19=^868:33,40:P%(C,P)ĺ"*";QhB2: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 li*********************** Super Shopper by Steven Meuse ** Copyright 1985 by MicroSPARC, Inc. ****************************************":: "41/241 *'S@23:1:958:J6)"press to continue....";:A$:TB3(NP21)720(P20):Be whole list!"::FC0CTG1CLM:PC$:ACCLM1:ACTGACTG1sP040:NP0:BCA:(P$(B,P))Ă:1540HT,(BC)16:P$(B,P);:NP1:NPĺPN$::PFF$:DF$"PR#0":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$: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 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,$(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)st? (Y/N/esc) ";:80:1600:A$"Y"B1:<A$"N"B0:Q(A$)27ġ:510[1670i(B$)ıA$"":B1(B$):((B$,B,1))31A$A$(B$,B,1):B$A$:  "Screen product list displayD3:NP40:(P$(C,21))D105 1:35,22::35,24:(39(P$(C,0)))2::P$(C,0):S 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 product (ded only after an existing category is deleted."F.@ 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:P$(g category name"2- P$(C,0)B$:P0:A$"K"2820S- P140:(P$(C,P))Ă:2820n- P$(C,P)"":P%(C,P)O:x- 2430~- - "add a category-" -, CTG4028902.6 :1590:9:(7)"You have reached the 40-category limit. A new category may be ad, (B$)152700U, 70:"Change "P$(C,0)" to "B$"?";:24:13:"9confirm Y/N)";j, 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)"ChanginA$"A"3000+P A$"Q"3140(+Z 2630.+d L+n " Change a category nameR+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 PERIODSP040:P$(C,P)P$(C1,P):P%(C,P)P%(C1,P)::k*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:26100*( CCCTG2: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( )11VCVC1:VC0HC2VCCTG20:HC22B'8 VC0HC22VC20:HC2_'B (A$)27AN$"W"ġ:350u'L (A$)27ġ:2430'V 2300'` 'j "Category add, change & delete menu't '~ :1590,( :9)"======================":9)"! CATEGORY UTILITIES !":1:B25:C20CTG1:B:P$(C,0)::HC0HC2B&VC0VC1:HC2V&VC:HC:"==>";v& 35:23:80:VC:HC:" ";& (A$)13CVC1((HC2)20):& (A$)21(A$)10VCVC1:VC21HC2VC1:HC22&$ HC22VC19CTGVC1:HC2''. (A$)8(A$)%VC:9:"==>";2%35:23:80:VC:9:" ";Q%(A$)21(A$)10VCVC1o%(A$)8(A$)11VCVC1%VC0VCCTG%VCCTG1VC1%(A$)13CVC1:%(A$)27AN$"W"ġ:350%(A$)27ġ:2430%2180.&C019:B:P$(C,0)::510 $4:$> "Choose a category ( using moving arrow)@$Ha$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):P2:HP1B#(A$)8(A$)11VPVP1:VP1HP1HP20:VPVP19]#VP1HP20VP21:HP1q# (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$*"(A$)13PVP1:K"(A$)27PVP1:2080: "save redundant codeU"1910d"HP0HP1w"VP:HP:"->";"1:1:80:VP:HP:" ""(A$)13PVP1((HP1)20):"(A$)21(A$)10VPVP1:VP22HP1VP2:HP20 #VP18NPHP20Vusing moving arrow)!N%!X1770i!b24:"Use arrow keys to select-(RET) to enter";:VP2VP2:HP0y!lNP201980!vVP:7:"--->";!1:1:80:VP:7:" ";!(A$)21(A$)10VPVP1:VPNP2VP2"(A$)8(A$)11VPVP1:VP1VPNP1C,P)"":P%(C,P)0::CTGCTG1:2430+/h j/r " This is where we go the very first time SHOPPER is runp/| / 216,0::P(222):P5P7ĺ"ERROR #"P" IN LINE #"(218)(219)256:/ P0:C0:A0:HT36:F$"SHOPPER.VARS":D$(4)E0 :1590:::"You may:"::8)"E)nter categories"::8)"Q)uit":1:1:80:A$"Q"3140W0 A$"E"2970~0 P$(39,40),P%(39,40),PR%(39):CTG00 :1590::11)"=================":11)"! SHOPPER SETUP !"::11)"=================":::: 17/17 = 'Sr1 22)"..........."":16368,0: 9 SPACES 7|KK(16384):KK128380LKK224KKKK32`OP$"LOAD"41016368,0:KKKK192:KK1KK1LPP170480OP$"LOAD"450520:60IIID(P1KK):II428II397ĢLP2:DI$"":170II395B$"B" 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$;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 KK224KKKKSUVWXZ <: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:DN1heck the disc drive,"::"and try to quit Shopper again.":23:1610:350Y3D 216,0::LP$(CTG,0):70:P$(CTG,0)B$:P%(CTG,0)1:CTGCTG1:CTG40ĺD$"CREATE"F$",TVAR":250_2 3000e2 2 "EXITS FROM PROGRAM2 2 31202& 1::D$"UNLOCK"F$:D$"STORE"F$:D$"LOCK"F$:314020 216,0:P(222):P6P92950J3: :10:(7)" Please c...."::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:3000U2 B$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(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":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"   : 111 %%%%TPPPLEEERHELS= "0.8BCD _1608 d:" ROUND BIN CAPACITY"a n" ENTER DIAMETER OF BIN IN FEET":E x:"ENTER DEPTH IN FEET":F "BUSHELS="0.6283EEF : "DO YOU WANT TO DO ANOTHER":B$ B$"Y"10 :10:20:"GOODBYE"  &" CRIB AND BIN CAPACITY",2(P2"IS BIN ROUND (Y or N)?"d<A$:A$"Y"100F::"RECTANGULAR BIN CAPACITY"H" ENTER LENGTH IN FEET"JBK"ENTER WIDTH IN FEET":CN:"ENTER AVERAGE DEPTH IN FEET":DP Z"BUS:140 nC$"^"RAB:140L x"SORRY, THAT OPERATOR DOES NOT COMPUTE."T 10o A;" ";C$;" ";B;"=";R; "MORE? (Y/N) "; "";R$ R$"Y"ī10 R$"N"ī200 140  COMPUAPPLE PROGRAM7 "*********************"R"CALULATOR READY: ";k"ENTER + - * / ^ ";s(C$2" ENTER 2 NUMBERS, SEPERATED BY A COMMA:"<A,BFC$"+"RAB:140PC$"-"RAB:140ZC$"*"RAB:140 dC$"/"RAB520:OP$"DELETE":520:FL0:60OXFL1(Q206Q238Q141Q155)FL0:170b(222)0Ģ23:1:"ERR NUMBER=";(222);"IN LINE";(218)(219)256:(4);"PREFIX/":16368,0:Ѐ )(npq MAY EITHER BE REDUCED":V 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)"(P :D$(4)P2FU"THIS PROGRAM WILL ALLOW THE USER":Z" TO MAKE A ";::"HARD COPY ";::"OF A DISKETTE":_" CATALOG IN EITHER OF TWO WAYS. A NAME":d"MAY ALSO BE ASSIGNED TO THE CATALOG":g"LIST.": i" THE PRINT-OUTPER.VARS-Q 80NOFF BRANDOFF BRANDQSHOP-Q 80NOFF BRANDOFF BRANDQSHOPPER.VARS-Q 80NOFF BRANDOFF BRANDQSHOPPER.VARS-Q 80NOFF BRANDOFF BRANDQSHOPPER.VARS-Q 80NOFF BRANDOFF BRANDQSHOPPER.VARS-Q 80NOFF BRANDOFF BRANDQSHOPPER.VARS-Q 80NOFF BRANDOFF BRANDQSHOPWAFFLESICE CREAMICEFROZEN PIESFRENCH FRIESOFF BRANDFISH STICKSJERGENSDISKDOVECHICKEN STRIPSDAWNCANDY BARSCARESSBREAD DOUGHBEVERAGESBREAD+MISCSOAPSPRODUCEFRUITSCANNED GOODSSAUCESSPREADSCEREALSDAIRYFROZENQ-W(RESS ANY KEY TO CONTINUE.)"% }A$+ 9 5:18::K "MENU":::o 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,402,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--- rtuvwxyz{|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 **************************: IVE":' b" THIS CATALOG ? ";N$- l3 vK : PRINTER REMINDERR 6 " BE SURE THE PRINTER IS ON AND PAPER IS": "ADJUSTED." 22 8)"PRESS ";::"P";::" TO BEGIN PRINTING." P$ P$"P"730 :  7,234:44598,234+ (27)"S"(1):(15)9 (27)"1"A N$S D$;"CATALOG"Y g (27)"@"x X112::X D$;"PR#0"  : ENDING MODULE  6:6)" THANKS FOR USING ";::"MINI-CATALOG": & X6:"WHAT DO YOU WISH TO G0,500 128) ,:NORMAL MODE MODULE/ .= 1600:700L 6D$;"PR#1"q ;44596,234:44597,234:44598,234y @N$ JD$;"CATALOG" OX112::X TD$;"PR#0" ^  : MINI MODE MODULE  600:700 D$;"PR#1" 44596,234:4459 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 HIGHLIGHTS---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",~ ";(123)(124256:S d216,0:768,0:H(3):H(0)1:H(1)16:H(2)256:H(3)4096 n6:"ARE YOU ENTERING A HEXADECIMAL":"FILE?";:A$:16368,0:A$ xA$"N"A$(110)İ370:34218,128:210 A$"Y"A$(121)1100 768,1:10:958:"WHAT IS THE  CHECKIT> COPYRIGHT 1988 BY MICROSPARC, INC.D(J2<:::"CHECKIT":"COPYRIGHT 1988 BY MICROSPARC, INC."F90PI0377:ML:CSCSML:::CS48127100 Z:"ERROR IN DATA STATEMENTS!":"PROBABLY LOCATED ON OR BEFORE LINE:140 nC$"^"RAB:140L x"SORRY, THAT OPERATOR DOES NOT COMPUTE."T 10q A;" ";C$;" ";B;" = ";R; " MORE? (Y/N) "; "";R$ R$"Y"ī10 R$"N"ī200 140  COMPUAPPLE PROGRAM7 "*********************"R"CALULATOR READY: ";k"ENTER + - * / ^ ";s(C$2" ENTER 2 NUMBERS, SEPERATED BY A COMMA:"<A,BFC$"+"RAB:140PC$"-"RAB:140ZC$"*"RAB:140 dC$"/"RAB98,157,98,154,99,157,99,1544---TEXT DATA--- 5,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,4,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,"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,5 LENGTH OF THE FILE":"(IN HEX)";:H$:290:AH A736A29439424ĺ:"INVALID ADDRESS. PLEASE DOUBLE-CHECK":"AND RE-ENTER":350:140 13:958:"WHAT IS THE LENGTH OF THE FILE ":"(IN HEX)";:H$:290:BH, B1B32000THE"INVALID LENGTH. CHECK I"((X.5)),9):X999999X$(X$,3)","(X$,4,3)","(X$,3):115l nX999X$(X$,6)","(X$,3):115z pX$" "X$ sX$(" "X$,11): D$(4):D$"PR#3" A(X)AA(1)100(AA(4)100XAA(9)(AA(6)AA(8))AA(10))& B(X)AA(1)100(JJ100PIK-N-ROLLDProDOS version 3.2 for the Apple IIc,IIe,IIgsCopyright (C) Wisconsin Microware, Inc 1988. All rights reserved  160X$((X100.5)):X$(" 00",8(X$))X$:X$(X$,(X$)2)"."(X$,2):E dX$(" 2,96,208,210,201,206,212e 16,41,44,73,79,92,97,106,123,128,135,180,203,246,249,261,316,321,326 201,197,208,23,200,177,6,201,205,208,16 169,210,32,79,134,169,197,32,79,134,169,205,32,79,134,96,164,226,177,6,24,144,135,162,8,10 38,8,38,9,144,14,72,165,8,73,33,133,8,165,9,73,16,133,9,104,202,208,232,96,169,0 133,8,133,9,133,251,133,250,26,201,191,208,19,132,226,160,0,185,117,134,32,79,134,200,192,5,144,245,164,226,176,3,32 79,134,200,196,224,144,188,96,166,224,104,104,169,141,96,132,226,136,177,6,201,160,240,249,201,186) 240,8,201,176,144,36,201,186,176,32,164,226,200,177,6,,169,152,96,0,0,0,0,0,20,15,20,1,12,58,32,32,106,134,133 6,169,2,133,7,160,0,177,6,201,176,144,73,201,186,176,69,177,6,44,170,133,16,53,201,210 208,4,166,251,240,61,201,162,208,8,72,169,1,69,251,133,251,104,201,160,208,6,166,251,208,25\ 2473,166,133,133,6,160,0,177,6 32,79,134,230,6,208,2,230,7,230,251,208,2,230,252,165,251,205,168,133,165,252,237,169,133,144 227,162,0,189,171,133,32,237,253,232,224,7,144,245,44,16,192,32,128,254,164,8,166,9,32,64: 249,32,251,218,32,132,254 229,9,32,218,253,32,132,254,166,224,169,141,96,32,106,134,44,170,133,16,43,169,1,133,6,169 8,133,7,160,0,177,6,133,251,200,177,6,133,252,240,63,200,177,6,32,79,134,200,177,6,32 79,134,165,251,133,6,165,252,133,7,208,221,173,167,133,133,7,1I018:ML:CML,(CML)111:'Tb^21:"PRESS RETURN TO CONTIMUE";:CH$:CH$:16368,0:vh $8500 VERSIONrI0377:ML:34048I,ML:I| 216,32,27,253,201,154,240,31,201,141,208,26,134,224,32,178,133,32,251,218,32,128,254,56,165,8aHECKIT INSTALLED"O (768)1ĺ:"ENTER THE MONITOR BY TYPING":"CALL -151"U [  "H0:L(H$):L1L4300:I1L:D((H$,I,1)):HHH(LI)(D48(D58D47)55(D64D71)): , 6 $1600 VERSION @I0377:ML:5632I,ML:I:C5632!J34214,A256(34215):34217,(B256):34216,B256(34217):34218,0:210: BELOW $1800 SOMEWHER (48896)76Ĺ56,0:57,133:1002:250 (4);"IN#A$8500":250 (48896)76Ĺ56,0:57,22:1002:250 (4)"IN#A$1600":250 :::34,1:2:"CT AGAIN!!":"AND ENTER IT AGAIN":350:160b :::34,1:2:"INSTALLING CHECKIT WAIT ASSHOLE" A6144İ320:5799,(A256):5798,A256(5799):5801,(B256):5800,B256(5801):5802,0:230: ABOVE$1800 SOMEWHEREa A6144İ370:34215,(A256):IIAA(3)AA(9)(AA(6)AA(8))AA(10))q T$"The rate must be between 0.00 and 99.99, type any key to continue" B$"The rate must be between 0 and 9,999,999, type any key to continue" C$"The rate must be between 0.00 and 999.99, type any key to co" ";5LP6628:9((AA(5)LP)));AA(5)LP;@?LPF@XD"ASCS price"hN" ($/bu.)"XD1AA(3).42:C1AA(5)6YD10D1D1.06:1881ZC10C1C12:1882bSD1D1.0614.0001.06qX$((S100.5)):X$(" 00",5(X$))X";25);:XP5:100:X$`r"Net profit over forfeit ($) ";25);:XP5(AA(1)AA(2)):100:X$qPT$"YES"ıPT1:70016)"Pik-N-Roll Net Profit Over Forfeiture Matrix 1"&024)"Cost of Certificate (%)"45);:((AA(5)))4 ";25);:XP2:100:X$`J"Profit from crop sale ($) ";25);:XAA(1)AA(4):100:X$T"Flat storage savings ($) ";25);:XP3:100:X$^"Add. storage savings/refund ($)";25);:XP4AA(1):100:X$h"Profit from Pik-N-Roll ($) ANALYSIS":3P1(AA(3)AA(5))AA(1)100KP2(AA(2)AA(1))P1dP3(AA(9)100)AA(1)P4(AA(6)AA(8))AA(10)100"P5P2P3P4AA(1)AA(1)AA(4)6"Cost of redemption ($) ";25);:XP1:100:X$@"Profit from redemption ($)79)" "I6460,15:79)" "715:1k"Do you want to save this (Y or N)? ";:O$:O$O$"Y"O$"y"O$"N"O$"n"1500O$"Y"O$"y"ĺD$"OPENPIKDATA":D$"WRITEPIKDATA":I110:AA(I)::D$"CLOSE" 23)"PIK-N-ROLL08XAA(I):20/=A$(I);45(A$(I)));X$6>I??347VxAA(6)AA(7)1500g}15:79)" "r15:1"The months to forfeiture must be greater than the paid storage months":"Type any key to continue";X$:X$15:79)" " 16:AA(5)0.00AA(5)999.991070M AA(I)0.00AA(I)99.99J5J11070X17:1fI1ĺB$;tI5ĺC$;I1I5ĺT$;X$:X$17:79)" "&I3:79)" ")1014.I1215)"Pik-N-Roll Input Data"3:6I11$"NO"::3%F15)"Pik-N-Roll Input Data"N:ZI110fI3:1A$(I);45(A$(I)));:"";AA$:(AA$)0(AA$"0"AA$"0.0"AA$"0.00")1014AA(I)(AA$)I1AA(1)0.00AA(1)99999991070 I50&A$(I);45(A$(I)));X$(0400_ PRINTER ROUTINE:"Do you want a printout of this? (Y or N)?";AN$:AN$AN$"N"AN$"n"ıAN$"Y"AN$"y"706PT$"YES":1PT1515,1820,2040PTI1AA(1)0.00AA(1)9999999520MI5AA(5)0.00AA(5)999.99520yAA(I)0.00AA(I)99.99I5I152017:1I1ĺB$;I5ĺC$;I1I5ĺT$;X$:X$17:79)" "460I3:79)"":I3:1XAA(I):279)"":15:1:"Enter line number (type 0 to stop): ";X$:((X$)0X$"0")((X$))(X$)400zI(X$):I0I10400I0140015:79)" "I3:40:34);:40"";AA$:(AA$)0(AA$"0"AA$"0.0"AA$"0.00")460AA(I)(AA$)&5(A$(I)));X$:q "15:79)"":15:1:"Change EVERYONE of the above (Y or N)? ";:X$:X$:X$"Y"X$"y"1000 @X$"N"X$"n"290 [15:79)"":15:1:"Any other changes (Y or N)? ";:X$:X$:X$"N"X$"n"1400 rX$"Y"X$"y"347`15: Flat fee storage months", "9. Flat fee storage chg. (cents/bu.)", "10. Added storage (cents/bu./mo.)" X110:A$(X)::D$"OPENPIKDATA":D$"READPIKDATA":X110:AA(X)::D$"CLOSE" :15)"Pik-N-Roll Input Data":::I110:XAA(I):20:A$(I);4ntinue" AA(10),A$(10) "1. Number of bushels under loan", "2. County loan rate ($/bu.)", "3. ASCS day price ($/bu.)","4. Crop sell price ($/bu.)", "5. Cost of certificates (%)"j "6. Months to forfeiture", "7. Paid storage months", "8.$:(X$,(X$)2)"."(X$,2);2vRC1C1262b(" "((A(RS).500001)),9);iRovSPT$"YES"ıPT2:70016)"Pik-N-Roll Net Profit Over Forfeiture Matrix 2" 24)"Cost of Certificate (%)"5);:((AA(5)))4ĺ" ";,LP662N9((AA(5)LP)));AA(5)LP;VLP\n "Crop price"}*" ($/bu.)4D2AA(4).49:C2AA(5)65D20D2D2.07:21016C20C2C22:2102>SD2D2.0714.0001.075RX$((S100.5)):XLE3<TEXTFILEOPPERESTARTUPHOPPEREz SUPER.SHOPPERE BASIC.SYSTEM.EPRODOSR.VARS.E< SHOPPER.VARS.E$sBOOT6TALLEOGREsHBOOT5TALLEOGRERBINDATALLEOGRERzPIKDATALLEOGRERPIKNROLLLEOGRERCHECKITPLEOGRER< COMPUAPPLEOGRE3 MAKE.SCENEOGRE3z MINI.CATALOGRE2 BIN.CAPACITYRE3 COMPUALPPLEEREEF :4 "DO YOU WANT TO DO ANOTHER":B$C B$"Y"45\ :10:20:"GOODBYE"b "THANKS FOR USING BIN CAP." * N:"ENTER AVERAGE DEPTH IN FEET":D= P:A15000:AW Z"BUSHELS= "0.8BCD` _160 d:10:"ROUND BIN CAPACITY" n" ENTER DIAMETER OF BIN IN FEET":E x:"ENTER DEPTH IN FEET":F "THINKING!!!!":A15000:A: "BUSHELS="0.6283 &" CRIB AND BIN CAPACITY",D#" BY ROBERT KLEIN"J$Z%" 1988"`(j-::2"IS BIN ROUND (Y or N)?"<A$:A$"Y"100F::"RECTANGULAR BIN CAPACITY"H" ENTER LENGTH IN FEET"JB K"ENTER WIDTH IN FEET":C0 2.84 2.43 2.63 100 0 0 0 .25 .06 3 3.26 3 3 Y"G2$"y"245*G2$"N"G2$"n"9999523:1?2190N':D$"BYE"$(" 00",5(X$))X$:(X$,(X$)2)"."(X$,2);H\RC2C2262VoIIR:JJSp(" "((B(0).500001)),9);zRSPT$"YES"ıPT3:700:23:79)"":231:"Do you want to continue (Y or N)? ";:G2$G2$"LV 0($ p,&"K A `     @ $(,048<@DHLPTX\`dh 0ުlptx|  APPLEDISK5.25A  ot K P A Y q  7 < A F `flrx~`APPLEDISK5.25A  8APPLEDISK5.25A  |APPLEDISK5.25A  APPLEDISK5.25A  5A  (APPLEDISK5.25A  @lAPPLEDISK5.25A  APPLEDISK5.25A  0  APPLEDISK5.25A  `\APPLEDISK5.25A  APPLEDISK5.25A  PAPPLEDISK5.2s ,@ DISK20 L 0APPLEDISK5.25A  pAPPLEDISK5.25A DRIVERSv\0' 'APPLEDISK5.25 s  FINDER.DATAɨ(\3\3*2HH  H` hhk 8k.  d\RI- J .  ,0R"#" ` (8`ZKVk` `@   .8`~ m H/ h( ` x8     `  `H@ <h(`H@ Dh( I=`` `@   .8`~ m "H/   +8 h( `8     ` $9@CTZ  &)25 !).3 /S_v#(2EV[`ej :=IahQ(l,lp88|<|RW R  y%  "$&(*,.02DFHJLNPRTVXZ\^!9?D`el2;>IL\jow~ 3RZ   g{ @FPSyҙЈ48  Hh B~445'8`  ~ҹ0 `y6'8`0H(x yҦ y8`  $LLP\\`(s s sV r꩖݌$ r݌ s s s s s`Hh݌`x݌Hh  ݌      EEHJ2h    `HJ2݌h Hh݌`64 } +? '640H(xyy0 ~ |#H ;h ` ]I꽌ɪVɭ3ɖ133ɖ"3ɖ ɪ`8` r<݌HhHh t )HV)hH)hHIhդRIQ)х JQ)K UfȌ]`Ҧ   `` `8`׍ Pi ; 524 ;Hh    VYѪѦY)Ѣ`RAJȰY)Ѣ`Y)Ѣ`ȐҰ HhHhѢ`Hh `Hh`K iȍ458V)*8V 8T8Wwx 7I꽌ɪ꽌ɭ蠪ЙVE8`]оV]H)]оV]љ)]оT]љ)] 8hU` i`8L҅Hh ڻV  ڻ_ {е h)*`8` Hh݌/`H:jjeJJJJ(h`{{V꽌ɪɖx|ҽ*{ҽ-{ҙ}M|҈ 꽌ɪ`8`K az  0 sd<* oLJ @yҦ y'z8hH(@yhhH h ;ɭ~ɥ J 8 ` +*L&  V ihҭҟi d Nh`hT{ҭhҍ8?IhҐih{Ґ{ 8L"p)(e eee>)8 hh )`0-8``0  J (`z  荄ҥh:j轊( (   ;(! h"8`&>  ) B )ps0 tru JJJJ v)w z0r0"p"p"PH + 0 : 0+h"P0r0hy"p   `` !` H``~Lm `" 8`"8`" 8`"8`" 8`@ s`````0R"`)8` hH h  hh  ``!` H`" 8`@  ک D ȷ  *  @  I)"i" 8`Q" 8`9" 8`$ i1qpH APPLEDISK5.25A'gfHDRIVERSLLEOGRA