8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL L? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8RLnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!) >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@LBIGDISK2٥!' &PRODOS:! 2,BASIC.SYSTEM'(B& ! Ҩ'STARTUP<,٥"!9CLOCKPATCHSW9!`= CLOCKTESTT9!8FPCLKTSTUU99%FILERV3d;!fCOLORTESTY>! A +EXER.SYSTEM;! A'CONVERT*PA ! aFPCLKTEST2zAAPLOTBLOCKSGF2 F2 PERMCOMB<"< NIBBLE.PROGRAMS<1< MACHIDAAEXAMPLESC2 C. DIFFZH%H%PAT[1IICAT.DATER\I!I#FTP^"%%#APPLEWORKSaTT C! $ " " &#M8nf $ ) L! " " &J, )7(P0  ( @p !"0 *%"0"" &/) )"" &ЭL!)0I0 (Щ ߍ )f 8'  )ɀ)4,- U JNT)  !N)Gi/ "4 "" " " iL X%!L!ΠΠҠ`  !"#$"7"Y"/"ll"*# HQ$WON!-PB}OBiB ,m# m# J Qڨ)̰n]e мȱ ; ̀𩠙< iO P F V >Z SY ɘL` X _ [ V7 c L '0%O '8O JmO * ʈ0  0ŠϠĠ͢Š͠͠ϠŠŠϠĠخ͠ ͍B B(8`;YYZLYLYLY뿩 8!@8` MNЩUMܩ  L 5   8 0 8 `0 / x X$$%&%0`ŠӠЭԠŠҬîʎ1DžϠl&8f ZHH)hh8JhJJJJJ j&Hk&8H) 12 (j21 h!hH h %)Ђ12H)M0 h10200I20h2 |&Ly L($_l&j"L  <8# ȱ)ɀ  )t& ` (Xp< @t& )mt&t&.t&w& Mt&i  ``rȱȱȱȱ0]cȱeem(ȱ(ȱ((ȱ((ȱ( Y'( ' f'L&`L' 'L' Y' L& Y'L'8ei` ,$`ee` `( '( (` *( ' (`hh8`8`(݁(݉(`}(`e`H)hJJ?(0JJ)` (< ( < *? ( < (? ( < (? ( <*? * **? *? *? ( < *? ( <ꠙ,<ʆ>*=?BC8 é&'112`HB-9F 3"aɿ LLB Nϰ H  @h( L Lj  @`bLJCAB@=?<>=?<>CAB@?A` 1 L  <>` ڢF]PL8i m L   6< L  BLRAM' hLDLآ <B*IBGF08Lé'+8H <(h`@ڍL3،h@ihAiȱ@JJJJq@)@evȱ@Hȱ@Ah@@cee J) LxL LxJiB LxJ) GxNhHHHHL(  ްƠx@BEOD  ް(`( C)CJJJlBJ,~@~@}J@` ߩ%S @ ~`E hhhߺ0 h ߐ# ߐ ߐ ߐ 0 HϭߍLпllllhh8` QSTV'P0ōҍJJJJ ɺi) ɺiLD )?      `l@Hȱ@IױHXATȱH ɯȩ׍̞5H)/@a)_ .0 :A[8@`,뎞׮Б` L` @>_)I38Ypqם`K8`@Nȱ@O@ IiNȽבN)/ȩ/N`@[ WHJjjjhA <'KI؍0JHi 뎑`C8` @ 3N@) d莽 ⭺i`0 v0GF #0 W,0 ).H hȑNWȮّNW8`ٍّNθ0NN` G8`F@ 0 e LK8`F GI8`FHGH hGhF܌ բFܽܕF芝ܝ 밶FFGG H܅I mIIHHyHȘI Lܝ` @o@ w@Ю׍_)mי_ʈ@}ȱ@oȱ@y{|rZ[_)7_I0ܢܽ \'Q*ܩu 7pqFG (ST L܅I^ mQIH` } }Y0\F]G Q_HZF[G 밯ZF[G 밠S%܈P" X)Im'܅F(܅G)܍^*܍Q 4 䭐 $H %HFFHGHG 됨`R8`)` QH_` :R(5IHH__Ѝ_@`8 e ͙* ΙQ8`5IF܅G 됾`\܍]^ {8D`F` tlH)HFȍZHG[ $%܍&܍!ܢ8* J8` L ܝJ)I 'ܝF`R8i^F\G]`R5IH3H ( )ȱHθ`Κ8QeHI SBF0Y ٙWٙUFZSʈ {猺`8m0`,0H hi L荸Ƚθhٍ0GF8yאFG  `0 d01 E8`100 v$0ʩGF 밽 谸 谳`12)1`0`Ȏi 0U`)8`θ` )W G JA)H ܝʈh٭0٭)ܝ٭*ܝ٥F٥G٭'ܝ٭(ܝ`) 8ʈ` )0ٝ)i `8`R "ꍜ NمFمG < Μ0 FGL鮑0 ٭٭ٽ8`H8`  , "8`  `ٽJJJJ`H͜hn)NjNjNjN. dH͜ ;٭ *Nۙ۰ڙک `Z8` d# B` . . .8۰*J۩ ٰ`JJJJi LdH8`ͦ ٍ0  ` `ٍyٍiB0H0FG h0`שB5xED0C ް(`(8`ؑ@`M8`8@ؐʈI묒)8 L LةC8`؍)@ i)8zJ _ ؅F L) +&J(b ;FإGؐ/8` ;JHIH ILFFHGI ѭJjHIH;7IؙJJ g3HIHILJKJK`FHIG ( Ȣ؝؈JL)eKM`)` J Jͫ $0 ΚJFJL8`JGBJ a FإG`BH aFإG`H hHB؅F  ؅GxDE؍00C ް(`(8` L7J  G"L H  G 9ؙ` @ P8`B8` X؈_JJJJح}) ) )в|J8` GpF $ ᭔ع+ؠ HH  Jh8` 䮑ٽ ٬ؠ@` ( X )8`)i п` H h)N$% LL L L H  :pJ덯 )@፲NJOK HiKKήή IJί JФ̭JjHFIH HIGxKE ް((H hH h8`8@ȭ@LH쬒8NNO 8 ؍JL`RήʱLN.MOMEKP/MEKήLML-M O,p莭eNNO(`JNKOL H/  :P L8 gؑJ`L@ȱ@ `@Nȱ@O`؝}I轆ؐ` ~ؽ؝ ~ = ~؝؈` ` H  hh)N@ X; L  H$ )bJ s ) H LhL ) 8  )حJjIHIH؊  )PLEήʱNLMOMEKP%MEKήL< O,  PeNNO f(` R  F 8AJHIHI؊ HIHI`  ;` 8A H ع H ؙ؊ؠIhHIhH  iع `   عiعi` )؍0CGHFHBFG ުhFhG`@5͔ M @Bi ׭` &. J#ع؍0 v讑)`L@. i 8`L L )ܹ0 )p )@ )  ؝X0ZF[G 밝 \]Z[FG 嬒؍r؍s؝t ؝o _) _ )حYͦ `H@h`h``N8`  ) X⬒Ȣ؝@ݪ@ʈLf &KIJHȢݪ)Jn 8  ؍ ؍ xH8 ع)JJJJ Ȣ؝I؈ Hh(8H X &h(8Hh(`ؑ@`@ȱ@ ` B@8Z_ ~鮑ٍٍٍHٍ~8rhs_JJJJ_ )_@` %I -}) 0@_)N8` @LL =@ KȹP8` K@J5 s9X(K sXXK تKo`V8`no` < on sI9XX`)HJJJh`OeNeO࿰ s9XАO`@ȭ@` ON YNJKO`HHHHхhhhhILhH),dx8 (8`@Ae f!55s+aIJK,-NOPQRSuHUSTON!' @   !"#$Ԡ͠ˠĠԠLL`BLLޢޢޢޢޢޢޢޢޢޢޢޢޢޢޢCOPR. APPLE,1983LM Mh@8nЍLޭ 0J @,,L:,LP׽8H  ): e: y8鰕:Jjjj<)yאi8i;i(*=>hPם8`;Zx3QTTSRWVUHEVhEhH)IWHPHHHAHHHLaVEWLӿ ְ& .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Ӧ>` Ր+>*L o % ԽYӍZӭoӝY 3Ѡ шNZ`rZLkӭZӍq8r7IZӐiZkӐk 8 ѹs ӭq ѹ| kн Z)*>>` @ $(,048<@DHLPTX\`dh 0ުlptx| 0($ p,&"op8`kkV꽌ɪɖxlӽ*kӽ-kәmMlӈ 꽌ɪ`8` ZԍsԍԍԍԥDEԌ8TԌ8WpԌqԠ 7I꽌ɪ꽌ɭ蠪:љVE:8`]ѾV]H)]ѾV]ҙ)]ѾT]ҙ)] >8hUD` ԝY`> Hh݌(`HCJJJJ)*h`8LխӅ:HhHh Ո թ թ ՘VYҪҦ>:Y)Ң`;R?AJ;<ȰY)Ң`Y?)Ң`ȐҰ ;HhHh=Ң`Hh `Hh`DEiȍ0֌18V%֌&8V֌֠)HV)hH)hHIhդD?DRIDQD)҅; ?JDQD]ՎՎՎ`MY pӭY)p  ӭp`C)`BFGV 8`` XʩXύX X A %  % ɍNH hɛɘɉɈ $ Lc :Lcې)ɮ۰ɺ'Ɲ Lc  : X i % $ɛ$ɘɉ ɈL :Lɍ)ې)ɮ۰ɺH h 'ĝL  LL L)'L L L'L  (L(L $ʩ $$ $L `ީ %  &@DEF   %LҠؠӠ΢ϠԩҠŠƠԠԠŠӢɯϠҠůȠԠĠ ƠϠ  > I! & b S@ G d!L  / `~ ~~`8  ` 80(J%)He߅heJXo` X L) `JJJ`N[\N R  `LPP o` s! " {" "`"}~% X "3  !N~ 4 `ViVWȱV(8J 3T J '$ 3T~`ZN .NZ mNN썹NNmNNLG ASTARTUP$#   / XXύX?klmnÍoL) "6L'?"(0`6708" = ***)<JJH !h穖tp% ;"Z/݀>">"' 1" 7"5).莀/ ;" " 6" >" 1"6"$ "g"" !"""""IzL&()*+,-./0123456789:YL 8!9 詍` "  à4"/pŠϠŠà͠ӠàԠŬH06172839h` v97L75v^a ?/( va?LLLɍ$?`?a ɍɥAH93827160hH46576879h`,C bL ɍ b w,S0 @ lLޭBDEF޾ p ޾ p($ذ v (0 ( L?ԦʚLeةީa s  lL b,FLg,DL,C0$3 >@ Ɉ 3ɾꩈL(3ɾ;Ƀ B94 l% bʽ  ՚,S` H E$݅3`(l8L3LX>(Ƀ,`3,G0]ɾ g` H`پ_پ p _پ׾`>( p۾m׾) W)ʩ@`ɾ>(O puȾ ɾ-O ]c־Jjjj `O>0O l POپھ p H־Ǿh۰8L־Jjjjɾ)Ⱦ8 ѱ OLӜ ĤLLX>(F`־ؾپھ׾` bɄ KDEF vLl v lL bKɍKL?` w  vLl@3 @LtJ)s@J b  l`a?sa?,E30ɍФ3 E3HD F3 Ʉ%h3 bM E  lLthɍLL3`3,A0s0% Ipn DpnI:L ؅303L8933LΞAAJL ةޘг uv $ 8LƞaЌ>?@`>?@`B8` K  춼LK ҟ ҟ ( KK`HJJJJ8`HK)` #hhLJپھ pHJh` D!hgt}~p `~t}p8n~ni}tpi~~tso8pinii>j?k̈́>~|p|Ii||̈́ l - `>i>?Ek?!>Q>>>̀ `` \> ̀ `e>>?́?>?Emn(>e>ȱ>e?>Q>ؠ> ie>>?`|;}=:<~:<=;`||m};>:8o>oȑ>ppȑ>> :op`G DKpnG @p;G=po:i>?Ek?>Q>> L> \/ e>>?́?ޱ>ȥj>>m>` _m8injkiljo풼S 鸍긍$I2 U)VJ зT)`l8`a HbIJhjǾȾɾ p٭b=aIe f`8` P־ǾҾ,G0C f=W)_``\"׾پӾؾھ pD`־ǾY׾ؾOW)ݩȾɾʾ pD`8`W)CB) 5W) =)W)@! pZ}ȾȾ󰹩 p` ־ǾҾ,G 8`׾ؾ f p vۥs׾tؾE`  ( 8о(־Ǿ,G 8`_`W)H־Jjjjh p̭ fLᶢǾ ת..8 ۭ (8mȾȾmɾɾʾiʾ` Lpl8l:/,s̝sƬƀ#(ZZV4G_0=( A P FjL\5p-e9ABSAVERIFYBLOADELETEBYECATALOGOPENWRITEXECREATEFRESTORENAMEBRUNLOCKCHAIN#FLUSHREADPOSITIONOMONPR#PREFIXCLOSEAPPEND6D(!쫂8ֵ#ح#׮2}q :IC@@ -!S    !C- !ABELSDFRV@@ !$(19@EüϠž(+@ABCDEFGHIKLMNPSV     T[fouu~ՠٯ* PWN*]ĿNTz @n6VC/+A>@I5gN Oz @n[Dz @nd0,~z @`$仫@v$⩔,C[B?I>孓`仫6VtCicQĿUKqtVt Nʮq$6,⨁ K6, VtI=v!gNVt Vt  lg~TLLwLLL) `8` ԠŬLLdD$(4):INSLOT$(7)2iD$"BRUN CLOCKPATCH"qnFALSE0:TRUE1:APPLEIIEFALSE:L$"LANGUAGE CARD":U$"USED"|x(21)1860252025102520BL$" " S1$"***************************************"; S2$"* *"m MO$"???JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC"s S1$:S2$ "* SYSTEM DATE AND TIME UTILITY *" S2$:S1$ 10   - READ SYSTEM DATE   "DD(49040);=>?@ABCDEFGHIJKLMNOPQR((49040)32)32' ,YY((49041)2)O 6MM((49041)YY2)8((49040)32)g @MM$(MO$,MM31,3)o J T - READ SYSTEM TIME ^ hMI(49042) rHH(49043) |  - CONVERT 24 HOURS TO 12  HH11PM1 HH12HHHH12 HH0HH12= " THE CURRENT SETTINGS ARE:"E :N  m  - PRINT DATE AND TIME u  " DATE: "; DD0ĺ"":560 DD10ĺ"0"; DD;"-"; MM$;"-"; YY10ĺ"0"; &YY 0 :" TIME: ";; DHH12MI0DD0ĺ"":650L NHH10ĺ"0";Y XHH;":";j bMI10ĺ"0";s lMI; vPM1ĺ" PM" PM0ĺ" AM" 18 " UPDATE SYSTEM DATE AND TIME? Y/N "; A$ 18:2:BL$ A$"N"A$"n"İ2390:1610 12:3 " ENTER DATE: DD-MMM-YY";;  U  -READ DAY INTO DD]  p 20:"DD";:20 A$:(A$"0")(A$"3")750 DD(A$):A$; A$:(A$"0")(A$"9")750 DDDD10(A$):A$; DD31DD1750 * 4 GET MONTH INTO M1$> (H(A$)27700KR23:"MMM";:23:COUNT1:M1$""l\A$:(A$)96A$((A$)32)fM1$M1$A$::MM4pM1$(MO$,MM,COUNT)ī910zMMMM3:MM39ī880840A$;:COUNTCOUNT1:COUNT4ī860MM(MM1)3  -READ YEAR INTO YY 1(A$)27700D27:"YY";:27cA$:(A$"0")(A$"9")960uYY(A$):A$;A$:(A$"0")(A$"9")960YYYY10(A$):A$  -REPEAT UNTIL CORRECT 18:" CORRECT? Y/N ";$A$.18:2:BL$.8A$"N"A$"n"700BB13:8:" "gL15:8:"ENTER TIME: HH:MM AM";oV ` -READ HOUR INTO HHj t20:"HH";:20~A$:(A$"0")(A$"1")1140HH(A$):A$;A$:(A$"0")(A$"9")1140HH10HH(A$):A$;#HH12HH11140+ G -READ MINUTE INTO MIO b(A$)271100u23:"MM";:23A$:(A$"0")(A$"5")1230MI(A$):A$;A$:(A$"0")(A$"9")1230MI10MI(A$):A$; MI591230  -GET AM OR PM( '2(A$)271100/<27{FA$:(A$"A")(A$"a")(A$"P")(A$"p")(A$" ")(A$(13))1330P(A$"P")(A$"p")ĺ"P";Z d -REPEAT UNTIL CORRECTn x18:2:" CORRECT? Y/N ";P$18:2:BL$$(P$"N")(P$"n")1450.1090B15:8:" "J e -UPDATE SYSTEM DATEm 49041,YY2(MM7)MM7Ĺ49040,(MM8)32DDMM8Ĺ49040,MM32DD  -UPDATE SYSTEM TIME (24 HOUR CLOCK) HH12HH0#A$"P"A$"p"HHHH12;"49043,HH:49042,MIm,:18:" SYSTEM DATE AND TIME UPDATED":6" (DOES NOT SET CLOCK/CALENDAR CARDS)"@2390J2520T2520^ SLOTS h r MARK ALL SLOTS AS UNUSED| MARK USED SLOTS AS USED .SLOTS(49049):V128<I701SINSLOT$(I)"EMPTY"}SLOTSVINSLOT$(I)U$:SLOTSSLOTSVVV2I  FIND SILENTYPE AND THUNDERCLOCK SLOT17SADDR16384256SLOT@(SADDR23)201(SADDR55)207(SADDR76)234INSLOT$(SLOT)"SILENTYPE":1850(SADDR)8(SADDR1)120(SADDR2)40INSLOT$(SLOT)"CLOCK":1850(SADDR5)24(SADDR7)56INSLOT$(SLOT)"COMMUNICATIONS CARD":1850(SADDR5)56(SADDR7)24INSLOT$(SLOT)"SERIAL CARD"e&(SADDR11)1ĭ((SADDR12)16)10INSLOT$(SLOT)ID$(((SADDR12)16)):18500(SADDR5)72(SADDR7)72INSLOT$(SLOT)"PARALLEL CARD":SLOT:1860:1950D N IDENTIFY MACHINE TYPEX bMACHID(49048):8lMACHID192Ė15:TI$"APPLE ///":MACHIDMACHID192:1940vMACHID128Ė15:TI$"Apple //e":MACHIDMACHID128:APPLEIIETRUE:1940MACHID64Ė14:TI$"APPLE ][ PLUS":MACHIDMACHID64:194016:TI$"APPLE ]["2440  GET NAME OF BOOT DISK> PREFIX RETURNS NAME OF LAST ACCESSED DISKE VD$;"PREFIX""";PREFIX$:"STARTUP DISK: ";PREFIX$  DETERMINE MEMORY SIZE :"YOUR ";TI$;" HAS:"::5  MACHID48ĺ"128K ";:MACHIDMACHID48:INSLOT$(0)L$:2090HMACHID32ĺ"64K ";:MACHIDMACHID32:INSLOT$(0)L$:2090x MACHID16ĺ"48K ";:MACHIDMACHID16:2090*"OF RANDOM ACCESS MEMORY"4:5:(57344)76ĺ"APPLESOFT IN ROM"::2120>"INTEGER BASIC IN ROM":H R FOR EACH DISK DEVICE%\ IDENTIFY DRIVE TYPE,f HpJ4894648946(48945)wzDEVICE(J):DEVICE128DEVICEDEVICE128SLOT7DEVICE16SLOTDEVICEDEVICE(16SLOT):2220SLOTSLOT1:SLOT021902250DEVICE4INSLOT$(SLOT)"PROFILE"+DEVICE0INSLOT$(SLOT)"DISK DRIVE"ZDEVICE13INSLOT$(SLOT)"UNIFILE/DUOFILE"aJh  LOOK FOR 80-COLUMN CARD MACHID8MACHIDMACHID8MACHID4MACHIDMACHID4 MACHID2INSLOT$(3)"80-COLUMN CARD"  PRINT SLOT ASSIGNMENTS#$ 5. IAPPLEIIE7[8 " SLOT ";I;": ";INSLOT$(I):IeB 2390oL 2520V 23:" PRESS RETURN TO DISPLAY MAIN MENU ";:R$` R$" "R$"~"ĺR$;j R$(13)ĺ(7):2390t ~ " ":22:120 ' S1$"**************************************"X S2$"* *"f S1$:S2$ "* DISPLAY SLOT ASSIGNMENTS *" S2$:S1$  (4);"PREFIX":PR$ 2940 D$(4):IN6:UP11:C$" " 2750 8::"YOUR OPTIONS ARE:"> IN:UP:"? - TUTOR: PRODOS EXPLANATION"l IN:UP2:"F - PRODOS FILER (UTILITIES)" IN:UP4:"C - DOS <-> PRODOS CONVERSION" IN:UP6:"S - DISPLAY SLOT ASSIGNMENTS"( IN:UP8:"T - DISPLAY/SET TIME" 2 IN:UP10:"B - APPLESOFT BASIC"\ < 22::"PLEASE SELECT ONE OF THE ABOVE ";:32:C$;:32:P${ F P$" "P$"~"C$P$:C$; P P$"F"P$"f"ĺD$;"-FILER" Z P$"C"P$"c"ĺD$;"-CONVERT" d P$"S"P$"s"ī1620 n P$"T"P$"t"ī160!x P$"?"İ3220:2520 ! P$"B"P$"b"2740W! 216,0::"PRODOS 1.0 COPYRIGHT APPLE, 1983"! 10:" TO RETURN TO MENU, TYPE"! :" 'RUN STARTUP'"! :" AND PRESS RETURN."::22::! (7);:2620! " S1$"***************************************"Q" S2$"* *"_" S1$:S2$" "* PRODOS USER'S DISK *"" S2$" "* COPYRIGHT APPLE COMPUTER, INC. 1983 *"" S2$:S1$" ID$(0)"USED"" ID$(1)"PRINTER"#" ID$(2)"JOYSTICK"'#, ID$(3)"I/O CARD":#6 ID$(4)"MODEM"R#@ ID$(5)"AUDIO CARD"e#J ID$(6)"CLOCK"#T ID$(7)"MASS STORAGE"#^ ID$(8)"80-COLUMN CARD"#h ID$(9)"NETWORK CARD"#r #| 19:1:958:I139:"-";::$ (7);"FILE OR PATH NOT FOUND":"INSERT ";PR$;" WITH ";6$ P$"F"P$"f"ĺ"FILER"T$ P$"C"P$"c"ĺ"CONVERT"_$ 1:22$ :"PRESS RETURN TO TRY AGAIN,":" OR ESC FOR THE MENU ";$ R$:R$" "R$"~"ĺR$;$ (R$)27Ģ19:1:958:2550$ R$(13)ĺ(7);:2980% 2640?% 24:NA$"Press RETURN to continue, ESC to exit. ":3140]% KY(16384):KY1283050k% 16368,0{% KY141ė:% KY155ġ:% (7);:3050% KY(16384):KY1283100%& 16368,0%0 KY141ė:%: (7);:3100&D UPSHIFT IF NEEDED&N APPLEIIETRUEĺNA$;:;&X I1(NA$):N$(NA$,I,1)X&b (N$)123(N$)963190k&l N$((N$)32)t&v N$;z& & & : TUTOR STARTS HERE& 2520& NA$" Tutor: the ProDOS Operating System ":3140:& NA$" ":3140:/' NA$"You are using ProDOS--the Professional ":3140:i' NA$"Disk Operating System for the Apple II ":3140:' NA$"series of computers. At your command, ":3140:' NA$"ProDOS copies programs, files, or whole":3140:( NA$"disks; tells you what files are on a ":3140:O( NA$"disk; sends information to printers and":3140:( NA$"other devices; prepares disks for use; ":3140:( NA$"stores (writes) information on disks; ":3140:( NA$"and retrieves (reads) information from ":3140:) NA$"disks. ":3140:+) NA$" ":3140:b)* NA$"ProDOS features high-speed read and ":3140:)4 NA$"write operations and a multi-level file":3140:)> NA$"structure. It works with a variety of ":3140:*H NA$"disk drives, including the ProFile. ":3140:"*R NA$" ":3140:\*\ NA$"Application programs, working together ":3140:*f NA$"with ProDOS, let you write reports, use":3140:*p NA$"data bases and electronic spreadsheets,":3140:+z NA$"draw graphs, play games, and so on. ":3140:+ 3040L+ NA$" Tutor: the ProDOS Operating System ":3140:`+ NA$" ":3140:+ NA$"An operating system disk is packed with":3140:+ NA$"every Apple disk controller. The BASIC":3140:, NA$"programming language and many ":3140:;, NA$"application programs use operating ":3140:s, NA$"system commands, and they require an ":3140:, NA$"operating system to format disks ":3140:, NA$"(prepare them for use). ":3140:, NA$" ":3140:- NA$"Operating systems are not always ":3140:Q- NA$"compatible with one another. Some ":3140:-NA$"programs require disks to be formatted ":3140:-NA$"and copied by an operating system other":3140:-NA$"than ProDOS. In most cases, that other":3140:7.$NA$"operating system is on the program's ":3140:o..NA$"startup disk. If you have a program ":3140:.8NA$"written for DOS 3.3 (another operating ":3140:.BNA$"system for the Apple II series of ":3140:/LNA$"computers), it will be on the disk with":3140:R/VNA$"the program, and will automatically be ":3140:/`NA$"loaded when you start the program. ":3140:/j3040/tNA$" Tutor: the ProDOS Operating System ":3140:/~NA$" ":3140:0NA$"If you tell your computer to read a ":3140:M0NA$"disk that is incompatible with the ":3140:0NA$"operating system that is then in the ":3140:0NA$"computer, an error message (PATH NOT ":3140:0NA$"FOUND and I/O ERROR are two ":3140:!1NA$"possibilities) indicates that the ":3140:Z1NA$"operating system doesn't recognize the":3140:t1NA$"disk. ":3140:1NA$" ":3140:1NA$"You can use the ProDOS Filer's Copy ":3140:1NA$"Volume command to copy entire disks ":3140:/2NA$"(both ProDOS disks and DOS 3.3 disks).":3140:e2NA$"For more information on the Filer, ":3140:2 NA$"select option F from this disk's main ":3140:2NA$"menu, then type ? to select the tutor.":3140:230403(NA$" Tutor: the ProDOS Operating System ":3140:.32NA$" ":3140:f3<NA$"Data and programs can be transferred ":3140:3FNA$"from DOS 3.3 disks to ProDOS disks (and":3140:3PNA$"vice versa). For more information, ":3140:4ZNA$"select option C from this disk's main ":3140:I4dNA$"menu, then type ? to select the tutor.":3140:4nNA$"For details, see the ProDOS User's ":3140:4xNA$"Manual. ":3140:4244NA$" Press RETURN to return to menu.":314043100L``L`:H;H:;: L/`: :):Le`ą``L`aaaQaa:Vah;h: `a `No clock card installed. Could not find clock driver WRITE call. )Clock driver installed. 8H  ): e: y8鰕:; <:*=>h8`Oǩ Ǡ `  T$""(4)"IN#7";A$:A$(13)T$T$A$:30K((4)"IN#0"S2T$d%WXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~NN` N[N\[ZNNγNNHNNN J}N  γN N L5"N  } ` xN wNɛɿ @,NP)ߍN[͵NN NN`N H[]ȱ[^h]"ȱ]"  ` Vi` d!L" i`L ( T u( ; 6 T y ` y `3 ( T T ( (  7`8 ( T b u(  8`6 ( T T ( (  8L`#`G ( T b u(! G ]UJK 9`4 ( T T n ( ( ; 9`F ( T u( ; 1:L#`H ( T U T hZ AU {-  ( Z ; @ S@L#` d!L$ i`M ( W T  a(g ; T , >(襪 |Z , ; Z( O[ E[ʥ T J 'Rд X O[ E[ ; N @L-$`3 ( W #W T  a(` ; O[ T , >( tZ ) Z( E[ , M( t,  X X |Z T J KM X TM m ,   Z( O[ 9[U T XE J#' R 3N @)! WLx% X O[ 9[ ; CL$` S W D T y (`4 ( W T  a(9 ; T , >( |Z QK" ,  Z( O[ E[ ; KD y+L%` I ( W a(! ? T , >(  ( WD u L&`5 ( W a() 7 T , W pZ 9* Z(  D .WL5&`6 ( W #W a(F 7 T , >( tZ ) Z( E[ , M( t,@ (é ( E u Lo&` d!L& i`; ( ( T lZ (` Z ; Y T , Y pZ * Z( tZ ) Z( E[ , Y xZ !* Z( ?[ Z * [( 9[ * 3[ (L&7 ( ( %+ T u[  Y [+ (LU'` s!: S T U T `Z B-  ( Z  ' ' ' (L` L`  Hy 8`!y Mɘ`H bh Z uT T4 J`"# X` X  QK 5( VK 5(` 8`R@` W pZ 9* Z(` (W xZ O* Z( ?[` T lZ ) Z` U T `Z . [0 -  Z(` U T `Z ,  ( Z C T` dZ -  Z(` Y Y Y`  G Y`H Sh S`]Q }TPPVWV_`OO @OO )q H +C<Lp) H +OLQ)H +HhŪhH , ,hЫh O O  `O )  H +,hH RR` ' . H0 [0L- QXLd- X . E0\Q a0L- . H0 U0 w  . Qq .L .ɮ Qb .L .ɯTP 0K .L . . )ߨ .L .ɍLY/ɛL/Ɉ *.L .ɕL.ɘ .L .ɽɿ h0L . xL-Hڐ)۰h`ɺɰ8``\Q6@$.ʎ\QvPɽɿ 71 ΠQ0 Q\Q` l.` x`\Q ʽvPɯ\QQ8QQ`\Q x` *.Q8`$(L-R;Q3Q\Q@($@\Q ʝvPɯRQ` x`R\QQ| 71@ʝvP `\Q8@$0$ . U0L-$ LB- . [0L-@$PLU-|8`$L/$=\Q QXL~/ X E0R\QRvPvPRL=0$ \Q#  0L.\QvP\QΤR\Q]Q@vP@vP^Q MTL.0\QQL0 vPP@0PvPPL0 ]T _ | |` ET_vP`  @` 069轲Q1͵N\Q 1  .`H$H%H h%h$ "h8` $$$п`$L0$ 0`ŀТ`ɽɿ 0 1` Hɽh h @`$ 2 H@ H9R  KU 27$0e T T F +T= ZLp1 yL X ZL1 bF`+ɀ$ Z b, b8`$ b`F yL yL b hh`P PiPjQʠiiɯ&HRhQL52hiʈHQi8ihԘHihȄ˭RQQ̠QQQ`ef`I 9HLe3 H H 2)0eŠ eƠ!eȱeȩ|eeefȐL3ǐL3L3Ɛ/$0RR 2ΣR H9 H2R HL2e澐濩$ 3 3 L8H$0 bhHRh(` $0ͩԩ@Рe)QQ ȱe QQetNeȱee)!eȱe U`e)ɥfheigh ?40˅eɅ͠gHihgeɠi8`QʆФɈҠτ l4$0 Ф 4$P8`` 4Qɽɿ)gȄτ`8` 4Qɽɿ)g ʆЈL4`8`HHѦ Qɽ"ɿ  88hh`) >Rɯ񪨆̽>Rɠ ^Q=R]Q@^Q=RRVɯKGɀC)>RvP=RuPQ>Rɯ 5uP vP>R=R` 8`8 mQ8e8@`muPQ8 Q8QmuPA`RH Q >Rh^Qɠ>R8̦m=R=R@>R`$8\Qx$>Q 6Kf M L K HX" HM L@) < M H4 U @ l1, Z D V T yL S`FDH yLh 8` yL8` X` < 4 A<Lt8 : LT8LM8( P D1L8 LL;8 :L8 tM G_ MZ >L;8 : LT8LM8b 5L;8 {:L;8 LF4L;8 :g }M jUL8 ZL>8 L_ \bL27 =L/7!I $  b L/7 b` LӐ b G M b Z b L T8 L T8LZL < D1 L  !ZLZLN@#  L) ) 8LT@ :K LD :7 :2 ;- G, M8 0< > < 9LZL  b` < D1 L L  %ZLZLF Ω H bhL< < 4P D1 5 45 M  1ZLZLG N  8LD8`)R`oɯ :a,H)&悩Rȱoɯɠ )a RĂh`h8``8`H Dh ee䕐`䖐ڰٷ`8`yz{ׅՅօۅ܅مڅ  = t< =k|` <` HG` E RG rt RG`8`` yL T``H = =hȱuw 6 =% t;L=٢ p;հ ; S=` ; t;ܥL4=ۥɀ pHЏ שM8` = :ko|`' p;eՅeօ֊ p;L=ekk` k= ik` p;kl` t;ivixuw`膂Ă D  e=QH t;L= k Hkkhkȩkȩkh`kikk8`k8kkk(檩k kekkik` ;L!? };s `Hul }; H pHh  p; pH1 q<# ; ; pH = t<H bh`H bh8`תJ  t;L>L> p;А = :| ko8`` y; = =kȱk ; ~HN t; 5J 9J B> }; FH.k = ?е ? p;8 p; `8` t;ee檆 ;8J`PP IƎv sPQ@PQLZLK FD S@ AU` Nʆ Nǎv ss~ Q~ A QR Q' 6KEQQQQa 񩯙QQ@QPP IƎv s R` X A ` X A Y` 8` y1 IA* M #M A B BH c[ _[h(`BCJJJJ) nmm)`mn 2DE A`lmv s` A 2 Ce 2NRPʊ) eȽSP)eRPRʊ) eȽR)eReeȭeȩÑeȩ'eȩ e#e :B%eȊe +M`B%B pooHȱoh pBHh`h`BFGB mn C B`lm 2 C B Bee +M`))fj` B 2惢Hj8iH jCh EC CLH C uCfhhH uC Cfh EC C` eȊ8je`h8` uCf uCf`eĂ` } e` +M` Cf Cf`e` [Ea E[ yE JEF X EH g[(h7 E5 E JR E" E X FH [[(h NN ` Y` JK L K K K W W >D S` `aiab` MLZL ` TMR5 KM Xŕ $Ŗ 5M Y旰  g[` g[ T` S` QKLD 6KE L K I Æ IĎv s񆒦򆑥8咅呅` 8` [EG EA TMR1 KM yE J) F! E E JR )F HG ` Y S` N```ߦrtqs``߅`ii` E E X8` E E X`LE` )@  ㄂v rJL9F )@  ℂ ㄂v yJ 9J 5JƂ0 E s cF wFܩ`'hh8` F" Eŕ Ŗ`    8` @ ` IE? ; : 9 2eQNe)RP RPRPeȽSP)eRP` `N 2ΑRR) eȹR)ȇRQȑe8` E RGqs! G ~G G rtr`8`` G Y日J ~Grt`jjj``r` G 7I! G8` L H` I IÎv s` I WJ &Hz` I _J &H{` I I I I OJ &Hy`Ȏv s`y =Jʍv s oH`{ EJ` ;v s`ϤyL~HNNN`NNNyL~H``0H) K)O)OhOOOOOOh K)O)O  + )O +` iI iIJJJJȹO)ȹO`O ȹOJ ```PPEPP=PP5PP-PP%PPPPPP PPijʆ`PPPPʆ`NN$NNNN NN` N N NNNN`0)"L}J J)p `OEP FPOO` yJ [K K! rJ [K KR' ` 8` JP RKRDa ـR7 J2 R-NRP!a SP̑Ra ْRE8`` kJ [K K`L[K rJ yJޢ -JŎv s` L :; [K ;)R`0 )p8)p8`a'(` La)ȱa8``a)R& RRȱa RR`8`a,H)pJJJJH h +, h h  `8`NNPPab`csNiȱctN`8` Y Y yL T``P` I Iv s` I I I I I |IĎv s` I!Îv s` Iڹ I J I JŽv s` J %J E E -J rJ -J Ev s` b[baaN N ɠyN NeNgƠ NNNNNNNO OЛ O˛.Oқ6O""$&m'"""#6#U#t####[$"$$%%%-&d&[&&J'[m'   !   &$#&  "              î έӠ 8PdPOOSPRRQPQ^QQ>RQà͠ąÄ¢ R N``&&&8 Ĉ`NɠNNN`sNH) #ShJJJJ ɺitNʩtN`OJ(`(L?S8` iS 5S wS  S`` oS 76`A ` ` ` ~ ``N s!`H  S}h  S `}E `HOOhH h`H}h `H h `_ `&$ [` `PPDPP?-A%@!B RZ S ̽>Rɠ `H h% S`WSOKGC?;7 3 / +    Z `H *[ ThHPO\O ThhOvO`,($    H *[ ThPOݽ\O T`8ODO` Z H[ Z H[ Z H[ Z 8` *[  `# "2!OO x wɍɛ8`` x wɛ` wɍ` x w) ɛ8` `hhhhhh`*]E^O^a^u^^^^^^E^^^^^^^^^^O^E^^^^^^__&_a^E^5_I_[_l____^u^E^__^^^^^^^\]^^^^^^^_``F`n``bb`````aa6aHabbgaabaaabb!bybbbbb c)c5c>cccccc^dd/d^HdHc^)c]dbdidzddddddee$e+e4e>eFeaa`ddddee]aVdcncŧӠӠ͠ӠҠΠԠŠҬƠŠ֠ŠĠΠѠ̠ԠӠà٠ĠŠˠŠҠŭҠŠ͠ŠРԠƠԠà٠̠ԠҠŠĠԠĠ ˠˠŠӠԠҠŠԠΠΠҠþŠԠΠκӠԾϠκþϠԭӠԾϠԺþϠԭҠŠĠӠԾӠԾϠźþϠԭغźנźϠźӠþϠԭנغҠȠŬҠٯΩҠþˠӿٯΩŠǠŠРӠĠӠźĺϠžӍŠŠΠԺҠŠΠԺϠŠΠԺźנŠźӠčӠōӠ̍ԠŠŠō٠ٯΩԠŠˠĠӠԾԠΠˠĠӠԾԠӠĠӠԾǍǍǍǺՠŠԠϠԠŠˍ٠ŠӠčĠˠҺӠĺĠӍˠӠϠԠȺҠŠԺΠԺԠΠԠź͠ҠٍРҠĠҍҠԺˠŠԠĠԠŠҠŭԠԠĠōčččč8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL L? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8RLnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!) >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@LPRO X ~i T X ~i ~i 8U`H} h` ~i` X ~i T X ~i iLzi X ~i T X ~i ~i iLzi X ~iLzi,jQjjjkhlmm ɠ< < < K! r1  68LF(K!i#K!(hhh`HHH|!  68Lu(|!!hhh`HHH}!  68LG) 0  68LG) 2!2!2! 2  68LG)R!R!T!,Y! W2  68LG) 6  68LG)R!L( 6  68LG)L! W2  68LG) 6  68LG)}!hhh`HHH~!  68Lh)~!hhh`HHH 3  68L1* 4  68L1* y5  68L1*R!R!T!+Y! 41 S!S!ȱ 41S!S!R!L) 6  68L1*K!Hh J! W2  68L1* 6  68L1*hhh```HHH `4! ! 68L*,!H! !Q 68! 68L* 47 ! 68L*0H!! `4hhh`HHH! " 68L +!!!!!! `4 ! `4Q 68" 68L + `4 ! `4Q 68" 68L +0H!!hhh`HHH! # 68L\+ 1 # 68L\+ g6 ʤ!H! ! hQ 68# 68hhh`HHH 1 $ 68L+ g6 ˤ!H! ! hQ 68$ 68hhh`HHH `4! & 68L,+ !Q 68& 68L,!! !Q 68& 68L,0! !Q 68& 68L,7!)7!8!9!8!7!7!!! ! ı!Q 68& 68L,)8!H*! h . &!'!ɍ! ! ı!Q 68& 68L,!&!i &!'!i'!&!8&!'!&!8%&!'!&'!! `4hhh`HHH! ( 68L .! !Q 68( 68L .)i'iL,  !!! JJJJ!i!ȱ!ȱ!ȱ ȱ ȱ ȱ"!ȱ#!ȱ$!ȱ%!ȱ) ) ) ) ) ȱ!ȱ!ȱ !ȱ!!i'i `4hhh`HHH! - 68Lc.!! ̬!Q 68- 68Lc.!hhh`HHH! . 68L.!! ̬!Q 68. 68L.!hhh`HHH! / 68L.!! ̬!Q 68/ 68L.!hhh`HHH `4 !ɍ! ! ı!Q 68) 68LR/!! ñ!Q 68) 68LR/ !Q 68) 68 `4hhh`HHH `4 Ʈ!Q 68* 68 `4hhh`H<1 68L/ /88JJh`H9/Y/I) (!m(!h` @HHH / 2 68L0 Y1R!R!T!Y!hhh`HHHN!HO!HT!Y!R! / 3 68L0 R3 3 68L0N! O!1 / 3 68L0R!T!Y! R3ҩ3 68L0hO!hN!hhh`HHH W2 4 68L1! !Q 684 68L1'z 4#4 68hhh`HHHH!! !Q 685 68hhh`HHH LJ188/8hhh`HN!N!Lp1O!N!O!h`HHHK!0 2 4 6 8 2 K!) 0 4 6 ) , - . 4 6 68LQ2 k   W2 6 68LQ2 5 6 68LQ2 )! ȱ ȱ, ȱ- -!LP2, ȱ- -!LP2 R!- . hhh`HHH  7 68L2)I! ~  7 68L2 nI!jII!hhhI!`HHHS! M8 68L3Hȱh W2 8 68L3 6 8 68L3S!S! S!hhh`H(!)!- (!. )!, (!)!(!N!)!O!N!O!(!8z(!)!)!h`HHH S! / 9 68L3 Y1S!ȑȌS!N! O!hhh`HHH 0 : 68LW4^!<  : 68LW4= ]!L!M!J!J! W2 : 68LW4 5 : 68LW4 K!L!(J!L!M!LA4i ^! 􈈌K!LW4K!i#оJ!ВF: 68hhhK!`H H h h`!L48L4-!`HHHT!Y!R!T!Y!R!T!Y! W2 = 68Ls5 5 = 68Ls5R!R!T!ȱY!L4 R!0 ,   = 68Ls5 = 68Ls5  R!8m i hhh`HHH W2 < 68L5 5 < 68L5hhh`3!HHH6! 5!m5!5!6!G6m5!5!6!3!͙!5!͜!6!͜!+3!!5!!6!! !Q 68> 68LA6W6 L@6hhh`H!! ! ! ! !h`(!HHH!!(!!ʘ!!hhh`HHH W2 ? 68L6 6 ? 68L6hhh`4!HHHH4! 5hW6 L7 !Q 68@ 68L.7hhh`HHH !ɍ! ! ı!Q 68A 68L!8 !) !)@ !)  !) !) !!!!!!!!!!!!!!!! !!"!!$!!! !Q 68A 68L!8! ! ! hhh`ԩ p`SW)0پȾھɾ p p RL jÍ E ?ӻ !ҠǠŮŠŪĠϠ ӲϠžՠ>  Ӡggggغ۠ Ġà88  yK IK }OI8Lxf8! :8 sS8 0 sS; S1 sS sS8 IFɍɠM8 88ɿ ɯ8LsfL;L7>L@L?L$;LB ;L.: S ; : ;8 WT% $" S sS GS' sS `͖882`2`% : sS :!! P` : sS : $ f; `%  I 0 f;` ; f;` ;8L.:Lf _S$[  iS`8Hh` 8 ;0$ ;0Η88` : sS :   % ` :8828388 !8 !8L<888~ 8 88 WT8 sS 8 sS =8 IF 8L7>L9H Shɍ8L}<ɱɸ  SL.< )8 !L<~ 8 sS > WT8 sS =8 ,8I IFH Sh(L<ɍ$(ɱɲ  SL< )8 !L= 8 sS >8 ! !L&=~ )jjjjHjjhj912)ͱ9( S8~ 8 L<8L? : sS : A$8 f;` ;8~ [ [8 f;` ;8L9$i8 f;` ;88~ [ [8 f;` ;Γ88L9L9S0 %  / x&6&)ɀ ''ߍ&خS0 X W$'11 58 W$i' W$* Y$+(L W$؄ߠ' Y$ W$ W$ 58$ 8 q$~& !~&}԰y`ɂq%)iLU!莚%t& 7%m0i(m0$ 58 M%ɍ %L%LU!L %ːi) "LG %L j$ W$)0% !L! ! W$L!) W$Ȑ`%0ȱȄ 2"  ! W$LW$$0% `$ "`2H2Ɉ Ɉɘ @ h2 %L;" Y$h2Ɉɘ Y$ ! e"ɕ( p"ɍТꩠ g$A` % M% p"`۰$ɺɮɈɘɍ ɕ8`(Lp"` % M%~&8`ɍ`ɰǰɺi)H h8 q$L" X W$ 7%m0m0 580歿0$ 58 }#% W$ }# 001⍛%1㍜% #%0 j$ a! $ #%  % $`L4L>1( Y$` j$ $ȱ $) W$ j$8 q$ W$% 2$%0ȱȄ( 78 ! W$ W$L$J(8 q$ W$(Ȑ`H) m00i(i$ 58h) N$`$ Y$ g$`l6%LW$H$ Y$hHJJJJ $h) ɺiLY$% W$'譸0歹0 58 M%ɍ $L%% W$ $'譼0歽0 58 M%ɍ $`$ ` %$譺0死0 58 q$ Y$$R'p' 7%m0m0 58 W$`& m&L=%`$(}&)? @(H}&(hɛɑ)`LG L%:HT0:hT0` % %`Ht0ht0` |& 0% 0|&`S0 % e9VuUq W$ W$爱戱U &i Y$)pJJJJ Y$ Y$ Y$ Y$$ Y$) 78LW$HH $hh` ӠΠϠŠĠҠӠΠϠԠϠΠՠúΠռӠΠϠŠǠɬʬˬӺנӬլƠĠ٠Š%'(+.@BCDEFGHIJKLMNPQRSUVWZ̠̠Ġ̠͠ĠҠԠԠŠ̠ɯϠҠϠŠĠˠŭĠˠĠĠŠخϮƠӠĠŠϮ٠ԠĠŠԠĠŠԠĠŠŠŠŠ̠Š٠̠ŠŠĠŠŠƠĠΠԠƠŠŠӠҠŠӠΠ٠ĠԠӠŠĠ̠ Š̠ĠҠӠŠŠŠŠΠҠŠðŠñ٠òŠóԠŠϠôԠŠϠõΠŠöԠؠ÷ԠؠøΠùŠĠ̠Ԡ͠٠Ҡ­ŠíŠĭȠŭԠˠƭԠˠİԠƠıԠƠIJԠƠijԠƠĠˠŠˠѠԠҠԠŠӠŠŠ٠ŠŠŠŠŠŠŠנŠĠŠĠŠӠĠ̠ĠԠҠҠϠŠҠŠˠŠҠԠԠҠԠΠĠƠŠˠ " $ *. 9>BEIME>RB>E>REEE[EE_EEBE9>b9>ba.a.. a..a.'/àƠɠŠŠՠҠҠ̠àƠɠàҠŠŠŠԠƠɠŠŠŠՠҠ̠àӠŠŠŠ̠͠ҠԠĺҠՠҠƠɠàŠŠՠ&&&&&';'q'*,-----------------------..i/.....*.....1.7.;.W.\.;.;.;.C.C.H.H.M.M.Q.Q. g4ۅ܅ݩ3].)߭^. `1L1H) f3 3ߩ$$h W$ W$ 3$00 58 W$L1$ }#' W$$00 58 ` 33$0L1 33$$0L1 % M%H% W$ $ 33$00$hɕIEɈD@ɋ?;Ɋ:6ɾ5ɮ1ɬ0ɼ,ɍ*ɰǰɺiLm2Ls2L2L2L2L2L2L2L:3iߐL2P `1L1,08߰L2P `1L1)iL2)8)eL1 Ls2)ߩ0L2 3 %L1),07 ߱ݤۙ0ߙ0ޙ0ۥ)ۥܤ߱)eL1߱)e 3Ls2"ۥ)ۨ0߹0޹0ߑ `1Lc3 %L1)JJJm3% $ ~$ ~$ Y$`ߨ) 3$3)JJJm3%  ~$ -&ɠ(`HJJJ)0JL39Xh8`h` !"#$%&'/'/[.~4'}4|4{4 g4 4 ;4 4 $`00'% W$ 58ɛɍ`8` j$ W$ j$(`Ġ B8# 99,9pL5L599}4`|49,9p=L/5 f86 519,{4 499 58 W$ W$Σ9Σ99 9) -6_ z6 4 58 W$Σ9909⭤9 S8`L5-99 f8,9j,{4PΣ90 4999909 f8f) f8P W$}4L999= 799& 7989H99h 799 58 W$9 S8` 66Y99+99 f8آ|99999`9-9~49 f8 9999` 8` 8`9)99̦9 9990m9i9 f8 f89Y)Χ9Ψ9` *8Y)Y 9i8  7\H8h,}4PIN'ҍIxy 7L6Ix 7y 7Jp9noF 7= &7lm 7w)!,ZJ9YH)9h****) 9 m9999d88`\H[< 7h  7(9 7989󩭙9L7id 7`H) 7hJJJJ ɺi`99 89 9 9 9`99.9.9.989 99`O` Y$`99杪9`H999h`9% 9%9% %` üϠžŠŠӠĠĠŠŠӠźӠĺ̠ӺƠ 9999998 %W 3@N8D S:T:S:S:ޝO: T: : HH %`.. ;.. ;.. ;/./. ;2.2. ;X.X. ;00 ;99 ; u ;>1>1 ;4z4 ;44 ; rȱȱȱȱ0]fȱeep<ȱ<ȱ<<ȱ<<ȱ< ;< ; ;L:`L3< < ;L: ; L: ; ;L:8ei` ,$`ee` `< ;<< W<` j< ;< W<`hh8`8`<<<`}<`e`H)hJJ<0JJ)` (< ( < *? ( < (? ( < (? ( <*? * **? *? *? ( < *? ( < ȩ ` $( `8 :. sS/ sS- sS IFL9ɠ ;LK>H hL\>8 :L; :8 WT sS S ? =$% q? DL7> WT䈄$% ? >  WT -?L9   WT ?L9 S ;L> ǀ8P% $ ȩ% $p ; 8`  Ly?` !jjI8 !) 88 ? WT -?L9 SL; Ř8 " )  ǀ8` :n sS sS8 0x S S ? =$% q? DL9ɍ q? ⩠䈄$% ? >8  LGM S S  =$% DЋL9ɍ ⩠䈄$%  >LGM : WT$ %  S% S!! PL(A, S(8 Ȅ$ WT$ IFH Sh(ЈL9Ɉ ;L9A+ %ɕ$(LAɍɠ ݲ9ݻ9ʝ8 L9A8 BLB9 m9m998 BLBm99,9\9\98U98V98W9 JJ99L'B0ԩ SL@8 B퍐9 m9m998 Bm9э9ȹU98͐9¢88889999n9n9n9n9.999 99% $ i$8 i$8 ;L9ɰɺ)`8`8I1 : sS< sS ? =$% q? S m DеL9 WT䈄$% ? >8    S LB!` !   882CL  L X$ %  8 WT)) j$%  IF/Ɉ1ɕLDɘLDɍLE E S8 WTLJD S8` ;LpD DLpDʽɿɽ% 0  F` F D` ʽɯ8` ;LpD DLpD$( ELpD 8 WT`@ ] EXj Dɯ 9j$ɯ$(  F`8`j$0D ɬ lɿTɽP$01LFɮ Lɯ $D ;ɺ9ɯ/ې%ɿ ɽ j  8``Hɯj) ) @hHɿɽh` )ɛ8``8⪤88>ɽɿ-8)L|F戄8ʽɿɽLF8`` /<  ȱ= Eɯ < ∱ < ȱ = ` F + sS  | 'DEF G {ILG 0 MLeG MLGL9 G {I yK IK(LNLN ! ;`8 8LG8` K I Lc G yKLN9 sS ^ )J8! 8!8!LH ! !LH!!8!, - . LH , - . ! LG88 8y, , ! ! !   I G : + {ILUI@b LmGGz S8 sS, IFv ;LHLI : yKLN :   & H 9h 9  LmG I LH !K2LmG4 G M yK IKLNLG E G M yKL9LmG, S4 sS IFɍ :(` ;9i#9i+ * S+ sS  88* & 8+ '  7 sS(`LJ S9 sS   m( M9 m) N9P9Q9P9* m M9+ m N9Q9* + LbJN9#-P9 Q9M9! -P9 Q9옍( 8+ ) O9 ( ) LJ & '  9 sS I 7 sS(%O9 !K0LUI   I LmGLIO9O9L:K I L# !K0̐LUI5 G M`4 G M`` IK yKLN 9 sS I  G !K0LIK {ILIK :`  + sS  G {ILyK :` ~LKK     I A   0 JK jmKKKmKKLL!mKK!mKK 0 MK8!KK!KLTL JK jiK MmKKKiK8KKKKK0 LmG  ` * M ɯLL  莜  I ;   JK:   jiK  I   MM `Ġ   `9999999`8 WT : lOLM@ Gb {IL9L@ F {IL9& G ML@ G ML9 {I }OL965H Sh sS WT,LM ; IFɍ :(` 0 LM ? GS& sS  WT +M O CN\d {ILoN L? 8!L9999% i" R tQ(` {I }O9 WTa {IL?. +M : WT tQ O $ S sS 8RɍL O +M : WT tQ9ꭰ90 LG ,ɛLN9ͯ9 9Ͱ9LN RLNL99ꭰ9)***i' sS*9議9! S`'& F  > < `   `  `    O(8`(` ]< 89쭙9 ^FB)@ LO @ )jLO9ȑ< ȑ> ȑ< "` 8ʽ 9쭛9 ^F٥)@ L

[V[u[[[[[[[[[\\&\*\9\D\L\Y\l\\\\\\\]] ]-]9]a]s]]]]]]]^*^T^t^^^^^_F_n_____$`<`f`````aBahaaaaab?bebbbbbcBcjccccd%dJdeddddd"eJe^^^^^qeeeeee#fKfUV Ԡ ӠɯϠӠӠӠ  ŠΠàԠŠ Ҡ àӠ ĠӠРӠԠ亠̭Ԡ ӠӠ庠ӠӠӶıӠ î 󩿠àԠ庠󮮮ﺠﺠ箮ĭͭ РӠѠ ӠӠ庠ΠӠΠӠΠ忠ٯΩ箮  堠Π ӠӠ󮠠 Ӡ嬠 堢嬠宠 堢Ң 宠堢 Ӡ 򮠠 Ӡ堢âӠ 堢 宠堢ТӠ 宠堢Ģ 宠έ 嬠 Ӡ Ӡή 堢 䮠堢 Š宠嬠Šά 嬠 Ӡө à Ԡ 䬠Ԣ 堢ڢqfg8gRg80 S ; : ;8 WT GS :gOgH0 sS sShj sS sSPg sSiQgg sS IFdZɊɕ2N莆gLxfɋɈ5ʎgLxfSg%g9g988Ll: ;Lf88L9=BBFҁFKÁNR%āKNЁRXX]]ccjotԀtwڠ^g : /  X08H1212)h2IHh)H*i !I [hJJJJ)~ ! [,p0^SVTVLhrf)ߑqf)ߑ?8g9g988 viYXύX , j8֍9I 8 ǀ8 ?988! : i" xi xi i xiH ih,L9iii+i1iUi  ҧΠ֭ԠŠҬ _S hh$ȱ% ȱ Li iS` ;0`8`0`$v$iP&i8ǽ9Ȣ bѝ:nѝ8efe$0dc̅̈́#cȱcȘe̅̐Șeccdedf̤ͦʆefcdcd$ eey}fiz~ LTzL$0 ȱ ~Iȱȱyȑy$ ȥyȥy ѐyzyyz$ Ɩ$iP ѝB$LЩi`SYMBOL TABLESORTED BY SYMBOLADDRESSie憥yŇz到$ eyyz樥ef`Ff`8奅妅膡ee6$6eufu$2eeeeѯ L҈ѭ0ȱѯ210(8%8奅妅0L梥Ť LѥšL LTz}ȱ}Lҩ jƘ*~*,|?,|X,|N ȱȱ$0 L: 閠  LR vӰ敥ř .|LL`$ e}}~}~`'9GZe{Տհ&6Nky֋ֳ֟/ # ELIF ERRORS IN THIS ASSEMBLY** SUCCESSFUL ASSEMBLY := NO ERRORS WARNINGS IN THIS ASSEMBLY** ASSEMBLER CREATED ON ** FREE SPACE PAGE COUNT** TOTAL LINES ASSEMBLED PRESS RETURN TO CONTINUEASSEMBLY ABORTED. PRESS RETURNENIL NI RORRE UNDEFINED IDENTIFIERDUPLICATE IDENTIFIERUNDEFINED OPCODEOVERFLOWRELATIVE EXPRSN OPERATOREXPRESSION SYNTAXEQUATE SYNTAXINVALID IDENTIFIERDSECT/DENDSYMBOL/RLD TABLE FULLASSEMBLER PARAMETERINCLUDE/CHN NESTINGADDRESS MODERESERVED IDENTIFIERINVALID WITH CORESSLOT/DRIVE/VOLUMEDIRECTIVE OPERANDBRANCH  T$"" (4)"PR#7":"%"0(4)"IN#7"PA$:A$(13)T$T$A$:30`#(4)"PR#0"p((4)"IN#0"x2T$d X(1)40:Y(1)40-C(1)164(C=2X,YE<20d ::"ENTER N,R (1v DETERMINE MEMORY SIZEDd:"YOUR ";TI$;" HAS:"::5MACHID48ĺ"128K ";:MACHIDMACHID48:INSLOT$(0)L$:690MACHID32ĺ"64K ";:MACHIDMACHID32:INSLOT$(0)L$:690MACHID16ĺ"48K ";:MACHIDMACHID16:690-"OF RANDOM ACCESS MEMORY"^:5:(57344)76ĺ"APPLESOFT IN ROM"::720|"INTEGER BASIC IN ROM": FOR EACH DISK DEVICE IDENTIFY DRIVE TYPEJ4894648946(48945)DEVICE(J):DEVICE128DEVICEDEVICE128 SLOT7EDEVICE16SLOTDEVICEDEVICE(16SLOT):820a SLOTSLOT1:SLOT0790j*8504DEVICE4INSLOT$(SLOT)"PROFILE">DEVICE0INSLOT$(SLOT)"DISK DRIVE"HDEVICE13INSLOT$(SLOT)"UNIFILE/DUOFILE"RJ\f LOOK FOR 80-COLUMN CARDp8zMACHID8MACHIDMACHID8WMACHID4MACHIDMACHID4MACHID2INSLOT$(3)"80-COLUMN CARD" PRINT SLOT ASSIGNMENTSIAPPLEIIE7" SLOT ";I;": ";INSLOT$(I):I  `ɖ L HHHH" hhhhL ) i ș !șL  Jȭ ȩ,p0ߍ`0 `L` /HELPSCREENSսݽݽս lmSLYǘRTL]RǘTL]ǘTRSUPQLLN 8L `Hh`ǘ L "6ǘVȭ ȑ 3 뗰 C <LE+ : C,,ɛ CLɍ CL CH h : L/sȘLos戄i`VA਩ ȑL ȱJnJn) ȱ )> `ਹAX8`sݱ s`mm8`st Ȏ` Δ` ̙` XtHs ( LTs - tht% `ݽXHELP-XNOHELPɠàԠΠĠԠҠРȠàż/APPEND (Deferred) Prepare to print at the end of a file Form: APPEND pn [,Ttype] [,L#] [,S#] [,D#] Example: APPEND /PROFILE/CHAPTER.3 This example opens /PROFILE/CHAPTER.3, and prepares to print at the end of the file. APPEND is like an OPEN, POSITION to the end, followed by a WRITE. To APPEND a random-access text file, use [L#] to indicate the record length The other options are used as usual. BINARY OPTIONS (not a command) Used with BRUN, BLOAD, BSAVE Each command transfers data between file and memory, according to options. pn must indicate a binary file (BIN) if [,Ttype] isn't used. [,A#] is the first memory address. If omitted, the last value of [A#] is used. If [E#] used, it is the end address; if [L#] is used, it is number of bytes moved. [,B#] is the number of the first used byte in the file. Default is 0. The other options are used as usual. BLOAD (Imm & Def) Read binary data from a file Form: BLOAD pn [,A#] [,B#] [,L#|,E#] [,Ttype] [,S#] [,D#] Example: BLOAD /PIX/ICE,A8192,E16383 BLOAD /PIX/ICE,A8192,L8192 Both examples move a binary picture from /PIX/ICE (type BIN) to graphics screen 1. A8192 is the start address of the graphics screen. In the first case E16383 is the end address, in the second, L8192 is the length of the move in bytes. See HELP BINARY for the options. BRUN (Imm & Def) Run a binary program from a file Form: BRUN pn [,A#] [,B#] [,L#|,E#] [,S#] [,D#] Example: BRUN /VIDEO/LITESHOW This command causes the binary program in the file /VIDEO/LITESHOW (type BIN) to be moved into memory and run. It is placed in memory starting at the address from which it was last BSAVEd. See HELP BINARY for an explanation of the options. BSAVE (Imm & Def) Save binary data in a file Form: BSAVE pn ,A# ,L#|,E# [,B#] [,Ttype] [,S#] [,D#] Example: BSAVE /PIX/TOOTH,A8192,E16383 BSAVE /PIX/TOOTH,A8192,L8192 Both save graphics screen 1 to the file /PIX/TOOTH (type BIN). A8192 is the start address of the graphics page. In the top example, E16383 is the end address; in the other, L8192 is the length of the move in bytes. A#, L#, E# are optional after BSAVE if pn already exists. See HELP BINARY. CAT (Imm & Def) Show a 40-column directory listing Form: CAT [pn] [,S#] [,D#] Example: CAT /BUDGET/JAN CAT, S6, D2 The first example lists the files in the directory /BUDGET/JAN; the second lists files in volume directory S6, D2. If no options are used, the files in the prefix directory are listed. [pn] must indicate a directory; without [pn], files in drive [,S#] [,D#] are displayed. CAT shows filename, type, size, and modified date. CATALOG (Imm & Def) Show an 80-column directory listing Form: CATALOG [pn] [,S#] [,D#] Example: CATALOG /BUDGET/JAN CATALOG, S6, D2 The first example lists the files in the directory /BUDGET/JAN; the second lists files in volume directory S6, D2. This command shows the same items as CAT. In addition, it shows the date the file was created, the logical length of the file, and some subtype information. See HELP CAT. CHAIN (Imm & Def) Run a BASIC program, save the variables Form: CHAIN pn [,@#] [,S#] [,D#] Example: CHAIN /SECURITY/ALARM.2 ,@500 This example runs the program in /SECURITY/ALARM.2 starting at line 500, preserving any variables used by an earlier part of the program. pn indicates a file of type BAS. [,@#] indicates the line of the program at which execution is to start. The other options are used as usual. CLOSE (Imm & Def) Prevent further I/O to a file Form: CLOSE [pn] Example: CLOSE /THE/DOOR This example causes the file DOOR on the volume THE to be closed. pn indicates the file to be closed. If you omit pn, all open files are closed. The CLOSE command does a flush, then it removes all information about the file from memory (but not from the disk). This command MUST be used on all open files. CREATE (Imm & Def) Create a new directory or file Form: CREATE pn [,Ttype] [,S#] [,D#] Example: CREATE /BIG/WIG This example creates a directory file (type DIR) with the path /BIG/WIG . pn is the pathname or partial pathname of the file to be created. type is a 3-letter abbreviation that determines the created file's type. Abbreviations for the file types are listed in HELP FILE . The other options are used as usual. DASH (-) (Imm & Def) Run a BASIC, binary, or EXEC program, or run another system program Form: - pn [,S#] [,D#] Example: - ANY.PROGRAM This example runs the program in the file ANY.PROGRAM stored in the prefix directory. The program in the file indicated by pn can be any type of program file. It can be a BASIC program (BAS), a binary program (BIN), an EXEC program (TXT), or a system program (SYS). The other options are used as usual. DELETE (Imm & Def) Remove a file from its directory Form: DELETE pn [,S#] [,D#] Example: PREFIX /LETTERS/GRANDMA DELETE OLD.FILE This example removes the file OLD.FILE from the directory /LETTERS/GRANDMA. A deleted file cannot be recovered. pn is the pathname or partial pathname of the file to be removed. The file must be unlocked. If it is a directory file, it must be empty. The other options are used as usual. EXEC (Imm & Def) Read commands from a text file Form: EXEC pn [,F#] [,S#] [,D#] Example: EXEC /DISK2/MENU This example causes the sequential text file /DISK2/MENU to be used as the source of commands for BASIC rather than the keyboard. pn must indicate a text file, type TXT. [F#] is the number of fields that should be read and discarded before execution of the file begins. The other options are used as usual. FILE TYPES (not a command) These are the file type abbreviations used by the commands CREATE, BSAVE, BLOAD, OPEN, APPEND ABBR FILE TYPE DIR Directory TXT Text BAS Applesoft Program VAR Applesoft Variables BIN Binary REL Relocatable Code * $F# User Defined SYS ProDOS System File SYS ProDOS System Program * # is an integer from 1 to 8 FLUSH (Imm & Def) Empty the buffers of an open file Form: FLUSH [pn] Example: FLUSH This example causes all open files to be flushed (except EXEC files). [pn] indicates the file to be flushed. It must be open for FLUSH to have any effect. If [pn] is omitted, all open files are flushed. After a file is flushed, you can be sure that every character printed to the file is stored on the disk. HELP (a user-added command) To use, type: HELP XXX (XXX's below) Explanatory: HELP, SYNTAX, BINARY, FILE Using Files: CAT, CATALOG, PREFIX, CREATE, RENAME, DELETE, LOCK, UNLOCK BASIC in Files: - , LOAD, RUN, SAVE Programming: CHAIN, STORE, RESTORE, PR#, IN# Text in Files: OPEN, CLOSE, WRITE, READ, APPEND, POSITION, FLUSH, EXEC Binary Files: BLOAD, BRUN, BSAVE IN# (Imm & Def) Get input from a slot or a program Form: IN# snum|A# Examples: IN#3 IN# A$300 The first example causes subsequent characters to be taken from the device in slot 3; the second causes the routine at $300 to be used for input. Use either snum or A#, not both. snum is the slot for subsequent input, A# is the address of an input program whose first byte is a 6502 CLD instruction. LOAD (Imm & Def) Get a BASIC program from a file Form: LOAD pn [,S#] [,D#] Example: LOAD /PROGRAMS/QUESTIONS This example brings the BASIC program /PROGRAMS/QUESTIONS into memory. Loading a program is just like typing NEW and then typing in the program. The file indicated by pn must contain a BASIC program (type BAS). The other options are used as usual. LOCK (Imm & Def) Protect a file from being renamed, written to or destroyed. Form: LOCK pn [,S#] [,D#] Example: LOCK /NESS/MONSTER ,S6 ,D2 This example locks the file MONSTER on the disk named /NESS which should be in slot 6, drive 2 (but needn't be). pn is a pathname or partial pathname. You cannot LOCK a volume directory file (write protect the disk instead). The other options are used as usual. - (DASH) (Imm & Def) Run a BASIC, binary, or EXEC program, or run another system program Form: - pn [,S#] [,D#] Example: - ANY.PROGRAM This example runs the program in the file ANY.PROGRAM stored in the prefix directory. The program in the file indicated by pn can be any type of program file. It can be a BASIC program (BAS), a binary program (BIN), an EXEC program (TXT), or a system program (SYS). The other options are used as usual. OPEN (Deferred) Open a file for reading or writing Form: OPEN pn [,Ttype] [,L#] [,S#] [,D#] Examples: OPEN /LETTERS/ACCEPTANCE OPEN /LIBRARY/BOOK,L100 The first opens a sequential text file; the second opens a random-access text file whose records are 100 bytes long. pn indicates a text file (type TXT) unless [,Ttype] is used. A file's record length is set by [,L#] the first time the file is opened. The other options are used as usual.  ************************? * STARTUP *^ * BY CORNELIUS BONGERS *} * COPYRIGHT (C) 1985 * * BY MICROSPARC, INC. * * CONCORD, MA 01742 * ************************ d STARTUP PROGRAMME FOR DATE.TOME n:::10 x10008 DA$"":(DA$):216,0:160j (4);"BRUN DATE.TIME": INSTALL DATE ROUTINE} DA$"":(DA$) DA$""230: DATE NOT YET SET "THE CURRENT DATE IS ";DA$ :"DO YOU WANT TO CHANGE IT (Y/N) ? ";: A$ A$"Y"A$"N"ĺ(7);:190 A$. A$"N"260W :"ENTER THE DATE (DD-MMM-YY) ";DA$l DA$""į(DA$) DA$""ĺ"ERROR IN DATE INPUT":230 :"ENTER THE TIME (HH-MM) ";TI$ TI$""įTIME(TI$) TI$""ĺ"ERROR IN TIME INPUT":260 " RETRIEVE AND PRINT DATE AND TIME& ,H 6DA$"":(DA$):"DATE : ";DA$m @TI$"":TIME(TI$):"TIME : ";TI$u J22 (4)"RUN MENUPRO" 216,0: CLEAR ONERR FLAG 140: CONTINUE WITH RUN TO AVOID ONERR PROBLEM '(64435)6ĺ"NOT //E OR //C":% '(48640)76ĺ"NOT PRODOS": $':49153,0:49237,0:1024,123:Z(1024)123:49236,0:49152,0:Zĺ"NO 80-COLUMN CARD": .':S4:A$(100):D$(4):D$"PREFIX":P$:D$"OPEN"P$",TDIR":D$"READ"P$J 8'XX1:A$(X):(A$(X),6)"BLOCKS"10040:D$"CLOSE":FB$A$(X):LNX2:A4LN:A$(A)(A$(A),2,15)::ALN1100:A$(A)"":y B'D$"PR#3":P$:FB$:D180:"-";::X419 L'X3;" ";A$(X)::4:X2035:1403,20:X3;" ";A$(X):V'4:X3651:1403,40:X3;" ";A$(X)::4:X5254:1403,60:X3;" ";A$(X):`'21:868:"ENTER NUMBER TO RUN OR Q TO QUIT ";N$:N$"Q"10090:X(N$):X1X5110080:A$(X3)""10080:(21)::D$"-";A$(X3)j'21:868:"ENTER D FOR NEW DISK OR TO QUIT ";N$:N$"D"Ĭt'd  L ɗ;`-Ƀ0ѸD ٠:f ߅ l ޠ{x$0 [(C L4) [(Jf)JJJJe t [ `ЅLȹH ` VЅ :C$0 -:2 L /' z" / :  hh`  (` / /H hȈi ``d08 Ȱi 0` 8`I  `$0 /<`' " )i *i`8`x$0 (` &e(`JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDECTIMEL  *************************?* DIRECTORY.LIST *^* BY KEITH STATTENFIELD *}(* COPYRIGHT (C) 1986 *2* BY MICROSPARC, INC *<* CONCORD, MA 01742 *F*************************P ZFS$ CONTAINS THE PRINTER SETUP STRING.L dIT IS CURRENTLY SET UP FOR THE APPLE II PARALLEL INTERFACEi nAND GEMINI 10-X PRINTERo x FS$(9)"80N" PR% IS THE PRINTER SLOT PR%1 280 20(A$)21:A$: :200::: 200:A$("------- ---------------------------------",(A$)):200::40 -'SN 9:1:958:: A$PRESSѱINUE":VTAB23:GOSUB200:POKE-16368,0:WAIT-16384,128 23:868:16368,0:16384,128 A$:YES(A$"Y")(A$"Y"):(YES(A$"N")(A$"N"))260:A$:  -- START OF MAIN --/ "-- PROGRAM --B ,::DIR$(100)N 6(17);n @2:A$"DIRECTORY.LIST":220 J:A$" BY KEITH STATTENFIELD":200::A$"* COPYRIGHT (C) 1986 BY MICROSPARC,INC *":200 T8:"----------------------------------------":40 -'Sw ^PTR768:DL$"--------------------------------------------------------------------------------":!80 DASHES ! hA:A1ĹPTR,A:PTRPTR1:360 r34,8: |D$(4) D$"PREFIX":OP$ 230:"ENTER THE NAME OF THE VOLUME OR":"DIRECTORY FOR THE BASE TO LIST". :"DEFAULT IS ";OP$` :"SLOT AND DRIVE CAN BE SPECIFIED (,S#,D#)"q 18:":";OP$ 18:2:768,NP$:NP$NP$"" NP$""NP$OP$ 18:2:NP$ 490 :D$"PREFIX"NP$:D$"PREFIX":NP$:500"230:A$"ERROR #"((222))" IN PREFIX":210:240:B216,0:18:2:NP$;:958:l23:"LIST CATALOG ON PRINTER?";:260PR0:YESPRPR%23:1:868:PRĺ"LIST ON 80-COLUMN SCREEN?";:260:YESPR3PRPR%ĺFS$&LN39(40(PR0))0P11:P21:DIR$(1)NP$ :(D- PERFORM THE CATALOG -.N6X:Ub:D$"PR#";PR:PRPR%ĺFS$slD$"OPEN "DIR$(P1)",TDIR"vD$"READ "DIR$(P1)T$:"CATALOG OF ";DIR$(P1)T$:(T$,LN)T$:(DL$,LN)770NAME$:NAME$NAME$""NAME$""770TY$(NAME$,18,3),(NAME$,LN)@TY$"DIR"680|NAME$(NAME$,2,16):(DIR$(P1),1)"/"NAME$"/"NAME$(NAME$,1)" "NAME$(NAME$,(NAME$)1):740P2P21:DIR$(P2)DIR$(P1)NAME$680- WE'RE DONE WITH THAT CATALOG,$  SO CLOSE THE DIRECTORY & DO:  THE NEXT ONE -@*Q4:D$"CLOSE"j>P1P2P1P11:620HPRPR3ĺD$"PR#0"R24:1:868:240\24:1:868f"PERFORM ANOTHER CATALOG?";:260pYESĬz::- INPUT ANYTHING MACHINE CODE DATA -32,190,222,32,227,223,162,0,32,117,253,160,0,138,145,131,200,169,0,145,131,200,169,2,145,131,32,57,213,96-1ة !<8"!=< \!<=/".""m!t:"; :(/:" &m!: S:;L m!$ȹ$$$,$-$$,"m!$-<"=#>%?B!C ,s!,0 $ `H)hJJJ8jXX`ٍӠé㬠㮍آ $% %L0" $ % %'8L |"$,$-%% ` |"$$$,$-%%  `STUQP`HHHC***)$ $$ $Ѝ%$6#$7$$06178<=<L#&$L#&$) 2$ &$xtɰ= 8<=<ȱ<<=<ȱ<<=<ȱ< 3 H% 8<=<ȱ<<=< $ L#&$) $ HB$ HC i HG F HE D #$6$$7%$hhh(L)` Š٠ŠԠԠΠŠԠԠΠŠĠŠŠȠԠԠԠƠԠƠԠƠԠƠĠŠԠŠĠԠˠŠϠӍ ϠӍdX768785:Y:X,Y:Pn32,0,191,129,9,3,176,249,96,3,96,0,32,0,0,0,0,0,Xx:w12:12:"DISK DUPLICATOR"20:9:"(HIT ANY KEY TO BEGIN)";:16368,0:ST$12:"ENTER NUMBER OF DRIVES:";ND$:ND(ND$)ND1ND2390 :12:"PUT SOURCE DISK IN DRIVE 1"Q ND2Ģ17:"PUT DESTINATION DISK IN DRIVE 2" 20:16368,0:"PRESS ANY KEY TO MAKE COPY.":AK$ FB0:MX3 N1MX 771,128 780,32:778,96 IFBFB55 P2(I256):P1I256P2 782,P2:781,P1 768:780,(780)2:IV "NMXĺ(4)"BSAVE/RAM/COPY"N",A$2000,L$6FFF":FBFB56] ,N 6ND1Ģ12:"PUT DESTINATION DISK IN DRIVE 1":AK$ @NMX11 J771,129:780,142 TND2Ĺ778,224 ^NMXĺ(4)"BLOAD/RAM/COPY";N hIFB55FB1:P2(I256):P1I256P2, r782,P2:781,P1F |768:780,(780)2:IS FBFB56Z Nh MX2440 MX2:FB168:ND1Ģ12:"PUT SOURCE DISK IN DRIVE 1":AK$ 220 :12:15::"COPY COMPLETE"::߾ p8tHitHJJJhI)8*XX6 7 6 stHhs7ht`!$*JO]`cgjpu  ɚ L Ɂ` 2  HI h ɠɺl  BT 2  0  0 Μ Љ2 0!  ɈL  ` COPYRIGHT (C) 1986 MICROSPARC INC  ***********************;* LIST.CREATE *X* BY J.R. VOKEY *u(* COPYRIGHT 1986 *2* BY MICROSPARC, INC. *<* CONCORD, MA 01742 *F***********************P ======================= Z Initialize d=======================& n:@ x(4)"BRUN PROCOMREC"Z HMEM(116)256:HMEMr USERHMEM4256215 BUFFERHMEM5256:STRTBUFBUFFER: USER command buffer :"LOADING USER-LIST"; ======================== WORD SUBSTITUTION MACROS- ========================L CMD$:Get word macro nameW ERROR "PRINT PEEK(218)+PEEK(219)*256":LINE NUMBER OF LAST ERROR (DATA statements for other word macros go here) //:End of word macros WHILE01:While NOT end-of-words DOC Add CTRL-H (BS) to delete wordf "I1(CMD$):CMD$CMD$(8):Iv ,Get macros 6MACRO$ @Construct macro JMACRO$CMD$MACRO$ TStuff into buffer ^1020 hGet next word-macro rCMD$:WHILE(CMD$"//") |WHILE, =======================I Key Substitution Macrosf ======================= MACRO$:Get key macro *CALL-151,SAVE,=CAT,@HOME,";POKE33,33",+TEXT "(LOCK",")UNLOCK" (DATA statements of other key macros go here) % //:End of key macrosN WHILE01:While NOT end-of-keys DOv Assign key macro to cmd$ with CMD$(MACRO$,1)(8) Construct macro MACRO$CMD$(MACRO$,2) Stuff into buffer 1020 &Get next key macro0MACRO$:WHILE(MACRO$"//")%:WHILE>D===================WNCompletion CommandspX===================bMACRO$:Get completion commandlBLOAD,BSAVE,BRUN,CREATE,OPEN,CLOSE,WRITE,CAT,POSITION,APPEND,CHAIN,FLUSH,PREFIXv"D$=CHR$(4)" LOCK,UNLOCKI(DATA statements for other completion commands go here)Os//:End of Completion commandsWHILE01:While NOT end-of-Completion DOStuff command into buffer1020Get next Comletion command MACRO$:WHILE(MACRO$"//")WHILE$========2Messages@========YMACRO$:Get message "?HELP:!PRODOS COMMAND RECOGNITION!BY J.R. VOKEY!COPYRIGHT 1986 MICROSPARC, INC.!! - RECOGNITION ON COMMAND! - AUTOMATIC RECOGNITION!USE TO CANCEL AUTO-MODE"K (DATA statement of other messages go here)Q*j4//:End of messages>WHILE01:While NOT end-of-messages DOHAppend to MACRO$RMACRO$MACRO$(24)\Stuff message into bufferf1020 pGet next message-zMACRO$:WHILE(MACRO$"//")8WHILEL==============`Save USER listt==============Set USER vectorSTRTBUFSTRTBUF1:USER1,STRTBUF256:USER,STRTBUF(STRTBUF256)256SAVE USER-list"(4)"BSAVE COMREC.USER,A"STRTBUF1",L"BUFFERSTRTBUF3Inform USERa::"PROCOMREC AND USER-LIST ARE LOADED":"TYPE: ?HELP FOR HELP"==============Buffer Stuffer==============I1(MACRO$)$Convert ! --> $.CHAR$(MACRO$,I,1):CHAR$"!"CHAR$(13)K8BUFFER,(CHAR$)128(I(MACRO$))_BBUFFERBUFFER1LBUFFER(HMEM92561)ĺ(7)"BUFFER OVERFLOW - PROGRAM TERMINATED"::VI:".";`BUFFER,0:Mark EOLj P:#Z(4)"BRUN PROCOMREC"7dHMEM(116)256AnHMEMZxSTRTBUFHMEM52561rUSERHMEM4256215USER1,STRTBUF256:USER,STRTBUF(STRTBUF256)256(4)"BLOAD COMREC.USER,A"STRTBUF1:"COMMAND RECOGNITION IS AVAILABLE"ERRORPRINT PEEK(218)+PEEK(219)*25*CALL-15<LOA>SAV=CA@HOM;POKE33,3+TEX(LOC)UNLOCBLOABSAVBRUCREATOPECLOSWRITCAPOSITIOAPPENCHAIFLUSPREFID$=CHR$(4LOCUNLOC?HELP: PRODOS COMMAND RECOGNITION BY J.R. VOKEY COPYRIGHT 1986 MICROSPARC, INC. - RECOGNITION ON COMMAND - AUTOMATIC RECOGNITION USE TO CANCEL AUTO-MODE Xq rr 3q)xuq*xvq'xr(xr 3qxzy{z0r rL_qr)rL_q8mrr/rrrr ȯr rrr0FL_q rrrr rL_qrrwqwqwqwqyqzxqxq 3q Cqrrvqr uqr yq r:r ` rhhL_q`rwrw rhhL_q`hhzqqL '(+.@BDEFGHINPRV    ͮŠ٠ԠȠԠ٠ìî͠ӠΠĠϠͮŮr|rwx`r ͮX(RAM.LOAD!E<5!p& -PRODISK.CHECK$<6!P6,FILE.CREATOR'<6!BBOOTUP)<6!< ENDUP*<6!< 'MON.CMD,o<6!@ư.FASTFILESEARCH1<7!Pư-PRINTDUMP.COM4<7!!.NIBBLE.MAESTRO7><8!n %STAFFE<8!@gNOTESU<8!`h(BOTANY.BAYV<8h-DECK.THE.HALLSW<9h- Xq 08r 7rLpFr)GrLp8m;rEr/Fr;rEr;r rLpr(rr#r6r rE "r=!r&r r%r r$r p pLpp 5rq `hhpqL 'rhhLp`y3ry4r /rhhLp`'(+.@BDEFGHINPRV    ͮĠ٠ԠȠԠ٠ìî͠ "ĠȠͮōEr}yz`Fr ͮ X Q Q Q $R Q Q$R Q Q Q  [ B6R Q : ɸɱ QDR Q : ɛɱɲ ʊJnQQVQ QQQQ莕QQQQLyQ QQQTR QNQɛQ?B ,DDcdDD` CYF STURDDPQ`8L C5DSSF C$00F CVɬ $00ٸF5D DS8`,S0@ݹ5D,S 5DI-5D5DL[A$0$0,S 5D,5D DS`.A/ATDUDcdD+-./D :HSD hб;D:DD`>D`LL0ALBLVDLDLDLELZELELELFL^F@ ĮKŮKԮEEEYEԮŮOԮŮOԮXԮXNEDEEHԮKԮKԮFԮFԮFԮF  P<L,QSlm ȱ)_̙ٙ8`Pɍɢ ɧɺAȹɍ95ɺɠH1 h> ɧ) `SEARCHTtϾо p aоǾ־޾׾,WPZȾ W)Z02m_[m`\i  p L L ۾L͘dܾ۾y ɿ?L$,,{i! ʾ ɾȾ A mȾȾɾiɾʾ p*=<<>`K hhLϠ͠ҠӠĮŠ㠠à򠠠Ԡ ŠϠĠ젠РĠijȠ̶ҀɠŠŠ򠠠٠̠äàĠÀѠ؀Ҡ٠̠à »Ӡ؀ŀҠ35حl?@ABC3901:840,A:(27)"K"(0)(1);:832:NU$:A:(27)"2"(27)"U0":D$"PR#0":f " (Y/N)? ";:CS,W{ Q(W):G$:G$: NNNR::23:MS,W:"READY TO EDIT":740:FS,W:200 :22:"PRESS TO END SONG"::H:NR:A$"":VFI:380 ZYWRW:G$:Q(G$):QVQ:' G$"0"TFG:9 G$M$İ390:Y G$(TT)G$(96)Q(W):z G$E$N1395NNR:ZYR:: L%(N)B%(VR(TFW)):TFTFR(TFW):JW:G$S$JNI:P%(N)R:CW JXA%((G$)TT):P%(N)C%(X):OY%(X):CJ%(X)! 90:P,P%(N):L,L%(N):M:130:NNR:IIR:* 350 ":21:A$::"PRESS ANY KEY TO STOP THE MUSIC"::H:380:XRN:VG%(L%(X)):JNI(P%(X)R):CW:JQF%(P%(X)):OY%(Q):CJ%(Q) ,90:AI120:P,P%(X):L,L%(X):M:FL130:IIR:(K)HFİ140:FLĂ:180F 6:NNN:FL180:PFİ150::D$"PR#1":36,40(A$)2:A$:D$"PR#0":PF0:V @:21:MS,W J:"PRESS ANY KEY TO CONTINUE";:CS,W:Q(W):QRP:(K)HFQP T:FS,W:G$::: ^PF0:FLĺ"DO YOU WANT A PRINTOUT";:160:G$"Y"PF1:430wh"DELAY FACTOR = "A:CS,W:"TYPE NEW DELAY FACTOR, THEN , OR ALONE FOR SAME DELAY: ";G$:((G$)WG$"0")A(G$)}r|TFW:ZS:BW:CW:XW30:I%(X)W::O16:740:IW:FS,W:IĺB$:ZIIR:NNR:Z(H%(I)HF):VG%(L%(N)):JNI(P%(N)R):CH%(I)HFZ:YK%(I):BU(Y92):O(YTWB)G:ZZS:VJZ,Y:CZZE:CZ,Y:CTI%(O)CeIČHrQ(W):A$""ĺ"USE '"A$"' AS NAME";:160:G$"Y"ı18:1:958:"TYPE SONG NAME (<16 LETTERS):":"";A$tNF1:(A$)0āNC1(A$):NA((A$,NC,1)):NF((NA64NA91)(NA46)(NA47NA58NC1))NF1::(A$)15NF0ĺB$"INVALID NAME!":NC11000::440z::13:"NIBBLE MAESTRO":11:"BY DAVID L. SMITH":"** COPYRIGHT 1985 BY MICROSPARC, INC. **";::"CHOOSE ONE NUMBER:"::"1. LISTEN TO A COMPUTER-MADE TUNE""2. CREATE A SONG ON THE APPLE ORGAN":"3. SAVE YOUR SONG ON DISK":"4. LISTEN TO THE SONG IN MEMORY":"5. LOAD A SONG FROM DISK":"6. EDIT THE SONG IN MEMORY"Q"7. INSTRUCTIONS":"8. CATALOG":"9. QUIT":CS,W::FĖ5:::" MAKE SURE CAPS LOCK IS DOWN ":::13:"PLEASE WAIT...":750:(37):8681:17:958:"YOUR CHOICE: ";:170:G$"9"ĺ"QUIT? (Y/N)";:G$::G$"Y"ĉ::Q(G$):Q1Q8500"Q1Q2Q5Ģ17:958::"ANY SONG IN MEMORY WILL BE LOST.":"OKAY? (Y/N)";:G$::G$"Y"500WFL(Q6):Q710,190,540,280,570,280,620,730:470i430:A$""ıs&6000D$"OPEN"A$:D$"CLOSE":D$"DELETE"A$:D$"OPEN"A$:D$"WRITE"A$:N:XRN:P%(X):L%(X)::D$"CLOSE"::A$"":430:600DA$""ĹEF,W:[ND$"VERIFY"A$:D$"OPEN"A$:D$"READ"A$:N:XRN:P%(X):L%(X)::D$"CLOSE":EF,W:X818:D$"CLOSE":Q(222):Q6QTTĺB$"SORRY, I DON'T KNOW THAT ONE.":NC11000::440:580!bB$"ERROR #"Q", LINE "(218)F(219):EF,W:"PRESS ANY KEY FOR MENU":16384,128:16368,0:470El::15:"INSTRUCTIONS":34,2:v"THIS PROGRAM ALLOWS YOU TO PLAY THE KEY-BOARD LIKE A 4-OCTAVE ORGAN (1 NOTE AT ATIME)."::"BEFORE PLAYING ANY NOTES, SELECT A NOTE LENGTH BY PRESSING ANY NUMBER KEY 1-9.""IF A TRIPLET IS TO BE PLAYED, ALSO PRESS<0>. THIS SHORTENS THE LENGTH OF THE NEXT 3 NOTES. EXCEPT FOR TRIPLETS, A NOTE DURATION REMAINS IN EFFECT UNTIL ANOTHER NUMBER KEY IS PRESSED."b:"THE DURATIONS AVAILABLE ARE AS FOLLOWS:":"1-16TH","2-DOTTED 16TH":" 3-EIGHTH":" 5-QUARTER","6-DOTTED QUARTER":" 7-HALF","8-DOTTED HALF":" 9-WHOLE":330:"IF YOU TYPE FASTER THAN THE ORGAN CAN PLAY, NOTES WILL BE LOST. PLEASE WAIT FOR THE NOTE TO SOUND BEFORE TYPING IN ANOTHER NOTE.":"IF YOU MAKE A MISTAKE, YOU CAN ERASE BACK TO THE TOP OF THE DIPLAYED SCORE WITH THE (<--) LEFT-ARROW KEY.":330:"THE 4 OCTAVES ARE ARRANGED FROM TOP TO BOTTOM OF KEYBOARD:":o" A C# D E- E F F# G A- A B- B":" -----------------------------":"SOPRANO: ! @ # $ % ^ & * ( ) - =":" ALTO: Q W E R T Y U I O P ";(91);" ]":29 HYPHENS" TENOR: A S D F G H J K L ; ' ";:" BASS: Z X C V B N M , . > / ?":"LOW B-: ";(96);" REST: ":"PRESSING OTHER KEYS WILL PRODUCE LOW B FLAT OR NO NOTE AT ALL."::"WHEN YOUR SONG IS ENDED, PRESS TO RETURN TO MENU.":330X((78)F(79)):::" COMPOSING "::NW41:QW:ATW:XW6:NTWX(NTWX)D%(X)FI(R):E%(X)TW(R)>QQD%(X):AAE%(X)::P%(NR)C%(N%(Q)):L%(NR)B%(A)::AW:A$"":290R:D$"CAT":330jQ0999::Q(0):D$(4):D$"BLOAD PRINTDUMP":D$"BLOADNOTES":232,0:233,96:D$"BLOAD STAFF":19:26X164:NU$NU$(0):XR1:FJ4:E8:NI9:F848:F256:T232:P768:L769:M770:K49152:HF127:D264:S17:T21:W212:TW2:G3:TT13:U96:H791:HA.5:T929:SE7:FI5:FS49234:MS49235:EF216.N%(28),I%(30),C%(F8),Y%(F8),J%(F8),A%(83),G%(192),F%(242),P%(1400),L%(1400),H%(41),K%(41):XRF8:C%(X)FTW(XW2)HA:F%(FTW(XW2)HA)X:Q:A%(QTT)X:".";: G%(W)NI:G%(W2)R:B%(W)W2:QFJ:XRSETW:B%(X)TWQ:G%(TWQ)X:G%((TWQ)GTW)XR:B%(XR)GB%(X)TW:QQR:B$(SE):E$(27):M$(E):S$" ":G:R:W:XM827:Z:X,Z::XRSE:N%(X):NRG:N%(XSEN)N%(X)W2N::".";: XWW2:Y%(X)::XTW11:J%(X)::NRG:XRW2:Y%(XW2N)Y%(X)SEN:J%(XW2N)J%(X)::".";::*96,90,88,67,86,66,78,77,44,46,47,63,65,83,68,70,71,72,74,75,76,59,39,13,81,87,69,82,84,89,85,73,79,80,91,93,33,64,35,36,37,94,38,42,40,41,45,61]4173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96 >169,64,133,61,169,247,133,62,169,95,133,63,169,32,133,67,169,0,133,60,133,66,160,0,76,44,254:104,168,104,166,223,154,72,152,72,96:1,3,5,6,8,10,12:30,29,29,28,27,27,26,26,25,24,24,23,23< H19,0,20,0,0,19,0,20,0,20x @ J@+U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*UAI@HU*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*+]*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U@DFGHIJKLMNOPQRST J@ @AI@+U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*UU*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*H@+]*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U@ @@>@HA@ @ @@>@@H @A@+U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U @@+]*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U+]*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*UA@U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U* @@ @+U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U+]*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U@+]*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U @@A@U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*@ @0@(@!@q@@ @@0@(@q@@!@@+]*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*UUjU*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*@ @U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*!@{U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U+]*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U@ UjU*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*@@U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*{U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U!@@@H@ @@q@@@@ H@@q@@@U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*@@H+U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U@ @kW*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U;]*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U@@@U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*@@H+U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*UkW*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U @@@;]*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U@!@H @!@ <@ @!@@H!@ @ @ <@4Nh'<Rey 6$$56.$$56f$$$$$u 6$$56.$$56f$$$$$u 6$$56.$$56f$$$$$u6 6$$56.$$56f$$$$$u6* 6$$56.$$56f$$$$$ 6$$56.$$56f$$$$$  L ?3-e$$$$$ L ?3-e$$$$$M L ?3-e$I! dddd?'7:.-mI! ddd$%?<7--MI! dddd??<,5MI! ddd$%>?''-RI)I$ -g%MI$ -g%MIr-6%,6%,-VA(5.$5.$-A(%,6%,6%,6Jv$-<'$'--":16384,128:16368,0:(4)"BSAVE MR.ED,A"B",L"L: 169,3,32,245,190,169,151,133,67,141,51,190,169,4,141,50,190,133,60,133,66,169,153,141,49,190,169,150,141,48,190,160,255,132,62,200,162,129,134,61,232,232,134,63,32,44,254,169,223,141,242,3,169,153,141,243,3,32,111,251,76,0,154 0,133,111,133,115,169,150,133,112,133,116,169,0,141,242,3,169,190,141,243,3,32,111,251,76,98,250,234 52,57,60,68,80,88,101,105,108,153,162,184,202,292,368,371,386,400,403,418,478,494,499,502,531,643,680,703,706,709,718,763,771,774,789,791ٍ ԧ9C8Ȣ=? ,ߍ oL H3h` P㛥QNh0U'ɺ ɰH ihɠLᛠɅɁeȍћ ɞӍ ԧ oLb,aLP$8ɠ2H% X!hv X0 %$d%^!FɄɛ,ɋHɒɔE $)8 $%))#ѨH ΰɐFL2 ɉɏ ( ɠ)?ɑ Յ# B#ɘaɍ4h #PQ囍ꛩ$` 9Նћ LޢХՅ%' (Hhɠ҆ce0ގa$զ [ 㛭蛰 i iPQ НJ iPQ $Ȅ ְ$ [`, ɠ)? ,ɺ8Є ,0 ,0 \ H(h(L"$% 9 [ 8%Ԏa$L[ $ 'eћ H,a$%$$Ԑ $ Ո [5h`5aLɖ C32Ȣ=? ,ߍ oL H3h` P㘥QNh0U'ɺ ɰH ihɠLᘠɅɁeȍј ɞospt oLb,aLP$8ɠ2H% X!hv X0 %$d%^!FɄɛ,ɋHɒɔE $)8 $%))#ѨH !ΰɐFL2 ɉɏ ( ɠ)?ɑ Յ# B#ɘaɍ4h #PQ嘍꘩$` 9Նј LޢХՅ%' (Hhɠ҆0ގfha$զ [ 㘭蘰 i iPQ НJ iPQ $Ȅ ְ$ [`, ɠ)? ,ɺ8Є ,0 ,0 \ H(h(L"$% 9 [ 8%Ԏa$L[ $ 'eј H,a$%$$Ԑ $ Ո [5h`5aLɖ2"WHICH DRIVE (1/2) ?";:D$:D$"1"D$"2"5>D(D$)Z (4)"UNLOCK PRODOS,D"D~(4)"BLOAD PRODOS,TSYS,A$2000"X16:19139X,234:X((4)"BSAVE PRODOS,TSYS,A$2000,L15360"2(4)"LOCK PRODOS" **********************9* PROCURSOR.INST *U* BY JIM LAZAR *q(* COPYRIGHT (C) 1986 *2* BY MICROSPARC, INC *<* CONCORD, MA 01742 *F**********************P Z(64435)6ė:12:"THIS IS NOT A //e OR A //c.":: d(48694)0(48695)3Ĺ48694,(899):48695,(900) n:"ProCursor"::"By Jim Lazar":::"Copyright 1986":"by MicroSPARC, Inc."::: x"1-Solid Blinking Box":"2-Custom Character": :"Enter version to install: ";A$:(A$)1(A$)2ĺ(jlmn7);:130E VER3(A$"2")(A$"1")(2((64448)234)):VER3170 :"Enter blink character number: ";A$:(A$)0(A$)255ĺ(7);:150 CHAR(A$) A745962:B:A,B: VER1Ĺ828,76:829,88:830,3:A831855:A,234::210 VER22108 A828838:B:A,B::833,CHAR:A839855:A,234:e 745::"ProCursor 1."VER" is installed"- 173,54,190,141,131,3,173,55,190,141,132,3,169,0,141,54,190,169,3,141,55,190,96,44,68,190,48,5,44,67,190,16,3,76,130,3,72,133,252,138,72,152,72,169,0,133,254,44,31,192,16,31,164,36,165,252,145,40 173,123,5,74,168,8,120,173,85,192,144,3,173,84,192,177,40,133,252,133,253,173,84,192,40,165,252,201,224,176,22,201,192,144,4,233,64,133,252,201,96,176,10,201,64,144,6,169,160,133,254,133,255,32,133,3,230,78 208,2,230,79,162,255,134,251,44,0,192,48,9,202,208,253,198,251,208,244,240,229,44,31,192,16,5,165,253,32,171,3,104,168,104,170,104,76,0,0,141,15,192,36,254,16,11,166,255,165,252,133,255,138,133m252,208,6,165,252,73,128,133,252,44,31,192,48,7,164,36,165,252,145,40,96,165,252,72,173,123,5,74,168,104,8,120,44,85,192,144,3,44,84,192,145,40,44,84,192,40,96169,128,133,254,169,0,133,255,76,88,3 I!<8"J!=< <=t""I!:"; :(/:" (mJ!: S:;LC mJ!&ȹ&<"=,>'?BI!C , ,0) `H)hJJJ8jXX`ٍéì㮍oqrs "&&8L "STUQPʎ' "L W#G #B #= 4$5''!' g% % % & %&`"' $ %&"'(L (`t'%'&'`lm'& "ɬno "`8`)` "ɠFɯ)8n' ".۰*) "ɬɍɠɮ۰ ɺ8`'a,'PpXȾɾ= < Ǿ pΰ2)ișȩ/ pHlmh(` 3#'i $'pnJ ' ؾ׾`lm p e&p ` W$Ǿ pȾ'!' $`#'Ͼξl̾m; p e&pо`$'Ͼξn̾o; p m&pо`޾ p`no p  ( m&?p88(Í p ~$Ǿ'Ⱦ p $` Ȍ''eީ'' .'' g% %'e,!'0`'Ⱦ W$&Ǿ־ pپ' ھ p % $`,!'p $E!' @!''Ⱦ ~$-Ǿ־ p ۾پܾھ p $,!'0!'` pȾ'ɾ'ʾ ' !')@!'` p m&p`%' l̾m;,'0 p&'`&&&&G,C0:6 2"' ȱ H h "'8,Xp`&&!뻠堼ξ&뻠堼ξ$# {  { / XXύX?klmnÍoL) !6L'!(0`670! = ***)<JJH !h穖tp% !Z/݀!!' ! !5).莀/ ! !!!!! !!$ ! "<" !!뭳!!!!ILYL 8!9!詍` ! !!^2!STARTUP/`tvwŠϠŠà͠ӠàԠŬH06172839h` 97L75 XM% ^$ $ɱ ɸ)L! +'8n,'"'!'""!' ) "' ""' '$'&' ""%' Xʅ%%$ f$,,'0L'$,&'L"% $$!' (% $"' (% $" j#(" ,$'0,%'0 &L u&L &$% f$$% $ # $#' $:% Ⱦ:%L!H$(h ȹ%H%H`$% $ $ ,#'0"'L}!L $% $ $,#'0!'!' ) "' "L $% $ $,#'0' $,#'0ߍ"'"L "n,' ""' 'Lo &$% f$ &`( $ xz{|" "n,'L  "n,'&$% f$ $`'8' LP"'' I,')(Lo 'i')xLr"'') ')Lo L 'I 'ILo $'I$'0%'I%'L &' # $$%& f$,$'0#' $ɚ"-%'L" $H$(h,#'0 ' $Ll"&'L ,+'L 6''6+' 789 $""" j#&")jjjj j#&" j#&& f$Ly#) 08 ` `T  )   $iiLy#''6Lo X`') ei$')xJJJi% $` ` #$('H i h(`'H)' #$ ' ' $'')')h'L #'Lk$#' $',#'*'$''I'0$ȱ'ɍL$' $'`ȱ' ɍ`H% h` $,#'0 ' % '` $$`(` $)`,,`n#' $I i8n#')``!@!!!!""9"9"G"G"k"k"]"]"]"##ɋʈ˕͊ԠԠӠҠҍĠϿŠŠŠŠ̠ŠΠϠΠԍϠҠӠĪԠĠˍŠŠˍˠԠˍŠɠ؍РԠˠؠԠɠ Ϊɠ ƪؠӠڠϠŠԠŪŠՠŠՠԠϠŠٯΩ˺ҠӠ٠٠ϠŠĠà :!<8";!=< <=4"3":!:"; :(/:" &m;!: S:;L> m;!\%ȹ\%<"=˅>%?B:!C ,z ,0) \`H)hJJJ8jXX`ٍҠ占éì㮍݆%'%ʎR\%P]%QSTU`8L " " "!!뭳!!!!ILYL 8!9!詍` ! !!^2!STARTUP/`}݆%'%ʎR\%P]%QSTU`8L " " " # %# m# $`H ڢ |"lm " "h `%,0) \` ɠH \h @ \۩ \`  0$ 0` p  8`tϾξ p`jؾu%׾t% ھپо־ p`о޾ p`8z%u%{%t% 2 $L2N-? $ 2L$ ,0` ,0`O-@0M-A0 N-B0` sQP $ W۩ 7$20 s W w W s 1 w  Lq sL ׌ ` ׌`H 2HH s Jhh2h`H8$'$h`O{h` ɀH W h  W`ɀL\۪Ѕ(0 \(` 1` 1`  LܒHuH HHL } LܒL R N N LN }L’ R ` ," L ," `" "L͒; ( ` L R o( N, L) ,)Lђ ` ( ` N4H h Lܒ N LN A LN A ` N LA L H R ohLj ( L_LN;L L’ Nɫ L ąLђ hhƹƸ` ` Nɫ ɰ Lђ ` A, LN R( R LN K L. ,; L. P, Ʌ, LՒ 6L’L ':Lђ,ѸL͒L,Ѹ  (` LĒH hL͒/Hh h Lܒ *j*(*H ehe&he hL Hhg h Lȱ ȱhLHȱhL H hLjL H h,H hLܒH ҰcȐ_Ȫh9 LHHH9H  Lܒ L 8*IE Lܒ Lǐ hLhhhh lHHlL 6.2 }'XTP"Z(nҰs LܒLL(L . E  ` H hLj "  (`( )L OH hLjH hXFB. L( _ LN , N LH h gL L AL R o(H K,) ,)LђhL } Lܒ }L %$ЗLH h` LH h`JJJ(JJ(J`: LՒ  `   M-;0` N-<0 O-: w $ s WۦC (0 \(#  , \ۥ  , \ۥ  L H[ \h ] \`X \(` " LɲLҎWwЍ#WWMM,@IIWWMTffMWMMWWWWWWMWMMMsW{{M W/ WԎWَWW@0WHWWTEXT EXPECTED:NUMERIC VALUE EXPECTESTRING VALUE EXPECTEEXPRESSION EXPECTEVARIABLE EXPECTEDUPLICATED SYMBOTHIS KEYWORD MAY NOT BEGIN A COMMANMACHINE LANGUAGE DATA IGNORELINE NUMBER > 6399UNDEFINED STATEMENT NUMBEKEYWORD OR VARIABLE EXPECTEOPER NOT ALLOWED WITH STRINGLINE NF?BC ,`ؠ䮍حlmȱ8A 􈈌RSUT=PQ`8LPFX plm C {CLcA B +BJJ,0${ [;D C C B B Cɛ`)ɼ%ɯ@ɾ<ɍ>ɋCɈ?ɊHɕDɘN DŠLLA,0${ BLB UBLOA UB p`LcALOA! Bȱ/` Bq/ ȩ/`CDe`sξtϾ׾ؾھɾʾ'پiȾ pо޾־Ǿ pl p]ȾiȾɾ pH pA)ʭ) B p D C8`H VChL /Ǿ0)Ⱦɾ p7H)h) Bȱe` /`ȱ ,0) ` :D 0$ 0:D`OP`QRSTB LAwLAwLATSRQL12ɿ(gx ,X] j*C'@A A@ BA  j) @ ` hh H hL ȑȊȩ `BCDtEl& L 3!! /! %8!e8e#ѥ8˭0!;!#?BC ,`حlmȱ8#$8#RSTU=PQ`8L pL tϾξ׾ھȌپȌؾ pڭо־޾ BL"L9"Lz"0 JJ, "L"H  A h "   #  ɠ ʛ #eL! " ɠɍ ɊɌ驍 #L" "- " # " " " # ") " ɠ #` "[ " "S "M $ # "0 L")ЅЅ # L"ȱ0 p `H "h8L p` hh L"8` ` ɠɛɃ`TYPE&dN9:::"APPLE MLX":34,2:610Xn1:20:"START ADDRESS";:530:A0ĺ(7):110`xSA2:20:"END ADDRESS ";:530:SAA0ĺ(7):130EA:"CHOOSE:(E)NTER DATA";:22:"(D)ISPLAY DATA":8:"(L)OAD FILE (S)AVE FILE (Q)UIT":& A$:I15:A$("EDLSQ",I,1)Ă:160E I270,220,180,200:34,0:z "FILENAME: ";A$:A$""ĺ(4);"BLOAD";A$;",A";S 150 "FILENAME: ";A$:A$""ĺ(4);"BSAVE";A$;",A";S;",L";ES 150 590:B0150 BBE8:L4:AB:580:A$;": ";:L2+ F07:V(F1)(BF)::560:V(9)C^ F1N:AV(F):580:A$" ";:::(49152)128Ăp 49168,0:150 590:B0150 BBE8 "1:AB:L4:580:A$;": ";:64668:A$"":P0:330:L0150 ,470:FNĺ(7);:290 6N9İ560:CV(9)ĺ(7);:290, @F18:BF1,V(F)::::150K J(A$)33A$O$:PO:(7);w TL(A$):O$A$:OP:L$"":P0L$(A$,P) ^R$"":PL1R$(A$,LP1) h7:L$;::PLĺ(A$,P1,1);::R$; r" ";: |K(49152):K128380 49168,0:KK128 K13Ė7:A$;" ";:D K32K47K58K64K71A$L$(K)R$:PP1V K4A$L$R$x K9A$L$" "(A$,P1,1)R$ K8PP(P0) K21PP(PL) 330 F1:D0:P1(A$):C$(A$,P,1):FNC$" "ı C$" "İ520:V(F)J16(D1)V(F):DD1& D0C$" "D2D0:FF17 :D0FF1= [ J(C$):JJ487(J64):} A0:A$:A$(A$,4):(A$)0ı P1(A$):C$(A$,P,1):C$"0"C$"9"C$"A"C$"Z"A0: &520:AA16J::0C(B256):CB254C255(C127):CC255(C255)=:F18:CC2255(C127)V(F):CC255(C255)::DI(0):A$"":I1L:T(A16):A$("0123456789ABCDEF",A16T1,1)A$:AT::N"FROM ADDRESS ";:530:SAEAA0B0:XBS8((AS)8):b"DISK ERROR":150d *********************7* DISK.SLEEVER *R* BY MARK A. HEATH *m(* COPYRIGHT(C) 1989 *2* MICROSPARC, INC. *<* CONCORD, MA 01742 *F*********************PB$(136):U$(223) ZI140:BB$BB$(136):UU$UU$(95):) dPS1:ST$(27)(80):SLOT6:DRIVE15 nD$(66)M x *** MAIN MENU *** :::A$"Disk Sleever By Mark Heath":740:A$"(C) 1989 BY MICROSPARC, INC.":740:A$"----------------------------":740: 28 -'S 15:A$"Use numbers/arrows & press ":740L 19:A$"Current drive: Slot "(SLOT)", Drive "(DRIVE):740v 21:A$"Printer slot: "(PS):740:5 :B:A1B:A$(A): 5,PRINT SLEEVE WITH CATALOG,PRINT SLEEVE WITHOUT CATALOG,CHANGE SLOT AND DRIVE,CHANGE PRINTER SLOT,QUIT, A1B:" ";A;". ";A$(A):::SE1:270X 16384,128:KEY(16384)128:16368,0} KEY21KEY10İ290:SESE1:310 KEY8KEY11İ290:SESE1:310 KEY49KEY48Bİ290:SEKEY48:310 KEY13ĴSE390,370,440,530,350 200  TURN CURSOR ON< 3(SE2):2::"--> ";SE;". ";A$(SE)::R  TURN CURSOR OFF| "3(SE2):2:" ";SE;". ";A$(SE): , CHECK SE FOR VALIDITY 6SE1SEB @SEBSE1 J270:200 T *** QUIT *** ^: h *** PRINT SLEEVE, NO CATALOG *** rCF0:780:130A | *** PRINT SLEEVE WITH CATALOG ***w ::"Place your ProDOS disk in slot ";SLOT;",": "drive ";DRIVE;", and press RETURN...";:K$"":L1:580: K$(27)130 1080:CF1:780:130 *** CHANGE SLOT AND DRIVE ***H:"Change Slot and Drive":"---------------------": 22 DASHES:"The directory of the disk in the drive":"that you select will be printed on the":"disk sleeve. The selected drive must""contain a ProDOS disk."210:958:"Enter slot (1-7): ";:K$(SLOT):L1:580::K$(27)130TSLOT(K$):SLOT1SLOT747012:958:"Enter drive (1-2): ";:K$(DRIVE):L1:580::K$(27)470DRIVE(K$):DRIVE1DRIVE2490130 *** CHANGE PRINTER SLOT ***/:"Change Printer Slot":"-------------------": 19 DASHES4:958:"Enter your printer slot: (1-7) ";:K$(PS):L1:580::K$(27)130&PS(K$):PS1PS75400130: *** INPUT ROUTINE ***DK$""600N:K$;::B$;X16384,128:K(16384):K155K$(27):16368,0:*b16368,0ClK141ĝ:K$;:B$;:^vK177K255K183600g720u16368,0K(16384):K128660K141ĝ:K$;:B$;:16368,0:K183K177K255710K155K$(27):16368,0:600(7);:K$"":600DK$""::(K);:B$;:K$K$(K128):LILI1::600l *** CENTER A$ ON CURRENT LINE ***20((A$)2):A$: *** PRINT THE ENVELOPE *** *** NOTE: APPLE II+ USERS CAN MODIFY THIS PORTION OF CODE... ***2 *** IN ORDER TO PRINT THE BACKSLASH CHARACTER USE CHR$(47) *** :10:"Make sure your printer is on-line"::"and press RETURN...";:K$"":L1:580::K$(27)1301040 A16:" ";::A155:"_";::*A123:880: 4A15:" ";::"!";:A155:".";::"!"E>A127:B16:" ";:B:"!";:B153:" ";:B:"!":AsHA16:" ";::"\";:A153:" ";::"/"RA17:" ";::"\";:A151:"_";::"/"\1060:130f *** PRINT LINE #A OF FRONT ***pA1L$" /":R$"\":990zA2L$" / ":R$" \":9908A3L$" / ":R$" \":990[A4L$" / ":R$" \":990A5L$"/ ":R$" \":990A19L$"\ ":R$" /":990A20L$" \ ":R$" /":990A21L$" \ ":R$" /":990 A22L$" \ ":R$" /":990.A23L$" \":R$"/":990HL$"! ":R$" !"eL$;"!";:CFİ1160:1010A$"":B155:A$A$" ":A$;"!";R$ *** INITIALIZE PRINTER ***(4)"PR#"PS:ST$: *** TURN PRINTER OFF ***$(4)"PR#0":'. *** READ DIRECTORY INTO D$ ***281140gB(4)"PREFIX,S"SLOT",D";DRIVE:(4)"PREFIX":PR$L(4)"OPEN ";PR$;",TDIR":(4)"READ ";PR$:D$(0):A$:A$:N0VD$(N1):D$(N1)""1130`NN1:N691110j(4)"CLOSE":216,0:5t216,0::10:"Disk error. Please press RETURN...";A$:130]~ ** BUILD LINE #A WITH CATALOG ***lN231260{N451220A1A$" "(D$(0),16):C55(A$):B1C:A$A$" "::A$" "(D$(A1),2,15)" "A$A$(D$(A21),2,15)" ":A43NāB119:A$A$" "::;A$A$(D$(A43),2,15)" ":xA1A$" "(D$(0),16):C55(A$):B1C:A$A$" "::A$"":B15:A$A$" "::A$A$(D$(A1),2,19):B16:A$A$" ":A21NāB125:A$A$" "::A$A$(D$(A21),2,19):B16:A$A$" "::MA1A$" "(D$(0),16):C55(A$):B1C:A$A$" "::uA$"":A1N:B155:A$A$" "::B15:A$A$" "::A$A$(D$(A1),2,44):B16:A$A$" "::  *************************?* MenuPro *^* By Juan S. Lach *}(* Copyright(c) 1989 *2* Mindcraft Publ. Corp. *<* Concord, MA 01742 *F*************************P4530Zd All flags: n9 xTXT0:BAS1:BIN1:SYS1:VAR0:DIR1:0=RUN,1=DON'Tz PIC1: 0=DON'T DISPLAY PIC, 1=DISPLAY PIC, 2=DISPLAY ASKING TF0: 0=Normal clock, 1=24 hour clock CRE0: 0 = Show modification date, 1 = Show creation date Main program: $ D$(4)::D$;"PR#3":(18)> :1403,33:"MenuPro"^ 1403,30:"By Juan S. Lach" 1403,29:"Copyright(c) 1989" 1403,28:"MindCraft Publ. Corp." 1403,29:"Concord, MA 01742" 12:1403,30:"Reading catalog "; 280 D$;"DELETE PRGM.EXEC":290# 216,0. "4530X ,2240: Configure Printer & Interface 634,2:SE1SE0::CP0:PG0:INF0:B10:3620:330 @M$(80),TY$(80),L$(80),SB$(80),TM$(80),T1$(18):3620 JCP1:V6:OA49249:Z(64448):Z224Z0( T1403,30:22:"Press Return to continue";:A$:= ^2570: Get TimeL hSE1390W r4530` |420n Z0410 5:1403,0:(27);(15);:J180:"S";::(14);(24);:420 5:1403,0:J180:"=";:= 4:1403,1:"Name of file";:1403,19:"Type of file";:1403,41:"Time";:1403,56:"SIZE: (Bytes) (Blocks)"Q SE1SE0:460v 3820: Get types & convert them 34,0:1:1403,0:868 6:958 34,5::B15510 T114:4110:: Print first 14 filenames PGB14:PG(PG)PG(PG):PGPG1520GT1B:4110:: Print all filenames (if < 15)a4280:"Prefix: ";PF$rZ0ĺ(27);(15);"A";(14);"-? for Help.";&Z0ĺ(24);01403,18:"Total files: ";B;" Total blocks: ";TB$;:1403,56:"Blocks remaining: ";BR$#:2680: PRINT DATE AND TIME2DUT13010N23:"Commands: L)oad N)ormal P)refix U)tilities Q)uit [ = R)un]"XPG0PG1:SE2: PG = 1 for printing page numbers.b34,0:1:1403,67:"Page ";CP;" of ";PG;".":34,5*lSE2SE0:PG0: Restore original PG value`vINF1650: Device info is already on the screen2340: Get device information.:VM$((V5)B1): Print cursor barP(16384):P128670: Get keystroke16368,0::V: Delete cursor bar$M$((V5)B1):P225PP32VP141P255: Parse as a code = 255P155P254: Parse as code = 254P192820: Codes greater than 192 parse in line 840CPPGĭP138VV1:V(B35)V6:990: Down arrow pressed; last page is being used(CPPG760PG1ĭP138VV1:V19V6:990: Down arrow, move down or advance 1 page; page > 1 is being viewedP139VV1:V5V6:1120: Up arrowPG1790 P138VV1:VB5V6: Down arrow (P191P175)(OA)1274320: Apple-?N (P176P186)(OA)1274160: Apple-numu*650: Loop back to display cursor4P196(OA)1272800: Apple-D (Dump)>P194(OA)127V6:650: Apple-BHP197(OA)127ĭCPPGVB35:650: Apple-E/RP197(OA)127ĭPG0VB5:650: Also Apple-EN\P197(OA)127V19:650^fP2544430pUT13040: If utilities, parse other commandszP255P2101420: RunP2081270: PrefixP2041630: LoadP2062000: Normal catalogP2092110: Quit?P213ī3000: Set up Utilities menuH650Nf Display next pagel{PG2ī65035,20::6:1403,0CPCP1:CPPGCP1CP2B1B114CP2B114CP1B10V6:B2B114:B2BB2B:B3BB1$B2B114B314,.TB11B2:4110:<835,24:600BB^L Display previous pagedVy`PG2VB5:650j35,20::6:1403,0tCPCP1:CP1CPPG~CP1B114(CP1)PG1V19:1180VB5CP1B10B2B114:B2BB2B:B3BB1"B2B114B3144CPPGVB35KTB11B2:4110:[35,24:600av Set new prefix|4280:"Current prefix: ";PF$"Enter new prefix [ to quit]: "; 4210: GET INPUTSE1X$""ĺ(21):: X$""520(1350?2D$;"PREFIX ";X$:216,0:SE1:4530H<190F(222)6İ4280:"Incorrect prefix":4250:216,0:1270P(222)3İ4280:"The requested device is not found":4250:216,0:1270 Z(222)7İ4280:"Volume mismatch":4250:216,0:1270>d4280:"Error number ";(222):4250:216,0:1270DnNx RunT^4130R1$T1$(15)R1$T1$(16)520D$;"VERIFY ";R$R1$T1$(3)1500: Basic FilePIC01470R1$T1$(5)R1$T1$(8)R1$T1$(2)1520: SYS,BIN or TXT#R1$T1$(1)1590: DirectoryO4280:"Not a runable file.":4250:520_BAS01680(21):::103,1:104,8:D$;"RUN";R$R1$T1$(5)BIN01680R1$T1$(8)SYS01680R1$T1$(2)TXT01680 D$;"OPEN PRGM.EXEC":D$;"WRITE PRGM.EXEC"F"POKE 103,1:POKE104,8:NEW":"-";R$:D$;"CLOSE PRGM.EXECU"(21)::p,D$;"EXEC PRGM.EXEC":6DIR01680@D$;"PREFIX";PF$;R$JSE1:190: READ CATALOG AGAINT Load^4130 hR1$T1$(1)İ4280:"Directories can't be loaded.":4250GrR1$T1$(2)İ4280:"Text files can't be loaded.":4250~|R1$T1$(1)R1$T1$(2)R1$T1$(16)R1$T1$(15)520D$;"VERIFY ";R$R1$T1$(3)1720: BAS fileR1$T1$(4)1750: VAR fileR1$T1$(5)R1$T1$(8)1800: BIN OR SYS FILE94280:"Not able to load this file.":4250:520IBAS01680t(21):::103,1:104,8:D$;"LOAD "R$zVAR01680D$;"OPEN PRGM.EXEC":D$;"WRITE PRGM.EXEC""NEW":"RESTORE";R$D$;"CLOSE PRGM.EXEC":(21) ::D$;"-PRGM.EXEC"S4280:"Load address [0=Default address, RETURN to quit]: ";:4210bX$""520X(X$):X0R1$T1$(8)X8192:1870&X018700(X2048X36864)(X768X975)1800:X2047X(L$)368641940DX767X(L$)9751940NR1$T1$(5)HT$"BIN":1890+XHT$"SYS"[b4280:X767X2048ĺD$;"BLOAD";R$;",A";X:lD$;"OPEN PRGM.EXEC":D$;"WRITE PRGM.EXEC"v"NEW":X0ĺ"BLOAD";R$:1930"BLOAD";R$;",A";XD$;"CLOSE PRGM.EXEC":::4600) 2048(L$)36864İ4280:"File too large to be loaded.":1960j 4280:"File too large, try loading it at another location."y 4250:520   Normal catalog  34,2: Z0ĺ(27);(15);:5:1403,0:T180:"S";::(14);(24);:2030 !5:1403,0:T180:"=";:O!34,5:22:868:"Press Control-S to pause, Control-C to stop."l!35,21:6:1403,0:2060~!D$;"CATALOG"! 216,0:4530!SE1:35,24:23:1403,0:4250:CP1:350! !* Quit!4">4280:"Are you sure (Y/N)?";:A$:A$"Y"A$"y"520M"H4280:"Return to BASIC (Y/N)?";:A$:A$"Y"A$"y"2140^"R(21):::p"\D$;"PREFIX/""f(49149)0ĺD$;"BYE""pT768778:A:T,A::768"z" Configure printer port (Change it to your own configuration)"6# This program contains the configuration for an Apple IIcz# printer port 1: 7 Data bits, 1 stop bit, 4800 baud, no parity# no echo, LF after CR & 80 columns.##49153,0#2290: SKIP IIC SETUP#1144,60: 7 D. bits, 1 stop; 4800 baud$1145,107: even parity=$1146,64: no echo, LF after CRd$1147,80: 80 characters before CR$49236,0: Select main video memory$$ $ Get what type of drive & computer we're using$ $$ 34,1:2:1403,0:D1$. 23807%8 "Device used: ";DS$;" at slot ";SL;", drive ";D;" in an ";A$I%B 34,5:INF1:k%L I(48944):I127D2:II128w%V SLI16%` 768,165:769,6:770,41:771,240:772,133:773,6:774,165:775,7:776,41:777,15:778,133:779,7:780,96z&j 789,169:790,00:791,141:792,39:793,3:794,56:795,32:796,31:797,254:798,144:799,1:800,96:801,169:802,1:803,141:804,39:805,3:806,96&t C(48945):T1(C1)2&~ DX(48945T):6,DX:7,DX:768& DX(6):DXITC2& & DX(7):DX0DS$"Disk ][":2530' DX4DS$"Profile":2530:' DX15DS$"Ramdisk":2530Z' DX11DS$"3.5 Disk":2530z' DX13DS$"3.5 Disk":2530' DX5DS$"Hard Drive":2530' DS$"Unknown"' 789:(807)1A$"APPLE IIGS":Z( (807)0QZ(64435)(64448):A$"APPLE II"("C E-ENHE-OLDPLUS ",15((QZ229)(QZ239)(QZ240)),5): 4 SPACES AFTER C:RETURN`( ( This routine reads the time into MM$,YY,DD,HH & MI:( MN$"---JanFebMarAprMayJunJulAugSepOctNovDec"( DD(49040)((49040)32)32') YY((49041)2):MM((49041)YY2)8((49040)32)?)( MM$(MN$,MM31,3)[)2 MI(49042):HH(49043)g)< TF1ıw)F HH11PM1)P HH12HHHH12)Z HH0HH12)d )n This routine prints the date and time on the screen)x 34,0:1:1403,0:"Date: ";* DD0ĺ"":34,5:<* DD;"/";MM$;"/";:YY10ĺ"0";W* YY;" ";:HH10ĺ"0";q* HH;":";:MI10ĺ"0";* MI;:TF12760* PM1ĺ" PM":2760* " AM"* 34,5:* * Dump the catalog to a printer* -+ 4280:"Press space bar to print; Escape to exit.";:A$:A$(27)520A+ A$(32)2800s+ D$;"PR#1": Change it to your printer's slot+ (9)"80N": CHANGE TO YOUR PRINTER'S 80 COLUMN COMMAND+ "Prefix: ";PF$+" SE1:2690+, (16384)155Ĺ16368,0:2910U,6 :" Name of file";:20:"Type of file";:36,41:"Time";:36,56:"SIZE: (Bytes) (Blocks)"k,@ T180:"_";::u,J 2930,T :::B" files listed Blocks remaining: ";BR$;" Total blocks: ";TB$,^ D$;"PR#0":D$;"PR#A$C307",h 5207-r T1B:M$(T);2);TY$(T);:36,40:TM$(T);:36,62:L$(T);:36,74:SB$(T)\-| (16384)155Ĺ16368,0::2910d- :j- {- Utilities:- - This is the utilities entry routine- UT1: Set utility flag. 23:868:"Utilities: D)elete L)ock U)nlock R)ename [ = Q)uit]"(. 600L. This is the utilities parser:k. P255P209UT0:23:580. P204P2133100: Lock/Unlock. P2103210: Rename. P1963370: Delete. 650. Lock/Unlock. 4130/& R1$T1$(16)R1$T1$(15)3530/0 P2043160,/: D$;"UNLOCK";R$7/D A$" "A/N 3180R/X D$"LOCK";R$]/b A$"*"}/l X$A$(R$,(R$)):X$X$" "/v M$((V5)B1)X$:SE1:3530/ Rename/ V::M$((V5)B1)::4280:4130:C$M$((V5)B1)0 R1$T1$(15)R1$T1$(16)3530&0 "Current name of this file: ";R$h0 "Enter a new name for this file [ to exit]: ";:4210w0 X$""5200 33000 D$;"RENAME";R$;",";X$0 216,0:45300 33500 216,0:45301 (222)16İ4280:"Illegal filename.":4250:3530U1 (222)19İ4280:"Another file already exists with the same name.":4250:35301 (222)10İ4280:"The file is locked. It can't be renamed.":4250:35301 4280:"Error number ";(222):4250:35302 C$" "X$:T117(C$):C$C$" "::M$((V5)B1)C$:35302 Delete=2* R1$T1$(15)R1$T1$(16)353024 :V:M$((V5)B1)::4280:"This file is to be permanently destroyed.":"Do you want to destroy it (Y/N)?";:A$2> A$"Y"5202H 34902R 4130:D$;"DELETE ";R$O3\ TEPG:T(V5)B1B:M$(T)M$(T1):TY$(T)TY$(T1):L$(T)L$(T1):SB$(T)SB$(T1):TM$(T)TM$(T1):t3f BB1:B3B31(CPPG):CP134503p PGB14:PG(PG)PG(PG):PGPG13z PGTECPPGV6:B2B21:B1B113 (V5)(B2B1)VV13 216,0:45303 35304 216,0:4530U4 (222)10İ4280:"The file is locked, it can't be deleted.":4250:35304 (222)4İ4280:"The disk is write protected, the file cannot be deleted.":4250:35304 This routine restores the screen after Del,Rem,Lock & Unlock5 35,20:6:958:1403,045 CP1PG0āT1B:4110::3570T5 CP1āT114:4110::3570k5 TB11B2:4110:5 35,24:SE1SE0:6505 52055 Get the catalog into the array M$ (The heart of the program)55$D$;"PREFIX":PF$ 6.B1:12:1403,46$68D$;"OPEN";PF$;",TDIR"86BD$;"READ ";PF$B6LVOL$T6VA$:A$:A$""t6`M$(B):TY$(B)(M$(B),18,3)6jL$(B)(M$(B),64,8):SB$(B)(M$(B),26,3)6tCRE0TM$(B)(M$(B),31,15):37206~TM$(B)(M$(B),48,15) 7M$(B)(M$(B),1,17):M$(B)""374007BB1:".";::" ";::(8);:3680Y7BR$:TB$(BR$,58,5):BR$(BR$,14,5)m7D$;"CLOSE";PF$7BB1:M$(1)""ĉ::"DIRECTORY EMPTY, try another prefix";(7):42507M$(1)""ė:SE1:127077#8 Convert the BASIC.SYSTEM type mnemonics to a friendlier format)8?8T118:T1$(T):8 Directory,Text,Applesoft Program,Applesoft Variables,Binary,Relocatable Code,ProDOS added command,System,Word Processor,Database,Spreadsheet+9 Int BASIC program,Int BASIC Variables,Pascal,Bad Block,Typeless,User defined,Other69 T1B\9TY$(T)"DIR"TY$(T)T1$(1):40409TY$(T)"TXT"TY$(T)T1$(2):40409(TY$(T)"BAS"TY$(T)T1$(3):404092TY$(T)"BIN"TY$(T)T1$(5):40409<TY$(T)"SYS"TY$(T)T1$(8):4040:FTY$(T)"AWP"TY$(T)T1$(9):4040A:PTY$(T)"ADB"TY$(T)T1$(10):4040h:ZTY$(T)"ASP"TY$(T)T1$(11):4040:dTY$(T)"VAR"TY$(T)T1$(4):4040:nTY$(T)"CMD"TY$(T)T1$(7):4040:xTY$(T)"REL"TY$(T)T1$(6):4040;TY$(T)"INT"TY$(T)T1$(12):4040(;TY$(T)"IVR"TY$(T)T1$(13):4040O;TY$(T)"PAS"TY$(T)T1$(14):4040v;TY$(T)"$01"TY$(T)T1$(15):4040;TY$(T)"$00"TY$(T)T1$(16):4040;(TY$(T),2)"$F"TY$(T)T1$(17):4040;Q1$" ( ":Q2$" ) ":TY$(T)T1$(18)Q1$TY$(T)Q2$<5<D$;"FRE": Clean up all garbage accumulated;<A<b< Miscellaneous subroutines:h<< Print one line of the catalog<M$(T);2);TY$(T);:1403,40:TM$(T);:1403,62:L$(T);:1403,74:SB$(T):= Isolate the name and type of the file into R$ & R1$3="R$((M$((V5)B1),16),15)K=,R1$TY$((V5)B1):}=6 Apple-1 thru Apple-9 (Go to pages 1 thru 9)=@PP176:PPGĺ(7);:650=JPCP650=T35,20::6:1403,0=^CPP:B114(CP1):1050>h Input anything: (CALL -657 and scan input buffer)%>rX$"":657S>|T512767:(T)141X$X$((T)128):Y>> Ask user to press any key to continue>"Press any key to continue.";:A$>> Clean screen from line 21 to line 24>21:1403,0:958:? Data for the ProDOS quit command=? 32,0,191,101,6,3,4,0,0,0,0H? HelpR?4280?Z0ĺ"Arrows move cursor bar, ";:4360?(27);?(15);"K";(14);" and ";(15);"J";(14);" move cursor bar, ";"@(15);"A";(14);"-1 thru ";(15);"A";(14);"-9 move cursor to pages 1 thru 9."@(15);"A";(14);"-B moves cursor to beginning of page,";(15);"A";(14);"-E moves cursor to end of page.";:(15);"A";(14);"-D dumps":"catalog to a printer.";@" Esc backs up 1 directory level."A&1403,20:4250:520A0?A: Escape pressed, back up 1 directory level.EADkAN(PF$,1)"/"PF$(PF$,(PF$)1)AXDL1:T2(PF$)Ab(PF$,T,1)"/"DL0:DPTAlAvDL0PF$PF$"/":650ANP$(PF$,DP1):D$;"PREFIX";NP$ASE1:190A B Error trapper:B%B(222)255Ħ9B(222)64580B4280:"Path not on this disk. Be sure"VOL$" is inserted.":"Press space bar to continue, Escape to quit.";:A$:A$(32)ĦBA$(27)SE1:1270B45506C(222)4İ4280:"The disk is write protected, the operation is canceled.":4240:520C4280:"Error number ";(222)" in line "(218)256(219):4250:216,0:SE1:350CD$"-PRGM.EXEC" X F;4ZX FZZZZZX M` T` T`'     (48647)24(48648)3ĀY:(21):(4)"BRUN CLEAN":12:12:"CLEAN INSTALLED" `آ vYbRSTUIPQ`a bJJjm  i ` a)ɍ`L POSITION (Deferred) Read and discard a number of fields Form: POSITION pn ,F#|,R# Example: POSITION WORDLIST,F15 This example causes 15 fields to be read and discarded starting at the current file position of WORDLIST in the prefix directory. pn must indicate an open text file. F# and R# have identical meanings. Each causes # fields to be read and discarded from pn. PR# (Imm & Def) Send output to a slot or a program Form: PR# snum|A#|snum,A# Examples: PR#1 PR# A$300 PR#1,A$C300 The first example causes subsequent characters to be sent to the device in slot 1; the second causes the routine at $300 to be used for output; the third assigns slot 1 to slot 3. snum indicates the output slot; A# is the address of an output program whose first byte is a 6502 CLD instruction. If both snum and A# are used, snum is assigned a new I/O routine. PREFIX (Imm & Def) Assign or view current Prefix Pathname = PREFIX + Partial Pathname Form: PREFIX [pn] [,S#] [,D#] Examples: PREFIX (Gets Prefix) PREFIX /EXAMPLES/PRACTICE From Immediate mode, No options: Prefix displayed on screen. From program, no options: Next INPUT assigns Prefix to variable pn must indicate a directory file. If pn is "/", Prefix is empty, else Prefix is set to pn. [,S#] [,D#] without pn: Prefix set to the volume name of [,S#] [,D#] READ (Deferred) Prepare an open file to be read Form: READ pn [,R#] [,F#] [,B#] Examples: READ MIND READ /OUT/LOUD,R25 The top example prepares MIND from the the prefix directory for reading. The other prepares record 25 of /OUT/LOUD to be read. After READ, INPUT and GET get data from pn until the next ProDOS command is issued. With random-access files, [R#] is the record to be read. [F#] and [B#] are the number of fields and bytes to skip before starting to read. RENAME (Imm & Def) Change a file's name Form: RENAME pn1,pn2 [,S#] [,D#] Example: PREFIX /MYDISK RENAME OLD.NAME,NEW.NAME This example gives /MYDISK/OLD.NAME the new name /MYDISK/NEW.NAME pn1 is the file's old pathname; it must exist, and it must be unlocked. pn2 is the file's new pathname; it must not exist. pn1 and pn2 must be in same directory. The other options are used as usual. RESTORE (Imm & Def) Get variables from a file Form: RESTORE pn [,S#] [,D#] Example: RESTORE /GAMES/HIPPO.VARS This example reads the variables from the file /GAMES/HIPPO.VARS and uses them for the program currently in memory. When you restore variables, ProDOS first removes all BASIC variables that were previously in memory. pn must indicate a file of type VAR. The other options are used as usual. RUN (Imm & Def) Run a BASIC program from a file Form: RUN pn [,@#] [,S#] [,D#] Example: RUN BINGO ,@100 This example loads the file BINGO from the prefix directory, and then runs it beginning at line 100. pn must indicate a file of type BAS. Without the [,@#] option, ProDOS starts running the program at its first line. With this option, ProDOS starts running the program at line #. The other options are used as usual. SAVE (Imm & Def) Save a BASIC program to a file Form: SAVE pn [,S#] [,D#] Example: SAVE /CUSHION/WHOOPEE This example stores the BASIC program in memory into the BASIC program file (type BAS) /CUSHION/WHOOPEE on a disk. pn is the pathname or partial pathname of the file in which the program is to be saved. If pn already exists, it must be unlocked, and it must be type BAS. The other options are used as usual. STORE (Imm & Def) Save all variables into a file Form: STORE pn [,S#] [,D#] Example: STORE /GAMES/HIPPO.VARS This example places the names and values of all the BASIC variables that are currently defined into the file /GAMES/HIPPO.VARS, of type VAR. The values of these variables can be brought into memory using the RESTORE command. The other options are used as usual. SYNTAX of ProDOS command options [,A#] Address of 1st byte to transfer [,B#] Bytes to skip [,D#] Drive number (1-2) [,E#] End address for transfer [,F#] Fields to skip [,L#] Length of record [,R#] Record number in file [,S#] Slot of disk drive (1-7) [,@#] BASIC line number pn = Pathname, partial pathname snum = Slot number (0-7) [,Ttype] type = File type abbrev. See: HELP FILE for file types; HELP BINARY for A#, B#, E#, L# UNLOCK (Imm & Def) Remove protection from a LOCKed file Form: UNLOCK pn [,S#] [,D#] Example: UNLOCK /IMPORTANT/INFO This example unlocks the file INFO on the disk named /IMPORTANT. When a file is unlocked, it can be written to by a program, renamed or deleted. The other options are used as usual. WRITE (Deferred) Prepare an open file to be written Form: WRITE pn [,R#] [,F#] [,B#] Examples: WRITE SOON WRITE /LY/SO,R26 The top example prepares SOON from the prefix directory to be written. The other prepares record 26 of /LY/SO to be written. After WRITE, PRINT sends characters to pn until a ProDOS command is issued. With random-access text files, [R#] is the record to be written. [F#] and [B#] are the number of fields and bytes to skip before writing. PRACTICEuHUSTON!C ' 'RENAME.ME.1!C ARENAME.ME.2!C ARENAME.ME.3!C ADELETE.ME.1!C ADELETE.ME.2!C ADELETE.ME.3!C ALOCK.ME.1!C ALOCK.ME.2!C ALOCKED.UP.1!C !ALOCKED.UP.2!C !APROGRAMSuHUSTON!C ' 'WHIZBOOM?C ATWO.LINER1C AVERY.SHORTC AONERR.DEMOwC APART1C APART2nC A&E.S.P.C ALISTSELFC AMAKE.FRUITC AGET.FRUITC ACONJUGATEC ACONJUGEATEN C ADATAuHUSTON!C ' 'FOUR.FRUITSC AVERB.LIST $C ATEXT!!C A*BLACK.BOOK#C A'PICTURE& C ALISTFILE6C! APOKER.EXEC7C! AEXTRASuHUSTON!C ' '$TIME9 C' !AREAD.DIRECTORY?C( !A#APAA C( ! ܨ-POSTAGE.RATESK C) !ADIRECTORYuHUSTON!C '  'TEXTRC* AAPPLESOFT.PROGSC+ AAPPLESOFT.VARSTC+ ASYSTEM.PROGRAMUC, ABINARYVC, ARELOC.CODEWC- AUSER.DEFINER.1XC- ADIRECTORYYC. C.  "I'M A PRACTICE PROGRAM" "I'M A PRACTICE PROGRAM" "I'M A PRACTICE PROGRAM" "I'M A PRACTICE PROGRAM" "I'M A PRACTICE PROGRAM" "I'M A PRACTICE PROGRAM" "I'M A PRACTICE PROGRAM" "I'M A PRACTICE PROGRAM" "I'M A PRACTICE PROGRAM" "I'M A PRACTICE PROGRAM" WHIZBOOM I1800"WHIZBOOM ";7I=(  "I'M LINE 10. ";/"I'M LINE 20. ";  "A VERY SHORT PROGRAM" ONERR.DEMO* D$(4): CONTROL-D4100O"FILE TO RENAME? ";F$d("NEW NAME? ";N$2D$;"RENAME ";F$;",";N$<d(222)10200n"FILE IS LOCKED. RENAME ANYWAY? (Y/N) ";Y$xY$"Y"Y$"y"ĀD$;"UNLOCK ";F$ D$;"RENAME ";F$;",";N$% D$;"LOCK ";N$+ M "ERROR #";(222);" DETECTED"o "AT LINE ";(218)(219)256u  PART1% D$(4): CONTROL-DID$;"PREFIX /EXAMPLES/PROGRAMS"nI$"THE STRING I$ IS PRESERVED."("PART1: I$ HAS BEEN SET."2D$;"CHAIN PART2,@35"  PART2/"PART2: WRONG LINE NUMBER."745Y#"PART2: RIGHT LINE NUMBER."l-"PART2: ";I$ E.S.P.# : CLEAR SCREEN>D$(4): CONTROL-D `B$(7): CONTROL-G IS BELL z( GET A RANDOM NUMBER2I(10(1))<"I AM THINKING OF A NUMBER FROM 0 TO 9."F"DO YOU KNOW WHAT IT IS?": P"TYPE Q TO QUIT":"OR CHOOSE A NUMBER FROM 0 TO 9 -> ";< Z GET THE NUMBER, CHECK FOR QUITa dN$:N$::(N$"Q")(N$"q")200~ n CHECK FOR VALID NUMBER x(N$"0")(N$"9")ĺB$;"NUMBERS ONLY, PLEASE."::80 N(N$): CHANGE LETTER TO NUMBER GG1: ADD ONE TO TOTAL GUESSES. NISS1:"YOU GUESSED IT!!";B$:170V "NICE TRY. THE NUMBER WAS ";I;"." :"YOU HAVE GUESSED ";S;" NUMBERS IN ";G;" TRIES." "THAT IS ";100SG;" PERCENT." :50  PROGRAM LISTSELF2 D$(4): CONTROL-DRD$;"PREFIX /EXAMPLES/DATA"jD$;"OPEN LISTFILE"(D$;"WRITE LISTFILE"2<D$;"CLOSE" MAKE.FRUIT D$(4)>D$;"PREFIX /EXAMPLES/DATA"YD$;"OPEN FOUR.FRUITS"x("THIS GOES TO THE SCREEN"2D$;"WRITE FOUR.FRUITS"<"APPLE"F"BANANA"P"CANTALOUPE"Z"DATE"dD$;"CLOSE FOUR.FRUITS" GET.FRUIT) D$(4): CONTROL-DHR$(13): CARRIAGE RETURNhD$;"PREFIX /EXAMPLES/DATA"(D$;"OPEN FOUR.FRUITS"2D$;"READ FOUR.FRUITS"<I03F:A$(I)P:A$(I)ZIdD$;"CLOSE FOUR.FRUITS" CONJUGATE D$(4)=D$;"PREFIX /EXAMPLES/DATA"VD$;"OPEN VERB.LIST"p(D$;"WRITE VERB.LIST"2"DRINK,DRANK,DRUNK"<"THINK,THANK,THUNK"FD$;"CLOSE VERB.LIST" CONJUGEATEN+ D$(4): CONTROL-DJR$(13): CARRIAGE RETURNUC$","u(D$;"PREFIX /EXAMPLES/DATA"2D$;"OPEN VERB.LIST"<D$;"READ VERB.LIST"FA1$,A2$,A3$,A4$,A5$,A6$PA1$;C$;A2$;C$;A3$;R$;A4$;C$;A5$;C$;A6$ ZD$;"CLOSE VERB.LIST"CONJUGEATC AUSE.SUBC A)MAKE.TEXT9C AGET.TEXT C A'ADDRESS RC AMAKE.BLACK.BOOKC A)EXEC.DEMO C ANEW.PROGRAMYC AAWAYiC AMAKE.DOITC ADOIT.EXEC,C APOKERC ACAPTUREC A CONJUGEATEN+ D$(4): CONTROL-DJR$(13): CARRIAGE RETURNjD$;"PREFIX /EXAMPLES/DATA"(D$;"OPEN VERB.LIST"2D$;"READ VERB.LIST"<A1$:A2$FA1$;R$;A2$PD$;"CLOSE VERB.LIST" USE SUBROUTINE. D$(4): CONTROL-DMR$(13): CARRIAGE RETURNmD$;"PREFIX /EXAMPLES/DATA"(D$;"OPEN VERB.LIST"2D$;"READ VERB.LIST"<1000FD$" CLOSE VERB.LIST"PJ1IZ:A$(J)dJn READ A FIELD I0: START AT A$(0), II1: NEXT ELEMENTE C$: READ CHARACTERW C$","ī1010d C$R$ı A$(I)A$(I)C$: ADD TO ARRAY ELEMENT $1020 A$(100): 100 LINES MAX6D$(4): CONTROL-DUR$(13): CARRIAGE RETURN](:2" TEXT FILE CREATOR"<:"TO ADD A LINE:"F:" ENTER CHARACTERS, AND PRESS RETURN"P:"TO END:" Z:" PRESS RETURN ON AN EMPTY LINE" d:34,6: SET WINDOW0 nII1:I;": ";: x1000M A$(I)""110m D$;"PREFIX /EXAMPLES/DATA" "SAVE TO WHAT FILE? ";N$ (N$)0ī230 D$;"OPEN ";N$ D$;"WRITE ";N$ J1I1 :A$(J) J D$;"CLOSE ";N$ :  C$:C$; C$R$ı- A$(I)A$(I)C$7 1000  150(A$(100): 100 LINES MAX4D$(4)A(R$(13)I2:i7D$;"PREFIX /EXAMPLES/DATA"<"LIST WHAT TEXT FILE? ";N$F:"TYPE: CONTROL-S TO STOP LISTING"P" ANY KEY TO CONTINUE"Z::34,6dD$;"OPEN ";N$ nD$;"READ ";N$ xI1100/ I;": ";:10006 IL :D$;"CLOSE ";N$T :a C$:C$;n C$R$ı A$(I)A$(I)C$ 1000  D$(4)0F$"/EXAMPLES/DATA/BLACK.BOOK"6Z("WHAT WOULD YOU LIKE TO DO?":z2" 1 ENTER A NEW ADDRESS"<" 2 LOOK UP AN ADDRESS"F" 3 END":P"TYPE A NUMBER AND PRESS RETURN ";C$ZC(C$):dC1C3ī30 nC1İ1000 xC2İ2000 C3Ā& 30;  READ NEW INFOT "NAME: ";N$m "ADDRESS: ";A$ "CITY: ";C$ "STATE: ";S$ "ZIP CODE: ";Z$ $"PHONE: ";P$ .D$;"OPEN ";F$;",L200" 8D$;"READ ";F$;", R0" BTR:TRTR11 LD$;"WRITE ";F$;",R";TRA VN$:A$:C$Q `S$:Z$:P$k jD$;"WRITE ";F$;",R0"s tTR ~D$;"CLOSE ";F$  D$;"OPEN ";F$;",L200" D$;"READ ";F$;",R0" TR: GET # OF RECORDS TR0ī2210  "WHOSE ADDRESS DO YOU WANT? ":# I1TR> :D$;"READ ";F$;",R";IG :N$R *:I,N$Y 4Ic >D$: H"TYPE A NUMBER AND PRESS RETURN ";R$ RR(R$) \R1RTRī2120 f pD$;"READ ";F$;",R";R zN$,A$,C$,S$,Z$,P$ N$:A$ C$,S$ Z$:P$ D$;"CLOSE ";F$' 23:8J "PRESS RETURN TO CONTINUE";T$P   D$(4);D$;"OPEN /EXAMPLES/DATA/BLACK.BOOK,L200"hD$;"WRITE /EXAMPLES/DATA/BLACK.BOOK,R0"o(02D$;"CLOSE"  EXEC.DEMO& D$(4):Q$(34)P:" << EXEC DEMONSTRATION >>":~"THIS PROGRAM CREATES A SEQUENTIAL TEXT"("FILE NAMED ";Q$;"SHOWOFF.EXEC";Q$;". EACH STRING"2"THAT IS PLACED IN SHOWOFF.EXEC BY THIS" <"PROGRAM IS A LEGAL APPLE II COMMAND.":( F"WHEN YOU TYPE"F P" EXEC SHOWOFF.EXEC"s Z"THE COMMANDS IN THE FILE SHOWOFF.EXEC" d"TAKE CONTROL OF YOUR COMPUTER. EACH" n"COMMAND IS EXECUTED JUST AS IF IT HAD" x"BEEN TYPED IN FROM THE KEYBOARD. "! Q$;"BASIC PROGRAMMING WITH PRODOS";Q$P "DESCRIBES THE PROGRAM IN MORE DETAIL.":x " << HAPPY EXECUTING >>": "PRESS THE SPACE BAR TO MAKE THIS" "PROGRAM CREATE THE FILE SHOWOFF.EXEC .": "PRESS Q TO STOP THIS PROGRAM NOW. "; A$:A$"Q"A$"q"Ā+ A$" "ĺB$;:190O :"CREATING SHOWOFF.EXEC...":s D$;"PREFIX /EXAMPLES/PROGRAMS" D$;"OPEN SHOWOFF.EXEC":D$;"WRITE SHOWOFF.EXEC" 1000 "PRINT"Q$"YOU CAN ENTER LINES OF A PROGRAM."Q$ :"100 TEXT:HOME:VTAB 5"7 "110 PRINT";Q$;"THIS IS A PROGRAM CREATED"Q$l "120 PRINT";Q$;"ENTIRELY BY AN EXEC PROGRAM."Q${ ""130 END" ,"PRINT"Q$"YOU CAN LIST THE PROGRAM..."Q$ 6"LIST" @"PRINT"Q$"PAUSE TO LOOK AT THE LISTING."Q$ J"FOR X=1 TO 8000:NEXT X"1 T"PRINT"Q$"AND THEN SAVE IT TO A FILE!"Q$^ ^:"SAVE /EXAMPLES/PROGRAMS/NEW.PROGRAM"i h"HGR" r"BLOAD /EXAMPLES/DATA/PICTURE" |"PRINT"Q$"YOU CAN EVEN DISPLAY PICTURES!!"Q$ "FOR X=1 TO 4000:NEXT X:TEXT""CAT /EXAMPLES/PROGRAMS"1"PRINT"Q$"YOU CAN DISPLAY A DIRECTORY..."Q$O"FOR X=1 TO 4000:NEXT X"y"RUN /EXAMPLES/PROGRAMS/NEW.PROGRAM""PRINT"Q$"AND RUN PROGRAMS."Q$"FOR X=1 TO 4000:NEXT X""PRINT"Q$"DONE SHOWING OFF."Q$D$;"CLOSE" "IT'S DONE!!!"::"YOUR APPLE IS READY TO SHOWOFF A LITTLE"d"BIT. ALL YOU HAVE TO DO IS TYPE":" EXEC /EXAMPLES/PROGRAMS/SHOWOFF.EXEC":&"PRESS THE RETURN KEY, AND ENJOY.":0"OH, BY THE WAY. IF YOU WANT TO SEE THE":"COMMANDS IN THE FILE SHOWOFF.EXEC, USE"ED"GET.TEXT FROM CHAPTER 6. TYPE":_N" RUN GET.TEXT":X"AND WHEN IT ASKS FOR A FILENAME, JUST"b"TYPE IN":l" /EXAMPLES/PROGRAMS/SHOWOFF.EXEC"E(222): GET ERRORfE4Ģ5:B$;B$;"YOU CANNOT RUN THIS PROGRAM ON A WRITE":"PROTECTED DISK. MAKE A COPY OF THE DISK":"AND TRY AGAIN.":1100E9ĺ"YOUR DISK IS FULL. DELETE SOME OLD":"FILES AND TRY AGAIN.":1100"ERROR"LD$"CLOSE": d::5-n"THIS IS A PROGRAM CREATED"Qx"ENTIRELY BY AN EXEC PROGRAM."W  AWAY% "A WAY TO JOURNEY,":"A WHALER JOE."T"AWEIGH THE ANCHOR,"g("AWAY WE GO." MAKE.DOIT) D$(4): CONTROL-DMD$;"PREFIX /EXAMPLES/PROGRAMS"fD$;"OPEN DOIT.EXEC"(D$;"WRITE DOIT.EXEC"2"PREFIX /EXAMPLES/PROGRAMS"<"CAT"F"RUN AWAY"P"LIST"ZD$;"CLOSE DOIT.EXEC"PREFIX /EXAMPLES/PROGRAMS CAT RUN AWAY LIST  MACHINE LANGUAGE POKER6 D$(4): CONTROL-DVD$;"PREFIX /EXAMPLES/DATA"pD$;"OPEN POKER.EXEC"(D$;"CLOSE POKER.EXEC"2D$;"DELETE POKER.EXEC"<D$;"OPEN POKER.EXEC"FD$;"WRITE POKER.EXEC"PLINENUMBER7000 ZPLACE768783 d:COUNTERCOUNTER15 n:COUNTER10COUNTER1J x:COUNTER1150^ ::LINENUMBER;{ :LINENUMBERLINENUMBER1 :" POKE ";PLACE;",";(PLACE);" :"; PLACE D$;"CLOSE POKER.EXEC"  CAPTURED$(4)7D$;"OPEN LISTING.EXEC"TD$;"WRITE LISTING.EXEC"b10,32000D$;"CLOSE LISTING.EXEC",SHOWOFF.EXECdC APRINT"YOU CAN ENTER LINES OF A PROGRAM." 100 TEXT:HOME:VTAB 5 110 PRINT"THIS IS A PROGRAM CREATED" 120 PRINT"ENTIRELY BY AN EXEC PROGRAM." 130 END PRINT"YOU CAN LIST THE PROGRAM..." LIST PRINT"PAUSE TO LOOK AT THE LISTING." FOR X=1 TO 8000:NEXT X PRINT"AND THEN SAVE IT TO A FILE!" SAVE /EXAMPLES/PROGRAMS/NEW.PROGRAM HGR BLOAD /EXAMPLES/DATA/PICTURE PRINT"YOU CAN EVEN DISPLAY PICTURES!!" FOR X=1 TO 4000:NEXT X:TEXT CAT /EXAMPLES/PROGRAMS PRINT"YOU CAN DISPLAY A DIRECTORY..." FOR X=1 TO 4000:NEXT X RUN /EXAMPLES/PROGRAMS/NEW.PROGRAM PRINT"AND RUN PROGRAMS." FOR X=1 TO 4000:NEXT X PRINT"DONE SHOWING OFF." APPLE BANANA CANTALOUPE DATE DRINK,DRANK,DRUNK THINK,THANK,THUNK THIS IS LINE ONE THIS IS LINE TWO THIS IS LINE THREE THIS IS LINE FOUR THIS IS LINE FIVE AF SDAFSDA FSDAF SDAFSADFSDAF SDAFSADFSDA FSDAFSDAFSDAF ASDFASDFSAD FSADFASDF SADFASDFSDA FSADFSDAF ASDFSADF SDFSADFASDF SADFASDF SADFSADF ASDFSDAF ASDFASDF ASDFSDAFSDAF ASDFSDAFASDF SADFASDFASDFSDAF 0 PERSON 1 HERE AND THERE CUPERTINO CA 95014 NONE IF 95050 (408) 296-2157 BOB BLEICHER 1192 HIGHLAND AVE SANTA CLARA CALIF 95050 (408) 296-2157 "$JOE SMITH 23 MAIN STREET ANYTOWN NEW YORK 10116 (345) 678-9101 6-2157 3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL1%hU 3fL3fL3fL3fLP*B"t*U*U :UjU|3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL3fLU*P*2fL3fL3@L3fLU.U2UjU*W(]*u*U+U.Q:UjU|~$@+!fL3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL3fP:UjU2fL3fL B3fL+U.U2UjU**]*u*U+U.T:UjU*`?p*U+,@3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL3@H3fL3 P ('fL3fLP"Q 3fL+U.U UjU*Q*]*u*U+UU:U TJ@"D "%'()*+,-./0123453fL3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL3fLA(T*3L3f@0Uj|`L3&*T(Q UfL+U.UUjU W*]*u*U+,U:Uj( (D"tch? ";a3fL3fL3fL3fL3fL3R@3fL3fL3fL3fL3fL3*P U*U T**aY0V| $ - CONVERT 24 HOURS TO 12* : HH11PM1N HH12HHHH12^ HH0HH12 " THE CURRENT SETTINGS ARE:" :  "- PRINT DATE AND TIME , 6" DATE: "; @DD0ĺ"":380 TDD10ĺ"0"; ^DD;"-"; cMM$;"-";- hYY10ĺ"0";5 rYY; |W " TIME: ";~ HH12MI0DD0ĺ"":460 HH10ĺ"0"; HH;":"; MI10ĺ"0"; MI; PM1ĺ" PM" PM0ĺ" AM" 18 " UPDATE SYSTEM DATE AND TIME? Y/N "; A$( 18:2:BL$A A$"N"A$"n"Ģ22:I 13n " ENTER DATE: DD-MMM-YY";t   -READ DAY INTO DD  !20:"DD";:20 &A$:(A$"0")(A$"3")545 +DD(A$):A$; 0A$:(A$"0")(A$"9")545 5DDDD10(A$):A$;! :DD31DD1545' <@ > GET MONTH INTO M1$F @i D23:"MMM";:23:COUNT1:M1$"" IA$:M1$M1$A$:A$;:MM4 KM1$(MO$,MM,COUNT)ī595 LMMMM3:MM39ī587 M580 SCOUNTCOUNT1:COUNT4ī585 XMM(MM1)3 -READ YEAR INTO YY,27:"YY";:27KA$:(A$"0")(A$"9")740]YY(A$):A$;|A$:(A$"0")(A$"9")740 YYYY10(A$):A$ -REPEAT UNTIL CORRECT*418:" CORRECT? Y/N ";>A$H18:2:BL$RA$"N"A$"n"510+\13:8:" ":15:8If"ENTER TIME: HH:MM AM";Opgz-READ HOUR INTO HHm20:"HH";:20A$:(A$"0")(A$"1")910HH(A$):A$;A$:(A$"0")(A$"9")910HH10HH(A$):A$;HH12HH1910-READ MINUTE INTO MI"523:"MM";:23UA$:(A$"0")(A$"5")1000gMI(A$):A$;A$:(A$"0")(A$"9")1000MI10MI(A$):A$;MI591000$.-GET AM OR PM8B27"LP$:(P$"A")(P$"a")(P$"P")(P$"p")(P$" ")(P$(13))1090?V(P$"P")(P$"p")ĺ"P";E``j-REPEAT UNTIL CORRECTft~18:2:" CORRECT? Y/N ";A$18:2:BL$(A$"N")(A$"n")120086015:8:" "-UPDATE SYSTEM DATE49041,YY2(MM7)<MM7Ĺ49040,(MM8)32DDVMM8Ĺ49040,MM32DD\-UPDATE SYSTEM TIME (24 HOUR CLOCK) HH12HH0P$"P"P$"p"HHHH12(49043,HH:49042,MI2:20:" SYSTEM DATE AND TIME UPDATED":.<" (DOES NOT SET CLOCK/CALENDAR CARDS)"4F D$(4)+ D$;"OPEN /EXAMPLES,TDIR"DD$;"READ /EXAMPLES"^L1$:L1$: READ NAMEy(L2$:L2$: READ TITLE2L3$:L3$: READ BLANK LINE<L4$:L4$: READ FILESFL4$""ī60PL5$:L5$: READ BLOCK COUNT ZD$;"CLOSE /EXAMPLES"   `Ɋ L HHHH"hhhh  0J X R`ԠҧӠԠΠԠŠҬl0! ! RԱ!      б в @M   &İ &İ .İ 2İ 7İ ?İ Cİ Iı Oı Sı Y@BCDEFGHILLLӍL֍LI;73-)# ,񋅋L=s BA& hi ĩƧeեi8LRȩPQSTUƧ HHɠȰɍX Q ʩPQɠȰɍ }LoɬH) t(hɺ# Ȑ }ɍ ``hhLNPQ` ☥gPhQ ۗ `έ "ӍJK 1д  1 `ɍɀɠ)?HKh @hlJH  Ah#JJ LN VLM H   h`lL` ROɠK t ʎNJJJJ)   و֭穠$`ɘN `ɍ/N *mm  A`LxH  h  `ԠƪLN ghנC6 Ȑ  s "MLNPkȥQk,ȰТ ghȱTȱPȱQȱ3ɲȱ  :  sȩ <ikm  L( 8寅P尅Q  ۗ `ɍQɤRɭȩPQɰ9ɺ5 @.ȹɍ䥥ɭQIQPIiPQ  ۗ `LNȢ0 ȹɍ" ɰɺѝ ȹɍI Hh  Q)QQ P)PPLzLNg `  gh^_sŖt嗐MLN 6s8t& `LN  ` ^_MLN ghIEљ%/Qљ(!P$ 0 ȱ ȱ $  , H  h`sog^⥙ 6LɐLِљ,љ#ȱ ȱȱȱȱ ůДL?st < ^ikm` )) ũ媰 LNd ץPQ TȥћȥH MLNkȑkȥkȥk `eeimjn`ikũ媰MghLSȱPȱQPQjPũQ媰PťQ妰 `PPQ ,ȱPȱQPQPťQ妰ƠΥghiFH   s kPȱkQPQŒɬкɠ# ` d'smtnMLNgms 68minj8sitjsmg ՓȱLޓ ՓȱPȱQ s kPȱkQP ՓQ Փȱ ՓHhk  s kPȱkQ xȌȹNJJJJ)  ) Փۈح,В ՓLk L` ՓghPQLȱPPȱQQȱ ٥st 6ȑ gL? k  LP `LN ץgh`stopijkmln` ̔Ƀ ɲ |` ̔: [ք "" [L`H hXkȱHȱkhk ̔ t k ̔ t $% ̔( | k k`MLNHHHhhh`0: A[`8`mnRikeׅjli1 땰 ׈k ⥜ۥklЪ`k`׈Hkhk`8iׅkjl 2 ɠ ߩ = $iH!)hi)h!  ׈PQ ׈k nLmL ` ʘg^h_^1^ hh`8e^^e_ȑ^^_^_ː؈^e^^_` Q*P*QP . .ePPeQQ )ePPQ`QP*,QP . .ePPeQQ )ePPQiQ`PQPQ.u0؈` xNJJJJ) ۭ`   PQ A ``ı0$: PQ hh `ȱ0:8`` `8喨嗪ʘ ^8^Ɯ8^ƚ`ikjlkmln`kP ȱkQ`keׅklץnlmkeׅmnsmtn`8u`sotpikmjln `H hHHRzH h hh` `l09H8HL8M9hLhM`7H6HJ6K7hJhK`L #%.#%4=HQZ=c4=qu}INVALIPROGRALENGTH I BYTESAVENHOLD FILIN USDUPLICATLINE NUMBEINCREMENTOO LARGCONTINUEINTERLEAVED OLINTOO LONON HOL$ POSTAGE RATES9 DETERMINES POSTAGE FEESV( FOR EXPRESS, 1ST CLASSn2 AND PRIORITY MAILt7< V2 09/01/82F BY JOHN SCRIBBLEMONGER Kd MENU OF POSTAGE CLASSESik(21)nxTITLE$"POSTAGE RATES"  21(TITLE$)2" TITLE$) 6: "1. EXPRESSO "2. FIRST CLASSb "3. PRIORITY h "4. END THE PROGRAM , 1 GET CLASS OF MAIL 3 614 @"PRESS THE NUMBER OF YOUR CHOICE: "; JC$ O P CHECK FOR VALIDITY JLMNOPQQ TC$"4"ė:. ^(C$)0(C$)4380> h(7);(7);G r330O |C$[ C(C$)a z  GET WEIGHT OF ITEM  16H "PLEASE ENTER THE WEIGHT OF THE PACKAGE: FOLLOWED BY AN 'O' IF IN OUNCES, OR BY A 'P' IF IN POUNDS. (FOR EXAMPLE, 2.7 P OR 11 O.) AFTER ENTERING THE WEIGHT, PRESS THE RETURN KEY. ";R 868] "";W$m W1$(W$,1)y &W(W$) + WAS ENTERED WEIGHT VALID? 0W0(W1$"O"W1$"P")710 :(7);(7) D500   CHECK CONSISTENCY $ C10000,11000,120004 EFLAG910J 60000: KEYSTALLV EFLAG0\ e 100k   FIND APPROPRIATE CODE  C1000,2000,3000 61000: FORMATTER    DISPLAY RESULTS  "POSTAGE NEEDED: $ ";T$ 60000: KEYSTALL $ 100* D  SUBROUTINES FOLLOWJ P o  EXPRESS MAIL CALCULATIONu  W(W.99) TR(W)    FIRST CLASS CALCULATION  T.20(W.991).17   PRIORITY MAIL CALCULATION   W(W.99)( W103160. M PRIORITY RATES TO 10 LBSS d W1T2.24{ W1W1.5T2.30 W1.5W2T2.54 W2W2.5T2.78 W2.5W3T3.01 W3W3.5T3.25 W3.5W4T3.49 W4W4.5T3.73 W4.5W5T3.971 W5W6T4.44F& W6W7T4.92[0 W7W8T5.39p: W8W9T5.87D W9W10T6.35N 3240X Y PRIORITY RATES OVER 10 LBSZ b T1(W51)2.383.97l W1W(W5)5v W11T2.47  W12T2.95 W13T21.420 W14T21.90< TT1T2B H'c' EXPRESS MAIL VERIFYi'' 9.35,9.35,9.55,9.90,10.30,10.65,11.00,11.40,11.75,0 $'X0.'XX18'R(X)B'R(X)010070L'10030V'XX1`'W1$"P"10100 j'WW16t'WX10140~'h'(7);(7);"TOO HEAVY FOR MY TABLES - PLEASE CALL THE POST OFFICE"t'EFLAG1z'** FIRST CLASS VERIFY*+W1$"O"W12.0111060 ++(7);(7);"TOO HEAVY FOR FIRST CLASS" +"TRY PRIORITY MAIL"*+EFLAG14+.7. PRIORITY MAIL VERIFY=.P.W1$"P"12090`.W1212080f./(7);(7);"TOO LIGHT FOR PRIORITY MAIL - "/"TRY FIRST CLASS"/EFLAG1&/121500/WW16:/W7012150D/N/(7);(7);"TOO HEAVY FOR PRIORITY MAIL - "BX/"TRY ONE OF THE AIR EXPRESS COMPANIES"Nb/EFLAG1Tv/Z]q^ UTILITY ROUTINESw_}`a KEYSTALLbj24t~"PRESS THE RETURN KEY TO CONTINUE...";A$HJ MONEY FORMATTERKRT$(T)&\T(T)T$T$".00"Cf((T$,2))46T$T$"0"Ip0 SEE CHAPTER EIGHT OF THE APPLESOFT REFERENCE MANUAL FOR A COMPLETELY DOCUMENTED VERSION OF THIS PROGRAM $DIRECTORYuHUSTON!C. '  ':X(1)25:X(2)50:X(3)240:Y(1)25:Y(2)180:Y(3)100:I0191:J0279:M0:K13:QIY(K):RJX(K):S(QQRR):MM(.2S50)(1(.1S)):K:A((M.5)8):((A2(A2))2.1)7:J,I:J:Id :V115::T(9):S%(9)181:Y019:XY19:20:X,39Y:39X,39Y:39X,Y:X,Y:Y,X:39Y,X:39Y,39X:Y,39X:X,Y:D12E4:::/ (((1.5X(S%18))(1.5Y(S%18))(X(S%V)))S%)(T.4)(((S%X25)(S%Y25)((XV)S%))S%)(T.3T.7)((((VX25)(VY25)((YS%)V))S%)(T.6)):  :"THE CATALOG WILL BE TIME STAMPED"::AD843:HI%AD256:LO%ADHI%256:49149,LO%:49150,HI%:I018:X:ADI,X::162,4,189,143,191,157,88,2,202,208,247,160,36,32,112,165,76,157,159d  S18F$"":DA911:SL912:CS913:RB768:CK14802sARBRB142:I:CKCKI:A,I:A:CK0ĺ"CODE ERROR":(SL,S162"WAITING...";:1<RB:(DA)0F$F$((DA)):60F"FILENAME="F$PRB:A(DA):RB:AA(DA)256:"ADDRESS ="A. ZRB:L(DA):RB:LL(DA)256:"LENGTH ="LD dCS,255:CS1,255j nI1L:RB:AI1,(DA):1:I;:Iv xRB:RB (CS)184(CS1)240ĺ"CRC ERROR": C$"BSAVE "F$",A"(A)",L"(L) 1:"CRC OK":C$:(4)C$: 174,144,3,94,132,192]_`,176,251. 94,132,192,144,251,189,131,192L 41,232,74,74,74,74,144,2j 9,1,141,143,3,94,132,192 176,251,189,131,192,41,232,170 41,8,240,6,138,9,16,41 240,170,138,13,143,3,141,143 3,184,77,145,3,41,15,10 170,160,4,78,146,3,110,145) "3,136,208,247,173,146,3,41H ,15,93,112,3,141,146,3,173f 6145,3,93,111,3,141,145,3 @112,12,44,110,3,173,143,3 J74,74,74,74,112,204,96,0 T0,129,16,2,33,131,49,4 ^66,133,82,6,99,135,115,8 h132,137,148,10,165,139,181,12 r198,141,214,14,231,143,247dAPPLEWORKSuHUSTON!T'  '&SEG.PRc T 2a&SEG.00 T 13a/APLWORKS.SYSTEMcT Fa&SEG.ERiT 4aLiHP`xHP`x!"T08r f AT08 T20r T12f AXYAfBf<NAfPpnNEqQnNEqQxxxxxxxxxxxxxxxx  &/; QRDUL08L06 PIL08 F66X$E06X%E30X%E24X%E20X%E17X%E15X%bdefgE13X%E12X%E11X%E10X%E09X%E08X%E07X%E06X%E05xxxxxxxxxxxxxxxx  ; DUL08L06IL08E10F66C00E06E30E24E20E17E15E13E12E11E10E09E08E07E06E05xxP`P`  EFS0TS1-1-020@=p1p0Pp0Mp0Pp0Pp0Mp0PPPEF20PPEFS0TS1-1-020@P`P`EFS0TS1-1-020@PMPPMP L 14B Z0%O '8O JmO * ʈ0  0ŠϠĠ͢ | | | | 2. Slot 2 | oP%_Wi)}ِW [V6+ !<+DLC) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8R                                     Drive 2cerp/sip67892123456789309/20/97 Apple DMP L 14B ZP ImageWriter L 14B ZPEpson L 14B Z P``-7L9LLL@LeLmLLL XʩXύX X A %  % ɍNH hɛɘɉɈ $ Lc :Lcې)ɮ۰ɺ'Ɲ Lc  : X i % $ɛ$hjɘɉ ɈL :Lɍ)ې)ɮ۰ɺH h 'ĝL  LL L)'L L L'L  (L(L $ʩ $$ $L `ީ %  &@DEF   %LҠؠӠ΢ϠԩҠŠƠԠԠŠӢɯϠҠůȠԠĠ à ^x}z}Б|` Ґ L` א@>)I3|8^_0`1a`K8`@Nȱ@O@ lIiNȽN)/ȩ/N`@[ WHJjjjRhA &'KI0JHi Q`RC8` @ l3Nz@) Wڎ} ԭziz}`0 iڰ0GF ݰ#Q0 ڰW,u0 Q ۩.H hȑNWȮvNuW8`xzNxz0NN` װG8`F@ 0 [ [LթK8` I8`FHGH ܪhGhF ݰբFF芝 ݰFG ݮI m IHHyHȘI ݰLԩ` ՠ @/@ 7@Юz)mzʈ@=ȱ@/ȱ@9;<2DE)7I0 '*5 ܰ701FG ݰ( ְLݩI mIH` @= t=0FG ݰ ֬HFG ݰFG ݰ%" ݰX)Im'F(G)* ݰ4 ֭ $H ݰ%HFFHGHG ݐ`R8`ͮͯ)` װ H` /ٰR(*؅IHHЍ@`[8W ؐeXW Y* YQ8`X*؅IFG ݐ`[[ p8D`F` ilH)HFȍHG ݰ$%X&Y!8* J8` Lע  )I '`8ZiFG`Z*؅IH3H [( [ )WxzȱHx`Z8eHI ٰSB0 ؠQFXʈ pٌz`z8mz0_`,|{0H {hi LٍxȽxhQ0GF{z8y`FaG ݰ ڰ`Q0{z Wڭ01 E8`1݊0 iڰ$Q0̩GF ݰ ڰ ڰ`12)1`0Q`ȎQi 0U`z)x8`x`Q ېW }װG =۰A)H Qʈh0)*FG'(`)P P8ʈ` ۰0)i `uv8`QR ܍\FG[ ݰNQFG ݰ< \0 FGLۮQ[0 GF8TU`H8` ܹ ,[F G 8\[` FG `QJJJJ`\HQ\hn)[N\jN\jN\jbN\.d WݰHi\ ݰ;\Qf ݰ*bNd[ ee`Z8` Wݰ#ddc c 5ݐ`bcG .G .G .G8d*JFd eeQFG`QJJJJi LWݩH8`Qf ݰQfe0 ݰ Q c`e ݰe`fQiygihB0Hf0gFhG ݪh0`שB*xEDr0C а(`(8`R@`M8`R8@hʈIR)Fk8FF lL|߹ LߠRC8`V)@ iR)Fl8FVzkJ l_ F Lr߹) +V&lJ(b .RFG/8` .lJHIH IL9߅FHGI ѭlJkjHIH;7IRJJ Zߐ3HIHIL|ߩJKJK`FHIG ߰( ߬RȢMjJLk)eKM`R)` J FJZk ߰$Z0 ߰ZJFJL8`JGBJ T RFG`BH TRFG`H RhHBF  GxDER0r0C а(`(8` L*J R :"L ݢH R : R9` א@ P8`RSB8` RJJJJ=) ) )Wв<J8` GR悔0FRZ $ ӭ+j ;ސHR  4Rh8` ߰Q R@`ZWSSZ (RS W )8`)i п`  H h)N$%Rjmkn LL⭚ L l L ;ް  0pnJo )@rNJOK ;ްiKKnnkk llIJo m nJФ̭lJkjHFIH rHIGrxKE а((H hH h8`8m@ȭn@L;ެR8NjNO 8q pjJLm`nRnʱLN.MOklMEKP/nMEKnLCL-qMp Okl,jpmeNNO(`JNKORL ;ް/  0P L8 | ZߠRJ`L@mȱ@nR `@Nȱ@OR`RjM}FIF` tJMF t 3 tJF` R` H  ^h)N@ N; L  ;ް$ )bJTU f۰ ) H BhL ) . )lJkjIGHIFHR  PLnEnʱNLMOklMEKP%nMEKnL2 Okl,jm PjeNNO P(` R  F .AlJFHIGHIR HIHI`  .` .AR HF HG IhHIhH  i ` ܰ ii` )0CGHFHBFG ЪhFhG`@5~R͔ M @BRi ׭~` .R 4#R0 iڮQ)`L@.~R Ri ~8`L Ӑ L~ Ӱ )ܹ0 )p )@ )  R0FG ݰ حFG ׬R234 / F) F ְR)f ݰ`H@h~`h`R`N8`  ) NRȢJ@jJjR@ʈLP 簞KIJHRȢjRjjk)lJn 8 ΄R  bH8R )ꭁJJJJR RȢjI ;ސh(8H Nh(`R@`@Rȱ@ ` אB@8ZTUQ qۮQUT?H>8T2hU3JJJJ)@` װ%I -=) t 0@)N8` @LL א=@ 5ȹQP8` &iQ` C0 5B C)yz( ȹ`y8myz8mz@8` װG8`F  װ P=)@N8`)@J 5yy)0F1G ݰy &밀L֢ȹLݠ@ȅH@ILҠ,|0` װJ WP8`TU fېH8,=)N 0 [01)@L` b讀 'ܰݩ ݰ L֬Qyy`O WݰI0F1G ݰ:%&N  ݰ# 'ܰFG ݐ`J HHR hh` 0 @ LFL q[̄T 0̄ȩF𸽒G ݰ 0` ݰFG ݐ ` ~ qͬ ݰFG ݐ` ~* q% L`FGLݮ 'ܰ8`FHGH] 'ܰ]hGhF`@Bɼ>K@J5 ]9X(K ]XXKR Ko`V8`no` & on ]I9XX`)HJJJh`OeNeO࿰ ]9XАO`@ȭ@` ON CNJKO`HHHHхhhhhIL@Ae P o**ӂӹ]|wKIJK,-NOPQRSuHUSTON!' @   !"#$Ԡ͠ˠĠԠLL`BLLТТТТТТТТТТТТТТТCOPR. APPLE,1983LM Mh@8nЍLЭ 0J @L:LLLՐ`BLڑL COPYRIGHT APPLE, 1983 h@ 0J @L:HUSTONP8H  ): e: y8鰕:Jjjj<)yi8i;i(*=>hP8`;Zx3QTTSRWVUHEVhEhH)IWHPHHHAHHHLaVEWLӿFGV*& .V  JJJJH :h Ei :EX`'8`jWC)p> pCYY 轊( ( BV ( p0 \BiJ @i> i'j:ZH i@ioZZH h ȭnWǥBJ 8X` +>*L o % YZoY 3 NZ`rZLkZq8r7IZiZkk 8 s q | kн Z)*>>` @ $(,048<@DHLPTX\`dh 0ުlptx| 0($ p,&"op8`kkV꽌ɪɖxl*k-kmMl 꽌ɪ`8` ZsDE8T8Wpq 7I꽌ɪ꽌ɭ蠪:VE:8`]V]H)]V])]T])] >8hUD` Y`> Hh݌(`HCJJJJ)*h`8L:HhHh VY>:Y)`;R?AJ;<ȰY)`Y?)`ȐҰ ;HhHh=`Hh `Hh`DEiȍ018V%&8V)HV)hH)hHIhդD?DRIDQD); ?JDQD]`MY pY)p  p` XʩXύX X A %  % ɍNH hɛɘɉɈ $ Lc :Lcې)ɮ۰ɺ'Ɲ Lc  : X i % $ɛ$ɘɉ ɈL :Lɍ)ې)ɮ۰ɺH h 'ĝL  LL L)'L L L'L  (L(L $ʩ $$ $L `ީ %  &@DEF   %LҠؠӠ΢ϠԩҠŠƠԠԠŠӢɯϠҠůȠԠĠ à L}LLLLLL(LLLLkLbLL"LLLbL+LLLLLLtLȱ ` mЩ`Хi Р0c`Șe`)m`Ѝ`c LЩ`^4*i80*``^4`^4`c lЩȱ8elАܰlаȱL9ѥ^Х_ХiJeХjd`hЍiЍaЍbЭJЅKЅLӢ РedАLma b aЅbЅ ѠȱLҠJȁK Рȥ񑚩LbӥaХbРȱLL|ҭh ikjа#aЍfЭbЍgХhХiРjȱkLҭh iLӭhЅiЅ ѭfЍaЭgЍbЭj8dЪkeLѥmdЅmeЅ Р8dБȱeБȱdБȭeБL Щŏ煏LӦ! Lѩ` Рeȱe`JЅ KKЅ cӠȱ|ӭ|8|Ӫ罫 cL ХJ`cЩ 9  Hh` 9 mТ Р򅍅ȱ򅎅iƎč `cЩ 9 mТ Эc `Хi09򑞈` 8e8e柭`cа"`)m`Ѝ`c Ly ` 9 mЩ`Хi Р08e`)m`Ѝ`Lԍ`` 9 mХidХiJndЍeХ Рedа C эȥiƟĞL֍cЩ 9  ѹ L֍cЩ 9 m ѥ Рedа L֢ э^Бȭ_Бiȱ 8elА԰(lа ȱ섥L5֠ Х -` 9 mХLgةȑ ѠȱJЅKЅ ȑL7ע ХKJАLDץeeKJJБȭKБL7נqȱqȱJХKLgآ Ѡȱ РqȥqGCeȱeqȥqqȱqȱLgإȥ ѩLgإZЍVLDץee51ȥ ѠqȱqȱLgآ Т Ѡȱ Ѡȥ ` 9 mТ РiȱiJfJf`ح؍ح؍ح؅؅а  iؐΒѩP TQ P `P Erase entryRestore former entryDouble-check erase"You are about to permanently eraseEscape: File: None K Avail.NoYes zي 0{ٌ} x y` xx.x inches {3LЭE xLR xL٭  x O8 {; ٥S tL '` x r {L { S ` {D٭T  V L; L` ڭ&RE ٭mڪʬ $`Hڬ $ Hͫڐڍ  h h8 0 mڪʬ $`) x& ڥکک f _[L w    < O O  L    mOO8 ` X`X` & )Т <O= - `l l `Fejf` ȱnnffee` ƟĞL`  eeƟ0ƛƝ`  )`   - S   1`$%L=zʠ$ Xs) Dq)_Z 76)e*iL 6H/"#ȱ   ĜL%=C 7Ɂ@ C D L`$ 80Na GH   )`LQR }L JUNMx M $KwM $,Ml $"M)@`)l $ M $HNMhTL LH  hɯL))J+;Le= EPP O E EPP E  QR <Le L wIwLe` <` <`  @ @`) ``a{)` a{)ߑ` ќ ȱќ ќ` `#N0x"#)a0b `    ii   P8J Li   ` *QO`&)a0b }`di``  ` 4 5  X  PLH D `     .    m)m )m iH ʈ h ` ii  ` <O   `  K`$APPLEWORKS REQUIRES AN 80-COLUMN //E(Your copy of the AppleWorks PROGRAM disk&must be in Drive 1. The write-protectnotch must be uncovered.$Type today's date or press Return: The date must be 1983 or later,and in this form: 3/20/84DiskGetting StartedIntegrated Software*By Rupert Lissner and Apple Computer, Inc.*Copyright Apple Computer 1983 V1.1 USA is too long a pathname.    !Q)ɂ )?L")00 E&'112)p00 2321&'67 éO & ' !( k# ( Q'  %L0:` $ ȳ#### ʹ#H #hL#  a 0`Y0$ XQ#$`$ X#Q$`$ \#) X$ \#)eL@$` CJ  0EF>/ADjjJJJJ  0?@)  0BC e X ! X !  !  > 1  Φ   5Х  > /  0 /  0 a /Zͬ U $N J * $5 1  $S" > `L~% 1L$ %5%%% $ %%% % %) %  e X $! X M! Xt! L$ `YaYEXRY & L& /&&& $ & &  ">:" A$w  :`报 # #!:C;Ŋ ;L&;:报 #8 #L&$#: #:Ld&`Y  <*_ X2' X=2' <*_ X,@' X N) X " X" XA"- ` | | | | |TMq` L' '梥W C'D C'Ŝ;7(Xp Ln'2)JJJJ`p0'p2 I08`/ $ Ǯ(  @ LE(   /٦  @ (  e X X l" * Y ̦ /󈌦 Ĺ(( (((` /SEG.00 ( (L( (`}[4 桥*WnL" AppleWorks ConvertedMZ   '^'t'X'''''' 0123456789ABCDEFabcdefURQSPWV&n>v3<%t0 t^_X[YZ].".$X.6$.6"ˬ<%t<-t?<+tGu. 0P .&.X2,0. ..r.>u <t;6. t .>uV(^V<t^.>t . t^3Ҭ tB+vV>B.>t >R3S.6 . P[^IP3XP XtS[ .>u!< r .>u. QY ~ . QYê:tùS.&@![&Á&t&3..... . SYS 3.30P0!=uX\ P !L !3P˺!TsCR=L!@R=2> u t!8 t D!r t7@N!rj l s[N!rj l  rrڋ́z r˴ ! Ȼz %Xr>z s">z tfP @R=8X @ 2!W Ȼz %Xs#z <tPuC!A!>uC!A!!   W!>!$R=2R=R=L!YËt@Ë zQ>w 9w?!r;uЉ )Y+ȋ > w 9 w ?!r;uЉ )  ø=!rظB33!«3ҸB!W!«ú@z +t@!r;u  +tԋ @!r;tø'ؠ Ⱥr>xUu W2 !G,㋷ u D `!ڍwFFtEu6 !;J D r2  > u  Ȼ 3ҋA&sXPz %XXø ! !R=PD!s D!ru uXXSQWVN   ^_Y[VWSN C N 8 [_^3ɬ<.tA }AIuVWQ  Y_^Cannot SYS to a Network driveaIncorrect DOS version $Invalid drive specificationInvalid parameterNo room for system on destination diskIncompatible system sizeSystem transferred No system on default drive &Insert system disk in drive %c and strike any key when readyEAInsert destination disk in drive %c and strike any key when readyB IO.SYSMSDOS.SYSIO.SYSMSDOS.SYSA:\IO.SYSA:\MSDOS.SYSA:\IO.SYSA:\MSDOS.SYSA:\*.*MSDOS SYSIO SYSp4MSDOS3.3Q3м|x67VS+| &=t&G+|rg|&|||?|7| &| |H7|?|r }u  } tw}j2^D}36 |<|7|=|7|I|*;|@8<|s<|PNXr(<|t 7|& |Њ.|}=|p t"36|ˆ;|36|*|9|ô9| 6;|ʆ}6*| Non-System disk or disk error Replace and strike any key when ready Disk Boot failure IO SYSMSDOS SYSU @@p@h p ` p [PȉO&ȉO O$O>(&ŵ&.+XWgo;OKEYDES COM]Mc0KEY HLP yLAYOUT COM jKEYINST COM@{ PCJRINSTBAT Q123 MAC!  BASICA MACK DOS MAC)_ EDIX MAC] FOREIGN MAC\ GRAPH MACq GRAPH2 MACx S  0123456789ABCDEFabcdefURQSPWV)n>v3<%t0 t^_X[YZ].%.'X.6'.6%ˬ<%t<-t?<+tG u.0P .& . X2,0.  ..r.> u <t;6.  t .>uV(^V<t^.>t .  t^3Ҭ tB+vV>B.>t >R3S.6 .  P[^IP3XP XtS[ .>u!< r .>u.QY ~ .QYê=tùS.)@![)Á)t)3.... . . SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS \??????????????????????\ \*.* . ???????????????????? `!  u 󤺈 t!pt  H H .Et)\>H u+)t >H u벾r/t븺 H + v뚀&>G+ǹ 3M.>tu# Mttuu H +u t zt .>뎺ut & 2ô! ttu>.t߀:ô! Ë6<u MX@t 6@ֹ=.< u Nֹ&<uR7û@!úH ;!ð 6F u<.u? Ë>>\< t< t.< t>22>>I uà \G>ô;!.!Ü.Q<u ϴ!ú3 r sYu Ëuu ûYt R@Z!Z@q!Yù rZq<t<.ty<tôNlO!Ü  " 5 DIRECTORY PATH LISTING %sFOR VOLUME %s Path: Sub-directories: Files: None No sub-directories exist Invalid path  L m Invalid drive specification  Invalid parameter  Incorrect DOS version $The MS-Dos Tree Display Utility (C)Copyright Microsoft Corp 1981,1987 Version 3.30 P0!=t ! XH u 20>\tI<:uJ t}/uˊ "2  0123456789ABCDEFabcdefURQSPWV&n>v3<%t0 t^_X[YZ].".$X.6$.6"ˬ<%t<-t?<+tGu. 0P .&.X2,0. ..r.>u <t;6. t .>uV(^V<t^.>t . t^3Ҭ tB+vV>B.>t >R3S.6 . P[^IP3XP XtS[ .>u!< r .>u. QY ~ . QYê:tùS.&@![&Á&t&3..... .STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK STACK /H]t';T{ Access denied  Too many open files  General failure  Sharing Violation  Lock Violation  Path not found  Insufficient disk space  File cannot be copied onto itself  Unable to create directory  Cannot XCOPY to a reserved device  File not found  File creation error  Reading source file(s)... (Y/N)? %+9Ld File(s) copied %s File not found \A:\B:\Y$$rr%s => %s %s%s %s\%s %s%s%s %s%s%s%s\%s%s~A:\A:????????.???????????.???..A:\B:\B:B:.. Gێr1 Gێ t[ Gێ L!u u&u=>v>u\ t&+부>t3u&> tUO+X9t&t&ÿv>u\! þ1 sdr>u O\Eut  &&t pu#rbsutAur:tr#r iÀrr>w"ra_rYt/Ir@>|Ft&>s>@|-r ?rzsP>sfrbu\&&&.>s&>F&*&&: vtuu&&&&& & & &*&&: 󤡯&&X&&&Xú=!r Ã>u>w&á)?BB3!r;t tNO&!t s~R tҀ&t s&>~u>~.t & t&uuuur"r*r & tË;sù 6>um>xYt >xNtRtմ!ZÀ>u \uttV;!s +>,u ,\-*;!RP&>r'-9v u 9vXZQ@@@r+vY&X&9tU_rS>uf&&m8&vG>*6&>-u\&m#r&9u &@tee>*&m&&&u!r:yr8>t>u&&&P&9t F3&t&u&u&&&&&t"&vu&x&u&@t;!WZ:!&>pu&>}tq 6>a&t&9tR&&>uL&&)8&v3>6&>u\&)&9tM/>&)몀>t>u&9t&ÍC!C!>u \;!s c&u>6&>mu\&u/sr>mu O\EP$&u+&>pt(&@t 6>p 6p>3&>}t|&@t 6>&@t X3ɺpu&>}tظD!€t I&l)!}lG t mu{aô@& !r ;u)qb >tMôW  !ô>!ôA!ô9!rYVr0R/!!ZN!rӴ!s#u  PSQR6&!t&ZY[X%u:>vu3>xu,>~u%\)!\F\z;߹W+_WPOXvu >~uÊ6-G!;!*:!*>wRZR=RZR=PSQY!uuu u+ u)0;(3 =u! Y[X=t+=t+=t+= t+=!t+=t+=t+=At=Rt&뾺! P >u{X&ô !$ߢxPX.>u .<t<tYYY<t.$YYY+i =t &"%0r | iW6V*%u%t 53& tG*sI K%u%!%u >6>t $"Í,"%rqera%WQȍ>p$&Y_t0r+;r%WQȍ>$&Y_ ("%t %u( ("% ,"%%t>p$6p$>%t>$6$>$tIP$6%t`r<t<\u|t->$6$%t4r<t<\u|tðW0_IIـ9\tA\ACsvr O\EPWVVrHH<\uH=?wl^_XÃ~%7r(sGIt&$