þþEdX;save#D:BBKART3.M65n#X;------------------------------xX;BBK Artist - Support Files‚X;ŒX;by: Bryan Schappel–X; #X;------------------------------ªX;´X;Un-Invert Macro¾X;È ‡INVERT Ò Q>4 Ü %>5 æ$> ð ‡UN_VERTúX;X;Display List for SAVEingX;"†SDLIST p=p=p=p=p, p=O=4ƒGR8=5ƒGR86 B@ †SAVMSGJ O=4ƒGR8=5ƒGR8=pT O=4ƒGR8=5ƒGR8^ B=4…SVMS2=5…SVMS2h O=4ƒGR8=5ƒGR8r p=0=O| †GR0SCR† ==== =š A¤ †SDLIST®X;¸X;Display List for LOADingÂX;̆LDLIST p=p=p=p=OÖ ƒGR8à B=4†LODMSG=5†LODMSGê O=4ƒGR8=5ƒGR8ô 0=Bþ †GR0SCR ==== ==0=O ƒGR8& B=4†LODMEN=5†LODMEN0 O=4ƒGR8=5ƒGR8: AD †LDLISTNX;XX;Display List for TXT_DEFbX;l…TXTDL p=p=p=pv O=4ƒGR8=5ƒGR8€ B=4†TXTREM=5†TXTREMŠ O=4ƒGR8=5ƒGR8” 0ž O=4ƒGR8=5ƒGR8¨ B=4…SVMS2=5…SVMS2² O=4ƒGR8=5ƒGR8¼ p=OÆ †GR0SCRÐ ====Ú =ä Aî …TXTDLøX;X;Erase Pic? Display List X;†ERASDL p=p=p=p  p=p=p=p* O=4ƒGR8=5ƒGR84 B=4†ERASEM=5†ERASEM> O=4ƒGR8=5ƒGR8H 0R O=4ƒGR8=5ƒGR8\ B=4…YESNO=5…YESNOf O=4ƒGR8=5ƒGR8p Az †ERASDL„X;ŽX;Text for IOBBK˜X;¢2†SAVMSG =AžSave File &%Format:Koala FileA=¬1…SVMS2 =AžEnter Data &%RETURN to ExitA=¶X;À2†LODMSG =AžLoad File &%Format: A=Ê2†LODMEN =AžMore &%Load &%Exit A=Ô2†TXTREM =AžTexture Define &%Pick 4 ColorsA=Þ2†ERASEM =Až Erase Your Picture A=è1…YESNO =AžNo &%Yes A=ò…FNTNM AŠChar Font Aü…KOLNM AŠKoala FileA…MICNM AŠMicroPaintA…MAGNM AŠMagniPrintAX;$„PFNT A„.FNTA=ƒEOL.„PKOL A„.PICA=ƒEOL8„PMIC A„.MICA=ƒEOLB„PMAG Aƒ.MPA=ƒEOLLX;V"X;Filename Extensions Addresses`X;j…EXTLO 4„PFNTt 4„PKOL=4„PMIC=4„PMAG~…EXTHI 5„PFNTˆ 5„PKOL=5„PMIC=5„PMAG’X;œX;File Format Addresses¦X;°†FORMLO 4…FNTNMº 4…KOLNM=4…MICNMÄ 4…MAGNMΆFORMHI 5…FNTNMØ 5…KOLNM=5…MICNMâ 5…MAGNMì‡DIR_TAB = =öˆFREE_TXT A…E SECA†L_TEXT €=AŠ Filespec:A †T_TEXT €=AŠ Texture:A†X_TEXT €=AŠ Text:AX;(‡INS_TAB †L_TEXT2 †T_TEXT< †X_TEXTFX;PX;Load picture addressZX;dˆLOAD_ADR ‡CHARSETn ˆKOALAPICx ˆMICROPIC‚ ˆMAGNIPICŒX;–X;Perform a Save X;ª „ASAVQ>´ P†FILEXT¾ Q>4†SDLISTÈ P†SDLSTLÒ Q>5†SDLISTÜP†SDLSTLæ †SETNARðX;ú †GETFNM Q…MYBUF R>ƒEOL F†SAV_LV" †ADDEXT,Q>6 …OPENF@ †COMSAVJ†SAV_LV †CLOSE2T !†MENUDL^X;hX;Add File ExtensionrX;|†ADDEXT$†FILEXT† Q…EXTLO9 P„INDRš Q…EXTHI9¤ P„INDR®$>¸%>ˆFIND_EOLQ…MYBUF9Ì P„FNAM9Ö R>ƒEOLà F‡GOT_EOLê2ô HˆFIND_EOLþ‡GOT_EOLQ@„INDR7 P„FNAM9 R>ƒEOL F†EXT_DN&203: H‡GOT_EOLD †EXT_DN:NX;XX;Get a key from the OSbX;l‡GET_KEYQ%äv5€Q$äŠ5”:žX;¨ X;Put type of LOAD in message²X;¼ˆLOAD_MSG$†FILEXTÆ Q†FORMLO9Ð P„INDRÚ Q†FORMHI9ä P„INDRî%> ø…LO_LPQ@„INDR7P†LODMSG8 1 I…LO_LP  Q>4†LDLIST* P†SDLSTL4 Q>5†LDLIST>P†SDLSTLH †SETNARR †CLOSE2\Q>f !…OPENFpX;zX;Erase the Graphics 0 Scrn„X;Ž†CLRGR0Q>˜>¢†CLR_G0P†GR0SCR9¬2¶ H†CLR_G0À:ÊX;ÔX;Input a FilenameÞX;è†GETFNM%>ò ‡INS_PRMü%> X; X;Input Routine X;$ …INPUT'†MAXLEN. $> 8 Q> B †INP_CL ‡PUT_CHRL 2V (> ` H†INP_CLj $>;;length=0t †GET_FN&…SAVEX~ Q> _ˆ †PUTC_X’ ‡GET_KEYœ $…SAVEX¦ R>ƒEOL;;EOL?° F†INDONEº R>~Ä H…INEXTÎ (>Ø F†GET_FNâ Q> ì †PUTC_Xö 0 †PUTC_X !†GET_FN X; …INEXT%…TEXT?( H†IG_CHR2 M>< R> F D†GET_FNP R>`Z F†GET_FNd R>{n E†GET_FNx †IG_CHR(†MAXLEN‚ F†GET_FNŒ P…MYBUF9– †PUTC_X  2ª H†GET_FN´ X;¾ †INDONEP…MYBUF9È Q>Ò P…TEXT?Ü Q> æ !†PUTC_Xð X;ú X;Convert ATASCII to ICODE X; †ASC2IC …BITER LƒA2I9" $…SAVX2, :6 X;@ X;Internal to ASCJ X;T †IC2ASC …BITER^ LƒI2A9h $…SAVX2r :| X;† X;Ready the bits X;š …BITER5¤ U?® U?¸ U? U?Ì M>Ö &…SAVX2à >ê 7ô M>Ÿþ : X; X;Add a '*' to MYBUF X;& †DOSTARQ> *0 P…MYBUF: Q>ƒEOLD P…MYBUFN !†ADDEXTX X;b X;Load a Fontl X;v …AFONTQ>€ ‡LOAD_STP†FILEXTŠ †CLRGR0” †DOSTARž !‡GO_LOAD¨ X;² X;Load a Koala¼ X;Æ †AKOALAQ>Ð H‡LOAD_STÚ X;ä X;Load a Micro Painterî X;ø †AMICROQ> H‡LOAD_ST X; X;Load a Magni Print X;* †AMAGNIQ>4 H‡LOAD_ST> X;H X;Perform Dir/Stick of LoadR X;\ ‡GO_LOAD ˆLOAD_MSGf Q>p P†DIR_NMz P‡DIR_FLG„ †DIR_INŽ †LOAD_1 ˆDIR_PAGE˜ †LOAD_2Q†STRIG0¢ FˆGOT_LOAD¬ Q†STICK0¶ R>À F†LOAD_2Ê R> Ô H‡LOAD_RTÞ "†DIR_NMè I†DIR_G1ò Q>ü P†DIR_NM H†DIR_G1‡LOAD_RTR> H†LOAD_2$ #†DIR_NM. Q†DIR_NM8R>B H†DIR_G1LQ>V P†DIR_NM`†DIR_G1 †DIR_INj „SWTCt !†LOAD_2~X;ˆˆGOT_LOADQ†DIR_NM’R>œ H†DIR_1?¦ !†CLOSE2°†DIR_1?R>º F‡LOAD_ITÄ !†LOAD_1ÎX;؆DIR_IN‡INVERT †LODMEN= â $†DIR_NMì Q‡DIR_TAB9ö>%> †DIRUNLQ†LODMEN9L>€ P†LODMEN9(221< I†DIRUNLF:PX;ZX;Transfer Control to thedX;proper LOAD routinenX;x‡LOAD_IT ‡GETFN_S‚ Q…MYBUFŒ R>ƒEOL– H‡DO_LOAD :ª‡DO_LOAD †ADDEXT´Q>¾ …OPENFÈ G†BD_LD1Ò Q†FILEXTÜT?æ>ðQˆLOAD_ADR9úP‡LOADJSRQˆLOAD_ADR9P‡LOADJSR‡LOADJSR ÿÿ"†BD_LD1 †CLOSE2, !†MENUDL6X;@X;Read a Directory PageJX;TˆDIR_PAGEQ>^ P‡DIR_CNTh P„IND3r Q>5†GR0SCR| P„IND3† Q‡DIR_FLG F†READ_Dš:¤†READ_D †CLRGR0®ˆREAD_DIR$> ¸Q> P…ICCOM9Ì Q>4…MYBUFÖ P…ICBAL9à Q>5…MYBUFê P…ICBAH9ôQ>þ P…ICBLL9Q> P…ICBLH9 „CIOV& IˆSTILL_OK0 #‡DIR_FLG::DˆSTILL_OK%>N‡CHK_FREQ…MYBUF8XRˆFREE_TXT8b HˆNOT_FREEl1v I‡CHK_FRE€ #‡DIR_FLGŠˆNOT_FREE%>”‡SHO_NAMQ…MYBUF8ž †ASC2IC¨ P@„IND37²3¼)> Æ H‡SHO_NAMІUP_DIRQ„IND3Ú,äO>î P„IND3ø D‡INC_CNT #„IND3 ‡INC_CNT#‡DIR_CNT Q‡DIR_CNT R>* F‡DIR_LV14 !ˆREAD_DIR> ‡DIR_LV1:HX;RX;Load a Character set\X;f‡CHARSET$> pQ>z P…ICCOM9„Q>Ž P…ICBAL9˜ P…ICBLL9¢Q>¬ P…ICBLH9¶ Q>5…TXSETÀ P…ICBAH9Ê „CIOVÔ !†CLOSE2ÞX;èX;Get a byte from the file.òX;üˆGET_BYTE$> Q> P…ICCOM9Q>$ P…ICBLL9. P…ICBLH98 !„CIOVBX;LX;Get a byte for KoalapicVX;`ˆKOL_GETB'…SAVEYj ˆGET_BYTEt G†KOL_CL~ %…SAVEYˆ:’ †KOL_CL7œ7¦:°X;ºX;Load a Micro Painter PicÄX;ΈMICROPIC ˆGRAB_UNCØ G‡MIC_ERRâ ˆGET_BYTEì G‡MIC_ERRöP†GR7CLR%> †MIC_LP ˆKOL_GETB G‡MIC_ERR P†GR7CLR8(32)>< H†MIC_LPF‡MIC_ERR!†CLOSE2PX;Z X;Load a Koala Format PicturedX;nˆKOALAPIC †CLRSCRx Q>4†SCREEN‚PƒSCRŒ P„SCR2–PƒBUF  P†SCRBOTª Q>5†SCREEN´ PƒSCR¾ P„SCR2È PƒBUFÒ,ÜO>æP†SCRBOTð%>ú‡KOL_HDR ˆKOL_GETB P…MYBUF83)>" H‡KOL_HDR,%>6†KOL_CRQ…MYBUF 8@ P†GR7CLR8J1T I†KOL_CR^ Q…MYBUFh P„TYPEr H†DE_COM|X;† ˆGRAB_UNC !†CLOSE2šX;¤†DE_COM%>®'ƒODD¸X;‡U_LOOP1'…COUNTÌ '†UNIQUEÖ ˆKOL_GETBà,êU?ô U†UNIQUEþV? P…COUNT H†CK_UNQ ˆKOL_GETB& P…COUNT0 ˆKOL_GETB: P…COUNTDX;N†CK_UNQQ†UNIQUEX F‡U_LOOP3bX;l‡U_LOOP2 ˆKOL_GETBv P@ƒBUF7€ $„TYPEŠ(>” H†U_L2.2ž ‡INCOBP2¨ !†U_L2.3²†U_L2.2 †INCOBP¼†U_L2.3"…COUNTÆ H‡U_LOOP2Ð Q…COUNTÚ F‡U_LOOP1ä "…COUNTî I‡U_LOOP2øX;‡U_LOOP3 ˆKOL_GETB  P„DATA†U_L3.2Q„DATA  P@ƒBUF7* $„TYPE4(>> H†U_L3.3H ‡INCOBP2R !†U_L3.4\X;f†U_L3.3 †INCOBPp†U_L3.4"…COUNTz H†U_L3.2„ Q…COUNTŽ F‡U_LOOP1˜ "…COUNT¢ I†U_L3.2¬X;¶X;KoalaPic SubroutinesÀX;ʆINCOBPQƒBUFÔ,ÞO>PèPƒBUFò QƒBUFüO> PƒBUFQƒBUF R†SCRBOT$ HˆU_RETURN. QƒBUF8R†SCRBOTB HˆU_RETURNLX;V…CKODDQƒODD` H‡CK_DONEj#ƒODDt Q„SCR2~,ˆO>(’PƒBUFœ Q„SCR2¦O>° PƒBUFº Q†SCRBOTÄ,ÎO>(Ø P†SCRBOTâQ†SCRBOTìO>öP†SCRBOT #„SCR2  HˆU_RETURN #„SCR2 ˆU_RETURN:(X;2‡CK_DONE"ƒODD< Q„SCR2FPƒBUFP P†SCRBOTZ Q„SCR2d PƒBUFn,xO>‚P†SCRBOTŒQƒSCR–, O>(ª>´ QƒSCR¾O>È RƒBUFÒ HˆU_RETURNÜ(ƒBUFæ HˆU_RETURNð‰BACK_MAIN7ú7:X;‡INCOBP2#ƒBUF" HˆU_IOB2.2, #ƒBUF6ˆU_IOB2.2QƒSCR@,JO>T>^QƒSCRh (ƒBUFr HˆU_RETURN|RƒBUF† HˆU_RETURNF‰BACK_MAINšX;¤!X;Load a MagniPrint mode 24/14®X;¸ˆMAGNIPIC ˆGET_BYTE G‡MAG_ERRÌR>Ö F†GOT_14àR>ê F†GOT_14ô ‡MAG_ERR:þ†GOT_14%>†MAG_TR ˆKOL_GETB1 I†MAG_TR&X;0%>:‡MAG_CLR ˆKOL_GETBD P†GR7CLR8N3X)>b H‡MAG_CLRl%>Ëv‡MAG_TR2 ˆKOL_GETB€1Š H‡MAG_TR2”%>Nž‡MAG_TR3 ˆKOL_GETB¨1² I‡MAG_TR3¼X;ÆX;Load an Uncompacted ScreenÐX;ÚˆGRAB_UNC$> äQ>î P…ICCOM9ø Q>4†SCREEN P…ICBAL9  Q>5†SCREEN P…ICBAH9 Q>* P…ICBLL94Q>> P…ICBLH9H !„CIOVRX;\X;Let user move until FIRE!fX;p…ROVERQ†STRIG0z F…ROVED„ †MOVCRSŽ „WAIT˜ †CK_OPT¢ H…ROVER¬Q>¶ …ROVED6À †SETTRGÊ8Ô:ÞX;è"X;Locate the color under CursoròX;ü†LOCATE$ƒPTY QƒYLO9PƒMLO QƒYHI9$PƒMHI.QƒPTX85BM>L>V7`V?jV?t?~AˆN>’>œ Q@ƒMLO7¦ ‡LOC_SHF0° G‡LOC_SHDºV?ÄV?Î !‡LOC_SHF؇LOC_SHDM>â:ìX;öX;Perform a Solid FillX; „FILL †SCRNDL †SETC_0…F_ROV …ROVER( H†F_ROVL2X;< ‡MY_FILLF !…F_ROVP†F_ROVLQ>ÿZP‚CHd:nX;xX;Fill Routine‚X;Œ‡MY_FILLQ>– PˆCOUNTNEW %>ªQƒPTX´ P„BUFA8¾ P†XPSTORÈP‚XPÒQƒPTYÜ P„BUFB8æ P†YPSTORðP‚YPú 'ˆCOUNTOLD ˆF_LOCATE P‡COLOVER $‡TXT_NUM"(>, E‡PRELOOP6 R†COLORX@ H‡PRELOOPJ:TX;^‡PRELOOP †F_PLOTh†F_LOOPQ„BUFA8rP‚XP| Q„BUFB8†P‚YPX;š Q†CONSOL¤R>® H‡F_LOOP0¸ !†F_RET0ÂX;̇F_LOOP0#‚XPÖQ‚XPàR> ê E‡F_LOOP1ô ˆF_LOCATEþ H‡F_LOOP1 †F_KEEP X; ‡F_LOOP1"‚XP& "‚XP0 Q‚XP: R>ÿD F‡F_LOOP2N ˆF_LOCATEX H‡F_LOOP2b †F_KEEPl X;v ‡F_LOOP2#‚XP€ #‚YPŠ Q‚YP” R>Àž E‡F_LOOP3¨ ˆF_LOCATE² H‡F_LOOP3¼ †F_KEEPÆ X;Ð ‡F_LOOP3"‚YPÚ "‚YPä Q‚YPî R>ÿø F‡F_LOOP4! ˆF_LOCATE ! H‡F_LOOP4! †F_KEEP !X;*!‡F_LOOP4"ˆCOUNTOLD4! FˆF_DONELP>!3H! !†F_LOOPR!X;\!ˆF_DONELP%ˆCOUNTNEWf! F†F_RET0p!X;z! 'ˆCOUNTOLD„!X;Ž!‡F_TRANSQ„BUFD8˜! P„BUFB8¢! Q„BUFC8¬! P„BUFA8¶!1À! H‡F_TRANSÊ!%>Ô!Q>Þ! PˆCOUNTNEWè! !†F_LOOPò!X;ü!†F_KEEP †F_PLOT" #ˆCOUNTNEW" F†F_RET2" %ˆCOUNTNEW$"Q‚XP." P„BUFC88"Q‚YPB" P„BUFD8L" %…SAVEYV":`"X;j"ˆF_LOCATE …F_POSt" †LOCATE~" %…SAVEYˆ" R‡COLOVER’":œ"X;¦"…F_POS'…SAVEY°"Q‚XPº"PƒPTXÄ"Q‚YPÎ"PƒPTYØ":â"X;ì"†F_PLOT …F_POSö" †PLOTTR# %…SAVEY #:#X;#†F_RET0Q†YPSTOR(#PƒPTY2# Q†XPSTOR<#PƒPTXF#:P#X;Z#†F_RET2 †F_RET0d#7n#7x#:‚#X;Œ#!X;These are the screen copiers–#X; #†COPY12Q>4†SCREENª#PƒSCR´# Q>5†SCREEN¾# PƒSCRÈ#Q>4‡SCREEN2Ò# P„SCR2Ü#Q>5‡SCREEN2æ# P„SCR2ð#X;ú#‡MOVE_SC$>$%>$‡MOVE_ITQ@ƒSCR7$ P@„SCR27"$3,$ H‡MOVE_IT6$ #ƒSCR@$ #„SCR2J$0T$ I‡MOVE_IT^$:h$X;r$X;Copy screen 2 to 1|$X;†$†COPY21Q>4†SCREEN$ P„SCR2š$ Q>5†SCREEN¤$ P„SCR2®$Q>4‡SCREEN2¸$PƒSCRÂ$Q>5‡SCREEN2Ì$ PƒSCRÖ$ H‡MOVE_SCà$X;ê$!X;Erase a 'figure' from screenô$X;þ$‰ERASE_FIGQ†REFLAG%R>% D‡ERAS_FG% ‡ERAS_FG&% Q„TOPY0%5:% Q„BOTYD%5N%Q>¿X%;b% S„BOTYl% P„BOTYv%Q>¿€%;Š% S„TOPY”% P„TOPYž% ‡ERAS_FG¨%7²% P„BOTY¼%7Æ% P„TOPYÐ%:Ú%X;ä%‡ERAS_FGQ„TOPYî% R„BOTYø% EˆER_OTHER&? & Q„BOTY&; & S„TOPY*& !‡ER_GOTC4&X;>&ˆER_OTHER%„BOTYH& Q„TOPYR&;\& S„BOTYf&X;p& ‡ER_GOTC,z&O>„&>Ž&(>À˜& DˆER_GETY1¢&$>¿¬&ˆER_GETY1)>¶& F‡ER_GETYÀ&1Ê&‡ER_GETYQƒYHI8Ô& P„INDRÞ& QƒYLO8è& P„INDRò&;ü& S>4†SCREEN' P„IND2' Q„INDR' S>5†SCREEN$' P„IND2.' Q„IND28',B'O>4‡SCREEN2L' P„IND2V' Q„IND2`'O>5‡SCREEN2j' P„IND2t'X;~'‡ERASE_1%>'ˆ'‡ERASE_2Q@„IND27’' P@„INDR7œ'1¦' I‡ERASE_2°' Q„IND2º',Ä'O>(Î' P„IND2Ø' D‡ER_UPLOâ' #„IND2ì'‡ER_UPLOQ„INDRö',(O>( ( P„INDR(D‰ER_RELOOP( #„INDR((‰ER_RELOOP02((>ÿ<( H‡ERASE_1F(:P(X;Z(X;Do a rubber-band lined(X;n(„LINE †SCRNDLx( †SETC_0‚(‡LINE_SV †COPY12Œ(‡LINE_LP …ROVER–( H†LINE_X ( …MOVPBª(ˆLINE_LP2 ‡CK_MOVE´( H‡LINE_MV¾( †CK_OPTÈ( H‡LINE_TRÒ(†LINE_X †COPY21Ü( !†F_ROVLæ(X;ð(‡LINE_TRQ†STRIG0ú( HˆLINE_LP2) †SETTRG) !‡LINE_SV)‡LINE_MV †MOVCRS") …MOVPT,) Q„BOTX6)PƒDRX@) Q„BOTYJ)PƒDRYT) †DRAWIT^) !‡LINE_TRh)X;r)X;Choose Fill Pattern|)X;†)‡TEXTUREQ> ) P…H_CLRš) Q†STRIG0¤) F†TXR_LV®) Q†STICK0¸)R>Â) H†TXR_LFÌ) %‡TXT_NUMÖ)3à))>ê) H‡TXR_SETô)%>þ) F‡TXR_SET*X;*†TXR_LFR> * H‡TEXTURE&* %‡TXT_NUM0*1:* I‡TXR_SETD*%>N*‡TXR_SET'‡TXT_NUMX* ‡PUT_DEFb* „SWTCl* !‡TEXTUREv*†TXR_LVV…H_CLR€*:Š*X;”* X;Install 'Pattern' in COLORXž*X;¨*‡PUT_DEFQ‡TXT_NUM²*T?¼*T?Æ*?Ð*$>Ú*†TXR_LPQ†SH_CLR8ä* P†COLORX9î*3ø*2+(> + H†TXR_LP+: +X;*+X;Define a Texture4+X;>+‡TXT_DEF …CLRPMH+ Q>4…TXTDLR+ P†SDLSTL\+ Q>5…TXTDLf+P†SDLSTLp+Q>9z+ P†SDMCTL„+X;Ž+%>˜+ ‡INS_PRM¢+%>¬+ …INPUT¶+ Q…MYBUFÀ+ R>ƒEOLÊ+ H‡TXT_TRYÔ+ ‡TXT_OUT:Þ+‡TXT_TRY%>è+†TXT_TYQ…MYBUF8ò+ R>ƒEOLü+ F‡TXT_OUT,M>,;,S> 0$, G‡TXT_OUT.,R>8, E‡TXT_OUTB, P…MYBUF8L,3V,)>`, H†TXT_TYj,%>t, ˆMAKE_DAT~,P‡USR_DF1ˆ, P‡USR_DF1’,%>œ, ˆMAKE_DAT¦, P‡USR_DF2°,P‡USR_DF2º,%>Ä,†TXT_DCQ…MYBUF8Î, P‡USR_DF38Ø,1â, I†TXT_DCì, !‡PUT_DEFö,X;-X;Make two Binary #'s into -X;Gr. 7+ data-X;-ˆMAKE_DATQ…MYBUF8(-T?2-T?<-L…MYBUF8F- P‡PLT_TMPP-T?Z-T?d-T?n-T?x- L‡PLT_TMP‚-:Œ-X;–-X;Insert prompt into INLINE -X;ª-‡INS_PRMQ‡INS_TAB8´- P„IND2¾-Q‡INS_TAB8È- P„IND2Ò-Q>»Ü- P‡PC_MODEæ- †CLRGR0ð- P…TEXT?ú-?.‡INS_PLPQ@„IND27. '†ROWCRS. ‡PUT_CHR".3,.)> 6. H‡INS_PLP@.:J.X;T.X;Allow user to view picture^.X;h.ˆVIEW_PIC ‡SCRNDL2r. †SETTRG|.‡VIEW_LPQ†STRIG0†. H‡VIEW_LP. !„SWTCš.X;¤.X;Rainbow a Color®.X;¸.†RAINBW ‡SCRNDL2Â. †SETTRGÌ. $„CLRPÖ. H‡RAIN_ITà.$>ê. ‡RAIN_IT0ô. ‡RAIN_LPCþ. P…WSYNC/ P†COLPF09/3/ Q†STRIG0&/ H‡RAIN_LP0/ !„SWTC:/X;D/X;Un Invert RoutineN/X;X/‡UN_VERTP„IND3b/ '„IND3l/%>v/…UN_VLQ@„IND37€/M>Š/ P@„IND37”/3ž/0¨/ H…UN_VL²/:¼/X;Æ/X;Erase Pic routineÐ/X;Ú/…ERASE „UNDOä/ †SETNARî/ Q>4†ERASDLø/ P†SDLSTL0 Q>5†ERASDL 0P†SDLSTL0Q> 0 P‡PLT_TMP*0 ˆERAS_SET40ˆERASE_TRQ†STRIG0>0F‰ERASE_FIRH0 Q†STICK0R0 %‡PLT_TMP\0R> f0 HˆERASE_RTp01z0 IˆERASE_ST„0%>Ž0 HˆERASE_ST˜0ˆERASE_RTR>¢0 HˆERASE_TR¬03¶0)>À0 HˆERASE_STÊ0%>Ô0ˆERASE_ST'‡PLT_TMPÞ0 ˆERAS_SETè0 „SWTCò0 !ˆERASE_TRü0‰ERASE_FIRQ‡PLT_TMP1 FˆNO_ERASE1 †CLRSCR1ˆNO_ERASE!…CLICK$1X;.1ˆERAS_SET‡INVERT …YESNO= 81$>B1 Q‡PLT_TMPL1 F…GO_ERV1$>`1 …GO_ER%> j1„GO_EQ…YESNO9t1L>€~1 P…YESNO9ˆ12’11œ1 I„GO_E¦1:°1X;º1X;Undo RoutineÄ1X;Î1 „UNDO$>Ø1 Q>4†SCREENâ1 P„INDRì1 Q>5†SCREENö1 P„INDR2Q>4‡SCREEN2 2 P„IND22Q>5‡SCREEN22 P„IND2(2%>22…UNDO1Q@„INDR7<25F2 Q@„IND27P2 P@„INDR7Z27d2 P@„IND27n23x2 H…UNDO1‚2 #„INDRŒ2 #„IND2–20 2 I…UNDO1ª2:´2X;¾2X;Set narrow play fieldÈ2X;Ò2†SETNAR …CLRPMÜ2Q>9æ2 P†SDMCTLð2:ú2X;3X;Get Color3X;3†GETCOL$„CLRP"3FƒST1,3063 Q†GR7CLR9@3!ƒST2J3ƒST1Q†GR7CLRT3ƒST25^3M>h3 P„LUMNr37|3V?†3V?3V?š3V?¤3M>®3 P„HUEN¸3 †PUTHUEÂ3 !†PUTLUMÌ3X;Ö3X;Select Colorà3X;ê3†SLTCOLQ„HUENô3T?þ3T?4T?4T?4 L„LUMN&4 $„CLRP04FƒST3:40D4 P†GR7CLR9N4:X4ƒST3P†GR7CLRb4:l4X;v4X;Put Luminance€4X;Š4†PUTLUM$„LUMN”4%>#ž4 Q†LUMTAB9¨4 P†COLLIN8²4Q†LUMTAB9¼4P†COLLIN8Æ4:Ð4X;Ú4X;Put Hue (Color)ä4X;î4†PUTHUEQ„HUENø4T?5 P„TMP1 5T?5T? 5,*5 O„TMP145,>5 O„HUENH5>R5%>\5ƒHU2Q†HUETAB9f5 P†COLLIN8p52z53„5)>Ž5HƒHU2˜5:¢5X;¬5X;Set Colors (One at a Time)¶5X;À5†SETCLR †SETTRGÊ5Q>Ô5 P†DLITXTÞ5T?è5P†DLITXTò5X;ü5 †CLRSHO6ƒCCHQ†STRIG06 F…CLSET6 Q†STICK0$6R>.6 F…COLRT86R> B6HƒCCHL6 F…COLLFV6X;`6…COLRT%„CLRPj63t6)>~6HƒDOCˆ6%>’6 ƒDOC'„CLRPœ6 †CLRSHO¦6 „SWTC°6!ƒCCHº6X;Ä6…COLLF%„CLRPÎ61Ø6IƒDOCâ6%>ì6HƒDOCö6X;7X;Show Color Register 7X;7†CLRSHO‡INVERT …CRCRS=(7 $„CLRP(7 Q‡CLR_OFF927><7%>F7„UNC1Q…CRCRS9P7L>€Z7 P…CRCRS9d72n71x7 I„UNC1‚7 !†GETCOLŒ7X;–7X;Register Picked, set color 7X;ª7…CLSET „SWTC´7 †SETTRG¾7†CLSETLQ†STRIG0È7 H…CLSTKÒ7 †SETTRGÜ7 !†DLIDFTæ7…CLSTKQ†STICK0ð7R> ú7HƒCL78 $„HUEN808 I„HUEK"8$>,8 H„HUEK68X;@8 ƒCL7R>J8 H„CL14T8 $„HUEN^82h8(>r8 H„HUEK|8$>†8„HUEK&„HUEN8 !…CLSHOš8X;¤8 „CL14R>®8 H„CL13¸8 %„LUMNÂ83Ì83Ö8)>à8 H„LUMKê8%>ô8 F„LUMKþ8X;9 „CL13R> 9 H†CLSETL9 %„LUMN&91091:9 I„LUMKD9%>N9„LUMK'„LUMNX9…CLSHO †SLTCOLb9 †GETCOLl9 „SWTCv9 !†CLSETL€9X;Š9X;Get a Filename from the”9X;Directory screen. If theyž9X;choose a zero filename or¨9X;the FREE SECTORS, MYBUF is²9"X;set to an EOL. Thus aborting.¼9X;Æ9‡GETFN_SQ>Ð9P†DIR_NM;;cursor posÚ9 †DIR_CR;;show cursorä9 †SETTRGî9…DR_CRQ†STICK0ø9R>;;right?: H…DR_11 : #†DIR_NM: Q†DIR_NM :R>*: H…DR_OK4:Q>>: F…DR_OKH:X;R: …DR_11R> \: H…DR_14f: "†DIR_NMp: I†DR_OK2z:Q>„: H…DR_OKŽ:X;˜: …DR_14R>¢: H…DR_13¬: Q†DIR_NM¶:;À:S>Ê: I…DR_OKÔ:,Þ:O>è: !…DR_OKò:X;ü: …DR_13R> ; H…DR_TR; Q†DIR_NM;,$;O>.;R>8; D…DR_OKB;;L;S>V;X;`;…DR_OKP†DIR_NMj;†DR_OK2 †DIR_CRt; „SWTC~;…DR_TRQ†STRIG0ˆ; F†DR_TRY’; †CK_OPTœ; F†DR_EOL¦; !…DR_CR°;X;º;X;Get name from screenÄ;X;Î;†DR_TRY †DR_OFFØ;%>â;…DR_GTQ@„INDR7ì;M>ö; †IC2ASC<P…MYBUF8 <R> < F…DR_SV<3(<)> 2< H…DR_GT<<X;F<…DR_SVQ>ƒEOLP<P…MYBUF8Z<%>d<…DR_CKQ@„INDR7n<M>x< †IC2ASC‚<RˆFREE_TXT8Œ< H…DR_NO–<3 <)> ª< H…DR_CK´<†DR_EOLQ>ƒEOL¾< P…MYBUFÈ< …DR_NO:Ò<X;Ü<X;Get screen offsetæ<X;ð<†DR_OFFQ†DIR_NMú< T?;;*2= T?;;*4= T?;;*8= T?;;*16"= P„INDR,= Q>5†GR0SCR6= P„INDR@=:J=X;T=X;Highlight a filename^=X;h=†DIR_CR‡INVERT †GR0SCR=ÿr= †DR_OFF|=%>†=†DIR_CLQ@„INDR7=L>€š= P@„INDR7¤=1®= I†DIR_CL¸=:Â=X;Ì= X;Put a character to the scrnÖ=X;with an X+11 offset.à=X;ê= †PUTC_X5ô=Aþ=,>O> > P†ROWCRS>7&>X;0>X;Put a char to the screen.:>X;This is for GRAPHICS 8!!D>X;N> ‡PUT_CHR5X>&ƒPCXb>'ƒPCYl> ˆ:GET_OFFv> Q†ROWCRS€> P„IND3Š> Q>5†GR0SCR”> P„IND3ž>%>¨>$>²> Q„INDR¼>,Æ> O‡PC_MODEÐ> P„INDRÚ>†:PC_LPQ@„INDR7ä> N†I_CHARî> P@„IND36ø> Q„IND3?, ?O> ? P„IND3 ?3*?)>4? H†:PC_LP>?7H?$ƒPCXR?%ƒPCY\?: