Kaiser 2 - Datei "tester.tur"

0 CLR :DIM BU$(26),CO$(6),E$(%3),F$(%3),RE$(6),C$(781):STELL=6:POKE 106,192:DPOKE 70
8,%0
1 POKE 599,%0:DPOKE 710,%0:POKE 712,%0:EXEC MUSICINIT:EXEC DCOD
10 POKE 106,PEEK(106)-8:OPEN #1,4,0,"D:KAISER.FNT":BGET #1,PEEK(106)*256,1024
11 CLOSE #%1:GRAPHICS %0
20 POKE 710,%0:POKE 752,%1
30 EXEC TURBO_TEST
40 EXEC SCHRAUS
50 EXEC LENSLOCK_SET
60 GRAPHICS %0:DPOKE 709,12:POKE 752,%1:POKE 756,PEEK(106):POKE 1623,124
70 POSITION 16,10:? "KAISER II"
80 POSITION 14,12:? "@ 1988-90  by"
90 POSITION 13,14:? "`h]ni{ SoftCrew"
95 POSITION 8,16:? " Version f^r 320 KByte "
96 POSITION %2,17:? "		Exclusiv von Game Lords ! "
97 IF PEEK(732)=17 THEN RUN "D:KAISER0.TUR"
100 EXEC MUSIC:POKE 1624,242:PAUSE 100:RUN "D:KAISER0.TUR"
110 NEXT U
120 LOOP
130 PROC TURBO_TEST
140	IF PEEK($0601)=72
150	  POKE 710,48
160	  CLS :POKE 581,%1:POKE 756,PEEK(106)
170	  ? :? :? " KK  K  AA  IIIII  SSS EEEEE RRRR"
180	  ? "  K K  A  A	I	S	  E	  R  R"
190	  ? "  KK	A  A	I	 SS	EEE	RRR"
200	  ? "  K K  AAAA	I		S  E	  RR"
210	  ? " KK  K A  A IIIII SSS  EEEEE RR RR"
220	  ?
230	  ? "				 2222222222"
240	  FOR I=%1 TO 5:? "					22  22":NEXT I
250	  ? "				 2222222222"
260	  ? :POKE 752,%1
270	  ? "Wenn Sie schon den Turbo-Drive ein-	schalten, dann legen sie ihn gef\l-"
280	  ? "ligst nach $0100 (START). In der Page 6 wird er n\mlich zerst]rt."
290	  ? "	 Danke."
300	  ? "			 The `h]ni{ SoftCrew"
310	  REPEAT
320		 POSITION 15,23:? "Neu Booten";
330		 PAUSE 10
340		 POSITION 15,23:? "Neu Booten";
350		 PAUSE 10
360	  UNTIL STRIG(%0)=%0:X=USR(58487)
370	ENDIF
380 ENDPROC
390 PROC LENSLOCK_SET
400	BU$="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
410	CLS :DPOKE 709,29932:POKE 712,116:POKE 752,%1:POKE 756,PEEK(106)
420	POKE 82,%0:POSITION %0,%0
430	? "* Kaiser II (c) 1990 `h]ni{ Soft Crew *"
440	POSITION %0,%3
450	? " Die folgende Abfrage soll den Hackern  "
460	? "	das unerlaubte Kopieren von diesem	"
470	? "			  Programm vermiesen.			 "
480	? "	Sollte sich dennoch eine Raubkopie	"
490	? "  finden, k]nnen wir anhand des auf der "
500	? "		Diskette eingetragenen Namens	  "
504	? "		 den K\ufer feststellen, und		"
505	? "	  geeignete Ma'nahmen ergreifen.	  "
510	? :? " * UNTERLASSEN SIE DAS KOPIEREN ALSO ! *"
512	? "  ...und dr^cken sie START oder FEUER."
514	IF STRIG(%0)=%0 THEN 517
515	IF PEEK(53279)=6 THEN 517
516	GOTO 514
517	CLS :? "* Kaiser II (c) 1990 `h]ni{ Soft Crew *"
520	? :? :? "  Kramen Sie nun bitte ihre Codekarte	"
530	? "	hervor, und geben die Zeichen ein,	"
540	? "	 die sich aus den folgenden Codes	 "
545	? "				 zusammensetzt :"
550	A=RAND(26):A=A+%1:A1=RAND(26):A1=A1+%1
560	B=RAND(10):B=B+%1:B1=RAND(10):B1=B1+%1
570	E$(%1,%1)=BU$(A,A):F$(%1,%1)=BU$(A1,A1)
580	E$(%2,%3)=STR$(B):F$(%2,%3)=STR$(B1)
590	? :? "					 ";E$;" & ";F$
600	IF A>13
605	  MP=390:A=A-13
610	ELSE
615	  MP=%0
620	ENDIF
625	IF A1>13
630	  M=390:A1=A1-13
635	ELSE
636	  M=%0
637	ENDIF
640	CO$(%1,%3)=C$(MP+(B-%1)*39+(A-%1)*%3+%1,MP+(B-%1)*39+(A-%1)*%3+%3)
645	CO$(4,6)=C$(M+(B1-%1)*39+(A1-%1)*%3+%1,M+(B1-%1)*39+(A1-%1)*%3+%3)
760	POSITION 8,13:? "1. Versuch :"
770	PX=20:PY=13:EXEC GETIN
780	IF RE$=CO$ THEN 1130
790	POSITION %0,18:? " Tja, der Code war Falsch. Bitte ^ber-  pr^fen sie den ersten Versuch und ge-"
800	? " ben sie den Neuen ein."
810	POSITION 8,14:? "2. Versuch :......"
820	PX=20:PY=14:EXEC GETIN
830	IF RE$=CO$ THEN 1130
840	POSITION %1,18:? "Tja, der zweite Versuch ist nun auch	 fehlgeschlagen. Das darf beim dritten"
850	? " Versuch nun nicht passieren !"
860	POSITION 8,15:? "3. Versuch :......"
870	PX=20:PY=15:EXEC GETIN
880	IF RE$=CO$ THEN 1130
890	CLS
900	? :? :? " So, dass wars. Auch der letzte Versuch ging in die Hose."
910	POKE 0,0:MOVE 0,1,65000
920	NEW
1130	POKE 1625,96
1140 ENDPROC
1150 PROC SCHRAUS
1160	TRAP 1190:CLOSE #%3:OPEN #%3,8,%0,"D:LENSLOCK.DAT":C$(781)=" "
1161	FOR I=%1 TO %2
1163	  J=RAND(259)*%3
1164	  ? #%3;C$(J,J);C$(J+%1,J+%1);C$(J+%2,J+%2)
1167	NEXT I
1170	CLOSE #%3
1180	GOTO 1260
1190	CLS :DPOKE 709,57580:POKE 712,48:POKE 82,%0:POKE 752,%1:POKE 756,PEEK(106)
1200	POSITION 3,6:? "Die Diskette ist schreibgesch^tzt !"
1210	? :? "  Bitte entfernen Sie dieses Hindernis."
1220	? :? :? "  Wenn dieses geschehen ist, dr^cken"
1230	? :? "		Sie bitte die START-TASTE."
1240	IF PEEK(53279)<>6 THEN 1240
1250	GOTO 1160
1260 ENDPROC
1270 PROC GETIN
1280	FOR U=%0 TO STELL-%1
1290	  POSITION PX+U,PY
1300	  ? CHR$(46)
1310	NEXT U
1320	FOR U=%0 TO STELL-%1
1330	  KEY=ASC(INKEY$)
1340	  POSITION PX+U,PY
1350	  ? CHR$(22)
1360	  GET KEY
1370	  RE$(U+%1)=CHR$(KEY)
1380	  POSITION PX+U,PY
1390	  ? CHR$(KEY)
1400	NEXT U
1410 ENDPROC
1420 PROC MUSICINIT
1430	DIM O$(317)
1440	O$(1)="hhh^EThh^EUhh^EVhh^P^EWhh ^P^EXhhP^EYhhEZhIP^P^Bi^GI^^^P^R^E\h^E[hIP^P^Bi^GI^^0^RHHhhhhhhh)^@^EU)T`^E^h^E])^@^M^NTx)~^M^AS%T"
1450	O$(101)="PI)^@^M^@T ^P$1[^E` ^Df[P^Lf\%\IPP^Di^G^E\%\E^^%[E]^P^B0g%`***)^C*5W^AR%`^E`&VJP}^X^P> ^A-^KTE_py*I		pJ%UPp^F_%`***"
1460	O$(201)=")^C*5W^M^AR%`^EPX1[^E` ^Df[P^Lf\%\IPP^Di^G^E\%\E^^P<%[E]^P6)}^M^ASX)@^M^NT`H^XHHjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjj"
1470	O$(301)="jjjjjjjjjh*h(h80^@"
1480	O$(187,187)=CHR$(255):POKE 65,%0
1481	TRAP 1481
1490	START=30000:CLOSE #%1:OPEN #%1,4,%0,"D:KAISER1.SND":BGET #%1,START,15073
1491	BGET #%1,ADR(C$),780
1500	CLOSE #%1
1510 ENDPROC
1520 PROC MUSIC
1530	X=USR(ADR(O$),1,0,0,0,4,8,12,START,START+13420)
1540 ENDPROC
31999 PROC DCOD
32000	C2=34:C3=48
32010	FOR I=%0 TO 777 STEP %3
32020	  CO1=PEEK(ADR(C$)+I):C1=CO1-C2-C3
32030	  CO2=PEEK(ADR(C$)+I+%1):C2=CO2-C1
32040	  CO3=PEEK(ADR(C$)+I+%2):C3=CO3-C2-C1
32050	  POKE (ADR(C$)+I),C1+45
32060	  POKE (ADR(C$)+I+%1),C2+45
32070	  POKE (ADR(C$)+I+%2),C3+45
32080	NEXT I
32100 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 20:42

Validate