Kaiser 2 - Datei "XF551KL1.TUR"

100 DIM MEM$(7680),TXT$(20),A$(20),T2$(20),B$(94),DL$(275)
110 XIO 254,#%1,%0,%0,"D8:"
120 GRAPHICS 24:POKE 710,%0:POKE 752,%1:POKE 709,%0:POKE 559,%0
140 OPEN #%1,4,%0,"D:KAISER5.PIC"
150 BGET #%1,ADR(MEM$),7680
160 CLOSE #%1
190 OPEN #%1,8,%0,"D8:KAISER5.PIC"
200 BPUT #%1,ADR(MEM$),7680
210 CLOSE #%1
230 POKE 756,$A0
240 OPEN #%1,4,%0,"D:KAISERL.DAT"
250 BGET #%1,ADR(DL$),275
260 CLOSE #%1
270 OPEN #%1,4,%0,"D:KAISER0.PIC"
280 X=USR(ADR(DL$))
290 CLOSE #%1:DPOKE 709,14
300 POKE 559,34:RESTORE 560
310 POKE 709,13:COLOR %1
320 FOR U=%0 TO 6
330	TRAP 330:IF U=4 THEN EXEC DISKDREH
340	READ TXT$
350	TEXT 210,120,"R]]hr-R]]hr"
360	CLOSE #%1:OPEN #%1,4,%0,TXT$
370	A$=TXT$:READ CHZ
380	READ TXT$,T2$
390	TEXT 172,157,TXT$
400	TEXT 172,165,T2$
410	TEXT 210,120,"					 "
420	BGET #%1,ADR(MEM$),7680-6880*(U=%3)-3600*(U=4)-4880*(U=5)-5920*(U=6)
430	CLOSE #%1
440	FOR I=%1 TO 10-5*(U=6)
450	  PLOT 4,190-I-U*10:DRAWTO 14,190-I-U*10
460	NEXT I
470	TEXT 172,157,"					 "
480	TEXT 172,165,"					 "
490	IF CHZ>%1 THEN EXEC PICCHECK
500	READ TXT$
510	OPEN #%1,8,%0,TXT$
520	BPUT #%1,ADR(MEM$),7680-6880*(U=%3)-3600*(U=4)-4880*(U=5)-5920*(U=6)
530	CLOSE #%1
540 NEXT U
550 POKE 764,255:MOVE ADR(B$),$0600,94:RUN "D:KAISER2.TUR"
560 DATA D:KARTE1.MAP,12174,	  Musik  ,		von,D8:MAP1
570 DATA D:KARTE2.MAP,14168,  Ralf-Thomas,	Quack,D8:MAP2
580 DATA D:KARTE3.MAP,11769,	  sowie,Holger Schmiedel,D8:MAP3
590 DATA D:KAISER1.PIC,1413,		 (c),		1990,D8:KAISER1.PIC
600 DATA D:KORN.PIC,4382,	KAISER II, (c) 1988/89 by,D8:KORN.PIC
610 DATA D:CHRONIK.PIC,1843,by,`h]ni{ SoftCrew,D8:CHRONIK.PIC"
620 DATA D:KAISER3.PIC,0,	 V i e l ,	S p a s s,D8:KAISER3.PIC
640 PROC DISKDREH
650	RESTORE 600:Z=%0:MOVE $0600,ADR(B$),94:BLOAD "D:SIOTREIB.COM"
660	TEXT 172,157,"Diskette		  "
670	TEXT 172,165," herumdrehen...."
675	SOP=%0:POKE 764,$FF
680	REPEAT
740	UNTIL PEEK(764)<$FF OR STRIG(%0)=%0
930	TEXT 172,157,"					 "
940	TEXT 172,165,"					 "
950	PAUSE 50
960	TEXT 178,160,"	DANKE !	"
970 ENDPROC
990 PROC DSK_REQUEST
995	SOPAR=12:EXEC SOUN
1000	X=USR($0600,$52,128,%1,ADR(MEM$),%1)
1010	X=USR($0600,$53,%0,%0,%0,%1)
1030	DSKR=PEEK($02EB)
1035	SOPAR=14:EXEC SOUN:PAUSE 5
1040 ENDPROC
1050 PROC SOUN
1060	FOR SOU=10 TO %0 STEP -0.2
1070	  SOUND %0,SOPAR+RAND(%2)+SOP,10,SOU
1080	NEXT SOU
1090 ENDPROC
1240 PROC PICCHECK
1250	Z=%0
1260	FOR PSC=ADR(MEM$) TO ADR(MEM$)+7680-6880*(U=%3)-3600*(U=4)-4880*(U=5)-4438*(U=6) STEP 33
1270	  Z=Z+PEEK(PSC)
1280	NEXT PSC
1290	IF Z<>CHZ THEN X=USR($E477)
1300 ENDPROC

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 21:41

Validate