' +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*`P Pxp @ @  @  @hPPP P PP  @@  P@ pxxxxxxpx0H@@@@pxp ` p0`` pبppxxxp@@@@H0hP @ppppx @ @@ @  @p px Pppxxp ppبȨppph𠐈ppp pP AUSCWININjXmemfj4kWkkkkkkkdkkllBmmmm` PPPPPPPP xp(  @@@h @ @@  p p @  @pȈp ` pp0@0p0Pp8@p @@Ɲo) +po9pp Ъ 8pLo ` ֩PyQ AL +pppAp`#p"p p"p#p` ~L pH)hJJJAp`LANCS AZ09!/:@[`{~ @BOHOOUNHOOCECRDFAFPARSNOJUSJUSCNNOCNGCDVSHSSPACCEP"$%";CO$ zZ1% &zFLY CHOPPER OUT5 0zL102004A :zL214R DzCO,L2L1,21_ NzXX$(L2)g XzL2o bzL1v lz3 vzLOWER ROPE AND MAKE ZEBUG WAVE zL1381084 zCO$ zL214 zCO,204,21 zXX$(L2) z239,L1L2240,L1L2 zL2!ESNO",1),Z$yZ$(Z$,1)5yZ$"Y"Z$"N"31100KyZ$"Y"BS04000YyZ$"Y"ĬbyCL$ryCO,125,117y"GOOD BYE!"y3y110,110200,110200,115215,120200,125200,130110,130110,110yWINDyAFT,3,2zCO,232,112 zCN$;XW1X1X,Y1XW10RX!:R5yENDING ROUTINEB"yAFT,3,1O,yCL$;CN$Y6yWINDf@yCO,0,85tJy"$%";CO$TyWIND,30,90,279^yCOhy"Would you like to guess another number? ";CA$;ryGCP,ZX,ZY|yCO,ZX,ZYyCEL:WIND yINP,(3,"YERS L TO H ON GAME BOARD#*NZLH,4NZYZE>NZX((((ZY),1))1)\HNZX1ZX9:ZYZ1hRNXZX21}\NY(ZY10)1238fNBOX,X,Y,X20,Y11,8pNZzNRBOX GENERATORRBCRX0W&RX1X,Y1XW1X2X,Y1XW1X2X,Y2XW1X1X,Y2RSE SUBROUTINE!LN:HN:200007BS0GNBSBSGNRFLASH NUMBER 10 TIMES^L120kPAUSE,1BOX,X,Y,X20,Y11,8LSPACEGOTO ENDING ROUTINE$31000'FROM HERE TO THE END ARE THE SUBROUTINES NINVERSE NUMB FOR 2 SECONDS>PAUSE,20'H200001R4290J\WIND,220,54,279,191RfCOap"You";CC$pz"got";CC$"it!";CC$WINDINVERSE REMAINING NUMBERSLMIN:HMAX:20000FIND X AND Y POSITION OF WINNINGNUMBER USING THE INVENZN1:A$"low!"9NZNLZN:HMAX:MAXZN1:A$"high!"RBOX,223,53,276,89,0aZNN4700zWIND,220,54,279,191COZN;CC$"is too";CC$A$;CC$ WINDPUT ZEBUG UNDER BALLOON CO,243,101*CN$;"$%";CO$4PAUSEZN$)ZXZNMINZNMAXįCO,0,181:"Enter a number between ";MIN;" and ";MAX;".";CC$:4400{bCLEAR BOTTOM PART OF SCREENlCO,0,ZYvCEWDRAW BALLOON3220,50279,50279,90255,90250,100245,90220,90220,50NZNLMIN:HZN:MIGNENTER GUESS$CO,50,165?"Enter your guess: ";gINPUT A NUMBER BETWEEN MIN AND MAXqCA$;GET CURSOR POSITION OF LAST PRINTED TEXT&GCP,ZX,ZY0CO,ZX,ZY:INPUT A NUMBER INTO ZNDINP,(((MAX)),N,1),ZN$NZN(E # 100 (3-DIGITS)"hCO,189,148-r"100"E|INVERSE GAME BOARD]BOX,0,38,209,157,8d3DEFINE GAME VARIABLESMIN1:MAX100:GN0N=THE RANDOM NUMBER TO USEN(100(1)1)GN=THE GUESS NUMBERGNGN1CO,63,6 JFLİ20800: T20200:MX(64WI(FI)):MY(44HE(FI)):Q$"Width in characters":Z11:Z2MX:20300:PWZN:Q$"Height in characters":Z2MY:20300:PHZN ^20100:"Starting character":AFT,FI:CN$:22000:CH$""ĺCO$:`!hCO$:20600:XCCA(FI)32:LOBU:CH$""ĺCO$:gECSCC(FI)(CA(FI)31)İ20100:CO$"Destination area too short for load.":20900:CO$:20600:LOC(CA(FI)31):24500:ZFI:20010:LDOSVUNHOOK::::D$"CATALOG"`16368,0:16384,128:16368,0:HOOK:@PICTURE22000:CH$""ĺCO$:oSCCA(FI):SLC(CA(FI)31):20100:CO$"Ending at"CN$:TCFC:FC0::22000:CH$""ĺCO$:ECCA(FI):ELC(CA(FI)31)HE(FI)1:ELSLTLSL:SLELHE(FI)1:ELTLHE(FI)1:TSC:SCCA(FI):ECTFCTC:20100:CO$"Move to?"CN$:22000:CN$:22000$CH$""FC0:CO$:LOC(CA(FI)31):TXX(FI):TYY(FI):TIFI:20100:CO$"To where?"CN$:22000:CH$""ĺCO$:DEC(CA(FI)31):L1LOLOHE(TI)1:DEL1LO,(L1)::150:CO$:BLOCK MOVE20100:"Starting at":AFT,FI:CN$:"Y"PT(L)ĺ"N":9XMOVE CHARACTER OR BLOCKL]FL0İ20800:Wb20200lQ$"1) Character 2) Block Which":Z11:Z22:20300vFC(HE(1)HE(2))(WI(1)WI(2))ZN7050,7100CHARACTER MOVE 20100:"Character to move":AFT,FILE(FI)MFİ205003dDISPLAY FONT PARAMETERSEnFLİ20800:cs6520:20900:BOX:WIND:{xL12:WI(L)6550WIND,243,0,279,191:CO,243,UY(L)"CU="CU(L)31:"NC="C(L):"WI="WI(L):"HE="HE(L):"HS="HS(L):"VS="VS(L):"PR=";:PT(L)ĺC(FI)(FA(FI)1):WI(FI)(FA(FI)2):HE(FI)(FA(FI)3)HS(FI)(FA(FI)4):VS(FI)(FA(FI)5):PT(FI)P(FA(FI)6):PR(FI)((PT(FI)))PR(FI)ĹFA(FI)6,0:FA(FI)7,0:FA(FI)2,8:WI(FI)820850:ZFI:20010:LE(FI)C(FI)HE(FI)8(PR(FI)C(FI)):A(FI)PT(FI)CA(FI)32,ZN;CN$:24100:Z$(CA(FI)):150FCO$:UpLOAD FONTz20100:"Font name? "CA$;:INP,(28),AN$:Z$AN$:20700Pİ20100:"File not found.":20900:FL0:20200:D$"BLOAD"Z$",A"FA(FI)FL17CU(FI)(FA(FI)):3)1:BM(3)HE(FI):24000:OFFI:FI3:23000ABOX,243,0,279,191MAFT,OFhFIOF:EC$EC$(9)5070zPR(FI)5069CO$:Q$"PROP WID = "((FA(FI)PT(FI)CA(FI)32))" CHANGE IT":20400:ZN5069Q$"PROPORTIONAL WIDTH":Z11:Z28:20300:FT CHARACTER IN FONT&FL0İ20800:/FC1:20200tHE(FI)0İ20100:"That font is not active.":20900:20100AFT,FI:CN$22000:CO$:CH$""ıNOW THAT WE HAVE SELECTED A CHARACTER, LETS EDIT IT*LM(3)1:RM(3)WI(FI):TM(L2L1L13"{(L2);"{L2"{"{L1#{AFT,x`8@?~H|s MENU PROGRAM<#$|CL$O#.|D$;"RUN MENU"U#8|NU PROGRAM<#$|CL$O#.|D$;"RUN MENU"U#8|C11!>{CO,204,21!H{CO$;XX$(L2)"R{CO,232,L1L2"\{Cp2"()"0"f{236,L1L2162368,L1L2168"p{L2@"z{L1Z"{CLEAR TAIL AND ZEBUGq"{BOX,202,40,279,68"{BOX,210,0,223,40{CO$"{FLY CHOPPER AWAY"{L156914"{CO,224,21"{084 zCO$ zL214 zCO,204,21!zXX$(L2)!z239,L1L2240,L1L2!!zL2*!zCN8!zCO,232,112C!zZZ\!zZ1ĺCN$;"!":31480i!zCN$;"$"q!zL1z!{CN$! {0!{B 108,108,217,132! {RAISE ZEBUG UP!*{L1107374!4{L24CK TO MENU PROGRAM#$|CL$##.|11F#8|"Getting the menu program..."Y#B|D$;"RUN MENU"_#L|$4 zZ1I &zFLY CHOPPER OUTY 0zL102004e :zL214v DzCO,L2L1,21 NzXX$(L2) XzL2 bzL1 lz3 vzLOWER ROP@ND MAKE ZEBUG WAVE zL138168,L1L216"p{L2"z{L16"{CLEAR TAIL AND ZEBUGM"{BOX,202,40,279,68c"{BOX,210,0,223,40l"{CO$"{FLY CHOPPER AWAY"{L156914"{CO,224,21"{L2L1L13"{(L2);"{L2"{"{L1"{AFT,1"|CN$"|HSP:VSP#|GO BAzCN$!zCO,232,112!zZZ8!zZ1ĺCN$;"!":31480E!zCN$;"$"M!zL1V!{CN$]! {0v!{BOX,108,108,217,132! {RAISE ZEBUG UP!*{L1107374!4{L2411!>{CO,204,21!H{CO$;XX$(L2)!R{CO,232,L1L2!\{CN$;"()" "f{236,L1L21623C$ 0Y3v0YUX243:UY96HE(OF)2:UX,UYUX(WI(OF)4)2,UYUX(WI(OF)4)2,UY(HE(OF)4)2UX,UY(HE(OF)4)2UX,UY0YUX(FI)UX1:UY(FI)UY1:AFT,FI:CN$:WIWI(OF)0Y242000YX(3)1:Y(3)1:SXUX(FI)1:SYUY(FI)10Y1SX,SY1Y20910:EC$(CO)4DICO4/hV105:22020//VCHOOSE CHARACTERH/V150:CH$(CA(FI)):Y/WCHANGE FONTj/&WOT(FI1)1~/0WHE(OT)022020/:W150:FIOT:AFT,FI:250:300:22020/YEDIT SINGLE CHARACTER0YPR(OF)ĺ:CO,243,0:CO$"WID="(FA(OF)PT(OF)CA(OF)32);CA(FI)2,8:&.UGET CHARACTER IN FONT4.U250:300I.V20910:EC$(CO)|.VF0:L1110FC2:EC$EC$(L1)F1:COL1:L112.VL1:F022020."VCO922100.,VCO822070,22200,22300,22300.6VZ$(CA(FI)):150:CH$"":.TVMOVE CURSOR /^VDICO:CO(C(FI)1)24)1:6-QWAIT FOR KEYPRESS: CLEAR STROBED-Q16368,0-Q16384,128:CO(16384)128:16368,0:COCO(CO96)32:-RMAKE FONT PROPORTIONAL .RPT(FI)LE(FI):LE(FI)LE(FI)C(FI):PR(FI)1:L0C(FI)1:PT(FI)FA(FI)L,WI(FI)::WI(FI)8:F,PVERIFY FILE PRESENCE#,P206000,PEF0:P0K,PEFĺD$"VERIFY"Z$:P1Q,Pm,@QERROR: NO LOADED FONTS,JQ20100:"No fonts are active.":20900:,rQDEFINE FONT MARGINS,|QTM(FI)1:LM(FI)1:RM(FI)(24(C(FI)23)(C(FI)(C(FI)24)))-QBM(FI)(INPUT WITH PROMPT Q$d+O20100:Q$;"? ";:INP,(3,"YESNO"),AN$:AN$(AN$,1):AN$"Y"AN$"N"20410w+OZN(AN$"Y"):+PERROR: EXCESSIVE FONT LENGTH+P20100:"Font too long.":20900:+xPONE MOMENT PLEASE...+P20100:"One moment please...":I(2))(ZA)ıJ*N20100:"Font Number? ";:INP,(1,"12",FL),AN$:AN$""ıZ*NFI(AN$):*LOGET NUMBER WITHIN SPECIFIC RANGE (Z1-Z2) WITH PROMT Q$*VO20100:Q$;"? ";:INP,(((Z2)),N,ZC),AN$:ZN(AN$):(ZNZ1ZC)ZNZ220310*`O+OGET YES/NO O,0,0100(Z2):CT0:HB$(HB(Z));:ZL1C(Z):(ZL31);:CTCT1:CT24ĺ:HB$(HB(Z));:CT0i)>NZL:CO$:)NCLEAR COMMAND LINE)N:BOX,0,89,279,99:CO,0,89:)NGET FONT NUMBER)NFL(HE(1)0HE(2)0)FI1(HE(2)0): *NFL(HE(1)HE(2)WI(1)WNE:EC$(NE):L1NE:EC$(L):L(('CL$j('DFT,1,FA(1):DFT,2,FA(2):DFT,3,37936:232,64:233,148:0:1('PC:PI$(PC):L1PC:PI$(L):L('( NSUPPORT SUBROUTINES(*NDISPLAY FONT Z(,NBOX,0,0100(Z2),279,88100(Z2)(/NAFT,Z:CN$Z)4NC)FA(1)MF:BUFA(2)MF:X(1)1:X(2)1:Y(1)1:Y(2)1:UY(2)100:HE(3)4:WI(3)4:CL$(12):FL0:CO$(15):CN$(14):HB$(0)"":HB$(1)"":CL$(12):CA$(1)'~'CU$(1)" ":CU$(0)"!":CU$(3)(34):CU$(2)"#"''NC:C$(NC),PC$(NC):L1NC:C$(L),PC$(L):L('URSOR.TAB,A$9440"1&V'EFĺ"FILE(S) NOT FOUND.":D&`'24576:NOJUSTa&j'CONSTANTS AND LOCATIONS&o'FA(2),X(3),Y(3),UX(3),UY(3),HE(3),WI(3),HB$(3),C(2),CU(2),HS(3),VS(3),PR(2),PT(2),CO(3),CA(3),CU$(4),HB(3),LE(2),LM(3),RM(3)'t'MF2048:FA(1)29696:FA(2)(S1)FA(FI)8:E(S)BU(Y(FI)1)WI(X(FI)1):D(S)(E(S)):P(S)(S)(S1)256:H(S)(S256):L(S)SH(S)256%8'230,64%B'EF0&L'(24576)76ĭEFĺD$"BRUNHPRINT":EFĺD$"BRUNFUTIL.OBJ":EFĺD$"BLOADCURSOR.FNT,A$9430":EFĺD$"BLOADC(FI)ĹFA(FI)6,0:FA(FI)7,0"$P#7$%HIGH BIT STATUSJ$&%FL0İ20800:f$0%ZA1:20200:ZA0:20100$:%Q$"Do you want the high bit set":20400:HB(FI)ZN:ZFI:20010:$'INITIALIZATION$'40000$$'(4)"MAXFILES1":16384:D$(4){%.'C(S)HE(FISAVE FONT#-#FL0İ20800:2#.#ZA1:20200:ZA0h#/#PR(FI)ĹFA(FI)6,L(PT(FI)):FA(FI)7,H(PT(FI))#2#20100:"Name to save? ";:INP,(25),AN$:20600:EFĺD$"BSAVE"AN$",A"FA(FI)",L"LE(FI)#<#EFİ20100:"Error while saving...":20900:EF0:$F#PR00:0"CL$CO$:20600:BPK,PHPWHE(FI),WI(FI)"XCCA(FI)32:LOBU:L0PH1:L10HE(FI)1:L20PW1:FA(FI)8HE(FI)(LPWL2)XCHE(FI)L1,(LO):LOLO1::::25200:"4!QUIT">!Q$"Do you really want to quit":20400"H!ZNı"R!31030 #(#:L0PH1:L10HE(FI)1:L20PW1:LO,(FA(FI)8HE(FI)(LPWL2)XCHE(FI)L1):LOLO1:::!rBUN,PHPWHE(FI),WI(FI):LM(3)1:TM(3)1:BM(3)PHHE(FI):RM(3)PWWI(FI):UX(3)138(RM(3)2):UY(3)94(BM(3)2):OFFI:FI3"|25000:FIOF:EC$(27)İ2523856ZE}ZE25531000g}ZM01:ZP(ZL):(ZP);:ZM(ZP127):ZLZL1:ZM:" error at line #"ZN"."y}30000:31000 STANDARD YES-NO INPUTCA$;:GCP,ZX,ZYCO,ZX,ZY:INP,(3,"YESNO",1),Z$:Z$(Z$,1):Z$"Y"Z$"N"36020 ,E MODE COMMANDS9:Ã15,I,J,M,K, ,, ,,W,A,Z,S,""," ",E?:ó,A,"ALTER PARAMETERS",B,"BLANK FONT",C,"CREATE FONT",D,"DISPLAY FONT PARAMETERS",E,"EDIT CHARACTER",F,"FILES",H,"HIGH BIT STATUS",L,"LOAD FONT",M,"MOVE",Q,"QUIT",P,"PICTURE",S,"SAVE FONT"9dòEDIT COMMANDS9nÃ13,I,J,M,K, ,, ,,""," ",1,2,E:òPICTUR@ERROR PROCESSING68JER(222):LN(218)(219)256M8TER0ER16EF1:e8^LZ53856ER:(15);8hER255ĺ:"ERROR CTRL-C HIT AT LINE #"LN".":8r:MZ01:PE(LZ):(PE);:MZ(PE127):LZLZ1:MZ:" ERROR AT LINE #"LN".":8PòCOMMANDS9ZÃ12UY(FI),PHHE(OF),PWWI(OF):27pbDRAW WORK SCREENO7zbCL$:HE(1)0Z1:20010g7bHE(2)0Z2:20010m7b7yENDING ROUTINE7"yQ$"Do you really want to quit":204007,yZN102076y:CL$:CO,0,85:"Getting the menu program...":D$;"RUN MENU"81:COL1:L1PC6a:F250306aCO9COCO(CO4)4:DICO:1SX,SY:400:SX(X(FI)1)4UX(FI)1:SY(Y(FI)1)4UY(FI)1:1SX,SY:250306aCO14ĹE(S),(D(S)):350:CU$(D(S)):1SX,SY:250306a6 bDRAW EDIT SCREEN7bAFT,3:CN$:PEW,UX(FI),)1:Y(3)1:SXUX(FI)1:SYUY(FI)1:WIPWWI(OF):3:UXUX(FI)1:UYUY(FI)1:UX,UYUX(WI(OF)4PW)1,UYUX(WI(OF)4PW)1,UY(HE(OF)4PH)1UX,UY(HE(OF)4PH)1UX,UY5a25100:1SX,SY5a20910:EC$(CO):EC$(13)ı 6aF0:L11PC:EC$PI$(L1)F CURSOR WHILE EDITINGb4^1SX,SY:400:SX(X(FI)1)4UX(FI)1:SY(Y(FI)1)4UY(FI)1:1SX,SY:q4P_ ZERO RAM4Z_LSLEL:L,0::4_MOVE RANGE SL,EL TO LO4_MOVE,SL,(ELSL1)LO4_4aPICTURE EDITING ROUTINES4aEDIT PICTURE5aCL$:X(3LOCA(FI)31:LOC(LO):L0HE(FI)1:BUL,(LOL):LN3]BUN,HE(FI),WI(FI):d3$^PACK A CHARACTER3.^LOC(CA(FI)31):BPK,HE(FI),WI(FI):L0HE(FI)1:LOL,(BUL):L:3^PRINT OUT EDIT CHARACTER3^PEW,UX(FI),UY(FI),HE(OF),WI(OF)3^4^MOVE72ZE(S),(D(S)):Z$CU$(D(S)):150:1SX,SY:23034K2[ERASECHARACTER2[BOX,UX1,UY1,UX(WI(OF)4),UY(HE(OF)4):OXX(FI):OYY(FI):L1HE(OF):Y(FI)L:L11WI(OF):X(FI)L1:E(S),0:L1:L:X(FI)OX:Y(FI)OY:1SX,SY:2]UNPACK A CHARACTER53]1YEC$"E"İ23300:23034,1YEC$(13)ıZ1ZF0:L1110:EC$EC$(L1)F1:COL1:L112l1 ZL1:F23034|1ZCO9231001ZCO823080,232001(Z18p8p 00 `0 0`0yφUUUUUU~{{~?30000000{{~88~~|xx~~~~{{~~~~<f~<<~~<8p~~````````~~p8~~~~<~Áp8{{~>>>>~~~~~~~~{~<8x~~~8p~~~~~80000~~~~~888888 08pp8`p88p`~>?<~t`8888888888ffffffffffff`g8pɉxx{s8p8p``````p888~<<~ۙ 08888p<~  ``````||~~|||`````f<~l8fl8l~|8p0````0``````````00``pڌ8888|||0000000|l8fl88lf< 0``0  8l`0|~~~~~~|| f<ff<cc>;gg;330000000;gg;c><c`?12:" Direct inquiries to:"H:WIND,48,116,279:CO:"MECC Distribution":"3490 Lexington Avenue North":"St. Paul, Minnesota 55112":"(,Y1:CEWSHOW DESCRIPTIONS[L1N:GCP,ZX,ZY:ZY150ZYY1İ30000::CO,X1,Y1:CEWMN$(L)::" ";:GCP,ZX,ZY:WIND,ZX,ZY,279,191:DS$(L)WIND:::L30000:CL$ SUPPORT BOOK INFO,*CO:VSP,10::"A manual to aid in the use ofed HPRINT that facilitates combining high resolution graphics with text. ";"The capabilities of HPRINT include upper/lower case text in various sizes and styles, animated or still graphics, and pre-screening of input.":30000:VSPY1Y16:CO,X1L432L,6L:2352L,6L269,6L:9,183L392L,183L:2392L,183L269,183L:XqXGENERAL INFORMATIONbCL$TI$CC$:PA$""ĺPA$CC$lVE$CC$:::GCP,X1,Y1LvVSP,4:"The MECC Hi-Res Toolkit is built around a machine language program nam6:X10:Y10:X2278:Y2191:DX18:DY12:L02X1DXL,Y1LX2DXL,Y1LX2DXL,Y1DYLX2L,Y1DYLX2L,Y2DYLX2DXL,Y2DYLX2DXL,Y2LX1DXL,Y2LX1DXL,Y2DYLX1L,Y2DYLX1L,Y1DYLX1DXL,Y1DYLX1DXL,Y1L:R1:L02:9,6iskette."CC$ 30000:CL$@ CS(P(P(999))1)16: SLOT #T CS1CS7CS6\ CSb s pDRAW BORDER z4:21,021,191 1:9,69,33:11,611,32:9,1589,185:11,15911,185:267,6267,32:269,6269,33:267,159267,185:269,158269,18502000! A$"6"įUNHOOK::::2 A$"7"5000D A$"3"İ8000Y RUN THE PROGRAMk XX(P(78)) A(A$):CL$:WIND:HSP:VSP:CO,0,89:"Getting "MN$(A)"...":AFT,0,0:D$"RUN";CN$(A)  END OPTION CL$:CO,0,89:"Insert another d270:CO:"Programs:":; L1N:4(L9):L". "MN$(L)::M "Options:":n 4:"5. General Information" 4:"6. Exit to BASIC" 4:"7. End":: RESPOND TO USER'S CHOICE "Which number? ";:INP,(1,"-17",1),A$:WIND A$"5"İ7000:RIPTIONS AND FORMAT SCREEN6 VTITLE$,PART2$,VERSI0N$v `MN$(N),CN$(N),DS$(N):MENU NAME, CATALOG NAME, DESCRIPTION jL1N:MN$(L),CN$(L),DS$(L): DISPLAY MENU CL$:6000:CO,0,MT:CN$TI$CC$:PA$""ĺPA$CC$ CO$:GCP,ZX,ZY:WIND,ML,ZY,):CO$(15)& P(S)(S)(S1)256i D$;"BLOAD ASCII BOLD.PFT,A$7400":D$;"BLOAD TITLE.PFT,A30568" 230,64:24576:DFT,1,29696:DFT,2,30568:AFT,2,1:CO$:HSP:VSP:WIND $N4:MT13:ML37:# OF PROGRAMS,MARGIN TOP,MARGIN LEFT LREAD IN DESCm MECC HI-RES TOOL KIT.PROGRAM: MENUKPROGRAMMER: P. BOUCHARDi(COPYRIGHT (C) MECC, 19842LAST UPDATE: 84/05/22 RPB<PROGRAM DATA STARTS AT 50000INITIALIZATION16384 CA$(1):CC$(3):D$(13)(4):CL$(12):CN$(14              pppppphpxp p ` pphpp  xx  hȨh @pt/$ HHH0`p  00px` P`pxx``px`p`hp Pppxxpppxpp pp ` pppp  the software, you must first secure rights from MECC to use HPRINT or the fonts provided." .CO,0,119:"For information, write:"::GCP,ZX,ZY:WIND,33,ZY,279:CO:"MECC Legal Department":"3490 Lexington Avenue North":"St. Paul, Minnesota 55112":4 ,29696:AFT,1,1W WIND,19,10,267:3:0,00,100279,100279,01,01,100278,100278,1} CO:"RESTRICTED USE NOTICE"CC$:[ $"You may use MECC Hi-Res Toolkit in instructional settings or in the development of software. However, if you plan to marketCOLUMN CARDk ::(978)157Ģ12:"THIS PRODUCT NEEDS AT LEAST 48K TO RUN.":16384,128:16368,0:32000} MAIN PROGRAM :230,64:D$"BRUNLOGO":16304,0:16297,0:16299,0:16302,0 D$"BLOADASCII BOLD.PFT,A$7400" D$"BRUNHPRINT":DFT,1 MECC HI-RES TOOL KIT/PROGRAM: HELLOMCOPYRIGHT (C) MECC, 1984l(LAST UPDATE: 84/05/22 RPBdINITIALIZATIONnD$(13)(4):P(X)(X)(X1)256xCC$(3):CL$(12) (65435)6ĺD$"PR#0":D$"IN#0":16372,0:TURN OFF THE 80-TTT@ dDLDLdHTX8X4X<DDDDD| (D0  (8DDD8||>@ @> d~8||8|Ƃ|`0  0`@  @|||ƺ|(DDD8||88|8D||88TT88TT8||x08DD(r((H@ @D(t`$H((|(|(((~|*(8D@D88@8@8H$ @@  D((D|88|88|8DDDDD8088D @|8DD8HHH||@xD8 @xDD8|D8DD8DD88DD<088888888 @@     0003f<ff<cc>cc>>cc>0000000t` ```````fffffff~l6iɆpq{0`0``0`00000`Z<`~~6    0003f<ff<>gccccg>>~~p` fffffffffl6iɆpqs 0 000000 0 0Z<|~~6    4z#??   ΠŮԠ ŮԠ ӮԠ ǮԠ" ŮԠԮԠ ɮԠ ɮԠ!ɠĮԠ"ɠĮԠˮԠŮԠîԠ ԠҠ4ԠҠ̮ʠҮ ҮԠҮԠǮԠàɭӠԠ Ϡ ՠϠ Ԡ ԠӠŠ͠ ]AAC?dGsBs600p00CBnJ*NG_A|BpxdGsBcB6cCtwutJUNGAGsBsB63CCnJ*NAsBc600`CFJUOAs``wBfgC{9{{ J*B MBlLC8W0W8JUBBgBlgClk {|J*BBC AC~~|~~JUUNG_<BB~BBBYCFJUNG\AAyAI9ydGQF@``DpA`@HB@@_BY_CFJ*NG\ ~|| NOdGOG|L|HBFACFJUNG_p`g``pdGOCFJ*NG\8C|8dGO~x`FDQB oBlOCFJUNG]A~CA~eGP?D@D`DpD8DBBBLBlOCFJ*NG\I?dGOaHDQBBOB`OCFJUNG\CACdGQ|0TAA >~~B@@oBLOCFJ*NG\ABAdGOE@`ppG`@GBCFJ*NG\OF@IIDOdGJp`@UCUBUBUUUBUABUCUBOBfFCFJUNG\AAyAAyAdGN~C*B*B* FBC BBB CFJ*NG\<COCFJ*NGAGOC_B WUUUBUABUCUBB>0CFJUNGTGIAbGLB?C*B*B***B*AB*C*BBB3t u@ )` t t t0H)?hJ t t t?Lt t&'&Ȅ``tt ttt`t)tJJ tttt .t .t ntt)      QpRpZp[p߹Zp[pIo pIo , g =p ,Ho $pMp) Np OpPp)?p ߅ l Mo ) L{o HHH>p hhh ɛ Moo0LooɈ95ɍ=p7,?p >p h5880`L =p>p?pHoAp ( $pL!o | {$0! >p ,Ln ^ {$0LnNHo Lo|Jo nr- p nKo n p-KoKoKo pLnnJoLoJo^`NHo Qphh,lp` ֩PyQ ALŠҠ僁iimiʈ i i &'iq& iLi N8`f `.f`xmym ` ң Σ  h`+ hR("  LPj,Hk  l  hl`L, HHHHHHHHH k ީl wjlNO,ɍɠ ɛ8nl,lPݩ lhhhhhhhmHihʍ i i i LiL 2k 3kM4k2k g<>=M4k?'<>2k2k3k` H g Rh PQ`L     խ)?` ` @)`,` Rj ެiii g&' i jQ&-iQ&&ii i`*U U*ժ Fj')JMFj)i Q&,iP 0=Kj`Gj`J&)` `L3f̙ujvj ߅$0Hujvj LbLvjj j` hiii h8)h` g R  QP (`L h`L)  @ iiiiiiiii g iii i i g iii i iBi g&' i jQ&-iQ&&ȭi i j& jQ&-iQ&&ii i`i-hhh hJ` &eeieh ghIiVhi 썛h gmh﬜hMhVhPjjjjjjj0jj) h0ȱjhjhhУ`8pPH)8 qȥq-`,f`imimʈ i iiʎ iLi Aggg` gg }ggg` g Ag }gggg`{g|g|g8pug.{g(ugg|gm{gg`8p g)gJJ gg gg .g .g ngg)ggmgg`hH80 " Jfm8h)` dem88eLf` deme` d8` f@ yf yf f`Lb dffL(f ``fʽ`) ` `fH`mS` dS`)We`Ve hWe gVe}`mf8ff`f` dLb,0*`%f 8fHfJhj`mfff` b d` b dI``L defff`) ffffffO,0 `)  d`f(`HHf,Pf88`f d fhLcfHfHff,P d fhf8hfffffff``S`S```f穀f f`f3f'ff ``)    LX8e湥 pHpH L`@ @ʩ WRPT` J  dȱȱȱ` hfH) #,f h`` fffffffh`f fS```emffff f`em (f%%h $20 LPc $ aHaH`dWeceWeeeee'fIfbffffff(bb d cf hf gNOH c h f ghH ,aɈ( cb h) e f g c ebbh`xo 8ɀ`?```L`bbbbp$% `@ GaLa6 ,fLbLcfPa bHaa,aaɠ,wa ` a欇aah`ɀ)?  @IH c$ d e$%0 d         IS IS THE FIRST GAME#BS041101CO,158,6I"Best score = ";BSvW3:BC5:X1150:Y11:X2268:Y217:21000PRINT GAME BOARD (1-99)CO,2,40"L199,L10ĺ" ";6L;" ";@L10(L10)ĺ:CO,2JLT^SPECIAL CASmber of tries. Good luck!";(34),* SPACEG4 INITIALIZE BEST SCOREP> BS0zTHIS PROGRAM BLOCK CONTROLS THE GAMEPRINT TOP PART OF GAME SCREENCL$CO,9,6"Guess #"W3:BC5:X13:Y11:X280:Y217:21000IF BS=0 THEN TH "; WIND "The rules are very simple. I will think of a number between 1 and 100, and you try to guess the number. If you don't guess the number, I will give you a clue. ";! "The object of the game is to guess the number in the fewest nu0,105200,105200,115215,120200,125200,13590,13590,105F SPACEa PUT ZEBUG BEFORE TEXTj CL$w CO,3,33 CN$;"$%";CO$ PRINT PAGE. SELF PARSES WIND,30,30,279,191 CO (34);"One of my favorite games is NAME THAT NUMBER.NUMBER";CC$8 W5:BC2:X160:Y141:X2219:Y261:21000F& PAUSE,10[0 ZEBUG STANDS UPd: CN$tD CO,232,112~N "$%"X CO$b PAUSE,10l WIND,100,110,190,130v CO HSP,1 "Hi! My name is ZEBUG." DRAW BALLOON 3; 9 CO,232,112 "$%"% PAUSE,10U THIS PROGRAM BLOCK PRESENTS THE GAME RULESe ZEBUG BOWSu CO,232,112 "yz" PAUSE,10 SET ZEBUG FONT AS ALTERNATE FONT AND ASCII BOLD.PFT AS PRIMARY AFT,3,1 CO$  5:"NAME THAT AY L156914!$ CO,224,211. L2L1L13=8 (L2);EB L2KL SV L1f` ERASE CHOPPER}j BOX,239,19,249,39t DO ZEBUG DANCE~ CN$ L1110 CO,232,112 "cd" PAUSE,1 CO,232,112 "ef" PAUSE,1 L1 LIFT ROPE UP WHILE THE CHOPPER IS MOVING20:C0FL119RL214k237,111C240,111C237,110C240,110CCC2CO,204,21XX$(L2)L2L1CLEAR TAIL OF CHOPPER BOX,204,19,224,40 FLY CHOPPER AWNCEFLY CHOPPER OUT(L1020044L214ECO,L2L1,21RXX$(L2)Z L2bL1 LOWER ZEBUG FROM MOVING CHOPPER*L14010844L214>CO,204,21HCO$;XX$(L2)RCO,232,L1L2\CN$;"()"fL2pL1zCO$+)(L2) PL2 ZL1" dSPACE+ nCL$F xSET WINDOW TO DEFAULTP WIND MAKE FONT 3 THE ALTERNATE FONT AND FONT 2 THE PRIMARY AFT,3,2 SWITCH TO FONT 2 (CHOPPER) CO$THIS PROGRAM BLOCK HANDLES THE HELICOPTER ANIMATION SEQUEABLES FOR BORDER GENERATOR AND GOSUB e WIDTH, BORDER COLOR, UPPER LEFT CORNER, LOWER RIGHT CORNER W5:BC1:X15:Y120:X2273:Y2130:21000 BUILD STRINGS FOR CHARACTER ANIMATION C0 (L132556 2CC1 <L2L1L15 FXX$(C)XX$(CMPLE PROGRAM";CC$:2 SET VERTICAL SPACING TO 4= VSP,4g PRINT DESCRIPTION. HPRINT WILL PARSE "This program uses many of the features of HPRINT. The program listing contains remark statements to explain these features."% SET UP ALL VARI,3,320160 VMAKE ASCII BOLD THE ALTERNATE FONT; `AFT,1] jSWITCH TO THE ALTERNATE FONTf tCN$z ~SET PARSE MODE PARSE DEFINE PRINTING WINDOW WIND,26,20 POSITION CURSOR INSIDE WINDOW 2 PRINT AND CENTER TITLE "SADEFINE COMMON CONTROL STRINGS\ $CA$(1):CC$(3):D$(4):CL$(12):CN$(14):CO$(15)w .LOAD AND DEFINE FONTS 8D$;"BLOAD ASCII BOLD.PFT,A29696":DFT,1,29696 BD$;"BLOAD CHOPPER.FNT,A30568":DFT,2,30568 LD$;"BLOAD ZEBUG.FNT,A32016":DFT PROGRAM: SAMPLE PROGRAM<PROGRAMMER:KEVIN MCGRATHZCOPYRIGHT (C) MECC, 1984y(LAST UPDATE: 05/21/84 RPBTHIS PROGRAM BLOCK HANDLES ALL THE SET-UP BUSINESSLOAD AND CONNECT HPRINT16384230,64(4);"BRUN HPRINT"           FA(FI)5,ZN&LE(FI)HE(FI)C(FI)8|PR(FI)0:FA(FI)6,0:FA(FI)7,0:Q$"Is this font proportional":20400:ZNİ21000LE(FI)MFİ20500:20600:SLFA(FI)8:ELFA(FI)LE(FI)(C(FI)PR(FI)):24400:20850:ZFI:20010:X(FI)1:Y(FI)1:EDI28:20300:WI(FI)ZN:FA(FI)2,ZNXQ$"Character height":Z2(MF8)C(FI):Z244Z244z20300:HE(FI)ZN:FA(FI)3,ZNQ$"Horizontal spacing":Z10:Z210WI(FI)20300:HS(FI)ZN:FA(FI)4,ZN Q$"Vertical spacing":Z10:Z28:20300:VS(FI)ZN::ELFA(FI)LE(FI):24400:ZFI:20010:;CREATE NEW FONTZFL0:ZA1:20200:ZA0:FL1Q$"Number of characters":Z11:Z296:20300:C(FI)ZN:FA(FI)1,ZNQ$"Cursor character":Z2ZN:20300:ZNZN31:CU(FI)ZN:FA(FI),ZN!Q$"Character width":ZPT(FI)0:29305i LE(FI)C(FI)MFİ20500:PR(FI)0:Lj 21000:ZFI:20010vm PR(FI)PT(FI)0:LE(FI)LE(FI)C(FI)|r  BLANK FONT FL0İ20800: ZA1:20200:ZA0 Q$"Do you really want to do this":20400:ZNı& 20600:SLFA(FI)8 Q$"Old = "(VS(FI))" New vertical spacing":Z10:Z2(88HE(FI)BM(FI))BM(FI):20300:FA(FI)5,ZN:VS(FI)ZN:ZFI:20010:T PROPORTIONALITY^ Q$"Make font ":PR(FI)Q$Q$"non"c Q$Q$"proportional":20400:ZNıh PR(FI)(PR(FI)):PR(FI)PT(FI)PT(FI)(ZNHE(FI))C(FI)bZ LE(FI)LE(FI)(ZNHE(FI))C(FI):HE(FI)ZN:20850:ZFI:20010:z HORIZONTAL SPACING Q$"Old = "(HS(FI))" New horizontal spacing":Z10:Z210WI(FI):20300:FA(FI)4,ZN:HS(FI)ZN:20010: VERTICAL SPACING}L2,(L1):L1L11:L2L21::L1L1(HE(FI)ZN):F ZNHE(FI)L1BU:L2FA(FI)8:I1C(FI):J1HE(FI):L2,(L1):L1L11:L2L21:J:J1ZNHE(FI):L2,0:L2L21::K ZNHE(FI)ıP PR(FI)SLBUC(FI)HE(FI):LOFA(FI)8ZNC(FI):ELSLC(FI)1:24500:600:20010:( HEIGHT2 Q$"Old = "(HE(FI))" New character height":Z11:Z2(MF8PR(FI)C(FI))(C(FI)VS(FI)):Z244Z2447 20300:20600:FA(FI)3,ZN:SLFA(FI)8:ELFA(FI)LE(FI):LOBU:24500/< ZNHE(FI)L1BU:L2FA(FI)8:I1C(FI):J1ZN:" New number of characters":Z11:Z296:20300:Z1ZNHE(FI)8(PR(FI)ZN):Z1MF20500t FA(FI)1,ZN:C(FI)ZN:20850:LE(FI)Z1~ ZFI:20010: WIDTH  Q$"Old = "(WI(FI))" New character width":Z11:Z28:20300:FA(FI)2,ZN:WI(FI)ZN:ZFI:202400,2500,2600,2700,2800,2900+ ZF2030P WIND,243,0,279,191:BOX:WIND:f CURSOR CHARACTER  Q$"Old = "(CU(FI)31)" New cursor character":Z11:Z2C(FI):20300:FA(FI),ZN31:CU(FI)ZN31: ` NUMBER OF CHARACTERSVj Q$"Old = "(C(FI))31045J $CO2000,3000,4000,6500,5000,7500,9500,6000,7000,8500,8000,9000T .1010o ALTER FONT PARAMETERS FL0İ20800: ZA1:20200:ZA0 6520:WIND:20100:Q$"Alter parameter (CR to exit) ":Z11:Z27:ZC1:20300:ZC0:ZF(ZN0):ZN2300,X(FI)X(FI)1:X(FI)RM(FI)X(FI)LM(FI)0 A MAINPROGRAML 10000 20100:HB$(0)"COMMAND: ";:C$:C$"`"C$"~"C$((C$)32) F0:L1NC:C$C$(L)COL:F1:LNC L:F1010 PC$(CO); C$:(C$)27(C$)81010 (C$)1)(Y(FI)1)(HE(FI)VS(FI))' mCO,X,Y- rL FIX POSITION WITH MARGINSd DI410,415,420,425 Y(FI)Y(FI)1:Y(FI)TM(FI)Y(FI)BM(FI)  X(FI)X(FI)1:X(FI)LM(FI)X(FI)RM(FI)  Y(FI)Y(FI)1:Y(FI)BM(FI)Y(FI)TM(FI) *  350:HB$(HB(FI));Z$:> COMPUTE CHARACTER AT POSITIONp CA(FI)((Y(FI)1)24)X(FI)31:Z$(CA(FI)): ,INVERT CHARACTER AT POSITION 1350::HB$(HB(FI));Z$:: ^POSITION CURSOR cXUX(FI)(X(FI)1)(WI(FI)HS(FI))CO(FI) hYUY(FI@2! PROGRAM:HPRINT FONT EDITOR=AUTHOR: SHANE MCCARRONWCOPYRIGHT: MECC 1983v(LAST UPDATE: 84/05/16 RPB224576,0<1000dCURSOR MOVEMENT ROUTINESiMOVE CURSORn150:400:250:300: REPLACE CURSOR WITH NORMAL CHARACTER                t there is a diskette in the drive and that the drive door is closed.":30000:BOX,10,132,269,181,0:2}ZE6Q$(34):Q$A$Q$" is not on this diskette.":30000:BOX,10,132,269,181,0:<}"DOS Error #";ZE:30000:31000n}PROCESS BASIC ERRORx}ZL5SP:CL$:CO,0,89:"Getting the menu program...":D$"RUN MENU,S"OS",D"OD",V"OVc}ERROR PROCESSING }ZE(222):ZN(218)(219)256:EF1}HOOK:16304,0:CO$:ZE1532110}BOX,10,132,269,181,0:400:15e(}ZE8ĺ"I/O ERROR: Please make sure tha:ZP155ZFZF1:ZF2310007LwZP160ZP14130530]Vw1:868:1::ZV:ZH:16368,0:qyENDING ROUTINE"yHOOK:CL$,yP90:29000:400:15:"Would you like to examine another":"font? ";:360006yZ$"Y"İ100:2000M@y216,0:WIND:VSP:HSPACE BAR ROUTINE (HI-RES)@:u0:L16:43,183L235,183L:LZDu:SPACE:L5:29000:x$wSPACE BAR ROUTINE (TEXT).wZH(36)1:ZV(37)1:ZF08w24:1:868:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";Bw16368,0:16384,128:ZP(16384)L1):PXPX11::PYPYLS:?P91:30000:P90:300:100:31020E ]Hq BOX GENERATOR iRqBC:L5\qX0L:B1X,B3XB2X,B3XB2X,B4XB1X,B4XB1X,B3X:XaqP929040fqL115:5,19L1275,19L1:5,125L1275,125L1:pq3zq0u(C1)241):LS142NR:LI25LS:L1NR:5:6,LI11272,LI11:6:8,LI272,LI:LILILS::WIND:CO,0,174:"Equivalent ASCII character chart"CC$PY27:L1C24:PX9:LEL23:LECLECL1LLE:CO,PX,PY:CN$(31L1)CO$:CO,PX1,PYLS10:(31xadecimal = $";TL301:X(L)(NUMBER16L):NUMBER((NUMBER16L)X(L))16L:}L301:X(L)9ĺ(X(L)55);:2230X(L);:30000:200:BOX,7,25,272,1663:L1824622:L11,25L11,166:L,25L,166::260,25260,166WNR("Spacing = ";HSV>:24:"Proportional":25:"font = ";:Z$"YES":P10P20Z$"NO"^HZ$R30000:BOX,10,132,269,181,0\15:"Length of font:"::COUNTP1P2:COUNT1COUNT1fNUMBER(HEC)8(COUNTC)p11:"Decimal = ";NUMBERz7:"He:"# of characters = ";:HT21:(HT(C9)(C99)):C:"Cursor character = ";:(HT(CU319)(CU3199)):(CU31):"Character width = ";WI*"Character height = ";:(HT(HE9)):HE:"Vertical spacing = ";:(HT(VS9)):VS415:24:"Horizontal":25:CU(ME):C(ME1):WI(ME02):HE(ME03):HS(ME04):VS(ME05):P1(ME06):P2(ME07) ZHE((C1)241):CO,10,75Z2 ME06,0:ME07,0:ME02,8:CN$;:L1C24:CO,20:L1LL23:(31L1);::: ME02,WI:ME06,P1:ME07,P2 CO$:15 list of files)"P 15:"Enter font name: "::"[";31);"]";:2:INP,(30,1),A$m (A$,7)"CATALOG"2050 UNHOOK:::EF0:EFĺD$A$:30500 HOOK:400:2030 EF0:EFĺD$"BLOAD ";A$;",A";ME:DFT,1,ME:AFT,1 EF2000Z 100:1:A$CC$:(43626):OD(43624):OV(43622):ORIGINAL SLOT, DRIVE, & VOLUMER  FIRST SCREENq CO:1:"Font Examiner"CC$ 60,50219,50219,10060,10060,50:WIND,80,65:CO:VSP,4:"Press the ESC key twice to quit.":VSP:400: 19:1:"(Type CATALOG for a6384:230,647 ME30568:FONT MEMORY LOADING LOCATION CA$(1):CB$(2):CC$(3):CF$(6):CL$(12):CN$(14):CO$(15):CM$(13):D$(13)(4):QU$(34) D$;"BRUN HPRINT" CL$:B11:B2279:B35:B4184:BC6:L5:P90:29000:VSP,1:400? $OSBOX,10,132,269,181,0:% MOVE LINE, 6` L125166:0:7,L272,L:BC:7,L5272,L5::v ,MOVE LINE (UP) } 16 6L1711311:0:7,L272,L:BC:7,L5272,L5:: SET NORMAL WINDOW WIND,20,10,259,181: INITIALIZATION 1 MECC HI-RES TOOL KIT7PROGRAM: FONT EXAMINERdPROGRAMMER: CHARLES JOSEPH HABERMANN II(COPYRIGHT (C) MECC, 19842LAST UPDATE: 05/21/84 RPBP32000Z1000dCLEAR PARTS OF SCREEN nBOX,10,6,269,18,0:BOX,07,25,272,125,0:     `BUBPMOVPE_M`OVPEp^`` g RPQ ` g RPQ? ؎` g RPQ   ᐩ␭   ` g RPQ ` g RPQ? ؑ` g RPQ   Гѓ Гѓ䩍 iȑ>(=eA=?eA?A@ <><>=?`/)0n/`H08h*/` 3@ABC<=>? @/A0B1C2m/m0ee/ 88Ii0Ƀ` 38L+ɑst+Lɯt 8ɀ   Lޤȱ:,Әe湥 HH L`stLBCF=f< Be>BCe?jCfBfAf@`>=?@2<    5?(L)CL50/:CO,60,72:"&BOX,"X1","Y1","X2","Y2","CLM:/BOX,X1,Y1,X2,Y2,CLlD/SPACE:BOX,55,70,232,80,0sN/LX/:Z11:Z$:Z(Z$"COLORS"):Zb/"COLORS","Black 1","Green","Purple","White 1","Black 2","Orange","Blue","White 2"2L18:CL$(L00/L16:LC(L)0:L#/L16p/ZL0:X1R(264):ZLX115:X2R(279):ZL84:Y1R(165):ZLY115:Y2R(180)/ZL0:CLR(29):ZZ(((CL),1))&/ZZ7ZZ0ZZ4ZZ8ZZ912060*/CLLC(1)CLLC(2)CLLC(3)CLLC(4)CLLC(5)CLLC(6)12060,/LCPRINT contains a BOX command which can produce a colored box of a specified size at any screen location.".Z117:Z268:Z3261:Z482:20000.CO,0,72:"&BOX,left,top,right,bottom,color"CC$.SPACE:BOX,17,68,261,82.Z153:Z268:Z3234:Z482:200(F$,3)"PFT"ĺ" (proportional)"/:CN$;LL232128:(L2);:L2:\CMAXL12dL1zCO$:CO,0:SPACECMAX7025*D$"BLOAD ASCII.PFT,A30568":DFT,1,30568:AFT,1\+1000.COLORED BOXED.CL$"COLORED BOXES"CC$i.:"H"GRAPHIC.FNT","FOREIGN LANGUAGE.FNT","BIG.FNT","LITTLE.FNT"^g:Z11:Z$:Z(Z$"FONTS"):ZklMAX:C0qCL$"FONT SELECTIONS"CC$vL112CC1:F$:D$"BLOAD"F$",A30568":DFT,1,30568:AFT,1CO$;C". "F$;:(F$,3)"FNT"ĺ" (regular)"# create new fonts."_::"The following screens show the fonts available on this diskette."jSPACE|XSCREENS 7-10;b"FONTS",12,"ASCII.FNT","ASCII.PFT","ASCII BOLD.FNT","ASCII BOLD.PFT","BLOCK.FNT","TITLE.PFT","SCHOOLHOUSE.PFT","EMPHASIS.PFT", PARSE:SPACE N" 1000>pCL$"FONT SELECTION"CC$z::"HPRINT is capable of supporting up to eight defined character fonts within a program. ";" There are several character fonts supplied on this diskette along with a FONT EDITOR to SPACE8 Z$(1)"NOJUST":Z$(2)"JUST":Z$(3)"PARSE"C N13q CL$"TEXT JUSTIFICATION- "Z$(N)" MODE"CC$ :"When preceded by the &"Z$(N)" command, the paragraph will be printed as shown below:"::: N1įNOJUST N2įJUST PAR$s three modes of text justification.":E " 1. NOJUST (normal)":s " 2. JUST (left and right justified)": " 3. PARSE (left justified)":: "Each mode will be illustrated by printing the same paragraph using the same PRINT statements." "4. Window selection":@ "5. Character animation"::WIND` "6. Return to main menu": "Which number? ";:INP,(1,"-16",1),Z$:ZN(Z$) VSP,1 ZN2000,6000,12000,15000,17000,31040 CL$"TEXT JUSTIFICATION"CC$' :"HPRINT provide: "The following demonstrations illustrate some of the features of HPRINT. Additional features and explanations are found in the manual.":" " WIND,24,68:CO "1. Text justification": "2. Font selection": "3. Colored boxes": machine language program that facilitates the writing of programs in BASIC for the Apple computer. It is intended for use by programmers." R(ZH)((ZHZL)(1)ZL) ,DFT,3,29696:DFT,1,30568:AFT,1,3 MENU VSP,1:CL$"HPRINT FEATURES"CC$. MECC HI-RES TOOL KIT9PROGRAM: HPRINT FEATURESWPROGRAMMER:KEVIN MCGRATHu(COPYRIGHT (C) MECC, 19842LAST UPDATE: 05/21/84 RPBdCA$(1):CC$(3):D$(13)(4):CL$(12):CN$(14):CO$(15):CP$(16):CQ$(17) nPAR$"HPRINT is a    t ``,41,152,501>CO,52,42:X;",70,";(279X);",191"?>BOX,0,70c>WIND,X,70:CO,X,70:PAR$:WINDr>:SPACE:y>X>BOX,52,41,152,50:BOX,0,70:CO,52,42:"150,70,279,191">WIND,150,70,279,191:CO,150,70:PAR$>WIND::SPACE:1000gBsettings:"4:3:36,86244,86244,10036,10036,86?:SPACE]>CL$"WINDOW SELECTION"CC$c>>VSP,4::"Preceding the text passage with":CO,5:"&WIND, will produce:":VSP>0,40156,40156,510,510,40>X08040 >BOX,52allows easy selection of a print window. This feature is useful in setting margins for text or containing text in a specific area."::"&WIND,left,top,right,bottom"CC$ ::"To illustrate, the same text passage is printed using different window wn above.""v9BOX,0,60,279,100,Nk9Z(280((NM$)7))2:BOX,Z8,73,Z8(NM$)7,83:CO,0,75:CP$NM$CC$9CA$:SPACE:BOX,0,150,279,191:CA$9L191000:CL$"WINDOW SELECTION"CC$:::VSP,1:"HPRINT contains a WINDOW command which S"CC$CQ$9LN:L11LN!9X02&9Q14:L027h09Z(((L),1)):Z8Z9L20L13L24L1714670:9BOX,X,60,X(Q1),100,LD9XXQN9LX9NM$,Nb9BOX,0,150,279,191 l9CO,0,150:"&BOX,L,T,R,B,"N;CA$;" will change existing colors as sho:L027>8Z(((L),1)):Z8Z9L20L13L24L1714670[8BOX,X,Y,X(Q1),Y120,Le8XXQl8L8CO,0,150:"These are the normal colors produced by HPRINT's &BOX command."8SPACE89BOX,84,28,195,38,4:CO,0,30:CP$"NORMAL COLOR 7PAUSE,2 7X7SPACE@8 "COPY",7,"INVERSED",8,"INVERSED-LIGHT",18,"INVERSED-DARK",28,"COPIED-LIGHT",19,"COPIED-DARK",29,"HIGH BIT CLEARED",30,"HIGH BIT SET",31J8:Z11:Z$:Z(Z$"COPY"):Z8CL$"COLORED BOXES"CC$8Y20:X08Q142,L110,L210,C1*3CO,L125,L22:C1"."6"3C1C11J,3L2:C1C12:L1S63C10d@3L4217217pJ3C1C11T3CO,0,L:CL$(C1)^3h3SPACE6CL$"COLORED BOXES"CC$6C106Y156X826386YY56BOX,X,Y,279,180,C16C1C11):N2CL$"The boxes may be colored using any of";:" these color settings."W2C102CO,91,27:"Normal":CO,173,27:"Light":CO,250,27:"Dark"2L1105265802L240170173BOX,L12,L22,L112,L212,3(4((((C1),1))3))3BOX,L1,L(88((8(0xxxx0xx0H0xh0H8|l(000xﯟx00xﯟ2?00xxt??000x@@ `DH?000x@@ `DHtHH ?000x@@ `DH ?000x@@ `DH     %(16384)12837020-%CO,0,180:CEW:4the menu program...":D$"RUN MENU"4$YES-NO INPUTJ$(1);:GCP,ZX,ZY$CO,ZX,ZY:CEL:INP,(3,"YESNO",1),Z$:Z$(Z$,1):Z$"Y"Z$"N"36020$$SPECIAL SPACE BAR ROUTINE$CO,0,180:"Press SPACE BAR to start animation"CC$$16368,0O$ #D1000# NDRAW OPEN BOXq#*N3:Z1,Z2Z3,Z2Z3,Z4Z1,Z4Z1,Z21Z31,Z21Z31,Z41Z11,Z41Z11,Z21:#yENDING ROUTINE#"yWIND:(12);(15):CO,0,89:"Do you want to try again? "(1);#,y36000#6yZ$"Y"Ĭ"$@y(12):CO,0,89:"Getting "pD"ZEBUG.FNT"4"zDAFT,2:CN$;"!%$%cdef()yz":CO$G"D"CHOPPER.FNT"R"DPARSE"DAFT,1:CN$;:L3260:(L);:L::L61112:(L);:L:CO$"D"Would you like to see the animation sequence again? ";:36000"DVSP"DZ$"Y"17025#DAFT,1,3:C0,20,232,55:BOX,232,37,279,57q!BL156914:CO,224,21:L2L1L13:CO$;(L2);:L2:CA$:L1:BOX,239,19,249,39!BAFT,1,3:SPACE!\DVSP,1:CL$"CHARACTER ANIMATION"CC$:!fD"The animated sequence you just saw was done using the following fonts:":1:CN$"ef":L234:CO,204,21:CO$;XX$(L2):L2:L1{ BCO,232,111:CN$"yz":L115:L215:CO,204,21:CO$;XX$(L2):L2:L1 B0 BL1107374:L2411:CO,204,21:CO$;XX$(L2):CO,232,L1L2:CN$;"()":236,L1L2162368,L1L216:L2:L1!BBOX,20L15$BXX$(C)XX$(C)(L2):L2:L1^BL102004:L214:CO,L2L1,21:CO$;XX$(L2):L2:L1BL1381084:L214:CO,204,21:CO$;XX$(L2):CO,232,L1L2:CN$;"()":L2:L12 BL1110:CO,232,111:CN$"cd":L212:CO,204,21:CO$;XX$(L2):L2:CO,232,11hBCHARACTER ANIMATIONFrBD$"BLOAD CHOPPER.FNT,A31442":DFT,1,31442s|BD$"BLOAD ZEBUG.FNT,A33890":DFT,2,33890BCL$"CHARACTER ANIMATION"CC$B37000: SPECIAL SPACE BAR BAFT,2,1BC0BL14:XX$(L)"":LBL132556:CC1:L2L1#G ࠠ p O{ 2r@@@GIMLO{0r𐐐|` ML/0r p O{H0r pA@GIMLO{2r p     PPP@ pxxxxxxpx0H@@@@pxp ` p0`` pبppxxxp@@@@H0hP P Pxp @ @  @  @h @p px Pppxxp ppبȨppph𠐈ppp pP ؈P PP  @@  Pp` PPPPPPPP xp(  @@@h @ @@  p p @  @pȈp ` pp0@0p0Pp8@p @@@ppppx @ @@ @    PPP@ pxxxxxxpx0H@@@@pxp@@@@0`@@@@@بppxxxp@@@@H0hP P Pxp @ @@@@ @@ @@h @p px Pppxx@@@@@pبȨppph𠐈ppp pP ؈P PP  @@  Pth`PPPPP xp(  @@@h @ @@ @ @ p p @@ @pȈp@@@@@p0@0p0Pp8@p @@@ppppx@@@ @@ @   000`0x |||| ||x|8l````|| x0p000x8pp00000xxx|| |x ````l8|x0x0x| x0`00`0000000000`0000`l0`x000x|0xxx||00000 xxxxlxx x000000xx0܌x0xx0000 0``0 0xp`000000lllXXXXX0|x<00` ``t0`0``00 00x0x00000 @0 0`xx0p0000xx 8` 8 x8x x<`x 0```xxxx| 00000`0``0`0 !! ! ! ppxp````pp pppppx```x@ 000 P`0pxxxx```xpppppxp````pp ppppp8``8 000`t`````PPP0xx0 X`hh0`0```0`000`pp 0`@ @pp0p00xppxxp0``ppppxp@@@@0``0`0`p`pppxxxx```xppp" "000`0x |||| ||x|8l````|| x````8p`````lxx|| |x ````l8|x0x0x| x0`0````0``0``v0`x000||0xxx||````` xxxxlxx x000000xx0x0xx0000 0``0 0xth`lllll~~~0` pvv0`0``0`000`~<~0000`` 0`xx0p0000xx 8` 8 x8x x<`x 0```xxxx| ```0``0`0"" " "