;+? [!6X'D:\e6J012345$ ( < <<< < <<< < <<<<<< <<<<<< <<<<<< <<<<<< <<< 4 ,< <<< < <<< < <<<<<< <<<<<< <<<<<< <<<<<< <? 8 ? < <<< < <<(p!33`32`ָ`L|~c"`()\1\3@""A!3330VpELl l5U@`! ` )Q8p3$(f!3033`j`dP?*x8x8x8x8x8x8x8x8x8x8x8x8x8x8x8x880xx0p0pppp0p0pppp0p0pppp088000h000h0h000h00h000h0000xx000`000`0`000`00`0`0`000088000X000XXXX000X000XXX00X0XXXX0xx000P000P0P000P00P0P0000P088000H000H0H000H00H0H0000H0xx000@000@@@@000@000@00@0@0@@@@0880770xx00007777088000077770xx0770880xx0880080088x8x8x8x8x8x8x8x8x8x8x8x8x8x8x8x((HL,SOUND5 CALLSOUND POP CALLROWCHK  LDA,(PIECEX) CP5 JPNZ,LAND2 CALLCLNEXT LDA,4 CALLTEXT CALLO_CLS LDHL,SOUND6 CALLSOUND CALLHI_SCO CALLWAIT CALLWAIT CALLCPLAYF LDB,5 LDHL,SCORE L_1LD(HL),"0" INCHL DJNZL_1 CALLLEV_0 CALLINIT LDA,2 CALLTEXT LDHL,MODE LDA,(HL) CP1 JPZ,D_RET JPLOOP  LAND2 PUSH CALLGIVEPT XORA LD(PSETTD),A LDA,(PIECE) CALLINCBLK LDA,(NXTPIE) LD(PIECE),A CALLRANDOM LDDE,PIECES LDHL,PCOPY LDBC,63 LDIR POP JP G_MAIN  ;Teil drehen: ROTATPPUSH LDA,1 LD(JOY),A LDA,(PIECE)  LDHL,PIECES-9 LDD,0 LDE,9 LDB,A INCB ROT1 ADDHL,DE DJNZROT1 INCHL LDD,H LDE,L LDA,(HL) PUSHAF INCHL LDA,(HL) PUSHAF  INCHL LDBC,6 LDIR INCDE POPAF LD(DE),A DECDE POPAF LD(DE),A LDA,(ROTVAR) CP1 JPZ,RLEGAL CALLTPIECE LDA,(PSETTD) CP255 JRNZ,REXIT LDA,1 LD(ROTVAR),A LDB,3 NO_RCALLROTATP DJNZNO_R XORA LD(ROTVAR),A RLEGALPOP RET REXITLDHL,SOUND0 CALLSOUND JPRLEGAL  ;Startlevel wechseln INCLEVPUSH XORA LD(WLVAR),A LD(WLVAR+1),A LDHL,SOUND4 CALLSOUND  LDA,(LEV)  CP 9  JR NZ,INCL1 LDA,255 INCL1 INCA LD(LEV),A CALLDISLEV WTLEV LDBC,49150 INA,(C) BIT1,A JRZ,WTLEV POP RET  INPLEVPUSH LDA,(LEV) CP9 CALLNZ,INCLEV LDHL,SOUND1 CALLSOUND LDHL,SOUND4 CALLSOUND POP RET  ;Level auf 0: LEV_0PUSH XORA LD(LEV),A CALLDISLEV POP RET  DISLEV PUSHHL PUSHAF ADD80  LD(CHAR),A  LDHL,POSX LD(HL),22 INCHL LD(HL),26 CALLPRINT POPAF POPHL RET  ;Texte printen TEXTPUSH  LDHL,POSX LD(HL),4 INCHL LD(HL),1 LD B,A LDHL,TEXTE-40 LDDE,40 T_ADDADDHL,DE DJNZT_ADD  LDB,E TXT1LDA,(HL) CALLAPRINT INCHL PUSHHL LDHL,POSY INC(HL) LDA,9 CP(HL) JPNZ,TXT2 LD(HL),1 LDHL,POSX INC(HL) TXT2 POPHL DJNZTXT1 POP RET  ;Spielfeld loschen CPLAYFPUSH LDHL,AFILE+12 LDDE,22 LDB,200 LDC,10 CPL1LD(HL),0 INCHL DECC XORA CPC JRNZ,CPL=2 LDC,10 ADDHL,DE CPL2DJNZCPL1 POP RET  ;loschen bei Ende O_CLS PUSH LDHL,AFILE+12 LDDE,22 LDB,200 LDC,10 OC1 LD(HL),120 PUSH LDHL,SOUND3 CALLSOUND DJNZ$ POP INCHL DECC XORA CPC JRNZ,OC2 LDC,10 ADDHL,DE OC2 DJNZOC1 POP RET  APRINTADD32 LD(CHAR),A CALLPRINT RET  ;PRINTe ueber POSX;POSY+CHAR PRINTPUSH LDA,(POSX) SRLA SRLA SRLA LDB,A LDHL,DFILE  LDDE,2048 LP1ADDHL,DE DJNZLP1 LDA,(POSX)  ADDA,A ADDA,A ADDA,A ADDA,A ADDA,A ADDA,L LDL,A LDA,(POSY) ADDA,L LDL,A PUSHHL LDA,(CHAR) SUB32 LDH,0 LDL,A ADDHL,HL ADDHL,HL ADDHL,HL LDDE,CHADDR ADDHL,DE EXDE,HL POPHL LDB,8 LPR LDA,(DE) PUSHBC LDB,A SRLB OR B POPBC LD(HL),A INCH INCDE  DJNZLPR POP RET  DECYLDA,(POSY) DECA LD(POSY),A RET  DECXLDA,(POSX) DECA LD (POSX),A RET  INCYLDA,(POSY) INCA LD(POSY),A RET  INCXLDA,(POSX) INCA LD(POSX),A RET  ;Pausenfunktion PAUSEPUSHAF PUSHBC LDBC,32766 INA,(C) BIT0,A JPNZ,PAUEX LDHL,SOUND4 CALLSOUND PAU3 LDBC,32766  INA,(C) BIT0,A JPNZ,PAU2 LDA,3 CALLTEXT PAU1LDBC,49150 INA,(C) BIT0,A JPNZ,PAU1 JPPAU3 PAU2 LDA,1 CALLTEXT LDHL,SOUND4 CALLSOUND PAUEXPOPBC POPAF RET  ;PVARS & Statistik clear ST_CLRPUSH LDB,7 LDHL,PVARS ST_CL1LD(HL),0 INCHL DJNZST_CL1 LDA," "+32 LD(CHAR),A LDA,12 LD(POSX),A LDA,1 LD(POSY),A ST_CL3LDHL,POSX ST_CL2CALLPRINT INC(HL) LDA,23 CP(HL) JRNZ,ST_CL2  LD(HL),12 INCHL INC(HL) LDA,8 CP(HL) JRNZ,ST_CL3 POP RET  ;NEXT-Feld loeschen CLNEXTPUSH LDHL,NFILE LDDE,28 LDB,16 LDC,4 XORA CLN1LD(HL),0 INCHL DECC CPC JRNZ,CLN2 LDC,4 ADDHL,DE CLN2DJNZCLN1 POP RET  ;Inc. Balken- Nr. in A INCBLKPUSH  LD(PY+1),A LDHL,PVARS ADDA,L LDL,A LDA,87 CP(HL) JRNZ,DOINC POP RET DOINCINC(HL) LDD,(HL) LDA,23*8 SUBD LDD,A PYLD A,0 ADDA,A ADDA,A ADDA,A ADDA,9 LDE,A LDB,6 PLOTSCF PUSH AF LD A,01AH RRA RRCA LD (PLOR+1),A LD A,D AND 0C0H RRCA RRCA RRCA ADD A,040H LD H,A LD A,D AND 7 ADD A,H LD H,A LD A,D AND 038H RLCA RLCA LD L,A LD A,E AND 0F8H RRCA RRCA RRCA ADD A,L LD L,A LD A,E CPL AND 7 RLCA RLCA RLCA PLOROR 0C6H LD (SETHL+1),A SETHLSET 0,(HL) POP AF INCE DJNZPLOT POP RET  RANDOMPUSH LDA,3 LD(PIECEY),A LDA,4 LD(PIECEX),A CALLRNDIGI LD(NXTPIE),A XORA LD(PSETTD),A POP RET  RNDIGILDA,6  LDD,A ZUF0LDBC,0 ZUF1INCB SRLA JRNZ,ZUF1 LDA,(ZUFZ) LDE,A LDHL,(ZUFZ+1) ZUF2LDA,E RLCA RLCA  XORH RRA RLL RLH RLE RLC DJNZZUF2 LDA,E LD(ZUFZ),A LD(ZUFZ+1),HL LDA,D CPC JRC,ZUF0 LDA,C RET  ;Init Zufallszahlengenerator INITLDHL,(23672) LD(ZUFZ+1),HL LDA,(23672) LD(ZUFZ),A CALLRANDOM LDA,(NXTPIE) LD(PIECE),A RET  ;Init SCORE,TROWS,ROWS+ ;Drucke "0" ueber ROWS+SCORE SCINITPUSH  XORA LD(FALLS),A  LDHL,SCORE LDB,5 SCI1LD(HL),"0" DJNZSCI1 LDA,"0"+32 LD(CHAR),A LDHL,POSX LD(HL),22 INCHL LD(HL),11 LDB,5 SCI2CALLPRINT INC(HL) DJNZSCI2 LD(HL),24 DECHL LD(HL),16 INCHL LDB,3 SCI3CALLPRINT INC(HL) DJNZSCI3 LDHL,TROWS LD(HL),0 INCHL LD(HL),0 LDHL,ROWS LDB,3 SCI4LD(HL),"0" INCHL DJNZSCI4 POP RET  ;Im NEXT-Feld den Stein zeig. NEXTFPUSH LDA,(NXTPIE)  LDHL,PCOPY-9 LDD,0 LDE,9 LDB,A INCB NF1 ADDHL,DE DJNZNF1 LDA,(HL);FARBE-A INCHL LDE,(HL) INCHL LDD,(HL);BITS-DE LDHL,NFILE  CALLN2ROW CALLINCRW CALLN2ROW LDD,E CALLINCRW CALLN2ROW CALLINCRW CALLN2ROW POP RET  N2ROWLDB,4 N2_1SRLD JRNC,N2_2 LD(HL),A JRN2_3 N2_2LD(HL),0 N2_3INCHL DJNZN2_1 RET INCRWPUSHDE LDDE,28 ADDHL,DE POPDE RET  ;Warteloop WAITPUSHBC PUSHAF LDBC,65535 WAIT1DECBC XORA XORA XORA XORA CPB JRNZ,WAIT1 CPC JRNZ,WAIT1 POPAF POPBC RET  ;JOY DOWN - PAUSE: DLAY LDB,1 PUSHBC PUSHAF LDBC,6000 JPWAIT1  ;SWAP DFIELD > Spielfeld SWAPPUSH  LDHL,DFIELD+37 LDDE,AFILE+12  LDB,20 SWAP1PUSHBC LDBC,10  LDIR  PUSHHL LDHL,22 ADDHL,DE LDD,H LDE,L POPHL INCHL INCHL POPBC DJNZSWAP1 POP RET  ;SWAP Spielfeld > DFIELD DSWAPPUSH  LDHL,AFILE+12 LDDE,DFIELD+37  LDB,20 DSWAP1PUSHBC LDBC,10  LDIR  PUSHDE LDDE,22 ADDHL,DE POPDE INCDE INCDE POPBC DJNZDSWAP1 POP RET  ;DFIELD clear: CLDFIEPUSH LDDE,DFIELD LDBC,24*12 LDHL,FCOPY  LDIR POP RET  ;Reihenzaehl`r INC: IROWSPUSH  LDA,16 LD(POSX),A LDA,26 LD(POSY),A LDHL,ROWS LDB,3 IROW1LDA,(HL) CP"9" JRNZ,IROW3  LDA,"0" LD(HL),A DECB JRIROW2 IROW3 INC(HL) INCA LDB,1 IROW2CALLAPRINT CALLDECY INCHL DJNZIROW1  POP RET  ;Punkte geben GIVEPTPUSH LDA,(LEV) INCA LDB,A GIVEAPUSHBC LDA,22 LD(POSX),A LDA,15 LD(POSY),A LDHL,SCORE LDB,5 GIVE1LDA,(HL) CP"9" JRNZ,NOSHFT LDA,"0" LD(HL),A DECB JRGIVED NOSHFTINC(HL) INCA LDB,1 GIVEDCALLAPRINT CALLDECY INCHL DJNZGIVE1  POPBC DJNZGIVEA  POP RET  ;HISCORE ANPASSEN: HI_SCOLDDE,SCORE+4 LDHL,HISCR+4 LDB,5 HI1 EXDE,HL LDA,(HL) XOR030H;ASCII>BIN LDC,A EXDE,HL LDA,(HL) XOR030H CP C JPC,XCHANG JPZ,H_WTR RET H_WTRDECHL DECDE DJNZHI1  RET  XCHANG PUSH LDHL,SCORE LDDE,HISCR LDBC,5 LDIR LDHL,SOUND2 CALLSOUND CALLDIS_HI LDB,25 POP RET  DIS_HILDA,22 LD(POSX),A LD(POSY),A LDB,5 LDHL,HISCR GTR1LD A,(HL) CALLAPRINT INCHL CALLDECY DJNZGTR1 RET  ;SOUND-ROUTINE: SOUNDLDA,(HL) CP0 RETZ INCHL LDB,(HL) PUSHHL LDH,0 LDL,B LDD,0 LDE,A CALL03B5H POPHL INCHL JPSOUND  TITELLDA,5 OUT(254),A LDBC,6912 LDDE,DFILE LDHL,TITLE LDIR LDHL,COPYRT LDA,20 LD(POSX),A XORA LD(POSY),A CPRLDA,(HL) CP"_" JRZ,SPWAIT LD(CHAR),A CALLAPRINT CALLINCY INCHL LDA,(POSY) CP32 JRNZ,CPR XORA LD(POSY),A LDA,21 LD(POSX),A JRCPR SPWAITXORA LDBC,0 SP1PUSHBC LD B,60 DJNZ$ POPBC PUSHAF INA,(31) AND0001B CP0  JRZ,SPNR LDBC,1 SPNRPOPAF DECBC CPB JRNZ,SP1 CPC JRNZ,SP1 RET  TEXTEDB "PRESS " DB "SPACE TO" DB "PAUSE " DB "THIS " DB "GAME... "  DB "FIRE TO " DB " START " DB "L:CHANGE" DB " LEVEL " DB " "  DB "*PAUSED*" DB " PRESS " DB " ENTER " DB " TO " DB " LEAVE.."  DB "* *" DB " GAME " DB " ---- " DB " OVER " DB "* *" DB " " DB " " DB " *DEMO* " DB " " DB " "  DEFMAC ("PDATA") DB 79,6,96,6,96,6,96,6,96 DB 87,0,240,68,68,15,0,34,34 DB 94,4,70,0,232,12,68,2,224 DB 38,4,98,3,96,4,98,3,96 DB 58,2,100,12,96,2,100,12,96 DB 53,2,38,4,112,3,34,0,113 DB 116,4,100,0,228,4,196,4,224 END. DEFMAC ("FIELD") DB 1,0,0,0,0,0,0,0,0,0,0,1  DB 1,0,0,0,0,0,0,0,0,0,0,1 DB 1,0,0,0,0,0,0,0,0,0,0,1 DB 1,0,0,0,0,0,0,0,0,0,0,1  DB 1,0,0,0,0,0,0,0,0,0,0,1  DB 1,0,0,0,0,0,0,0,0,0,0,1 DB 1,0,0,0,0,0,0,0,0,0,0,1 DB 1,0,0,0,0,0,0,0,0,0,0,1 DB 1,0,0,0,0,0,0,0,0,0,0,1  DB 1,0,0,0,0,0,0,0,0,0,0,1 DB 1,0,0,0,0,0,0,0,0,0,0,1 DB 1,0,0,0,0,0,0,0,0,0,0,1 DB 1,0,0,0,0,0,0,0,0,0,0,1  DB 1,0,0,0,0,0,0,0,0,0,0,1 DB 1,0,0,0,0,0,0,0,0,0,0,1 DB 1,0,0,0,0,0,0,0,0,0,0,1 DB 1,0,0,0,0,0,0,0,0,0,0,1  DB 1,0,0,0,0,0,0,0,0,0,0,1 DB 1,0,0,0,0,0,0,0,0,0,0,1  DB 1,0,0,0,0,0,0,0,0,0,0,1 DB 1,0,0,0,0,0,0,0,0,0,0,1  DB 1,0,0,0,0,0,0,0,0,0,0,1 DB 1,0,0,0,0,0,0,0,0,0,0,1 DB " " END. PIECESPDATA PCOPYPDATA HISCRDB "0" SCOREDB "0" ROWSDB "000" TROWSDB 0,0 FALLSNOP PVARSDB 0,0,0,0,0,0,0 POSXNOP POSYNOP CHARNOP LEVNOP JOYNOP ZUFZDB 0,0,0 PIECENOP PIECEXNOP PIECEYNOP PSETTDNOP ROTVARNOP NXTPIENOP WLVARDB 0,0 MODENOP DFIELDFIELD FCOPYFIELD SOUND0DB 50,50,60,60,45,60,30,100,100,30,110,30,120,30,0 SOUND1DB 100,40,220,20,240,20,250,10,100,40,220,20,236,20,250,10,100,35,210,22,240,18,0 SOUND2DB 255,255,255,200,200,100,255,255,255,210,200,110,255,240,244,244,255,234,0 SOUND3DB 30,30,0 SOUND4DB 200,100,0 SOUND5DB 30,10,20,10,18,10,17,9,16,8,15,7,14,6,13,5,12,4,6,2,3,1,0 SOUND6DB 200,200,1,1,1,1,200,200,1,1,1,1,210,200,255,222,1,1,1,1,190,198,190,196,189,180,188,182,0 COPYRTDB " * CONVERSION (P)1990 BY ANDI * " DB " * (). BY ALEXEY PAZHITNOV * " DB "_" END INCHL8JDFILE@AFILEXNFILEZXBUFFERPTITLE@CHADDRCP3@CP4FPIDATAJPP1VPP2qJOYSTCxNDOWNJOYEXJOKEXLEFTRIGHTROWCHKRWC1RWC3RWC4DEL1(DEL2TPTSRjNODELsLANDEDL_1LAND2ROTATPROT1NO_RMRLEGALVREXIT[INCLEVdINCL1~WTLEVINPLEVLEV_0DISLEVTEXTT_ADDTXT1TXT2CPLAYF CPL1CPL2#O_CLS*OC18OC2SAPRINTZPRINTcLP1wLPRDECYDECXINCYINCXPAUSEPAU3PAU1PAU2PAUEXST_CLR ST_CL1ST_CL3'ST_CL2*CLNEXTACLN1PCLN2ZINCBLKaDOINCwPY}PLOTPLORSETHLRANDOMRNDIGIZUF0ZUF1ZUF2INITSCINIT$SCI11SCI2DSCI3RSCI4eNEXTFoNF1N2ROWN2_1N2_2N2_3INCRWWAITWAIT1DLAYSWAPSWAP1DSWAPDSWAP1CLDFIEIROWS2IROW1EIROW3PIROW2TGIVEPTbGIVEAkGIVE1{NOSHFTGIVEDHI_SCOHI1H_WTRXCHANGDIS_HIGTR1SOUNDTITELCPR SPWAITASP1ESPNRWTEXTE`PDATA[FIELD$PIECES(PCOPYgHISCRSCOREROWSTROWSFALLSPVARSPOSXPOSYCHARLEVJOYZUFZPIECEPIECEXPIECEYPSETTDROTVARNXTPIEWLVARMODEDFIELDFCOPYSOUND0SOUND1SOUND24SOUND3GSOUND4JSOUND5MSOUND6dCOPYRT՘וҕ敓t4w4\zBK7Ƙ͘侘Rgp\1zM엒HI, VI_ޗeo}qh|Th'0:䆕t|D䀕薕誕~CT,洙袕A7"M-=D9@*1K"՗̗ƕjOW@#跕-ژ+강ɕΕė˙ÙyÕ|_鿕q yp绕P`HWi筕9_f_nvT* ^/$ % ir{W> ^itꚕDL9,! ܕR[7U'JS@6?6 z˖Rwk`֖)AaZ# #O````WDD""^F D&b`b`:d `d `5&p"qtd   [@b71/>2H\k @!2>$22g¼xOd:!5ʋh#5h͚7>> 2!6ü2!J$ :> Aͻͻ:(  ͩ  !> G'2o:=2:x| : ³2!4|:ʀ Jͭ#ͭS#ͭ#ͭ:0(>2w#J#S##:0 (>2#J>#>S#>#>:06#:! G~#^#V:!o :=G:—W(gO G 7!>2:=2:™:<22×>2:<2:™:=22×! X  (#zs!>G> O!P!P:< ͓22!F#Nq+p#Fb!M:A>*!d͛ͻͻ !60#Ͱ>!~ʳhb2:a:2(!g?>2:! G#T]~#~#:V: >22!V22!J: ><2xO(: d!!J2P2!6#6c!6#6G!8(C~Z#!4> 6!4! X 6#  ! X 6x!G#   2c:???G!@:o:o: &o)))<G8w$:=2:=2:<2:<2xG!JxG>xG>!J!6#>@2> 2>2!c4> 6 #4> !ZX6# 2~!o>W 4V>W> _7>2z@gzgz8o{o{/2>2>222>W? :_*{{2"z8y*x\":x\2:22!60>P2!6#6 c46+6#c4!6#6!60#:!^ G~#^#V!ZXͥʹͥSʹͥʹͥ:0w6# p! X !T]##! X  !>2>2!~9 >0w4<Zͮ#:2>2!~9 >0w4<Zͮ#!~0O~0ڹʴ+!!4>22!~Z#ͮ~#F&h_͵#>@!@!>22~_(2Z;#: 2>2߯<( PRESS SPACE TOPAUSE THIS GAME... FIRE TO START L:CHANGE LEVEL *PAUSED* PRESS ENTER TO LEAVE..* * GAME ---- OVER * * *DEMO* O````WDD""^F D&b`b`:d `d `5&p"qtdO````WDD""^F D&b`b`:d `d `5&p"qtd 0 @                                                22<<-<ddnxd( d( d#dnd      ƾĽ * CONVERSION (P)1986 BY ANDI * * (). BY ALEXEY PAZHITNOV * _bRJFB(p!33`32`ָ`L|~c"`()\1\3@""A!3330VpELl l5U@`! ` )Q8p3$(f!3033`j`dP?*>>>cc~>?>c~0>>>~>c|?c0~>`c~>c?c>cccsc`c` cs c c{ c c>~~<c{c ~<c`~~<cc  {cc ?`coc`~ co ~ ?cccoc ?? c```~c occ? ccg6`fc cg ` ccccgf cc``6``c0c gc6 >>cc>?>c`0?>>>~cc|?c0~cc`cc?c>>Zx8x8x8x8x8x8x8x8x8x8x8x8x8x8x8x880xx0p0pppp0p0pppp0p0pppp088000h000h0h000h00h000h0000xx000`000`0`000`00`0`0`000088000X000XXXX000X000XXX00X0XXXX0xx000P000P0P000P00P0P0000P088000H000H0H000H00H0H0000H0xx000@000@@@@000@000@00@0@0@@@@0880770xx00007777088000077770xx0770880xx0880080088x8x8x8x8x8x8x8x8x8x8x8x8x8x8x8x((!0 ! # <@cc8\\\\\\\\\\\\-\WX![!@P!!88"c K SR P620000 0 @ temp _@ P P P 3\3\-\\0+-e3X' Rv>;eÄeñdddeXk]k/díuu{dÜvvìd!|uɂlͭuOptions {!eif!\h^r*-d} [|!{woK |~!|*|ͺh ʊe "|ÊeHf͵hͩn> v~({if*|6*|#ѯͪh!e"|͵hͺh!" |:|(> v*|6 !|e{if!{f*|6 ~ (w#6w>w><_(͞h^(͜vs|"|!|!" |G!z6T< 6 < 6T#>2j\!e[ |͵h8m* |###",|!e"|> 2|2\|>2#|>2|>2$|! "%|!"|!|* |###́k+"|fh*|ͽu!h"|͕k>2$|Wo!e"|{|f(͌u8m  !,|^#V!,|"|s#r#ͅk> f6fs#r`i*|l&)*|T]N#F+͍k~(> ###}2|!,|fz<2|~ >{<  ((#:| #"|bk}"|6 /(O}*|c[|:|G> G~#4vn^#V#}( }ifñf*|$av!~.Davl&)*|>Gf##Èh͌gf͛gojg8 x ͵gge! wgx02|!(g Rtʟt uDu t tʌuNgÈhV7?͕v2|2|͎v7͛g:|G͕v2|x͎vV:|͎vG*|~( =0 ~87##ͼv ( 7f7! wgn(F(Wo*|.av6ff͈h (&tt AzazAZ    09**-- 09AF**!av*|avh* |#" |.k* |+" |}! |6#ɯ2|>u{!\|Gh2|h*(Uj* |j}" |7( w# 6 #y2|7MiHfo!|"|!{ci>2|2|0}2|ͩn76f`i~ ͅk"|~($\| (@('f#(ͅkK|B ()~ * |###~(# 7ɾ(~ !i"|7?NOT FOUN(((!'|q#q#p#p#6!%|"|ͼuVw'g (!87vͨuvV*|!av~G(ͭuColumn KoHVwͨuav!|w+w 0 8  0 o#o+(7n*|:#|(2|#"|~2#|####f K| ~(- ef6f`i~ (6###~(++6#6#͎hV ͞h oWo:| 6!tk!zkzk{k{k ##NF =!rk>/NFB0 !|4v## |]k}fkƐ'@'v'd > v>>> !|~w#~w#~@wfͪh!Nh"|'g˯2"|o&)k^#VV ZOq(ͺhi MyG>y(=g.6f`iHf9f6#6#< av>-u*|>uav#^#Vy(Wl#V hͭuHELP WlÕk:"|4v>-4vüumm?mp m msJqRqs_qq m mqrsrss m ms m m;dgain, finottoChangeleteelInseroiopy lineocatTab seWorkspacrinQuieplactatuorite filAssemblInvali m l i l*|+++~(͍k ###,|f!"| llhͼu!Sh"|{j'go:| 8S0O~ n owVwRt8f ^ :|<2|n:| o&zn(}<(f  > Wo~UqBm!emnn o͖fn f(Wo WomKo ( o}o8)6 ͟t> Vw~n:| o+~#&zf fWo*|+++~to:|_:$| 6 =#w#wpo:|ͩnKoG:$|(O6 6ffÈh!{UT]+:|O>(O{*|b]F!,|^#VS|6fC|{n(s#r`iifC|Ko:|_:|2|Fn( v ;o_p oSpo_p*|ͅk"|!"|!{if*|Wo"|&t:| Ìu>T2z!|Kp}2|!{}:| ͖f~(#]z#~ "g :| g ˾#~(DM&z#}< >f({(6#= `i!}[$|+~ -, -e&#Ap##"|[|R(T0*}/O|/G*|[|B*|RDMS|(DM*| *|K| *|RDMzeS|[|!}K|y( y(6 #6!,|[|>(>-2|öj l llImlͭqqMiͅk~2#|"|f6fBl8Uqlrͭq!{\|qmpc!\h^r o6 f~\ #~\( (#!{\|_Ɂlp!rh^r!"-d!{~ 0Uj* |"-dSA&r>AiAA-nywhere/S-tart S-top/C-ontinuous CS8r>SiS[|"|*|:$|:|x2$|S|͵hav6f{s#rKoem6fq#p2|2$|"|!{~ ɁlsYd6f`id*|#~-lͪhKrpc!Sh^r!c{6 fͿhiS|^(s(Y No:|2|:|G:|(0 DGnGn o*|:|(OWo͎h&tV̞h l~w l8m* |###",|íe`l*|`l`l* |###"|=w`lͼusYe!Gh"|hͭuREP? !Lh"|ͭuAre you sure? (Y/N)'g˯:|=Du= Du8,*|%#:|u u6f#^#V!fR*|$"|7Ko_:$| ,f ^ n( ~ 7?Wo&to͌u7:|< t:|*|o/:|= #t8fWoto:|ͩnKo:|*|o"|avKo7:$|O:| :|7?2|7*|^#Vͅk>7?*|,|R##DM!,|T]##*|s#rͅw!avf7!,|^#V+++>7?͍k###*|,|R##MD*|]T+!,|s#rww!avf7:|_͵h2|2|> u~#(v~u~ #(> u~v#n 4v > F4v(vuh!| ( w4vu> eVw*|,} ( "|!|4!|4o$| gav"||o|@g"|}l&)oX"|*|w*|~*|ͼv0ͼv0A8[0ͯ (' ( :j\_(6A82[0.xG # 7xG {7xO z77" \N*|>˿(>:"|O{|[|*|R#" |˿ $= t cursor to text file. ; Set up cursor for blink. ; SETCUR: B_* (). BY ALEXEY PAZHITNOV * een character. LD (VALUE),A ; Store. LD (UNDERC),A XOR A ; Cursor attribute CALL OUTA1 ; Put out cursor. SET 2,(IX+FG00) ; Cursor on screen. SCF RET ; Swop between cursor and character under ; cursor. ; SWOPCU{ {ccETCUR ~JC Exy AJg  ENDRT1 screen. LD (UNDERC),A LD A,B CALL OUTA1 ; Other character attribute RET ;T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T;* T E T R I S * h?T{3@3XyQ SSAABUhj{ҤԤ)8EWeszX X T LIMT08: INC IX ; Move on to next set of limits. INC IX JR LIMT02 ; Scan keybc:\8|; /LhBX|B| KEY ; Get keypress.  ; Scan system keyXORA 2y2y2y2Hy2y2y2yog"y"y!t"Wy"h*f:sy [lSh"d~:y,ͪ*r"Uy"WyKd[ayxD~:y:y8Rͦ:syg>t:tyGdCONSTANTS>tdSUBRANGES>tdSETS>tdMACROS>t!{"By"Dy!"my"{*j###"y>2y&:y:( *By{R*r"]yl(%:y ͥ6#www̒>׊:y:&&(! %:y *r[]yR( ͋*d+"d:y:y[my 2:y(my*Wy6#q#p#6#s#r#6#"WynfR>׊sr:y:yփ8>׊&:y_ :y( *W