þþÍ9dEInX;-----------------------xX;‚X;Scrolling Screen EditorŒX;for SNOWPLOW!–X; X;by: Barry KolbeªX;and Bryan Schappel´X;¾X;-----------------------ÈX;ÒÜ„PASS„PASSæ „PASSð>ŒD:SYSEQU.M65ú ƒICP?†SCNMEM ƒPMB€" …MYPMB„,…P1MEM…MYPMB6…CHSETƒPMB@†TXTWIN‹J†CHRLN1†TXTWIN(T†CHRLN2†TXTWIN^„TXLN†TXTWINxh…STSLN†TXTWINPrƒSC2†SCNMEM€|ƒSC3ƒSC2€†ƒSC4ƒSC3€ƒSC5ƒSC4€šƒSC6ƒSC5€¤ƒSC7ƒSC6€®ƒSC8ƒSC7€¸ƒSC9ƒSC8€Â„SC10ƒSC9€Ì …BCKUPÀÖX;à€ê ‚X1ô ‚X2þ ‚X3 ƒPGT „CREG ƒPXP& ƒPYP0 ƒNYP: ƒDRXD ƒDRYN „NPTSX †INITABb „SPRTl …LRCRSv †LRSCRL€ †UDSCRLŠ …UDCRS” „XPOSž „YPOS¨ „PCHR² …CXPOS¼ …LRADDÆ …UDADDЇXERXFLGÚ …KCHRS ä ƒDBHî ƒDBVø ƒYH2 ƒYH3  …DLIDX ‚IL  ‚JL*X;4X;Display List>X;H€RƒDL1 p=p=p\ EfƒSL1 †SCNMEMp Ez ƒSC2„ EŽ ƒSC3˜ E¢ ƒSC4¬ E¶ ƒSC5À EÊ ƒSC6Ô EÞ ƒSC7è Eò ƒSC8ü E ƒSC9 E „SC10$ Ä. †TXTWIN8 ‚=‚==AB ƒDL1LIVEI`X;jX;Display List InterrupttX;~0ˆ…BEGIN!„STRT’ƒDLI5œQ>ঠP†CHBASE°Q> º P†COLPF1ÄAÎ5Ø $…DLIDXâ Q…DLICL9ì P†COLPF2öQ> P…COLBK  P…WSYNC #…DLIDX7(>27<9FX;PX;Start of ProgramZX;d „STRT%>2n ƒMDLQƒDL18x P…BCKUP8‚1ŒIƒMDL–…RSTRT †CLRSCN „RBEG †CLRTXTª †SETSTS´ †PLRMEM¾ †SETPMGÈ …CLRPMÒ †DEFPLRÜQ>æ %>4ƒVBIð $>5ƒVBIú †SETVBVX; Q>5ƒDL1P†SDLSTL" Q>4ƒDL1, P†SDLSTL6 „INIT@ †SHWCRSJ …SHWXYT †CHRCRS^X;hX;Try StickrX;|†CHKSTKQ†STICK0†R> F„AKEYš †GENMOV¤ „TIME® !†CHKSTK¸ „AKEYQ‚CH †SWITCHÌ D„AKEYÖR>ÿà F†TRYTRGê$>ÿô&‚CHþ%>…CKCMPR…CMKEY8 F„GTCM1& I…CKCMP0 G†TRYTRG: „GTCMCDT?N>X Q…CMTAB9b P…JMPOFlQ…CMTAB9v P…JMPOF€ †CLRLN1Š …JMPOF ÿÿ” †CLRLN1ž …SHWXY¨ !„AKEY²†TRYTRGQ†STRIG0¼ H†CHKSTKÆ „PLOTÐ !†CHKSTKÚX;äX;Immed. VblankîX;ø ƒVBI%>„VBI1Q†COLOR08  P†COLPF081  I„VBI1* Q>5…CHSET4 P†CHBASE>3H '…DLIDXR !†SYSVBV\X;fX;General Move RoutinepX;z†GENMOVR>;;right?„HƒTLFŽ !„MVRT˜X;¢ X;Timer¬X;¶„TIME …DELAYÀ …SHWXYÊQ>Ô P†ATRACTÞ:èX;òƒTLFR> ;;left?üHƒTUP !„MVLF X; X;Move Up$ X;. ƒTUPR>8 HƒTDNB ƒUP1Q…UDCRSL FƒAA3;;scrol?V "…UDCRS` "„YPOSj QƒNYPt ;~ S>ˆ PƒNYP’ ƒTU1!„UPDNœ ƒAA3Q†UDSCRL¦ F„NOUD° "†UDSCRLº "„YPOSÄ …SCRUPÎ „NOUD:Ø X;â X;Move Downì X;ö ƒTDNR> HƒTUR ƒDN1Q…UDCRS R>  FƒAA4;;scroll?( #…UDCRS2 #„YPOS< QƒNYPF ,P O>Z PƒNYPd !ƒTU1n ƒAA4Q†UDSCRLx R> ‚ F„NOUDŒ #†UDSCRL– …SCRDN  #„YPOSª :´ X;Up-Right¾ ƒTURR>È HƒTDRÒ „MVRTÜ !ƒUP1æ X;Down-Rightð ƒTDRR>ú HƒTUL „MVRT !ƒDN1 X;Up-Left" ƒTULR> , HƒTDL6 „MVLF@ !ƒUP1J X;Down-LeftT ƒTDLR> ^ HƒNSTh „MVLFr  ƒDN1| ƒNST:† X; X;Move Up and Downš X;¤ „UPDN †PLRMEM® †ERSPLR¸ QƒNYP PƒPYPÌ !†PUTPLRÖ X;à X;Erase Playerê X;ô †ERSPLRQ>þ %ƒPYP $> ƒEMLP@‚IL7 3& 00 IƒEML: :D X;N X;Set up Player MemoryX X;b †PLRMEMQ>5…MYPMBl P‚ILv Q>€ P‚ILŠ :” X;ž X;Move Right¨ X;² „MVRTQ…LRCRS¼ R>'Æ HƒAA1Ð Q>Ú P…LRADDä Q†LRSCRLî R>X;;end scrnø F„NOLR #†LRSCRL #„XPOS …SCRLR „NOLR:* ƒAA1#…LRCRS4 #„XPOS> QƒPXPH ,R O>\ PƒPXPf ƒMV1QƒPXPp P†HPOSP0z :„ X;Ž X;Move Left˜ X;¢ „MVLFQ…LRCRS¬ FƒAA2¶ "…LRCRSÀ QƒPXPÊ ;Ô S>Þ PƒPXPè "„XPOSò !ƒMV1ü ƒAA2Q†LRSCRL F„NOLR "†LRSCRL "„XPOS$Q>ÿ. P…LRADD8 !…SCRLRBX;LX;Close IOCBVX;` …CLOSE&‚X1jQ> t P…ICCOM9~ „CIOVˆ$‚X1’:œX;¦X;Set up PMG°X;º†SETPMGQ>>Ä P†SDMCTLÎQ>Ø P†GPRIORâQ>ì P†GRACTLö Q>5ƒPMB P†PMBASE Q>l P†PCOLR0Q>( P†SIZEP02 P†SIZEP1<:FX;PX;Clear P/M areaZX;d…CLRPMQ>5…MYPMBn P‚ILxQ>‚P‚ILŒ ƒCA2%>– ƒCA1P@‚IL7 3ªHƒCA1´:¾X;ÈX;Define PlayersÒX;܆DEFPLR%> æ'ƒNYPð'ƒPYPú †PLRMEM †PUTPLRQ>. P†HPOSP0"PƒPXP,:6X;@X;Put Player on screenJX;T†PUTPLR%ƒPYP^$>hƒDF1Q†PL0DEF9r P@‚IL7|2†3(>šHƒDF1¤:®X;¸X;Delay LoopÂX;Ì …DELAY$>Ö &†RTCLOKà„YLP1$†RTCLOKê(>ô H„YLP1þ:X;…DLICL ’=B=ƒNBF A„000 A&ƒA2I @== =`0†PL0DEF ÿ=Ã=Ã=Ã: Ã=Ã=Ã=ÃD Ã=Ã=Ã=ÃN Ã=Ã=Ã=ÿX…P1DEF ü=Æ=Æ=Æb Æ=Æ=Æ=ülX;vX;Show Char Set€X;Š†SHWCRS$„SPRT”2žA¨T?²T?¼T?ÆT?ÐT?Ú>ä0îAø%>ƒSH1P†CHRLN18 P†CHRLN280 A*14IƒSH1>:HX;RX;Init Memory\X;f „INIT%>pQ>z…INILPP†INITAB8„1Ž I…INILP˜X;set up 128¢%>¬C¶ P…M128LÀ Q>5†SCNMEMÊ P…M128HÔƒTLPQ…M128L8Þ,èO>€òP…M128L8ü Q…M128H8O>P…M128H83$)>!.HƒTLP8 †OPNKEYB Q>5…CHSETL P…CHBASVQ>À` P…NMIENj Q>5ƒDLItP†VDSLST~ Q>4ƒDLIˆ P†VDSLST’:œX;¦X;Plot a Character°X;º„PLOT$„YPOSÄ Q…M128L9ÎP‚JLØ Q…M128H9â P‚JLì Q„PCHRö %„XPOS P@‚JL7 :X;†STSCRLQ>5ƒSL1( P‚JL2 Q>4ƒSL1<P‚JLF:PX;ZX;Scroll Left/rightdX;n…SCRLR †STSCRLx%>‚ ƒSLRQ@‚JL7Œ,– O…LRADD  P@‚JL7ª3´3¾3È)>ÒHƒSLRÜ:æX;ðX;Scroll DownúX; …SCRDN%>ƒSQ1QƒSL18 PƒSL18" QƒSL18, PƒSL1863@3J3T)>^HƒSQ1h QƒSL1r,|O>€† PƒSL1 QƒSL1šO>¤ PƒSL1®:¸X;ÂX;Scroll UpÌX;Ö …SCRUP%>à„SUP1QƒSL18ê PƒSL18ô QƒSL18þ PƒSL18111& H„SUP10QƒSL1:;DS>€NPƒSL1X QƒSL1bS>l PƒSL1v:€X;ŠX;Clear Screen”X;ž†CLRSCNQ>5†SCNMEM¨ P‚IL²Q>¼P‚ILÆ$> ;;10 pagesÐ ƒCS1%>ÿÚ„CSLPP@‚IL7ä1î)>ÿø H„CSLP #‚IL 0IƒCS1 :*X;4X;Character Cursor>X;H†CHRCRS%>ÿ;;eraseRQ>\ƒCR13f P…P1MEM8p)>ÿzHƒCR1„X;define playrŽ%>Ș$>¢ƒCR2Q…P1DEF9¬ P…P1MEM8¶3À2Ê(>ÔHƒCR2Þ Q>ƒICPèP†HPOSP0ò PƒPXPüQ>M P†PCOLR1:X;$X;Move Character Cursor.X;8‡KSELECT$>4†CHRMESB Q>5†CHRMESL …PRINTV…MVCRSQ†STICK0`R>jH‚BHt !†CKTRG2~‚BHR>;;rt?ˆH‚ML’ Q…CXPOSœR>¦F‚BB° #…CXPOSº QƒPXPÄ,ÎO>Ø!‚BFâ ‚BBQ>ì P…CXPOSö Q>ƒICPH‚BF X;‚MLR> ;;lef?H‚MU( Q…CXPOS2F‚BE< "…CXPOSF QƒPXPP;ZS>d‚BFPƒPXPnP†HPOSP0x !„SLOW‚ ‚BEQ>Œ P…CXPOS–Q>» H‚BFªX;up´ ‚MUR>¾H‚MDÈ Q„SPRTÒF‚BCÜ "„SPRTæƒDOC †SHWCRSð !„SLOWú ‚BCQ> P„SPRTHƒDOCX;" ‚MDR> , H†CKTRG26 #„SPRT@ Q„SPRTJR>THƒDOC^Q>h P„SPRTrFƒDOC|X;††CKTRG2Q†STRIG0H‚SJš …CLICK¤ …DELAY®ƒCTRQ†STRIG0¸FƒCTR $„SPRTÌ2ÖAàT?êT?ôT?þT?T?, O…CXPOS&;0S> : P„PCHRD !…DELAYN„SLOW …DELAYX ‚SJ!…MVCRSbX;lX;Print Text x=lo,a=hivX;€ …PRINT&‚ILŠ P‚IL”%>ÿžƒMLP3¨ Q@‚IL7² P„TXLN8¼IƒMLPÆM>Ð P„TXLN8Ú:äX;î†CHRMES AChoose characteòAø †COLMES A’Color register 0-´A†DRWMES A‰Draw modåA †BLKMES AŠBlock filìA†FNTMES AŒLoading fonôA †DEFMES AŒDefine blocëA*†STPMES AŠCopy blocëA4X;>X;ãìåáòìéîåHX;R†CLRLN1%>'\Q>fƒCN1P„TXLN8p1zIƒCN1„:ŽX;˜X;Clear Text Window¢X;¬†CLRTXT%> ¶Q>À„CTLPP†TXTWIN8Ê1Ô)>ÿÞ H„CTLPè:òX;ü X;ãïìïòóX;†COLORS$>4†COLMES Q>5†COLMES$ …PRINT. „CKEYQ‚CH8$>ÿBR>ÿL F„CKEYV R>;;out`F‚CAj%>tƒCMSR†CLRKEY8~FƒCCCˆ1’IƒCMSœ G„CKEY¦ ‚CA&‚CH°:ºƒCCCQ…CLREG8;;offsetÄP„CREG;;save itÎ †CLRLN1ØX;Change Registerâ $>4†REGMESì Q>5†REGMESö …PRINT †DISREG  %„CREG Q†COLOR085(M>ð2P‚X2<7FM>PP‚X3Z„CSTKQ†STICK0d R>;;rtnHƒCLFxQ‚X2‚,ŒO>–P‚X2  !…SCOLRª ƒCLFR> ´HƒCUP¾Q‚X2È;ÒS>ÜP‚X2æ !…SCOLRð ƒCUPR>úHƒCDN#‚X3#‚X3Q‚X3"M>,P‚X36 !…SCOLR@ ƒCDNR> J H„CSTGT"‚X3^"‚X3hQ‚X3rM>|P‚X3† …SCOLRQ‚X2L‚X3š %„CREG¤ P†COLOR08® †DISREG¸ …DELAY„CSTGQ†STRIG0Ì H„CSTKÖƒCC2Q†STRIG0àHƒCC2ê:ôX;þ†CLRKEY 2==== …CLREG ==== X; X;Show X/Y Position& X;0 …SHWXYQ„XPOS: $> D …RJUSTN Q„YPOSX $>b …RJUSTl X;v X;Show character€ X;Š %„YPOS” „WHERž %„XPOS¨ Q@‚JL7² P…STSLN¼ X;Æ …NOERM%>Ð ƒNLPQƒNOM8Ú P…STSLN8ä 1î IƒNLPø :!X; !X;Right justify a number!X; !…RJUSTPƒFR0*!Q>4! PƒFR0>!AH!5R! ƒIFP\! „FASCf!%>p!Q> 0z! ƒRJ1PƒNBF8„!1Ž!IƒRJ1˜!%>ÿ¢!ƒRJ23¬! Q@†INBUFF7¶!IƒRJ2À!M>Ê! P@†INBUFF7Ô!3Þ!Cè!N>ò!M>ü!>"%>"ƒRJ3Q@†INBUFF7" PƒNBF9$"3."28"(>B"HƒRJ3L"%>V"7`">j" ƒRJ4QƒNBF8t"M>~" P…STSLN9ˆ"0’"1œ"IƒRJ4¦":°"X;º"X;Set up Status LineÄ"X;Î"†SETSTS%>'Ø"Q>â"„STLPP…STSLN8ì"1ö" I„STLP#%> #„STLXQƒSLD8#P…STSLN8#1(# I„STLX2# !…SHWXY<#ƒSLD A“X:000 Y:000 CHAR: AF# A†Error:AP#X;Z#„WHERQ…M128L8d#P‚JLn# Q…M128H8x# P‚JL‚#:Œ#X;–# „DRAWQ>ÿ # P„NPTSª# Q>5†DRWMES´# $>4†DRWMES¾# …PRINTÈ#ƒDRG †GETTWOÒ#EƒDRPÜ#…DODRWQƒDRXæ# RƒDRXð#FƒDUD;;up/dnú#QƒDRY$ RƒDRY$HƒDRP$ QƒDRX"$RƒDRX,$EƒDR56$5@$QƒDRXJ$ PƒDRXT$7^$PƒDRXh$ ƒDR5 „DRLRr$!ƒDRG|$ ƒDRPQ>ÿ†$P‚CH$:š$X;¤$X;Up and Down®$ƒDUDQƒDRY¸$RƒDRYÂ$FƒDRPÌ$ E„UYOKÖ$5à$QƒDRYê$ PƒDRYô$7þ$PƒDRY%„UYOK „DWUD%!ƒDRP%X;&%X;Do Up/Down Draw0%„DWUD%ƒDRY:% ƒDDB „WHERD%%ƒDRXN% Q„PCHRX% P@‚JL7b% "ƒDRYl% %ƒDRYv%)ƒDRY€%HƒDDBŠ% „WHER”%%ƒDRXž% Q„PCHR¨% P@‚JL7²%:¼%X;Æ%X;Draw left and rightÐ% „DRLR%ƒDRYÚ% „WHERä% %ƒDRXî% Q„PCHRø% ƒDR7P@‚JL7&1 &)ƒDRX&HƒDR7 & P@‚JL7*&ƒDR8:4&X;>&X;Click SpeakerH&X;R& …CLICKQ>\& P†CONSOLf&:p&X;z& …BLOCKQ>ÿ„& P„NPTSŽ& Q>5†BLKMES˜& $>4†BLKMES¢& …PRINT¬& †GETTWO¶&DƒBABÀ&ƒBAC:Ê&ƒBABQƒDRXÔ&RƒDRXÞ&FƒBACè&DƒBACò& QƒDRYü&RƒDRY'FƒBAC'DƒBAC' #ƒDRY$' ƒBAD „DRLR.'#ƒDRY8'QƒDRYB' RƒDRYL'HƒBADV'FƒBAC`'X;j'X;Get two screen Positionst'†GETTWOQ>ÿ~' P„NPTSˆ' „GTWOQ‚CH’'R>œ'HƒDRS¦'Q>ÿ°'P‚CHº';Ä':Î'ƒDRSQ†STICK0Ø'R>â'FƒDRUì' †GENMOVö' „TIME(ƒDRUQ†STRIG0 ( H„GTWO( …CLICK(ƒRELQ†STRIG0((FƒREL2( #„NPTS<( %„NPTSF( Q„XPOSP( PƒDRX8Z( Q„YPOSd( PƒDRY8n( Q„NPTSx(R>‚(FƒGOMŒ( !„GTWO–(ƒGOM, (:ª(…CMTAB ‡KSELECT´( †COLORS¾( „DRAWÈ( †BRIGHTÒ( …BLOCKÜ( „FONTæ( …LOADMð( …SAVEMú( „QUIT) †CLRMAP) ‡RESTART) „HOME") †DEFINE,) …XEROX6) †DEFKEY@)X;J)…CMKEY ==:= T) =8==>=/^) ¶=¹=9=%h) =-r)X;k c d q clr ^h h m x t|)X;†)X;Change Luminance of Player)X;š)†BRIGHTQ†PCOLR0¤)N>®) P†PCOLR0¸):Â)X;Ì)X;Load FontÖ)X;à)„FONT$>4†FNTMESê) Q>5†FNTMESô) …PRINTþ) †GTNAME*DƒFAA*:* ƒFAA$>&* …CLOSE0*Q>:* P…ICCOM9D* Q>5…FNAMEN* P…ICBAH9X* Q>4…FNAMEb* P…ICBAL9l*Q>v* P„AUX29€*Q>Š* P„AUX19”* „CIOVž*IƒFAB¨* ƒFAC'‚X2²* !…IOERR¼* ƒFABQ>Æ* P…ICCOM9Ð* Q>5…CHSETÚ* P…ICBAH9ä*Q>î* P…ICBAL9ø*Q>+ P…ICBLH9 +Q>+ P…ICBLL9 + „CIOV*+'‚X24+ G…IOERR>+$>H+ …CLOSER+ !…NOERM\+X;f+ …IOERR$>p+ …CLOSEz+ „ZFR0„+Q‚X2Ž+$>"˜+ …RJUST¢+ !†GETKEY¬+X;¶+X;Open keyboardÀ+X;Ê+†OPNKEY$> Ô+ …CLOSEÞ+Q>è+ P…ICCOM9ò+ Q>5„KDEVü+ P…ICBAH9, Q>4„KDEV, P…ICBAL9,Q>$, P„AUX29.,Q>8, P„AUX19B, !„CIOVL,X;V,ƒNOM €=A„NoneA`,„KDEV A‚K:A=ƒEOLj,X;t,X;Get a Key from CIO~,†GETKEYQ>ˆ,$> ’, P…ICBLL9œ, P…ICBLH9¦,Q>°, P…ICCOM9º, !„CIOVÄ,X;Î,X;Get filenameØ,X;â,†GTNAME%>ì,Cö,ƒGT1P„TXLN8-3 -)> -HƒGT1-Q>$(- P„TXLN2-Q><- P„TXLNF-$>P- „INLP&‚X3Z-Q>?d-P„TXLN9;;cursorn-Q>x-P¶‚-Q>@Œ-P¾–- †GETKEY -$‚X3ª-R>´-HƒGT2¾-;È-:Ò- ƒGT2R>›Ü- F…INEOLæ-M>ð-R> ú- D„INLP.R>~. H…INEXT.(>". F„INLP,.06.Q>@. P„TXLN9J. P„TXLN9T. F„INLP^.X;h. …INEXTR>`r. F„INLP|.R>{†. E„INLP.(> š. F„INLP¤.5®.P…FNAME9¸.U?Â.U?Ì.U?Ö.U?à.M>ê.?ô.7þ.M>Ÿ/ LƒA2I8/ P„TXLN9/2&/ H„INLP0/X;:/…INEOLP…FNAME9D/,N/:X/X;b/X;Show color registerl/X;v/†DISREG%„CREG€/ƒRGDQ„CRG18Š/ P„TXLN ”/ Q„CRG28ž/ P„TXLN ¨/ Q†COLOR08²/5¼/M>ðÆ/V?Ð/V?Ú/V?ä/V?î/ ƒHEXø/ P„TXLN07 0M>0 ƒHEX 0 P„TXLN*0:40X;>0ƒHEX>H0 Q„HEXB9R0:\0X;f0„HEXB A0123456789ABCDEFAp0X;z0„CRG1 A…00111A„0„CRG2 A…89012AŽ0'†REGMES A™ Color: 7 Hue:$ Lum:¤A˜0X;¢0X;Load a Map¬0…LOADMQ>;;read¶0P‚X2À0Q>Ê0PƒPGTÔ0 Q>5†LODMESÞ0 $>4†LODMESè0…INLOD …PRINTò0 †GTNAMEü0 D„NMOK1:1 „NMOK$>1 …CLOSE$1Q‚X2.1 P„AUX1981Q>B1 P…ICCOM9L1 Q>5…FNAMEV1 P…ICBAH9`1 Q>4…FNAMEj1 P…ICBAL9t1Q>~1 P„AUX29ˆ1 „CIOV’1 I„RWOKœ1'‚X2¦1„RWER!…IOERR°1 „RWOK$>º1 Q>5†SCNMEMÄ1 P…ICBAH9Î1 Q>4†SCNMEMØ1 P…ICBAL9â1Q>ì1 P…ICBLL9ö1Q> 2 P…ICBLH9 2QƒPGT2 P…ICCOM92 „CIOV(2'‚X222 G„RWER<2$>F2 …CLOSEP2 !…NOERMZ2X;d2X;Save a mapn2X;x2…SAVEMQ>;;write‚2P‚X2Œ2Q> –2PƒPGT 2 Q>5†SAVMESª2 $>4†SAVMES´2 !…INLOD¾2X;È2 X;ñõéôÒ2„QUITQ>5†QUTMESÜ2 $>4†QUTMESæ2 …PRINTð2 „SUREú2EƒNOQ37373 …MOVEB"3Q>,3 P†HPOSP063P†HPOSP0@3Q>J3 %>4†SYSVBVT3 $>5†SYSVBV^3 †SETVBVh3 !†WARMSVr3ƒNOQ:|3X;†3X;Clear Map3†CLRMAPQ>5†SURMESš3 $>4†SURMES¤3 …PRINT®3 „SURE¸3EƒERTÂ3 †CLRSCNÌ3ƒERT:Ö3X;à3 X;óõòå¿ê3 „SUREQ‚CHô3$>ÿþ3R>#4F‚NO4R>+4 H„SURE&4&‚CH04,:4:D4 ‚NO&‚CHN4;X4:b4†LODMES AŒLoading filåAl4†SAVMES A‹Saving filåAv4%†SURMES A—CLEAR! Are you sure Y/ÎA€4$†QUTMES A–QUIT! Are you sure Y/ÎAŠ4X;”4 X;òåóôáòôž4‡RESTART …MOVEB¨47²47¼4 !…RSTRTÆ4X;Ð4 X;èïíåÚ4„HOME …MOVEBä47î47ø4 !„RBEG5X; 5X;Get Display List back5 …MOVEB%>2 5„MDLBQ…BCKUP8*5 PƒDL18451>5 I„MDLBH5:R5X;\5X;Define blockf5†DEFINEQ>5†DEFMESp5 $>4†DEFMESz5 …PRINT„5Q>ÿŽ5 P„NPTS˜5 †GETTWO¢5DƒDFJ¬5ƒDFR:¶5ƒDFJQƒDRYÀ5;Ê5SƒDRYÔ5R> Þ5EƒDFRè5 >;;keepò5 QƒDRXü5;6SƒDRX6R> 6EƒDFR$6PƒDBH.6&ƒDBV86Q>B6PƒYH3L6QƒDRXV6PƒYH2`6 #ƒDRXj6 #ƒDRYt6 ƒDFK%ƒDRY~6 „WHERˆ6 ƒDFL%ƒYH2’6 Q@‚JL7œ6%ƒYH3¦6 P†DEFBLK8°6#ƒYH3º6#ƒYH2Ä6QƒYH2Î6 RƒDRXØ6HƒDFLâ6QƒDRXì6PƒYH2ö6#ƒDRY7QƒDRY 7 RƒDRY7HƒDFK7Q>(7P‡XERXFLG;;set flag27:<7X;F7 X;øåòïøP7…XEROXQ‡XERXFLG;;chk ifZ7H†XEROX1;;block definedd7:n7†XEROX1Q>5†STPMESx7 $>4†STPMES‚7 …PRINTŒ7ƒXSTQ†STICK0–7R> 7FƒXKYª7 †GENMOV´7 „TIME¾7 ƒXKYQ‚CHÈ7R>Ò7 H„XTRGÜ7Q>ÿæ7P‚CHð7:ú7„XTRGQ†STRIG08HƒXST8 …CLICK8ƒXT2Q†STRIG0"8FƒXT2,8 …DELAY68 Q„XPOS@8PƒDRXJ8PƒYH3T8,^8OƒDBHh8 PƒDRXr8 #ƒDRX|8R>€†8DƒXAA8ƒXAB:š8 ƒXAAQ„YPOS¤8PƒDRY®8,¸8OƒDBVÂ8 PƒDRYÌ8 #ƒDRYÖ8R>à8EƒXABê8 X;do xeroxô8Q>þ8PƒYH29 ƒXLQ%ƒDRY9 „WHER9 ƒXLP%ƒYH2&9 Q†DEFBLK809%ƒYH3:9 P@‚JL7D9#ƒYH3N9#ƒYH2X9QƒYH3b9 RƒDRXl9HƒXLPv9QƒDRX€9PƒYH3Š9#ƒDRY”9QƒDRYž9 RƒDRY¨9HƒXLQ²9:¼9X;Æ9X;Define a keyÐ9†DEFKEY ‡KSELECTÚ9 Q>5†KEYMESä9 $>4†KEYMESî9 …PRINTø9 „DKEYQ‚CH:R>ÿ : F„DKEY:R> :HƒDKO*::4: ƒDKO%> >:ƒDK2R„KEYK8H:FƒDK3R:1\:IƒDK2f: G„DKEYp: ƒDK3Q„PCHRz: P…KCHRS8„::Ž:X;˜:)†KEYMES A› Define 1-0  A¢:X;¬:„KEYK ===¶: ==3=5À: 0=2Ê:X;Ô:X;Switch keysÞ:X;è:†SWITCH%> ò:ƒSW1R„KEYK8ü:FƒSW2;1;IƒSW1;;$;:.;ƒSW2Q…KCHRS88; P„PCHRB;Q>ÿL;P‚CHV;,`;:j;…FNAME A‚D:At;X;~;ˆ; …M128L$’; …M128H$œ; †DEFBLKx¦;à°; …BEGIN