Kaiser 2 - Datei "KAISERII.TUR"
100 DIM PIC$(7680),COL$(384),P2$($0A00),MS$(86) 110 POKE 106,176:GRAPHICS %0:POKE 559,%0 120 OPEN #%1,4,%0,"D:KAISER.FNT" 130 BGET #%1,PEEK(106)*256,1024 140 CLOSE #%1:POKE 756,PEEK(106) 150 IF PEEK(732)=17 THEN 610 160 BLOAD "D:KAISERII.COM" 170 OPEN #%1,4,%0,"D:MUSIK.DAT" 180 BGET #1,$B400,6 190 BGET #1,$B400,2032 200 CLOSE #%1 210 MS$="hhh^M@^Chh^MA^Chh^MF^Chh^MC^Chh^MD^Chh*-F^C^]D^Bn@^C-@^CM^KTPx-F^C^MB^C-B^C ^XmD^C^MB^CNB^C T^]^VPMC^CPh-@^CMA^CPO`" 220 GRAPHICS %0:DPOKE 709,%0:POKE 752,1:POKE 756,PEEK(106) 230 POSITION 14,12:? "@ 1988-90 by" 231 POSITION 14,10:? " KAISER II" 232 POSITION %3,16:? "exclusiv im Vertrieb von Game Lords" 240 POSITION 13,14:? "`h]ni{ SoftCrew" 250 X=USR(ADR(MS$),$20,$55,15,%0,%0,%1) 260 CLOSE #%1:OPEN #%1,4,%0,"D:KAISERII.PIC" 270 BGET #%1,ADR(PIC$),7680 280 BGET #%1,ADR(COL$),384 290 CLOSE #%1 300 OPEN #%1,4,%0,"D:ANNO1700.PIC" 310 BGET #%1,ADR(P2$),$0A00 320 CLOSE #%1 330 POKE ADR(PIC$),%0 340 MOVE ADR(PIC$),ADR(PIC$)+%1,39 350 X=USR(ADR(MS$),$20,$55,%0,15,%2,%1) 360 GRAPHICS 31 370 EXEC COLINIT 380 ------------------------------ 390 MOVE ADR(PIC$),DPEEK(88),7680 400 EXEC MUSIK 410 GRAPHICS 31 420 DPOKE $0224,$C28A 430 POKE 54286,64 440 ------------------------------ 450 POKE 709,26 460 POKE 710,5 470 POKE 708,20 480 EXEC ANNO 490 POKE 756,176 500 FOR I=8 TO 60 STEP %2 510 MOVE ADR(PIC$)+I*40,DPEEK(88)+(60+I)*40,40 520 PAUSE %0 530 NEXT I 540 FOR I=59 TO 9 STEP -%2 550 MOVE ADR(PIC$)+I*40,DPEEK(88)+(60+I)*40,40 560 PAUSE %0 570 NEXT I 580 DL=DPEEK(560) 590 POKE DL+140,%2 600 MOVE ADR("^@^@^@^@^@^@^@^@^@^@^@^@^@^@7ird^@geladen^@^@^@^@^@^@^@^@^@^@^@^@^@^@" ),DPEEK(88)+5320,40 610 RUN "D:TESTER.TUR" 620 ------------------------------ 630 PROC COLINIT 640 DPOKE $0632,ADR(COL$)+1 650 DPOKE $063E,ADR(COL$)+97 660 DPOKE $063A,ADR(COL$)+193 670 DPOKE $0636,ADR(COL$)+289 680 DL=DPEEK(560) 690 POKE DL+2,PEEK(DL+2)!$80 700 FOR C=8 TO 99 STEP %3 710 POKE DL+C,PEEK(DL+C)!$80 720 NEXT C 730 FOR C=103 TO 198 STEP %3 740 POKE DL+C,PEEK(DL+C)!$80 750 NEXT C 760 DPOKE 53261,$FFFF 770 POKE $D000,41 780 POKE $D001,208 790 POKE 623,%2 800 X=USR($0600) 810 ENDPROC 820 ------------------------------ 830 PROC ANNO 840 X=%0:Y=%0 850 REPEAT 860 X=X+%1:Y=Y+%1 870 IF X=64 THEN X=%0 880 IF Y=40 THEN Y=%0 890 MOVE ADR(P2$)+X*40+Y,DPEEK(88)+X*40+Y,9 900 UNTIL X=61 AND Y=37 910 ENDPROC 920 ------------------------------ 930 PROC MUSIK 940 N=%0:RESTORE 940:REPEAT :N=N+%1 950 A=PEEK($B400+N*3) 960 B=PEEK($B401+N*3) 970 C=PEEK($B402+N*3) 980 IF C=255 THEN C=%0 990 FOR F=15 TO 10 STEP -0.3:SOUND 0,A,10,F:SOUND 1,B,10,F:SOUND 2,C,10,F-5:NEXT F:UNTIL STRIG(%0)=%0 OR N>126 991 IF STRIG(%0)=%0 THEN 1070 1000 RESTORE 1000:N=%0:REPEAT :N=N+%1 1010 A=PEEK($B57D+N*3) 1020 B=PEEK($B57E+N*3) 1030 C=PEEK($B57F+N*3) 1040 IF C=255 THEN C=%0 1050 SOUND %0,A,10,15:SOUND %1,B,10,10:SOUND %2,C,10,10:FOR T=15 TO %0 STEP -0.8 :SOUND %0,A,10,T:NEXT T:SOUND %3,A,10,7 1060 UNTIL N=548 OR STRIG(%0)=%0 1070 SOUND 1080 ENDPROC 1090 ------------------------------
Kaiser II (c) 1989-2020 PhöniX SoftCrew
Carsten Strotmann / Björn Israel
Atari und PC Software
https://kaiser2.strotmann.de