' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`ƙ.șI)$Ъ0.ȩ+.8嚪-E/8 i:`  cd pLP袊 +륪 #쩊  UH A驊  hJ I`8;)q4X>Vt~w/z*|cYX ~u q80L>nk'nk(X 1vu8 4L:۠-$șȩ0LW     9ƙ U i 0 i8.ș0șylykyjyi00ڊIi i/ȄȪ) 芢 脤`)F 鄤`ɠ 넬I* L)腞` -+ [..E0 - +f \$8Lf$På8噅 U 9ƚ0`LH$ 9h80 LaH ch 륪EL祚 d$0L e_^^^^ ^`, r^_^^^ %^^`` r` L襝 *` 녞I*L)F``a`Ȫı`E0!` Şȱ`şȱ`Š ȩŬ`(IL륝J8$E ^`e0,iLR襫`I0hhLNL ci ` cP Li v r8坅 Ğğ Ġġ* e24(&&&0⨥塅堅埅垅L@ (LꢅLԥbcdeL.^vvvvvj`^Vy dv88; 54541r LᥝH- 2 f  \7 h < L bcde 饡 饠 饟 饞 LLJ eeededcecbebfbfcfdfefJ`^_^^^^W8Ie Ji `eeeeeLi&&&&8坰IiBfffff`IIIIII `ELԢai0ᦠL LN覸^e^`_a`H` Jh`` g R L楝ɑ 률PQ`PHQH RPhQhPL F犠P` F熅  L熆PE%`dL 饢IEL < LS리8$Ii0ǨV $` lݥ^_ 5^Hȱ^ȱ^h(po Heooph^_`T SRS` H hhhL* ьHH 㥌 hhe^^_ L* IL` ) ʊH񌰸Iš hhhhhhhHH` L ` ^LL g ^ ie^^__Ŕ #^05ȱ^0ȱ^+ȱ^ȱ^poŜ䛐^_e^^__`)Jeiop Ӥȥ敥ȑL䥡HH ` lhhqL 奌  奫  *LݠHȱȱh^_ H^qheqqr "e膮 㦫 R^LԥSR`FHI8eopnm opqrh`M0 䩀hЦstopmnU^_R #ij^_lk 󅔆nmLb^_^ȱ^ȱ^eȱ^e(ӊ0ȱL$8vС,L A  ީ j ީ HHHHH L  ߅Lj A㥋HH jhhȱ𙅄ȱH +륹HHȱHH ghh Lhhhhȑhȑhȑhȑ` jݠ 6hh R䆞`" ȱ ↭^e]eR Ӆmn殤ƕƮ8m因n圑bȱhhћȊћLLȥ e^eʅʥʆd ee`^de *& edeeƙ` 8ompn` gݥ0 ɐ ~LGHHHHH hhhHH ,҄ hh)klnm?Łћȱeȱeעk,5LԢx8` ћLK*L өȥʆȑ $PhihiȑȊLL(L<  } }$%0Ʃ 8(L$0pijlk"ћћliA[8`hH`klmniȅ ӥȅklȥȑȑȑȑȑiȅ` ieȅ q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }Lޢh5`4ɺл1>@@A`41`>BD`8>6>) `LL u ?l:L``L@ 'A=?<) < `JJJ>Ie=?<=`K i! Ȉ2 ,`H h*:` `YE <Šӭpd`HVTQ PS 6" (!#%L" X`I`ɍ,,L8L,H ΰɐHJ) )h)i( ((`ɇ@ 0`$($$!fi#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDDȅEhH 0l( Lh:h;l Le / XZ]_, :ILl `Ȇ׍숈l E@A  J 0,*i H/.  `0 .: VȘ L `8/;e:` T0 "T3  T3  T; "D3 D"D3 D"D3 "D3 &1!YMJؤ#]#)i#$S#$S[[i$$)|mi)S4`J G(i.&E0%.Q&&` , iH h-`/'-'0 (`HJ) 'h)i& &&`0i)0 00`J G&(JJJJ)`:; H:J jɢ )Jb y.)/) JJJ Ȉ` H:  J/Ȑh,--& W :L ` `  eȱe ` -L -La=?P<Ȅ> sʆ>PHt?QnLԅtp=hso< LeP>eQ? ॔<=`@ ߩL ʊ( (H hL$`JJJJӊ)IȄҤѢԆզ8eЅԐ e҅Ր JJJ`JJJJӊ)IȄҤѢԆզ8eЅԐ e҅Ր JJJ` g RQPHH, hh`L `*Uf&i'`'i,&i,&iPII&if&HhH8HӰ hIiHӅхhЅhIi҄f8Ъх e8e҅ԥձ&E%0Q&&bӰ eЅԥePفŴxaI1& ')*& 'JJ) e ʥ0)Je ~)`H)&JJ&&h' &' &' f&')'#i媽0J(` Q&%0Q&&`#0JI0`'0 I`0 I0ݩ()%%01&%0)&E%0Q&&e)j00',"&,i8i#H&ii&hizݥ􅸥uv >Lץڅuۅv܅݅ߚLLްij ֥`a, PQ ֥`a```aiśj地a`ʈjiLԭVSL@TL9 ʅPQ L PȱQL L,U,R@ ,T,SWP0,-`L ,- 0` (L ,(ʤL (L( Ld ʊL[ I`8f`?2`@ g RPmQnLԥPsoQtp` g RPsQtPiQj֥PiQjLl֩ ޥ8fإuv Lنަߥuڥvۥyܥ~L̑湭`: 808`ORXv( sL  񕰆򊅤TH کURPQQPIPPIPPPQ)stopgh֘gghgh K֩:ۅ<ԅl g RlP L L 0, c # p 祢H 祢0 I p h uL\ !  禎  b𩊠LfHL#IڢIڢ-(h#5ᆥ](IڢʥH HɁ fΠ \hɁf hL` vy{| g|S}dpL}Qz}c0~~D:ƀ1r۠ 饬iP z녒 f륝Ɉ + # i8H rh ` !멓  v禎L酭 뱭Ș殅 饭iȅ 穘ƣ`5Dzh(F 0ɠ 穦 驪 禡 .ɠL+f ck ^90$LOC111700$2230.$LOC111700:$:(21)}$I1$LINE$(7)LINE$(8)":"LINE$(9)LINE$(10)" "LINE$(11)"M"$HR12QUAL$"A"HRHR12$NUM$"P"HRHR12$2260: COMPUTE DAY$"TO START CLOCK AT ";I1$;" PRESS RETURN.";%, 1984 12:30 PM"#19);I$:J#5);"(PRESS RETURN FOR VERIFICATION)"T#LOC0j#(13):1915:1703y#G$;:1915#LOC100200#LOC0:1990#LOC31700#2035#LOC51700#2090#LOC71700#2145#LOC91700$21IME **""Y(6)}"^" ENTER THE DATE AND TIME IN THE FORMAT SHOWN BELOW. THEN PRESS RETURN TO VERIFY YOUR ENTRY.""wI$"--- -- -- -- -- -""|(13)""ENTER DATE & TIME-";25);", 19 : M""19);I$:#10);"EXAMPLE: OCT 3UP # -->";!O$:O(O$)*!O$RT$200C!"O49O53ĺG$:1555O!'O(O$)d!,O1İ3000:1500y!.O2İ3400:1500!0O3İ3200:1500!1O4İ3100:1500!2O5İ3250:1500!@ SET UP DATE & TIME!ALNG12!E936"O:11);"** SET THE T"** GROUP SELECTION **"/ 7:6);"# GROUP"D 6);"- -----"a :6);"1 - CLOCK INPUT"} 6);"2 - SERIAL INPUT" 6);"3 - SERIAL OUTPUT" 6);"4 - SERIAL CONTROL" 6);"5 - PARALLEL OUTPUT" 18:6);R$ !17:6);"SELECT GROP25:O1İ9100:1485 9000?CN12,(CN7):7000:1200N QUICKIEjJ0Ğ:"RESERVED";::DD(J)1Ğ:"DISK";::JSLĞ:"CPS CARD";::SA$(J);: DEVICE MENU:2:7"** SET DEVICE PARAMETERS **" :10);1200$xO$"N"SA$(I)"":O0:1450IO$"C"SA$(I)"CLOCK":O1:1450oO$"S"SA$(I)"SERIAL":O2:1450O$"P"SA$(I)"PARALLEL":O3:1450G$:1375P10:P27:P3SSO0İ9100:14859000P26:O2İ9100:14859000E FOR SLOT ";I;"."+:2);"ID DEVICE"B(2);"-- ------"_23);"N - NO ASSIGNMENT"t<3);"C - CLOCK"F3);"S - SERIAL PORT"P3);"P - PARALLEL PORT"U:Z24:6);R$;_23:6:"SELECT DEVICE ID -->";d6500nO$RT$GNMENT, FIRST SELECT SLOT.";,17:3);R$N16:3);"ENTER SLOT # -->";^O$:O(O$)nO$RT$200O49O55ĺG$:1265 I(O$):SSI ISLĺG$:1265DD(I)1DC1ĺG$:1265DD(I)1240014:(1):958:"NOW SELECT DEVICSIGNMENTS **"/::"CURRENT ASSIGNMENTS:":^3)"# ASSIGNMENT";23);"# ASSIGNMENT"3);"- ---------";23);"- ----------";I03:3);I;" - ";JI:1490:JJ423);J;" - ";149014:1:"TO CHANGE ASSI;t:DO$(DO);::")"(y17:6);R$S~16:6);"SELECT DEVICE ID -->";:6500jO$"S"DO0:1180O$"P"DO1:1180O$RT$200G$:1150P10:P24:P33:9000DO0İ91001101 ASSIGN SLOTS :10:"** SET SLOT AS.O$RT$2003G$:105068P10:P24:P31:9000F=DI0İ9100PB1001dL DEFAULT OUTpM:6:5Q"** SET DEFAULT OUTPUT DEVICE **"V8:"ID DEVICE"["-- ------"e" S - SERIAL PORT"j" P - PARALLEL PORT"o:6);C$ SET DEFAULT INPUT DEVICE **"38:"ID DEVICE"F"-- ------"X" C - CLOCK"p" S - SERIAL PORT" :6);C$;:DI$(DI);::")"17:6);R$16:6);"SELECT DEVICE ID -->";:6500$O$"C"DI1:1080)O$"S"DI0:1080X(222):X8975.X5ĺD$;"DELETE";L2$V6);"** APPLESOFT OR DOS ERROR **"n:16);"CODE = ";X:6400:200:8);"** FATAL I/O ERROR **"::"HIT RESET AND REBOOT THE SETUP DISK."O$:980 DEFAULT IN:7:5"**b@Ll  . $ ; &?1?=A>?I i`HH11`IJ듧ƙɾ5Ė+]̵ ";EE$+4 S0İ2980:3:1:958:::285544" ::?4' I23`4, I2ĺ"SERIAL OUTPUT:":2870x41 "PARALLEL OUTPUT:"46 :6);"ESCAPE CODE = ";EC$(I)4; 6);"HIGH-ORDER BIT = ";CH$(I)4@ 6);"AUTO LINE FEED = ";AU$(I)5E 6);"LINE LENGTH = ";LL";CF3 ::"SERIAL CONTROL:"@3 :6);"BAUD RATE = ";BB(BR)]3 6);"PARITY = ";PA$(PA)z3 6);"CHAR LENGTH = ";CL3 6);"# OF STOP BITS = ";SB3 ::"SERIAL INPUT:"3 3 6);"CONVERT LOWER -> UPPER = ";LU$(1)4 6);"ECHO CHARACTER =:"SLOT ASSIGNMENTS:"2 &2 I1782 6);I;" - ";S2 DD(I)1ĺ"DISK":2755o2 ISLĺ"CPS CARD":2755{2 SA$(I)2 2 S027702 29802 :27802 ::2 "DEVICE PARAMETERS"2 "------ ----------"3 :"CLOCK INPUT FORMAT = T # -->";1U O$:O(O$):O$;.1V O$RT$200G1Z O48O55ĺG$:2640S1d S(O$)e1n :D$;"PR#";Sp1 S0ė1 6);" ** CURRENT DEFAULT VALUES **"1 ::"DATE: ";T2$1 ::"DEFAULT INPUT: ";DI$(DI)1 :"DEFAULT OUTPUT: ";DO$(DO)2 :X12XX1210 T2$T2$(X)":"(T1$,15,2)T3$70 L0( PRINT DEFAULTSV0- 250002 :4:6);"** DISPLAY/PRINT PARAMETERS **"0< ::" ENTER THE PRINTER SLOT NUMBER (1-7), OR 0 TO DISPLAY ON THE SCREEN."0F 12:6);R$ 1P 11:6);"ENTER SLO,16/ :D$;"IN#";SL2/ D$;"PR#";SL:(23);"C">/ "";T1$X/ D$;"IN#0":D$;"PR#0"l/ CN8,0:CN4,X/ X((T1$,1,1)):T2$(D7$,3X1,3)" "/ T2$T2$(T1$,3,9)/ X((T1$,12,2)):X122575/ T3$" AM":X0X12/ 2580 0 T3$" PM":$;G$;"** ATTEMPT TO ASSIGN DISK **"x.t ::"IF SLOT ";I;" IS ASSIGNED, YOU WILL NOT BE ABLE TO BOOT THIS DISK DRIVE.".~ :"IS THIS YOUR BOOT DRIVE ? (Y OR N) -->";. 6500. O$"Y"1200. O$"N"1300. G$;:2440/ CN8,0:X(CN4):CN4HR12HRHR12&-QUAL$"P"HRHR12,-B- COMPUTE THE DAY[-I1YR1900:J1MNTH2x-MNTH2I1I11:J1J112-DAYDTE(365.25I1)(0.75((I1100)7))(30.6J1)-DAYDAY7(DAY7):-` SET SLOT KLUDGE-e 1#.j 14:958:5);G$;G(LOC)"0"LINE$(LOC)"5"ı8,MIN10((LINE$(LOC))48)F,LOCLOC1k,LINE$(LOC)"0"LINE$(LOC)"9"ı,MINMIN(LINE$(LOC))48,LOCLOC1:, CHECK FOR MERIDIAN,LINE$(LOC)"A"LINE$(LOC)"P"2255,QUAL$LINE$(LOC):LOCLOC1-OC1:+a CHECK FOR HOURH+fHR0:LINE$(LOC)"0"LINE$(LOC)" "2165_+kLINE$(LOC)"1"ıi+pHR10w+uLOCLOC1+zLINE$(LOC)"0"LINE$(LOC)"9"ı+HRHR(LINE$(LOC))48+HR13HR0LOCLOC1++ CHECK FOR MIN+MIN0,LINE$*%** CHECK FOR YEAR$*/YR0I*9LINE$(LOC)"0"LINE$(LOC)"9"ıp*>YR10((LINE$(LOC))48):LOCLOC1*CLINE$(LOC)"0"LINE$(LOC)"9"ı*HYRYR(LINE$(LOC))48*MMNTH12140*RDTE292140*W(YR4(YR4))0LOCLOC2:+\LOCL0:LINE$(LOC)" "2055<)LINE$(LOC)"0"LINE$(LOC)"9"ıZ)DTE10((LINE$(LOC))48)h)LOCLOC1) LINE$(LOC)"0"LINE$(LOC)"9"ı)DTEDTE(LINE$(LOC))48)DTE0ı)DTEEM%(MNTH)LOCLOC1:* (DTE10)(EM%(MNTH)10)LOCLOC1)321985((LINE$(I1%)I1$:I1$;:19659((7);:1925O( CHECK FOR MONTHZ(MNTH0n(MNTHKEY%(MNTH){(LOC3ı(I$LINE$(LOC)(N1$(T$,MNTH,1)(N1$"*"ı(N1$I$LOCLOC1:2000(MNTHMNTH1:2015( CHECK FOR DATE)DTE OF ACTUAL CHRS.&'I1%LOC:PT%(I1%)/'I1$H'(I1$)13LOC100:R'1935['I1$l'(I1$)13ıt'XX'(I1$)81955'I1%01985'I1%I1%1:1970'I1%LNG1985'(I1$)211975'I1%I1%1'PT%(I1%):1925 ((I1$,T8&LAD5,DAY-&NT(DTE10):ODTE10TB&PR4(YR)0TT4V&SAD6,O:AD7,Tb&WMNMN1{&XT(MN10):OMN10T&]AD8,O:AD9,T&bT(YR10):OYR10T&gAD10,O:AD11,T&lAD12&v200'{ LINE ENTRY,LOC=STARTING POS.,LNG=LENGTH22-%"OTHERWISE, PRESS CTRL-P TO REENTER."=%O$:O(O$)N%O$RT$1840f%O16ĺ(7);:1810t%!21:958%+LOC10:1695%0AD38304%5AD,(CNF0)256%:T(MIN10):OMIN10T%?AD1,O:AD2,T%DT(HR10):OHR10T&IAD3,O:AD4(O$)D4285D(DXSB:X2X37DX1.5X2^DP10:P23:P364X16PA4(CL5)2jD9200:{D # STP BITSD1:4:958D8);"** # OF SERIAL STOP BITS **"D::" THE NUMBER STOP BITS CAN BE EITHER 1, 1.5, OR 2:" E:11);"ISERIAL CHARACTER LENGTH **"jC|::" THE VALID RANGE FOR THE CHARACTER LENGTH (IN BITS) IS 5 TO 8.{C:6);C$;:CCL;::")"C14:6);R$C13:6);"ENTER LENGTH (5-8) -->";CO$:O(O$)CO$RT$ıCO53O56ĺG$:4245DCLRITY"B1:6);C$;+B2:PA$(PA);::")";B619:6);R$CB:18cB;6);"SELECT PARITY # -->";kB>O$yB@O$RT$ıBJO$"1"PA1:4185BLO$"2"PA3:4185BNO$"3"PA0:4185BTG$:4154BY4285BcBhBr4:1:958Cw6);"** BR48:9200A&A SELECT PARITY6A4:1:958WA 12);"** SERIAL PARITY **"A::"PARITY MAY BE ODD, EVEN, OR NO PARITY:"A:6);"# PARITY"A6);"- ------"A"6);"1 - ODD PARITY"A'6);"2 - EVEN PARITY"B,6);"3 - NO PA ----"@I07K@" ";(65I);" - ";BB(I);25);(73I);" - ";BB(8I)Q@`@:6);C$;v@:BB(BR);::")"@24:6);R$;:1@23:6);"SELECT BAUD RATE ID -->";@6500@O$RT$ı@O65O80ĺG$:4055@BRO65 AP10:P22:P3"İ4500:3780%?O$"7"İ5100:37803?G$:3675I?1:5:958:3610[? SELECT BAUDk?4:1:958?10);"** SERIAL BAUD RATE **"?::"THE FOLLOWING BAUD RATES ARE AVAILABLE:"?::"ID BAUD";24);"ID BAUD"@"-- ----";24);"--;LU$(DV)0>L" 7 - CR DELAY AMOUNT";34);CD(DV)@>V22:6);R$g>[21:6);"SELECT PARAMETER # -->";o>`O$}>eO$RT$ı>jO$"1"İ4400:3780>tO$"2"İ4600:3780>~O$"3"İ4700:3780>O$"4"İ4800:3780>O$"5"İ4900:3780 ?O$"6 - HIGH-ORDER BIT";34);CH$(DV)G=." 3 - AUTO LINE FEED";34);AU$(DV)k=3" 4 - LINE LENGTH";34);LL(DV)=8" 5 - PAGING";34);PG$(DV)==" PAPER SIZE";34);LP(DV)=B" STEP OVER";34);LS(DV)>G" 6 - CONVERT LOWER => UPPER";34)ECT PARAMETER # -->";

