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