' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#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 ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`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- (  Ϡ-@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(`F d ֠z# u`N 2,2 &RN 2,13 "&\N 14,15 1&fN 14,16 ^&pNV(I), H(I), HN(I), NU(I), HT$(I), KA(I)j&zN 16 &N 10,3,17,15,FILENAME,0 &N 3,3,27,3,ASCII CHR NO (32-126),3 &N 5,5,5,1,COL NO 12345678901,2 &N 7,5,15,11,ROW NO 1,1 'N 8!" %:1:21%:LI$%;A%;ER$""ĺER$;:868:790:15140i%;"ERROR NO ";ER;" ON LINE ";EL:790o%$;%.;23:25:" CONTINUE ";%8;34,0%B;B$:1:22:958%L;10000% N SCREEN PARAMETERS %*NBE(SC),EN(SC)%4N 5%>N 1,1 &H HELLO,D1"#$: ERROR HANDLING 3$:812:ER$""A$:ER(222)Z$:EL(218)(219)256$:ER5ER6ER13ER$"CAN'T FIND FILE!"$:ER4ER$"DISK WRITE PROTECTED!"$:ER8ER$"CLOSE DOOR!"$:ER9ER$"DISK FULL!"%:ER10ER$"FILE LOCKED)10010#) PRINT SET $#)FL03#)SC5:2000H#)TE2:4000:1000f#)TE3:4000:4100:B$:768z#)B$(27)10010#*B$">"B$"."10730#*B$"/"Č790:10740#*900:TE6:4000#&*6000:950#0*10720#* QUIT #*:1002 $*D$"RUNB$">"B$"."10520,"@)B$"/"Č790:10530@"J)900:TE6:4000O"T)5000:950Z"^)10010p"h) DOWNLOAD SET "r)SC4:2000:TE2:4000:1000"|)TE4:4000:4100:B$:768")B$(27)10010")B$"/"Č790:10620")900:TE7:4000")600:950#IN MEMORY !(/!(TE4:4000:4100:B$:768I!(B$(27)FL0:10010b!(B$"/"Č790:10420q!(TE7:4000z!(300!(10010!) PRINT SET DEFINITIONS !)SC4:2000!)TE2:4000:1000!")TE3:4000:4100:B$:768!,)B$(27)10010"6)10010 (B$">"B$"."102207 (B$"/"Č790:10230V (TE7:4000:100:SC3:2020k ((TE2:4000:1000 2(TE3:4000:4100:B$:768 <(B$(27)10010 F(B$">"B$"."10280 P(B$"/"Č790:10290 Z(TE7:4000:200 d(10210 !( CLEAR SET 000!'TE3:4000:4100:B$:7685'B$(27)10010N'B$">"B$"."10120g'B$"/"Č790:10140'FI$ST$(1):A1İ500:10010'A3İ400:10010' EDIT SET 'SC2:2000'TE2:4000:1000'TE3:4000:4100:B$:768 (B$(27) LISTING INTERRUPTED ---":62004$ST$(16)"A"ĺ:=.720F8:0LB{' ****** START OF MAIN PROGRAM ****** '3000$'A10100,10200,10100,10400,10500,10600,10700,10500,10900t' READ/WRITE DISK ~'SC1:2000'TE2'4000:1:7309(NU$,3);ST$(1);:ST$(1)""ĺ(KE$,10);".SET";^" ASCII ";ST$(14);"-";ST$(15):mM176180720:M10:730(NU$,5);"MODE ";M710:M1M:730IXYZ(I)KB(16384):16368,0KB155ĺ:720:10);"---KB(16384):16368,0N"KB155ĺ10);"--- LISTING INTERRUPTED ---":IYT,f6Z(27)(50)m@0sJp PRINT SET z1:X(ST$(14)):Y(ST$(15)):M(ST$(16))ST$(16)"A"6050M063FL16090FL1:720:M149IKYK9:5380eA8L$L$(IK)(NU$,5((IK)))(KE$,2)(NU$,1)(KE$,1)(NU$,4):5380L$L$(IK)(NU$,5((IK)))X11:X(K,0)128X(K,0)X(K,0)128:X10L$L$(X(K,0))(NU$,3((X(K,0))))(X1)(NU$,4)L$:(255)(255)(255)(126):FL1:5240[dFL0Z(255)(0)(129)(0)(129)(0):5240nZ(60)(0)(129)(0)(129)(0):FL0xFL0Z(255):5270Z(60):FL0N124:Z(0)::L$(NU$,6)K092)12)K09J0118X(K,J)(ADR(K12)J)@ :NL701lZ(27)(76)(158)(3)(N140:Z(0):2K09<IKYāKJ166:Z(0)::5270FJ111PA8ī5220%ZX(K,J)K(L)X(K,J)X(K,J)K(L):Z(60)(126)ղ PRINT SET DEFINITIONS EA8ST$(1)""ST$(1)(KE$,10)".SET"TM149:7301::" ";ST$(1);" ASCII ";ST$(14);"-";ST$(15):M14:730Z(27)(65)(7)X(ST$(14)):Y(ST$(15)):FL0IXY10A8ī5140ADRHM((I3 ";:I:"<>> CHANGE ":" MENU ACCEPT ";:~::" MENU CONTINUE ";:22:1:95822:28::"SELECTION";BEL$;:::" STOPS PRINTING";:22:28::"PROCESSING!";::23:6<*0R32,12,225,165,161,44,193,193,48,251,141,144,192,96 T,PRINT FORM,QUIT,5)R MACHINE LANGUAGE ROUTINES )R169,5,133,7,173,48,192,136,208,4,198,7,240,7,202,208,246,162,23,208,239,96)R169,200,133,7,173,48,192,136,208,4,198,7,240,7,202,208,246,162,50,208,239,96*&R104,168,104,166,223,154,72,152,72,9,FIRST CHARACTER ASCII,3 F(O 12,3,27,3,LAST CHARACTER ASCII,3 o(O 14,3,27,2,PRINT MODE (0-63/A),6 ($O LABELS (.OLOAD SET FROM DISK,EDIT SET IN MEMORY,SAVE SET TO DISK,CLEAR SET IN MEMORY)8OPRINT SET DEFINITIONS,DOWNLOAD SET,PRINT SE,12,15,11,2,1$'N 9,12,15,11,3,1 ;'N 10,12,15,11,4,1 S'N 11,12,15,11,5,1 k'N 12,12,15,11,6,1 'N 13,12,15,11,7,1 'N 14,12,15,11,8,1 'N 16,3,27,2,CHARACTER WIDTH (5-12),4 'N 18,3,27,1,DESCENDERS (1=Y/0=N),5 (O 10,3,27,3z#?     ŮԠϠҮԠԮԠ׮ԠϠϠҠŮԠҠ$ӮԠϠ  (4)"CATALOG"0PR# 1": 510:530:LS8:550. A33:B429 IABD (I);J $ .A43İ520:" THE REFERENCE FOR APPLE COMPUTING":510:1090 8A43:B52::1040 BI151 L(53); V `:LS12:550:520:540 j:D$"PR# 0" tD******************$ dD$(13)(4). n1000S  PRINTER CONTROL SUBROUTINES q (27);(37);(1);(0);: (27);(37);(0);(0);: (27);(112);(1);: (27);(112);(0);: &(27);(65);(LS);:  PRINT LETTERHEAD  D$"' *******************************M * *t( * LETTERHEAD-DEMO * 2 * COPYRIGHT B.MARTENSSON *< * MK 1.0 02.08.84 * F * *  P *************  225,165,161,44,193,193,48,251,141,144,192,96 41,144,192,96 23,154,72,152,72,96 &R 32,12,225,165,161,44,193,193,48,251,141,144,192,969(0)(0)% Z(27)(37)(1)(0)< Z(27)(38)(0)L Z(X)(Y)t $XXHM((X32)12):YYHM((Y32)12) .IXXYY 8Z((I)) BI L:D$"PR#0" V38400 `(4)"RUN FONTDEMO":  MACHINE LANGUAGE OUTPUT-ROUTINE , 32,12,******************************6 d INITIALIZATION H nD$(13)(4)W xI822835c J:I,Ji 10,76:11,54:12,3  READ FROM DISK FILE D$"BLOAD LARGE.SET"  DOWNLOAD SET D$"PR#1"::X32:Y126 Z(27)(58)(0)- 36999:HM37000;******************************* `* *(* FONT-LOADER * 2* COPYRIGHT B.MARTENSSON *<* MK 1.0 03.08.84 * F* * P*   >>0088! ! @! @!!!!!ff```(((!!! !!! !!! !!! 8EEE~ ! >"      !!! DDD8 8DDD! )))  $B     @> NEXT FIELD <<> PREVIOUS ":" MENU ACCEPTI$LI$(61):+ N:I1N:BE(I),EN(I):2 Ni V(N),H(N),NU(N),HN(N),HT$(N),KA(N),ST$(N),X(9,11)t I1N V(I),H(I),HN(I),NU(I),HT$(I),KA(I)I110LA$(I)$.I07:K(I)2I:8FI1BI768835LJ:I,JV FOLLOWING -" 9 I19; " <";I;"> ";LA$(I)A& U0 A10:TE5:4000b: A$:768D A$"1"A$"9"Č790:3120N A(A$): INITIALISATION  D$(13)(4):BEL$(7) F0$"Z":F1$"/" I140:KE$KE$(95):NU$NU$(32):LI)(ST$(I)):R0ĺ(NU$,R);/H(I):HT$(I);5 ;*N MAIN MENU T  " E P S O N F O N T - E D I T O R": FI1A10:TE1:4000:3500::3 " M A I N M E N U " :LI$ 7  " YOU MAY CHOOSE FROM THEN$"0"IN$"1"ı1580H"((IN$)1(IN$)63)IN$"0"IN$"A"ı_,790:II1::1230u WRITE SCREEN {IBE(SC)EN(SC)V(I):HN(I):KA(I)2ī2070ST$(I)""ĺ(KE$,NU(I));:2070KA(I)1İ1350:2070 ST$(I);:RNU((I)):2ST$(I):3<ST$(I)""ĺ(KE$,NU(I)):FFK1(ST$(I))[PA$(ST$(I),K,1)oZA$F0$ĺ(95);dA$F1$ĺ"O";nx INPUT VALIDITY CHECK (IN$)32(IN$)126ı1580(IN$)5(IN$)12ı1580I)2ĖHN(I):V(I):ST$(I);:RNU(I)(ST$(I)):R0ĺ(NU$,R);TIBE(SC)IBE(SC)1[ISC1ĭ(((ST$(1),3)),1)","ĭ(ST$(1),4)".SET"ST$(1)ST$(1)".SET"HC(0): PRINT FIELD ON SCREEN KA(I)11340(ST$(I)""ĺ(KE$,NU(A$)90(A$)47)Č790:1060Lt((A$)32(A$)8)(A$)95Č790:1060[~IN$IN$A$}KA(I)1A$F0$ĺ(95);:1190KA(I)1A$F1$ĺ"O";:1190A$;JKA(I)2ĴKA(I)1500,1500,1510,1530,1550,1570ST$(I)IN$;KA(I)0KA(I0 IN$""HN(I):V(I),J1NU(I)9$A$:768K.A$(8)1030b8A$(27)J11260B(A$","A$"<")J1İ1300:II2:1230L(A$"."A$">")J1İ1300:1240VJ1A$(13)IN$ST$(I):1200`A$(13)KA(I)11200jKA(I)1((27)(37)(0)(0):1 Z(27)(33)(M1):R  CONNECT DOS / NO SCROLL h 22:26:958:24s 34,23} 1002   DISCONNECT DOS / FULL SCREEN 34,0 0:0   INPUT ROUTINE IBE(SC)EN(SC)KA(I)2124:X(ST$(14)):Y(ST$(15))< lZ(27)(58)(0)(0)(0)E v710\ Z(27)(38)(0)l Z(X)(Y) XXHM((X32)12):YYHM((Y31)12) IXXYY Z((I)): 720::0:  PRINTER COMMANDS Z(27)(37)(1)(0): Z))  , CLEAR SET 0 6IHMHM(9612)9 @I,0? JE Ta  WRITE TO DISK FILE j 900 D$"BSAVE "FI$",A"HM",L1152" 950   READ FROM DISK FILE 900 D$"BLOAD "FI$ 950  X DOWNLOAD SET  b1:X(ADR)4 ST$(13)"1":X128XX128:ST$(13)"0"G ST$(12)(X):` SCREEN -> TABLE  ADRHM(((ST$(2))32)12) J111:X0 K701 (ST$(11K),J,1)F1$XXK(K) :ADRJ,X: X128:ST$(13)"1"X0 ADR,X(ST$(12************ + P36999:HM37000:150006 Z10000O d TABLE -> SCREEN t nADRHM(((ST$(2))32)12):YY11 xI411:ST$(I)"": J111:X(ADRJ):K701:YYYK XK(K)XXK(K):ST$(Y)ST$(Y)F1$:160 ST$(Y)ST$(Y)F0$ ::="' ******************************* L* *s* FONT-EDITOR * (* COPYRIGHT B.MARTENSSON *2* MK 1.0 05.08.84 * <* *  F*******************            UUUUUUUUUUU _  _     LIXY V(I); `+ j:D$"PR# 0"1 tV(I);C `T j:D$"PR# 0"Z tp********** dD$(13)(4)0  PRINT SETS A D$"PR# 1":O X32:Y95j (27);(37);(1);(0) "THIS IS THE DOWNLOAD CHARACTER GENERATOR:" IXY $(I); . 8(27);(37);(0);(0) B"THIS IS THE ROM CHARACTER GENERATOR:" 2' ******************************* L* *v* FONT-DEMO * (* COPYRIGHT B.MARTENSSON *2* MK 1.0 22.06.84 *<* * F*********************  GGGGGG    1080 t:D$"PR# 0" ~*******************% dD$(13)(4):  PRINT LOGO K D$"PR# 1":g (27);(37);(1);(0);x (27);(69) (27);(112);(1); (15) $(27);(65);(8); .A33:B42 8IAB B(I); L V `A431140 jA43:B52:' *******************************M * *u( * LOGO-DEMO * 2 * COPYRIGHT B.MARTENSSON *< * MK 1.0 03.08.84 * F * *  P ************  >>0088! ! @! @!!!!!(( !!! ((((!!! !!! !!! !!! 8EEE~ ! >"      !!! DDD8 8DDD! )))  $B     @   @