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