.OB "@:KOALA -MAIN,P,W"  .BA$0801  .WONEXTLINE ( .WO1987, 2 .BY$9E; <.TX "2080"N F.BY 34,141,""i P.TX "(W) MS FOR SSVC!" ZNEXTLINE .BY0,0,0 d; .SY 4,4 n; .LI 4,4 x.GL PORT=1 .GL BPRINT=$AB1E .GL CIAREG=$DD00 .GL CHARSET=VIC !.GL BSPAGE=648!.GL IRQL=$03141!.GL IRQH=$0315C!.GL VIC=$D000U!.GL SR2=$D016g!.GL RZI=$D012y!.GL IMR=$D01A!.GL IRR=$D019!.GL SR1=$D011!.GL SPRCOL=$D027!.GL LOBYTE=$B4!.GL HIBYTE=$B5!.GL REIHE=$F7!".GL ANZ=$F8 ",.GL SPRPOL=$F9 "6.GL SPRPOH=$FA4"@.GL VIDEO=$C000F"J.GL ADDLO=$92X"T.GL ADDHI=$93m"^.GL SETNAM=$FFBD"h.GL GETIN=$FFE4"r.GL SETLFS=$FFBA"|.GL OPEN=$F34A".GL CHROUT=$FFD2".GL CHKOUT=$FFC9".GL CLOSE=$FFC3".GL CLRCHN=$FFCC#.GL RETTEN=$FB"#.GL BKND=$D0217#.GL BORDER=$D020K#.GL HIRES=$E000]#.GL ADR=$D018t#.GL SPRITESA=$D000#.GL SPRITESB=SPRITESA+256#.GL LOC=(SPRITESA-$C000)/64#.GL EXPY=$D017#.GL CRA=$DC0E#.GL SOURCE=LOBYTE$.GL ENDEL=SPRPOL$&LETSGO JSR$E544"$0 LDA#111$: STABORDER>$D STABKNDI$N LDA#0U$X STA198k$b ...PRINT(HEADER)$c ...PRINT(KEYS)$l JSRWAITKEY$v LDA#8$ STASR2$ SEI$ LDA#<(IRQ)$ STAIRQL$ LDA#>(IRQ)$ STAIRQH$ LDA#249% STARZI % LDA#1% STAIMR%% LDASR12% AND#127>% STASR1I% LDX#0X%  STXVIC+16d% STXCRAr%  STX$FFFF%*SETLOOP1 LDATAB1,X%4 STAVIC,X%> INX%H CPX#16%R BNESETLOOP1%\ LDA#$FF%f STAVIC+21%p LDX#0%zSETLOOP2 LDATAB2,X& STAVIDEO+1016,X& LDA#7,& STASPRCOL,X5& INX@& CPX#8Q& BNESETLOOP2]& LDA#14n& STASPRCOL+7z& LDA#15& STASPRCOL+6& ...POKE(1,51)& LDX#0& TXA&SETLOOP3 STASPRITESA,X& STASPRITESB,X& INX&$ BNESETLOOP3'. ...POKE(650,128)'8 LDY#04'BNOCHMAL LDACHARSET,YD'L STA$0400,YT'V LDA$D100,Yd'` STA$0500,Ym'j INY}'t BNENOCHMAL'~ ...BASICON' CLI' LDACIAREG' AND#$FC' STACIAREG'START LDA#$06' STAADR' LDA#$C0' STAEXPY ( LDA#>(VIDEO)( STABSPAGE&( LDAADR2( EOR#14>( STAADRJ(  LDASR2V( EOR#16b( STASR2t(( JMPDANNNICHT(2LOOPS JSRWAITKEY(< CMP#"1"(F BNEMARK0(P LDAZAE1+1(Z CLC(d ADC#$20(n STAZAE1+1(x ...LDAYI(HIRES+8000)) ...STAY(ENDEL)) ...LDAY(ZAE1).) ...STAY(SOURCE)C) ...LDAYI(HIRES)T) JSRKOPIERENi)WEG JMPDANNNICHT{)MARK0 CMP#"2") BNEMARK3) LDAZAE2+1) CLC) ADC#$04) STAZAE2+1) JMPDANNNICHT)MARK3 CMP#"3") BNEMARK4) LDAZAE3+1*" CLC*, ADC#$04#*6 STAZAE3+15*@ JMPDANNNICHTG*JMARK4 CMP#"4"U*T BNEMARK5e*^ INCFARBE+1w*h JMPDANNNICHT*rMARK5 CMP#"S"*| BEQSAVEN* JMPDANNNICHT*SAVEN JSR$FD15* JSR$FDA3* JSR$E518*; CLI+ LDA#FILNAMEND-FILENAM+ LDY#>(FILENAM)-+ LDX#<(FILENAM)<+ JSRSETNAMG+ LDA#2R+ LDX#8]+ LDY#2l+ JSRSETLFSy+ JSROPEN+ LDX#2+ JSRCHKOUT+& LDA#0+0 JSRCHROUT+: LDA#$60+D JSRCHROUT+N ...LDAY(ZAE1)+X ...STAY(SPRPOL),b ...LDAYI(8000),l ...ADW(ZAE1)+,v ...STAY(REIHE)<, JSRSCHREIBEO, ...LDAY(ZAE2)d, ...STAY(SPRPOL)x, ...LDAYI(1000), ...ADW(ZAE2), ...STAY(REIHE), JSRSCHREIBE, ...LDAY(ZAE3), ...STAY(SPRPOL), ...LDAYI(1000), ...ADW(ZAE3)- ...STAY(REIHE)"- JSRSCHREIBE2- LDAFARBE+1A-  JSRCHROUTL- LDA#2Z-  JSRCLOSEh-* JSR$E5A0s-4 LDA#0-> STA$D020-H STA$D021-R ...PRINT(ENDME)-U ...PRINT(MESS1)-V LDA#34-W JSRCHROUT-X LDA#0-Y STA$D4.Z ...PRINT(MESS2).\ JMP$E386!.fSCHREIBE LDY#0*.p SEI7.z STYPORTJ. LDA(SPRPOL),YV. LDX#55c. STXPORTl. CLI{. JSRCHROUT. STA$D020. ROL. ROL. STA$D021. ...INCW(SPRPOL). LDASPRPOL+1. CMPREIHE+1. BNESCHREIBE. LDASPRPOL / CMPREIHE/ BNESCHREIBE'/$ RTSC/. DANNNICHT ...LDAY(ZAE1)N/8 LDX#0^/B JSRHETOSPRr/L ...LDAYI(TEXT)}/V LDX#0/` JSRWRITESPR/j ...LDAY(ZAE2)/t LDX#5/~ JSRHETOSPR/ ...LDAY(ZAE3)/ LDX#10/ JSRHETOSPR0 ...LDAYI($D800+1000)0 ...STAY(ENDEL),0 ...LDAY(ZAE3)A0 ...STAY(SOURCE)V0 ...LDAYI($D800)g0 JSRKOPIEREN0 ...LDAYI(VIDEO+1000)0 ...STAY(ENDEL)0 ...LDAY(ZAE2)0 ...STAY(SOURCE)0 ...LDAYI(VIDEO)0 JSRKOPIEREN0 JMPLOOPS0( RTS!12 TEXT .TX"BILD COL1 COL2 (C) MS"+1< .BY 0J1F HEXSTR .TX"E000 0000 0000"T1P .BY0{1Z FILENAM .TX"@:PIC A SSVC-PIC,P,W"1d FILNAMEND .BY01n ZAE1 .WO$E0001x ZAE2 .WO$C0001 ZAE3 .WO$C4001 ZAHL .WO01 ; ***************************2 ; * TEXT IN SPRITEREGISTER *2 ; *@2 ; *X SPRITEREIHE *b2 ; ***************************y2 WRITESPR STALOBYTE2 STYHIBYTE2 ...LDAYI(SPRITESA)2 ...STAY(SPRPOL)2 CPX#12 BNEERH2 LDASPRPOL2 ADC#232 STASPRPOL3" ERH LDA#33, STAANZ!36 WEITER LDY#0/3@ STYADDHIB3J LDA(LOBYTE),YN3T BEQOUT[3^ AND#$3Fd3h CLCm3r ROL{3| ROLADDHI3 ROL3 ROLADDHI3 ROL3 ROLADDHI3 STAADDLO3 LDAADDHI3 ADC#$043 STAADDHI3 LDY#$073 LDX#244 SPRITESET LDA(ADDLO),Y#4 STYRETTEN/4 ...TXY84 PHAA4 SEIT4 ...POKE(1,51)]4& PLAp40 STA(SPRPOL),Y4: ...POKE(1,55)4D CLI4N LDYRETTEN4X DEX4b DEX4l DEX4v DEY4 BPLSPRITESET4 ...INCW(LOBYTE)4 ...INCW(SPRPOL)5 DECANZ5 BNENHI5 LDA#3*5 STAANZ95 LDASPRPOLE5 ADC#61T5 STASPRPOL`5 BCCNHIo5 INCSPRPOH5 NHI JMPWEITER5 OUT RTS5 HETOSPR STAZAHL5 STYZAHL+15 JSRHEX05* ...LDAYI(HEXSTR)54 LDX#15> JMPWRITESPR 6H KOPIEREN ...STAY($FD)6R LDY#0.6\ KOPLOOP LDA(SOURCE),Y>6f STA($FD),YS6p ...INCW(SOURCE)e6z ...INCW($FD)q6 LDA$FE6 CMPENDEL+16 BNEKOPLOOP6 LDA$FD6 CMPENDEL6 BNEKOPLOOP6 RTS6 HEX0 LDAZAHL+16 JSRHEX16 LDAZAHL6 HEX1 PHA7 LSR7 LSR7 LSR"7 LSR/7 JSRHEX287$ PLAE7. AND#$0FV78HEX2 CMP#$0Ac7B BCCHEX3p7L ADC#$067VHEX3 ADC#"0"7` STAHEXSTR,X7j INX7t RTS7~.MA TXY7 PHA7 TXA7 TAY7 PLA7.RT7; A/Y - MEMORY = A/Y AKKU=LO8.MA ADW (MEMORY)8 CLC*8 ADCMEMORY38 PHA<8 TYAM8 ADCMEMORY+1V8 TAY_8  PLAg8.RT}8.MA INCW (MEMORY)8( INCMEMORY82 BNER8< INCMEMORY+18FR .RT8P; MEMORY -> A/Y AKKU=LO8Z.MA LDAY (MEMORY)8d LDYMEMORY+19n LDAMEMORY 9x.RT'9; A/Y -> MEMORY AKKU=LO=9.MA STAY (MEMORY)L9 STAMEMORY]9 STYMEMORY+1e9.RT}9; ZAHL=16BIT -> A/Y9.MA LDAYI (WERT)9 LDA#<(WERT)9 LDY#>(WERT)9.RT9.MA PRINT(MEMORY)9 LDA#<(MEMORY)9 LDY#>(MEMORY): JSRBPRINT:.RT):.MA POKE(MEMORY,WERT)7:" LDA#WERTF:, STAMEMORYN:6.RT^:@.MA BASICONq:J ...POKE(1,55)y:T.RT:^WAITKEY JSRGETIN:h BEQWAITKEY:r RTS:|IRQ LDASR1: AND#19: STASR1:NICHT5 LDA#6: STABORDER: STABKND ; DECVIC+12; INCVIC+14%; LDY#313;LOOP1 DEYA; BNELOOP1M; LDX#21^;LOOP2 DECSR2j; INCSR2; .BY$EA,$EA,$EA,$EA,$EA,$EA,$EA,$EA,$EA,$EA,$EA,$EA,$EA; DEX; BNELOOP2;& LDA#59;0 STASR1;: LDA#1;D STAIRR;NFARBE LDA#11 .TX " FOR SSVC"> .BY 13>>.TX " "I>.BY 13S> .BY 0f>*KEYS .TX"">4.TX " [1] BITMAP +$2000">>.BY 13,13>H.TX " [2] COLOR1 +$0400">R.BY 13,13>\.TX " [3] COLOR2 +$0400">f.BY 13,13?p.TX " [4] BACKGROUND +1"&?z.BY 13,13C?.TX " [S] SAVE PIC"Q?.BY 13,13^?EOT .BY0?ENDME .TX" PIC SAVED UNDER PIC A SSVC-PIC"?.BY 13,13,13,13,13?.TX"IF THERE ARE ANY QUESTIONS"?.BY 13?.TX"REFERING THIS PROGRAM"@.BY 13)@.TX"FEEL FREE TO WRITE TO:"4@.BY 13N@.TX"MARC SCHOENEFELDY@.BY 13q@.TX"ELISABETHSTR.39|@.BY 13@.TX"4722 ENNIGERLOH"@.BY 13@.TX"GERMANY (THERE CAN BE ONLY ONE)!)"@.BY 13,0@MESS1 .TX"OPEN1,8,15,"@.BY 03AMESS2 .TX"R:PIC A ........=PIC A SSVC-PIC>A.BY 13MA.TX ""^AMESSEND .BY0fA.EN