' +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*`AY (CHAR TIMES) (0-9)...."O :" PRESS '";::"X";::"' TO GO TO NEXT PAGE"U! m& IU1UC:IU9IUA+ XZ(I):YZ(I):K$(I);:SUı0 : I0D IIU1:IU6IU9IIU1N IUC3130b X1l XZ(I):YZ(I)XU1:Z$:K(Z$):K("X")380ONTROLLER TYPE: ":"PRINTER SPEED (CHARS PER SEC)......":"INTERRUPT SOURCE SLOT (1-7)........":: 4::"PRINTER CONTROL CHAR PROCESSING":: "PRINTER ACCEPTS FORM FEED? (Y/N)...":"LINE FEEDS AFTER CARRIAGE RETURN?.. ":"RETURN DEL FEATURES "::10::"DISK INFORMATION"::5:"SLOT DRIVE VOLUME " "DISK READ ERROR FILL CHAR..........":"('@' ABORT S PRINTING IF ERROR) :8::"PRINTER INFORMATION"::p "PRINTER SLOT.(1-7).................":"PRINTER COTC K$(U9) = STR$ ( PEEK (YY(U9))): REMINTERRUPT COUNT DIVIDER~ K$(UA)"Y":(YY(UA))K$(UA)"N":FORM FEEDS ACCEPTED? K$(UB)((YY(UB))):LINE FEEDS AFTER CR K$(UC)((YY(UC))):NULLS AFTER CRV ::"DOUBLETIME";::": SELECT HARDWARET  K$(U2)((YY(U2))):DRIVE= K$(U3)((YY(U3))):VOL` K$(U4)((YY(U4))):FILL CHAR K$(U5)((YY(U5))):PRINTER SLOT 402:K$(6)=PRINTER CONTROLLER TYPE K$(U7)(256(YY(U7))):256-MOTRIG=CPS K$(U8)((YY(U8))):INTERRUPT SLT ON"::"PRESS 'N' TO RETURN TO NORMAL "::"PRESS 'X' TO EXIT"H 20u Z$:Z$"T"Z$"N"Z$"X"ĺ(7):2200 Z$"X"8500 Z$"T"ĹBA58,0:2200 Z$"N"ĹBA58,255:2200T  : HARDWARE TABLES  K$(U1)(((YY(U1))16)):SLOU1:IU2:IIUE:2042:SUU0:2000(3E TRANSPARENT HANDLER p:TE(BA58):XP$"OFF":TE0XP$"ON"10:"TRANSPARENT MODE IS ";::XP$:BA37888(40193)1454528: NOT IN PROPER CONDITION @::"PRESS 'T' TO TURN TRANSPARENUU0- 20:8:"ENTER NEW VALUE (IN HEX) ";D Z$:Z$(13)2000j JU217:Z$(CE$,J,U1)Ă:2060Z$;:TE(JU2)16Z$:Z$(13)2000JU217:Z$(CE$,J,U1)Ă:2070Z$:TETEJU2 PM(IUE),TE:CHANGE CHARACTER VALUE"%SU)G(CE$,(ZCL)U2,U1);(CE$,ZCL(ZCL)U2,U1):SUı:HEX DIGITSM23:"PRESS ";::"X";::" TO EXIT THIS MENU "20:8:"WHICH? ";:Z$:K(Z$):Z$"X"2200KU1KU2ĺ(U7);:2050KKU6::K:SUU1:31:IKUE:2042:IIUE::S(U6)"UNKNOWN ":7 SPECIAL CHARACTER PROCESSING :U2:UB:"DOUBLETIME PRINTER":::U5:"SPECIAL CHARACTER DEFINITIONS":I12IU6:U5:I". ";:36,U8:CH$(I);:N(36)28:".";::"$ ":SUıU7:I2122:31Z(PM(I)(U1)(TP):TP(U2)(TPU1):TP,85:TPU1,85:(TP)85(TPU1)85490| TP,170:TPU1,170:(TP)170(TPU1)170490 TP,TP(U1):TPU1,TP(U2):K$(U6)"JBE 6522 ": TP,TP(U1):TPU1,TP(U2):K$(U6)"JBE 6522 ":TP,TP(U1):TPU1,TP(U2):K$ TV224K$(U6)"SUPRTERM":@ TV237K$(U6)"COM.CARD ":a TV250K$(U6)"TIME MACH": TV462K$(U6)"MTN.CLK.": TV218K$(U6)"TRENDCOM ": TV175K$(U6)"SSM AIO ": TV765K$(U6)"ROM WRTR":G TP49282X6(PM(PL)):TPTV354K$(U6)"PROM.PAR":< TV323K$(U6)"MICROMOD":^ TV359K$(U6)"APP. CENT.":~ TV375K$(U6)"SMARTERM": TV494K$(U6)"VRSACARD": TV501K$(U6)"APP.DISK": TV295K$(U6)"CPS MULTI": TV313K$(U6)"RAMDISK ":RINTER CONTROLLER TYPE B 49400(X6(PM(PL))),0: SET CPS BANK :TP49198(X6(PM(PL))):TV(TP)(TPU1)(TPU2):TV425K$(U6)"PARALLEL ": TV219K$(U6)"GRAPPLER" TV246K$(U6)"APPLE SSC CARD": TV339K$(U6)"CCS 7710 ": "PM(";I;")";:36,U7:XT$(I);" ";X;" ";X(U1);" ";X(U2);" ";X(U3);" ";X(U4):: 1:30:JU7U0U1:R(J)(XX7):XX(R(J)C28):XXU2::: XU0:JU0U7:XX(((R(J)(U2J)))):: XZ(I):YZ(I):(YY(I));::" "::(U7):3170  FIND PI23041::sRD$(13)(4):10000:7910: DOUBLETIME CONFIGURE (C) 1981 BY DAN FISCHER AND MORGAN CAFFREY:33,33:15:IU040:XPM(I):X(U1)(X4096):X(U2)((X(X(U1)4096))X6):X(U3)((X((XX6)X6))CL):X(U4)(X((XCL)CL))R "!'BA37888(40193)1454530v'TE$"DOUBLETIME CODE OUT OF POSITION":BA37888TE$"APPLICATION PROGRAM LOADED"'20:U1:TE$:"NO ALTERATION ALLOWED!"(7)::"REBOOT";::" TO MAKE CHANGES":"PRESS ANY KEY TO CONTINUE ";:Z$:8500(20:10:"LOADER O&:2:10:"DOUBLETIME PRINTER":5:8::"INTERRUPT MODULE LOADER":s&I07:IM$(I)"EXPANSION"4524&IU7:U5:IU1;". ";:36,U8:IM$(I):SUı&'I((IM49)CL):IU7:U7::">"::23:"PRESS ";::"X";::" TO GO BACK TO MENUPM(256(PM256)): DESTINATIONr% 10010:I(I)ĹPM22,J(I):PM18,S0(I):DO MEMORY MOVE THROUGH SPECIAL ROUTINE% :5:"NEW PRINTER MODULE LOADED ":::PM$(((PM18)16)):::"PRESS ANY KEY TO CONTINUE":Z$:4000%8500& INTERRUPT MODULE 64I):I(I)SXBM128v$(SX18)255ė:5:"NO CODE IMPLEMENTED YET"::"PRESS ANY KEY TO CONTINUE ";:Z$:Z$:4000$TE256:A1U1,(SXTE):A1,SXTE(SXTE):REM$A2U1,((SX63)TE):A2,SX63TE((SX63)TE): ENDLOC % A4U1,(PM256):A4,(Z$):Z$"X"85001#Z$"A"Z$"P"ĺ(7);:4030b#I(Z$)65:PM$(I)"EXPANSION"ĺ(U7);:4030#I(Z$)65:SU1::4015::20:10:SU0:"OK? (Y) ";:Z$#Z$"Y"SUU1:4015:SU0:4030# GOT A GOOD MODULE TO MOVE#AT BM+(64*I)$SXBM(ION"40209"IU7:U5:(I65)".";:36,U8:PM$(I):SUı":I((PM18)16):IU7:U7::">"::23:"PRESS ";::"X";::" TO RETURN TO MENU""BA37888(40193)1454528:OUT OF POSITION CODE OR APPLICATION LOADED#20:10:"WHICH? ";:Z$:K0!%Z$"Y"R(U2)U1+!&Z$"N"R(U2)U0;!'7:BA33,X\!(SUU1:3840:" ":SUU0:3875h!):8500o!;:}!::8500! PRINTER MODULE LOADER !:3:10:"DOUBLETIME PRINTER"::5:9:"PRINTER MODULE LOADER"::7 "I015:PM$(I)"EXPANS::3875 Z$"X"ĝ:8500: Z$"1"R(U7)U0:R(U6)U0X Z$"2"R(U7)U0:R(U6)U1v Z$"3"R(U7)U1:R(U6)U1 :TU5:" " 7:BA33,X:3855:REPACK BITS #:19:20:Z$:Z$"Y"Z$"N"Z$(UD)Z$"X"3875!$Z$(13)Z$"X"ĝ:850 ";::R(U2)U1ĺ"YES"+R(U2)ĺ"NO";:7:SUıTT0:R(U6)T1:TTR(U7):22:"PRESS ";::"X";::" TO RETURN TO MAIN MENU"U5T:U1::">":UA:19:Z$:Z$"X"Z$(13)Z$"1"Z$"3"ĺ(U7):3858 Z$(UD)ĺ::U5T:">"):6:UNPACK BITSe5:6:"1. IGNORE HIGH BIT":6:"2. SET HIGH BIT = 0":6:"3. SET HIGH BIT = 1"{UA:UC:"WHICH "UF:Z$"ENDING PROCEDURE":(40(Z$))U2:Z$:17:U3:"START OVER WHEN ALL FILES HAVE BEEN"::U3:"PRINTED? (Y/N) BELL TIMERVKU0KU99/`YY(I),K:3140OtK$(UA)"Y"ĹYY(I),U0:3140o~K$(UA)"N"ĹYY(I),U9:3140y3170KK2559YY(I),K:3140 HIGH BIT AND ENDINGS ::Z$"HIGH BIT HANDLING":(40(Z$))U2U1:Z$:X(BASE33:K$(6):3140$ "ERROR AT 3580":3K0K79G$PM(PB),K:31408K17K255K$(U7)" ":SUU1:3115:SU0:(U7);:3170=YY(I),256K:MOTRIG=256-CPS>TEYY(I)U2 BX(U1(K.00000095)):TE,(X256):TEU1,X(256(TE)):3140:SET JOHNI),K:TEI:IU6:402:SUU1::3115:J11200:::3115:SUU0:ITE:3140Wf KU1KU29jp YY(I),K:3140{z K133K133 KU0ĺ(U7):3170 KU0K2549 YY(I),K:3140 YY(I),(K$(4)):3140 K1K79  YY(I),K:400:XZ(6):YZ(6)I3400,3430,3460,3520,3400,3140,3640,3460,3455,3700,3670,3670U "ERROR AT 3300":k IIU1:IU0IUC IU6IU9IIU1 3170H KU1KU7IU19M KU1KU7I1ĢXZ(I):YZ(I):(YY(I))16;(U7):3170R I1ĹYY(I),K16:3140F\ YY($:K(Z$):KKCĝ:" ";::3290H KKBXXU1:YZ(I)XU1:XU13290p KKSKKFXXU1:YZ(I)XU1:3230 IU4IUA(K48K57)ĺ(7);:3240 K96K31X$(K$(I),XU1)Z$(K$(I),XU1):Z$;:XXU1:K$(I)X$:3230 3230> K(K$(I)):0v KKB3310 KKF3140. K133140E KKSĺ(U7):3180o IU4IUA(K48K57)ĺ(7);:3180 IUAZ$"Y"Z$"N"ĺ(7);:3180 K96K31K$(I)Z$:XZ(I):YZ(I)XU1:Z$;:XXU1:YZ(I)U1:3230 3180 XKL(I)3290  Z:B%(I)::I16:C%(I)I2::176,175,173,196,170: 7ESB0:ST1:SR2:DS3:DR4:DV5: BASE/START/STOP/RESTART/DISKSLOT/DRIVE/VOLUME7FDE6:PD7:PS8:PCU9:ERROR/DATA LINES/SPACELINES/LFAFTERCR8GPF10:PL11:PB12:PT13:MT14:FORMFEED=0/PRINTER SL33(64064)255ė:8:6:"INSTALL DOUBLETIME ROM":(4);"FP"6CU00:U11:U22:U33:U44:U55:U66:U77:U88:U99:UA10:UB11:UC12:UD13:UE14:UF15:T110:T2100:T31000:T410000:T5100000:T61000000:C28128:X7127:X5255:X625657DB%(U5),C%(U6):I15 510:"* C 1982 *"510:"* BY DAN FISCHER *":10:"* AND *":10:"* MORGAN CAFFREY *":10:"* *":10:"********************"::5SXı5:20:12:">";::" SETTING UP ";::"<":<6B(64064)113:"*** ABORT ***":12:9:"USE DOUBLETIME LOADER":13:"TO INITIALIZE.":5SU0:5:10:"********************":10:"* *":10:"* DOUBLETIME *":10:"* CONFIGURE *":10:"* MODULE *":10:"* *"PM(T8),T7(2):40076,X1:40077,X2:40078,X3:T7(U3)U0ČPM(SR):RESTORE ACTIVE TRACK/SECTOR INFO AND RESTARTw385003 INTRO SCREEN 3OO(2):OO(0)(43626):OO(1)(43624):OO(2)(43622):ENTRYSLOT/DRIVE/VOLUMEL420000::FLĉ::(40193)145(PM(SF)):T7(3)ČPM(ST):IF ACTIVE THEN STOPr2lPM(T7),0:PM(T8),0:ZERO TRACK/SECTOR INFORMATION BEFORE SAVING2qX1(40076):X2(40077):X3(40078):40076,76:40077,88:40078,255m3vRD$;"BSAVE DOUBLETIME PRINTER,A"BASE",L$8FB,D";DD$:PM(T7),T7(1):201e RETURN TO MAIN MENU +1f::8500U1X SAVE DOUBLETIME PRINTER OBJ MODULE 1YBA37888(40193)145ė:(UC);:45281Z" ARE YOU SURE??? ";:Z$:Z$"Y"85001]" DRIVE 1 OR 2 ";:DD$:DD$-2bT7(1)(PM(T7)):T7(2)(PM(T8)):T7(3)0wXU3(IU2IU5)5250%0x5200<0K(TE$):H$(I)TE$0KS1%(U1,I)KS1%(U2,I)ĢHV(I):37:(PM(S1%(U0,I)));::" ";::(U7):51200 PM(X)=TABLE ADDRESS / S1%(U0,1-6) = ARRAY POINTER0PM(S1%(U0,I)),K:51100IIU1:IU0IU6151/ZKKB51200/dKKFXXU1:HH(I)XU1:5190H/nZ$"1"Z$"0"5200c/pZ$;:XXU1:XU35250/sTE$TE$Z$:(TE$)S1%(U1,I)ĢHV(I):HH(I):(PM(S1%(U0,I)));::" "(U7)::5120/tXXU1:XU35250/uXU3(IU2IU5)52500vIU3IU45250. KKB5270 .Z$(32)51303.Z$(13)5110T.Z$"9"Z$"0"ĺ(U7);:5130c.KKF5110l.7Z$;.<TE$TE$Z$:(TE$)S1%(U1,I)5120.AIU3IU45250.PZ$:K(Z$):KKCĝ:" "::5250.UZ$" "5200.WZ$"9"Z$"0"ĺ(U7);:5200 '''''''''"-21:"PRESS '";::"X";::"' TO EXIT TO MAIN MENU":::"<--";::" GOES UP '";::"RETURN";::"' GOES DOWN"-:IU1U6:HV(I):37:H$(I):-I0-IIU1:IU7IU1-XU0:TE$""- HV(I):HH(I)X:Z$:K(Z$):Z$"X"5990 RINTING DEFAULTS:"C,16:3:"COPIES..................(1-9)....."t,17:3:"PRIORITY................(1-9).....",18:3:"MARGIN..................(1-99)....",19:3:"LINE LENGTH.............(1-255)..." -20:"'''''''''''''''''''''''''''''''ON DEFAULTS K+:10:"DOUBLETIME PRINTER":3:10:"PAGE CONFIGURATION"+U6:"''''''''''''''''''''''''''''''''''''''''"+U9:"DATA LINES PER PAGE................."++11:"BLANK LINES":"(END OF PAGE SEPARATION)............",UE:"P;:Z$:Z$:4500** PAGE CONFIGURATION >*: PAGE CONFIG_* READ PRESENT TABLE VALUES *H$(U1)((PM(PD))):H$(U2)((PM(PS))):H$(U3)((PM(FC)))::H$(U4)((PM(FP)))*H$(U5)((PM(FM))):H$(U6)((PM(FL))) + DISPLAY PAGE CONFIGURATIU1,(SXX6):A1,SXX6(SXX6):FROMa)A2U1,((SX63)X6):A2,SX63X6((SX63)X6):ENDLOC)A4U1,(IMX6):A4,IMX6(IMX6):DESTINATION*10010::U5:"NEW INTERRUPT MODULE LOADED":::IM$(((IM49)CL)):::"PRESS ANY KEY TO CONTINUE "WHICH? ";:Z$:Z$"X"8500>(K(Z$):KU1KU8ĺ(7);:4530j(IKU1:IM$(I)"EXPANSION"ĺ(7);:4530(SUU1::IKU1:4522:SU0::20:10:"OK? (Y) ";:Z$:Z$"Y"4550(SUU1:4522:SU0:4530(SXBM1024(I64):UP TO INTERRUPT TABLE%)A1ROWS)":"ACCEPT WITH 'RETURN'3UN$Q$(G):NIQP(G)FVNIĭDX1490lZQT(G)1271920:CHECK IF LOCKED d11:REMOVE PREVIOUS MARKINGS N$(N$,(NSU1)):SUFLU1:(7):SUĢUBGO:U9::N$;::30(N$));(7);SUı,DXN1$"":O:U9::Q$(G);30(Q$(G))):GGU2:GOGOU2:G(RNGE)U1ĂG:1276fJGRNGEULU2:GOULU2:G:1276pL1270P7::U8:"COPY= PRIORITY= MARGIN= LENGTH= "Q:U8:U6:DC;:17:DP;:X7:DM;:37:DL:RU5:"MOVE CURSOR WITH <-- & --> (AR:SCRSCR2:SCR0ĂSCR:1215?$GVGM1215:BACK TO SCREEN 1Q(GV(GE)1360r)GV("D")QP(G)DXU1:1365*GV7125:GLOBAL-GVGXĝ::GRNGEUL:G:SCR8:SCR:85002(U7);:1290<UBGO:U9::Q$(G);30(Q$(G))):G:1276CFUBG:U9::Q$(G);::30(Q$(G)))@  GET OPERATOR INSTRUCTIONSS 3:NIU0:DXU0zGS,U0:GVGVC28:GVKCGVKF1340 EVALUATE KEYSTROKE GVGMSCRSCRFS:1216GVKB1350(GVGP)(GV59)ĝ:SCR:1215:PLUS SIGN TEST#GVGMĝRNGE(ULU1))GTQT(G)<FL$(GTC7);:GTC7GTGTC28" ";QF$(GT);(BK$,U4((QL(G))));QL(G);" ";Q$(G);31(Q$(G))):G:958 DONE DISPLAYING ONE SET 5:SUU1:1203:SUU0GOU1:G(RNGE)(RNGE(ULU1)):GOGOU1UBGOSCREEN) SET SCREEN DISPLAY COUNTER 7SCR0FSRNGESCRUCU1:ULUC:RNGEULCEULCERNGEU1:RNGE=STARTING NUMBER/RNGE+UL=LAST10:15:"FILES: ";RNGE;" TO "RNGE(ULU1)" SHOWN " NOW INDEX FOR ITEMS IN ONE SCREEN G(RNGE)(-":200:SUıCECEU1:U3::"SELECT FILE ";::24:CE;" VALID FILES ":5:" USE 'RETURN' OR 'ARROW KEYS' ":" TO MOVE WHITE FILE MARKER "200SUı DETERMINE # OF SCREENS FS(CEUC):FSCTCE:SINGLE :Z$:8500!IIU1:I1061156Q$(U1)"* END"ĺ::" NO ELIGIBLE FILES ON THIS DISK ":::" PRESS ANY KEY TO CONTINUE ";:Z$::8500 7:"---------------------------------------" 9:"--------------------------------------CBM(2562):BEBC3:BTBC12:BLBC13:BSBC16:BDBC17:BVBC18? PM$(15),IM$(9),I(15),J(15),S0(15):PMBASE2176:IMBASE217664:I015:S0(I)(I16)3:? PRINTER MODULE TITLES @ PM$(0)"PARALLEL (APPLE, ETC.)":PM$(3)"SYNERGY-CARD PARALLEL":>1,1,3,1,-1,1,3,1,2,1,1,1I>S1%(2,6):XU0U2:I16:S1%(X,I)::p>7,8,26,27,24,25:PM(X)ARRAY INDEX>255,200,9,9,99,255 :HIGHEST PAGE VALUES>1,0,1,1,0,1:LOWEST PAGE VALUES>KC13:KB8:KS32:KF21> A160:A262:A364:A466A?l BBASE OF OBJECT MODULE($5400) L=rH$(20),HV(20),HH(20),HL(20),K$(20),KL(20)=|I16:HV(I)::9,12,16,17,18,19:PAGE CONFIG VTAB LOCS=I120:HH(I)37::HTAB LOCS=I120:HL(I)::2,2,2,3,1,10,0,0,0,0,0,7,2,3,0,0,0,0,0,0=I112:KL(I): CRC<_53,54,55,56,57:MARGIN/LINELENGTH/COPIES/PRIORITY/FILLCHAR<`58,59,62,68,109,110 : TRANS/ACTIVE/SPECBUF/FILENAME/T-S TRACK/T-S SECTOR!"****************************************";:I26:"*";:40:"*";::"****************************************"7F!3:11:"DOUBLETIME PRINTER"::13::"SELECTOR MENU":7G!147H!8:"1. QUEUE PRINT FILES":SUı8J!8:"2. CHECK SYSTEM STATUS$(0)"T":QF$(1)"I":QF$(2)"A":QF$(4)"B":QF$(8)"S":QF$(16)"R":QF$(32)"a":QF$(64)"b"d6 (12);6 QQ$(10):QQ$(1)"DISK READ ERROR":QQ$(2)"DISK WRITE ERROR":QQ$(3)"CHANGED DISKETTE":QQ$(4)"NO FILE TO PROCESS":I510:QQ$(I)"UNKNOWN CODE":I74!"TESTS WILL BE MADE TO SKIP CODE FILES"35|H$(20)5KC13:KB8:KS32:KF21:GK16384:GS16368:GP43:GE69:GX88:GM45:ND685 A160:A262:A364:A4665l BCBM(2562):BEBC3:BTBC6:BLBC7:BSBC10:BDBC11:BVBC125 BK$" 000"X6 QF$(65):QF:SPBA124:SEBA125:P0BA146:MDBA192064hBM204804rQ$(105),QV(105),QH(105),QL(105),QT(105),QP(105),K$(20),KV(20),KH(20),KL(20),FL$(1),SC%(9),LK$(1):FL$(1)"*":FL$(0)" ":LK$(1)"LOCKED"'5sPZ$(1):PZ$(1)"ALL TEXT & BINARY FILES ACCEPTED":PZ$(0)5),C%(6):I15:B%(I)::I16:C%(I)I2::C28128:C7127:X7273JCFBA46:CRBA47:CNBA48:CBBA49:CEBA50:CHBA51:CPBA52:FMBA53:FLBA54:FCBA55:FPBA56:FFBA57:XPBA58:SFBA59:SSBA62:SNBA68:SLBA122:SCBA123)4TT7BA109:T8BA11088:U99:UA10:UB11:UC12:UD13:UE14:UF15:T110:T2100:T31000:T410000:T5100000:T610000002ESBBA:STBA3:SRBA6:DSBA16:DRBA17:DVBA18:DEBA32:PDBA35:PSBA36:PCBA37:PFBA38:PLBA39:PBBA40:PTBA41:MTBA43:CSBA44:CLBA45@3FB%( SETTING UP ";::"<":1@20000:FLĺ"DTP NOT PROPERLY INITIALIZED *** ABORT":" USE DOUBLETIME LOADER ":" TO INITIALIZE.":1B(64064)133(64064)255ė:8:6:"INSTALL DOUBLETIME ROM":(4);"FP"_2CU00:U11:U22:U33:U44:U55:U66:U77:UELECTOR *":10:"* *"010:"* C 1982 *":10:"* BY DAN FISCHER *":10:"* AND *":10:"* MORGAN CAFFREY *"010:"* *":10:"********************":0SXı120::12:">";::" :10:4:"RESTARTING DOUBLETIME PRINTER":SRB/XX1850::8500/OO(2):OO(0)(43626):OO(1)(43624):OO(2)(43622):ENTRY SLOT/DRIVE/VOLUME*0::8:10:"********************":10:"* *":10:"* DOUBLETIME *":10:"* SˠǠҍ笠笠㮩ӠҠƸͮ獠宠ɠ󠨱䩮䬠ԨԠ멮宍àŢč뮍򮠠٠Ġ򍠠宍ĠšΠŠҠàŢĠ墠Ġ堲占ħƸͮӠ٭ĢšԠ٠ĠōΠŠҍŠ􍠠ŠΧԠ͍堲ō͠͠ĮŠ堍Š͠䮠占󢬠àŠӢӬԠԍԠŮΡàŠӠ占Š硍ǠōàŠŠҠŠ䬠堢Р宠Š󠍠Ġ堠򮠍ΠŠҠǠǠō箠̠ԠŠ占Š宍宠Ԡ㍠箠䍠󮠠Ԡ䍠Р䮠Ԡ宍፠嬠砨ΠŠԡΧԠԡԠ㠠Ԡ堍Ԡ̠󠹸Ӯ獠䮠笠Š獠Ԡ͠荠󡍍                               䍠Ůɠŭ堍ɠ宠ɠ䍠󠳮占à宍ŠǍ䮍ŧҠԠɠ塍ҠԠɠ獠宠堢Ԣ堢Ơ占宠㬍Š䬠占䮍àӍ占ԠōҠ占Ԡ箠栍ŠԠ占Πᠨ獠Š獠Š宠宠Ԡ堨ŠҠ宠堠ŠҠŠҠ宍ŠҠŠҢ宍Р砨Ӡ箠𩮍Š䍠塍ĺԠ砭Š䍠䠢Ҡ󠍠䮠獠宠썠ŠŠҍ獠Ԡ٠宠̠獠ΠҍŠҺ퍍ō庠ҠҮԠΠŠҍҍ󠴠󠵠㮠捠ŠҠ荠ŠҮҠōҠĠàŠҍԠ䍠嬠󮍍ŠҍȍЫ̍ӠԠҠԠŠԍŠŠٍǠؠԍؠȍРРϠˠĠŠƠנŠӠЍŠŠŠƠŠŠӠčŠ٠ԍؠЬ٠ԠҠנōѠҠӠšϠԍŠЍūҠōαčȍЫ̍ӠϠˍαЍҠōààūŠ͡Ӡ͡Рơ˽Ϡč͡čԠǠϠԍ±٠ˍҠӍҠơŠĠƠōԠԠƍȍƍȫӠΠ͠Ҡ卍Ԡ٠占øōӬŠŭ嬠ŠŠ󮍠쮠΢荠󍍠쬠Ŭ荠堤ø͠ᠢ墠Ƹ͠宠栢堢占󮍍栭占ŠҠ􍠢Ӣø堤䠤占̭Ů堢Ӣҩ占嬠󮍍ĠŠӍ堨ΩᠠŠΠŠ͍ΠŠ占宠ᠢ墠Š堨󩮍Π宠Š򠍠俍ΠˠŠ˩䮍ᠱ򠱰Ӯ󠠠ؠؠ󍠲䍠ؠͮŠ栍嬍󠱭䠍䍠箍䮍ҠɠٍŠᠢàǍ٠̠ˠˠϠĠĠƠ΍РԠ΍ÿРҍŠοҠβŠϠŠԠ٠ύ٠ˠҠ̠ԍŠˍοР΍Šƿ٠Ԡ̠àǍŠˍƿРƍԠŠˍРŰѠˍԠðРŰѠˍԠðˠӠŠĬנϠԍˠΠԠ΍Ҡ٠̠ˠՍРԿѠҍðΠΠ͍ŰРѠҍðŰРѠҠԠōР±ϠϠԠŠƠԍԠϠ٠ͭĠǍРŠ Š̠ҠύҠӍӠҡҍҠӍҠŰӠŠŠŠ΍ȠӠϠŠĠčĠΠŠ̠ҍΡŰĠԠŠŠ٠Ơ٠ǠōĠؠؠŠˠ̍ӠϠԠ̠ϠǠ̠ԠƠčĿōŠĿϠˠƠέύIJֲѠĿƠϠΧԠčЫ΍ЍԠҍРΠŠԠΠӍŠҠΠōŠčҡҠҡŠҠĠۍҠӍӠϠԠūҍ԰ҠŰѠҡӍҠԠȠ̠ҍˠҠϠĠƠΠŠƠǠӍҿ٠ЫҠԠԠ΍٠Р٠٠ЫΠĠŠŠԿѠ԰ԠŰ٠͠ΠĠŠſѠčàĠƠӠΠ͠ΠҍӠϠˍſҠĿ̠ԠĿѠΠϠԍЫΠŠҠ̠ƠҠԍΠРҠ΍ɠΡϬӠӠҠҍŠȠԍҠҍҠРŠҍҠԠōҠōЍŠſƠԠϠΠŠӍֱ̡ԠǠԠˍЫǍčȍҠŰЫԠԠЫǠҠŠҠ΍ĠԠϠӠ͠ӍȠԠҠҠǠҍϠǠٍŠˠŠҠӠԠč̫ЍӠŠŠԠҠέӍРԠŠˍҠӍĠ٠РԠŠҠȠˍ٠ЫōƬ٠ŠǠŠҠŠ͍Ы΍ҠӠŠ̠ҠԠĠ֍Ġԍ̲РŠȠōҠōŠؠƠȠΠנΠ؍ҠàԠĠƠϠԍ͠٠РŠȠҍààЍѠčĠЫΠҠƠǠӍӠ̠ŠōӠؠˍЍѠǠӍ͠ƠŠנōРΠŠƠנōҠōͲ̲ĠԠҠĠŠҠōȍЫ̍ӠԠҠú:C967:I02:C(I3),76::CC1:E(J256):I02:C(I3),0(I3):C(I3)1,E: "START = "C1:"STOP = "C13:"RESTART = "C16A T(0)130:T(1)63:T(2)56:T(3)166:T(4)111:A40193:C76:B256((A)3):JBA1256:I04:DJ(3I):((D)C(D1)T(I))I4:I:J: :"START = "J:"STOP = "J3:"RESTART = "J6 :"PATCH PAGE 3 JUMPS IN? (Y/N) ";:Z$Z$"Y"ĀT   )`LLLLLL LLLLXLi JJJJ `)`LLLLLXLꍬ 0`0``LLLLLXLÅi 0`)I`LLLLLLLLLLLLLLLLLXLsi ȑȑ`I)``LLLLLXL i 0`I``LLLLLLm' 0`)@`LLLLLXL#i 10`L)`L``LÜLX3` ꍌLLLLLLfJDuZZ1:"PRINTER MODULES ARE LOCATED"::" FROM $";:29990:" TO $";:ZZ1023:29990::::JNu" INTERRUPT MODULES ARE LOCATED "::" FROM $";:ZZ1:29990:" TO $";:ZZ511:29990::LLLLLXLm' 0`0: I4N XYZZSI&uZAZ:X14:ZZ(ZA16):Q(X)ZA(16ZZ):ZAZZ:Q(X)9Q(X)Q(X)7~I+uQ(X)Q(X)48::X411:(Q(X));::I0u:X240(121)((122)256):ZXX100:(Z)0Ă:"OOPS! MODULES NOT FOUND":J:u(Z1)76Ă:"OOPS!! MODULES NOT FOUND":)256:EE70:: MOVE PRINTER & INTERRUPT MODS`H'EE12::SET UP MONITOR MOVE Y-REG & DO MOVEH NFL0:E(978)2561:A((E)3)256:C76:JAE1256:I04:DJ(3I):(D)CI4:I:J:FL1:H"NI:(J15)1(J25)0ĂJ:FL1:I%NBASEJ:JE1:J:SUU1:V8520,8524,8526,8528,8530,8531,8532,8536:SUU0:8540lGf!V3000,5000,4000,4500,7001,2000,8575,8570|Gp!(7):8540Gz!SX1:7911::" OPERATOR SELECTED TO END":G!:(4);"RUN SELECTOR,S"OO(0)",D"OO(1)",V"OO(2)G%L.H'EE(175)(176LECTOR'":SUı'FX!U3:"8. EXIT":SUı[F\!23:10:"WHICH? ";:AN$:AN$;:AN$"X"AN$"8"F]!V(AN$):VU1VU8ĺ(U7);:8540F^!UCV::SUU1:V8520,8524,8526,8528,8530,8531,8532,8536:SUU0:F`!23:10:"OK? (Y) ";:Z$:10:38:=Gb!Z$"Y"ĢUCVSUı+EL!U3:"2. PAGE CONFIGURATION":SUıUEN!U3:"3. SELECT PRINTER MODULE":SUıEP!U3:"4. SELECT INTERRUPT MODULE ":SUıER!U3:"5. SAVE CHANGES TO DOUBLETIME PRINTER":SUıES!U3:"6. SPECIAL CHARACTER PROCESSING":SUıFT!U3:"7. RUN 'SEREEN D4!:: MAIN MENU D9!"***************************************":U7:"***************************************":U2:IU1U6:"*";:39:"*":D>!U3:UB:"DOUBLETIME PRINTER"::UB::"CONFIGURATION MENU"::UDEH!U3:"1. HARDWARE FEATURES":REEN TABLE LOCS4C 3,4,5,28,11,0,14,12,40,10,9,23 mC SPECIAL INT COUNTER PROC (CONTENTS+1=DIVIDER) YY(9)C XZ(UC),YZ(UC):IU1UC:XZ(I)::5,5,5,6,11,12,13,14,15,19,20,21C IU1UC:YZ(I)::6,20,36,36,36,25,36,36,36,36,36,36D3! MAIN MENU SCLUS":IM$(4)"MOUNTAIN CLOCK":IM$(5)"VERSACARD CLOCK":IM$(6)"SYNERGY CARD INT":IM$(7)"APPLE SUPER SERIAL CARD"B BK$" 000"B CH$(2):I12:CH$(I)::"END OF FILE",STOP," 0123456789ABCDEF"B CE$C YY(UC):IU1UC:A:YY(I)PM(A)::HARDWARE SCx Xʽ8 >?8锅<=B0C ,(`(!0!0&00 0ȱ0m 00 "0L0 0`A 0q? " 0i#  0i# L0"i# L*1@i000 0ȱ0m 0 "00Ln10` 18:5::" CINCH ERROR ";(EK);"ENCOUNTERED"::" PRESS ANY KEY TO CONTINUE":AN$:10b' XYZZL"0LZ0Lx0`0@`0 0 `0hh` `i@BC90<=Y0>? ,` 000 000@00 "0,2:DK:10o( :10:11:"ARE YOU SURE":12:10:"THAT YOU WANT":14:5:" TO CINCH THE CATALOG? ";AN$:16:102 (AN$,1)"Y"10< :"CINCHING CATALOG"::CI:(EK)0Ģ18:10:" CINCH COMPLETE! ":20:10:(CC);" FILES CINCHED":I12250::10WF VALID CATALOG ENTRY INTO ARRAY 5BE:Q$(I)CE$""zQT(I)(BT):QL(I)(BL)(256(BLU1)):QP(I)LP%((LP%(CE$)))(CE$,U1)"*"Q$(I)"* END":CEI:I105:FIND LAST CATALOG ENTRY (CE$,U1)"/"ĺ"DISK I/O ERROR":"HIT ANY KEY TO CONTINUE";T FILE TYPESZ|7:"PERFORM 'TEXT-FILE' TESTS?":" (SCANS PAST CODE FILES) ";:"Y";(8);}21176,15:21183,240:Z$:Z$:Z(Z$"N")::PZ$(Z):ZĹ21176,128:21183,128: DISABLE TESTS IF "N" ~:::U2:27:UE):CE106:BCI1  GET ONE$):KKC1141.jK(Z$):KK(10(BV)):BV,K8t1010u::4:"ENABLE APPLESOFT? ";::"N"::4:19:Z$:Z$:Z$"Y"ĺ:"NO APPLESOFT FILES WILL BE SELECTED":21025,123:1148v:"APPLESOFT FILES WILL BE ALLOWED": w21025,121:ENABLE APPLESOF080$KKB1010:)K(Z$):KU0KU3ĺZ$;:BD,K:1080D.1050g8U2:22:Z$:K(Z$):KKC1141v=KKB1050BKKS1010LZ$;" ";:BV,(Z$):21:Z$:Z$;:K(Z$):KKC1141VKKB1080 `K(Z$):KK(10(BV)):BV,K:22:Z$:Z$;:K(ZT TO ACCEPT"4DC(FC):DP(FP):DM(FM):DL(FL)U2:U6::(BS)16;:UF:(BD);:22:(BV);:U2:U6:Z$:K(Z$):KKC1141KKS1050:KKB1080K(Z$):KU7KU11010Z$;:BS,K16U2:UF:Z$:K(Z$):KKC1141KKS1 MARGIN= LENGTH= "7 DISPLAY QUEUEING SCREEN 8:1:"+/- PG : ENTER : DEL : GLOBAL : EXIT:";::1:"+";:3:"-";:10:"E";:18:"D";:24:"G";:34:"X";:: (UC);::34,8:7:"DOUBLETIME QUEUE ASSISTANT":"SLOT DRIVE VOL :RETER TO ACTUAL LOCATION(IFLQP(G)U0.K6c kdNINI1:NI(N$)NR1::DECODE OLD DTP PARAMS nNC$(N$,NI,U1):NC(NC$):NCC28NCNCC28sNC176NC185NRU2:vIU1U5:B%(I)NCĂwNRC%(I):7::U8:"COPY= PRIORITY=SUU2:N$Q$(G):NIQP(G):11::STRIP OFF MARKERF41902: AND RENAMEY5QP(G)U0:SUU0`7G<SUU0:1203:ALL DONE SO SHOW NEW NAMESF ARBITRACTEGN$Q$(G):FLU0:SUU1:NIQP(G)U1:11: GO FIND IF SLASH IS "/D"HFLQP(G)NSU1: SET POIN: GET FILE NAME AND SET SUB FLAG8'1902:DO RENAMINGC(G:60d* REMOVE ALL QUEUE MARKERS -U6:U1::"REMOVING ";::"/D---/--"::GU1CE.6:8:Q$(G);:32::LK$(QT(G)C7):/(QP(G))QT(G)C755:SKIP LOCKED AND UNMARKED FILES/1 MARKERS e "U6:U1::"ADDING ";::"/D"::TEG:GU1CE:6:8:Q$(G);:32:255((QT(G)C7)(55)) #LK$(QT(G)C7):255:QP(G)İ71 $QP(G)QT(G)C7(Q$(G))X740:SKIP LOCKED,TOO LONG OR ALREADY MARKED FILES!%QP(G)(Q$(G)):N$Q$(G)"/D":SUU27):8::"A";::"DD/";::"R";::"EMOVE/";::"Q";::"UIT";k Z$:Z$"A"Z$"R"Z$"Q"ĺ(U7);:27| Z$"Q"1910 :8:18:"ARE YOU ";::"SURE";::" (Y/N) ";:A$:A$"Y"A$"N"ĺ(7):29 Z$"R"45 A$"Y"1910 ! ADD QUEUE1( 100:NR1480,11,11,18,11,11,11,11Q 100:NR1480,19,19,12,1480,11,11,11x 100:NR1480,20,20,12,11,11,11,11 100:NR1480,20,20,12,11,11,11,11 1490  GLOBAL HANDLER 5: SCREEN DISPLAY > 5:U5:"GLOBAL ALTERATION MODE"(EUE INFO DECODER 8 100:NR1490,11,11,12,11,11,12,11e NSNI:100:NR1490,11,11,12,11,13,11,11 100:NR1480,14,14,12,14,11,11,11 100:NR1480,15,15,12,15,11,11,11 100:NR1480,16,16,12,16,11,11,11 100:NR1480,17,17,18,11,11,11,1 "::SUıV U8:1:" ":g QT(G)C28ı SU1:5:SU0:5:"FILE LOCKED - UNLOCK IT?(Y/N) ";:Z$::Z$"Y"SUU1:1203:SUU0::1290 N$Q$(G):SUU1:1930:SUU0::UBGO:" ": QUH6 22017CE$"CATALOG ENTRY WILL BE DUMMIED":LP%0:RD$(13)(4):10000:7899:DOUBLETIME SELECTOR (C)1981 BY DAN FISCHER AND MORGAN CAFFREY:33,33:10:GV(GK):GVC283:GET ONE KEYSTROKE IU1U3:IU3:"                ҍР°ŠƠǠѠōԳŠԠԳɠҍРˍҠ٠ҍàҍƩ٠ŠϠ̠Ҡˠؠ̠ˍūԳūԴӠ̠ԍԴРԲР̱؍Աà̲ؠŠӠϠŠӍàҍԱԲà̱ؠΠȠŠӍԲàԴŠРРǍҠԴؠؠŠƠԠǍѠȤƱàԱŠȠōؠԲŠנōҠŠԠҠҍԳūԴūŠǠ͍ؠؠԳؠҠؠŠӍˠ°ԠҠЫ΍ààŠԠԠ٠̠IJֲѠؠӠ΍ŰōӠŠӠŠҠàحϭàҍĠҠӍԱڠƳԲڠƲԳڠưԴڠЫΠŠƠӍIJֲԠԠҠҍЍؠŠԠŠŠǿѠثƠΠРҍؠҍҠӍҠŰРԠҠˍӠԠҠԍԲŠֲč΍ ҠӭРРϠŠ٠ˠƠŠӍӠЫǍЫǍӠŠӠΠҠϠӍԠҠҢβŠֲčààĠ΍ЫΠԠؠĠŠ΍ààРέԍѠԍӠԍŠƠŠŠ̠č͠ŠȍǠҠҡѠ Ӡ΍ԠŠˠέŠǍЍҠӍĠŠǠŠϠ΍Ы΍ŲŠ̠ҠȍààЫҠĠ̠ҠȍàЫΠĠǠӍРРԍàРԠҠˠŠȍĠŠҠƠέĠӠŠȍΠЫ΍ؠōѠԠРǠ͠ĠĠҍؠѠŲРƠϠӠΠ׍ؠÍŠŲƠ̠ԠΠϠԍàЫΠӠōؠōѠРРҠƠӠ͠ҠčҠҡРؠ̍ɠΠРƠԠƠΠӠàЫΠР̠Ơ٠Ы΍ЫōƩ٠ĠȠōÿؠàүԯƯΠǍѠРƠϠΠϠǍӡҠԠǠҠˍРҍѠРƠ٠ΠŠƍРԍѠРƠ٠ΠŠƍΡҠIJŠ٠ĸƩٍР̠ԍƩ٠Ԡ٠ƠԠҠˍРԠҠ٠΍ѠԲРԤԤĤҤŠԲà̠ˠϠӠǠԲЫΠŠΠȍЫؠŠ̠ǠǠϠ؍ōРԠҠ̿ŠвƠҠĠŠōЫ΍ЍҠӍв٠ƍԠ٠ԠϠԠŠҍЩٍРŠԿ٠ŠˍԿРԍŠˍҠԲŠԍ٠ˠ٠àŠƯίүԠǍĠƠРΠȠԍ̠ŠԠҠ؍ؠ̬؍Ѝؠ̬ؠĠŠԍn؍ؠؠŠڲРŭŠӍӠϠˠϠŠҍؠƠĠōƠҠƭčƠҠԭč֠ӠǠǠРՠȠՠЫҠ׍ƫàȠŠƠč٠٠̠ҠȍŠ٠ˍ٠ԠĠӍĠĠŠԠ٠ǠԠٍŠŠύӠؠڲ֬؍٠Р΍٠à٠נōРȠō٠٠ȠŠƠč٠аưàԠϠ̠ҠӠӍƍààנŠƠЍ٠̠ŠРààԭРŠԍŠƠĠōРÍààР׍ԠРנàŠԍàԠàȩȠō٠ÍٍנԠЍРčРҍ٠٠РϠŠРҍ٠٠ԠРŠō٠аư٠٠Рō٠Šύ٠ϠנԵʠЍŠĠ٠ŠҍӠōԠԠؠڱ؍֬؍ؠؠŠڱРɠȿҠӠŠ͠ɍؠ؍ȠōŠōҠҤҠ̍ҠÍҠҤԠҠԤҠԤҠĤŠؠȠؠõŠؠ̠ؠŠҠ΍ōǠҠӍҠҍҠōҠΨҠ̍ҠӍҠҍҠčҠǍҠЍҠӍҠ΍Ҡ΍Ҡ΍ҠˍҠҠèҠ΍ҠԍҠԍҠЍҠҠҠҠҠލҠčҠҍҠҠҠҠ΍ҠԍЍҠ΍ҠԍҠčҠōҠƍҠōҠԍҠԍҠԍҠҍҠԍҠ׍Ҡ¨ҠύҠ΍ĠҠҍҠōҠ̍ҠōҠĽҠԍҠύҠ΍ҠƍҠōҠҠҠ΍Ҡ͍ҠҠōҠԽҠŽҠčҠōҠōҠ̍ҠōҠȍҠҽҠЍҠҠͺҠͺҠҍҠԍҠңҠΣҠ̍ҠԍҠ΍Ҡ΍ҠҲҠҍҠҽҠԍҠ׍Ҡ׍ҠҠ΍ԠҠؠƍƠӠҠؠ̱ؠŸ̲ؠ̠ҠčҠҍҠԍӠҠҠԍҠ̍Ҡ͍Ҡčnz# ƮӮĶ " Үà;ԠϠ   àӠ à2à2  ΠŠ Р Ԡ ΠӠ ! ϠүĠ<  ŠŠҠ ԠР Ԡ ͠Ӡ ŠӠҠĠ !Ӡ"٠ӠҠ8ӠҠ ŠҠ ŠKӠӠҠҠ ԠŠԠŠŠҠ ͠ӠŠҠ  ߅ 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,զ}~, ߅n" TO YOURSELF THAT WITH DOUBLETIME":"YOUR APPLE CAN DO TWO THINGS AT ONCE"|"WITH ";::"NO SPEED PENALTY AT ALL!";::22:" PRESS ANY KEY TO CONTINUE ";:Z$T"]:"IT WILL SORT SOME PLACE NAMES IN ALPHA":"ORDER, BOTH UP AND AND THEN BACKWARDS."::"THIS IS A SLOW, CLUMSY SORT. IT IS VERY":"TIME-CONSUMING."::"THE SORT HAS BEEN 'BUSIED' EVEN MORE,":"JUST TO SHOW ITS PROGRESS."K::"PROVE";::CISCO/RIO DE JANEIRO,HONG KONG,KIEV,WARSAW_ALAMAGORDO,SAN JUAN CAPISTRANO,SOUTH BRONX WASHINGTON D.C.,TALAHASSEEAPPOMATTOX,CH'ING-HAI,VLADIVOSTOK,QUINTANA ROO:(12);:"THIS IS A ";::"DOUBLETIME";::" SPEED DEMONSTARTIONPOPT1:POALL115- THE SORT IS DONE:UPUP:OCTCT1:CT430y:I123:A$(I)::I123:I:20):CT1:30ERITREA,IXTACIHUATL,MADRID,CHANCELLORDURANGO CITY, PASADENA,WHIDBY ISLANDBOSTON,MONT ST MICHELE,SAN FRAN19):A$(PO)TE$J PT:1:A$(PT):PO:1:A$(PO):DISPLAY IN NEW POSITIONSv POPT1:120:PO POINTER BACK TO BOTTOM ADVANCE POINTER FOR NO-CHANGE :IPO:SU1:35:SU0 POPO1:POALL115:KEEP CHECKING PTPT1:PTALL1230:DONEPO1PTĝ:IPO1:SU1:35:SU0R xUPĭA$(PT)A$(PO)200:UP CYCLE COMPARISON }UPĭA$(PT)A$(PO)200:DOWN CYCLE COMPARISON MUST MAKE A CHANGE IPT:SU1::35:IPO:35 IPT::35:I:1:20) TE$A$(PT):A$(PT)A$(PO):PO:1:ENDED"::"PRINTING HALTED"::"IF YOU WISH PRINTING TO CONTINUE TYPE:"d A:"CALL 973 ": c START DUMB BUBBLE SORT dPT1:BASE POINTER nPO2:COMPARISON POINTER s(KY)128İ60 t:IPO:SU1:35:SU0 u:IPT:SU1:35:SU0! v100& <A(KY)128:RS,0:A49A52ıa =A49Č967:8:21::"1"::10:21:"2":12:21:"3": >A50Č970:10:21::"2":12:21::"3":8:21:"1": ?A51Č973:12:21::"3":10:21::"2":8:21:"1":G @A52Č970::"DOUBLETIME SORT DEMO I123! #I:1:A$(I):SUı' $I (2:21::"DOUBLETIME DEMO":e )4:21:"INSTRUCTIONS:" *6:21:"PRESS NUMBER" +8:21:"1. START PRINTING" ,10:21:"2. STOP PRINTING" -12:21:"3. RESTART PRINTING" .14:21:"4. QUIT" 2  DOUBLETIME SORT DEMO 7BY MORGAN P. CAFFREYOCOPYRIGHT (C) 1981vDAN FISCHER AND MORGAN P. CAFFREYA$(23)::T50UP1:KY16384:RS16368ALL23:CT1 I123:A$(I):2000:SHOW STARTER STUFF(12);::      РՠЫƍӠȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0 xx ԅբ H 0  敠$ ( x$0  xx 0$FԨֹ)U h)װ H ֐ι LhޤȄ h󰩠ɩch cɰ$0 $` d'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄ0)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05X~")XȔ) v*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0 ̥͐Eʑ˥ʥ˰ਈ$ u~q  u  mʥ` ȹ0 L uߙ`` $0LL*iS 0wh(VP`΅h(OM L6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ   o ` l3 3` 4J G 4&(JJJJ) 甠` F٩ $ 婠 Ȣ ii)ɰLPx+L 4P xL# 48` PxL PeHxeH˰iکeۅȱhڙ`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOL L3L`) #L $  `  v mL;ʅ˅LM  mdžة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }LޢٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL n Š̢Ԣ٠ŠǠŢԢ̠²ŠŠŠŠŠɽϹɬԍԢǠ̢ԢԠĠѠӢԢĠǠŢ˨Š˨ԢϠŠ  nL JLKMMLILLILLLLy 2L,PQ܅x݅yL آ8ЕNЕKʵ˕ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8MϕڥL 4΅` ȑ` l΅υLD L4 xPiڄeΕPeϕxPȵxڰL# N ONi)OO i@ &N&O ϕLz JKLυML LMJυKL qL ȩ` 6 6P`JLKMLxL L6 L[` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wL{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ㊨ rLa ?&0ΰ` Δ䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQ줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `P O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @Gh X{gggggg'(dgxkg~9g'7(*7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTĠ 5EMҠL Šō?FِLϚΠ κ f ٢  ٦Τ ȹɀI ȄȹH h3 oLB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N>W']5Kgvq ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_oܙݙᙯ` ??<<<<<<<0UUUUUUUUWΤ PڵxۥΑȥL`hh$ F`` %ֈ`ʤZA^ܙ ݙ0  m7;܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ܪȱ L[ĨP?xO_ڹo  l`w0P`fLPεϵxϱHȱ΅hΈ` J  畠P` Y $0`  畠$0 8 P# o ΅ڥυ e epݕ` 4LL$ `  rPՆϦ ` ΅υȩ ` n Ž˨˨ũýʽŭвɽϴĽʫɩ˨ĩɽɺʺԠĢč˨ʫ˨ʫʺčƽʺʽŭʺƺĢζ nŽ˨˨ũýʽŭвɽϴĽʫɩ˨ĩɽɺʺԠĢč˨ʫ˨ʫʺčƽʺʽŭʺƫĢζſҧҠũӠΧҠǩ#Ҡ̭ڠΠϠΠϠթԠŠ̠ӠՠԠŠΠΠԠϠ ȿL(L< LŠӮΠϠĠӮȿ%ΡԠӠ١̠ӠӠΧ$ŠҠ̠ĠϠ&ϠŬҠŠԠҠΧϠԠȠӠ ΠΠŠՠſŠԠΠŠҠé ΠΠЮĠΠŮ%ĠĠƠ͠ĠƠũ٠ę h` dLf dLf)):LINE FEEDS AFTER CR` K$ǠĠĠǠĠìİǠŠĠŠҬ ˇҠϠŇ̿͡3 j3hɠhhɍ  dLfɚ hh`h Lf  e  yqj  V )hK "eԩ8hhhh$% "   d 3Le X 2d' % " d% "&$ % "$ $   f )) $   fѰ)) LQf)0  8 `G:A8)8` XhhԠ  d3h d ` :e$ $ %ͺ :e`% "$8$  ` X 2d% "N d% "$  ɱ eLXeɶ` LXe X 2d d% "$  ɱ)ɲɳSɴ 8ѩ% " B` Э fLed Ld Lc ,,`# e% "& d  e% "P d% "`ee$`(0$,(8$0J$ȱ 8eh` Ldh d`ȱ c`@ hLc L dh h  d8h A 8  c`8cc c` c4Lɲɳɴ1% " B dL Lc  d ɷ8hh Xe1)p-% " B )*LYbT d8h8hi ԧii 88Y8iȑ8 Щ UЭ  e e  @e e 0)p @Ʌ𸭂%% "| d  de e A ɴ/i L` x Xʽi8L`)ȱȱ8mXA/. / Ͳͳ8ȱ8/e`Q X 2d@ɅƠ dLc     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ɰɫЉơ$v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$Lׅ ׅLԱJHȱJh`LNפ0`L,׈L20`LF׈LL ׅJF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !H ֥ h ߦ>  E֥ E & > ` E  E  H ֥ hL  ֥ -L L -EF# =Pi  ֤Lְ ׅ! ׅ  / ) ) "&6 B /`TLՆ8M˕  Tբ , Tզ`  . $ ; E.. 4L& >`Lk 34 Lh856!;<79)F:&8J9j*0v 婭   +<; LhLk'cg=%;!,<+k,w(gG gG]$ t < N8i| (|`ܠLդ4ɪ 4<`<  $ H h .Ю#` L}Э%J u ӊH Өh dѮ#` L Q ;Ү#` Q Ү#`#2 Ӎ'( H() 91 eȱm)h`JJ`#JȱJLh `#  <(eΨ=)eϰ%Hh>?iJK̅  #& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ`JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ` ӥ',"&,i8i#H&ii&hif&i'`'i,&i,.&iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaI10 &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00         Ž˨˨ũýʽŭвɽϴĽʫɩ˨ĩɽɺʺԠĢč˨ʫ˨ʫʺčƽʺʽŭʺƫĢζ n`ɠɍZɊZɈ$!$$"% %% e (`I(ii,i\$%H $ hi#ʥ"%$$%%#%"H $(*)+!hi# H $(*0 $(!`8Hh`BC<>=?<=`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)S4J 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,--&eʵ``` f f` &L L fLC`8i`uu  ee`` ` 0` ` ` 5I` 5Iй` f f`L ?5=ɥD 5 5 D4ɻɍЀL\ɠ` }Ɏ$ ``LXWVhY `XWYHV(` Jhh LH) JQ JJJH`HJ`hh ?l8e` %GQ/[҅n3pJ?>ʊ:>Ș;k/=:   S;:L 4 40K14 L= BC D..=D5֤4 J :3 g ɠɤ ɓՊ x= 4   &B&C= 44ݴ 4ݺ ɤ4&D`L# ȱ0` 4 `u` 7$ 8`0 &&` { %Ppĥ uv` 2e   %F8 2 8Hh&&&&& 0hhI`LLLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ 甠` uHɃLh` ☪ T`  甠`ѥ΅ ΅ҥυө 甠0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$ L赟0L0ܤ } L赟L0ܤ } L ` ` [ S oP YVPL6 O 5OPL Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`Ʌ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` L:L``F`$ ܪȱ 婠Lܤ`Ś25 a0 穠LJKH۰hЅѠȱ0@ȱHШhh0JJL/x궭붩Ѝ(`hH ELLHHL@Ůİ n Нƹ`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     b@l  . $ ; &?1?=A>?I i`HH11`IJ듧ƙɾ5Ė+]̵h5`4ɺл1>@@A`41`>BD`8>6>) `LL u ?l:L``L@ 'A=?<) < `JJJ>Ie?`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Ų˨Ų˨ŠҬ̤ˠҍˠҍԠ٠ҢԠϠԠŢԠϠΠŠǢԠ٠ҢԠϠԠŢԠϠΠŠǢĠҍŲ˨Ų˨Ų˨Ŵ˨ŠҬ̤ÍĠҍŲ˨C Bf p:&z$z O{p?>LLd;  bpb`#LLLLLLLLXLm' 0`0``(iٜ iԜ``LLXLל 虍q q q̥ ɠLmes0 pbmȱn DewLvjk ii# D>ddg }hjk ӕ-! z|{L mmn[ ~mn ~Р`hhL e e`  Lޛ ww0wРLޛ)t-= ȱɯ̥0#eLBvȢ5pȌu ɭ ȍr ɭ se sLv ɭ# 虍pȱɯLɠL p ɯ >J~/OJ|.EJ -@@x6J 0A1p'J ,?"`Joo< o@->>`J>hhLjCBB}, C`m BLphh ,:0Lj!)z{/B>@>` ;LWʭ$zzL\ ;L#8zz$m@@ ;L@8$0@->>&|$zzХ>)@Ы%m@@ ;  똩{pm?? ;LWz4A ;`L̔𝒔ΣΣ`hH ELL ; L. –I  L(>[mmnLC+  pC (3# Εɛ0L0> ,:0>V/O%J@ ;ԥ-/L-L.L01Щ" Э$!??ꭀ͢x –; (' i  ͔ΔI;LX` – (x`; `𝂔` – ϖ ;`"-"i"j)xy%& &(`85ϩ"%}9~~`hhLL hh Ε !,! ɛɍL L(L;>}` ӕz{|LLLLLݖ``@B3fP*{ϠүıP  P  lk0):ݒ ДL!P?NN-VdL@$)  m`     )`x Xʽ8 >?<=BRC ,(`8 Ri&R8 m Ri &R0&RQɯ 8 Ri` Ri#L8R R`"iȩRi` Ri# R 4SLSR RR R `R/Qhh` ,S R`LLLLLLLLLL`Ls -ȑȑ`x Xʽ8 >?<=BTC ,(` ,`( iii圩 `` `CLLL( i圩_`_```SLLݜL0`c``` ` 0`LŜ`L(iٜ iԜ``LLXLל```m()ȭ*@ 0x``#LLL( ii뜩@(x``3LLLLLLLLXLÅi 0`)I`LLXLלLLLLLLLLLLLLLLLLLLLLLLLXL i 0`I)`LLLLLL LLLLXLi JJJJ `)`LLLLLXLꍬ 0`0``ꂍLLLLLLLLLLLLLLLLLLLLLLLXLsi ȑȑ`I)``䍠報Ҡ䍠墠占Š䮍󮠨ԍ婮䍠Ҡ報뮠Ҡ捠婮䍠䮠Ҡ堠宠٠䍠Ҡ󠍠 ,(` ,`LLL( i圩_`_```SLLݜL0`c``` ` 0`LŜ`Lx Xʽ8 >?<=BTCLLXLל```m()ȭ*@ 0x``#LLL( ii뜩@(x``3LLL( iii圩 `` `CLLXLלLLLLLLLLLLLLLLLLLL(iٜ iԜ``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ޢٹ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ک ";:XZ61:25:X;:33:(X)O "FILE NAME ";:XZ68:A029:((XA));::\ ,1:A$:EE(X)= " COPIES ";:XZ55:25:X;:33:(X)u " PRIORITY ";:XZ56:25:X;:33:(X) "TRANSPARENT IF < 128 ";:XZ58:25:X;:33:(X) "ACTIVE WHEN NON ZERO ";:XZ59:25:X;:33:(X) "FILE TYPE BIT MASK OT # ";:XZ39:25:X;:33:(X);" (";((Z2194)3)16;")" "INTERRUPT SOURCE SLOT ";:XZ40:25:X;:33:(X);" (";((Z2289)3)16;")" "DEFAULTS: MARGIN ";:XZ53:25:X;:33:(X) " LINE LENGTH ";:XZ54:25:X;:33:";:25:Z33;:33:(Z33)G "PAGE LENGTH";:XZ35:25:X;:33:(X) "BLANK LINES BET. PAGES";:XZ36:25:X;:33:(X) "LINE FEEDS AFTER C.R. ";:XZ37:25:X;:33:(X) "FORM FEED OK IF = 0 ";:XZ38:25:X;:33:(X)B "PRINTER SL4:I:J:(7);"DOUBLETIME NOT FOUND":G ((J15)1(J25)0ĂJ:X 2ZJ:JE1:J d"DISK SLOT";:XZ16:25:X;:33:(X);" (";(X)16;")" n"DISK DRIVE";:25:Z17;:33:(Z17) x"LAST ERROR CODE";:25:Z32;:33:(Z32) "BIT FLAGS ] :T :8:"DOUBLETIME CONFIGURATION"::: INSERT DOUBLETIME SEARCH HERE"DESCRIPTION";:25:"ADDRESS";:33:"VALUE":"---------------------------------------"' E(978)2561:A((E)3)256:C76:JAE1256:I04:DJ(3I):(D)CI    n_^^^^ ^`, 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ȑȊҤŢԺčΠźԠҤ ԠŠŠƠҠԤΠԢȠΠŠĺƠļҠľΠԠҤ΢ĢĺԠҤŢųԭԠ  n`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 ^ƙ.ș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čΠ̭͠Ԣ ԠŠŠƠΠϠԢȠΠŠĺƠļҠľΠԢ΢ĢĺԢŢų԰ԢŢԺ  n`ɠɍZɊZɈ$!$$"% %% e (`I(ii,i\$%H $ hi#ʥ"%$$%%#%"H $(*)+!hi# H $(*0 $(!`8Hh`BC<>=?<=`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$nZ$:8500IIU1:I1061156Q$(U1)"* END"ĺ::" NO ELIGIBLE FILES ON THIS DISK ":::" PRESS ANY KEY TO CONTINUE ";:Z$::8500 7:"---------------------------------------"9:"---------------------------------------"ALIDx XȄȑ8 eeLȥ ȑee ȑ=)(`Q$(I)"* END":CEI:I105:FIND LAST CATALOG ENTRY(CE$,U1)"/"ĺ"DISK I/O ERROR":"HIT ANY KEY TO CONTINUE";:E d'  %)-17=BIOV[adhntyхъѐѓїњќѣѤѩѯѲѶѸѼ  #&),/258;?BFILPU[I1 GET ONE Vq8  L+ >>`i?   R`?8`㑥䑢𩰅 ɰ$0Lŭ㑅䑅`KC1141jK(Z$):KK(10(BV)):BV,Kt1010gu::4:"ENABL `  R`ޑ(+(!(L鍭ޑ ,,`葥Ɂ "ɭɂ @Ȍv) 󘪭 ? ȱ (ɨɤ葘LOLLwfa`C>摍2|>C ޑ8p0`LL 7L⑭pi2摩ō2 |ylwLlq8x0`={  (X      SLOT "SL" DRIVE "DDy 2:3:"1. CINCH CATALOG":3:"2. AVOID RELOAD OF RAM CARD":3:"3. ALTER BREAK PROCESSING " 3FT2 <3:"4. ADD FREE SECTORS CALCULATOR":5:"(TO USE... CALL -17815: ":5:"FS=PEEK(-18946)+(256*PEEK(-18945)):":5:" PRI:12:"SLOT? (";::"6";::") ";:23:Z$:23:Z$;:Z$(13)ī44^ +SL(Z$):SL1SL742l ,DS,SL16 -DD1:15:12:"DRIVE (";::"1";::") ";:23:Z$:23:Z$;:Z$(13)48 /DD(Z$):DD1DD245 0DR,DD 1FTFT1::8:958:" DISK DOS PATCHER *":6:"* (C) 1981 *" 6:"* BY DAN FISCHER *":6:"* 415 841 2202 *":6:"* ALL RIGHTS RESERVED *" (6:"****************************" )FT049C *SL6:11:8:"DISK PARAMETERS:":96:DKBA:CSBA3:CIBA6:DSBA10:DRBA11:TRBA13:SCBA14:ADBA17:CDBA21:EKBA30:ECBA31:CCBA32: ((175)256(176))54:SP$" " TR5,64:(12)::1:6:"****************************": 6:"* 1,64096: PROTECT MACHINE CODE SECTION:DOS PATCHER (C)1981 BY DAN FISCHER 415-841-2202 2213 VINE STREET BERKELEY, CA 94709 CONTRIBUTED TO THE SAN FRANCISCO APPLE CORE FEBRUARY, 1982j BF44096:BA340           b@Ll  . $ ; &?1?=A>?I i`HH11`IJ듧ƙɾ5Ė+]̵h5`4ɺл1>@@A`41`>BD`8>6>) `LL u ?l:L``L@ 'A=?<) < `JJJ>Ie`)JJJJJ])c`Ԯ@`(J)(XX7):XX(R(J)C28):XXU2::: XU0:JU0U7:XX(((R(J)(U2J)))):: XZ(I):YZ(I):(YY(I))(U7):3170  FIND PRINTER CON  I)):I::12:"GREETINGS NAME IS: ":14:5:HE$::"DO YOU WANT TO CHANGE? ";AN$ht (AN$,1)"Y"10~ 18:"NEW GREETINGS NAME? "::" ";AN$:(AN$)0(AN$)30(AN$,1)"A"(AN$,1)"Z"2430  AN$AN$SP$:I130:BF116I,((AN$,I,1))128::CD4TR,0:SC,13:CD,1:DK:BF66,20::CD,2:DK:10b(12)::10:6:" RUN GREETINGS PROGRAM"TR,0:SC,13:CD,1:DK:BF66,6:CD,2:DK:1020:"BYE";:23:` TR,1:SC,9:CD,1:AD,0:AD1,(BF256):DK:HE$""Rj I130:HE$HE$((BF116208,3,76,44,174,76,60,174UTR,1:SC,13:CD,1:DK:I13:D:BF56I,D::CD,2:DKh 76,223,188p10@(12)::10:6:"BRUN GREETINGS PROGRAM"JTR,0:SC,13:CD,1:DK:BF66,52::CD,2:DK:10(12)::10:6:"EXEC GREETINGS PROGRAM"12,189,220,182,32,237,253,202,16 ,247,76,47,174,211,210,207,212,195,197,211,160,197,197,210,198,160 TR,1:SC,12:CD,1:DK:BF196,179:BF197,182:CD,2:DK:10TR,0:SC,6:CD,1:DK:I113:D:BF222I,D::CD,2:DK 32,12,253,201,141,K:107x(12)::10:6:"ADD FREE SECTOR CALCULATOR"VTR,0:SC,04:CD,1:DK:CSCD,2:DK:SC,0:CD,1:DK:I154:D:BF178I,D::CD,2:DKh 162,8,32,74,249,32,105,186,173,255,181,174,254,181,172,6,224,240,5,32,27,229,48,3,32,36,237,162, ROM":1070H+" OOPS! YOU HAVE A NON-STANDARD F8 ROM":I13000::10w.:" PRESS 'Y' TO CHANGE ":Z$:Z$"Y"10LBF127,UU:BF128,WW:CD,2:DK:10(12)::10:6:"AVOID RELOAD OF RAM CARD"TR,0:SC,09:CD,1:DK:BF211,173::CD,2:DlTR,0:SC,13:CD,1:DK:XX(BF127):YY(BF128):UU67:WW250:XX67YY250UU101:WW255: SWAP VALUES$::XX67ĺ"PRESENTLY SET TO PROCESS BREAKS WITH"::"DOUBLETIME ROM":1070 )XX101ĺ" PRESENTLY SET TO PROCESS BREAKS WITH"::"NORMAL F85):YY(40576):UU67:WW250:XX67YY250UU101:WW255: SWAP VALUES:"PRESENTLY PROCESSING WITH "::Z$"STANDARD":XX67Z$"DOUBLETIME"Z$" ROM"::"PRESS 'Y' TO MAKE THE CHANGE ";:Z$:Z$"Y"1040575,UU:40576,WW:1022,UU:1023,WW:10;:Z$"X"K(Z$):K1K9ĺ(7):906_Z$"X"2200jdK2600,1200,1000,1400,1600,1800,2000,2400,1500(12)::10:6:"DOUBLETIME ROM IRQ VECTOR"12:10:"PATCH (M)EMORY OR (D)ISK?? ";:Z$:Z$"D"1050Z$"M"ĺ(7):1010EXX(4057NT FS;' FREE SECTORS'" F3:"5. BRUN GREETINGS PROGRAM":3:"6. EXEC GREETINGS PROGRAM":3:"7. RUN GREETINGS PROGRAM (NORMAL)" P3:"8. CHANGE GREETINGS PROGRAM NAME":3:"9. EARLY TERMINATE OF CATALOG":3:"X. EXIT"%Z23:6:"WHICH? ";:Z$:Z$n "MICROMOD":+ TV359K$(U6)"APP. CENT.":K TV375K$(U6)"SMARTERM":k TV494K$(U6)"VRSACARD": TV501K$(U6)"APP.DISK": TV295K$(U6)"CPS MULTI": TV313K$(U6)"RAMDISK ": TV224K$(U6)"SUPRTERM": TV237K$(UTROLL`0(X6(PM(PL))),0: SET CPS BANK :TP49198(X6(PM(PL))):TV(TP)(TPU1)(TPU2):TV425K$(U6)"PARALLEL ": TV219K$(U6)"GRAPPLER" TV339K$(U6)"CCS 7710 ": TV354K$(U6)"PROM.PAR": TV323K$(U6) L)JJJJJ)``l]Ƀ4`,lܭ]Ɍ`@>`)JJJJJ])c`Ԯ@`(J)(XX7):XX(R(J)C28):XXU2::: XU0:JU0U7:XX(((R(J)(U2J)))):: XZ(I):YZ(I):(YY(I))(U7):3170  FIND PRINTER CON  占뺍堢Ġ͠Ӣ占ŧ庍̠ᠠǠ٠ԠŠŭũŬ占뮠፠ԠŠ箍Ԡ箠占ԠŠԍàĠŠ箠򬍠ŠΠŠҬ𠍠Š̠àĮ堢ѢԮ̠Ŭ󍠠ҠɍӠ󮍠ԠŠɍ󮍍占殠خ亍ҠԠ獠٠͠ŠŠ穮堨婠ŠҠҠ詮ŠᠢŮҠԠ占ō䍠ŠҠ堠򮠍ҠL:! ! !!!!!!!!!                              L`AL`?>`!! ! ˍРвԍԠ̍в̍в٠ĠΠנԍЫԠˠԭ׍ΫРԠ͠Ġàà͠٠Ǡō̠Ы̍Ӡ؍ëؠŠŠРӍؠ̠ЫРؠì؍Ь؍ؠ̠ЫҠӠΠЍԯԍЫԠԠҠԍѠԍҠԠ٠Ơà֠Š٫ЫƠԠ̠ƠҍȠŠٍõЫƠԠƠҍֲҭŭҠԍԲαĠԠ٠ҠĠˠōȍРؠРҠ ԠĠĠҍРРנϠŠ̠ōǠƠōРРŠҍūŠԠˠōǫЍֱŠ٠΍à̠ǠǍҠؠҠō͠ؠàؠÍҠЍؠŠҠ̠ҍвؠÍҠ̠ԠРԯԠ΍ŠĠ٠ԠҠ̠РŢ̠ЫŠȠӠҠҍԠčȍؠŠŬ؍ؠ̠ō֍ààЫǍЫ̍ӠϠˠȠΠōҠōàؠƠҍЫƍРؠë؍Ь؍ؠ̠ЫؠЫǍؠѠԍРРƠŠĠƠōĠƠЍРؠРҠԠٍȭ؍в؍ؠԠՠРҠō٠ōؠЬٍؠѠРŠŠǠ΍ӠϠˠȠϠōŠԠōơƍЫǍ̍в̍в ȠԠǪֱՠֲՠ֠ՠРРРҠҍĠРРĠ٠ԠĠҠЍĠРЍĠРōαĠРαĠР͍̲ĠР̲ĠРҍĠРԍ ҠҠϠԠ΍ǠڠԠϠ΍Рڠ̠ԠǍ̠ڠаưڠƠڠĠƠ΍ΠڠôҠڠԠڠРڠƲРōҠڠРڠàڠÍƠڠƠڠÍƠڠҫƫƍ ڠƠڠаڠưаưڠРڠРڠӠՠƵΠڠΠōΠڠؠŠȍҠڍǠİʠРՠԠڠàŠҠԠڠǠڠˠڠčŠڠΠڠÍԠڠƠĠҍŠڠÍΠڠƍƠڠÍǠڠӍҧΠԠҍĠҠħ΍ȠŠҧԠéΠЮٍčΠҍֱƬԠĠҠӍ" " " " """""""""                     n"