LnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!)SOS KRNLb.D1/SOS.INTERPŠ̠Š.D1/SOS.DRIVERР頞 0 ) (lH'&3&'&#e'#%e'%'&"$"$#%'#%h`$eNEWPROG.DATgNEWPROG.NDXPWRCODE DddSTANDARDddAPPLEddBYTEddROMANddREQUEST.INV ddTEST.NDX RENUMBER QddREADCRT oddREADCRT.INVddDOWNLOAD.INVddDOWNLOAD ddDOWNLOAD.DOC `ddFONTDEMO <d-READ.ME.FIRSTx44VOLUMES.INVddTEST.DATdQECODE.XXX (MddRENUMBER.INVddRENUMBER.DOC ddIII.APL.04u' *SOS.KERNEL ,V49 !a*SOS.DRIVER 4.Z4 !d*SOS.INTERP ^4ke49 ! HELLO dd"QE 8ld&QECODE >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@L%e,ȥ,*,- y,,,-,,,ȱ,,- yL+,ȑ,` 2"p-,-L(Ġ %>,i-i8, ȱ,%,W,pp ڠ %p`l  " ) i   !"#$%&'()*+,-./0120 `8`HiHiH ihhȱh`86)IH)heuQɸ` ` W` ] %饚0` W` ߰4`)|E8LLLRLLLLL*LLLLLhh`LLL`SOS 1.3 01-NOV-82(C) 1980, 1982 BY APPLE COMPUTER INC. ) `G`î** }*`o^`on 8 JJAj@` *?($`ΠņɠŠ堠РѠ͠஠әƆH v?c,,,,h߈ߢ~))`3PLLP*%(i&`Ѕ񩏍E H pph`XǠĠӠ!((ͽϠРРSOS NTRPSOS DRVR(.D1(YYYYMMDDWHHMMSSMMM̱忠ΠͽŠ堠Р͠Ю̠Ɔx߭J ʈc(()o/ e/''ʈ((''()(1i / e/''ʈ((''((''((''' ('`ŠDAY, DD-MON-YY HH:MMSUNMONTUEWEDTHUFRISATJANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDECԠŠР@L&I/O ERRORINTERPRETER FILE NOT FOUNDINVALID INTERPRETER FILEINCOMPATIBLE INTERPRETERDRIVER FILE NOT FOUNDINVALID DRIVER FILEDRIVER FILE TOO LARGEROM ERROR: PLEASE NOTIFY YOUR DEALERTOO MANY DEVICESTOO MANY BLOCK DEVICESEMPTY DRIVER FILE '(i%%%h}%%`8 ȥ!8 !)"qȥ#q#e$ȱe%L)%`@(((( % %`((((࠰$(ɠH(@(h((((@(`%z %% %~(A{(L%`.8(.Je.&ʈ.s(1 6$P8"ȥ#L1$8"ȥ#(ϸ`"##L]$"qȥ#q0,$p)@"q"ȩq"8`*$% $% 8% $L$* $8%8 $`8 &'$% 8&$'% 8$%%`H   q ȥ q Hi hi 1  % H H ȱ h h % $$ 0 e e H i hi âz %` 1 8`    # &ȱ ' # i" i# # #`8 ȥ H h `8 6$P`8"#%#%"$w"$#%"`荚ٍ荺 荚`荺``` D ( )  * ) 4* * h* ))` L% q ȥ q Hi hi  i" i# #% $ȱ %ȱ &ȱ '`<!((g %(r(z(q( %y(i(0z %"#$ %&' $"#$%&'   `%$%ɠ%* " ~#C #p $ %*0"#)#)i $"% * %*  L! {" j% %ƌ(X#"$% "$ #%%& '   ` {" & ɠ% %)  !( (" %(r(z(q( %y(a(0: %   "$%&e$'e% R % <`` LLɠ8`ΛLL渠`ǽi `< Ȱ+<#5 ې'` ɐ /ݐE`W8`R` 5&i ` Ȱ 0i `<8> ȐT eİF cȰB)Hh5 ˭)*ȑƑȥǑ'(ȑ`L)ɭ)Ѷ*e`M) `ۅH)Ѱ%}ʈh Qܐ'``hi ` p6۽ʹZ5 HȐ/i i `гW8`0( ɐ Ȱ ʮ6E`5 խ ɐ ޢ ȰLȍ۱Ǎ X̰% & !J8` *LĢ `8 iۥƍۥǍ`ۅ %  6 )Ѱ Ѱ` 𝭧e ǐ bǰL*ۈ5ȱ۠ƍȱǍ X̐ H h1  /ݐE`ۈۅ ۅ 8ƭ X̐`LLŠǠ  ݭv̅w̅ ðzv̍ŭw̍ŭƭ ­ōō T̰]ŅƮņ X̠8iȱiiȱi ṰŅǭŅ XLōۭ۩ۅ ȱ8D`F`8eYƍťǍŠ)͠ Wٍۭۅ5ۅƭۅ X̰ ìۈۑ T̰ۅƭۅ X̰ۙ%ۍ" T`K8`)` İ ۱ۈ` ưW/ۈęۈЍ۩@` 8 MƐ  5 Q8`LŅ ۅ ۩ۍۅ Lɰ ʰۅۄÍÍۙ'Ù ۍ*ۨ  Ѝ۹ۙ8v- ðJ ¥ ð, ðLO ʰƥLT`'  mې浰``8 8 nʰ0 ̰+泱Ƴ m° x̰ ̐8` m° x̰8 ۢ8 ˰y ` ¥ nʰ泱Ƴ T̰#泪 Ѳ *Ƴ ` L:Ϡ`泑Ƴ` LaĥH8`JȘ I8`  S`ۈۥۥ۩Íۭۍۭۍ հL¢H8`Jj Ȅ ۍۆeۅiۅ Lɰ ʰWۅۄ ¦J> ɩE` eĐL Ȑ 15WL QL5WW{5 ې'`,55 ې'` ݠ B1 ȩȑ Lɦ8`5  @ R㥶i ` İG8`F`X8``éۅĩ >` T֩xxMH]@ Kۅ5H ɐE$ eİ Ȱ h`h`8`W h8`hR`hLҿ i x +ۅ5ۅ6 ǰ `E8<W`­ `0XLۅ5` ռ``ߤeI`IiţO`Ȯʆ/ )󘑡`()0zq 滅ѺY Ueۅ5Ѻ Ѻ  Qܐ'`i ҩ *C8/y.i/ ȑ  © $ E7<3W`ȽLֽȄ @8`R ) [)_[AͰ")[)_[A:0/.ЩȑΘ8e * ȩ`Loü 7)?۽۩ W٠Յ<ōōř ռV7 uM78 V榠=ü#)@5 ɐ /ݐE ) .) @L `lqhٯ޿=ϓTXIֲ̛̐~ؠIJK,-NOPQ0vt Ѷ"` ɰ Ȑ`E`Ɔ X̐8`>>5Ѷ Qܩ<`>`\ʊJJJJ ۍ۩  ˰Fȱ X̰6 0 Lɠ 0ۑۑ8ȱ`H8` ɹ $  8JJJJ8 ` ۪` H hQ)fʅ F jF jF jF &!  eװ*  ̰F湥 ƹ`Z8`@  ʰ泭ۑƳ ʐ` ʐ` ˰ ƹ Wː`ۘ . . .۪8*Jۦȱ ˦,+* ʈJj =ؠ yiȩ`y4泱ƳHhz ʠiȱizLA`L;ؠ"  `1` Đ7@8V۩ Lɠ۪8ۊ۠X)JJJƄ X Ġȱ۠ ȍ۱۠ ۭ) ۍ ð*)#  O̰``)(`N8` ) xհۈ ̰آ*գ  Ͱ ݢգ LvL{ؠ;i ڥ(8` ְ( ȱ5 HȦ)`Lxץ: ש ְ⥺i ꥻ(8`Lx Lxש u )۠0)p խ.8`)@ ϰ) ϰۈۅƭۅǭۅ5 X̰ *ƭ۬͵̶L  ΐ` Wհ> H۪ȱHۑhƳh sϰq ` ʰiȱi `)5©éՅĩ5 }JJ+`.`8`ɂ )`@ ש ְO ֤FHۑۑh8`P) հ Wհҥ,J+j泭۪ƳۑȊ ) ~ fPL ͊.>.ʱ+,EP!.E.Lw+,,ӄ*- P*e (` հB հ5 Wհ0,J۪泭ۑƳ sϰ(` L Ͱ2 ~ P kҐ#L8 T 2ΠHHȑhhȑ`Ld )N8` xհ*eȱ+eȱ,i۠Ѻ۹ۑ񥤅- ť.Lcԥ.La Ͱ$)rJ Lɰ )# Ԑ) ͰU..++,,IJ/ ӥ-.?Цե,J+jѲ4Ƴǥ4聠 H hH kh8`8-ȥ.L 8*Ʊ )8 0*-`.G.ʱ*+,EP'.E.LұE0+,,ӄ*p-e  )LBѠٳ )8`i (` )N8`*eȱ+eȱ,i۠Ѻ*ȱ+L - ť.Lkҥ. ՅL ͐Ld ~ pа.J/)@߅4N8`) ))УJ8` ۑȭۑǠۑۑȭۑ($S8`O8` "` / 򑺠+* ͐H h8` ΰi `()  *ǵ յý5Ņ4gȩυɩč5 iψ }.8` iϙLIѠ ˢ L΢ ΰ LϠ ˢ ΰ1` Đ@ АP8`B8`ۑJJJJ -ѥ +jѲ84ƳJJ 2ΐ3泑ƳLTΩ潑ƽ`ƱƳ ΰ( {Π۵*+)e`8`)` J J + ΰ" 0 ΰ 🱼ѼL8`ǩ Ϡ` ϰ ƑȥǑ` Ѻе*`)ȥ+8ۍې  ,ѺLTΠ"LΠ5 խ ɐ /ݐE`C8`)@ ϰa)ۥ,8ېu+J,\ ȱLJΠ) ϰ'#,J(] { ΰ ƑȥǑ.8` { ΰ,JѲ ƳL΅ƱƳ ΰҥ,J0`#$"0#`!qȱi 5H5Ƶ ǽ jh5`L2̩ƍv̥Ǎw̩ÎL%ϠƄǥLj̩۬L~̠HHh` ̐`*ѺG0?M`)J"u-- M8`۬` # ː`  = O̰)= I`JJJJѶQi Lˢ  0 ̐ `"L˦ `H8`8$$"$= O̰=`$0`#$"0`$Jۑĥ` İo!)N8`WپX0 ĥLä X0 ĥLà !"#$ Đ2@H AڰCŰrP` 3ڰ(` AڰѶ? İG8`Fە1 ռ İ ЩP߭)@N8`1@8` Aڰ񈱴ۈ)ۅƭۅ X̰ 3ڰLÍLT̥L㼠  ʰ` İK ХP8` LɐH80)N  հ)@LO ˰)0 ̐` M ­۠泭ۑƳѲƱƳ X̰ Rڰä,] Xx,f (I0јIFjFjFji```x@gŽPy+wLwԠ͠ŠԹ.D1 .D2 .D3 .D`HJJJJh)y` (2ϩ 1ޠ== f ɰ`ޭ`5=(5= i Х(`=H hDC5 L3ܵ ɐ /ݐ 8`5 ˥JJJJ8 H h ` ܠ825H h5 ɐ /ݐ 8`Hh ܥ5 `ɥܥܥܥܥ5`܅܅܅܅܅5`( ݰ)Ѻ ݰL ݰ泱Ƴ ʰȭۮ ʰͩΪΩۦ eװqȭqLJ  ˰Aۅƭۅ X̰2%&N  ʰƭ X̐`Ӏ堁ӠҠՈ՘̠ƠŠӠ̠ɤӮȪŅ͠Ϊ ܆5 HȰ4 )ߍ) hjjjjۥ0CF = -$(L !LLL&L L-LJ٥eƦ ,L  # ` (L.L…ҥÅӭƅХDžѥL1LUȑ  i ߩLL )  札)  ҩLL` **éL0;` H ) abRcdTefVghXijSdfhj RR`^0U ` 0 ʠ0 8 `ůàՠԠàࠝӢӠ ȠDž̖͌͊頀ϐωŠŠӠҠȠγ`%!^0 ^)@`a R =` *^)ـooL]^)?i |TU QTU]qUoqTITsUsprRprqs]ToUXa` RL=Xa` R` *R`X`U T  *\AX[ @F\B9ɏ5\o*Ɂo)[[ @^`U V  *C?^0: ݳ ٢ ^)?i` *)@o `p^ XiH 1h `)X0 8~X 1`C X`)X0`C РǠ𠠐ŠŠӠҠȠƠŮƠҢâӠUAQY @?ZY 9ZYY^TU QZoȥɭ }`` ? }``  }`X0i 8~XX0H }h襯` ©Wéĭ }0W`F X0A */5BL. zF`LLz Lz`Y `Ơ堧 B k L( LO  %   }` ` ?!©UéĩU󥣍V }`` ?)) $p10LYeieLVȱ d0L`Hȱ hh` WɸSI I.ȩ8A 8ɸ4ɠ(H)h h8   `    i Ȣ d` $,)?P^ GL㢮 5L}P.)(Ơ L`ޠ LR  稱 I)0JJJJѤ  БĈ` H`)à`֩ нѽ>`]PU]]UPPX0 0 PPXPP  į󠠩ҙ̙ɠΠɊՐӠӢ̢ՠҠŠԠҚРĠ鱃ԠȠࠠLQ  * WHHH>%H H @`)h8`  HШБˆeЅА SYSTEM FAILURE = $hh8`hhhxآY_Z@tPRVT,p S JJJJ ) ʍL@ i0i6`îӉ͠堧ǥӥ``HhHy)(h`H` 0L?i `h` `` `x)( 8 `jjJJԥ)եӬɂ )Ӆ҅`  `H0Xh`Π'à̠ȈL` 8`څ  Lk%  Lk8Lu텚8嚅 L L Ld V ``  h` ک V `ۅץ  VLFx) ( :` H ) L  .P'pб0 &L:L5'8+8`0Fܢ` ř,Ř 0 8f)J DžŠƠŚ̮ÎȠ Ӡ̠Ӡ` LL#L/LL'Lgab `abBcd cdBrcadbho:ab.cݰdDcݰd8abҊ v+abcde0f`   cCȱcD C Ea  UV 1 ELUFVG FUUCVDեYCWZDXWXCUDV[ v`b0WXYZiUcȥVcWX eeYZ ggE` @SATR 'H&H` (# (9d7="Z` Jcd % ( i=` ( (,=) =x)) v(cd `# (,=ȅɅŐDL8H\0`(d  $,($  ,  .SILENTYPE A@  @ (C) 1980 Apple0,>!SHOLES 1!1!2@23#3#4$4$5%5%6^67&7&8*8*9(9(0)0)-_-=+=+\|QWERTYUI OP[{]}`~`~ASDFGHJ K L ;:;:'"'"ZXCVBNM ,<,<.>.>/?/?d0hp00000>" <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  8>> ""*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>>356789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\ 7  3  5  >>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< SOS DRVR"CHARSET )((8*,;((*,((+)((9/(p((>3  =9 :9 .(+( 8#8# %3(8 ((,+)(%.4$)?((,(103  )* i LiHh`PQPQ>P Q,PQ"PɀQ@PAQ`8`nɀ<)nopoLpp` 0h8蘠fȊf` ab 1abo)abaݰb L9c`` a N0Ioa0H ha`pLopna n`  3ɠ/8 L %iLɠ8逨J Hh $`b >_-%^%p_^^_ab"08^c_L8^c_L8^c_L8^c_ȑcc\] ab^_ ``aV R0M bba dda `Q8STRQ ST`c\ȱc]a  b 5DU e\^e]_ ^_ ^_LH8\^]_?Je\^e]_,78\^]_ ^ݰ_ ^_LH^_ $bL@A^_aoQ*@A RQL@A `T8`RLSJTKQHIQiHiIKNJ)M8逅OPOPHMIN'a MHNILHOIPaOHPI8JHFKIGFGaHMINNMʆSTL8HSITQQSTİ  ( ,=  HH`! (88" (èYÈ`,=0L  ZHYH`Lh~}k} =@ '` `è" (ÙY`L_Ùe`Ù `` q>  ,  C[JC` ?`> HH` s) L/ d` 6H5H` D^Ol>` ,b `  L LBa@LB a @LLD8?8`DE( 8DCDE` E0LXDE`DHEH hEG  "(+037:?BGKPSdilotwz   "&)-047CKNUX[^nqt $ * - $'048;@FIMPUY\`hknqw  %*.38AINQTY]bv{~ !&),14>ADHKPSW`eipuy|kx 2;@CNRWY[]_acegjq{'+579;=?BFKQTWZ]`ehknsvy| !H_ AAp*@"*QIYQIPIIAPIDIAAIHIA"AHBLI@QA@^ A6$# >1fN&`6> 9?6">A@.~A>0=3&@~|cpa ,&(*,.0246;@Cchb6>#B r>@62 >?>>>>2@~|cpC p*dI"*E!EAQIGIIA@ADIAAIHAAAHAHI@EA@?A> 6A}5 AA>III$QIHII""M]DIAAIHIAHEHIIAA   `0>H hJ)@$0P L S S L P  J L `J0 H/ H` d y ~ o t Z 8`8 8`8)8ILH > ' ` j 8` ) ` > ` C ` L ` S ` 348``  y y 8 ``  ) 9:`Y_Zx) ) =(`H6H 7I%h7680 9:LV 9:98;;<3ij X 3gh5 X 53e,<0m;f,<0m< X ij X h`)[_^Zh`3J 3L 3 ) 4J 4 ح4 ) 3 5 P L 4  J L5 P P ) ` C $ a0 '8` P a P a J  L a 0 P a0 P a0 P a0 L 8D9E:II  t8 t`A t\] L  67L) [,8누 ,[ Hh tF t,80,[ t` ^H ) `  t( K ,8`   ) J J LS HH `,80`B`#$+29Y` `` Z` [`  ) P LL ) 0)9  tL> )&0 ,8BkL  ,8Ii`a a tL> a0ca t, FDGE  L BLqk E: -D9%    C  tB@Bk L!8D9E:98F:G0 г氭LA t  BHb)bZI[J`K`IZJ[K`` H 0L06,8]\DEH j@ jhLXB j@0)HmHHh jܭ@L`@)[) L:[)L:[0 H j[ jh[ j X `[) >`b b)b`@d`e`BNk B L;<,b= ' 9 : #Rgnh*2U^wb b) b b)b``@?m` _ ^`\]LY@?m`  ٥`^_LY j` j@)` jLX@)c`@)a`@HEmDh0_^`0hDFL \DF]EGL) d>`H_E ^Db) b bh`  b)h` mDm`DE(EDmCDEhBkȌB`LBkB` '`)ݲ>`A@>A HH`>`<>EeFJKL.^CcHV=WwBbG? "2 7 > C F I L Q Z d k |   * - 0 3 < ? B E H K N o x    ! $ ) , 1 4 7 : ? B J O T [ ` e j m p {     ' + / 1 3 5 7 9 ; = ? D I M T Y ^ a f k q v { (Z.AUDIO C(C) 1980 by Apple Computer Inc.D vHuH` (# (jjA`,A$ (BC x) @( A`% (ALpx)`(BC `,A0Lp& (,  [L` H ' 8 Q ТΕLϦI X +)J* b I Q 8fxL@ X I)!) b `Lթ`~L8L)  =H 'HH N M))Mhh0 ϭPh0 йPL)`)L` L[`ɠɀ)ӮԮmwӥmxԐ mi` CHBH`z !`LL) @L) L8`,P<0 )ߍL( J,P,QJ,R,SJ,T,U,W`,t0L40 ( dȅɥŐ ĐL  xLJ}~~Șݶ~`}}~L7 L }ީ~` yjhz|ֆ׆ح)JfJf$PIJfש ʈ8 @ש wx   ʊJJJ莟mwwxix 0ޤՐڢ  d!  `ɖ" ( dÈ  ``,t0L4 d0Cս30. ' Q  @„ȄL5`ʝ`))ժuvЭ H ʊJ((((PPPP @``` @@@@`xp<@ @ :H9H` (# ( (l..PcJt`,t$ ( t`tL4`,t0L4 HH`! (`ɖ" (èÈ``,t0L4 HH`L """"""""33333333DDDDDDDDUUUUUUUUffffffffwwwwwwww(C) 1980 Apple Computer/Q_dos|~.GRAFIX b """"""""33333333DDDDDDDDUUUUUUUUffffffffwwwwwwww `,M0L }H|H`! (```,M0L HH`LwO NPQ #) "# ```FJ "%/27@EHRU\ain #03@IN`,M0L& (,M0L7 Đ`ʥ逅8nOQRnʐQxOeʍOH )  h(eʅ8ʅİLp )` ) `)DNNLSOPRnPO  % &$N) HH` (# (Zg] >M")"#)  #`,M$ ()LFG O M`% (MLOFG ``,A0Lp HH`L%&S```lBcguwy{}$(/4:?IXad#.PRINTER A"(C) 1980 by Apple Computer Inc.HA0Lp9 æĬSɀ֙TȌS 9S`YX`X-,ˆ̭U)? VW @ ?ddxtB˩Eʍ@Xx ,P Eʍ(itiBX`,A0Lp HH`! (`80 J8}L t L 0yʽz0 t L2  Lh `*f*&*)` ` h e`Hآ Hӭԭ h h`8٭028ٍڍ0Z$eٍeڍm٥m8٥08ٍڍ`8٥058ٍڍ0ԭeٍeڍ808٥8٥ 8مڅ `[,S`,XP"[YJ H) +̰ H) +ʭP h̰ʩ8,)΂ ̓`,T H h J `T!   J(P J J `,0L5,P0H0 ԥ f0)ĭX)X5 I`6 `7 I`8 I`9A)I@`{ ~I)_ J) ) )) ,0E EJ%O J(,@OEJLf ((((PPPPBTVSPLH   5Aʘ ;H:H` (# (I// 0`)I<0 ^)WL)6L= C H n ~ [`w!&)LQT^epty"5v{ .CONSOLE a (C) 1980 by Apple Computer Inc.O  ORat{   % 9 < C F U q u x     ' , 0 5 8 = F M U Z ] b i n s y ~   $ ) 1 8 E K N S V    . 5 8 A _  9 "&),/4:>BDFHJLNPRTVXZ\^`bdfhjlnprtvxz|~   #(/28AHPSWZehu ),14?  #&).369<ADGJMP^g $*-06=BKOR^agjmpu}*/28BWsvy~JJ`&&*`JJ` **&*&ߥ`J` ***`` ` Jjjߊ` ߊ`JfJfFߪ߆` `JfJfJfF`ߩ`$011̰JJJJ) ܭL FܪJJJJ)`'+9;=?ACEGINR\aejns~ϭ - f, ϥ- fϱϮEϑʩ`P u  CH` f(h`$0#$E$0p Q%Qʑ`pPIE1p$E$0p Q%Q̑`pPIE1pΦ#$01ʐ1`JJJJ)`%υߥ`1(ȦJhIiHمh8Iif٤Φݰ>Jj8ۅe݅eޅ $  h`!J8݅ eۅ$  h` ' Q $צ! LP WL?$7߭$PH8 iߩ ih ߍ v`i,ʐi,iPIIʥ)ifʦʆ̐pLe/Fϐ&Ȅ`'@τ`Fϐ@ E҅F8ئȢΆѽϽ`/(L τ`ϩE҅0Ȅ(fL  ('Άѽн`8Hٰ      0  ` ` @ ``8٨JJJ ) u˘ vͽʅ̆`8Hi #iϤҐ мφi`Jf`<,&ʰ,i8i#Hiihifʦʆi)h `  )`%)8`)    C   ʥ)Ģ    C Ģ L E% %) L 8`ۅ&ۥeepɀjff&ݥeepɀjffݠ %)  %)`%  0.) H ' Q Εm٭mڭ))njnjnjfjfjfj+mӥmԐ8L# Ӣ ,$0F t բӅLs  mӥmԐLX ҅x  (ĥŐL ,PHȊ©L,T2,X-P" a{)X LnX0$0%,V ҥ #L$0T,WOKT0P;ҥ,W #LA\   8҅¥Ӆé҅L,T ,U H,T p  He҅Ґhe…å逅h,QRLґȥӑ,P0 h0  z`,0L5 ҅ӥĥŰ+,0p J L Lz )"Ơ̏ HH` MH,7 : = @ F K N T W Z o w |     $ . 3 8 D o w z   , 7 > K ` e h      & ) 0 3 6 < A H M P S X \ _ b e j o t w z   $ ' ,   !$'*-27;@EILORUX[`chknsv~ "$&(*,.024HQW]ciq|           & + . 1 4 %=BEHKPX]aehorw{!$',/47:>ADGJMRUX\_behknsv|f(,:<>@BDFHJZbmt{!$,169>AILORU[aknqw~ $27?DGKPSX`{ (+2;X[^chm(I I $0;P̑бʑΈ,YJՐ̑ʈ0 Ցʭ̈`萠L" ֦ڱΑ0Б֤ P L׭,Y0 JfiΥiώJe΅Хiю_ * $p̑бʑΈ0 Б̱ΑʈeمΐeمА`萿 " `ʝA`0`Ցʭ̏Ȑ`\m_[ * P `L" 8,YJf׮_$P` * $P_/`'ʤ˅΄ϥ̤ͅЄ * $̑бʑΈ0Ƞ P L" $)טɀIim]ٮ_8ذ `$0"8,YJک@ׅפ؈۩MLp,Y08*Ȅ * ,YJ}΅н_\\b)ba)a b 04 )ߍY) J,P,QJ,R,S,T,V " `,[,Y JI`I`[,Y J)`)`\m_],YJ}ʅ̽(I I `[M,Y0JՐ̑ʈ`Jհȍ,P,`,$ ( $  x) (,`% (L5, `é ĩ `Y) jYZNZ~ZO,Y0'^^^]]8^][[```__8`ΝL  `,0 x) `(`hh% ( ΍ ύ逅Ñ`` " ( ĩÍĩϭ & &υΠÑΈΝ + ҰةeÅÐн,QȱÍR`)P`Ɂ" (`Hh) `ÙJ`ÙE`)S`)T`)U`)V`)W`)X`MY0ȱ͏ ȱ͐L" ()^ JJ* I `x|x|,,P-X + `T`U`V`W`X`[ȭ\` `YȭȭéL, HH`L5L  d     HEJ lO  zh) `(" ( (ÈE  z`) `(, LL͏[`͐\L" L L L [LM LM ,0L5 HH`! (56O[agm x `(" ((èDÈ`QȭR`P```JÈ`EÈ`S`Z)Z`,@`[, [L[`[͏[`,s[L\͐\L" ,XL \\L" ,CL [\L" [,)LL L YL Z)ߍZ`Z Z`aL bL )Z) ZL   x)Y [J h̰ [h,L`  ;Yo}"+9GPYo ` Xb[m][\m_\]_^`L ]m[]_m\_[\L [m]^\m_`L bXL Z Z/ 6 = N S X ` t (-1:C\aeqw~36qw\r.RS232 c "߄P(C) Apple Computer Inc. 1981L̠Ώ h:gpOn[n٧s]ds3issssssss0b>&dsjs|T}|s[]_`abcdefghijklmnopqrstuvwxyz{|}~ŭ᭭򭭪𭭠򠭠頭퀠Šӳ頠𠠀𠠠堠젭ӠΠSOS NTRPRHeLZĠР쁭堠堠ՠP򠭠έ魭 `mI "L)H (O_Z o O?ͩdfe̍ƅԥDžծF)D\ \ ' (   "m` 2H1H` (& ( ( (k^##D0C O^adgjorw|KPL APPLE /// SOS Profile Driver (C) Copyright 1981, Apple Computer Inc.R|.PROFILE&(C) APPLE COMPUTER INC. 1981A%*-LQ\r{~  #(-2=AJLNPXdmsy !+?MS[aeu "%*2NVYP TcL,UUTdLXXL"lp,W0k,bPZ,[0\[cLZnoln _L `L aXl ) ` ) `x,V0 ")(`JN{Y H`j) )g kkL)` kkLi ),b-cWLidWuoeQ,T0L@TEPd>gZ[M,h,oe$YHV ))ho kk0 qroqYLG,h,VLGj)`L5,jL",T`ȩ`,Q0L HH`LE9Uc,T U H,U0x])] olXYmnpqVWkj^)  ]] ^ ) (`\" ( Ù\ `ÍRȱÍS`l031e-Y x V(x) V()LU Hh,RSLCpȥȑ`,Q0LmEąĩEŅ Hm`l HL 8fol,Q0L KHJH`! (QRo}`\" (\ÈȌk`RȭS` l  o Q`,Q$ ()PJK . "]RSiTUWZ[ Q`% (QLl  )JK `,Q0LpEąĩEŅ|o,i0prH 8fofo7,T0*,V- HH` (# (#+ssssssssss\3!z~IssssssssssssIG%ӓ,ssևwn7}|tttUUZ{fzxxˆU膅[L<^ENFONEXINPUOUTPUDIREAWRITOPECLOSATEXABYAAAAAWINDOINVOKPERFORAAFRHPOVPOERRLIERKBEOTIMEDATEPREFIXEXFNEXFN%OUTREINDENAAAAAAAPOHOMA SUB$OFTRACNOTRACNORMAINVERSSCALERESUMALEGOTIRESTORSWAGOSURETURRESTOOALOASAVDELETRURENAMLOCUNLOCCREATEXECHAIAAACATALOAADATIMAGCADEAPRIL<^gHhHhH , - b j$% @ag5h6h6hhhhh8g5h6h 悅`6 "]La ud `L  d.CONSOLE[[ TdSdddddd0 ddddd`dd A 6 s e 9c()' 9cKHLI jLdj89弅:彬: 悅`H hɝɞɜ)`dd  6芅 e ()'` e'()HKIL 9cL>hL<^) i!Ls j @aLK$L% :: 悅 lc!)` +b` +b` sL :b#`L,H s h ऊL(,L8f` A KL jLdjOPPKLL h AKL` Ѽ   (`H shLs Aji!S)Lt`SSS`L` z :0.`9::hhgg.%g& $gegަhH逪hhʰ` ҥ [ aLT ҥIJJABB=>>;<<?@@T ě hhhHH  `89$ 0~!L`!sm?iٰcL`S )!a{)Qi ڐ߽S) -ai) -aɢ ɣɍж$HS -ahʥ0SSȩ5%"/װ&hԐɈf0ɔĐ 8,f 8f L_ʅSS=ȄL`ȱi8eiidHddhd) _ ƢLh _L>h jhP _S @a-Qggeg5hih 6i6 "]S" ]$%SSSg a aL^ S S`La8 SiUjjS):,$f 0$ p fHhH_HcH uhch_hhhfhi0hhhB B A` ֥'( )&񦕤LNKM$Lb ě $m wl "m6X6+5 56ɀ56H $mhɀ(Z)& mL k~ wlL ͝dL Nsd# wl^_ ꂅ__hg^`8 悕`gHhHhH5?6@6@*5g5666gҦhhhhhhhhg:e:;e; ;m;`@c@c?be^@e@ _m__^ \Lx] i6g55``BY BSAMHH H] LPL(\)&P ěj9ȑ9ȑ99i=:i: >i>`Ɂ7XWWXjnXWi` ]?@@bgchch )^ ]b ]b^b^L\b8g+H__^8_ABB 9::)ѭ [ I[ aυ婶ZeLLL^$%Lae LGidFddddddd.ddddddddd ɕdˏd`Ls  Apple Business BASIC v1.23 - Copyright Apple Computer, 1980-83 CTERESOURCE UNAVAILABLDIRECTORY FULDUPLICATE VOLUM ERROR Please Press SPACE BAR IN PROGRAM INTERRUPTED%&'(%+.@C$DE FG!H"I'MN#PQRTW(X潭`: 808`:dd@՚H Z#IJJCSTRING TOO LONFORMULA TOO COMPLECAN'T CONTINUUNDEF'D FUNCTIOVARIABLSOS CALFILES BUSNOT SOI/FILE TOO LARGWRITE PROTECDISK SWITCHEBAD PATFILE NOT FOUNPATH NOT FOUNVOLUME NOT FOUNDUPLICATE FILDISK FULFILE LOCKEFILE NOT OPEDEVICE DISCONNECONV&CONV$CONV%LEFT$RIGHT$MID$INSTR>=<^/*-+NEXT WITHOUT FOSYNTARETURN WITHOUT GOSUOUT OF DATILLEGAL QUANTITOVERFLOOUT OF MEMORUNDEF'D STATEMENBAD SUBSCRIPRANGINVOKSTACK OVERFLOREDIM'D ARRADIVISION BY ZERILLEGAL DIRECTYPE MISMATNDEELSCONLISCLEAGENETABTSPCUSINTHEAMOSTEANOEXTENSIODIAFNOAAAAAAAAAAAAAASGNINTABSATYPRECAAAAAAAAAAPDLBUTTONSQRRNDLOGEXPCOSSINTANATNAAAAAAAAAAAASTR$HEX$CHR$LENVALASCTENAACONV,@dd )e dʙdH &eh(dL ddک,ddLd:e``eLeHELLO ue 5eLse6e:7ee8ee:e`EAd j @a(% -, bLs j {ghhh$PLh wlȱȱ%$LWH mh x~  m#W", mȱ28eLeji`Lwl mȱ"Ɂɂ ȱ :, iTjj ȱiVjj8逪XW0 Vf0WHW$ 0X: h `LćHƽ Ƽh`$ lȱlLL{ɝɍLɎСL s HI s shmHmHlHHɦ# shmHmHlHH , hHLt  ,, shTTLui ui,L3$0 |Lu xijk6kxyy xxy6i L[ s r$PLsi,L3-hLs L*tɘcɭ_ TTLdd`jk8L|L3L3TL3,L3i LL r$PLLBLsș Ȅ ( qƚƚ` s s),;,=,#,(,,ѼLL<^L<^ llmm$P$?TUJ)TU  ' Lsi imLqLsh E0`H ty ))ELyq  8 $0!PizEn{dUeUi hLqLs `wLr !L2 {}$ 0`QɀX zLs.+"2mXm tL qXXW zzEn{i x }H$ ]kh8 )KLe9e:: }Lgi , p s$8$0p`PL<^Յ H s r ɀ ȱX Hih0 & ?<I?iE W Lq s )L<^ȱQȱȅR dj sLHoUVV$ LhU Lp$ LL<^opL^```?EXTRA IGNORED?REENTER $0pL,`LgXW ׫ k*iXX 4X \\L<^Xii7 { n k$ |WlXVVE$ P% eT{||Hd ̐h p IkLo00$0 L>o "m nV dj$D$ P 膼Lo$0",i [ kLoHSHhp< {}$ p0H 07h ]k ,LmUVV `p F sLn 2 ukLoF вLm jȪЖ LL<^~p l nhhLgOPP` Add# 6d s S SS@Ln A " r ,; s lLn#f  ;П ⭩,SLn "mʆ,S _S% nLh "mL_T ST#L(, U VV ׫$ 0  QpU= d hkddhe##5ddˏdd?Ll ,?#$04dHHd = d hkddˡddhhd`LsL#&F  ; s b 0` L+l$ Nsd#Lzm566ȱ5Ll H# wl m#͉LchL$m QRKLLsh$0LU$^`=8WW>X> 悅XXXL:^ g`L<^ l Jj bx bp,_;Ll  ~q$0P oՅ5R66R l ~ L%l $m0 =k $m#`$L#i)8#Ll  s s( L7bʊ# L-l m hxd5d$0H h`L^bLb$%/%5$ &5 &5e$$5e%%$&%$e$% Lk ׫ sHH ~qLPkHHh$0'ph | ZlWȥmW`L$|hXWXL-hm lmmLkl VYZZ{|| w ᐥlmmYZZ LxWXX ox ExYW# kXX 4=^W^0A, 9:: Ga.ghh 悅` A` \\ɾ,L<^hhZkKhLhhhe9e:: mLg jei `Ls j:,"hhhhLgɜEɝDɞLb Hɾɺдmhɾ Qp aj pi `p j` jLi j,d wlOZL^L^-L(dPL<^OPMNKLhhLg` Ls ҥ?ieCiLa,  aFL s a iLg ]hhh5h689H: H:HLHKHH6H5HHH` ui` pi` Qp j pi `p i` j jK$L%8eȢЅ iLOPP$pX0S&ȱhȱKȱLe潥ɂ逅$L# $mKL x~ m khLgLsLc h5逢)&a TH THLgL6k8:9: STT`)ɀLK$Lb8gLOPPKLMNhhm Vf0 mLf) mWA 0 -a mL8fW;8<< 悕` 6kLU*i kXX 4XLy \\'_ch_chbi^g \ihh ] Qp aj ih `p b iq bqn %jjg56Ly { b bq | XHWHHHֺyH8iinn0 xj*% $\hxy56y6( Cx( >x\L|F )XHABB8 __^hHI8e^ @1 @+?%GHHHIJJih BABGHh`$  ě u Дs IJJ^__Lveȱeȱe XE )s LvɁ >H>H= Vt~w/z*|cYX ~uƀ1rP aziP | |iɈ { T}i8Huiiu x BU 瀩{h z` |] az 뀩]Laz | i8fe.șR0șRmymlylkykjyj00ڊIi i/ȄȪ)Re.șRI)ЪR0.ȩ+f.8f-RER/8 i:RRRRRR`y`'d |Ģ { &{f o0`LB ` H$ge &{h 80 '~L}H |h |zEn{iLxf d$h0Ly ef q80fL}COt#t$JZ mLKjk8 | ~Lm ^|-$nșRnȩ0iL f~ azea~ } \~ } &{e B{e yx %}ei0nihoi8傐IL|`7 z!L|iD8$n yiLyn)FjjjLyiɠ %}nnI*imLyjklm` s e-o+ smo..IE)2s S -+fh r$h8fL}fg s$gPf8ef B{f65m5l5k5n j5i`d,]WXX566 |m5 ^|l5k5n %j5i5` |m l)m |m`znth` |ht`i  y my`i n*` |jkjI*mlinLyFn`nEz0ʢiH xv5ui`uei0,iiL0y{n`nI0hhL,yLy |i{ xi` |={{ {LZ{ zL{ |8ii zivjwk xlym* 蕁24(y&x&w&v0⨥ymyxlxwkwvjvL{@jjj)(L{L<^~jklmL y56y^Vy dv88; 54541r |LiHi z xz U{y xy рz xh '~z zLz z~ zm zl zk zj zL{LyJ eyexew~ev~f~ffffJ`5665y5x5w5zEn{z lkj |yjJkjlkmlmi in`emeymlexlkewkjevjLkyi&m&l&k&j8iIiii9fjfkflfmf`nIngjIjgIm lkj`L<^}i0vvvvvj`L656 wh H5Gh`lmm566 Lx5Hȱ5ȱ5 F665 w56h(` x("LH)&h`( '&'`lmm566LxĠLx znInEz{iLx y? zL||uu`8i$iznIii0ĨV y${Wiuu8Iem_B_B`)&N> ȱI8gJJ hhge ghh f feLe8 hx57 xLCx8I77JJ8 88` H dhjL YYHH dYZZ oxhhe5566ɂ逅66 wZZY L YIL=m ) s  ʊHYImm shhhhYhZhZHHE` 3YZZ xLCxl5Ym6Z78ߠȘH yxy hL3 j kqHHHH s H , ,H s s ~qhh 1 lhhXhXhWWȱW7ȱW8 eLNLXZWX ` GGH HlHmHmH khmhmhlh hk8j7k8Lޒ e7788IjJkJk )lmm'&`UR{R||L̐: / cRRȹRRȥ Rл s `Lsh sh5lh6mh6mhxhyhy x x Qȱx7ȱx88 Ƃ 7e7888ł75 楽HHȱȱ6H6H5H s =к bqhhh Lshhhh` ~R/mZlmYZ PujHkki^^`H"h{||kjkȱ{ "ie{||  V{|56|6 w&5L<^i8e` ě u8A?pB@B@ )onL܇jkL| Nsdȩ8 NsdL2Lа,L<^ A s ׫ g iq s= sXHXHWHHHH ajL? b rLiq HHH s iqhhh5ȱ6ȱLI65 g5H6 2|Hgȑgʆ5a g5ȑgȥg <^^^__ɂ逅____<;إy6 hlhm^Ȋ^LL:^ȥ5^H^h ͎el5emȆ6п  ͎e^e__ iLZe *& eegggegȱgehh Ľ ,L<^  8` ^LQ ŠhhL6 $P 訽5 ͎56ۥ 8ee L:^?be^@ce@c __^_ \__^;<<6  $Phihi^Ȋ^6h656H |mHlHkHjHiHl5 8eeghh^__` HHH H bqh hhhn0iɐ1 }L yxL%}\i FHHHHH 6hhhHHlm ,҄ shh)>=>hgh<<;[a{p ;<<ccb? @c@ube.a{bb,\(eb cc`ebcA[8饰 a{8`8\e@@He? ]@@?hbbb0 ea ȑbc8L@ @@h5H ?5^6_6_hhXhXhWLk ? % ?Џ`5566` xe5566ɂ66` s p `  zLseff z.!'$ iߪ$ 0 H8eAi\h$ P8 (Lt$ 0}5}} ,kk} , kklm Lٓ[ 80@ 6 2`  dkH) ojhJJJJ ojL 0:i`L<^ jHHHHHH s jhLyqhhh6h6h555_ȱ5VHHHH %L/5H6H6Ht $mlmkljkij8ihn`L,$0DpA q enHi80 @Lyu \ % @u ćh `&m&l&k&j`2L0 և yxLT}$0pLI oբRLi `u LLi u Lui0 ܆ چ,,% п 擩lm0u 1eL5665`iɀ*iH i  @8 ei $ tutt tj ȡhn` t` 0RN0R 0R$n-RRR`i` p`5665i`$0BP?iH i hL?e8V je?e>e8U>e5V?e665e=e@eeehi?e ueL5e qrL,op ɩ`et?ek;e`hZ L<^hZL<^L=ee>e ?e`opqrst !e5ehe?eLje LjeR=89R>:>:iR:RiRRiRL`8(RR(`EeFe  s bq Vml0L dMeL` bՍe :RRRiRȐȰRe9Re: J 2IHJh*=>> 95:6:6R L1 1Lԫ`L:^  aFL^R, ue 5eLڭR7>e?e5e?eJeKeLje֩ u>e?eՍ "] a a$% iLg֢   sLj$%`8f  a e ; ` s ɩ` YLILcopL7 z0xH ׫$0_ ;h8fH`aai shH2 h zJJJJf Ik ɩ` ̬ t os YLA ևLLק jWXX` ׫$`pd8isŠt`dyoopd8ip`J uv`&&&8孪孪宐橈`! @ uA?B@B 悅@=g>h>h ]=i>j>k a=g8i>hj>h 悅ki=5j>6k6k;el)@7Me0u(> ƬƫHH ,hohp` ɩCe0R`ȹR`ee?e@e ue 5e T L=e;e`Lso`n}pm aa`dyo ɃɄ b`" lJJJJYe s ˰L8Ls LԫN l@u=ekPe tMe )llNesOet NeOetMeCOeNeȌ=e>e;eed?e10"TOO LONG. 10 CHARACTERS IS MAXIMUM.":5459NPN$,1)<"A""NAME MUST BEGIN WITH A LETTER.":545bNP$=PN$:SX$=AN$:Q$=34)?vDF$=PN$+".DAT":PN$=PN$+".BAS":FM$=NP$+".FRM":BC$=NP$+".BAK"#1,pn$:#1:pn$:pn$,demo$="Dr program .":>"You are limited to 10 alphabetic characters (A-Z).":TM=09!TM>4:"PLEASE READ YOUR MANUAL!"::"GOOD-BYE!":2&:"Program name=";:ll=10:5445:PN$=B$:TM=TM+10580J:"PLEASE USE ALPHABETIC CHARACTERS ONLY-- NO SPECIAL CHARACTE"create your own custom application software. Read the manual thoroughly,"::"fill in the worksheets as instructed and you are ready to proceed."- :::"REFER TO PAGE Q6 OF THE MANUAL":O:"First, you have to tell me what name you want to give youECODE","QECODE.XXX":"QECODE.XXX","QECODE"V::"IMPROPER DISK IN DRIVE 1, FILE QECODE NOT FOUND! (MAY BE WRITE PROTECTED)":::::405 œ570U:"This is the QUICK & EASY DATA MASTER. It has been designed to allow you to":***************************** / *****************************************510 :=4<"Remove QUICK & EASY DATA MASTER disk A from DRIVE 1":<"and insert disk B (or a copy of disk B) into DRIVE 1." :21000 œ480 =".d1"1"Q ** ** 3 ** Written by William C. Atchison ** / ** **/ ** REV 9/13/82 **/ ** **2 ************3 ** Quick & Easy Data Master APPLE /// ** 2 ** ** 4 ** (c) 1982 by ** 3 ** ** 3 ** Advanced Software Technology, Inc. ** 0"RDXE",PR$)=0:22000VPR$="X"22000: ZDEMO$=PR$ [22000:bpr$="D"40000cpr$="E"43000/d *****************************************/n *****************************************/x ** **"*****************************************"27,180,24:=12$:"D . . . . Demo Quick & Easy"!:"E . . . . Edit a Program"#:"R . . . . Run Quick & Easy"((:"X . . . . Exit Quick & Easy"::,P"Enter your selection : ";:LL=-1:24000U **"0"** **"0"** Advanced Software Technology, Inc. **"0"** **"0"** Version 1.2 **"0"** **"0l :400::20,180,24:0 "*****************************************"0 "** **"0 "** Quick & Easy Data Master APPLE /// **"0"** **"0"** (c) 1982 by "#3,fm$:680#1,BC$:#1:BC$#1,FM$:#1:FM$,BC$:FM$,#2,FM$:#3,BC$ 28000"LOAD QECODE"-"9 F$=";Q$;DF$,DF$)-4);Q$;":GOTO 20"+"1 REM******* PROGRAM NAME:";PN$;"***"-"2 REM******* DATA FILE NAME:";DF$;"***""1000 HOME" #0:3 ***************************************** 4 ** Setup Data Base Progam Parameters. ** 0 ***************************************** MS=3000:RK=3000 up=1::>19e"Please type in the title you want displayed o******* 3::"REFER TO PAGES Q13-Q17 OF THE MANUAL"::!I=1A:I$=I):up=1:>19,:"Field #";I;" Length=";:L=F$(I)):L8P$="":"Prompt:";:LL=60:CV=:HP=7:5450:P$=B$:PR$="";P$="""Is the prompt supposed to be blank? ";:23000: REM XX(0)=FIELD NUMBER, FI$=DATA FILE NAME"BLN=1000: PRINTLN;"HOME:rem ********** Begin Entry **********"#02l ***************************************** 0v ** Field Prompt Specification ** 5 ********************************** ***************************************** X=Ac"Key field is field number (1-";x;" default=1) ";:LL=-3:24000:KF$=PR$:kf=kf$):kf$=""kf=14KF<1KF>X"THIS FIELD DOES NOT EXIST.":1490 28000T"26 XX(0)=";KF;":FI$=";Q$;NP$;Q$;"turn to the MENU type '";OT$;"'";Q$;";";Q$;" for an entry into any field.";Q$JD%(200),p$(200),slp$(200),k$(200),RR$(200),CC$(200),R2$(200),C2$(200)#00 ***************************************** 0 ** Setup the key fields for data file. ** 3;":";" XX(3)= ";AFLN=LN+10:LN; PI=1AZ" XX(";I+3;")=";F$(I);":";!dI/10)=I/10:I/10)+LN;nI:PxLN=250:LN;"HPOS= (80-";TI$);")/2:";"INVERSE:";"PRINT "Q$;TI$;Q$;":NORMAL" LN=300~OO$="Y"LN=LN+5:LN;"PRINT:PRINT";Q$;"To refield sizes correct ";:23000:pr$="Y":1320pr$="N"1090=-1:1290(LN=70:28000:RK=EX:MS=EXg2A=A-1:LN=LN+10:LN;"REM XX(1)=#OF RECD'S XX(2)=REC LEN XX(3)=#OF FIELDS XX(I)=FIELD LEN 1 TO ";A><LN=LN+10:LN;" XX(1)=";0;":";" XX(2)=";MSis no field space allocated.":1250I:"Ok, so far you have allocated ";EX;" spaces. To end enter '999'."A=A+1:1120 ::=33:"Field Widths"::+I=1A-1:I;") ";F$(I),:<6a<=40 ::` "Record Size = ";ex;25);:"Are all of the T ENTER A VALID NUMERIC FIELD LENGTH.":1100aEX=EX+F$(A)):EX>3000F$(A))>245F$(A))<1"EXCEEDS RECORD LENGTH. TRY AGAIN.":1100F$(A)="999"EX>012606"Is this feild size ok ?";:23000:pr$<>"Y"1120 >208EX=0:"There "Length of field #";A;dx$;" = ";:LL=3:5445tdx$<>""b$=""1160'~f$(a)=b$)):F$(A)<>B$F$(A)=""F$(A)="999"EX>01260@F$(A)="999"EX<=0"YOU MUST ALLOCATE FIELD SPACE!":1120eF$(A))<1(F$(A))>255F$(A))<>999)"YOU MUS*********************************** 2. ** Allocate field space for data file. ** 28 ***************************************** BA=0:ex=0:1240LV2`dx$="":f$(a)<>""dx$=" (default="+f$(a)+") " eF$(A))=0F$(A)="":DX$=""0j522000:::"REFER TO PAGE Q10 OF THE MANUAL":::"Now, we must describe the fields in your data file.":"Please take care to allocate the right amount of space."::"Now, you must tell me how much space to allow for each field.":5$ ******0:BL$=PR$N"Shall error messages remain on the screen permanently? ";:23010:ER$=PR$ER$="N""How many seconds do you want errors to be displayed ? (1-20 default=5) ";:LL=-2:24000:SC$=PR$:sc$=""sc$="5" SC=SC$):SC<0SC>201000(default=QUIT) ";:LL=10:5445:pr$=B$:24010:ot$=pr$ot$=""ot$="QUIT"D28000:"51110 IF G$(FC)=";Q$;OT$;Q$;" THEN POP:POP:GOTO 10":#0A=1:::>12+:"REFER TO PAGE Q9 OF THE MANUAL"::<"Do you want error messages to beep ? ";:2300n your program menu.":LL=78:CV=:HP=1:5450:TI$=B$ F$(200)::up=0-*::"REFER TO PAGE Q7 OF THE MANUAL"::\NA$<>""NA$;",":Cf"Do you want an exit message in your program ";:23000:OO$=PR$aOO$="Y""What is your message or code? PR$="N"19501980:up=0 2180 CA$="Y"3 ***************************************** 2 ** Row - Column Screen Address entry. ** 2 ***************************************** CV=:CV>22 A<23cc$(i)<>""2090MCC=CC$(I-1))+P$(I-1))+F$(I-1))+3:RR=RR$(I-1)):CC$=CC):RR$=RR)6 CC>80CC=CC-80:RR=RR+1:CC$=CC):RR$=RR):2080*RR$)>23RR$="23"4CC$)=0CC$="1">RR$)=0RR$="1":2130HA<23RR$=RR$)+1)#MSLP$(I-1)="N"RR$=RR$)+:LN;"IF VAL(G$(";I$;"))";BI$;" THEN ";:3025A K$(I)="C"LN=LN+10:LN;"IF G$ (";I$;")";BI$;"THEN ";:3025Q LN=LN+10:LN;" E=1:IF G$(FC)=";Q$;Q$;" OR G$(FC)=";Q$;" ";Q$;" THEN ";LN+30ϸ LN=LN+10:LN;" E=INSTR(";Q$;"ALAKAZARCACOCTDEDCFLGAHIIDILINIE SET OFF BY QUOTES.":2500e^ B$=BI$:A$="LENGTH":5610:FH=I9:LN=LN+10:LN;"IF LEN(G$(";I$;"))";BI$,FH+6);" THEN ";:FH=0:3025^h A$=BI$,1):A$<>"<"A$<>">"A$<>"=""SYNTAX ERROR. REPEAT COMMAND, PLEASE.":E=1:2547 r 28000E K$(I)="N"LN=LN+1000f BI$=BI$,FH-1)+" "+BI$,FH+1):B$=BI$:5610:I9<1#0:"YOU FORGOT THE SECOND QUOTE!":FH=0:2500k6 FH>1FH$=BI$,FH+1):LN=LN+10:LN;"B$=G$(";I$;"):A$=";Q$;FH$;":GOSUB 41000:IF I9>0 THEN ";:fh=0:3025H@ #0:"SYNTAX ERROR. CONTAINS SHOULD NOT BG$(";I$;"):E=0:GOSUB 30070:G$(";I$;")=CD$:IF E=1 THEN ";:3025E LN=LN+10:LN;"CD$=G$(";I$;"):E=0:GOSUB 31000:IF E=1 THEN ";:30254 LN=LN+10:LN;"IF LEN(G$(";I$;"))=0 THEN ";:3025K B$=BI$:A$=Q$:5610:FH=I9:I9<1D$:"YOU FORGOT THE QUOTES":FH=0:25;7 I92760,2770,2790,2820,2830,2910,2730,2990,13000,13000 #0:2920T LN=LN+10:LN;"CD$=G$(";I$;"):E=0:GOSUB 30100:G$(";I$;")=CD$:IF E=1 THEN ";:3025J NM=1:LN=LN+10:LN;"CD$=G$(";I$;"):E=0:GOSUB 30000:IF E=1 THEN ";:3025Y NM=1:LN=LN+10:LN;"CD$= LN=LN+10:LN;"IF LEN(G$(";I$;"))( r2$="22":c2$="1":rr$,r2$:cc$,c2$:1980:rr$,r2$:cc$,c2$2 28000:1000028000:30301 DD$="="+BI$:CH$=K$(I):E=0:12006:BI$=DD$,2)= E=1:"REFER TO PAGES Q14-Q17 OF THE MANUAL":::2530 BI$<>""2590o 28000:LN=LN+10:LN;"IF LEN(G$(";I$;"))>XX(";I$)+3;") THEN EM$= ";Q$;"MAX LENGTH EXCEEDED";Q$;":GOTO ";BLX ***************** 1 ** Bad Input IF Specification ** 2 *****************************************  #0 CV=:CV>19 BL=50000N "Bad Input If (999 to END, Default=999): ";:ll=-80:24000:bi$=pr$:#0:E=0$ BI$=""BI$="999"440:e=12110Uj CC$)<1CC$)>80"INVALID COLUMN ADDRESS":"MUST BE BETWEEN 1 AND 80":2110t G$=CC$:2440:e=12110~  e=0:K=1G$)D G$,K,1)<47)G$,K,1)>58)"ILLEGAL SCREEN ADDRESS":e=1 K:1 ****************************************** . RR$="":CC$=""L8 B$=CP$:A$="-":5610:CP$)<3CP$)>5I9=0CP$)<1CP$)>802110B j=cp$,"-")&L RR$=CP$,J-1):CC$=CP$,CP$)-J)JV RR$)>23RR$)<1"INVALID ROW":"MUST BE BETWEEN 1 AND 23":2110` G$=RR$:2on of field #";I;" correct ";:230006PR$="N"LN=LN-10:RR$=RR$(I-1):CC$=CC$(I-1):194028000:D%(I)=LN+10 NM=0:25002 ***************************************** 3 ** Row - Column Address Verification. ** 3$ ***********************=p$:slp$(i)=slp$:k$(i)=k$:CC$(I)=CC$:RR$(I)=RR$fSLP$(I)="N"LN=LN+10:28000:LN;"VT=";RR$;":HT=";CC$;":PP$=";Q$;P$;Q$;":GOSUB 51050":BL=LN:2300VLN=LN+10:28000:LN;"VT=";RR$;":HT=";CC$;":PP$=";Q$;P$;Q$;":GOSUB 51000":BL=LN:#09"Is the definitis the prompt? ";:23000:SLP$=PR$SLP$="Y"SLP$=";":2220HK$="":"Kind of data (N/C default=C) :";:LL=4:CV=:HP=:5450:K$=B$'pr$=k$:24010:k$=pr$:K$=""K$="C"KK$<>"N"K$<>"C""INVALID DATA TYPE:PLEASE ENTER N OR C ONLY.":22208p$(i)1)YR"Appear where on the screen? (R-C default=";rr$);"-";cc$);")";:LL=5:5445:CP$=B$(\cp$=""cp$=RR$))+"-"+CC$))1fCP$)>5CP$)<3"INVALID ADDRESS":2130 p2350zCV=:CV>22Q"Should the answer appear on the same line aAKSKYLAMEMDMAMIMNMSMOMTNENVNHNJNMNYNCNDOHOKORPARISCSDTNTXUTVTVAWAWVWIWY";Q$;" ,G$(FC),E ):IF E <>0 AND(INT(E /2)=E /2) THEN E =E +1:GOTO ";LN LN=LN+10 LN;"IF E=0 THEN ";B "EM$=";Q$;EM$;Q$;":VPOS=";R2$;":HPOS=";C2$;":GOTO ";BL:2500 K$(I)="C"NM=13040t LN=LN+10:LN;"CD$=G$(";I$;"):E=0:GOSUB 30000:IF E=1 THEN EM$=";Q$;"Numbers Only!";Q$;":VPOS=23:HPOS=1:GOTO ";BL LN=LN+10:LN;"RETURN" #0:I2 ***************************************** 1 ** Setup the GOSUB'S for data entry tell me the name of the file you want to transfer to ""N:LL=24:CV=:HP=1:5450:FI$=B$XFI$)<14420Qb:"Which field is the key field of the transfer file? ";:LL=3:5445:KT=B$)jv:"Where is the key field of the transfer file in the file youm has been generated", "you should refer to SECTION II of the") "Quick & Easy manual on running the"% "generated application program."/"----------------------------------------"#:b$="PRESS ANY KEY":20500:x$PN$&ID::"You mustinterrupt this process. When it is done, a message will be dislayed.";:"To run your finished program type the following:"::=15:"RUN ";NP$;:"1,1280,24:demo$<>"D"4380/"-------------- End of Demo -------------"+ "When this progra ";Q$;ER$;Q$;":SC = ";SC#0)II$="Y"28000:D;"GOSUB 43000":#0 28000"SAVE ";Q$;NP$;Q$("HOME:TEXT:? ";q$;"*** DONE ***";q$#0::demo$<>"D"BC$1,180,127:"Your application program is now being created."T:"Do not ;N;")"#03::"REFER TO PAGES Q30-Q33 OF THE MANUAL"::D:"Do you want to make this file interactive? ";:23010:II$=pr$(II$="Y"4420 228000F#0P 6D=LN+5 J28000Wh"25 DIM XX(200),F$(200),G$(200) :BL$ = ";Q$;BL$;Q$;":ER$ =DD$,2)="G$"28000:3770DL=DL+1:614028000:TC$=TC$+" "H22000+DL;"VPOS=";RR$;":HPOS=";CC$;":PRINT ";Q$;TC$;Q$;";CD(";I;");"28000+A*10+I;DD$#0I328000:"29050 X=";N;":D=2:GOSUB 29100:D=0":#0N=DC 28000"85 DIM CD("PR$:TS$=DD$:12000:DD$=TS$:E=13615jDD$,3)<>"CD("3720ktDD$,4))<>DC+1"PLEASE ENTER THE CD(I) CALULATIONS":"IN ORDER! RE-ENTER FOR CD(";DC+1;").":3615 ~DC=DC+1DDD$,2)="G$"ST$="D""ERROR! STORING DISPLAYED DATA?":3615 D"48"Title for computed data? ";:LL=40:5445:TC$=B$&Bst$="999"TC$="999"I=I-1:3800\L"Where do you want your title to appear on the screen? (R-C) ";:LL=5:5445:CP$=B$:2150!VST$="S"TC$="-STORED DATA-"L`"CALCULATION FOR ";TC$:24000:DD$=1300 >18 3620 >197 :"REFER TO PAGES Q26-Q29 OF THE MANUAL":::3611$:"Display or Store a calculation ( D,S OR 999 to end, default=D) ";:24000:st$=pr$:ST$="999"3650:ST$="S"3670:ST$<>"D"st$<>""3620.st$=""st$="Data ** 4 *****************************************  DC$="N"3860$ CC=0:I=1A:K$(I)="C"CC=CC+1 i CC=A:"YOU MAY NOT DO COMPUTATIONS WITH ALL THE FIELDS DEFINED AS CHARACTER DATA!"::21000:3860 ::DC=0 I=n ";:23010:SR$=PR$H sr$="N"5850:3470\ TD$="Y":58503 ::"REFER TO PAGES Q23-Q25 OF THE MANUAL"::C :"Do you want to display any computed data? ";:23010:dc$=pr$0 ***************************************** 2 ** Computed want any headers displayed? ";:23010:DS$=PR$V DS$="Y":"Do you want headers displayed on the input screen? ";:23000:pe$=pr$ DS$="Y"56903 ::"REFER TO PAGES Q20-Q21 OF THE MANUAL"::I* 6180:"Do you want to define a data display scree)-10;",";::D%(II+39)-10: #02 ***************************************** / ** Headers & Titles **3 ***************************************** H$(50)3 ::"REFER TO PAGES Q18-Q22 OF THE MANUAL"::: "Do you. ** 3 *****************************************  28000 & I=1200:D%(I)=0D%(I)=100 :LL=1001:II=1:3210!: II=4116140:3210::3240 D%(II)=10l LL=LL+1:LL;" EM=0:ON (FC>";II-1;")*(FC-";II-1;") GOSUB ";:I=IIII+38:D%(I are generating? ";:LL=3:5445:KN=B$)KN<14470c::"Now enter the field lengths in the file you are transferring to."::"Type '999' to end." I=1100 >18::"Length of Field #";I;",File 2=";:LL=3:5445:TF$=B$JTF$="999"I=1"YOU MUST ENTER THE FIELD LENGTHS FOR FILE 2!":4510TF$="999"4610&"Is this correct ";:23000:c$=pr$C$<>"Y"C$<>"N"4520C$="N"4520,TF$)<1"INVALID FIELD LENGTH":4520 H$(I)=TF$TL=TL+H$(I))I N=I-1 28000HEADER":5710V"Where do you want the HEADER to appear on the screen? (R-C) ";:LL=5:5445:CP$=B$ 2150DL=DL+1:kl=20100+dl:280008KL;"VPOS=";RR$;":HPOS=";CC$;":PRINT ";Q$;TH$;Q$;";"#0::DL=1C=I-1:28000:PE$="Y""1000 HOME:Dnter Headers ** 20 ***************************************** ::DDL=0:I=13008N:"Title of HEADER? Type 999 to END (Default=999) ")Xll=78:5445:th$=b$:th$=""th$="999" b>17lTH$="999"5810$vTH$="""INVALID 1)+2JI=0JI=1:=CV:=HP+2:JI=1B$="":5600B$=B$,JI-1)"_";:=(HP+JI-1)+2:2=CV:=HP+2:b$;sp$,b$)+1,ll+2-b$));a$: INSTR subroutineI9=b$,a$):1 ***************************************** 2& ** E(A$=13)FM$=""demo$="D"a$:0A$=13)demo$<>"D"fm$<>""#2;B$:5605a$=13)5605A$)<32A$)>1285480UP=0pr$=a$:24010:a$=pr$A$;:B$=B$+A$JI+=CV:=HP+2:JI=1LL+2:" ";:JI:5450JI=JI-1:=(HP+JI-PR):A$=13):20500:55202TUN$=""JI=199:UN$=UN$+95):sp$=sp$+" ":YUN$,1,LL);:=CV:=HP+2$[FM$<>""DEMO$="E"#3;B$:B$; \JJ=B$)^JI=1LL+1cJJ>0JI=JJ:JJ=0:5540hA$A$=8)5560:5480a$=13)demo$="E"5523************************* 16 ** Formatted Line Entry ** 4@ ***************************************** ECV=:HP=J=CV:=HP+2:A$="":B$=""5OFM$<>""DEMO$="D"#3;B$:A$=13):20500:5520:PFM$=""dm$(pr)<>""B$=DM$(ANSFER EQUATIONS MUST START WITH TF#n OR FL#n !"::5270H$(J)=TS$,5))) 28000+43010+J;TS$;":I=FT(";J;"):GOSUB 43500"#0J 28000"43180 GOSUB 43400""96 DIM FT(";K;")""43190 RETURN"#0"3, ****************H$(I);":";:I:"FT(";K;")=";H$(K)#0d:xL:J=1100:"Enter field transfer equation # ";j;". Type '999' to end."24000:TS$=B$TS$="999"K=J-1:536012000:E=1:5270jTS$,4)<>"FF$("TS$,3)<>"G$(":"ALL TR MUST DESCRIBE THE FIELD #"::"THAT YOU WANT TO TRANSFER TO."::"TYPE 999 TO END." J=1100&:"FIELD # TO TRANSFER TO ";H$(J)H$(J)="999"5040J K=J-1 2800097; I=1K-1#K=1"FT(";K;")=";H$(K):51003"FT(";I;")=";(I))) ."43510 RETURN"8"43420 FOR JI=1 TO";NBB"43430 IF RL+TF(JI)>245 THEN PRINT OP$:RL=0:OP$=";Q$;"";Q$;""1L"43440 RL=RL+TF(JI):OP$=OP$+FF$(JI):NEXT JI"V"43450 PRINT OP$"`"43460 PRINT D$:RETURN"j#0t5220:5050a~"NOW YOU"43360 NM=1""43370 RETURN"@"43400 PRINT D$;";Q$;"WRITE ";FI$;Q$;";";Q$;",R";Q$;";";"P"""43410 RL=0:OP$=";Q$;"";Q$;""J"43500 IF TF(I)-LEN(FF$(I))<=0 THEN FF$(I)=LEFT$(FF$(I),TF(I)):RETURN<$"43505 FF$(I)=FF$(I)+LEFT$(SP$,TF(I)-LEN(FF$270 RL=RL+TF(JI):FF$(JI)=MID$(FZ$,I9,TF(JI))""43280 I9=I9+TF(JI)""43290 NEXT JI";"43300 IF LEFT$(FF$(";KT;"),LEN(KK$))=KK$ THEN RETURN"("43305 P=P+1:IF P> ";NN;" THEN P=1""43310 NEXT I"/"43350 PRINT D$;";Q$;"CLOSE ";FI$;"";Q$;"" INPUT FZ$"gz"43000 KK$=G$(";KN;"):ZZ$=KK$: TX=XX(1):XX(1)=";NN;":GOSUB26000:P=RP:GO SUB 43200:XX(1)=TX" "43005 IF NM=1 THEN RETURN""43240 I9=1:RL=0""43250 FOR JI=1 TO";N6"43260 IF RL+TF(JI)>245 THEN INPUT FZ$:RL=0:I9=1"5"4395; I=1N*"TF(";I;")=";H$(I);":";4I>KH"43200 PRINT D$;";Q$;"OPEN ";FI$;Q$;";";Q$;",";DT$;",L";Q$;";";TL;"+1"R"43210 FOR I=1 TO";NN\"87 DIM TF(";N;")"?f"43220 PRINT D$;";Q$;"READ ";FI$;Q$;";";Q$;",R";Q$;";";"P"p"43230=0:X=";C;":RESTORE:GOSUB 20000" #0::1 ***************************************** 2 ** Data Titles ** / *****************************************sr$="Y"59109"One moment while creating the output screens . . ."1 i=1a:cp$=rr$(i)+"-"+cc$(i):tp$=p$(i):5970 :I=1A >18>*::"Title #";I;" for displayed data.(default=";p$(i);")"/LL=78:5445:TP$=B$4TP$=""tp$=p$(i)H"Where do you want the title to appear on the screen? (R-C $+")"+DD$,FI+2+I9+A$)):12110#/I9=DD$,WW$):FL=DD$,I9+3))/"THE FIELD FL#";FL;" IS ";/K$(FL)="N""NUMERIC!"/K$(FL)<>"N""CHARACTER!" /E=1:22 ***************************************** 02 ** Found In File BAD IF's 9=b$,a$)0v/I9=0"ERROR! FIELD NUMBER MISSING!":e=1:U{/WW$="FL#"CH$<>K$(FL)"DO NOT MIX NUMERIC AND CHARACTER FIELDS!":i9=i8:12200R/CH$="N"DD$=DD$,1,FI-1)+"VAL("+RP$+"("+A$+"))"+DD$,FI+2+I9+A$)):12110@/DD$=DD$,1,FI-1)+RP$+"("+A,N/B$=DD$:A$=WW$:i9=b$,a$):FI=I9:I9=0X/I9>EQ12140Vb/CH$="N"DD$="STR$("+DD$,EQ+1)+")":DD$=RP$+"("+B$,I9+3)))+")="+DD$:12110@g/DD$=DD$,EQ+1):DD$=RP$+"("+B$,I9+3)))+")="+DD$:121108l/FL=B$,I9+3)):B$=DD$,FI+3):A$=FL):iLS IN EQUATION!":E=1: /PO=0:PC=0C&/JI=1DD$):A9$=DD$,JI,1):PO=PO+(A9$="("):PC=PC+(A9$=")"):\0/PO<>PC"ERROR! THE OPENING AND CLOSING":"THE NUMBER OF BRACKETS DO NOT EQUAL!":E=1:=D/DD$)>0"ERROR! USE LETTERS BEFORE THE EQUALS!":E=1:$="C"(DD$,"/")>0DD$,"-")>0DD$,"*")>0)E=1:"DO NOT USE THE MATH SYMBOLS *,/,- WITH TEXT FIELDS.":E=1:12200.RP$="G$":WW$="FL#" .12050.RP$="FF$":WW$="TF#":12050 /TS$=DD$:Q/B$=DD$:A$="=":i9=b$,a$):EQ=I9:I9=0"ERROR! NO EQUA******************************* .E=0:PR$=TS$:24010:DD$=PR$1.I9=DD$,"FL#"):I9>0CH$=K$(TS$,I9+3))).I9=0CH$=""CH$="N".RP$="G$":WW$="FL#"Z.CH$="N"DD$,Q$)>0E=1:"DO NOT MIX TEXT IN QUOTES AND NUMERIC FIELDS!":E=1:12200.CHlready exists..RE-ENTER! t'ED$=""::x=110:z1$,z2$~'BI$,Z1$)>0ED$=Z2$:I9=X'0'ED$=""ED$="INVALID ENTRY, RE-ENTER!":I9=0'/|. *****************************************/. ** Verfication for TF# in Calculations.**0. ********** CONTAINS,A letter or phrase is INVALID!#G' LENGTH,Improper entry length!+L' NOT DATE,Enter date as MM/DD/YY only!7Q' NOT STATE,Enter 2 letter STATE ABBREVIATION only!4V' NOT FOUND IN,Entered item not found..RE-ENTER!9`' FOUND IN, Entered item a0' ** Default Error Messages ** 4$' ***************************************** %.' NOT NUMERIC,Enter Numbers Only!.3' NOT DOLLAR,Please Enter Dollar Amounts! F8' NOT ALPHA,Enter Letters Only!,NO ENTRY,You must enter something!-B' LI=1AVRR>23RR=1`CC>80CC=1.tRR=RR$(I)):CC=CC$(I)):CC=P$(I))+CC+1"~CC>80RR=RR+1:CC=CC-80:6270RR>23RR=1SLP$(I)="N"CC=2:RR=RR+1R2$(I)=RR):C2$(I)=CC)0' ***************************************** $2150:DL=DL+1:KL=22000+DL:28000:KL;"VPOS=";RR$;":HPOS=";CC$;":PRINT CD(";I;");":#0:1$ ***************************************** 1. ** Calculate Output Screen ** 28 ***************************************** Brr=0:cc=1 #0:3 ***************************************** 3 ** Position to Display the Data. ** 1 ***************************************** V"Where do you want CD(";I;") to appear on the screen? (R-C) ";:LL=5:5445:CP$=B$=r2$(i)+"-"+c2$(i):6040"Field #";I;" to appear where on the screen? (R-C default=";r2$(i)+"-"+c2$(i);")";:LL=5:5445:CP$=B$:cp$=""cp$=r2$(i)+"-"+c2$(i) 2150DL=DL+1:KL=23000+DL:280004KL;"VPOS=";RR$;":HPOS=";CC$;":PRINT G$(";I;");"default=";rr$(i)+"-"+cc$(i);")";:LL=5:5445:CP$=B$:cp$=""cp$=rr$(i)+"-"+cc$(i)$R2150:DL=DL+1:kl=22000+dl:28000<\KL;"VPOS=";RR$;":HPOS=";CC$;":PRINT ";Q$;TP$;Q$;";":#0 a6020:I2fC=I-1:28000:DL=DL+1:22000+DL;" NORMAL":#0:)sr$="N"cp$ ** 02 ***************************************** 2q=0:e=0&2E=BI$,Q$,E+1):E>0Q=Q+1:13040I2Q<>2#0:"ERROR! USE EXACTLY 2 QUOTES AROUND /VOLUME/FILE !":2500Q3BI$,".DAT")>0#0:"ERROR! DO NOT ENTER THE .DAT IN THE FILE NAME!":250033FF$=BI$,BI$,Q$)+1):FF$=FF$,1,FF$,Q$)-1)Q,3LN=LN+10:LN;"IF G$(FC)=";Q$;Q$" OR G$(FC)=MID$(SP$,1,XX(FC+3)) THEN RETURN"A63LN=LN+10:LN;"FOR XZ=0 TO 3:XZ(XZ)=0:SWAP XX(XZ),XZ(XZ):NEXT"R@3LN=LN+10:LN;"FF=3:FL=4:FJ$=";Q$;FF$;Q$;":N$(FL)=FJy "U^:"create a stand alone ready to use application program in just a few minutes."r::"Select :"1|:" A - Automatically run the demo."0:" P - Pause after each question."#:"Choose one :";:ll=-1:24000pr$<>"A"pr#1,pn$jm#1tm y::=9Ty::21000:0@:"This is the Quick & Easy demonstration."RJ:"We suggest you open your manual to page Q4 and follow the screens for the"PT:"most effective customer demonstration. Quick & Easy will automaticall**** e Save Positionevp=:hp=:wi Restore Position xi=vp:=hpiVP=24VP=22:=VPi2$m ***************************************** 18m ** Open For Write ** 0Lm ***************************************** `mPR$,zx,1)=PC$)-32)]:aok=0!azx=1pr$):pc$=pr$,zx,1)'a(pc$<"A"PC$>"Z")pc$<>" "ok=1a:/Te *****************************************0he ** Save/Restore Cursor ** 3|e *************************************30203] ***************************************** 2] ** Upper Case Only ** 2] ***************************************** 7]26000:LL=(LL<0)*LL)+(LL>=0)*(79-HP):5445:PR$=B$]zx=1pr$)5]pc$=pr$,zx,1):pc$>"Z" Y/N Prompt Entry **2Y ***************************************** 3YLL=-1:"(Y/N default=Y)";:24000:ZZ$="Y":23020,YLL=-1:"(Y/N default=N)";:24000:ZZ$="N"YPR$=""PR$=ZZ$:YPR$="Y"PR$="N"Z7):27000:24000:2r+(dr=1)+(dr<>1)*255)V1);22);D Vdr=3=1:=1:2);:=23:=39:3);:xx=1x:10);::22050#V=1:=1:2);:=23:=39:3);+V23);-(x+3)*dr+(dr<>1)+(dr=1)*255); "V1);,V:0Y ***************************************** /Y **1U ** Fancy Clear Screen ** 1U ***************************************** U:dr<>0dr=dr*-1Udr=1)*3)+1:dr=2dr=-1Ux=17:22);4Udr=3=1:=40:2);:xx=1x:11);::220207U=1:=40:2);23);(x+3)*d27000FP1Q ***************************************** 3Q ** Press Any Key ** 1Q ***************************************** /Rpp$="Press ANY KEY to continue.":20000::2U ***************************************** ault)" PGG=13P=hp:=vp:B$;(Px=180:2P:=hp:=vp:B$;:""27000_CPOPTION$="P"26000:=24:=50::"PRESS ANY KEY";::Z$:=24:=50:" ";:Prompts ** 2 N ***************************************** Nhp=:vp=%N N20200N=hp:=vp:pP$Nx=1250:N:=hp:=vp:pp$:Nx=1250::20110 N20200NN LO22000:P26000:hp=:vp=PB$=""B$="(def"IF F=0 THEN EM$=";Q$;EM$;Q$;":VPOS=";RR$;":HPOS=";CC$;":GOTO ";BL:2500:0M ***************************************** 3M ** Apple /// Subroutine Call Library. ** 4M ***************************************** 2M ** Flashing FOUND IN")=013170J^3LN=LN+10:CA$="N"LN;"IF F=1 THEN EM$=";Q$;EM$;Q$;":GOTO ";BL:2500Qh3LN;"IF F=1 THEN EM$=";Q$;EM$;Q$;":VPOS=";RR$;":HPOS=";CC$;":GOTO ";BL:2500Jr3LN=LN+10:CA$="N"LN;"IF F=0 THEN EM$=";Q$;EM$;Q$;":GOTO ";BL:2500Q|3LN;$:SWAP FI$,FJ$:GOSUB 41100"QJ3LN=LN+10:LN;"INPUT #FF,XX(1);N$:S$=LEFT$(G$(FC)+MID$(SP$,XX(FC+3)),LEN(N$))"[T3LN=LN+10:LN;"DO=4:GOSUB 60000:CLOSE#FF:CLOSE#FL:FOR XZ=0 TO 3:SWAP XX(XZ),XZ(XZ):NEXT")Y3LN=LN+10:LN;"SWAP FI$,FJ$:FF=1:FL=2"#]3BI$,"NOT $<>"P"40000option$=pr$ select DATA files dm$(50):3u:"Here is a list of DEMOS on this disk . . ."z:#5,:ž#543160+#5;A$:A$,".FRM")<>0A$=A$,16,15)UA$,".FRM")>0dm=dm+1:dm;" ";::dm$(dm)=A$,1,A$,".FRM")-1):dm<DO=0:60000 RT=0:XX=:œ12 :11 :root(FL)>041150 :2104B$=A$:JI=17:B$=B$+B$:JI::B$=B$+B$,1,80): œ32000 43000:A$=" ":16:SP$=B$:A$=8):16:BP$=B$:A$=".":16:PE$=B$( ON ERR GOTO 25000 F Data00:HD$(X)="":$B"MAKE A NEW REPORT":::wd(0)=06B INPUT"Enter a TITLE for your Report ";hd$(0) ""pt$=in$:1,180,24:!> Copy Record to Printer ?15000:#8,pt$:#8: ?"RECORD FOR ->";G$(XX(0)):2?SD=1XX(3):"FIELD #";SD;": ";F$(SD):::#0 ?hB Define a Report B:::X=12$;:=1:3CO$="X"RT=0:"3CO$<>"Y"co$<>"N"13040'31002::CO$;:(3UU$,FC,1)=CO$,363:"UPDATE ";:35030@3P=0G=0 J311070:335300:13120: Select Output Device ,:1,2480,24::PT$=""PT$=".SILENTYPE",:"OUTPUTHICH TO DELETE :";:"/27000:28000:29000:P1=-1&/DO=6:60060:2 Update File Routine 2::UU$=SP$2FC=1XX(3):rt=2:1002:2=24:=1::"Update this Field (Y/N X=EXIT) ?";::CO$3CO$>"Z"CO$=CO$)-32)!3"NXY",CO$)<>0CO)\+3f+=24:=1:"IS THIS CORRECT (Y/N X=EXIT) ";:CO$i+CO$>"Z"CO$=CO$)-32)!k+"NXY",CO$)<>0CO$;:=1:p+CO$="X"z+CO$<>"Y"11070+RT=1:FC=UF:1002+RP=G:28100:42000+ . Delete Record Routine *.:=24::"ENTER WP1=-1>+::FC=1XX(3)?K+FC=XX(0)UU$,FC,1)="N"RT=2:1002:G$(FC);:RT=1:11100AL+UU$,FC,1)="Y"=24:=1::"CURRENT -> ";G$(FC),1,50);:M+RT=1:1002N+=24:=1:SP$,1,70);=R+G$(FC)=SP$,XX(FC+3))RT=2:1002:F$(FC):G$(FC)=F$(FC Y OR N";:9950 'G$="":FC=0::UF=0:XX=:1000' File Look Up Routine *.':=24::"ENTER WHICH TO LOOKUP :";:8'27000:28000:29000:"* Update a Record Routine *+:=24::"ENTER WHICH TO UPDATE :";:* +27000:UU$=SP$:28000:29000::(RT=0)(FC"Z"TM$=TM$)-32)&TM$="N"100&TM$<>"Y"" PLEASE ANSWER"ELSUDIFXCMP",AN$)=0310V@"ELSUDIFXCMP",AN$)1000,10000,35025,11000,12000,330,13000,340,56000,17000,17500E235 J32000T41150::"*** Done ***":  Data Entry For Fields :D=0:X=2::20000 FC=FC+1EI=FC:40140::(EM>0)1002ecords"&=1:"F - Update Any/All Records"&=1:"S - Scan/Modify All Records""=1:"X - Exit Program"''=1:"I - Initialize/Fix Data File")>3:"Please press the letter corresponding to your choice."#6AN$:AN$>"Z"AN$=AN$)-32) ;=5::"DATA ENTRY";:=44::"REPORTING"::%=40:"M - Make a Report Format";=1:"E - Enter Data"=40:"P - Print a Report";% =1:"L - Look Up Single Records"%=1:"U - Update Single Records"%=1:"D - Delete Single R File Field Sizes /IN(5,2),N$(5):LN=XX(1)))+2:LN=4LN=51N$(2)=F$:FL=2:FF=1:41130: OPEN FILE & INDEX Main Selection Menu +I=1XX(3):G$(I)="":I:FC=0:UF=0:G$="" :RT=04=(22):"PRODUCED BY Quick & Easy Data Master":HB INPUT"Page Subtotals (Y/N default=N) ";pn$:IF pn$="" THEN pn$="N" Bpn(3)=0:pn$="Y"pn(3)=1GB INPUT"Report Totals (Y/N default=N) ";pn$:IF pn$="" THEN pn$="N"Bpn(4)=0:pn$="Y"pn(4)=10C::"WHAT TO PRINT"::*:CHD$(WD(0)+1)=""PN$="FL#"+WD(0)+1)'DCHD$(WD(0)+1)<>""PN$=HD$(WD(0)+1)zbC"Enter data to print #";wd(0)+1;" (999 to END default=";pn$;") ";:"";hd$(wd(0)+1):hd$(wd(0)+1)=""hd$(wd(0)+1)=pn$FeCHD$(WD(0)+1)="":"YOU MUST ENTER SOMETHING TO PRINT!"::17290xgCvl=vCD=DD(1):30220:CD$=CD$+B$:E=0: vB$="00"+CD),2):y Alpha Edit Check #6yCD$=""CD$=SP$,1,CD$))@yZZ=1CD$).Jy(CD$,ZZ,1)<="9"CD$,ZZ,1)>="0")E=1Ty:} Initialize File ] }:"INITIALIZE FILE :";::"*** WARNC=CC+1:DD(CC)=XXu:CC<>2E=1:uCD=DD(CC)+17uCD$,DD(CC)+1))<1CD$,DD(CC)+1))>31E=1:uCD$,DD(1)))>3E=1:=uCD=CD$):DD(1)=CD$,DD(1)+1)):DD(2)=CD$,DD(2)+1));uCD$="":30220:CD$=B$+"/":CD=DD(2):30220:CD$=CD$+B$+"/"$CD$,I9+1):CD$=CD$,1,I9)uI9=0CD$=CD$+".":B$="00" uB$=B$+"00",2):CD$=CD$+B$:u Date Edit Check #uCD$=""CD$=SP$,1,CD$))uCD$)<6CD$)>8E=1:uCD$)<1CD$)>12E=1:>uCC=0:XX=CD$)1-1:CD$,XX,1)="/"C,ZZ,1)<"0"CD$,ZZ,1)>"9"CD$,ZZ,1)<>"."CD$,ZZ,1)<>"-"E=1:Xu@]uI1=CD$,"-"):B$=CD$,I1+1):I2=B$,"-"):I1>0I2>0E=1:@buI1=CD$,"."):B$=CD$,I1+1):I2=B$,"."):I1>0I2>0E=1:gu vu30000:I9=CD$,"."):E=1){uI9>0B$=";:AN$:AN$>"Z"AN$=AN$)-32)qAN$="P"16000:29080qAN$<>"Y":q0u Numeric Edit Check '?uE=0:CD$=""CD$=SP$,1,CD$))/DuCD=CD$," "):CD>1CD$=CD$,CD-1):30015IuCD=1CD$=CD$,2):30015NuZZ=1CD$)QSuCD$ >q Hq Display Found Record fqP1=-1pq:22000:20000 qAN$="S"(AN$="A"UP>0)?qF>0=24:=1:"NOT FOUND - THIS IS NEAREST";:=1::29100,q=24:"-PRESS ANY KEY FOR NEXT RECORD-";Qq=23::=23:"IS THIS IT ? (Y=YES,P=PRINT) (0):1002:S$=G$(XX(0)):RT=1:EM>027030iDO=4:60060:P1=-1iRP=S(P1):40000:F=0Gi=24:=1:"NOT FOUND - THIS IS NEAREST";7);:XX=11500::=1::%`m Move F$(x) to G$(x) Array ~mQZ=1XX(3):G$(QZ)=F$(QZ):m Computed Data o use as /VOLUME/FILE ";RP$F#8,RP$:X=09:#8;PN(X): F#8;WD(0):X=0WD(0)'F#8;RC$(X):#8;HD$(X):#8;WD(X)::& N Headers/Titles/Calculations U=23:=1::U:a=23:=1::&xi Look For Record Subroutine ;iRT=1:EM=0:FC=XXD("PN$=CD(VL)),1,WD(WD))DPN$;::LC=PN(2):DZL=LCPN(2)::: E>19'E"Save Report as /VOLUME/FILE ";RP$E#8,RP$:X=09:#8;PN(X):E#8;WD(0):X=0WD(0)'E#8;RC$(X):#8;HD$(X):#8;WD(X):: E>19.E"Report name tG=0#0:D#8,pt$:#8:17600:#0D35300:17560!DLC=1:WD=1WD(0):PN$=HD$(WD)DRC$(WD))=LC17620D:LC=LC+1:17610'DRC$(WD),RC$(WD),"-")+1)));BDvl=hd$(wd),4)):HD$(WD),3)="FL#"PN$=G$(VL),1,WD(WD))2DHD$(WD),3)="CRC$(X),RC$(X+Z):HD$(X),HD$(X+Z):WD(X),WD(X+Z) DRC$(X))=RC$(X+Z))RC$(X),RC$(X),"-")+1))>RC$(X+Z),RC$(X+Z),"-")+1))RC$(X),RC$(X+Z):HD$(X),HD$(X+Z):WD(X),WD(X+Z)*DX,Z::17800\D17900:15000D:"PRINT ";:35030DP=0T OF RANGE"::172705}CRR<=0RR>=PN(1):"ROW OUT OF RANGE"::17270Cwd(0)=wd(0)+1C:>19 C17210-C ********** Sort Line Numbers **********6DZ=WD(0)/2)1-1:13);"Sorting ";z;" "; DX=1WD(0)-ZLDRC$(X))>RC$(X+Z))(0)+1)=PN$)lChd$(wd(0)+1)="999"174008vC"Enter print location on page (R-C) ";rc$(wd(0)+1)HwCRC=RC$(WD(0)+1),"-"):RC=0:"YOU MUST ENTER THE DASH!"::172701yCRR=RC$(WD(0)+1)):CC=RC$(WD(0)+1),RC+1))8{CCC<=0CC>=PN(1):"COLUMN OUhd$(wd(0)+1),4)):HD$(WD(0)+1),3)="FL#"VL>XX(3)VL<=0:HD$(WD(0)+1);" *** OUT OF RANGE ***"::17290iCHD$(WD(0)+1),3)="FL#"HD$(WD(0)+1),3)="CD(""Enter the print width (default=";xx(vl+3);") ";:"";PN$:PN$=""PN$=XX(VL+3))jCWD(WDING ***":::"THIS WILL ERASE ALL PREVIOUS ENTRIES!"H}:"C - CONTINUE INITIALIZATION":"F - FIX INDEX BASED ON DATA FILE"3}::"REFER TO THE MANUAL FOR INFORMATION."::'}"CHOOSE ONE (C,F, ANY FOR MENU) ";((}NN$:NN$:NN$>"Z"NN$=NN$)-32)-}NN$<>"C"AN$<>"F"102}NN$="F"32180+<}"This will take a little while . . . "A}FL=2:N$(FL)=F$:F}do=1:60060(K}#FF,FI$+".DAT",XX(2)+XX(2)/245)+3$P}XX(2)<100XX(1)=100/XX(2))+2S}XX(2)>=100XX(1)=3.Z}#FF,1;0:#FF;XX(1):#FF;0:#G$(FC))=1951130WǻFC=XX(0)G$(XX(0))=""EM$="THE KEY FIELD MUST NOT BE BLANK!":E=1:=1:=24:50000FǻG$(FC))>XX(3+FC)EM$="MAX LENGTH EXCEEDED":E=1:=1:=24:50000#ǻsl(0)>0SL(FC)<6I=FC:40140"ǻSL(0)>0::SL$(FC)=G$(FC):ǿ"ǻFC=P:=HP:SP$,1,EM$));Ú=1:=1::8 Enter Field Data Vǚ=VT:=HT:PP$;:51070jǚ=VT:=HT:PP$~ǻRT=2" ";:::ǻSL(0)>051200 " ";%PE$,XX(FC+3));BP$,XX(FC+3));ǻSL(FC)=0SL(0)>051115/ǃ"";G$(FC):G$(FC)>""A$,".DAT")-1), 43140 #5::5"Enter the file name to use (DEFAULT=";fi$;") ";pe$:pe$<>""fi$=pe$ >15:$P Display Field Entry Error nûBL$="Y"7);*xVP=:HP=:EM=EM$):EM$;:ER$<>"N"/ÁLP=1SC*500::=V$<>"N" \œ431602f:"Enter the volume to use (DEFAULT=";;") ";ppe$:pe$<>""=pe$Au:"Here is a list of existing data files on this volume . ."z:#5,:ž#543160+#5;A$:A$,".DAT")<>0A$=A$,15,15)-A$,".DAT")>0A$,1,3)=>245#FF;OP$:RL=0:OP$=""!`RL=RL+XX(JI+3):OP$=OP$+G$(JI)j:#FF;OP$: select data files 2"PROGRAM NAME : ";F$::"Volume in use : "; "Data file : ";fi$,*:"Use this FILE ? (Y/N default=Y) ";Y$4Y$>"Z"Y$=Y$)-32)HY1,HP):41230B$=B$+SP$,1,HP-B$))JI=1XX(3)"F$(JI)=G$(JI),JI6  Output Record to File !.#FF,RP;G$(XX(0)):RL=0:OP$=""!LJI=1XX(3):JI=XX(0)420907QI=JI:40140:RL+XX(JI+3)=>245#FF;OP$:RL=0:OP$=""+VRL+XX(JI+:60000:#FF,FI$+".DAT",XX(2)+XX(2)/245)+37#FF,1;root(FL):#FF;xx(1):#FF;DR(FF):#FF;xx(0): Close Main Data File HܠDO=3:60000:#FF,1;root(FL):#FF;xx(1):#FF;DR(FF):#FF;xx(0):#FF: LEFT JUSTIFY FIELDS ***$B$)>=HPB$=B$,L=0.F$(JI)=IN$,RL+1,XX(JI+3)):RL=RL+XX(JI+3): Left Justify Field ̜XX(I+3)-G$(I))<=0)֜G$(I)=G$(I)+SP$,XX(I+3)-G$(I))):(JI=1B$)+1-A$)2B$,JI,A$))=A$I9=JI <:I9=0: Open Main Data File 4DO=2FC))>0): Wildcard Routine FC=1XX(3):E=0$E=SL$(FC),"?",E+1):E=037060F$(FC),E,1)="?":37040Đ:"@ Input Record from File ^#FF,RP;F$(XX(0)),IN$:RL=0!rJI=1XX(3):JI=XX(0)40080$|RL+XX(JI+3)=>245#FF;IN$:R:E=1:FC=1XX(3):E=0365505SL(FC)36560,36570,36580,36590,36600,36610,36620Ǝ:ЎE=(SL$(FC)=F$(FC)):ڎE=(SL$(FC)<>F$(FC)):E=(SL$(FC)F$(FC)):E=(SL$(FC)>=F$(FC)): E=(F$(FC),SL$(׉"UDPX",SS$)=035295ډSS$="X"*݉"UDP",SS$)11070,12070,16000:35280߉ST$="S"DO=8:60000:35190 Setup Record Select FC=0:sl(0)=1:*ȌFC=1XX(3):RT=1:1002::SL(0)=0:RT=0Ҍ Record Select Routine '3700000an$<>"S" 29030OЉ=24:=1::"X";::"=EXIT ";::"P";::"=PRINT ";::"U";::"=UPDATE ";5Ӊ:"L";::"=LOOKUP, PRESS ANY KEY TO CONTINUE ";)ՉSS$:SS$>"Z"SS$=SS$)-32):SS$;5։SS$="L"10000:XX=0P1:RT(XX)=1::P=P1:35280ult=A) ";:ST$:ST$:st$=13)st$="A"ۈST$>"Z"ST$=ST$)-32)ST$<>"A"ST$<>"S"35030ꈻST$="A"35140 36000:DDO=7:60000:ROOT(FL)=0 v28030{ST$="S">20Cst$="S"36500:e=0"SEARCHING --> ";::G$(XX(0))::353FF;XX(0):#FFd}AN$<>"I"AN$<>""n}} *** REBUILD INDEX ***8}60960:41130:61120:QZ=1XX(1):NR=QZ:RP=QZ:40000 }ZZ$=F$(XX(0)):KY$=ZZ$:61100}:1" Record Scanning Routine ш::"SCAN ";Nֈ"All or Selected records (A/S defaXX(0)G$(XX(0))="":51100>ǭ:G$(FC)="":I=FCXX(3):G$(FC)="":40140::FC=XX(3):1008 VP=:HP=P Ț=24:=1:"THE SELECT FUNCTIONS ARE ";::"1.";::" = ";::"2.";::"<> ";)ȵ:"3.";::" > ";::"4.";::">= ";Bȵ:"5.";::" < ";::"6.";::"<= ";::"7.";::" CONTAINS";&ȵ:=vp:=hp:"#";:=vp:=hp:sl$:Ȼsl$=13)SL(FC)=0:51250,(sl(fc)=sl$):SL(FC)<1SL(FC)>7512102ȵ:SL(FC);::51085 Copy Records to Files Dڮ:"Enter the file name to copy records to as /Volum,L1;S$:62300"R1>0RQ=R1:#FF,R1;S$:62300 \S$=S$+RQ):DO=4:60000:G=LR(t#FF,G;N$:S$>N$R=RQ:60920:62620L=RQ:608603840:60900:R1=R:L1=L+F=0:L=DR(FF):R=0:60860:60920:DR(FF)=G(G=LR:60840:60900:RP=LL=0:60860RP=RR=0:60920+RP=ROOT(FL)L1>0ROOT(FL)=L1:62180&RP=ROOT(FL)R1>0ROOT(FL)=R1:RP=ROOT(FL)ROOT(FL)=0:"L1>0RQ=L1:#FF:G=R:RT(P)=2:60720lP=0G=0::,P=P-1:G=S(P):RT(P+1)60740,60780:60780 read/write L(G) #FL,(G+1)*2;L:#FL,(G+1)*2;L: read/write R(G) #FL,(G+1)*2+1;R:#FL,(G+1)*2+1;R:"0 delete a record from index G=RP:60R(FF):60840:DR(FF)=L%L=0:R=0:60860:60920:G=OG:62580RP=RQ:42000: rewind alpha index *G=ROOT(FL):P=0:CN=0:ROOT(FL)=0607801060840:L<>0S(P)=G:P=P+1:G=L:RT(P)=1:607205RP>0LR=RPDRP=G:40000:1X60900:R<>0S(P)=G:P=P+1to index hDO=4:60060:F=0F=2:rDR(FF)>060630=|F=0:xx(1)=xx(1)+1:OG=G:G=xx(1):L=0:R=0:60860:60920:G=OGG=0ROOT(FL)=xx(1):60620+#FF,G;N$:S$>N$R=xx(1):60920:60620L=xx(1):60860RP=xx(1):42000:/F=0:OG=G:G=DR(FF):RQ=D:%d#FL,1;root(FL):#FL;xx(1):#FL: search for a record G=ROOT(FL):G1=ROOT(FL):P1=0G=0F=1:G=G1:P1=P1-1:##FF,G;N$:S$=N$F=0:S(P1)=G:7LR=G:G1=G:S$21U ۻP=0G=0FF=FF(3):FL=FF(4):41180:XX=13:XZ(XX),XX(XX)::FF=FF(1):FL=FF(2):% "COPYING --> ";::G$(XX(0)): QG=G:QL=L:QR=R:QP=P.FF=FF(3):FL=FF(4):DO=5:S$=G$(XX(0e/Filename "#FF(1)=1:FF(2)=2:FF(3)=3:FF(4)=4)ڃ"";fj$:fi$,fj$:ff=3:fl=4:N$(FL)=FI$ځXX=010:XZ(XX)=0:2ځxx=03:xz(xx)=xx(xx)::XX(1)=0:32070:41130ځXX=03:XZ(XX),XX(XX):6FF=FF(1):FL=FF(2):FI$,FJ$:41130:"COPY ";:35030$ہXX=0RRRRR`0R`RR 㵩:RRL㵆  ~ RR`BLOCKS FREE: BLOCKS USED: TOTAL BLOCKS: sj]"]\AjiGa@aI[5x<^sě xCxEx5eҥV{}g}gkj̐kIk~^hT}27uejewsHH st\hh Hograms for you. Originally released by Advanced Software Technology. Side One: Boot Disk Side Two: Program Disk Quick and Easy Data Master DISK ID#: 3APL-04 BOOTABLE? Bootable Quick and Easy Data Master allows the user to design programs by setting information prompts, then writes the program (in Business Basic). Includes a "Demo" mode that produces two pr WASHINGTON APPLE PI 12022 Parklawn Drive Rockville, MD. 206852 (301)-984-0300 WAP /// SIG PUBLIC DOMAIN LIBRARY PDS NAME:  #(+036DGPSdgjmp{~  $+147:>ADGLQ\o} 38;>CS`sz #&*2<?B?*13579;=?ACFNWaehmpx $@QVZ_diw|  +069AFMRW]bgjmr `F8`]^F0 ^8` Y[՝ԝϝН  `F`aHc h d f eb``F d bb`̠`̠`  , p ` ` `e bb ̠%`ʥi,WɁ)˭Qi ɠ)QP`xF,X ʝTT(`…ʍLÅˍMPNW)QI)Qi P`)QW`xH) PQn8 h(` p= 1 Z5%Lf bb Ѥ `U ʪi)ITn  <V=ߠF,X0g8 b b g x (`U8  6LxHT ʍRʍSh)ɄJJn8Tx,X ʠʠ ,X0,T0ʬTʠRʠS( <LT UTUVVmTMíNLIJ  Xөхυ L"Y 8 Yi % Lҭ"] ! LL 9_L )'LD- Z)Aa)H LtL< L0LxxVU,X0 L8 (I 6Lt)TIlhIkgj`ȑȥJI  өXѩ ϩ - (]Y L  Aҩ] = ,Z- `)4a)X-qȑ @L L0L 9_L )8'$դԦ OˍMNK` `H <h (L­ F̍mAA?@  "   `(%H (FI  ) (j` `È` ȑ`! (`JI|L_L$[`[`*J%Khh`դ8eԅԥi ՄԐhh, (ih`L)i   HH `TH..TH..TH..THATS ALL, FOLKS!R`RT RT`#RT $(dm);::, 43140 #5::2=10:"MAIL takes about 7-10 minutes to demo."4=10:"SALES takes about 30-40 minutes to demo."?:"Enter the number of the selected demo : ";:ll=-3:24000!pr=pr$):pr<1pr>dm43125b$=dm$(pr)::>>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> " )((8*,;((*,((+)((9/(p((>3  =9 :9 .(+( 8#8# %3(8 ((,+)(%.4$)?((,(103  7  3  5   #(+036DGPSdgjmp{~  $+147:>ADGLQ\o} 38;>CS`sz #&*2<?B?*13579;=?ACFNWaehmpx $@QVZ_diw|  +069AFMRW]bgjmr `F8`]^F0 ^8` Y[՝ԝϝН  `F`aHc h d f eb``F d bb`̠`̠`  , p ` ` `e bb ̠%`ʥi,WɁ)˭Qi ɠ)QP`xF,X ʝTT(`…ʍLÅˍMPNW)QI)Qi P`)QW`xH) PQn8 h(` p= 1 Z5%Lf bb Ѥ `U ʪi)ITn  <V=ߠF,X0g8 b b g x (`U8  6LxHT ʍRʍSh)ɄJJn8Tx,X ʠʠ ,X0,T0ʬTʠRʠS( <LT UTUVVmTMíNLIJ  Xөхυ L"Y 8 Yi % Lҭ"] ! LL 9_L )'LD- Z)Aa)H LtL< L0LxxVU,X0 L8 (I 6Lt)TIlhIkgj`ȑȥJI  өXѩ ϩ - (]Y L  Aҩ] = ,Z- `)4a)X-qȑ @L L0L 9_L )8'$դԦ OˍMNK` `H <h (L­ F̍mAA?@  "   `(%H (FI  ) (j` `È` ȑ`! (`JI|L_L$[`[`*J%Khh`դ8eԅԥi ՄԐhh, (i43140 #5::="Enter the number of the selected demo : ";:ll=-3:24000!pr=pr$):pr<1pr>dm43125b$=dm$(pr)::"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>"""">>6>>***~" "!@?""?$$>>>  @@  >6>6 P"YEEY" > >">>""">>> >""">>">><>""> >>""""  IIII>"""">""">>"">>""> >">> >><$$$$<"""AIII"""""> >>>  00`00**?!%%;??!###?!##??!#?!!###????!9##?!!?!### 001! ##??IIIKKK')))++3?!!!##??!!??!!)+/?!!?##??00?? !!!###?!!##"AAIIKK! !!!!!? ?? @< <6c~66$""""">> >G%tRq  .     > >>@ ? ??? >>>>~B@x????????.333>> >333>!?&>33> 3333 00000633 ++++666666633>33> 6>06>; ++++>3 3333>$? ?pp86>6|~fnl6vf~><~~<`lnf~||f6|<~f|~fnl`<6vfff<<<<<````ff<f66f<<<<<<>~ZZZ>~fff<~f~<>~fv6|~fnl``<~f>><fff~|fff<ZZZ~|f<|>8p`xx``xx>8888866$$~$~$>> >B%$R! *,88888"6">~~`p8>"""> > >>> > >""> >> >>>">> >">">>"> ~~ < <~b0pppppppp"AAAAAA>>6>>***~" "w"w>>$$>>>00@@ !~6>6AAAAAA <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,>!$$$>>< (#21*,*>*>> "2*&" >" ">"  "?8>" """">"""""""< "00>> " REQNUM BUF "CONTROL CONTROL RETURN RETADR GETPARMS TPARMSERROR ROR STATUS STATUS BLDSTRN ,BUF |F GETPARMSca` hhh5h66HH :5HHH) @  hhh g5ȱg6ȱg@ ɀL g eegghI8e556l6m `  hUhVh8 ㅊ eh֭VHUHk`HFB>;:9853/&" NL64Ch5h6h3lh4m 0/L6H5H`g8640'%76,V^dKA;6hWhXhhhQlhRm e Nb YMH YhLSꈭTXHWH`gca` hhh5h66HH :5HHH) @  hhh g5ȱg6ȱg@ ɀL g eegghI8e556l6m `  hUhVh8 ㅊ eh֭VHUHk`HFBhhHHHH l5m6m6  ЙW5X6X6 ` 5`MD32KA;6hWhXhhhQlhRm e Nb YMH YhLSꈭTXHWH`g##6 >?Bi{Ci|) |=! "LL{@?>8(O\ F9 >{i 5|i6) 6|8 L5{ hhhh0 hWhXXL `L5GA3/1.01:7SY CONTROL .&"&""` ,2"2l"><$,22, &""w  0 "2 # ***+&""#"""&&l22, `&< $g""2lg""c***6ccg""< >$>88  !-3>">""w"""""""""""?"  "??""r""w"">""w>**>8c  g"?c6**""w#&*2""w"""""""!!!)."""w1 #Iw"""""w""""c""**6"c""cw"">""> "=TPARMSERROR uROR BUFPNT BMOVESTR REQNUM UUM BLDSTRN DSTRN BUF pia RETURN RETADR  GETPARMSFERROR ?BUFPNT NT DEVINFO DEVINFO MOVESTR FILREAD FILREAD BUF :4 GETRFNM BUFPNT OJNT ERROR ROR DOARRAY eX(1):#FF;0:#FF;XX(0):#FFd}AN$<>"I"AN$<>""n}} *** REBUILD INDEX ***8}60960:41130:61120:QZ=1XX(1):NR=QZ:RP=QZ:40020 }ZZ$=F$(XX(0)):KY$=ZZ$:61100}:15 ******************************************** 5ˆ ** Record S=NN$)-32)-}NN$<>"C"AN$<>"F"102}NN$="F"32180+<}"This will take a little while . . . "A}FL=2:N$(FL)=F$:F}do=1:60060(K}#FF,FI$+".DAT",XX(2)+XX(2)/245)+3$P}XX(2)<100XX(1)=100/XX(2))+2S}XX(2)>=100XX(1)=3.Z}#FF,1;0:#FF;X********************* ] }:"INITIALIZE FILE :";::"*** WARNING ***":::"THIS WILL ERASE ALL PREVIOUS ENTRIES!"H}:"C - CONTINUE INITIALIZATION":"F - FIX INDEX BASED ON DATA FILE")}:"CHOOSE ONE (C,F, ANY FOR MENU) ";((}NN$:NN$:NN$>"Z"NN$******* #6yCD$=""CD$=SP$,1,CD$))@yZZ=1CD$).Jy(CD$,ZZ,1)<="9"CD$,ZZ,1)>="0")E=1Ty:6} ******************************************** 5} ** Initialize File ** 4} ***********************":30220:CD$=B$+"/":CD=DD(2):30220:CD$=CD$+B$+"/"$vCD=DD(1):30220:CD$=CD$+B$:E=0: vB$="00"+CD),2):3y ******************************************** 4"y ** Alpha Edit Check ** :,y ************************************* #(+036DGPSdgjmp{~  $+147:>ADGLQ\o} 38;>CS`sz #&*2<?B?*13579;=?ACFNWaehmpx $@QVZ_diw|  +069AFMRW]bgjmr `F8`]^F0 ^8` Y[՝ԝϝН  `F`aHc h d f eb``F d bb`̠`̠`  , p ` ` `e bb ̠%`ʥi,WɁ)˭Qi ɠ)QP`xF,X ʝTT(`…ʍLÅˍMPNW)QI)Qi P`)QW`xH) PQn8 h(` p= 1 Z5%Lf bb Ѥ `U ʪi)ITn  <V=ߠF,X0g8 b b g x (`U8  6LxHT ʍRʍSh)ɄJJn8Tx,X ʠʠ ,X0,T0ʬTʠRʠS( <LT UTUVVmTMíNLIJ  Xөхυ L"Y 8 Yi % Lҭ"] ! LL 9_L )'LD- Z)Aa)H LtL< L0LxxVU,X0 L8 (I 6Lt)TIlhIkgj`ȑȥJI  өXѩ ϩ - (]Y L  Aҩ] = ,Z- `)4a)X-qȑ @L L0L 9_L )8'$դԦ OˍMNK` `H <h (L­ F̍mAA?@  "   `(%H (FI  ) (j` `È` ȑ`! (`JI|L_L$[`[`*J%Khh`դ8eԅԥi ՄԐhh, (iFILWRITE FILWRITEGETRFNM RTRFNM ERROR ^ROR DOARRAY OARRAY  canning Routine ** 6̈ ******************************************** ш::"SCAN ";Nֈ"All or Selected records (A/S default=A) ";:ST$:ST$:st$=13)st$="A"ۈST$>"Z"ST$=ST$)-32)ST$<>"A"ST$<>"S"35030ꈻST$="A"35140 36000:DDO=7:60000:ROOT(FL)=0 v28030{ST$="S">20Cst$="S"36500:e=0"SEARCHING --> ";::G$(XX(0))::35300an$<>"S" 29030OЉ=24:=1::"X";::"=EXIT ";::"P";::"=PRINT ";::"U";::"=UPDATE ";5Ӊ:"L"fi$=pe$ >15:2P ********************************************6Z ** Display Field Entry Error ** 5d ******************************************** nûBL$="Y"7);*xVP=:HP=:EM=EM$):EM$;:ER$<>"N"/ÁLPre is a list of existing data files on this volume . ."z:#5,:ž#543160+#5;A$:A$,".DAT")<>0A$=A$,15,15)-A$,".DAT")>0A$,1,A$,".DAT")-1), 43140 #5::5"Enter the file name to use (DEFAULT=";fi$;") ";pe$:pe$<>""PROGRAM NAME : ";F$::"Volume in use : "; "Data file : ";fi$,*:"Use this FILE ? (Y/N default=Y) ";Y$4Y$>"Z"Y$=Y$)-32)HY$<>"N" \œ431602f:"Enter the volume to use (DEFAULT=";;") ";ppe$:pe$<>""=pe$Au:"He************** !.#FF,RP;G$(XX(0)):RL=0:OP$=""!LJI=1XX(3):JI=XX(0)420907QI=JI:40140:RL+XX(JI+3)=>245#FF;OP$:RL=0:OP$=""+VRL+XX(JI+3)=>245#FF;OP$:RL=0:OP$=""!`RL=RL+XX(JI+3):OP$=OP$+G$(JI)j:#FF;OP$: select data files 2***$B$)>=HPB$=B$,1,HP):41230B$=B$+SP$,1,HP-B$))JI=1XX(3)"F$(JI)=G$(JI),JI65 ******************************************** 3 ** Output Record to File ** 4$ ****************************** ******************************************** 6Ƞ ** Close Main Data File ** 4Ҡ ******************************************** HܠDO=3:60000:#FF,1;root(FL):#FF;xx(1):#FF;DR(FF):#FF;xx(0):#FF: LEFT JUSTIFY FIELDS ********************************* 4 ** Open Main Data File ** : ******************************************** 4DO=2:60000:#FF,FI$+".DAT",XX(2)+XX(2)/245)+37#FF,1;root(FL):#FF;xx(1):#FF;DR(FF):#FF;xx(0):5 Left Justify Field ** 7œ ******************************************** ̜XX(I+3)-G$(I))<=0)֜G$(I)=G$(I)+SP$,XX(I+3)-G$(I))):(JI=1B$)+1-A$)$2B$,JI,A$))=A$I9=JI:41040 <:I9=0:6 ********************************************** ^#FF,RP;F$(XX(0)),IN$:RL=0!rJI=1XX(3):JI=XX(0)40080$|RL+XX(JI+3)=>245#FF;IN$:RL=0.F$(JI)=IN$,RL+1,XX(JI+3)):RL=RL+XX(JI+3):5 ******************************************** 5 ** ******************************************** FC=1XX(3):E=0$E=SL$(FC),"?",E+1):E=037060F$(FC),E,1)="?":37040Đ:5@ ******************************************** 3J ** Input Record from File ** 9T *********L$(FC)<>F$(FC)):E=(SL$(FC)F$(FC)):E=(SL$(FC)>=F$(FC)): E=(F$(FC),SL$(FC))>0):5 ******************************************** 5 ** Wildcard Routine ** 5 ******************** 3 ** Record Select Routine ** 5 ******************************************** '37000:E=1:FC=1XX(3):E=0365505SL(FC)36560,36570,36580,36590,36600,36610,36620Ǝ:ЎE=(SL$(FC)=F$(FC)):ڎE=(S1905 ******************************************** 6 ** Setup Record Select ** 3 ******************************************** FC=0:sl(0)=1:*ȌFC=1XX(3):RT=1:1002::SL(0)=0:RT=0Ҍ3 ************************";::"=LOOKUP, PRESS ANY KEY TO CONTINUE ";)ՉSS$:SS$>"Z"SS$=SS$)-32):SS$;5։SS$="L"10000:XX=0P1:RT(XX)=1::P=P1:35280׉"UDPX",SS$)=035295ډSS$="X"*݉"UDP",SS$)11070,12070,16000:35280߉ST$="S"DO=8:60000:35=1SC*500::=VP:=HP:SP$,1,EM$));Ú=1:=1::78 ******************************************** 8B ** Enter Field Data ** 7L ******************************************** Vǚ=VT:=HT:PP$;:51070jǚ=VT: