' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 HIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hR*Ͳ*ʎR*ʎ]*]*]*ɍuLɍ}R*LR*ɍ*g^H8* ^&hZ*LɍR* &LͲ*ɊR*R*%* Q(L$Ͳ* Z*@ -^*  \*[*Z* Q(Y*\*[*Z*8`l6L_*Ȍb*_*Ͳ*]* !)Y( h( (E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠu**W* '* H &h@ ['_* /QSIRb*_*L!`LLL*L7`**`LQ(LYLeLXLeLee Q*H\*(h0L&& $`(* &R*  \*Z*Ll8 R* HH\*`\*Z*[*Y*S*6`*LxQ*ɿu3'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()!)u**`*5".Q`pN%$#$$b"p"t""%%%%"""m%2"<"("-"P"y%%0#\##|"6$6$$$e<%%g< 7JJJJj*7h*I * aUL@* kU8*  L % Q(^*R*(jQ*0l^l\ * wU*FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>??AyC@B@B|ACLT$VXZdflpx|~**7777(*3]67V<<8:=???@@##topmnU^_R ij^_lk 󅔆nmLY^^ȱ^ȱ^eȱ^e(ӊ0Цe^^&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`LA@@&E&&A@@&AA)߅CBBH&E&&A@B& ChLQhBAȌy8zx8v{v I7H7@)*AL@m{@AAA,+i(ˢ3Z@[A@ /@v wm{@8/e@@eAA3]ͥ@\ƊiY>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ H8`?E V9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD#Ͳ*Lɍ ['LL&_*_* ^& 9 )L&3 9 )aDFTL jLY ! u*< !(_*9 ) ˭*ɠu*ɠK_*9 )?L ˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 5*@ N'5L& ' ' ' ' "L#` -e* L  #s*r* #m*l* #s*r*L# "-5L& # z$e*)r*s* z$r*s*Lq$ ]# Q(lr** L& #8gh #hgL# #8LʨM #ˤL#5H "hL'55555 &55L&AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3&E`( !80 0 !DDL"DLDL^* t*^*`,t*P pMt*-^*^*`*DH #hW*L' " d'@` "L" 5 5 c* "L" " &Lq6L#c*l* m*l*l*5m*5 "EL&AD@ C' N' 'c*5L&u*ɠ% d': "L" 'UVERIF!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 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 u*`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`ƙ.șI)$Ъ0.ȩ+.8嚪-E/8 i:`  cd pLP袊 +륪 #쩊  UH A驊  hJ I`8;)q4X>Vt~w/z*|cYX ~uᦠL LN覸^e^`_a`H` Jh`` g R L楝ɑ 률PQ`PHQH RPhQhPL F犠P` F熅  L熆PE%`dL 饢IEL < LS리8$Ii0ǨV $LL(L<  } }$%0Ʃ 8(L$0pijlk"ћћliA[8`hH`klmniȅ ӥȅklȥȑȑȑȑȑiȅ` ieȅW8Ie Ji `eeeeeLi&&&&8坰IiBfffff`IIIIII `ELԢai0` gݥ0 ɐ ~LGHHHHH hhhHH ,҄ hh)klnm?Łћȱeȱeעk,5LԢx8` ћLK*L өȥʆȑ $PhihiȑȊvvvvvj`^Vy dv88; 54541r LᥝH- 2 f  \7 h < L bcde 饡 饠 饟 饞 LLJ eeededcecbebfbfcfdfefJ`^_^^^^ ↭^e]eR Ӆmn殤ƕƮ8m因n圑bȱhhћȊћLLȥ e^eʅʥʆd ee`^de *& edeeƙ` 8ompnE ^`e0,iLR襫`I0hhLNL ci ` cP Li v r8坅 Ğğ Ġġ* e24(&&&0⨥塅堅埅垅L@ (LꢅLԥbcdeL.^L$8vС,L A  ީ j ީ HHHHH L  ߅Lj A㥋HH jhhȱ𙅄ȱH +륹HHȱHH ghh Lhhhhȑhȑhȑhȑ` jݠ 6hh R䆞`" ȱ _^^^^ ^`, r^_^^^ %^^`` r` L襝 *` 녞I*L)F``a`Ȫı`E0!` Şȱ`şȱ`Š ȩŬ`(IL륝J8$ "e膮 㦫 R^LԥSR`FHI8eopnm opqrh`M0 䩀hЦstopmnU^_R #ij^_lk 󅔆nmLb^_^ȱ^ȱ^eȱ^e(ӊ0ȱ 芢 脤`)F 鄤`ɠ 넬I* L)腞` -+ [..E0 - +f \$8Lf$På8噅 U 9ƚ0`LH$ 9h80 LaH ch 륪EL祚 d$0L e^ ie^^__Ŕ #^05ȱ^0ȱ^+ȱ^ȱ^poŜ䛐^_e^^__`)Jeiop Ӥȥ敥ȑL䥡HH ` lhhqL 奌  奫  *LݠHȱȱh^_ H^qheqqr q80L>nk'nk(X 1vu8 4L:۠-$șȩ0LW     9ƙ U i 0 i8.ș0șylykyjyi00ڊIi i/ȄȪ)` lݥ^_ 5^Hȱ^ȱ^h(po Heooph^_`T SRS` H hhhL* ьHH 㥌 hhe^^_ L* IL` ) ʊH񌰸Iš hhhhhhhHH` L ` ^LL g 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 sʆ>PHt?QnLԅtp=hso< LeP>eQ? ॔<=`@ ߩL ʊ( (H hL$ 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:`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,--&~L̑湭`: 808`ORXv( sL  񕰆򊅤TH کURPQQPIPPIPPPQ)stopgh֘gghgh K֩:ۅ<ԅl g RlP L L 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)S40,-`L ,- 0` (L ,(ʤL (L( Ld ʊL[ I`8f`?2`@ g RPmQnLԥPsoQtp` g RPsQtPiQj֥PiQjLl֩ ޥ8fإuv Lنަߥuڥvۥyܥi#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDDȅEhH 0l( Lh:h;l Le / XZ]_, :ILl `Ȇ׍숈l E@A  J 0zݥ􅸥uv >Lץڅuۅv܅݅ߚLLްij ֥`a, PQ ֥`a```aiśj地a`ʈjiLԭVSL@TL9 ʅPQ L PȱQL L,U,R@ ,T,SWP`YE <Šӭpd`HVTQ PS 6" (!#%L" X`I`ɍ,,L8L,H ΰɐHJ) )h)i( ((`ɇ@ 0`$($$!f ~)`H)&JJ&&h' &' &' f&')'#i媽0J(` Q&%0Q&&`#0JI0`'0 I`0 I0ݩ()%%01&%0)&E%0Q&&e)j00',"&,i8i#H&ii&hi`ɠɍZɊZɈ$!$$"% %% e (`I(ii,i\$%H $ hi#ʥ"%$$%%#%"H $(*)+!hi# H $(*0 $(!`8Hh`BC<>=?<=`K i! Ȉ2 ,`H h*:` f&i'`'i,&i,&iPII&if&HhH8HӰ hIiHӅхhЅhIi҄f8Ъх e8e҅ԥձ&E%0Q&&bӰ eЅԥePفŴxaI1& ')*& 'JJ) e ʥ0)Je`E/E//`$(H)? @(hl8NO,(,` ɛ`2H2 h2Ɉɘ  : 3  5ɕ()ߝɍв [=< @L< >=?<) < `JJJ>Ie";d6500nO$RT$b@L1200$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:14859000X(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"**P25: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); 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:1080"** 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 GRO.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$UP # -->";!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;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 ASIME **""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 3SIGNMENTS **"/::"CURRENT ASSIGNMENTS:":^3)"# ASSIGNMENT";23);"# ASSIGNMENT"3);"- ---------";23);"- ----------";I03:3);I;" - ";JI:1490:JJ423);J;" - ";149014:1:"TO CHANGE ASSI, 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$21GNMENT, 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 DEVICl  . $ ; &?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 = ";LLHR12HRHR12&-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,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=LENGTH$;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):CN4 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$,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":)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)DTEX12XX1210 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 SLO0: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)LOCLOC1T # -->";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 :*%** 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:+\LOCL:"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 = 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$";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 =(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-22-%"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);"I - 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)6 :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;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$"6E 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:3"İ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);"--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 RAT ----"@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:P3E";29);BB(BR).95 " 2 - PARITY";29);PA$(PA)S9: " 3 - CHARACTER LENGTH";29);CL{9? " 4 - NUMBER OF STOP BITS";29);SB9D 17:6);R$9I 16:6);"SELECT PARAMETER # -->";9N O$9S O$RT$ı9Y O$"1"İ4000:31009Z O$"2"İ4100:3100:[ O$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"3"İ4200:3100(:\ O$"4"İ4300:31006:b G$:3145L: SERIAL OUT MENU\: 4:1:958|: 12);"** SERIAL OUTPUT **": DV2: 3600: PARALLEL OUT MENU: 4:1:958: 11);"** PARALLEL OUTPUT **": DV3: 3600;H SERIAL IN MENRITY"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);"** U;I 4:1:958;J DV19;M 12);"** SERIAL INPUT **"c;R ::" # PARAMETER";34);"CURRENT";;W " - ---------";34);"-------";;a :" 1 - CONVERT LOWER => UPPER";34);LU$(1);d " 2 - ECHO CHARACTER";34);EE$;f 15:6);R$";CO$:O(O$)CO$RT$ıCO53O56ĺG$:4245DCLECT PARAMETER # -->";

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İ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:" EN: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 ONTER 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);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"** 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);::")"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 $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$"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 :Y"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::" 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$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):9200SP24#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: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)."RY 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"D 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(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$ECHO CHARACTER ? (Y OR N) -->";)V65007VO$RT$ıPVO$"Y"EE$Y$:5280iVO$"N"EE$N$:5280wVG$:5245VP13:P20:P30:9100:EE$Y$İ9000VVp LINE COLLECTORVzL$"":L0VA$:A(A$)VA13ıVA86080WL06160(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)) W6200W6020$WA2461202WL06020!CN8,BNK[C!CN,(CN256)[a!CN1,0\f,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,1!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):YV):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 - CHARACT: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(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,78I)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),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  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" ::' I23 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İ, 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) 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 AST 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 SIGNED, 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$CONTINUE **";: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);"- ------"" 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$ ( PRI6);"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:9000NT 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$(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"L"** 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$-:AL 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 :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 :" # 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:34CHARACTER 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: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);AP23: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 U$(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$- 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?&)[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:912);"** 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);::")" 258: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);" -S20: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 **"r3 ";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);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 DY6:" 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 RD 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":46ETURN --> ";: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:806>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);::")" 71958*>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:" ENTER5: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);"** LINE 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);"** ECHO 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 --> "; 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$":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) Y"EE$Y$:5280(AO$"N"EE$N$:52806AG$:5245]AP13:P20:P30:9100:EE$Y$İ9000cAxAp LINE COLLECTORAzL$"":L0AA$:A(A$)AA13ıAA86080AL06160A6200A6020AA246120AL06020A6200B 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 = ";::6090BA32LLNG6160%BLL12BL$L$A$;BA$;EB6020PB(7);ZB6020jB8 BACKSPACEtB=LL1BBL0L$"":6240BLL$(L$,L)B`(8);" ";(8);BjB MK SURE NUMERICBE0BI1(L$)BA((L$,I,1))CA48A5LS(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:1U$(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] $ 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 XYE#CNF0P2,XE#'E# SET BYTE9E#CNF08,16P1IE$CNF0P2,P3OE$CTO 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: !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)0LSET 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 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$`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)"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") 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"(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(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 PRESSEDCNF0P2)#Y2P3 #Z(XY)4#R2(Z)1XXYC#CNF0P2,XI#X# SET BYTEj#CNF08,16P1z$CNF0P2,P3$L#CNF08,16P1$CNF0P2,P3$* %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)        0DD(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 @ `%(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| 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(OT0qI17"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 APPLT37T54)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):JESOFT, 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 CARDT 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:CBER,OCTOBER,NOVEMBER,DECEMBER[}MONDAY,TUESDAY,WEDNESDAY,THURSDAY,FRIDAY,SATURDAY,SUNDAY JRSDAY,FRIDAY,SATURDAY,SUNDAY 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.DD(lD"8~141593.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$ $D@"(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):3 @@;: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     :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)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,15!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$ 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 :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(ZRESET AND REBOOT THE SETUP DISK.".O$:980Cp LINE COLLECTORQzL$"":L0aA$:A(A$)mA13ı|A86080L0616062006020A246120L0602062006090A32LLNG6160LL1L$L$A$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 A$;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 COFOLLOWING 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);"." ]NTINUE **";:O$:#d GET UC CHAR3nO$:O(O$)TxO97O112OO32:O$(O)ZcXDC0vbI17:DD(I)1lJ02vX(49152256I5)Y(49152256I7)X3DD(I)0Y60DD(I)0JDD(I)1DCDC1II( 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:"** TH@ 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:8500ERR0E 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)" ** ı::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)5SAVE 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::      ~ $D !965(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 !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 INC)"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/YR0 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$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:URN FOR VERIFICATION)" LOC06 (13):1915:1703E G$;:1915V LOC100200f LOC0:1990v LOC31700 2035 LOC51700 2090 LOC71700 2145 LOC91700 2190 LOC111700 2230 LOC111700 LINE$(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:(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." O((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"HRHR1$: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):O2 COMPUTE THE DAY6I1YR1900:J1MNTH2SMNTH2I1I11:J1J112DAYDTE(365.25I1)(0.75((I1100)7))(30.6J1)DAYDAY7(DAY7):ADTE10T 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%~`!DDT"~) 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$;:1     z#? !Рɭˠ"Рɭˠ?Р֭ˠР֭ˠǠˠɠ ŠĠŠ  ŠǠ ӠҠ ӠԠҠˠĠӠԠҠРŠҠԮΠ ԮέˠˠŠ" îʰ  íˮʰ  Ю̠Ю̠ Ю͠Ю̠Ю̠  ϠԠԠ+à2ΠР Рɠ]@`x ! Hq CLOCK AND CPS SLOT FINDERM Rq SETS SLOT = CLOCK OR CPS SLOT NUMBERr \q IF NEITHER ARE FOUND SLOT = 0 bq USES VARIABLES I, X, SLOT, CPS fq29100:SLOT029070 pqCPS0 zq29200 q qCPS1 qX12,0:29100:X12,(X7) q H((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 qSLOT0 qI17' qX16384256IT q(X234)8(X236)4(X238)2SLOTI[ qI| qSLOT0ı: DIDN'T FIND CPS qX16384240(256SLOT):X8,0:X,192SLOT q r r APPLE CLOCK SLOT FINDER r rI17 $rX(12289): TUROGRAMS" P6 U"SETUP - CPS CONFIGURATION PROGRAM"b d"ANALOG CLOCK II - CLOCK DEMO PROGRAM" n"CPS LISTER - APPLESOFT PROGRAM LISTER" RN OFF ROMS .rX16384I25619P3r(X)3(X)177(X)236(X)4429270ZLrXX2Qr(X)248(X)253(X)7(X)104SLOTIVrI`rX(12289): KILL ALL ROMSjr    @   $ 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:"PRESSD;Q ANY KEY TO STOP"> 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|8EP""; hP$:P$R$P$C$ė: rP8);" ";(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$"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$;"9qIqSLOT0ıBqX(192SLOT)256240:X8,0:X,192SLOTHqPR#";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,`x3)" 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 I@&c|D@I30: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$:54D@ $D !$;"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 PRINT     $1$P 膸 ": ,i  4 }LuH0h A$ e ,Lt 3 LL Ȫ*ȱ_ȱ{ȱȅ| L.LUL=`?EXTRA IGNORED ?REENTER   e i` " 3 j )` )`ʠ$hh eL$p "tpM?E0<=Ѕ 8ɀA N4O0Ťș98:I8xІș Нƹ`ghȥQћ)J KM6a()GP(a()GP(Ka(Ԡ۠ǠԠà)GPa(̠)GP(0a()M(ca(ԠŠҬî)ca( Pћ `gȑggiihij ,stopijklmn KURhhz`gihi` ,   ,Ђ hhPQPQD Z ȱȱQP- % ) _$! $ȱȱж _LȠ٠)2ca(̠Ӡ)9<de de,dedeLdede)-FdBedCed>e.?Lrd?e.?Mr;Pd<e8.?rrd=e.?r8.?r0rMqg7+++)))+*8*G*++..a/g//W枱`8Є .0 _ .0 _ _ И H e ihh eHiHvHuH  m j %^_L# ! "  j y# HHH ZvyzW4ȱuȱve$v# _uv % Z *Lb-逐//m/s*u*y*}**U*l\****+++h*G?J"loz qiH#$#  &'8!'''1(([=Q}yy{x!{_"}&PWFQ&dgENFONEXDATINPUDEDIREAGTEXPRINCALPLOHLIVLIHGRHGHCOLORHPLODRAXDRAHTAHOMRO@ HHLLH:L8gh}~`Ƀ` S $L*?`gh<=ij>?`v(Le lL7 HHTSCALESHLOATRACNOTRACNORMAINVERSFLASCOLORPOVTAHIMEMLOMEMONERRESUMRECALSTORSPEEDLEGOTRUIRESTORŦGOSURETURRESTOOWAILOASAVDEPOKPRINCONLISCLEAGENETABTFSPCTHEANOSTEЫANOҾSGINABUSFRSCRNPDPOSQRNLOEXvHuHH @L  vQ 8egh ` e ɰ ,ZL LhhB;uhvhh e`:,  "hhh` ~ ɫ   L@L* HɰɫЉơhL, ,h`PQ/ Q^ԥP &^ &^ePPCOSITAATPEELESTRVAASCHRLEFTRIGHTMIDNEXT WITHOUT FOSYNTARETURN WITHOUT GOSUOUT OF DATILLEGAL QUANTITOVERFLOOUT OF MEMORUNDEF'D STATEMENBAD SUBSCRIPREDIM'D ARRADIVISION BY ZERILLEGAL DIRECTYPE MISMATCSTRING TOO LONFORMULA TOO COMP^eQQP&QPe PQ L  HH ~h* ph i# ȥ`L#hpoj iL   ,ȱȱ` @ #(:5,;F ~$0 +% L _I`$ #i)$ )L(ʊ$LECAN'T CONTINUUNDEF'D FUNCTIO ERROR IN BREAKɁ! i` mn8囅^圪#8^Ɨ8^ƕƗƕ` i65^^.`p(o"H H {h0hhpo`M$L*  ]` H _h P L Z  ^ _ LG ,? ɠ )H h`0{|uvLh$L* =yz` @ `" ;  @L ] , , Le ]L, }~,  $P )0 ]  =v %  . F v Y Lij  Y  D_i^aeii`jij圪8iae^_^`_a8stopiejȄ PQmnij egh^_^ ijL< ȱ^Șe^^_iȑ^^_Ң                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=-Ŝ䛐^_e^^__`)Jeiop ȥ敥ȑLHH c ohhqL      !LHȱȱh^_ H^qheqqr` o^_ ,^Hȱ^ȱ^h(po Heooph^_`TХHHl^h#d mhJhhhhhhE` LA$ vd.U"i L48,LLMҐL  ~),(,,ѸLL hhL ` ȱLL" ) q L H ϐ  ~  ohH SRS` H hhhL! ьHH  hhe^^_ L! ILW )   ʊH񌰸Iš hhhhhhhHH` L ` ^LL j L LE ^e^`_a`H` A$HH hHLB h Lm ,L p % #LƉ  80 ў*%L#  L   `  vL  v v$%0Щh`` j I Lɑ #PQ`PHQH IPhQhPL =P` =  CPE%`[&L !IEL < !LJ#8$Ii0ǨV $W8Ie J 8(L$0pijlk"ћћliA[8`hH`klmniȅ ȅklȥȑȑȑȑȑiȅ` ieȅ` j0 ɐ  #~L#GHHHHH i `eeeeeL i&&&&8坰IiBfffff`IIIIII `EL ai0vvvvvj`^Vy dv88; 5454hhhHH ,҄ hh)klnm?Łћȱeȱeעk,5L x8` ћLD*L  ȥʆȑ $PhihiȑȊ ^e]eR mn殤ƕƮ敀1r y#LH$! )! ]" ! ! S'.! h $3! !L! "bcde ! ! ! ! !L"L J eeededcecbebfbfcfdfefJ`^_^^^^E ^`e0,iLI `I0hhLE L8m因n圑bȱhhћȊћLL ȥ e^eʅʥʆd ee`^de *& edeeƙ`  {8ompnL#$8vС,L :    m  HHH Z#i ` Z#G" "L`" !v i#8坅 "Ğğ Ġġ* e24(&&&0⨥塅堅埅垅L"@ (L"L bcdeL% ^_^^^^ ^`, i#^_^HH L   Lm :HH  mhhȱ𙅄ȱH "#HHȱHH jhh Lhhhhȑhȑhȑhȑ` m /hh I`" ȱ "e膮  R^L ^^ %^^`` i#` L *` y#I*L F``a`Ȫı`E0!` Şȱ`şȱ`Š ȩŬ`(IL#J8$  `)F `ɠ #I*SR`FHI8eopnm opqrh`M0 {hЦstopmnU^_R ij^_lk 󅔆nmLY^_^ȱ^ȱ^eȱ^e(ӊ0ȱ^ ie^^__Ŕ ^05ȱ^0ȱ^+ȱ^ȱ^po  # #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"$DDDhH8HӰ hIiHӅхhЅhIi҄f8Ъх a,8e҅ԥձ&E%0Q&&bӰ ,eЅԥePفŴxaI1& ')*& 'JJ) e ʥ0)Je`JJJJӊ)-I-ȄҤѢԆզ8E/8 i:`  Z#[& "pLG "# $ # L#H 8! v! 'hJ I`8;)q4X>Vt~w/z*|cYX ~uƀ1rҠ& v!iP q# ]#Ɉ "" $ i8HeЅԐ ,e҅Ր ,JJJ`JJJJӊ)-I-ȄҤѢԆզ8eЅԐ ,e҅Ր ,JJJ` j IQPHH,   hh`L * .`*U . S,  .L6- ` ` 饴  &נ& i'h "` # v! m'Lv! #Ș殅 v!iȅ ƣ`5Dzh(F y#0ɠ "穝' v!'  % ɠL"#](  Z#b( U" Z# $ g( H 0 I &g( h &l(L eȱe  . ,` &/L. &/L].=?P<Ȅ> sʆ>PHt?QnL tp=hso< LeP>eQ? <=`@ L ʊ( (H hL/$`L-%$`L-%S' # ' ' " Y(L]"HL(IڢIڢ-(h#5ᆥ](IڢʥH &HɁ ! ]"Š( S'hɁ]( hL&` vy{| g|S}dpL}Qz}c0~~D:~L̑湭`: 808`ORXv) z*L  )򊅤TH UR0PQQPIPPIPPPQ)stop0ghgghgh K=< l j IlP L L 0,  0,-`L ),-  0` )͠ӠԠҠ͠ӠԠӠĠԠ͠ƠϠӠĬԠ ƠԽΠ΍Šث Šث˨ث΍ԠҠɠϠؠ(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܅݅ɍƠ˨ثĠ˨ثĠ˨ثΠԠɍԠɍƠԠΠ΍ؠԩŠثŠجԍ΍ߚLLij  `a,  PQ ``aiśj地a`ʈjiL VSL@TL9 /ʅPQ /L / PȱQL /L,U,R@ ,T,SWP z,)`H)&JJ&&h' &' &' f&')@'#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$șȩ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 ) \ۥ$! ک$ȱȱж \L枱`8Єτ ,0 \ ,0 \ \۩ И F eihh eHiHvHuH j gݥ %ׅ^_L ީ  g ޥHHH XإvyzW4ȱuȱv0oeܔٱ0ۏ$1@hnW &tlnrvNjUaE=H jmكدzڕؤi֟H֐# A :dFZyy{{h}PTFNddENFONEXDATINPUDEDIREAGTEXPRINCALe$v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$LPLOHLIVLIHGRHGHCOLORHPLODRAXDRAHTAHOMROTSCALESHLOATRACNOTRACNORMAINVERSFLASCOLORPOVTAHIMEMLOMEMONERRESUMRECALSTORSPEEDLEGOTRUIRESTORŦGOSURETURRESTOOWAILOASAVDEPOKPRINCONLISCLEAGENETABTFSPCTHEANOSTEЄ?`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơANOҾSGINABUSFRSCRNPDPOSQRNLOEXCOSITAATPEELESTRVAASCHRLEFTRIGHTMIDNEXT WITHOUT FOSYNTARETURN WITHOUT GOSUOUT OF DATILLEGAL QUANTITOVERFLOOUT OF MEMORUNDEF'D STATEMENBAD SUBSCRIPREDIM'D ARRADIVISION BY ZERILLEGALhL* ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک DIRECTYPE MISMATCSTRING TOO LONFORMULA TOO COMPLECAN'T CONTINUUNDEF'D FUNCTIO ERROR IN BREAKɁ! i` Ӆmn8囅^圪#8^Ɨ8^ƕƗƕ` i65^^.`p(o"H H \I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅h0hhpo`M$L Z۽`H \h ֩P :ۤv  ڢ .ՆF v YLئij YՄ ֐D_i^aeii`jij圪8iae^_^`_a8stopiejȄ ӥPQmnij e֥gh^ $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER _^ ijL<Ԡȱ^Șe^^_iȑ^^_Ң3 j )` )`ʠ$hh eL$p "tpM?E0<=Ѕυ 8ɀA N4O0Ťș98:I8xІș ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаH Нƹ`ghȥQћ Pћ `֨gȑggiihij ֩*stopijklmn IآURhhHHz`gihi` ,  ,Є hhPQPQD X ȱȱQP- $               8m因n圑bȱhhћȊћLL ȥ e^eʅʥʆd ee`^de *& edeeƙ`  {8ompnL#$8vС,L :    m  HHH͠ˠĠӠԠҍ͠ӠԠˠҠӠԠҍ͠ƠҠŠĠԠ͠ӠӠɬجԬӠ ƠԠΠӠ ΍ӠŠؠ ŠؠˠؠΠԠҠɠϠؠɍƠˠؠĠˠؠĠˠؠΠԠɍԠɍƠԠΠΠ͠ΧԠĠӠؠԩŠؠŠجԍ΍͠͠ŠˠԠҍ͠ҠɠϠؠˠ͠ΠƠHHl^h#d mhJhhhhhhE` LA$ vd.U"i L48,LLMҐL  ~),(,,ѸLL hhL ` ȱLL" ) q L H ϐ  ~  ohHӍؠɠƠˠةĠˠةĠˠةĠˠةΠؠؠƠˠةҠˠةҠˠةҠˠةΠԠɍԠɍHH hHLB h Lm ,L p % #LƉ  80 ў*%L#  L   `  vL  v v$%0Щؠˠ̠̠͠ӍΠ 8(L$0pijlk"ћћliA[8`hH`klmniȅ ȅklȥȑȑȑȑȑiȅ` ieȅ` j0 ɐ  #~L#GHHHHH hhhHH ,҄ hh)klnm?Łћȱeȱeעk,5L x8` ћLD*L  ȥʆȑ $PhihiȑȊ ^e]eR mn殤ƕƮ    (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܅݅^^ %^^`` i#` L *` y#I*L F``a`Ȫı`E0!` Şȱ`şȱ`Š ȩŬ`(IL#J8$  `)F `ɠ #I*͠РŠҍ͠ӠӠĠǠϠРŠ͠ϠԠŠЮؠΠ͍ĤҤ͠ŠϠ̭ĢΠԍ ƠԽΠΠԠĤΠԝ 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=-ЮԠĤĠЮҠɽϠؽԫŠثɍDFTϠԠرŠثʬرԠʺԠɍŠثŠجԫԠĤŠЮ΍$șȩ0LN& % v!% #% # 0"ƙ L"  #i 0 i8.ș0șyc&yb&ya&y`&00ڊIi i/ȄȪ)ƙ.șI)$Ъ0.ȩ+.8嚪-͠ӠԠҠ ƠԽΠ΍Šث Šث˨ث΍ԠҠɠϠؠɍƠ˨ثĠ˨ثĠ˨ثΠԠE/8 i:`  Z#[& "pLG "# $ # L#H 8! v! 'hJ I`8;)q4X>Vt~w/z*|cYX ~uƀ1rҠ& v!iP q# ]#Ɉ "" $ i8HɍԠɍƠԠΠ΍ؠԩŠثŠجԍ΍Ơ˨ΠԠՠԠŠŠ  &נ& i'h "` # v! m'Lv! #Ș殅 v!iȅ ƣ`5Dzh(F y#0ɠ "穝' v!'  % ɠL"#](  Z#b( U" Z# $ g( H 0 I &g( h &l(L S' # ' ' " Y(L]"HL(IڢIڢ-(h#5ᆥ](IڢʥH &HɁ ! ]"Š( S'hɁ]( hL&` vy{| g|S}dpL}Qz}c0~~D:~L̑湭`: 808`ORXv) z*L  )򊅤TH UR0PQQPIPPIPPPQ)stop0ghgghgh K=< l j IlP L L 0,  0,-`L ),-  0` ) Z#i ` Z#G" "L`" !v i#8坅 "Ğğ Ġġ* e24(&&&0⨥塅堅埅垅L"@ (L"L bcdeL% ^_^^^^ ^`, i#^_^   _ŃŰHHHHH@ @  ` hhhhh` re`[ رزōԠҤĠ̤Ơ˨ΠرƠ˨ΠزƠزΠԠΧԠԠҠ͢ƠرĠزΠ̠ԠҤŠҢ eȱe  . ,` &/L. &/L].=?P<Ȅ> sʆ>PHt?QnL tp=hso< LeP>eQ? <=`@ L ʊ( (H hL/$`L-% ]Ӡ]Kc (M6*2a(ӠΠ)<ca(Šɠ)F] P]ŠŠĠUZdededededeHdedededehU_d eHd eرزōԠҤĠ̤Ơ˨ΠرƠ˨ΠزƠزΠԠΧԠԠҠ͢ƠرĠزΠ̠ԠҤŠҢd ed ed ede#dededeUddededededededededeUidededededeJd ed!ed"ed#eUnd$ed%ed&ed'e d(ed)ed*ed+ed,eUsd-ed.ed/ed0ed1ed2ed3ed4ed5eUxd6ed7ehd8ed9ed:ed;ed<ed=ed>e}d?ed@e`7]ŠΠŠϠΠ͠ԠƠ'dAedBedCedDe'dEeidFedGedHe'dIedJedKedLei'dMe dNedOedPe'dQedRedSedTedUedVe`M`.?r$]]ƠŬĠ]2o a(ǠԠϠŠĩ)a(Ġìİ)]ŠԠŠq.?6~?r]ða(Π)]]ϠĠҠΧԠU_Ҁ͠ɊHHHHHU@ @U  ` hhhhh`    p @@ @@"D x~|x~"||~| @~@;   HaDDD8< <D8<" qn8 tn8rr :@ 8p8         L ` ˕  ˕ : <`;9;LS0;`T U0 LVWT.UVmVVWmWW.XةX VJJJJ V) ` 0 `9i0`     ©٠̠蠅ʠPAGE 蠅—ĭӦƠƅؠ𠠀 ŏ ۏ  <ȱL,Ƀɓ, L `MNOE `:  9PLO `:ghRQP<0@A1BD` 9;8$;  ;8J$  Ly = ; `STȱU Y C  SLQ =R 8DDQPH((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 PRR <8 L `8tsEMNO`82LO<`Cɀe8逍C ܔSCD$DiDR0:L L DiDL 8DDL2?QLSC C:P QS LC"PIP`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" N`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$@S C  @]"`.?r$6P,a(ŠĠԠŠ)a(̠Š͠ӠĮ)1Q6MA';a(Π)]Ǡ͠]Ǡ͠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@  ijlk ~󅟆nmLȱȱeȱe(ӊ0ȱ ie枦ş 0FȱAȱ<ȱȱŰ+H8oȑoȥpphei e枥`̄iq imoON@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$@SO QCO R R@ 膢 ȱ " <67 L  8ij v vo>IefD$;"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"SELECT 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::[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)к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)0CFX16(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$$(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. (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,0THEY 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 ~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- 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:2049: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 :"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 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"!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$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);"                                        `"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"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 Y]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)60DD(I)0J(DD(I)1DCDC1/I5?L ASFJVI17U`SLOTIgeX49152256IrjJ02t(X234)8(X236)4(X238)2SLOT0~JSLOT0I99ICNF049152256SLOT240CN8,0:CN,(CN256) X16(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$@ 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:8500ERR(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,00ı::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) ~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*" I05: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)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 :"!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)0THIS 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 6200LU$(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$6090A32LLNG6160(LL15L$L$A$>A$;H6020S(7);]6020m8 BACKSPACEw=LL1BL0L$"":6240LL$(L$,L)`(8);" ";(8);j MK SURE NUMERICE0I1(L$)A((L$,I,1))A48!! ! ! ! ! !!!!!!!!!   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 -" :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:Q=!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 - CATAL5(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:1180O$"P"DO1:1180"O$RT$2000G$:1150IP10:P24:P33:9000YDO0İ9100c1101v ASSIGN SLOTS:10:"** SET SLOT ASSIGNMENTS **"::"CURRENT ASSIGNMENTS:":3)"# ASSIGNMENT";23);"# ASSIGNMENT"3);"- --`P-------";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$200OAD 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$"SETUPO49O55ĺ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."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" p200LOCK" 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:1450' 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(O$"P"SA$(I)"PARALLEL":O3:14506G$:1375JP10:P27:P3SS_O0İ9100:1485i9000P26:O2İ9100:14859000P25:O1İ9100:14859000CN12,(CN7):7000:1200 QUICKIEJ0Ğ:"RESERVED";:::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"" " " " " """""""""