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

Datum: 2020-05-10 Sun 00:00

Autor: Carsten Strotmann

Created: 2020-05-10 Sun 20:30

Validate