UPPER";34);LU$(1);d " 2 - ECHO CHARACTER";34);EE$;f 15:6);R$";9N O$9S O$RT$ı9Y O$"1"İ4000:31009Z O$"2"İ4100:3100:[ O$0858 O$"2"CF2:3085(8 G$:3055M8 P10:P24:P34:9000:CF1İ9100W8 3001k8 SERIAL BR & F{8 4:1:9588! 11);"** SERIAL CONTROL **"8& ::" # PARAMETER";29);"CURRENT"8+ " - ---------";29);"-------"90 :" 1 - BAUD RATE MCI CLOCK."%7 :6);"# FORMAT";7 6);"- ------"]7 6);"1 - MM/DD HH;MM;SS.000"7 6);"2 - DAY MM/DD/YY HH;MM;SS7 :6);C$;7 :CF;::")"7 20:6);R$7 19:6);"SELECT FORMAT # -->";7 O$7 O$RT$ı8 O$"1"CF1:36 :D$;"PR#0"6 200T6 24:1:"** PRESS THE SPACE BAR TO CONTINUE **";:O$:e6 CLK FORMATu6 4:1:9586 9);"** CLOCK INPUT FORMAT **" 7 ::"THERE ARE TWO POSSIBLE TIME STRING INPUT FORMATS. FORMAT 1 IS COMPAT- ABLE WITH TH(I)5J 6);"PAGING = ";PG$(I)>5O 6);"PAPER SIZE = ";LP(I)\5T 6);"STEP OVER = ";LS(I)5Y 6);"CONVERT LOWER -> UPPER = ";LU$(I)5^ 6);"CARRIAGE RETURN DELAY = ";CD(I)5c I329405h S0İ2980:5:1:958:29405r :5| I5 S0İ2980T :6);C$;:#TCD(DV);::")"0T17:R2$T15:" ENTER DELAY AMOUNT (0-255), FOLLOWED BY RETURN --> ";:24TLNG3:6000:L$""ıT#6300T(E1ĺG$:5145T-L(L$):L0L255ĺG$:5145T2CD(DV)LU<P1DV1:P26:P3CD(D:9200SP25:P3LS(DV):9200%S4S CR DELAYDS1:5:958kS8);"** CARRIAGE RETURN DELAY **"S::" THE AMOUNT OF DELAY IS EXPRESSED IN UNITS OF 10 MILLISECONDS. THE VALID RANGE IS 0 (NO DELAY) TO 255 (2.55 SECOND DELAY)."R2$,R18:" ENTER STEP OVER (0-";L11;"),SR" FOLLOWED BY RETURN --> ";:24oRLNG3:6000:L$""5005R6300:E1ĺG$:5050RL2(L$):L20L2L1ĺG$:5050RLS(DV)L2:LP(DV)L1:PG$(DV)Y$RP1DV1:P23:P3LP(DV)LS(DV):9200SP24Y"5005Q~G$:4965&Q18:1:9586Q20:1:R2$Q18:1:" ENTER PAPER SIZE (1-255), FOLLOWED BY RETURN --> ";:24QLNG3:6000:L$""4960Q6300:E1ĺG$:5015QL1(L$):L11L1255ĺG$:5015Q18:1:958R20:$PL" (PAPER SIZE = ";::LP(DV);:OPQ" STEP OVER = ";::LS(DV);::")"lP`(18):1:958::" ";R$Pe(18):" ENABLE PAGING ? (Y OR N) -->";Pj6500PoO$RT$(PG$(DV)N$LP(DV)0)ıPtO$"N"PG$(DV)N$:LP(DV)0:LS(DV)0:5075QyO$""** PAGING **"O8::" AUTOMATIC PAGING CAN BE ENABLED (YES) OR DISABLED (NO). IF YES IS CHOSEN, THEN THE PAPER SIZE (IN LINES) AND THE NUMBER OF LINES TO STEP OVER THE PERFORATION MUST BE SPECIFIED."OB:" ";C$;:OGPG$(DV);::")"TER LINE LENGTH (1-255), FOLLOWED BY RETURN --> ";:24UNLNG3:6000bNL$""ılN6300NE1ĺG$:4840NL(L$)NL1L255ĺG$:4840N LL(DV)LNP1DV1:P22:P3LL(DV):9200NN$ PAGINGN.1:5:958O315);İ9000 MM LINE LENGTH.M1:5:958LM13);"** LINE LENGTH **"M::" THE LINE LENGTH IS THE MAXIMUM NUMBER OF CHARACTERS PER OUTPUT LINE. THE VALID RANGE IS 1 TO 255.M:6);C$;:MLL(DV);::")"M17:R2$EN15:" ENRY CARRIAGE RETURN."#Lz:6);C$;:L:AU$(DV);::")"JL15:6);R$xL14:6);"AUTO LINE FEED ? (Y OR N) -->";L6500LO$RT$ıLO$"Y"AU$(DV)Y$:4780LO$"N"AU$(DV)N$:4780LG$:4745LP1DV1:P20:P32M9100:O$"Y"#K4O$"C"CH$(DV)"CLEAR":4680CK9O$"S"CH$(DV)"SET":4680QK>G$:DFT1:P20:P30KM9100:O$"C"İ9000KRK\Kf5:1:958Kk12);"** AUTO LINE FEED **"Lp::" IF YES IS CHOSEN, A LINE FEED WILL BE ISSUED AFTER EVE:" THE HIGH-ORDER BIT (BIT 7) OF EACH BYTE CAN BE EITHER CLEARED OR SET BEFORE IT IS OUTPUT:"J:6);"C - CLEAR BIT 7":6);"S - SET BIT 7"J:6);C$;J:CH$(DV);::")"J 19:6);R$J%18:6);"ENTER CHOICE -->";J*6500K/O$RT$LOWER CASE ? (Y OR N) -->";%I65003IO$RT$ıPIO$"Y"LU$(DV)Y$:4575mIO$"N"LU$(DV)N$:4575{IG$:4545IP1DV1:P10P13IP20:P31I9100:LU$(DV)Y$İ9000III5:1:958I11);"** HIGH-ORDER BIT **"`J :HH5:1:958=H7);"** CONVERT LOWER => UPPER **"H::" IF YES IS CHOSEN, THEN EACH LOWER-CASE CHARACTER WILL BE CONVERTED TO UPPER CASE BEFORE IT IS OUTPUT."H:6);C$;H:LU$(DV);::")"H16:6);R$I15:6);"CONVERT LY (DO NOT PRESS CTRL).")GI:6);C$;:>GNEC$(DV);::")"NGS20:6);R$oGX19:6);"ENTER LETTER -->";yG]6500GbO$RT$ıGgO65O73ĺG$:4440GqEC(DV)O64:EC$(DV)"CTRL-"O$GvP1DV1:P10P13G{P21:P3EC(DV)128:9200G:4390F!G$:4360F&4285$F+*F0:F:1:5:958YF?12);"** ESCAPE CODE **";FD::" THE FOLLOWING CONTROL CHARACTERS ARE VALID ESCAPE CODES:"FE:12);"CTRL-A":12);"CTRL-I":GF" SELECT THE ESCAPE CODE BY TYPING THE LETTER OND VALUE"!E11);"-- -----"3E12);"A - 1"GE12);"B - 1.5"YE12);"C - 2"jE:6);C$;:zESB;::")"E20:6);R$E19:6);"ENTER ID -->";E 6500EO$RT$ıEO$"A"SB1:4390EO$"B"SB1.5:4390FO$"C"SB2(CN2I3)85ERRERR19"(CN3I3)170ERRERR1W"(CN4I3)1ERRERR1^"Id"r(# SET BIT-#CNF08,16P12#X(CNF0P2)7#Y2P3<#Z(XY)A#R2(Z)0XXYF#CNF0P2,XK## CLEAR BIT#CNF08,16P1 #X,4,0,40,0,10,0,44,0,9,0,48,0,8,0.c' SYS DEFFc' 1,0,53,78,0,0,0,0_c' 1,137,80,0,0,0,0,0zc' 1,137,80,0,0,0,0,0 c( 2,142,85,170,1,85,170,1c' 1,137,80,0,0,0,0,0c' 1,137,80,0,0,0,0,0 c( 2,142,85,170,1,85,170,1800,2000,2400,3600,4800,7200,9600,19200?bt' FOR SET TIME INITib~' 31,29,31,30,31,30,31,31,30,31,30,31b' 19,20,21,23,24,29,30,32,33,35,36,38,40b' 1,10,17,21,25,33,38,42,46,0,13,15,0,3,0,7b' 0,19,0,11,0,23,0,1,0,28,30,0,0,0,6,5 c' 0,35,0,2aF#CNF0P2,XaK#$a# CLEAR BIT6a#CNF08,16P1Ga#X(CNF0P2)Ra#Y2P3_a#Z(XY)sa#R2(Z)1XXYa#CNF0P2,Xa#a# SET BYTEa#CNF08,16P1a$CNF0P2,P3a$a' BAUD RATESa' 50,75,110,134.5,150,300,600,1200'b' 11LU$(1)Y$:8910`"LU$(1)N$-`"CN1,1428`"I01W`"(CN2I3)85ERRERR1w`"(CN3I3)170ERRERR1`"(CN4I3)1ERRERR1`"I`"`(# SET BIT`-#CNF08,16P1`2#X(CNF0P2)`7#Y2P3`<#Z(XY)`A#R2(Z)0XXY_Q"X(CN3):CN4,X-_V"X0PG$(I)N$:8800;_["PG$(I)Y$U_`"LP(I)X:CD(I)(CN6)g_b"LS(I)(CN5)}_g"LP(I)LP(I)LS(I)_j"CN7,0_t"I_"BNKBNK16:CN8,BNK_"X(CN):CN,R4(X)_"R2(X)1EE$Y$:8885_"EE$N$_"X(X2)`"R2(X)(I)"CLEAR":R2(X)0CH$(I)"SET"/^"X(X2)M^"R2(X)0LU$(I)N$:8740[^"LU$(I)Y$h^$"X(X2)^)"R2(X)0AU$(I)N$:8770^."AU$(I)Y$^B"LL(I)(CN2)^G"EC(I)(CN1)128:EC(I)1EC(I)9ERRERR1:8785^L"EC$(I)"CTRL-"(64EC(I))(CN6):Z(CN7)]!I17;]!X(X2):Y(Y2):Z(Z2)Y]!R2(Z)0SA$(I)"":8655}]!R2(Y)0SA$(I)"SERIAL":8655]!R2(X)0SA$(I)"CLOCK":8655]!SA$(I)"PARALLEL"]!I]!I23]"BNKBNK16:CN8,BNK] "XR8((CN)):CN,X"^"CH$!BRRS((CN2)):CN2,BR48/\p!X((CN3)4)H\u!CLR4(X)5:X(X4)_\z!PAR4(X):X(X4)m\!SBR4(X)~\!SB2SB1.5\!SB3SB2\!XRT((CN4)):CN4,X\!X(X2):DIR2(X)\!X(X4):DOR2(X)\!X(X2):CFR2(X)1]!X(CN5):YJ07[X:CNJ,X[J$[I4[ERR0:8500A[ERR0ı[::G$;G$;G$;"*** UNEXPECTED FAILURE IN LOADING DEFAULTS. AN APPLE OR MULTIFUNCTION CARD PROBLEM IS SUSPECTED."[[4!BNK0[>!CN8,BNK[C!CN,(CN256)[a!CN1,0\fZCNF049152256SLOT2406ZCN8,0:CN,(CN256)";)V65007VO$RT$ıPVO$"Y"EE$Y$:5280iVO$"N"EE$N$:5280wVG$:5245VP13:P20:P30:9100:EE$Y$İ9000VVp LINE COLLECTORVzL$"":L0VA$:A(A$)VA13ıVA86080WL06160V):9200UFUP ECHO CHAR.UU1:5:958OUZ11);"** ECHO CHARACTER **"Ud::" IF YES IS CHOSEN, EACH CHARACTER THAT IS INPUT WILL BE IMMEDIATELY ECHOED BACK TO THE SENDER."Ui:6);C$;:UnEE$;::")"Ux16:6);R$V}15:6);":CF1İ9100# 3001*# SERIAL BR & F:# 4:1:958[#! 11);"** SERIAL CONTROL **"#& ::" # PARAMETER";29);"CURRENT"#+ " - ---------";29);"-------"#0 :" 1 - BAUD RATE";29);BB(BR)#5 " 2 - PARITY";29);PA$(PA)$: " 3 - CHARACT6);"1 - MM/DD HH;MM;SS.000"@" 6);"2 - DAY MM/DD/YY HH;MM;SSO" :6);C$;a" :CF;::")"q" 20:6);R$" 19:6);"SELECT FORMAT # -->";" O$" O$RT$ı" O$"1"CF1:3085" O$"2"CF2:3085" G$:3055 # P10:P24:P34:9000CONTINUE **";:O$:$! CLK FORMAT4! 4:1:958X! 9);"** CLOCK INPUT FORMAT **"! ::"THERE ARE TWO POSSIBLE TIME STRING INPUT FORMATS. FORMAT 1 IS COMPAT- ABLE WITH THE MCI CLOCK."! :6);"# FORMAT"! 6);"- ------"" T 6);"STEP OVER = ";LS(I)G Y 6);"CONVERT LOWER -> UPPER = ";LU$(I)q ^ 6);"CARRIAGE RETURN DELAY = ";CD(I) c I32940 h S0İ2980:5:1:958:2940 r : | I S0İ2980 :D$;"PR#0" 200! 24:1:"** PRESS THE SPACE BAR TO , I2ĺ"SERIAL OUTPUT:":287071 "PARALLEL OUTPUT:"Z6 :6);"ESCAPE CODE = ";EC$(I)~; 6);"HIGH-ORDER BIT = ";CH$(I)@ 6);"AUTO LINE FEED = ";AU$(I)E 6);"LINE LENGTH = ";LL(I)J 6);"PAGING = ";PG$(I)O 6);"PAPER SIZE = ";LP(I)  6);"PARITY = ";PA$(PA)9 6);"CHAR LENGTH = ";CLY 6);"# OF STOP BITS = ";SBr ::"SERIAL INPUT:"x  6);"CONVERT LOWER -> UPPER = ";LU$(1) 6);"ECHO CHARACTER = ";EE$ S0İ2980:3:1:958:::2855" ::' I23I)1ĺ"DISK":2755. ISLĺ"CPS CARD":2755: SA$(I)@ O S02770Y 2980e :2780o :: "DEVICE PARAMETERS" "------ ----------" :"CLOCK INPUT FORMAT = ";CF ::"SERIAL CONTROL:" :6);"BAUD RATE = ";BB(BR):2640d S(O$)$n :D$;"PR#";S/ S0ėX 6);" ** CURRENT DEFAULT VALUES **"o ::"DATE: ";T2$ ::"DEFAULT INPUT: ";DI$(DI) :"DEFAULT OUTPUT: ";DO$(DO) ::"SLOT ASSIGNMENTS:"  I17 6);I;" - "; DD(NT DEFAULTS- 2500D2 :4:6);"** DISPLAY/PRINT PARAMETERS **"< ::" ENTER THE PRINTER SLOT NUMBER (1-7), OR 0 TO DISPLAY ON THE SCREEN."F 12:6);R$P 11:6);"ENTER SLOT # -->";U O$:O(O$):O$;V O$RT$200Z O48O55ĺG$ D$;"IN#0":D$;"PR#0"+ CN8,0:CN4,XV X((T1$,1,1)):T2$(D7$,3X1,3)" "m T2$T2$(T1$,3,9) X((T1$,12,2)):X122575 T3$" AM":X0X12 2580 T3$" PM":X12XX12 T2$T2$(X)":"(T1$,15,2)T3$ ( PRISIGNED, YOU WILL NOT BE ABLE TO BOOT THIS DISK DRIVE."h~ :"IS THIS YOUR BOOT DRIVE ? (Y OR N) -->";r 6500 O$"Y"1200 O$"N"1300 G$;:2440 CN8,0:X(CN4):CN4,16 :D$;"IN#";SL D$;"PR#";SL:(23);"C" "";T1$3400:15000O3İ3200:150041O4İ3100:1500I2O5İ3250:1500s@:D$;"BLOAD CHAIN,A520,S";SZ;",D";DZJ520"SETUP IV-32K"` SET SLOT KLUDGEe 1j 14:958:5);G$;G$;G$;"** ATTEMPT TO ASSIGN DISK **"7t ::"IF SLOT ";I;" IS AS SERIAL INPUT"+6);"3 - SERIAL OUTPUT"I6);"4 - SERIAL CONTROL"h6);"5 - PARALLEL OUTPUT"x18:6);R$17:6);"SELECT GROUP # -->";O$:O(O$)O$RT$200"O49O53ĺG$:1555'O(O$),O1İ3000:1500 .O2İ,0,0,0,0!' 1,137,80,0,0,0,0,0<' 1,137,80,0,0,0,0,0 [( 2,142,85,170,1,85,170,1 T+~' 31,29,31,30,31,30,31,31,30,31,30,31X' 19,20,21,23,24,29,30,32,33,35,36,38,40' 1,10,17,21,25,33,38,42,46,0,13,15,0,3,0,7' 0,19,0,11,0,23,0,1,0,28,30,0,0,0,6,5' 0,35,0,2,4,0,40,0,10,0,44,0,9,0,48,0,8,0' SYS DEF' 1,0,53,78(CNF0P2)#Y2P3!#Z(XY)5#R2(Z)1XXYD#CNF0P2,XJ#Y# SET BYTEk#CNF08,16P1{$CNF0P2,P3$' BAUD RATES' 50,75,110,134.5,150,300,600,1200' 1800,2000,2400,3600,4800,7200,9600,19200t' FOR SET TIME INI::" IF YES IS CHOSEN, THEN EACH LOWER-CASE CHARACTER WILL BE CONVERTED TO UPPER CASE BEFORE IT IS OUTPUT."3:6);C$;3:LU$(DV);::")"316:6);R$315:6);"CONVERT LOWER CASE ? (Y OR N) -->";365003O$RT$ı4O$"Y"LS20:6);R$.2X19:6);"ENTER LETTER -->";82]6500F2bO$RT$ıa2gO65O73ĺG$:44402qEC(DV)O64:EC$(DV)"CTRL-"O$2vP1DV1:P10P132{P21:P3EC(DV)128:92002225:1:95827);"** CONVERT LOWER => UPPER **"r312);"** ESCAPE CODE **";`1D::" THE FOLLOWING CONTROL CHARACTERS ARE VALID ESCAPE CODES:"1E:12);"CTRL-A":12);"CTRL-I":1F" SELECT THE ESCAPE CODE BY TYPING THE LETTER ONLY (DO NOT PRESS CTRL)."1I:6);C$;:1NEC$(DV);::")" 2- 1.5"012);"C - 2")0:6);C$;:90SB;::")"I020:6);R$f019:6);"ENTER ID -->";p0 6500~0O$RT$ı0O$"A"SB1:43900O$"B"SB1.5:43900O$"C"SB2:43900!G$:43600&42850+000:1:5:9581?P23:P364X16PA4(CL5)2)/9200::/ # STP BITSJ/1:4:958q/8);"** # OF SERIAL STOP BITS **"/::" THE NUMBER STOP BITS CAN BE EITHER 1, 1.5, OR 2:"/:11);"ID VALUE"/11);"-- -----"/12);"A - 1"012);"B CHARACTER LENGTH (IN BITS) IS 5 TO 8.:.:6);C$;:J.CL;::")"Z.14:6);R$.13:6);"ENTER LENGTH (5-8) -->";.O$:O(O$).O$RT$ı.O53O56ĺG$:4245.CL(O$).4285..XSB:X2X3.X1.5X2/P10:18"-;6);"SELECT PARITY # -->";*->O$8-@O$RT$ıO-JO$"1"PA1:4185f-LO$"2"PA3:4185}-NO$"3"PA0:4185-TG$:4154-Y4285-c-h-r4:1:958-w6);"** SERIAL CHARACTER LENGTH **").|::" THE VALID RANGE FOR THE "** SERIAL PARITY **"H,::"PARITY MAY BE ODD, EVEN, OR NO PARITY:"`,:6);"# PARITY"v,6);"- ------","6);"1 - ODD PARITY",'6);"2 - EVEN PARITY",,6);"3 - NO PARITY",1:6);C$;,2:PA$(PA);::")",619:6);R$-: ";BB(8I)++:6);C$;5+:BB(BR);::")"I+24:6);R$;:1q+23:6);"SELECT BAUD RATE ID -->";{+6500+O$RT$ı+O65O80ĺG$:4055+BRO65+P10:P22:P3BR48:9200++ SELECT PARITY+4:1:958, 12);58:3610* SELECT BAUD**4:1:958M*10);"** SERIAL BAUD RATE **"*::"THE FOLLOWING BAUD RATES ARE AVAILABLE:"*::"ID BAUD";24);"ID BAUD"*"-- ----";24);"-- ----"*I07 +" ";(65I);" - ";BB(I);25);(73I);" -&)[21:6);"SELECT PARAMETER # -->";.)`O$<)eO$RT$ıT)jO$"1"İ4400:3780l)tO$"2"İ4600:3780)~O$"3"İ4700:3780)O$"4"İ4800:3780)O$"5"İ4900:3780)O$"6"İ4500:3780)O$"7"İ5100:3780)G$:3675*1:5:9U$(DV)*(3" 4 - LINE LENGTH";34);LL(DV)J(8" 5 - PAGING";34);PG$(DV)q(=" PAPER SIZE";34);LP(DV)(B" STEP OVER";34);LS(DV)(G" 6 - CONVERT LOWER => UPPER";34);LU$(DV)(L" 7 - CR DELAY AMOUNT";34);CD(DV)(V22:6);R$00' O$"2"İ5200:3400(' G$:3435?' SER/PAR OUT MENUi'::" # PARAMETER";34);"CURRENT";'" - ---------";34);"-------";'$:" 1 - ESCAPE CODE";34);EC$(DV)')" 2 - HIGH-ORDER BIT";34);CH$(DV)(." 3 - AUTO LINE FEED";34);A:" # PARAMETER";34);"CURRENT";H&W " - ---------";34);"-------";y&a :" 1 - CONVERT LOWER => UPPER";34);LU$(1)&d " 2 - ECHO CHARACTER";34);EE$&f 15:6);R$&k 14:6);"SELECT PARAMETER # -->";&p O$&u O$RT$ı'z O$"1"İ4500:34AL OUT MENU% 4:1:958;% 12);"** SERIAL OUTPUT **"D% DV2N% 3600f% PARALLEL OUT MENUv% 4:1:958% 11);"** PARALLEL OUTPUT **"% DV3% 3600%H SERIAL IN MENU%I 4:1:958%J DV1%M 12);"** SERIAL INPUT **""&R :ER LENGTH";29);CL:$? " 4 - NUMBER OF STOP BITS";29);SBJ$D 17:6);R$q$I 16:6);"SELECT PARAMETER # -->";y$N O$$S O$RT$ı$Y O$"1"İ4000:3100$Z O$"2"İ4100:3100$[ O$"3"İ4200:3100$\ O$"4"İ4300:3100$b G$:3145 % SERI7E1 CICFC"** PRESS THE SPACE BAR TO CONTINUE **";:O$:XCd GET UC CHARhCnO$:O(O$)CxO97O112OO32:O$(O)CCXDC0CbI17:DD(I)1ClJ02CvX(49152256I5)CY(49152256I7)CX3DD(I)0 DY66090BA32LLNG6160%BLL12BL$L$A$;BA$;EB6020PB(7);ZB6020jB8 BACKSPACEtB=LL1BBL0L$"":6240BLL$(L$,L)B`(8);" ";(8);BjB MK SURE NUMERICBE0BI1(L$)BA((L$,I,1))CA48A5Y"EE$Y$:5280(AO$"N"EE$N$:52806AG$:5245]AP13:P20:P30:9100:EE$Y$İ9000cAxAp LINE COLLECTORAzL$"":L0AA$:A(A$)AA13ıAA86080AL06160A6200A6020AA246120AL06020A6200B CHARACTER **"~@d::" IF YES IS CHOSEN, EACH CHARACTER THAT IS INPUT WILL BE IMMEDIATELY ECHOED BACK TO THE SENDER."@i:6);C$;:@nEE$;::")"@x16:6);R$@}15:6);"ECHO CHARACTER ? (Y OR N) -->";@6500@O$RT$ıAO$" DELAY AMOUNT (0-255), FOLLOWED BY RETURN --> ";:24[?LNG3:6000:L$""ıe?#6300x?(E1ĺG$:5145?-L(L$):L0L255ĺG$:5145?2CD(DV)L?<P1DV1:P26:P3CD(DV):9200?F?P ECHO CHAR?U1:5:958@Z11);"** ECHO958*>8);"** CARRIAGE RETURN DELAY **">::" THE AMOUNT OF DELAY IS EXPRESSED IN UNITS OF 10 MILLISECONDS. THE VALID RANGE IS 0 (NO DELAY) TO 255 (2.55 SECOND DELAY)."> :6);C$;:>CD(DV);::")">17:R2$B?15:" ENTERETURN --> ";:24.=LNG3:6000:L$""5005G=6300:E1ĺG$:5050k=L2(L$):L20L2L1ĺG$:5050=LS(DV)L2:LP(DV)L1:PG$(DV)Y$=P1DV1:P23:P3LP(DV)LS(DV):9200=P24:9200=P25:P3LS(DV):9200== CR DELAY>1:5::" ENTER PAPER SIZE (1-255), FOLLOWED BY RETURN --> ";:24g<LNG3:6000:L$""4960<6300:E1ĺG$:5015<L1(L$):L11L1255ĺG$:5015<18:1:958<20:R2$<18:" ENTER STEP OVER (0-";L11;"),=" FOLLOWED BY RLS(DV);::")"+;`(18):1:958::" ";R$W;e(18):" ENABLE PAGING ? (Y OR N) -->";a;j6500;oO$RT$(PG$(DV)N$LP(DV)0)ı;tO$"N"PG$(DV)N$:LP(DV)0:LS(DV)0:5075;yO$"Y"5005;~G$:4965;18:1:958;20:1:R2$K<18:1 OR DISABLED (NO). IF YES IS CHOSEN, THEN THE PAPER SIZE (IN LINES) AND THE NUMBER OF LINES TO STEP OVER THE PERFORATION MUST BE SPECIFIED.":B:" ";C$;::GPG$(DV);::")":L" (PAPER SIZE = ";::LP(DV);:;Q" STEP OVER = ";:::249LNG3:6000!9L$""ı+96300>9E1ĺG$:4840J9L(L$)c9L1L255ĺG$:4840p9 LL(DV)L9P1DV1:P22:P3LL(DV):920099$ PAGING9.1:5:9589315);"** PAGING **":8::" AUTOMATIC PAGING CAN BE ENABLED (YES) LENGTH **"8::" THE LINE LENGTH IS THE MAXIMUM NUMBER OF CHARACTERS PER OUTPUT LINE. THE VALID RANGE IS 1 TO 255.8:6);C$;:8LL(DV);::")"817:R2$915:" ENTER LINE LENGTH (1-255), FOLLOWED BY RETURN --> ";5:6);R$7714:6);"AUTO LINE FEED ? (Y OR N) -->";A76500O7O$RT$ıl7O$"Y"AU$(DV)Y$:47807O$"N"AU$(DV)N$:47807G$:47457P1DV1:P20:P3279100:O$"Y"İ900077 LINE LENGTH71:5:958 813);"** LINE806>G$:4645&6HP1DV1:P20:P30>6M9100:O$"C"İ9000D6RJ6\Z6f5:1:958{6k12);"** AUTO LINE FEED **"6p::" IF YES IS CHOSEN, A LINE FEED WILL BE ISSUED AFTER EVERY CARRIAGE RETURN."6z:6);C$;6:AU$(DV);::")" 71D OR SET BEFORE IT IS OUTPUT:"Q5:6);"C - CLEAR BIT 7":6);"S - SET BIT 7"`5:6);C$;w5:CH$(DV);::")"5 19:6);R$5%18:6);"ENTER CHOICE -->";5*65005/O$RT$ı54O$"C"CH$(DV)"CLEAR":468069O$"S"CH$(DV)"SET":46U$(DV)Y$:4575,4O$"N"LU$(DV)N$:4575:4G$:4545Q4P1DV1:P10P13_4P20:P31{49100:LU$(DV)Y$İ90004445:1:958411);"** HIGH-ORDER BIT **"5 ::" THE HIGH-ORDER BIT (BIT 7) OF EACH BYTE CAN BE EITHER CLEAREzqqSLOT0qI17/qX16384256I\q(X234)8(X236)4(X238)2SLOTIcqIqqSLOT0ıqX16384240(256SLOT):X8,0:X,192SLOTq}} DATA} }JANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE}JULY,AUGUST,SEPTEM %D16368,0: KEYBOARD STROBE]I49396256SLOT,FMT: RESTORE EXISTING CLOCK FORMATrN:: THAT'S ALLHq CPS SLOT FINDER Rq SETS SLOT = CPS CARD SLOT # \q IF NO CPS CARD, SLOT = 0fq29100:SLOT0ıpqX12,0:29100:X12,(X7)YEAR$= T2$" "(HOUR)":"MINUTE$":"SEC$" "AMPM$" "C ]  PRINT DATE AND TIMEc i r 9: ((40(T1$))2)1);T1$;39) 12:(((40(T2$))2)1) T2$ 0A(16384): CHECK KEYBOARD:A127ī100: NO KEY PRESSED) J TI1MTH ^MTH$% hI> DTE$(((T$,6,2)))R YEAR$(T$,9,2)i HOUR((T$,12,2)) MINUTE$(T$,15,2) SEC$(T$,2) AMPM$"AM" HOUR11HOURHOUR12:AMPM$"PM" HOUR0HOUR12 T1$DAY$" "MTH$" "DTE$", 19"INPUT TO KEYBOARD; D$;"PR#0": RESTORE OUTPUT TO SCREENA [ CONVERT TIME STRINGa y OBTAIN DAY STRING DAY$(T$,1) DAY(DAY$) DAY0DAY7 I1DAY12 DAY$ I , OBTAIN MONTH STRING 6MTH((T$,3,2)SET INPUT TO CLOCKY xD$;"PR#";SLOT: PREVENT TIME FROM PRINTING ON SCREEN DURING INPUTw }(23);"C": SELECT CLOCK 22:36,30: POS. CURSOR ON LINE T$: OBTAIN TIME STRING 1774,96: PUT FLASHING CURSOR ON SCREEN D$;"IN#0": RESTORE TO STOP", P29000: OBTAIN CPS SLOT NUMBERW USLOT0ī98: FOUND CPS p Z"NO CPS CARD FOUND"v _ bX49396256SLOT:FMT(X): GET CLOCK FORMAT cFMT16ĹX,FMT16: USE NEW FORMAT d f READ TIME h nD$;"IN#";SLOT: ] $ MOUNTAIN COMPUTER INC.*G(APPLESOFT DATE AND TIMEM2e<D$(4): CONTROL DFD$;"NOMONI,O,C": PREVENT DISK COMMAND FROM PRINTING ON SCREENK: CLEAR SCREENM16368,0: RESET KEYBOARD STROBE N22:9:"PRESS ANY KEY        CNF0P2)#Y2P3 #Z(XY)4#R2(Z)1XXYC#CNF0P2,XI#X# SET BYTEj#CNF08,16P1z$CNF0P2,P3$L#CNF08,16P1$CNF0P2,P3$*(CN2I3)85ERRERR18"(CN3I3)170ERRERR1V"(CN4I3)1ERRERR1]"Ic"q(# SET BIT-#CNF08,16P12#X(CNF0P2)7#Y2P3<#Z(XY)A#R2(Z)0XXYF#CNF0P2,XK## CLEAR BIT#CNF08,16P1#X("LP(I)X:CD(I)(CN6)(b"LS(I)(CN5)>g"LP(I)LP(I)LS(I)Jj"CN7,0Qt"Ij"BNKBNK16:CN8,BNK"X(CN):CN,R4(X)"R2(X)1EE$Y$:8885"EE$N$"X(X2)"R2(X)1LU$(1)Y$:8910"LU$(1)N$"CN1,142"I01"U$(I)N$:8740"LU$(I)Y$)$"X(X2)G)"R2(X)0AU$(I)N$:8770U."AU$(I)Y$gB"LL(I)(CN2)G"EC(I)(CN1)128:EC(I)1EC(I)9ERRERR1:8785L"EC$(I)"CTRL-"(64EC(I))Q"X(CN3):CN4,XV"X0PG$(I)N$:8800["PG$(I)Y$`!R2(Z)0SA$(I)"":8655>!R2(Y)0SA$(I)"SERIAL":8655a!R2(X)0SA$(I)"CLOCK":8655w!SA$(I)"PARALLEL"~!I!I23"BNKBNK16:CN8,BNK "XR8((CN)):CN,X"CH$(I)"CLEAR":R2(X)0CH$(I)"SET""X(X2)"R2(X)0LXYE#CNF0P2,XE#'E# SET BYTE9E#CNF08,16P1IE$CNF0P2,P3OE$C0DD(I)0DJ%DDD(I)1DCDC1,DI2D@D(# SET BITRD-#CNF08,16P1cD2#X(CNF0P2)nD7#Y2P3{D<#Z(XY)DA#R2(Z)0XXYDF#CNF0P2,XDK#D# CLEAR BITD#CNF08,16P1D#X(CNF0P2)D#Y2P3D#Z(XY)E#R2(Z)1X @ ` @@; $D@"DD(lD"8~BER,OCTOBER,NOVEMBER,DECEMBER[}MONDAY,TUESDAY,WEDNESDAY,THURSDAY,FRIDAY,SATURDAY,SUNDAY JRSDAY,FRIDAY,SATURDAY,SUNDAY ESOFT, WILL NOT WORK DIRECTLY WITH RAM APPLESOFT. STATEMENTS 3-6 MUST BE CHANGED.{1u 4/81 MODIFIED TO WORK WITH CPS CARD WORK WITH CPS CARD APR 1984 MODIFIED BY GOOD OL MCI TO WORK WITH CPS CARDTOT0qI17"qX16384256ITq(X234)8(X236)4(X238)2SLOTI:I99[qIiqSLOT0ıqX(192SLOT)256240:X8,0:X,192SLOTqQ0u JAN 1979 BY DAVID RAMSEY NOTE: DUE TO MINOR DIFFERENCES IN HPLOT COMMANDS IN RAM AND ROM APPL%(7)V2:JH:F21:500_D$;"PR#0":D$;"IN#0":::(222);" ERROR AT LINE ";(218)(219)256e|Hq CPS SLOT FINDER Rq SETS SLOT = CPS CARD SLOT # \q IF NO CPS CARD, SLOT = 0fq29100:SLOT0ıpqX12,0:29100:X12,(X7)zqqSL:A1%(T,0),A1%(T,1):145,95A1%(S,0),A1%(S,1)IX9199:142,X149,X:VF1526h M1Mİ4:530o 3TM:1:CO%(0)H1:CO%(1)V1:CO%(2)H2:CO%(3)V2:4:M1M:F11F2545HJİ6:5005!TH:1:CO%(4)H1:CO%(5)V1:CO%(6)H2:CO(T$,6,14)) (T$,14,1)(S$,14,1)499b (16384)155ĺD$;"PR# 0":D$;"IN#0":::16368,0: H((T$,7,2)):M((T$,10,2)):S((T$,13,2)):S$T$:H12HH12 HH5(M12):H60HH60 TS1:T0T59-0:145,95A1%(T,0),A1%(T,1):3141593.141590.10472:XCO14545(I):YCO45(I):A1%(C,0)XCO:A1%(C,1)YCO95:CC1: 2:16302,0::D$;"BLOAD CLOCK FACE 3" 7T$" ":S$T$:H0:M0:S0 <D$;"PR#";CLOCK:D$;"IN#";CLOCK:(23);"C" X(0):"";T$:(T$,6,1)" "T$NF0256(192SLOT)240f "CPS CARD FOUND IN SLOT ";CLOCK::"GENERATING CLOCK FACE CO-ORDINATES..." :" TO END PROGRAM PRESS 'ESC'" C0:I3.141593.141590.10472:XCO14575(I):YCO75(I):A1%(C,0)XCO:A1%(C,1)YCO95:CC1:X (C60:I3. 3:CO%(4),CO%(5)CO%(6),CO%(7)A1%(H60,0),A1%(H60,1)CO%(4),CO%(5): (104)48ĺ"THIS PROGRAM WILL NOT WORK WITH RAM APPLESOFT.": A%(59,1),A1%(119,1),CO%(7):D$(4):::1000 29000:SLOT0ĺ"CANT FIND CPS CARD": CLOCKSLOT:CT37T54)92:o 0:CO%(0),CO%(1)CO%(2),CO%(3)A1%(M1,O),A1%(M1,1)CO%(0),CO%(1):3:A1%(M1,0),A1%(M1,1): CO%(0),CO%(1)CO%(2),CO%(3)A1%(M,0),A1%(M,1)CO%(0),CO%(1): 0:CO%(4),CO%(5)CO%(6),CO%(7)A1%(J60,0),A1%(J60,1)CO%(4),CO%(5):J| 14H1(T53T7)142(T6T23)145(T22T38)149(T37T54)145:H2(T53T7)149(T6T23)145(T22T38)142(T37T54)145 V1(T53T7)95(T6T23)92(T22T38)95(T37T54)98:V2(T53T7)95(T6T23)98(T22T38)95(     :X(X4) z!PAR4(X):X(X4).!SBR4(X)?!SB2SB1.5N!SB3SB2i!XRT((CN4)):CN4,X!X(X2):DIR2(X)!X(X4):DOR2(X)!X(X2):CFR2(X)1!X(CN5):Y(CN6):Z(CN7)!I17!X(X2):Y(Y2):Z(Z2)ı::G$;G$;G$;"*** UNEXPECTED FAILURE IN LOADING DEFAULTS. AN APPLE OR MULTIFUNCTION CARD PROBLEM IS SUSPECTED."4!BNK0>!CN8,BNKC!CN,(CN256)a!CN1,0f!BRRS((CN2)):CN2,BR48p!X((CN3)4) u!CLR4(X)5@ INITJERR0:8500%TERR0ı^^:8:4);"** INVALID RAM CONFIGURATION **";G$;G$;G$h12:"A SET OF SYSTEM DEFAULT PARAMETERS IS NOW BEING LOADED."rI03|CN8,I16J07X:CNJ,XJIERR0:8500ERR0NTINUE **";:O$:#d GET UC CHAR3nO$:O(O$)TxO97O112OO32:O$(O)ZcXDC0vbI17:DD(I)1lJ02vX(49152256I5)Y(49152256I7)X3DD(I)0Y60DD(I)0JDD(I)1DCDC1IA$;6020(7);%602058 BACKSPACE?=LL1TBL0L$"":6240cLL$(L$,L)w`(8);" ";(8);}j MK SURE NUMERICE0I1(L$)A((L$,I,1))A48A57E1I"** PRESS THE SPACE BAR TO CORESET AND REBOOT THE SETUP DISK.".O$:980Cp LINE COLLECTORQzL$"":L0aA$:A(A$)mA13ı|A86080L0616062006020A246120L0602062006090A32LLNG6160LL1L$L$A$4:774,72&775,152:776,72:777,96/768C:18:G$;G$;G$SD$;"CLOSE"iX(222):X8975X5ĺD$;"DELETE";L2$6);"** APPLESOFT OR DOS ERROR **":16);"CODE = ";X:6400:200!:8);"** FATAL I/O ERROR **"::"HIT 8);"** SAVE IN PROGRESS **";C:D$;"OPEN ";L$:D$;"WRITE ";L2$X"SET THE PARMS"bVERSm I03~CNF08,16I J07*X(CNF0J):X4J>IfD$;"CLOSE"p200768,104:769,168:770,104:771,166 772,223:773,15SAVE SETUP FILE **"!715:745`8:" ENTER THE SETUP FILE NAME AND PRESS RETURN.";R2$t:"-->SETUP.";LNG30:6000L$""ġ:200L$"SETUP."L$:L2$L$I1(L$)(L$,I,1)","L2$(L$,1,I1):I999I::E LOAD ATTEMPT HAS BEEN CANCELED **"7 ::6400:200I I03:J07f CN8,16I:CNJ,DF(I,J)p J:I{ I17 CF$(I)""P10:P27:P3I:9100 I CN8,0:CN12,(CN7) 8000:7000:200  SAVE 940:4:10)" ** I( b:"CHOOSE ONE OF THE FOLLOWING:t g:" E - ELIMINATE CONFLICTING ASSIGNMENTS C - CANCEL LOAD ATTEMPT" j:" ENTER CHOICE (E OR C) -->"; l6500 qO$"C"640 vO$"E"ĺ::10);"IN PROGRESS...":650 {G$;:620$ :6:"** THFOLLOWING SLOTS CONTAIN PROTECTED PERIPHERAL CARDS. THEY HAVE ALSO BEEN ASSIGNED BY YOUR SETUP FILE:"t :I17 ?CF$(I)""605 D:"SLOT ";I;" CONTAINS A "; IISLĺ"CPS CARD,":595 N"DISK CARD," S"BUT IS ASSIGNED TO ";CF$(I);"." ]2)% DD(I)0ISLCF$(I)"":540B R2(Z)0CF$(I)"":540k ERR1:R2(Y)0CF$(I)"SERIAL":540 R2(X)0CF$(I)"CLOCK":540 CF$(I)"PARALLEL" I !ERR0650 &:G$;G$;G$;4);"** CONFLICTING SLOT ASSIGNMENTS **"i +4:"THE :4:10);"** LOAD SETUP FILE **"- 715S ::8);"** LOAD IN PROGRESS **"x :D$;"OPEN ";L$:D$;"READ ";L2$ I03:J07 DF(I,J) J:I D$;"CLOSE" XDF(0,5):YDF(0,6):ZDF(0,7):ERR0 I17 X(X2):Y(Y2):Z(Z!EXISTS0ĺ(4);"RUN SETUP"8R2(X)X2(X2)OR4(X)X4(X4)fR8(X)X8(X8)RS(X)X16(X16)RT(X)X32(X32)400:D$;"BLOAD CHAIN,A520,S";SZ;",D";DZ520"SETUP III-32K" LOAD FILE940$       ~ $D !~`!DDT"~2 COMPUTE THE DAY6I1YR1900:J1MNTH2SMNTH2I1I11:J1J112DAYDTE(365.25I1)(0.75((I1100)7))(30.6J1)DAYDAY7(DAY7):A((LINE$(LOC))48)!LOCLOC1FLINE$(LOC)"0"LINE$(LOC)"9"ıcMINMIN(LINE$(DFTOCLOC1: CHECK FOR MERIDIANLINE$(LOC)"A"LINE$(LOC)"P"2255QUAL$LINE$(LOC):LOCLOC1HR12HRHR12QUAL$"P"HRHR1LINE$(LOC)"0"LINE$(LOC)" "2165:kLINE$(LOC)"1"ıDpHR10RuLOCLOC1wzLINE$(LOC)"0"LINE$(LOC)"9"ıHRHR(LINE$(LOC))48HR13HR0LOCLOC1 CHECK FOR MINMIN0LINE$(LOC)"0"LINE$(LOC)"5"ıMIN10$9LINE$(LOC)"0"LINE$(LOC)"9"ıK>YR10((LINE$(LOC))48):LOCLOC1pCLINE$(LOC)"0"LINE$(LOC)"9"ıHYRYR(LINE$(LOC))48MMNTH12140RDTE292140W(YR4(YR4))0LOCLOC2:\LOCLOC1:a CHECK FOR HOUR#fHR0:C)"0"LINE$(LOC)"9"ı5DTE10((LINE$(LOC))48)CLOCLOC1h LINE$(LOC)"0"LINE$(LOC)"9"ıDTEDTE(LINE$(LOC))48DTE0ıDTEEM%(MNTH)LOCLOC1: (DTE10)(EM%(MNTH)10)LOCLOC1%* CHECK FOR YEAR/YR0965(7);:1925* CHECK FOR MONTH5MNTH0IMNTHKEY%(MNTH)VLOC3ıhI$LINE$(LOC)}N1$(T$,MNTH,1)N1$"*"ıN1$I$LOCLOC1:2000MNTHMNTH1:2015 CHECK FOR DATEDTE0:LINE$(LOC)" "2055LINE$(LO) I1$#(I1$)13LOC100:-19356I1$G(I1$)13ıOXXc(I1$)81955sI1%01985I1%I1%1:1970I1%LNG1985(I1$)211975I1%I1%1PT%(I1%):1925(I1$)321985LINE$(I1%)I1$:I1$;:1DTE10T PR4(YR)0TT41 SAD6,O:AD7,T= WMNMN1V XT(MN10):OMN10Tj ]AD8,O:AD9,T bT(YR10):OYR10T gAD10,O:AD11,T lAD12 v200 { LINE ENTRY,LOC=STARTING POS.,LNG=LENGTH OF ACTUAL CHRS.I1%LOC:PT%(I1%$:O(O$) O$RT$18402 O16ĺ(7);:1810@ !21:958Q +LOC10:1695m 0AD21920:EX3AD38304 5AD,(CNF0)256 :T(MIN10):OMIN10T ?AD1,O:AD2,T DT(HR10):OHR10T IAD3,O:AD4,T8 LAD5,DAY NT(DTE10):O:(21)I I1$LINE$(7)LINE$(8)":"LINE$(9)LINE$(10)" "LINE$(11)"M"g HR12QUAL$"A"HRHR12~ NUM$"P"HRHR12 2260: COMPUTE DAY "TO START CLOCK AT ";I1$;" PRESS RETURN."; 22 "OTHERWISE, PRESS CTRL-P TO REENTER." OURN FOR VERIFICATION)" LOC06 (13):1915:1703E G$;:1915V LOC100200f LOC0:1990v LOC31700 2035 LOC51700 2090 LOC71700 2145 LOC91700 2190 LOC111700 2230 LOC111700  THE FORMAT SHOWN BELOW. THEN PRESS RETURN TO VERIFY YOUR ENTRY."g wI$"--- -- -- -- -- -"q |(13) "ENTER DATE & TIME-";25);", 19 : M" 19);I$: 10);"EXAMPLE: OCT 3, 1984 12:30 PM" 19);I$: 5);"(PRESS RET !EXISTS0ĺ(4);"RUN SETUP"8R4(X)X4(X4)B1600l:D$;"BLOAD CHAIN,A520,S";SZ;",D";DZ520"SETUP III-32K"@ SET UP DATE & TIMEALNG12E936O:11);"** SET THE TIME **"Y(6)I ^" ENTER THE DATE AND TIME IN     z#?   îʰ  íˮʰ  Ю̠Ю̠ Ю͠Ю̠Ю̠ ӠҠ ӠԠҠˠĠӠԠҠРŠҠԮΠ ԮέˠˠŠ" !Рɭˠ"Рɭˠ?Р֭ˠР֭ˠǠˠɠ ŠĠŠ  ŠǠϠԠԠ+à2ΠР Рɠ]@`x $D@ |8EP" P29000: OBTAIN CLOCK OR CPS SLOT NUMBERe USLOT0ī100: FOUND CLOCK OR CPS Z"NO CLOCK OR CPS CARD FOUND" _ d f READ TIME h nD$;"IN#";SLOT: SET INPUT TO CLOCK xD$;"PR#";SLOT: PREVENT TIME FROM PRINTIN $ MOUNTAIN COMPUTER INC.*O( APPLE CLOCK OR CPS TIME STRINGU2m<D$(4): CONTROL DFD$;"NOMONI,O,C": PREVENT DISK COMMAND FROM PRINTING ON SCREENK: CLEAR SCREENM16368,0: RESET KEYBOARD STROBE N22:10:"PRESS   OGRAMS" P6 U"SETUP - CPS CONFIGURATION PROGRAM"b d"ANALOG CLOCK II - CLOCK DEMO PROGRAM" n"CPS LISTER - APPLESOFT PROGRAM LISTER" RH((978)256(977)3321),193: CHANGE RPPLESOFT BACK TO APPLESOFTN U3w10:"CPS MULTIFUNCTION CARD"!16:"VERSION 1.0"#(7:"FROM MOUNTAIN COMPUTER INC."26:"SCOTTS VALLEY, CALIFORNIA USA"<: F13:"LIST OF PR:@ Q;!@ $D !@&c|D@`x9qIqSLOT0ıBqX(192SLOT)256240:X8,0:X,192SLOTHq8);" ";(8);j)Hq CPS SLOT FINDER LRq SETS SLOT = CPS CARD SLOT # k\q IF NO CPS CARD, SLOT = 0fq29100:SLOT0ıpqX12,0:29100:X12,(X7)zqqSLOT0qI17qX16384256Iq(X234)8(X236)4(X238)2SLOTI:I9ıA86080L06160)620036020CA246120QL06020[6200e6090{A32LLNG6160LL1L$L$A$A$;6020(7);60208 BACKSPACE=LL1BL0L$"":6240LL$(L$,L) `( ";(34);"CAN'T LIST INTEGER PROGRAM";(34)a"IF X1=0 AND X2=0 THEN CALL ";PB128"PRINT CHR$(4);";(34);"DELETE PCLOADER";(34)D$;"CLOSE"D$;"EXEC PCLOADER"p LINE COLLECTORzL$"":L0A$:A(A$)A13$;"OPEN PCLOADER";:L$N$ĺ(L$,(N$)1,(L$)(N$));5T>D$;"WRITE PCLOADER"`R"X1=0"l\"X2=0"xf"HOME"p"PRINT CHR$(4);";(34);"LOAD ";(34);"L$"z"IF PEEK(37)>4 THEN X1=1""IF PEEK(51)=190 THEN X2=1"+"IF X2=1 THEN PRINTI30:PB25I,(" "):( PB56,SPACES> P$"S"ĹPB57,16T P$"P"ĹPB57,32f PB58,192SL :::"INSERT THE DISKETTE CONTAINING THE APPLESOFT FILE ";N$ *:"THEN PRESS THE SPACE BAR TO PROCEED";:O$: /O$C$ė:4:T$:54D3)" DX((TT$,12,2)):X12610: NT1$" AM":X0X12C X620^ bT1$" PM":X12XX12 lT$T$(X)":"(TT$,15,2)T1$  POKE PARMS I1(T$):PBI1,((T$,I,1)):I PBI1,13: CR I1(N$):PB25I,((N$,I,1)):I IPR#";SL "";TT$" D$;"PR#0"1 D$;"IN#0"= !AD4,Xg &X((TT$,1,1)):T$(DD$,3X1,3)" " +X((TT$,3,2)):X1X12ė:4:"INVALID CPS CARD TIME SETTING.": 0X((TT$,3,2)):T$T$(MM$,3X2,3)" " :T$T$(TT$,6,2)", 19"(TT$,9,$"S"P$"P"ĺG$;:360S P$:::"NOW ENTER THE APPLESOFT FILE NAME"::"-->";j LNG36:6000:N$L$y L$""350 I1(L$) (L$,I,1)","N$(L$,1,I1):I99 I AD(SL192)256240:X(AD4):AD4,162 :D$;"IN#";SL D$;" (4);"BLOAD PC.OBJ0"G ,R$(13):D$(4):G$(7):C$(3):P$(0)g 6DD$"SUNMONTUEWEDTHUFRISAT" 7MM$"JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC" ^:4:"ENTER THE PRINTER OUTPUT PORT (S=SERIAL,P=PARALLEL)"::"-->"; hP$:P$R$P$C$ė: rPK SPACES0LNG7256"-d29000_nSL0ė:6:"CANT FIND MULTIFUNCTION CARD.":lTP49151I(TP):TP,I1:J(TP):TP,IJI125022016LNG1:PB22016LNG(4);"BLOAD PC-32K.OBJ0"300 38400LNG1:PB38400LNG     $1$P 膸 ": ,i  4 }LuH0h A$ e ,Lt 3 LL Ȫ*ȱ_ȱ{ȱȅ| L.LUL=`?EXTRA IGNORED ?REENTER   e i` "  L Z  ^ _ LG ,? ɠ )H h`0{|uvLh$L* =yz` @ `" ;  @L ] , , Le ]L, }~,  $P )0 ]  ^eQQP&QPe PQ L  HH ~h* ph i# ȥ`L#hpoj iL   ,ȱȱ` @ #(:5,;F ~$0 +% L _I`$ #i)$ )L(ʊ$vHuHH @L  vQ 8egh ` e ɰ ,ZL LhhB;uhvhh e`:,  "hhh` ~ ɫ   L@L* HɰɫЉơhL, ,h`PQ/ Q^ԥP &^ &^ePP@ HHLLH:L8gh}~`Ƀ` S $L*?`gh<=ij>?`v(Le lL7 HH枱`8Є .0 _ .0 _ _ И H e ihh eHiHvHuH  m j %^_L# ! "  j y# HHH ZvyzW4ȱuȱve$v# _uv % Z *Lb-逐 Pћ `gȑggiihij ,stopijklmn KURhhz`gihi` ,   ,Ђ hhPQPQD Z ȱȱQP- % ) _$! $ȱȱж _L3 j )` )`ʠ$hh eL$p "tpM?E0<=Ѕ 8ɀA N4O0Ťș98:I8xІș Нƹ`ghȥQћ =v %  . F v Y Lij  Y  D_i^aeii`jij圪8iae^_^`_a8stopiejȄ PQmnij egh^_^ ijL< ȱ^Șe^^_iȑ^^_ҢLECAN'T CONTINUUNDEF'D FUNCTIO ERROR IN BREAKɁ! i` mn8囅^圪#8^Ɨ8^ƕƗƕ` i65^^.`p(o"H H {h0hhpo`M$L*  ]` H _h PCOSITAATPEELESTRVAASCHRLEFTRIGHTMIDNEXT WITHOUT FOSYNTARETURN WITHOUT GOSUOUT OF DATILLEGAL QUANTITOVERFLOOUT OF MEMORUNDEF'D STATEMENBAD SUBSCRIPREDIM'D ARRADIVISION BY ZERILLEGAL DIRECTYPE MISMATCSTRING TOO LONFORMULA TOO COMPTSCALESHLOATRACNOTRACNORMAINVERSFLASCOLORPOVTAHIMEMLOMEMONERRESUMRECALSTORSPEEDLEGOTRUIRESTORŦGOSURETURRESTOOWAILOASAVDEPOKPRINCONLISCLEAGENETABTFSPCTHEANOSTEЫANOҾSGINABUSFRSCRNPDPOSQRNLOEX//m/s*u*y*}**U*l\****+++h*G?J"loz qiH#$#  &'8!'''1(([=Q}yy{x!{_"}&PWFQ&dgENFONEXDATINPUDEDIREAGTEXPRINCALPLOHLIVLIHGRHGHCOLORHPLODRAXDRAHTAHOMRO٠)2ca(̠Ӡ)9<de de,dedeLdede)-FdBedCed>e.?Lrd?e.?Mr;Pd<e8.?rrd=e.?r8.?r0rMqg7+++)))+*8*G*++..a/g//W)J KM6a()GP(a()GP(Ka(Ԡ۠ǠԠà)GPa(̠)GP(0a()M(ca(ԠŠҬî)ca(                L ` -+ [..E0 - +f \$8L$f$På8噅 L" 0"ƚ0`L&H$ 0"h80 $LX$H Z#h #EL d$0L e q80L~$>nk'nk(X (%vu8 # +%L=-^^ %^^`` i#` L *` y#I*L F``a`Ȫı`E0!` Şȱ`şȱ`Š ȩŬ`(IL#J8$  `)F `ɠ #I* Z#i ` Z#G" "L`" !v i#8坅 "Ğğ Ġġ* e24(&&&0⨥塅堅埅垅L"@ (L"L bcdeL% ^_^^^^ ^`, i#^_^1r y#LH$! )! ]" ! ! S'.! h $3! !L! "bcde ! ! ! ! !L"L J eeededcecbebfbfcfdfefJ`^_^^^^E ^`e0,iLI `I0hhLE L̆i `eeeeeL i&&&&8坰IiBfffff`IIIIII `EL ai0vvvvvj`^Vy dv88; 5454h`` j I Lɑ #PQ`PHQH IPhQhPL =P` =  CPE%`[&L !IEL < !LJ#8$Ii0ǨV $W8Ie J SRS` H hhhL! ьHH  hhe^^_ L! ILW )   ʊH񌰸Iš hhhhhhhHH` L ` ^LL j L LE ^e^`_a`H` A$Ŝ䛐^_e^^__`)Jeiop ȥ敥ȑLHH c ohhqL      !LHȱȱh^_ H^qheqqr` o^_ ,^Hȱ^ȱ^h(po Heooph^_`TSR`FHI8eopnm opqrh`M0 {hЦstopmnU^_R ij^_lk 󅔆nmLY^_^ȱ^ȱ^eȱ^e(ӊ0ȱ^ ie^^__Ŕ ^05ȱ^0ȱ^+ȱ^ȱ^poHH L   Lm :HH  mhhȱ𙅄ȱH "#HHȱHH jhh Lhhhhȑhȑhȑhȑ` m /hh I`" ȱ "e膮  R^L 8m因n圑bȱhhћȊћLL ȥ e^eʅʥʆd ee`^de *& edeeƙ`  {8ompnL#$8vС,L :    m  HHHhhhHH ,҄ hh)klnm?Łћȱeȱeעk,5L x8` ћLD*L  ȥʆȑ $PhihiȑȊ ^e]eR mn殤ƕƮ敊 8(L$0pijlk"ћћliA[8`hH`klmniȅ ȅklȥȑȑȑȑȑiȅ` ieȅ` j0 ɐ  #~L#GHHHHH HH hHLB h Lm ,L p % #LƉ  80 ў*%L#  L   `  vL  v v$%0ЩHHl^h#d mhJhhhhhhE` LA$ vd.U"i L48,LLMҐL  ~),(,,ѸLL hhL ` ȱLL" ) q L H ϐ  ~  ohH  # #8 uvLi ,  ~$8$0`L ƹƸ$HH c 8ϐ*IEʼna L,{iweLi^ e^hٲg mH hV_F*ƹƸٲHٹHH LLh^^h_H i#HHH"$DDD@ɍƠ˨ثĠ˨ثĠ˨ثΠԠɍԠɍƠԠΠ΍ؠԩŠثŠجԍ΍͠ӠԠҠ͠ӠԠӠĠԠ͠ƠϠӠĬԠ ƠԽΠ΍Šث Šث˨ث΍ԠҠɠϠؠ eȱe  . ,` &/L. &/L].=?P<Ȅ> sʆ>PHt?QnL tp=hso< LeP>eQ? <=`@ L ʊ( (H hL/$`L-%$`L-%eЅԐ ,e҅Ր ,JJJ`JJJJӊ)-I-ȄҤѢԆզ8eЅԐ ,e҅Ր ,JJJ` j IQPHH,   hh`L * .`*U . S,  .L6- ` ` hH8HӰ hIiHӅхhЅhIi҄f8Ъх a,8e҅ԥձ&E%0Q&&bӰ ,eЅԥePفŴxaI1& ')*& 'JJ) e ʥ0)Je`JJJJӊ)-I-ȄҤѢԆզ8'#i媽,0J(` ,Q&%0Q&&`#0JI0`'0 I`0 I0ݩ()%%01&%0)&E%0Q&&e)j00',-"&,,i8i#H&ii&hif&i'`'i,-&i,-&iPII&if&HߚLLij  `a,  PQ ``aiśj地a`ʈjiL VSL@TL9 /ʅPQ /L / PȱQL /L,U,R@ ,T,SWP z,)`H)&JJ&&h' &' &' f&')(L *,(ʤL *(L( Ld ʊL[ I`8f`?2`@ j IPmQnL PsoQtp` j IPsQtPiQj֥PiQjLl 8fإuv Lަߥuڥvۥyܥzݥ􅸥uv @Lڅuۅv܅݅ z*L  )򊅤TH UR0PQQPIPPIPPPQ)stop0ghgghgh K=< l j IlP L L 0,  0,-`L ),-  0` )S' # ' ' " Y(L]"HL(IڢIڢ-(h#5ᆥ](IڢʥH &HɁ ! ]"Š( S'hɁ]( hL&` vy{| g|S}dpL}Qz}c0~~D:~L̑湭`: 808`ORXv)  &נ& i'h "` # v! m'Lv! #Ș殅 v!iȅ ƣ`5Dzh(F y#0ɠ "穝' v!'  % ɠL"#](  Z#b( U" Z# $ g( H 0 I &g( h &l(LE/8 i:`  Z#[& "pLG "# $ # L#H 8! v! 'hJ I`8;)q4X>Vt~w/z*|cYX ~uƀ1rҠ& v!iP q# ]#Ɉ "" $ i8H$șȩ0LN& % v!% #% # 0"ƙ L"  #i 0 i8.ș0șyc&yb&ya&y`&00ڊIi i/ȄȪ)ƙ.șI)$Ъ0.ȩ+.8嚪-ٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаH $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER  \I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅hL* ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک?`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơe$v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$L ) \ۥ$! ک$ȱȱж \L枱`8Єτ ,0 \ ,0 \ \۩ И F eihh eHiHvHuH j gݥ %ׅ^_L ީ  g ޥHHH XإvyzW4ȱuȱv Нƹ`ghȥQћ Pћ `֨gȑggiihij ֩*stopijklmn IآURhhHHz`gihi` ,  ,Є hhPQPQD X ȱȱQP- $_^ ijL<Ԡȱ^Șe^^_iȑ^^_Ң3 j )` )`ʠ$hh eL$p "tpM?E0<=Ѕυ 8ɀA N4O0Ťș98:I8xІșh0hhpo`M$L Z۽`H \h ֩P :ۤv  ڢ .ՆF v YLئij YՄ ֐D_i^aeii`jij圪8iae^_^`_a8stopiejȄ ӥPQmnij e֥gh^ DIRECTYPE MISMATCSTRING TOO LONFORMULA TOO COMPLECAN'T CONTINUUNDEF'D FUNCTIO ERROR IN BREAKɁ! i` Ӆmn8囅^圪#8^Ɨ8^ƕƗƕ` i65^^.`p(o"H H ANOҾSGINABUSFRSCRNPDPOSQRNLOEXCOSITAATPEELESTRVAASCHRLEFTRIGHTMIDNEXT WITHOUT FOSYNTARETURN WITHOUT GOSUOUT OF DATILLEGAL QUANTITOVERFLOOUT OF MEMORUNDEF'D STATEMENBAD SUBSCRIPREDIM'D ARRADIVISION BY ZERILLEGALPLOHLIVLIHGRHGHCOLORHPLODRAXDRAHTAHOMROTSCALESHLOATRACNOTRACNORMAINVERSFLASCOLORPOVTAHIMEMLOMEMONERRESUMRECALSTORSPEEDLEGOTRUIRESTORŦGOSURETURRESTOOWAILOASAVDEPOKPRINCONLISCLEAGENETABTFSPCTHEANOSTE0oeܔٱ0ۏ$1@hnW &tlnrvNjUaE=H jmكدzڕؤi֟H֐# A :dFZyy{{h}PTFNddENFONEXDATINPUDEDIREAGTEXPRINCAL               8m因n圑bȱhhћȊћLL ȥ e^eʅʥʆd ee`^de *& edeeƙ`  {8ompnL#$8vС,L :    m  HHHhhhHH ,҄ hh)klnm?Łћȱeȱeעk,5L x8` ћLD*L  ȥʆȑ $PhihiȑȊ ^e]eR mn殤ƕƮ敊 8(L$0pijlk"ћћliA[8`hH`klmniȅ ȅklȥȑȑȑȑȑiȅ` ieȅ` j0 ɐ  #~L#GHHHHH HH hHLB h Lm ,L p % #LƉ  80 ў*%L#  L   `  vL  v v$%0ЩHHl^h#d mhJhhhhhhE` LA$ vd.U"i L48,LLMҐL  ~),(,,ѸLL hhL ` ȱLL" ) q L H ϐ  ~  ohHؠˠ̠̠͠ӍΠӍؠɠƠˠةĠˠةĠˠةĠˠةΠؠؠƠˠةҠˠةҠˠةҠˠةΠԠɍԠɍƠԠΠΠ͠ΧԠĠӠؠԩŠؠŠجԍ΍͠͠ŠˠԠҍ͠ҠɠϠؠˠ͠ΠƠ΍ӠŠؠ ŠؠˠؠΠԠҠɠϠؠɍƠˠؠĠˠؠĠˠؠΠԠɍԠɍ͠ˠĠӠԠҍ͠ӠԠˠҠӠԠҍ͠ƠҠŠĠԠ͠ӠӠɬجԬӠ ƠԠΠӠ     (L *,(ʤL *(L( Ld ʊL[ I`8f`?2`@ j IPmQnL PsoQtp` j IPsQtPiQj֥PiQjLl 8fإuv Lަߥuڥvۥyܥzݥ􅸥uv @Lڅuۅv܅݅ z*L  )򊅤TH UR0PQQPIPPIPPPQ)stop0ghgghgh K=< l j IlP L L 0,  0,-`L ),-  0` )S' # ' ' " Y(L]"HL(IڢIڢ-(h#5ᆥ](IڢʥH &HɁ ! ]"Š( S'hɁ]( hL&` vy{| g|S}dpL}Qz}c0~~D:~L̑湭`: 808`ORXv)  &נ& i'h "` # v! m'Lv! #Ș殅 v!iȅ ƣ`5Dzh(F y#0ɠ "穝' v!'  % ɠL"#](  Z#b( U" Z# $ g( H 0 I &g( h &l(LE/8 i:`  Z#[& "pLG "# $ # L#H 8! v! 'hJ I`8;)q4X>Vt~w/z*|cYX ~uƀ1rҠ& v!iP q# ]#Ɉ "" $ i8H$șȩ0LN& % v!% #% # 0"ƙ L"  #i 0 i8.ș0șyc&yb&ya&y`&00ڊIi i/ȄȪ)ƙ.șI)$Ъ0.ȩ+.8嚪- L ` -+ [..E0 - +f \$8L$f$På8噅 L" 0"ƚ0`L&H$ 0"h80 $LX$H Z#h #EL d$0L e q80L~$>nk'nk(X (%vu8 # +%L=-^^ %^^`` i#` L *` y#I*L F``a`Ȫı`E0!` Şȱ`şȱ`Š ȩŬ`(IL#J8$  `)F `ɠ #I* Z#i ` Z#G" "L`" !v i#8坅 "Ğğ Ġġ* e24(&&&0⨥塅堅埅垅L"@ (L"L bcdeL% ^_^^^^ ^`, i#^_^ ɍԠɍƠԠΠ΍ؠԩŠثŠجԍ΍Ơ˨ΠԠՠԠŠŠ͠ӠԠҠ ƠԽΠ΍Šث Šث˨ث΍ԠҠɠϠؠɍƠ˨ثĠ˨ثĠ˨ثΠԠЮԠĤĠЮҠɽϠؽԫŠثɍDFTϠԠرŠثʬرԠʺԠɍŠثŠجԫԠĤŠЮ΍͠РŠҍ͠ӠӠĠǠϠРŠ͠ϠԠŠЮؠΠ͍ĤҤ͠ŠϠ̭ĢΠԍ ƠԽΠΠԠĤΠ    eȱe  . ,` &/L. &/L].=?P<Ȅ> sʆ>PHt?QnL tp=hso< LeP>eQ? <=`@ L ʊ( (H hL/$`L-%رزōԠҤĠ̤Ơ˨ΠرƠ˨ΠزƠزΠԠΧԠԠҠ͢ƠرĠزΠ̠ԠҤŠҢ _ŃŰHHHHH@ @  ` hhhhh` re`[رزōԠҤĠ̤Ơ˨ΠرƠ˨ΠزƠزΠԠΧԠԠҠ͢ƠرĠزΠ̠ԠҤŠҢU_Ҁ͠ɊHHHHHU@ @U  ` hhhhh`edVe`M`.?r$]]ƠŬĠ]2o a(ǠԠϠŠĩ)a(Ġìİ)]ŠԠŠq.?6~?r]ða(Π)]]ϠĠҠΧԠ]ŠΠŠϠΠ͠ԠƠ'dAedBedCedDe'dEeidFedGedHe'dIedJedKedLei'dMe dNedOedPe'dQedRedSedTedU&ed'e d(ed)ed*ed+ed,eUsd-ed.ed/ed0ed1ed2ed3ed4ed5eUxd6ed7ehd8ed9ed:ed;ed<ed=ed>e}d?ed@e`7d ed ed ede#dededeUddededededededededeUidededededeJd ed!ed"ed#eUnd$ed%ed ]Ӡ]Kc (M6*2a(ӠΠ)<ca(Šɠ)F] P]ŠŠĠUZdededededeHdedededehU_d eHd e    p  8p tn8r <D8<" ~@; |~x~|x~@@8  r :@qn8  HaDDD8<| @"| @@"D       OGRAMS" P6 U"SETUP - CPS CONFIGURATION PROGRAM"b d"ANALOG CLOCK II - CLOCK DEMO PROGRAM" n"DATE AND TIME - CLOCK DEMO PROGRAM" x"TIME STRING - CLOCK ACCESS DEMO PROGRAM "CPS LISTER - APPLESOFT PROGRAM LISTER" NH((978)256(977)3321),193: CHANGE RPPLESOFT BACK TO APPLESOFTN U3w10:"CPS MULTIFUNCTION CARD"!16:"VERSION 2.0"#(7:"FROM MOUNTAIN COMPUTER INC."26:"SCOTTS VALLEY, CALIFORNIA USA"<: F13:"LIST OF PR L ` ˕  ˕ : <`;9;LS0;`T U0 LVWT.UVmVVWmWW.XةX VJJJJ V) ` 0 `9i0`ON@WAIT@LOAD@SAVE@DEF@POKE@PRINT@CONT@LIST@CLEAR@GET@NEW@TAB(@TO@FN@SPC(@THEN@AT@NOT@STEP@+@-@*@/@^@AND@OR@>@=@<@SGN@INT@ABS@USR@FRE@SCRN(@PDL@POS@SQR@RND@LOG@EXP@COS@SIN@TAN@ATN@PEEK@LEN@STR$@VAL@ASC@CHR$@LEFT$@RIGHT$@MID$@S C  @L@DIM@READ@GR@TEXT@PR#@IN#@CALL@PLOT@HLIN@VLIN@HGR2@HGR@HCOLOR=@HPLOT@DRAW@XDRAW@HTAB@HOME@ROT=@SCALE=@SHLOAD@TRACE@NOTRACE@NORMAL@INVERSE@FLASH@COLOR=@POP@VTAB@HIMEM:@LOMEM:@ONERR@RESUME@RECALL@STORE@SPEED=@LET@GOTO@RUN@IF@RESTORE@&@GOSUB@RETURN@REM@STOP@`le` !&+04@=@<@SGN@INT@ABS@USR@FRE@SCRN(@PDL@POS@SQR@RND@LOG@EXP@COS@SIN@TAN@ATN@PEEK@LEN@STR$@VAL@ASC@CHR$@LEFT$@RIGHT$@MID$@SO QCO R R@L@DIM@READ@GR@TEXT@PR#@IN#@CALL@PLOT@HLIN@VLIN@HGR2@HGR@HCOLOR=@HPLOT@DRAW@XDRAW@HTAB@HOME@ROT=@SCALE=@SHLOAD@TRACE@NOTRACE@NORMAL@INVERSE@FLASH@COLOR=@POP@VTAB@HIMEM:@LOMEM:@ONERR@RESUME@RECALL@STORE@SPEED=@LET@GOTO@RUN@IF@RESTORE@&@GOSUB@RETURN@REM@STOP@`le`RRRRRRRSS SSSSS!S&S+S0S4SIefD$;"CLOSE"np200768,104:769,168:770,104:771,166772,223:773,154:774,72775,152:776,72:777,96768:18:G$;G$;G$D$;"CLOSE"SETUP FILE NAME AND PRESS RETURN.";R2$>:"-->SETUP.";OLNG30:6000aL$""ġ:200{L$"SETUP."L$:L2$L$I1(L$)(L$,I,1)","L2$(L$,1,I1):I999I::8);"** SAVE IN PROGRESS **"; :D$;"OPEN ";L$:D$0I03:J070CN8,16I:CNJ,DF(I,J):J:IEI17jCF$(I)""P10:P27:P3I:9100qICN8,0:CN12,(CN7)8000:7000:200 SAVE940:4:10)" ** SAVE SETUP FILE **"715:745*8:" ENTER THE - ELIMINATE CONFLICTING ASSIGNMENTS C - CANCEL LOAD ATTEMPT"ej:" ENTER CHOICE (E OR C) -->";ol6500qO$"C"640vO$"E"ĺ::10);"IN PROGRESS...":650{G$;:620:6:"** THE LOAD ATTEMPT HAS BEEN CANCELED **"::6400:20THEY HAVE ALSO BEEN ASSIGNED BY YOUR SETUP FILE:">:I17Q?CF$(I)""605rD:"SLOT ";I;" CONTAINS A ";IISLĺ"CPS CARD,":595N"DISK CARD,"S"BUT IS ASSIGNED TO ";CF$(I);"."]Ib:"CHOOSE ONE OF THE FOLLOWING:>g:" E $(I)"":5405 ERR1:R2(Y)0CF$(I)"SERIAL":540WR2(X)0CF$(I)"CLOCK":540mCF$(I)"PARALLEL"tI!ERR0650&:G$;G$;G$;4);"** CONFLICTING SLOT ASSIGNMENTS **"3+4:"THE FOLLOWING SLOTS CONTAIN PROTECTED PERIPHERAL CARDS. 8);"** LOAD IN PROGRESS **"B:D$;"OPEN ";L$:D$;"READ ";L2$TI03:J07aDF(I,J)kJ:I{D$;"CLOSE"XDF(0,5):YDF(0,6):ZDF(0,7):ERR0I17X(X2):Y(Y2):Z(Z2)DD(I)0ISLCF$(I)"":540 R2(Z)0CFSELECT OPTION # -->";%@O$:O(O$)=JO48O57ĺG$:310ITO(O$)z^O400,700,1500,1200,1600,1000,1100,2600,390h::D$;"CATALOG"::6400:200CN8,0:: LOAD FILE940:4:10);"** LOAD SETUP FILE **"715::6);"3 - SET DEVICE PARAMETERS"E 6);"4 - SET SLOT ASSIGNMENTS"a6);"5 - SET THE TIME"6);"6 - SET DEFAULT INPUT DEVICE"6);"7 - SET DEFAULT OUTPUT DEVICE"6);"8 - DISPLAY OR PRINT PARAMETERS""6);"9 - EXIT"622:6);"THIS SLOT ASSIGNMENT HAS BEEN DELETED.":::6400D PRIMARY MENUO 216,0\ :4:11y "** PRIMARY MENU **":7 6);"# OPTION" 6);"- ------": 6);"0 - CATALOG" 6);"1 - LOAD SETUP FILE" 6);"2 - SAVE SETUP FILE"!49:KEY%(I):I) 8000:SA$(SL)""200a :5:G$;G$;G$;4);"** SLOT ASSIGNMENT CONFLICT **" ::"SLOT ";SL;" CONTAINS A CPS CARD,":"BUT IS ASSIGNED TO ";SA$(SL);"." P10:P27:P3SL:9100 SA$(SL)"":CN12,(CN7) X(49168)1 :" ~CN12,(CN7)' INIT BAUD ARRAY3 I015> BB(I)D S STT INITz LIN$(12),PT%(12),KEY%(49),EM%(11) I011:EM%(I):I I012 PT%(I):LIN$(I)" " I T$"ADFJMNOS*PU*R*G*E*C*E*B*AU*N*LN*A*RY*O*V*C*T*E*P*" I0(1)"CLOCK"1 NDO$(0)"SERIAL":DO$(1)"PARALLEL"F OY$"YES":N$"NO"f PD7$"SUNMONTUEWEDTHUFRISAT" _:10);"READING PARAMETERS..." d7000 n7500 sSLOT0ė:6:"CANT FIND MULTIFUNCTION CARD": xCN12,0: DISABLE z7500 |CN8,0X16(X16)% ERT(X)X32(X32)? GR$"(RETURN TO EXIT)"` HR2$" (RETURN ONLY TO EXIT)" IC$"(THE CURRENT CHOICE IS " JG$(7):D$(4) KRT$(13) LPA$(0)"NO PARITY":PA$(1)"ODD":PA$(2)"NO PARITY":PA$(3)"EVEN" MDI$(0)"SERIAL":DI$[EXISTS050+:(4);"RUN SETUP"c2DD(7),EC(3),LL(3),LP(3),LS(3),CD(3),BB(15),DF(3,7)7EC$(3),LU$(3),CH$(3),AU$(3),PG$(3),SA$(7),PA$(3),DI$(1),DO$(1),CF$(7)AR2(X)X2(X2)BR4(X)X4(X4)CR8(X)X8(X8) DRS(X)                                        `"LP(I)X:CD(I)(CN6))b"LS(I)(CN5)?g"LP(I)LP(I)LS(I)Kj"CN7,0Rt"Ik"BNKBNK16:CN8,BNK"X(CN):CN,R4(X)"R2(X)1EE$Y$:8885"EE$N$"X(X2)"R2(X)1LU$(1)Y$:8910"LU$(1)N$"CN1,142"I01"LU$(I)N$:8740"LU$(I)Y$*$"X(X2)H)"R2(X)0AU$(I)N$:8770V."AU$(I)Y$hB"LL(I)(CN2)G"EC(I)(CN1)128:EC(I)1EC(I)9ERRERR1:8785L"EC$(I)"CTRL-"(64EC(I))Q"X(CN3):CN4,XV"X0PG$(I)N$:8800["PG$(I)Y$!R2(Z)0SA$(I)"":8655?!R2(Y)0SA$(I)"SERIAL":8655b!R2(X)0SA$(I)"CLOCK":8655x!SA$(I)"PARALLEL"!I!I23"BNKBNK16:CN8,BNK "XR8((CN)):CN,X"CH$(I)"CLEAR":R2(X)0CH$(I)"SET""X(X2)"R2(X)05:X(X4)!z!PAR4(X):X(X4)/!SBR4(X)@!SB2SB1.5O!SB3SB2j!XRT((CN4)):CN4,X!X(X2):DIR2(X)!X(X4):DOR2(X)!X(X2):CFR2(X)1!X(CN5):Y(CN6):Z(CN7)!I17!X(X2):Y(Y2):Z(Z2)0ı::G$;G$;G$;"*** UNEXPECTED FAILURE IN LOADING DEFAULTS. AN APPLE OR MULTIFUNCTION CARD PROBLEM IS SUSPECTED."4!BNK0>!CN8,BNKC!CN,(CN256)a!CN1,0f!BRRS((CN2)):CN2,BR48p!X((CN3)4) u!CLR4(X)@ INITJERR0:8500&TERR0ı_^:8:4);"** INVALID RAM CONFIGURATION **";G$;G$;G$h12:"A SET OF SYSTEM DEFAULT PARAMETERS IS NOW BEING LOADED."rI03|CN8,I16J07X:CNJ,XJIERR0:8500ERR60DD(I)0J(DD(I)1DCDC1/I5?L ASFJVI17U`SLOTIgeX49152256IrjJ02t(X234)8(X236)4(X238)2SLOT0~JSLOT0I99ICNF049152256SLOT240CN8,0:CN,(CN256) A57E1II"** PRESS THE SPACE BAR TO CONTINUE **";:O$:[d GET UC CHARknO$:O(O$)xO97DFTO$(O)XDC0bI17:DD(I)1lJ02vX(49152256I5)Y(49152256I7)X3DD(I)0 Y6090A32LLNG6160(LL15L$L$A$>A$;H6020S(7);]6020m8 BACKSPACEw=LL1BL0L$"":6240LL$(L$,L)`(8);" ";(8);j MK SURE NUMERICE0I1(L$)A((L$,I,1))A48THIS SLOT ASSIGNMENT HAS BEEN DELETED.":::6400N :D$;"BLOAD CHAIN,A520"f 520"SETUP III-32K"{ p LINE COLLECTOR zL$"":L0 A$:A(A$) A13ı A86080 L06160 6200 6020 A246120 L06020 620049:KEY%(I):I) 8000:SA$(SL)""200a :5:G$;G$;G$;4);"** SLOT ASSIGNMENT CONFLICT **" ::"SLOT ";SL;" CONTAINS A CPS CARD,":"BUT IS ASSIGNED TO ";SA$(SL);"." P10:P27:P3SL:9100 SA$(SL)"":CN12,(CN7) X(49168)1 :" ~CN12,(CN7)' INIT BAUD ARRAY3 I015> BB(I)D S STT INITz LIN$(12),PT%(12),KEY%(49),EM%(11) I011:EM%(I):I I012 PT%(I):LIN$(I)" " I T$"ADFJMNOS*PU*R*G*E*C*E*B*AU*N*LN*A*RY*O*V*C*T*E*P*" I0(1)"CLOCK"1 NDO$(0)"SERIAL":DO$(1)"PARALLEL"F OY$"YES":N$"NO"f PD7$"SUNMONTUEWEDTHUFRISAT" _:10);"READING PARAMETERS..." d7000 n7500 sSLOT0ė:6:"CANT FIND MULTIFUNCTION CARD": xCN12,0: DISABLE z7500 |CN8,0X16(X16)% ERT(X)X32(X32)? GR$"(RETURN TO EXIT)"` HR2$" (RETURN ONLY TO EXIT)" IC$"(THE CURRENT CHOICE IS " JG$(7):D$(4) KRT$(13) LPA$(0)"NO PARITY":PA$(1)"ODD":PA$(2)"NO PARITY":PA$(3)"EVEN" MDI$(0)"SERIAL":DI$]EXISTS050+:(4);"RUN SETUP"c2DD(7),EC(3),LL(3),LP(3),LS(3),CD(3),BB(15),DF(3,7)7EC$(3),LU$(3),CH$(3),AU$(3),PG$(3),SA$(7),PA$(3),DI$(1),DO$(1),CF$(7)AR2(X)X2(X2)BR4(X)X4(X4)CR8(X)X8(X8) DRS(X)!! ! ! ! ! !!!!!!!!!   DD(J)1Ğ:"DISK";::4JSLĞ:"CPS CARD";::CSA$(J);:U DEVICE MENUa:2:7"** SET DEVICE PARAMETERS **":10);"** GROUP SELECTION **"7:6);"# GROUP"6);"- -----":6);"1 - CLOCK INPUT"6);"2 -(O$"P"SA$(I)"PARALLEL":O3:14506G$:1375JP10:P27:P3SS_O0İ9100:1485i9000P26:O2İ9100:14859000P25:O1İ9100:14859000CN12,(CN7):7000:1200 QUICKIEJ0Ğ:"RESERVED";::LOCK" F3);"S - SERIAL PORT"=P3);"P - PARALLEL PORT"EU:VZ24:6);R$;z_23:6:"SELECT DEVICE ID -->";d6500nO$RT$1200xO$"N"SA$(I)"":O0:1450O$"C"SA$(I)"CLOCK":O1:1450O$"S"SA$(I)"SERIAL":O2:1450O49O55ĺG$:1265) I(O$):SSI= ISLĺG$:1265YDD(I)1DC1ĺG$:1265kDD(I)1240014:(1):958:"NOW SELECT DEVICE FOR SLOT ";I;".":2);"ID DEVICE"(2);"-- ------"23);"N - NO ASSIGNMENT"<3);"C - C-------";23);"- ----------";*I03>:3);I;" - ";RJI:1490:JJ4e23);J;" - ";o1490u14:1:"TO CHANGE ASSIGNMENT, FIRST SELECT SLOT.";17:3);R$16:3);"ENTER SLOT # -->";O$:O(O$)O$RT$200O$"P"DO1:1180"O$RT$2000G$:1150IP10:P24:P33:9000YDO0İ9100c1101v ASSIGN SLOTS:10:"** SET SLOT ASSIGNMENTS **"::"CURRENT ASSIGNMENTS:":3)"# ASSIGNMENT";23);"# ASSIGNMENT"3);"- --5(Q"** SET DEFAULT OUTPUT DEVICE **">V8:"ID DEVICE"Q["-- ------"ie" S - SERIAL PORT"j" P - PARALLEL PORT"o:6);C$;t:DO$(DO);::")"y17:6);R$~16:6);"SELECT DEVICE ID -->";:6500O$"S"DO0:1180" :6);C$;':DI$(DI);::")"717:6);R$b16:6);"SELECT DEVICE ID -->";:6500y$O$"C"DI1:1080)O$"S"DI0:1080.O$RT$2003G$:10508P10:P24:P31:9000=DI0İ9100B1001L DEFAULT OUTM:6::6400:200]:8);"** FATAL I/O ERROR **"::"HIT RESET AND REBOOT THE SETUP DISK."jO$:980| DEFAULT IN:7:5"** SET DEFAULT INPUT DEVICE **"8:"ID DEVICE""-- ------"" C - CLOCK"" S - SERIAL PORT' 768,104:769,168:770,104:771,166E 772,223:773,154:774,72b 775,152:776,72:777,96k 768 :18:G$;G$;G$ D$;"CLOSE" X(222):X8975 X5ĺD$;"DELETE";L2$ 6);"** APPLESOFT OR DOS ERROR **" :16);"CODE = ";X."L$:L2$L$ I1(L$)D (L$,I,1)","L2$(L$,1,I1):I999K IQ x ::8);"** SAVE IN PROGRESS **"; :D$;"OPEN ";L$:D$;"WRITE ";L2$ I03 CNF08,16I J07 *X(CNF0J):X 4J >I fD$;"CLOSE" p200OAD CHAIN,A520,S";SZ;",D";DZ2 520"SETUP V-32K"=  SAVEG 940n :4:10)" ** SAVE SETUP FILE **"| 715:745 8:" ENTER THE SETUP FILE NAME AND PRESS RETURN.";R2$ :"-->SETUP."; LNG30:6000 L$""ġ:200 L$"SETUP`PQ=!EXISTS0ĺ(4);"RUN SETUP"8R2(X)X2(X2)W SZ(43626(16384(EX2)))v DZ(43624(16384(EX2))) PRIMARY MENU216,0:4:11"** PRIMARY MENU **":76);"# OPTION"6);"- ------": 6);"0 - CATAL"" " " " " """""""""