MODULE››; TXT.ACT - ZAMIENIAM PRINTF NA TX()››BYTE X,Y,Q,A,B,PR,Q1,Q2,C,D,P,GL,ST1,ST2,ST3,ZW,CC,DD,STR,STT,PLA,ILP1,XX,PU1=1536,PU2=1537,PU3=1538,PU4=1539›,PU5=1540,PU6=1541,ZYC,E,F,EE,FF,E1,RE,OP›BYTE ILPX,CZP,W1,W2,W3,G9=53272,G8=$D40A BYTE K=764›CARD Z,FA,FB,FC,DL=560,ADREKR,QQ BYTE ARRAY POK=0 BYTE PLA1,KON,LG,DIF,LGM›››PROC PO(BYTE A,B)POSITION(A,B)RETURN PROC DR(BYTE X,Y)DRAWTO(X,Y)RETURN›;PROC TX(BYTE X,Y CHAR ARRAY T)BYTE Q1,Q2,Q3 Q3=T(0)FOR Q1=1 TO Q3 DO Q2=T(Q1)POKE(ADREKR+X+Y*40+Q1-1,Q2)OD RETURN›PROC TX(BYTE X,Y BYTE ARRAY T)BYTE Q1 CARD Q3,Q4 Q1=T(0)Q3=ADREKR+X+Y*40 Q4=PEEKC(@ T)MOVEBLOCK(Q3,Q4+1,Q1)[96]››PROC SZ(BYTE X,Y,W)POK(ADREKR+X+Y*40)=W[96]››PROC ERT()›;PO(0,23)PRINTD(6,"ÎÏÐÑÒ")›TX(0,23,"®¯°±²")›;PO(16,23)PRINTD(6,"lives")›TX(16,23,"lives")›;PO(33,23)PRINTD(6,"time")›TX(33,23,"time")››RETURN›PROC MUREK(BYTE A,B,MA,MB)›;PO(FA,FB)PRINTD(6,"#$")›TX(FA,FB,"")›;PO(FA,FB+1)PRINTD(6,"#$")›TX(FA,FB+1,"")›RETURN››PROC MUREK1(BYTE A,B,MA,MB,T)›;PO(FA,FB)PRINTD(6,"£¤")›TX(FA,FB,"ƒ„")›;PO(FA,FB+1)PRINTD(6,"£¤")›TX(FA,FB+1,"ƒ„")›[96]››PROC KRA(BYTE A,B,MA)›;PO(FA,B)PRINTD(6,"%&")›TX(FA,B,"")›RETURN›PROC KRA1(BYTE A,B,MA)›;PO(FA,B)PRINTD(6,"¥¦")›TX(FA,B,"…†")›RETURN›PROC OKNO(BYTE A,B,T)›IF T=1 THEN››PO(A,B)PRINTD(6,"12223")PO(A,B+1)PRINTD(6,"7 8")PO(A,B+2)PRINTD(6,"7 8")PO(A,B+3)PRINTD(6,"45556")››TX(A,B,"")›TX(A,B+1,"")›TX(A,B+2,"")›TX(A,B+3,"")››ELSEIF T=2 THEN ››PO(A,B)PRINTD(6,"")PO(A,B+1)PRINTD(6," ")PO(A,B+2)PRINTD(6," ")PO(A,B+3)PRINTD(6,"")››TX(A,B,"UVVVW")›TX(A,B+1,"[\")›TX(A,B+2,"[\")›TX(A,B+3,"XVVVZ")›››ELSEIF T=3 THEN ›;PO(A,B)PRINTD(6," ")PO(A,B+1)PRINTD(6," ")›;PO(A,B+2)PRINTD(6," ")PO(A,B+3)PRINTD(6,"")››TX(A,B,"JKKKL")›TX(A,B+1,"PQ")›TX(A,B+2,"PQ")›TX(A,B+3,"RNNNS")›››ELSEIF T=4 THEN ›;PO(A,B+1)PRINTD(6," ")PO(A,B+2)PRINTD(6," ")›;PO(A,B+3)PRINTD(6," ")PO(A,B+4)PRINTD(6," ")››TX(A,B+1,"PQ")›TX(A,B+2,"PQ")›TX(A,B+3,"PQ")›TX(A,B+4,"MKKKO")››FI›RETURN›PROC PRZ1(BYTE X,Y)›;PO(X+1,Y+1)PRINTD(6,"º;")›TX(X+1,Y+1,"š")›;PO(X+1,Y+2)PRINTD(6,"<=")›TX(X+1,Y+2,"")›[96]›PROC PRZ2(BYTE X,Y)›;PO(X+1,Y+1)PRINTD(6,">?")›TX(X+1,Y+1,"")›;PO(X+1,Y+2)PRINTD(6,"@A")›TX(X+1,Y+2," !")›[96]›PROC PRZ3(BYTE X,Y)›;PO(X+1,Y+1)PRINTD(6," ")›TX(X+1,Y+1,"")››;PO(X+1,Y+2)›SZ(X+1,Y+2,34)›IF POK(ADREKR+X+3+Y*40+80)=0 THEN ›;PRINTD(6,"BC;")›TX(X+2,Y+2,"#")›ELSE ›;PRINTD(6,"BC")›TX(X+2,Y+2,"#")›FI[96]››PROC PUD(BYTE A,B)›;PO(A,B)PRINTD(6,")****+")›;PO(A,B+1)PRINTD(6,"/((((0")›;PO(A,B+2)PRINTD(6,"/((((0")›;PO(A,B+3)PRINTD(6,",----.")››TX(A,B," ")›TX(A,B+1,"")›TX(A,B+2,"")›TX(A,B+3," ")››RETURN›PROC PLO(BYTE A,B,MA,MB)›;PO(FA,FB)PRINTD(6,"'")›SZ(FA,FB,7)›RETURN›PROC PLO1(BYTE A,B,MA,MB)›;PLOT + 5 ATRYB.›;PO(FA,FB)PRINTD(6,"§")›;SZ(FA,FB,7+128)›SZ(FA,5,135)›RETURN›PROC ZAM(BYTE A,B,MA,MB)›;PO(FA,FB)PRINTD(6,"9")›SZ(FA,FB,25)›RETURN›PROC ZAM2(BYTE A,B,MA,MB)›;PO(FA,FB)PRINTD(6,"S")›SZ(FA,FB,51)›RETURN›PROC ZAM21(BYTE A,B,MA,MB)›;PO(FA,FB)PRINTD(6,"Ó")›;SZ(FA,FB,128+51)›SZ(FA,FB,179)›RETURN›PROC WLAZ(BYTE A,B)›;PO(A,B)PRINTD(6,"U WY[\")›TX(A,B,"579;<")›;PO(A,B+1)PRINTD(6,"V XZZ]")›TX(A,B+1,"68::=")›RETURN››PROC GR()›GRAPHICS(0)›ADREKR=PEEKC(88)›RETURN››PROC RYSP()›IF PLA=1 THEN ››;PO(30,9) PRINTD(6,"")›;PO(30,10)PRINTD(6," ")›;PO(30,11)PRINTD(6," ")›› TX(30,9,"]]]^")› TX(30,10,"_")› TX(30,11,"_")››FI›IF PLA=4 THEN››;PO(32,19)PRINTD(6,")****+")›TX(32,19," ")›;PO(32,20)PRINTD(6,"/((((0")›TX(32,20,"")››FI›IF PLA=5 THEN››;PO(0,18)PRINTD(6," ")›TX(0,18,"")›;PO(0,19)PRINTD(6," ")›TX(0,19,"")››FI›RETURN››PROC LEV() ›;PO(20,23)PRINTD(6,"level{ ")›TX(20,23,"level{")›[96]››PROC REK()››;PO(4,0)PRINTD(6,"# # $# $#$ $# #$ # #")›TX(4,0,"")›;PO(4,1)PRINTD(6,"# # # $ $ # # $ # # #")›TX(4,1,"")›;PO(4,2)PRINTD(6,"# # # $ $#$ $# $ # # #")›TX(4,2,"")›;PO(4,3)PRINTD(6,"# # # #$#$ $ $ $ $#$# # # #")›TX(4,3,"")›;PO(4,4)PRINTD(6,"#$#$# # $ $ # $# $ # #$#$#")›TX(4,4,"")›;PO(7,5)PRINTD(6," ¤£ ¤ ¤£¤£¤ ¤ ¤ ")›TX(7,5,"„ƒ„„ƒ„ƒ„„„")›;PO(7,6)PRINTD(6,"£ ¤ ¤ ¤ ¤ ¤ $")›TX(7,6,"ƒ„„„„„„")›;PO(7,7)PRINTD(6,"£ ¤ ¤ ¤£¤£¤ #$#$#")›TX(7,7,"ƒ„„„ƒ„ƒ„ƒ„ƒ„ƒ")›;PO(7,8)PRINTD(6,"£ ¤ ¤ ¤ ¤ $")›TX(7,8,"ƒ„„„„„")›;PO(7,9)PRINTD(6," ¤£ ¤ ¤ ¤ ")›TX(7,9,"„ƒ„„„")››;PO(3,10)PRINTD(6,"EMLM| FDED code{ tdc msx{ miker")›TX(3,10,"%-,-|&$%$code{tdcmsx{miker")››;PO(7,11)PRINTD(6,"thanks to atarionline`pl")›TX(7,11,"thankstoatarionline`pl")›RETURN››PROC PRE()››;IF (POK(53279)=3 OR POK(53279)=5) AND KON=0 THEN› ;IF PEEK(ADREKR+447)=116 THEN ZERO(ADREKR+440,39)››;PO(2,11)PRINTD(6,"difficulty{")›TX(2,11,"difficulty{")›;PO(16,11)PRINTD(6,"controller{")›TX(16,11,"controller{")›;FI›››;PO(28,11)PRINTD(6,"joystick ")›TX(28,11,"joystick")›;ELSE ›PO(28,11)PRINTD(6,"light gun")›TX(28,11,"lightgun")›;FI››RETURN››PROC AS()›K=255›GR()FA=0 FB=0 A=0 B=0 ››REK()›› ››››B=5 ›››› ›››B=10›››››B=15›››››››WHILE K=255›DO›[173 $D40B 201 110 208 249]›››OD K=42›RETURN›