Code ist "ALARM "
Bei diesem Programm muessen Sie
mit Hilfe eines Panzers Voegel
abschiessen.
Die Schusstaste ist ┗━┛ (Space)
Wir wuenschen Ihnen viel Spass.
Zeichensatz UTF-8+Z1013()+CTRL()-ohne Umlaute(äöüß)
10 WINDOW:CLS
20 FOR G=1 TO 31:PRINT STRING$(31,""):NEXT:PAUSE 5:BEEP:WINDOW 1,29,1,29:CLS
30 WINDOW 3,28,3,28:FOR W1=1 TO 24:PRINT STRING$(25,""):NEXT:PAUSE 10:BEEP
40 WINDOW 4,25,4,26:CLS:WINDOW 7,23,7,24:FOR W2=1 TO 15:PRINT STRING$(17,"")
50 NEXT:PAUSE 10:BEEP
60 WINDOW 8,20,8,22:CLS:WINDOW 11,20,11,20:FOR W3=1 TO 7:PRINT STRING$(9,"")
70 NEXT:PAUSE 10:BEEP
80 WINDOW 12,16,12,18:CLS
90 PAUSE 15:PRINT AT(14,12);"VOEGELN"
100 PAUSE 30
110 GOTO 1200
120 WINDOW:CLS
130 DATA 21,18,22,18,23,18,24,18,25,18,26,18,27,18
140 DATA 26,17,25,16,24,15,23,14,22,13,21,12,27,12,26,12,25,12,24,12
150 DATA 23,12,22,12,18,29,18,28,18,27,18,26,12,26,13,26,14,26,15,26,16,26
160 DATA 17,26,15,22,15,21,15,20,16,20,17,20,18,20,18,21,18,22,18,23
170 DATA 12,23,12,22,12,21,12,20,13,20,14,20,15,16,15,17,16,17,17,17,18,17
180 DATA 18,16,18,15,18,14,17,14,16,14,15,14,14,14,13,14,12,14,12,15
190 DATA 12,16,12,17,18,11,18,10,18,9,18,8,17,8,16,8,15,8,14,8,13,8,12,8
200 DATA 10,8,10,11,12,9,12,10,12,11,13,11,14,11,15,11,16,11,17,11,18,11
210 DATA 18,3,17,2,16,1,15,1,14,1,13,1,12,1,12,5,13,5,14,5,15,5,16,5,17,4
220 DATA 15,29,15,30,15,31,13,17
230 FOR R=0 TO 98:READ X,Y:PRINT AT(X,Y);"":PAUSE 2:NEXT R
240 PAUSE 40
250 PRINT AT(3,10);"T O D D E N"
260 PRINT AT(4,10);"____________"
270 PAUSE 30
280 REM JAGD
290 WINDOW:CLS
300 FOR I=2 TO 10:PRINT STRING$(8,""):NEXT I:PAUSE 5
310 PRINT AT(2,2);"GUIDO"
320 PRINT AT(4,4);"&>"
330 PRINT AT(6,2);"AICKE"
340 FOR C=0 TO 31:POKE(-5120+C),255:POKE(-4128+C),255
350 POKE(-5120+(32*C)),255:POKE(-5089+(32*C)),255:NEXT C
360 FOR A=8 TO 30:POKE(-4960+A),43:NEXT A
370 PRINT AT(3,12);"TOD DEN VOEGELN"
380 FOR B=1 TO 8:POKE(-4832+B),43:NEXT B
390 RESTORE 1390:FOR B1=1 TO 32:READ X,Y,Z:PRINT AT(X,Y);CHR$(Z):NEXT B1
400 PRINT AT(7,10);"DIESES PROGAMM WURDE"
410 PRINT AT(9,10);"VON GUIDO STIELER"
420 PRINT AT(11,10);"UND AICKE BITTNER"
430 PRINT AT(13,10);"AUSGEDACHT.
440 FOR E=0 TO 29:POKE(-4639+E),43:NEXT E
450 FOR U=0 TO 29:POKE(-4319+U),43:NEXT U
460 P=21:FOR Q=1 TO 20:PRINT AT(P,Q+1);"~":BEEP:PAUSE 2:PRINT AT(P,Q);" ":PAUSE 2
470 NEXT Q:PRINT AT(21,21);" "
480 PRINT AT(22,26);"~"
490 PAUSE 10:PRINT AT(22,26);" "
500 PRINT AT(22,28);CHR$(208):PAUSE 6:PRINT AT(22,28);CHR$(214):PAUSE 6
510 PRINT AT(22,28);CHR$(223):PAUSE 6:PRINT AT(22,28);" ":PAUSE 6
520 PRINT AT(23,28);CHR$(215):PAUSE 6:PRINT AT(23,28);CHR$(219):PAUSE 6
530 PRINT AT(23,28);CHR$(224)
540 PRINT AT(10,2);"T":PRINT AT(11,3);"A":PRINT AT(12,4);"S"
550 PRINT AT(13,5);"T":PRINT AT(14,6);"E"
560 IF INKEY$=""THEN 560
570 WINDOW:CLS:PRINT AT(6,0);"Bei diesem Programm muessen Sie"
580 PRINT AT(8,0);"mit Hilfe eines Panzers Voegel"
590 PRINT AT(10,0);"abschiessen."
600 PRINT AT(12,0);"Die Schusstaste ist (Space)"
610 PRINT AT(14,0);"Wir wuenschen Ihnen viel Spass.
620 PRINT AT(29,24);">ENTER<"
630 S$=INKEY$:IF S$=CHR$(13)THEN 640 ELSE 630
640 CLS:LET P=0:LET D=1:PRINT AT(0,0);" "
650 REM TEXT UND JAEGER DARSTELLEN
660 WINDOW 0,7,13,31:FOR F=1 TO 7:PRINT STRING$(18,""):NEXT
670 WINDOW 1,5,14,29:CLS
680 PRINT AT(2,16);D:PRINT AT(2,19);". Voegel"
690 PRINT AT(4,16);P:PRINT AT(4,19);"Abschuesse"
700 PRINT AT(30,4);CHR$(162)
710 PRINT AT(30,3);CHR$(166)
720 PRINT AT(30,5);CHR$(166)
730 PRINT AT(30,2);CHR$(171)
740 PRINT AT(29,1);CHR$(157)
750 PRINT AT(29,0);CHR$(248)
760 PRINT AT(30,6);CHR$(172)
770 PRINT AT(29,7);CHR$(157)
780 PRINT AT(29,8);CHR$(248)
790 PRINT AT(31,1);CHR$(174)+CHR$(255)+CHR$(197)+CHR$(175)+CHR$(197)
800 PRINT AT(31,6);CHR$(255)+CHR$(173)
810 REM AKTION
820 LET Y=INT(RND(1)*22):LET Z=27:LET F=0:IF Y<7 THEN 820
830 PRINT AT(28,4);CHR$(217):PRINT AT(28,4);" "
840 PRINT AT(Y,30);CHR$(140):PRINT AT(Y,29);CHR$(215)
850 PRINT AT(Y+1,30);CHR$(170)
860 FOR I=30 TO 1 STEP-1
870 PRINT AT(Y,I+1);" ":PRINT AT(Y+1,I+1);" "
880 PRINT AT(Y,I-1);CHR$(215)
890 PRINT AT(Y,I);CHR$(140)
900 PRINT AT(Y+1,I);CHR$(170)
910 REM ABFRAGE DER SPACE-TASTE
920 IF Z=27 AND INKEY$=" "THEN LET F=1:GOTO 930:ELSE GOTO 950
930 PRINT AT(28,4);" "
940 PRINT AT(29,4);CHR$(161)
950 IF F<>1 THEN FOR ZV=1 TO 15:NEXT ZV:GOTO 1000:REM ZEITVERZOEGERUNG
960 PRINT AT(Z,4);" ":PRINT AT(Z-1,4);CHR$(217)
970 IF Z-1=Y+1 AND(I-1=4 OR I=4)THEN GOSUB 1120:GOTO 1020
980 IF Z=1 THEN LET F=0:PRINT AT(Z-1,4);" ":GOTO 1000
990 LET Z=Z-1
1000 NEXT I
1010 PRINT AT(Y,0);" ":PRINT AT(Y+1,0);" ":PRINT AT(Z,4);" "
1020 IF D=20 THEN 1050
1030 LET D=D+1
1040 PRINT AT(2,18-LEN(STR$(D)));D:GOTO 820
1050 IF P<=4 THEN 1440 ELSE 1060
1060 IF P>4 AND P<=9 THEN 1450 ELSE 1070
1070 IF P>9 AND P<=13 THEN 1460 ELSE 1080
1080 IF P>13 AND P<=17 THEN 1470 ELSE 1090
1090 IF P>17 AND P<=19 THEN 1480 ELSE 1100
1100 IF P=20 THEN 1490
1110 CLS:END
1120 REM UP TREFFER
1130 LET P=P+1
1140 PRINT AT(4,18-LEN(STR$(P)));P
1150 PRINT AT(Y,I-1);" ":PRINT AT(Y+1,I-1);" ":BEEP:PAUSE 5:BEEP:PAUSE 5
1160 PRINT AT(Y,I-1);" ":PRINT AT(Y+1,I-1);" "
1170 PRINT AT(Y-1,I-2);" ":PRINT AT(Y+2,I-2);" ":BEEP:PAUSE 3:BEEP:PAUSE 3
1180 PRINT AT(Y-1,I-2);" ":PRINT AT(Y+2,I-2);" "
1190 RETURN
1200 WINDOW:CLS:PRINT AT(5,12);"CODEWORT"
1210 PRINT AT(6,12);"--------"
1220 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
1230 INPUT "GEBEN SIE CODE EIN :";A$
1240 IF A$=" "THEN 1260
1250 IF A$="ALARM "THEN GOTO 1340
1260 CLS:PRINT:PRINT:PRINT:PRINT "DAS WAR LEIDER FALSCH"
1270 PRINT:PRINT
1280 PRINT:INPUT " NOCHMAL PROBIEREN (J,N) ";C$
1290 IF C$="J"THEN 1300 ELSE 1310
1300 END
1310 IF C$="N"THEN 110
1320 IF C$<>"N"THEN 1300
1330 W=0:CLS
1340 CLS:BEEP:BEEP:BEEP
1350 PRINT AT(10,6);"HERZLICH WILLKOMMEN":PAUSE 3
1360 PRINT AT(10,6);" ":PAUSE 1
1370 W=W+1:IF W<5 THEN 1340
1380 GOTO 120
1390 DATA 1,8,43,2,8,43,3,8,43,4,8,43,5,8,43,6,8,43,7,8,43,8,8,43,9,8,43
1400 DATA 10,8,43,11,8,43,12,8,43,13,8,43,14,8,43,20,23,174,21,23,171,20,24
1410 DATA 173,21,24,172,21,22,147,20,22,149,21,25,174,22,25,171,21,26,158
1420 DATA 23,26,158,21,27,173,22,27,172,23,25,144,23,27,145,24,27,158,24,24
1430 DATA 158,21,28,146,21,29,147
1440 WINDOW:CLS:PRINT AT(10,0);"SIE SCHLAPPSCHWANZ":PAUSE 10:GOTO 1500
1450 WINDOW:CLS:PRINT AT(10,0);"SIE BRAUCHEN EINE BRILLE":PAUSE 10:GOTO 1500
1460 WINDOW:CLS:PRINT AT(10,0);"LANGSAM WIRD ES BESSER!":PAUSE 10:GOTO 1500
1470 WINDOW:CLS:PRINT AT(10,0);"MEHR UEBEN DANN WIRD'S BESSER!"
1480 WINDOW:CLS:PRINT AT(10,0);"SIE HABEN HEIMLICH GEUEBT!":PAUSE 10:GOTO 1500
1490 WINDOW:CLS:PRINT AT(10,0);"SIE SIND WOHL PANZERFAHRER?":PAUSE 10:GOTO 1500
1500 PRINT:PRINT:PRINT:INPUT " NOCH MAL?";A1$
1510 IF A1$="J"THEN RUN
1520 IF A1$="N"THEN END:ELSE 1500