1 REM *********************************
2 REM *                               *
3 REM *   SAEUPAC  PROUDLY PRESENTS   *
4 REM *                               *
5 REM *        VAMPYRE  EMPIRE        *
6 REM *                               *
7 REM *    A GAME BY  ANDY JAKESCH    *
8 REM *                               *
9 REM *  (C) 1999/2000 BY GNMPF SOFT  *
10 REM*                               *
11 REM*THE GRANDMASTER IS WATCHING U !*
12 REM*                               *
13 REM*********************************
19 A=10:D=10
20 POKE53280,0:POKE53281,4:PRINT"[147]"
21 PRINT"[211][193][197][213][208][193][195]"
22 PRINT"[208][210][207][213][196][204][217] [208][210][197][211][197][206][212][211]"
23 GOSUB9998
24 PRINT"[147][193]"
25 PRINT"[199][206][205][208][198] [211][207][198][212]  [199][193][205][197]"
26 PRINT"[194][217]"
27 PRINT"[193][206][196][217] [202][193][203][197][211][195][200]"
28 GOSUB9998
29 PRINT"[147][214][193][205][208][217][210][197] [197][205][208][201][210][197]"
30 GOSUB9998
50 T=100:L=100:S=1:V=10:VV=99
60 IFA$="T"THENT=200
61 IFA$="L"THENL=200
62 IFA$="S"THENS=10
63 IFA$="E"THENE=100
64 IFA$="A"THENA=100
65 IFA$="D"THEND=100
66 IFA$="1"THENOA$="[207][203]"
67 IFA$="2"THENOB$="[207][203]"
68 IFA$="3"THENOC$="[207][203]"
70 FORZ=1TO10
71 V(Z)=1
72 NEXTZ
79 FORZ=1TO3
80 UG=1:OG=11:Z1=UG+RND(0)*(OG-UG)
81 OB(Z)=INT(Z1)
82 IFOB(Z)=11THENOB(Z)=10
83 NEXTZ
100 A$="":GOSUB9000
101 PRINT"[212]AGE      :"T
102 PRINT"[214]AMPIRE   :"V
103 PRINT"[211]TAERKE   :"S
104 PRINT"[204]EBENSSAFT:"L"%
105 [153]"1 = (null)RAINING"
106 [153]"2 = (null)AMPF"
107 [153]"3 = (null)UCHE"
108 [153]"4 = STR$ISK (null)ENU"
109 [153]"5 = (null)PIEL BEENDEN"
110 [141]9998
111 [139]A$[178]"1"[167]200
112 [139]A$[178]"2"[167]500
113 [139]A$[178]"3"[167]300
114 [139]A$[178]"4"[167]5000
115 [139]A$[178]"5"[167]150
116 [137]110
150 [141]9000
151 [153]"STR$AS (null)PIEL BEENDEN ? (null)OHL WEICH IN DER   LEFT$OSE ?!? STR$U SPIELST JETZT GE-"
152 [153]"FAELLIGST WEITER BIS ZUM ALLERLETZTEN   (null)AMENERGUSSPOPUSS !!!"
153 [141]9998
154 [137]100
200 [153]"LOADSTOP       (null)AMPYRE VALMPIRE - (null)RAINING        "
201 [153]"ATNNGRIFF :"A"%
202 PRINT"[193]BWEHR  :"D"%
203 [153]"(ATN)NGRIFF"
204 [153]"ATN(B)WEHR"
205 [153]"((null))URUECK"
206 [141]9998
207 [139]A$[178]"A"[167]220
208 [139]A$[178]"B"[167]230
209 [139]A$[178]"Z"[167]100
210 [137]206
220 UG[178]2:OG[178]7:Z1[178]UG[170][187](0)[172](OG[171]UG)
221 A[178]A[170][181](Z1)
223 [137]1000
230 UG[178]2:OG[178]7:Z1[178]UG[170][187](0)[172](OG[171]UG)
231 D[178]D[170][181](Z1)
233 [137]1000
300 [153]"LOADSTOP         (null)AMPYRE VALMPIRE - (null)UCHE         "
301 [153]" 1 = (null)CHULE"
302 [153]" 2 = STR$ISCO"
303 [153]" 3 = ASCRIEDHOF"
304 [153]" 4 = PEEKAHNHOF"
305 [153]" 5 = (null)ARK"
306 [153]" 6 = RIGHT$NNENSTADT"
307 [153]" 7 = (null)PORTPLATZ"
308 [153]" 8 = VALINKAUFSZENTRUM"
309 [153]" 9 = (null)OHNGEBIET 1"
310 [153]" X = (null)OHNGEBIET 2"
311 [141]9998
312 [139]A$[178]"1"[167]350
313 [139]A$[178]"2"[167]410
314 [139]A$[178]"3"[167]3100
315 [139]A$[178]"4"[167]3200
316 [139]A$[178]"5"[167]3300
317 [139]A$[178]"6"[167]3400
318 [139]A$[178]"7"[167]3500
319 [139]A$[178]"8"[167]3600
320 [139]A$[178]"9"[167]3700
321 [139]A$[178]"X"[167]3800
322 [137]311
350 UG[178]0:OG[178]3:Z1[178]UG[170][187](0)[172](OG[171]UG)
351 Z2[178][181](Z1)
352 [139]Z2[178]0[167]360
353 [139]Z2[178]1[167]370
354 [139]Z2[178]2[167]370
355 [139]Z2[178]3[167]360
360 UG[178]0:OG[178]V(1):Z1[178]UG[170][187](0)[172](OG[171]UG)
361 Z2[178][181](Z1)
362 AA[178]1:[141]3000
370 [141]9000
371 [139]OB(1)[178]1[167]380
372 [139]OB(2)[178]1[167]390
373 [139]OB(3)[178]1[167]400
375 [153]"STR$U KANNST HIER KEINEN DER 3 CHR$EGENSTAENDEFINDENPOPINDEN !"
376 [141]9998
377 [139]K$[178]"(null)(null)"[167]1500
378 [137]1200
380 [153]"STR$U HAST DEN (null)RIGINAL CHR$(null)(null)(null)ASC (null)ILLER-STR$ILDO-(null)O-(null)ILDO GEFUNDEN !!!"
381 OA$[178]"(null)(null)"
382 [141]9998
383 [137]372
390 [153]"STR$U HAST DEN (null)RIGINAL CHR$(null)(null)(null)ASC CHR$LIBBER-(null)O-  (null)IBBER-(null)CHLEIM GEFUNDEN !!!"
391 OB$[178]"(null)(null)"
392 [141]9998
393 [137]373
400 [153]"STR$U HAST DEN (null)RIGINAL CHR$(null)(null)(null)ASC LEFT$IRN-(null)CHMALZ-(null)O-(null)ALZ-(null)AFT GEFUNDEN !!!"
401 [141]9998
402 OC$[178]"(null)(null)"
403 [137]375
410 UG[178]0:OG[178]3:Z1[178]UG[170][187](0)[172](OG[171]UG)
411 Z2[178][181](Z1)
412 [139]Z2[178]0[167]420
413 [139]Z2[178]1[167]430
414 [139]Z2[178]2[167]430
415 [139]Z2[178]3[167]420
420 UG[178]0:OG[178]V(2):Z1[178]UG[170][187](0)[172](OG[171]UG)
421 Z2[178][181](Z1)
422 AA[178]2:[141]3000
430 [141]9000
431 [139]OB(1)[178]2[167]440
432 [139]OB(2)[178]2[167]450
433 [139]OB(3)[178]2[167]460
435 [153]"STR$U KANNST HIER KEINEN DER 3 CHR$EGENSTAENDEFINDENPOPINDEN !"
436 [141]9998
437 [139]K$[178]"(null)(null)"[167]1500
438 [137]1200
440 [153]"STR$U HAST DEN (null)RIGINAL CHR$(null)(null)(null)ASC (null)ILLER-STR$ILDO-(null)O-(null)ILDO GEFUNDEN !!!"
441 OA$[178]"(null)(null)"
442 [141]9998
443 [137]432
450 [153]"STR$U HAST DEN (null)RIGINAL CHR$(null)(null)(null)ASC CHR$LIBBER-(null)O-  (null)IBBER-(null)CHLEIM GEFUNDEN !!!"
451 OB$[178]"(null)(null)"
452 [141]9998
453 [137]433
460 [153]"STR$U HAST DEN (null)RIGINAL CHR$(null)(null)(null)ASC LEFT$IRN-(null)CHMALZ-(null)O-(null)ALZ-(null)AFT GEFUNDEN !!!"
461 [141]9998
462 OC$[178]"(null)(null)"
463 [137]435
500 [153]"LOADSTOP         (null)AMPYRE VALMPIRE - (null)AMPF         "
501 [153]" 1 = (null)CHULE"
502 [153]" 2 = STR$ISCO"
503 [153]" 3 = ASCRIEDHOF"
504 [153]" 4 = PEEKAHNHOF"
505 [153]" 5 = (null)ARK"
506 [153]" 6 = RIGHT$NNENSTADT"
507 [153]" 7 = (null)PORTPLATZ"
508 [153]" 8 = VALINKAUFSZENTRUM"
509 [153]" 9 = (null)OHNGEBIET 1"
510 [153]" X = (null)OHNGEBIET 2"
511 [141]9998
512 [139]A$[178]"1"[167]550
513 [139]A$[178]"2"[167]590
514 [139]A$[178]"3"[167]630
515 [139]A$[178]"4"[167]670
516 [139]A$[178]"5"[167]710
517 [139]A$[178]"6"[167]750
518 [139]A$[178]"7"[167]790
519 [139]A$[178]"8"[167]830
520 [139]A$[178]"9"[167]870
521 [139]A$[178]"X"[167]910
522 [137]511
550 UG[178]0:OG[178]V(1):Z1[178]UG[170][187](0)[172](OG[171]UG)
551 Z2[178][181](Z1)
560 [141]9000
561 [153]"STR$U SCHLENDERST BEI (null)ACHT DURCH DIE      CHR$AENGE STR$EINER (null)CHULE, WAS JA VOLL"
562 [153]"KAPUTT IST, ABER IMMERHIN BIST STR$U JA    JETZT NUR HIER, UM (null)AMPIRE ZU"
563 [153]"PFAEHLENPOPAEHLEN. (null)ND WIEVIELE KANNST  STR$U HIER ORTEN ? CHR$ENAU !"Z2"..."
564 [153]"(null)ILLST STR$U KAEMPFEN (MID$/(null)) ?"
565 [141]9998
566 [139]A$[178]"J"[167]570
567 [139]A$[178]"N"[167]1200
568 [137]565
570 X[178]Z2[172]VV
571 L[178]L[171]X
572 [139]L[177]0[167]580
573 [137]2500
580 T[178]T[171]1
581 E[178]E[170]Z2:[139]E[177]100[167]E[178]100
582 V(1)[178]V(1)[171]Z2
583 S[178](A[170]D[170]E)[173]20:S[178][181](S):[139]S[179]1[167]S[178]1:[139]S[177]10[167]S[178]10
584 [139]T[178]0[167]2000
585 [137]1500
590 UG[178]0:OG[178]V(2):Z1[178]UG[170][187](0)[172](OG[171]UG)
591 Z2[178][181](Z1)
600 [141]9000
601 [153]"(null)ARTY (null)EOPLE UEBERALL, WO STR$U HINSIEHST. STR$OCH STR$U BIST NICHT ZU STR$EINEM (null)ER-"
602 [153]"GNUEGEN HIER. STR$U BIST AUF (null)AMPIR-       (null)FAEHLEREI AUS. RIGHT$N DIESER SCHICKEN-
603 PRINT"POPICKEN [196]ISCO ORTEST [196]U SATTE"Z2:PRINT"[214]AMPIRE ..."
604 PRINT"[215]ILLST [196]U KAEMPFEN ([202]/[206]) ?"
605 GOSUB9998
606 IFA$="J"THEN610
607 IFA$="N"THEN1200
608 GOTO605
610 X=Z2*VV
611 L=L-X
612 IFL>0THEN620
613 GOTO2500
620 T=T-1
621 E=E+Z2:IFE>100THENE=100
622 V(2)=V(2)-Z2
623 S=(A+D+E)/20:S=INT(S):IFS<1THENS=1:IFS>10THENS=10
624 IFT=0THEN2000
625 GOTO1500
630 UG=0:OG=V(3):Z1=UG+RND(0)*(OG-UG)
631 Z2=INT(Z1)
640 GOSUB9000
641 PRINT"[196]U WANDERST MITTEN IN DER [206]ACHT UEBER   DEN [198]RIEDHOF. [214]ERLAUFEN ? [204]EBENS-"
642 PRINT"MUEDE ? [199]RABSCHAENDEN ?!? [206]EIN, [196]U      MACHST KEINERLEI DIESER LUSTIGEN"
643 PRINT"[196]INGE HIER, [196]U LAUERST AUF [214]AMPIRE,"Z2:PRINT"AN DER [218]AHL ..."
644 PRINT"[215]ILLST [196]U KAEMPFEN ([202]/[206]) ?"
645 GOSUB9998
646 IFA$="J"THEN650
647 IFA$="N"THEN1200
648 GOTO645
650 X=Z2*VV
651 L=L-X
652 IFL>0THEN660
653 GOTO2500
660 T=T-1
661 E=E+Z2:IFE>100THENE=100
662 V(3)=V(3)-Z2
663 S=(A+D+E)/20:S=INT(S):IFS<1THENS=1:IFS>10THENS=10
664 IFT=0THEN2000
665 GOTO1500
670 UG=0:OG=V(4):Z1=UG+RND(0)*(OG-UG)
671 Z2=INT(Z1)
680 GOSUB9000
681 PRINT"[196]ER [194]AHNHOF - HAEUFIG FAELSCHLICHERWEISEVERSTANDENES [215]ORT, [211]AMMELPUNKT VON
682 [153]"NOTGEILEN (null)ENNERN. (null)IE PASST STR$U IN      DIESES PEEKILD ? ATNAAAAH JA ... DIESE"
683 [153]"(null)AMPIRGESCHICHTE ! (null)ND ZU STR$EINER ASCREUDE KANNST STR$U HIER AUCH"Z2"AUSMACHEN !"
684 [153]"(null)ILLST STR$U KAEMPFEN (MID$/(null)) ?"
685 [141]9998
686 [139]A$[178]"J"[167]690
687 [139]A$[178]"N"[167]1200
688 [137]685
690 X[178]Z2[172]VV
691 L[178]L[171]X
692 [139]L[177]0[167]700
693 [137]2500
700 T[178]T[171]1
701 E[178]E[170]Z2:[139]E[177]100[167]E[178]100
702 V(4)[178]V(4)[171]Z2
703 S[178](A[170]D[170]E)[173]20:S[178][181](S):[139]S[179]1[167]S[178]1:[139]S[177]10[167]S[178]10
704 [139]T[178]0[167]2000
705 [137]1500
710 UG[178]0:OG[178]V(5):Z1[178]UG[170][187](0)[172](OG[171]UG)
711 Z2[178][181](Z1)
720 [141]9000
721 [153]"VALIN (null)PAZIERGANG DURCH DEN (null)ARK ... ODER DOCH NICHT ? STR$U BIST HIER AUF"
722 [153]"(null)ATROUILLE. PEEKLUT LIEGT IN DER (null)UFT, DIE (null)AMPIRE SPITZEN IHRE (null)AEHNE."Z2
723 [153]"DAVON KANNST STR$U HIER AUCH FINDEN !"
724 [153]"(null)ILLST STR$U KAEMPFEN (MID$/(null)) ?"
725 [141]9998
726 [139]A$[178]"J"[167]730
727 [139]A$[178]"N"[167]1200
728 [137]725
730 X[178]Z2[172]VV
731 L[178]L[171]X
732 [139]L[177]0[167]740
733 [137]2500
740 T[178]T[171]1
741 E[178]E[170]Z2:[139]E[177]100[167]E[178]100
742 V(5)[178]V(5)[171]Z2
743 S[178](A[170]D[170]E)[173]20:S[178][181](S):[139]S[179]1[167]S[178]1:[139]S[177]10[167]S[178]10
744 [139]T[178]0[167]2000
745 [137]1500
750 UG[178]0:OG[178]V(6):Z1[178]UG[170][187](0)[172](OG[171]UG)
751 Z2[178][181](Z1)
760 [141]9000
761 [153]"STR$IE RIGHT$NNENSTADT - STR$OWNTOWN ! (null)O DIE ROTE (null)EILE AUCH ANZUFINDEN IST. STR$OCH"
762 [153]"WAS KOMMT STR$IR IN DEN (null)INN ? MID$AP ...     GENAU - (null)AMPIREPOPIRE !!! (null)ND DAS"
763 [153]"GLEICH IN"Z2"FACHER ATNUSFERTIGUNG !!!"
764 [153]"(null)ILLST STR$U KAEMPFEN (MID$/(null)) ?"
765 [141]9998
766 [139]A$[178]"J"[167]770
767 [139]A$[178]"N"[167]1200
768 [137]765
770 X[178]Z2[172]VV
771 L[178]L[171]X
772 [139]L[177]0[167]780
773 [137]2500
780 T[178]T[171]1
781 E[178]E[170]Z2:[139]E[177]100[167]E[178]100
782 V(6)[178]V(6)[171]Z2
783 S[178](A[170]D[170]E)[173]20:S[178][181](S):[139]S[179]1[167]S[178]1:[139]S[177]10[167]S[178]10
784 [139]T[178]0[167]2000
785 [137]1500
790 UG[178]0:OG[178]V(7):Z1[178]UG[170][187](0)[172](OG[171]UG)
791 Z2[178][181](Z1)
800 [141]9000
801 [153]"(null)AS TUST STR$U NUR AUF DEM (null)PORTPLATZ ?    STR$OCH WOHL NICHT ETWA WIRKLICH"
802 [153]"(null)PORT TREIBEN ... WAS JA ECHT ABARTIG   WAERE ! (null)EIN, STR$U TUST WAS VOELLIG"
803 [153]"ALLTAEGLICHES - (null)AMPIRE FISTENPOPISTEN  UND SO ..."Z2"SIND'S !!!"
804 [153]"(null)ILLST STR$U KAEMPFEN (MID$/(null)) ?"
805 [141]9998
806 [139]A$[178]"J"[167]810
807 [139]A$[178]"N"[167]1200
808 [137]805
810 X[178]Z2[172]VV
811 L[178]L[171]X
812 [139]L[177]0[167]820
813 [137]2500
820 T[178]T[171]1
821 E[178]E[170]Z2:[139]E[177]100[167]E[178]100
822 V(7)[178]V(7)[171]Z2
823 S[178](A[170]D[170]E)[173]20:S[178][181](S):[139]S[179]1[167]S[178]1:[139]S[177]10[167]S[178]10
824 [139]T[178]0[167]2000
825 [137]1500
830 UG[178]0:OG[178]V(8):Z1[178]UG[170][187](0)[172](OG[171]UG)
831 Z2[178][181](Z1)
840 [141]9000
841 [153]"STR$AS VALINKAUFSZENTRUM - (null)HOPPINGPOPOPPING IST ANGESAGT !!! (null)EIDER NICHT ..."
842 [153]"STR$U SPUERST DEN ATNTEM STR$EINES (null)AECHTERS IM (null)UECKEN UND SUCHST LIEBER NACH"
843 [153]"(null)AMPIREN."Z2" KAUFEN HIER TATSAECHLICH":[153]"WAS EIN ... WAS WOHL ?!?"
844 [153]"(null)ILLST STR$U KAEMPFEN (MID$/(null)) ?"
845 [141]9998
846 [139]A$[178]"J"[167]850
847 [139]A$[178]"N"[167]1200
848 [137]845
850 X[178]Z2[172]VV
851 L[178]L[171]X
852 [139]L[177]0[167]860
853 [137]2500
860 T[178]T[171]1
861 E[178]E[170]Z2:[139]E[177]100[167]E[178]100
862 V(8)[178]V(8)[171]Z2
863 S[178](A[170]D[170]E)[173]20:S[178][181](S):[139]S[179]1[167]S[178]1:[139]S[177]10[167]S[178]10
864 [139]T[178]0[167]2000
865 [137]1500
870 UG[178]0:OG[178]V(9):Z1[178]UG[170][187](0)[172](OG[171]UG)
871 Z2[178][181](Z1)
880 [141]9000
881 [153]"STR$U DURCHSTREIFST NUN EINES VON 2 GROSSEN(null)OHNGEBIETEN DIESER (null)TADT. (null)ND STR$U"
882 [153]"SPUERST GANZ DEUTLICH: STR$U STREIFST HIER NICHT ALLEIN !!! STR$A SIND NAEMLICH"
883 [153]"AUCH NOCH"Z2"(null)AMPIRE !!!"
884 [153]"(null)ILLST STR$U KAEMPFEN (MID$/(null)) ?"
885 [141]9998
886 [139]A$[178]"J"[167]890
887 [139]A$[178]"N"[167]1200
888 [137]885
890 X[178]Z2[172]VV
891 L[178]L[171]X
892 [139]L[177]0[167]900
893 [137]2500
900 T[178]T[171]1
901 E[178]E[170]Z2:[139]E[177]100[167]E[178]100
902 V(9)[178]V(9)[171]Z2
903 S[178](A[170]D[170]E)[173]20:S[178][181](S):[139]S[179]1[167]S[178]1:[139]S[177]10[167]S[178]10
904 [139]T[178]0[167]2000
905 [137]1500
910 UG[178]0:OG[178]V(10):Z1[178]UG[170][187](0)[172](OG[171]UG)
911 Z2[178][181](Z1)
920 [141]9000
921 [153]"STR$U DURCHSTREIFST NUN EINES VON 2 GROSSEN(null)OHNGEBIETEN DIESER (null)TADT. (null)ND STR$U"
922 [153]"SPUERST GANZ DEUTLICH: STR$U STREIFST HIER NICHT ALLEIN !!! STR$A SIND NAEMLICH"
923 [153]"AUCH NOCH"Z2"(null)AMPIRE !!!"
924 [153]"(null)ILLST STR$U KAEMPFEN (MID$/(null)) ?"
925 [141]9998
926 [139]A$[178]"J"[167]930
927 [139]A$[178]"N"[167]1200
928 [137]925
930 X[178]Z2[172]VV
931 L[178]L[171]X
932 [139]L[177]0[167]940
933 [137]2500
940 T[178]T[171]1
941 E[178]E[170]Z2:[139]E[177]100[167]E[178]100
942 V(10)[178]V(10)[171]Z2
943 S[178](A[170]D[170]E)[173]20:S[178][181](S):[139]S[179]1[167]S[178]1:[139]S[177]10[167]S[178]10
944 [139]T[178]0[167]2000
945 [137]1500
1000 [143] TAGESAUSWERTUNG NACH TRAINING
1001 S[178](A[170]D[170]E)[173]20:S[178][181](S):[139]S[179]1[167]S[178]1:[139]S[177]10[167]S[178]10
1002 L[178]L[170](S[172]10)[170](E[173]2):L[178][181](L):[139]L[177]100[167]L[178]100
1003 T[178]T[171]1
1004 [137]1500
1200 [143] TAGESAUSWERTUNG OHNE TRAINING/KAMPF
1201 L[178]L[170](S[172]5)[170](E[173]2):L[178][181](L):[139]L[177]100[167]L[178]100
1202 T[178]T[171]1
1203 [137]1500
1500 [143] VAMPIR-WACHSTUM PRO TAG
1501 [129]Z[178]1[164]10:[139]V(Z)[178]0[167][130]Z
1502 UG[178]0:OG[178]1.4:Z1[178]UG[170][187](0)[172](OG[171]UG)
1503 V(Z)[178]V(Z)[170][181](Z1)
1504 [139]V(Z)[179]0[167]V(Z)[178]0
1505 [130]Z:V[178]0
1506 [129]Z[178]1[164]10
1507 V[178]V[170]V(Z)
1508 [130]Z
1509 [139]V[179]0[167]V[178]0
1510 [143] KAMPFSTUFE/ VAMPIRE
1511 [139]S[178]1[167]VV[178]99
1512 [139]S[178]2[167]VV[178]49
1513 [139]S[178]3[167]VV[178]33
1514 [139]S[178]4[167]VV[178]24
1515 [139]S[178]5[167]VV[178]19
1516 [139]S[178]6[167]VV[178]16
1517 [139]S[178]7[167]VV[178]14
1518 [139]S[178]8[167]VV[178]12
1519 [139]S[178]9[167]VV[178]11
1520 [139]S[178]10[167]VV[178]9
1521 [139]T[178]0[167]2000
1522 [137]100
2000 [143] ENDKAMPF
2001 [139]OA$[178]"(null)(null)"[167]2003
2002 [137]2050
2003 [139]OB$[178]"(null)(null)"[167]2005
2004 [137]2050
2005 [139]OC$[178]"(null)(null)"[167]2010
2006 [137]2050
2010 OD$[178]"(null)(null)"
2011 [141]9000
2012 [153]"CHR$UTE ATNRBEIT, STR$U HAST ALLE 3 (null)UTATEN     FINDEN KOENNEN UND STR$EIN (null)EISTER"
2013 [153]"KONNTE DEN (null)RAFTZAUBER ANWENDEN. STR$EINE  LENHANCEN DAS VALNDE DIESES EHER"
2014 [153]"SINNLOSEN CHR$AMES LEBEND ZU ERLEBEN, SIND SOEBEN GESTIEGEN !"
2015 [141]9998
2050 [141]9000
2051 [153]"VALS IST NUN DER (null)AG DES VALNDSPIELS GE-    KOMMEN, PEEKAYERN GEGEN ... AEH ..."
2052 [153]"FALSCHER (null)ANAL ... SCHNELL AUF (null)ROPOPO7 SWITCHEN ... UND NOCHMAL:"
2053 [153]"VALS IST NUN DER (null)AG DES (null)AXIFAHRERS GE-  KOMMEN UND EIN (null)RIGINAL CHR$(null)(null)(null)ASC"
2054 [153]"ASCUSSCHWEISSPRITZER BEDROHT DIE (null)ELT MIT ... NA, WAS WOHL ? RIGHT$HM ZUR (null)EITE"
2055 [153]"STEHEN NOCH LAECHERLICHE"V"(null)AMPIRE"
2056 [153]"UND STR$U BEGIBST STR$ICH IN DEN (null)ING.        CHR$(null)(null)CHR$ ..."
2057 [141]9998
2060 [139]OD$[178]"(null)(null)"[167]L[178]L[172]10
2061 L[178]L[171]V[172]VV[171]500
2062 [139]L[179]0[167]2100
2070 [141]9000
2071 [153]"(null)H NEIN ! (null)O EIN MID$AMMER ABER AUCH ! STR$U  HAST ALLE (null)AMPIRE UND DEN (null)BER-"
2072 [153]"FIESLING KILLEN KOENNEN. (null)AL EHRLICH ...NUR WENIGE (null)ANGWEILERPOPEILER"
2073 [153]"KOENNEN SICH IN DIESES OBERFLAECHLICHE  (null)PIEL SO REINSTEIGERN, DASS SIE ES
2074 PRINT"GEWINNEN ... DAS WAR ALS [203]OMPLIMENT GE- MEINTPOPEINT ..."
2075 GOSUB9998
2076 GOTO4000
2100 GOSUB9000
2101 PRINT"[217]IPPIE ! [196]IE GANZE [215]ELT IST DANK [196]EINES [213]NVERMOEGENS NUN IN EINE ZARTE"
2102 PRINT"[196]UFTHUELLE VON [198]USSCHWEISS GEHUELLT !   [196]IE [211]UIZIDRATEN SCHNELLEN NUR SO"
2103 PRINT"IN DIE [200]OEHE ! [199]OOD WORK ..."
2104 GOSUB9998
2105 GOTO2500
2500 GOSUB9000
2501 PRINT"[199][193][205][197] [207][214][193][200][160]!!!"
2502 GOSUB9998
2503 POKE53280,0:POKE53281,0
2504 PRINT"[144][211]UCHT NACH DEN [195]HEATS DIESES [199]AMES !!!"
2505 PRINT"[210][213][206] + [210][197][212][213][210][206], FALLS IHR'S NOCHMAL VER-  SUCHEN WOLLT ..."
2506 END
3000 GOSUB9000
3001 PRINT"[193][195][200][212][213][206][199][160]!!!"Z2"[214]AMPIRE KREUZEN [196]EINEN":PRINT"[215]EG ! [203]AEMPFEN ([202]/[206]) ?"
3002 GOSUB9998
3003 IFA$="J"THEN3010
3004 IFA$="N"THEN1200
3005 GOTO3002
3010 X=Z2*VV
3011 L=L-X
3012 IFL>0THEN3020
3013 GOTO2500
3020 T=T-1
3021 E=E+Z2:IFE>100THENE=100
3022 V(AA)=V(AA)-Z2
3023 S=(A+D+E)/20:S=INT(S):IFS<1THENS=1:IFS>10THENS=10
3024 IFT=0THEN2000
3025 K$="[207][203]":RETURN
3100 UG=0:OG=3:Z1=UG+RND(0)*(OG-UG)
3101 Z2=INT(Z1)
3102 IFZ2=0THEN3110
3103 IFZ2=1THEN3120
3104 IFZ2=2THEN3120
3105 IFZ2=3THEN3110
3110 UG=0:OG=V(3):Z1=UG+RND(0)*(OG-UG)
3111 Z2=INT(Z1)
3112 AA=3:GOSUB3000
3120 GOSUB9000
3121 IFOB(1)=3THEN3130
3122 IFOB(2)=3THEN3140
3123 IFOB(3)=3THEN3150
3125 PRINT"[196]U KANNST HIER KEINEN DER 3 [199]EGENSTAENDEFINDENPOPINDEN !"
3126 GOSUB9998
3127 IFK$="[207][203]"THEN1500
3128 GOTO1200
3130 PRINT"[196]U HAST DEN [207]RIGINAL [199][206][205][208][198] [203]ILLER-[196]ILDO-[208]O-[208]ILDO GEFUNDEN !!!"
3131 OA$="[207][203]"
3132 GOSUB9998
3133 GOTO3122
3140 PRINT"[196]U HAST DEN [207]RIGINAL [199][206][205][208][198] [199]LIBBER-[208]O-  [208]IBBER-[211]CHLEIM GEFUNDEN !!!"
3141 OB$="[207][203]"
3142 GOSUB9998
3143 GOTO3123
3150 PRINT"[196]U HAST DEN [207]RIGINAL [199][206][205][208][198] [200]IRN-[211]CHMALZ-[208]O-[208]ALZ-[211]AFT GEFUNDEN !!!"
3151 GOSUB9998
3152 OC$="[207][203]"
3153 GOTO3125
3200 UG=0:OG=3:Z1=UG+RND(0)*(OG-UG)
3201 Z2=INT(Z1)
3202 IFZ2=0THEN3210
3203 IFZ2=1THEN3220
3204 IFZ2=2THEN3220
3205 IFZ2=3THEN3210
3210 UG=0:OG=V(4):Z1=UG+RND(0)*(OG-UG)
3211 Z2=INT(Z1)
3212 AA=4:GOSUB3000
3220 GOSUB9000
3221 IFOB(1)=4THEN3230
3222 IFOB(2)=4THEN3240
3223 IFOB(3)=4THEN3250
3225 PRINT"[196]U KANNST HIER KEINEN DER 3 [199]EGENSTAENDEFINDENPOPINDEN !"
3226 GOSUB9998
3227 IFK$="[207][203]"THEN1500
3228 GOTO1200
3230 PRINT"[196]U HAST DEN [207]RIGINAL [199][206][205][208][198] [203]ILLER-[196]ILDO-[208]O-[208]ILDO GEFUNDEN !!!"
3231 OA$="[207][203]"
3232 GOSUB9998
3233 GOTO3222
3240 PRINT"[196]U HAST DEN [207]RIGINAL [199][206][205][208][198] [199]LIBBER-[208]O-  [208]IBBER-[211]CHLEIM GEFUNDEN !!!"
3241 OB$="[207][203]"
3242 GOSUB9998
3243 GOTO3223
3250 PRINT"[196]U HAST DEN [207]RIGINAL [199][206][205][208][198] [200]IRN-[211]CHMALZ-[208]O-[208]ALZ-[211]AFT GEFUNDEN !!!"
3251 GOSUB9998
3252 OC$="[207][203]"
3253 GOTO3225
3300 UG=0:OG=3:Z1=UG+RND(0)*(OG-UG)
3301 Z2=INT(Z1)
3302 IFZ2=0THEN3310
3303 IFZ2=1THEN3320
3304 IFZ2=2THEN3320
3305 IFZ2=3THEN3310
3310 UG=0:OG=V(5):Z1=UG+RND(0)*(OG-UG)
3311 Z2=INT(Z1)
3312 AA=5:GOSUB3000
3320 GOSUB9000
3321 IFOB(1)=5THEN3330
3322 IFOB(2)=5THEN3340
3323 IFOB(3)=5THEN3350
3325 PRINT"[196]U KANNST HIER KEINEN DER 3 [199]EGENSTAENDEFINDENPOPINDEN !"
3326 GOSUB9998
3327 IFK$="[207][203]"THEN1500
3328 GOTO1200
3330 PRINT"[196]U HAST DEN [207]RIGINAL [199][206][205][208][198] [203]ILLER-[196]ILDO-[208]O-[208]ILDO GEFUNDEN !!!"
3331 OA$="[207][203]"
3332 GOSUB9998
3333 GOTO3322
3340 PRINT"[196]U HAST DEN [207]RIGINAL [199][206][205][208][198] [199]LIBBER-[208]O-  [208]IBBER-[211]CHLEIM GEFUNDEN !!!"
3341 OB$="[207][203]"
3342 GOSUB9998
3343 GOTO3323
3350 PRINT"[196]U HAST DEN [207]RIGINAL [199][206][205][208][198] [200]IRN-[211]CHMALZ-[208]O-[208]ALZ-[211]AFT GEFUNDEN !!!"
3351 GOSUB9998
3352 OC$="[207][203]"
3353 GOTO3325
3400 UG=0:OG=3:Z1=UG+RND(0)*(OG-UG)
3401 Z2=INT(Z1)
3402 IFZ2=0THEN3410
3403 IFZ2=1THEN3420
3404 IFZ2=2THEN3420
3405 IFZ2=3THEN3410
3410 UG=0:OG=V(6):Z1=UG+RND(0)*(OG-UG)
3411 Z2=INT(Z1)
3412 AA=6:GOSUB3000
3420 GOSUB9000
3421 IFOB(1)=6THEN3430
3422 IFOB(2)=6THEN3440
3423 IFOB(3)=6THEN3450
3425 PRINT"[196]U KANNST HIER KEINEN DER 3 [199]EGENSTAENDEFINDENPOPINDEN !"
3426 GOSUB9998
3427 IFK$="[207][203]"THEN1500
3428 GOTO1200
3430 PRINT"[196]U HAST DEN [207]RIGINAL [199][206][205][208][198] [203]ILLER-[196]ILDO-[208]O-[208]ILDO GEFUNDEN !!!"
3431 OA$="[207][203]"
3432 GOSUB9998
3433 GOTO3422
3440 PRINT"[196]U HAST DEN [207]RIGINAL [199][206][205][208][198] [199]LIBBER-[208]O-  [208]IBBER-[211]CHLEIM GEFUNDEN !!!"
3441 OB$="[207][203]"
3442 GOSUB9998
3443 GOTO3423
3450 PRINT"[196]U HAST DEN [207]RIGINAL [199][206][205][208][198] [200]IRN-[211]CHMALZ-[208]O-[208]ALZ-[211]AFT GEFUNDEN !!!"
3451 GOSUB9998
3452 OC$="[207][203]"
3453 GOTO3425
3500 UG=0:OG=3:Z1=UG+RND(0)*(OG-UG)
3501 Z2=INT(Z1)
3502 IFZ2=0THEN3510
3503 IFZ2=1THEN3520
3504 IFZ2=2THEN3520
3505 IFZ2=3THEN3510
3510 UG=0:OG=V(7):Z1=UG+RND(0)*(OG-UG)
3511 Z2=INT(Z1)
3512 AA=7:GOSUB3000
3520 GOSUB9000
3521 IFOB(1)=7THEN3530
3522 IFOB(2)=7THEN3540
3523 IFOB(3)=7THEN3550
3525 PRINT"[196]U KANNST HIER KEINEN DER 3 [199]EGENSTAENDEFINDENPOPINDEN !"
3526 GOSUB9998
3527 IFK$="[207][203]"THEN1500
3528 GOTO1200
3530 PRINT"[196]U HAST DEN [207]RIGINAL [199][206][205][208][198] [203]ILLER-[196]ILDO-[208]O-[208]ILDO GEFUNDEN !!!"
3531 OA$="[207][203]"
3532 GOSUB9998
3533 GOTO3522
3540 PRINT"[196]U HAST DEN [207]RIGINAL [199][206][205][208][198] [199]LIBBER-[208]O-  [208]IBBER-[211]CHLEIM GEFUNDEN !!!"
3541 OB$="[207][203]"
3542 GOSUB9998
3543 GOTO3523
3550 PRINT"[196]U HAST DEN [207]RIGINAL [199][206][205][208][198] [200]IRN-[211]CHMALZ-[208]O-[208]ALZ-[211]AFT GEFUNDEN !!!"
3551 GOSUB9998
3552 OC$="[207][203]"
3553 GOTO3525
3600 UG=0:OG=3:Z1=UG+RND(0)*(OG-UG)
3601 Z2=INT(Z1)
3602 IFZ2=0THEN3610
3603 IFZ2=1THEN3620
3604 IFZ2=2THEN3620
3605 IFZ2=3THEN3610
3610 UG=0:OG=V(8):Z1=UG+RND(0)*(OG-UG)
3611 Z2=INT(Z1)
3612 AA=8:GOSUB3000
3620 GOSUB9000
3621 IFOB(1)=8THEN3630
3622 IFOB(2)=8THEN3640
3623 IFOB(3)=8THEN3650
3625 PRINT"[196]U KANNST HIER KEINEN DER 3 [199]EGENSTAENDEFINDENPOPINDEN !"
3626 GOSUB9998
3627 IFK$="[207][203]"THEN1500
3628 GOTO1200
3630 PRINT"[196]U HAST DEN [207]RIGINAL [199][206][205][208][198] [203]ILLER-[196]ILDO-[208]O-[208]ILDO GEFUNDEN !!!"
3631 OA$="[207][203]"
3632 GOSUB9998
3633 GOTO3622
3640 PRINT"[196]U HAST DEN [207]RIGINAL [199][206][205][208][198] [199]LIBBER-[208]O-  [208]IBBER-[211]CHLEIM GEFUNDEN !!!"
3641 OB$="[207][203]"
3642 GOSUB9998
3643 GOTO3623
3650 PRINT"[196]U HAST DEN [207]RIGINAL [199][206][205][208][198] [200]IRN-[211]CHMALZ-[208]O-[208]ALZ-[211]AFT GEFUNDEN !!!"
3651 GOSUB9998
3652 OC$="[207][203]"
3653 GOTO3625
3700 UG=0:OG=3:Z1=UG+RND(0)*(OG-UG)
3701 Z2=INT(Z1)
3702 IFZ2=0THEN3710
3703 IFZ2=1THEN3720
3704 IFZ2=2THEN3720
3705 IFZ2=3THEN3710
3710 UG=0:OG=V(9):Z1=UG+RND(0)*(OG-UG)
3711 Z2=INT(Z1)
3712 AA=9:GOSUB3000
3720 GOSUB9000
3721 IFOB(1)=9THEN3730
3722 IFOB(2)=9THEN3740
3723 IFOB(3)=9THEN3750
3725 PRINT"[196]U KANNST HIER KEINEN DER 3 [199]EGENSTAENDEFINDENPOPINDEN !"
3726 GOSUB9998
3727 IFK$="[207][203]"THEN1500
3728 GOTO1200
3730 PRINT"[196]U HAST DEN [207]RIGINAL [199][206][205][208][198] [203]ILLER-[196]ILDO-[208]O-[208]ILDO GEFUNDEN !!!"
3731 OA$="[207][203]"
3732 GOSUB9998
3733 GOTO3722
3740 PRINT"[196]U HAST DEN [207]RIGINAL [199][206][205][208][198] [199]LIBBER-[208]O-  [208]IBBER-[211]CHLEIM GEFUNDEN !!!"
3741 OB$="[207][203]"
3742 GOSUB9998
3743 GOTO3723
3750 PRINT"[196]U HAST DEN [207]RIGINAL [199][206][205][208][198] [200]IRN-[211]CHMALZ-[208]O-[208]ALZ-[211]AFT GEFUNDEN !!!"
3751 GOSUB9998
3752 OC$="[207][203]"
3753 GOTO3725
3800 UG=0:OG=3:Z1=UG+RND(0)*(OG-UG)
3801 Z2=INT(Z1)
3802 IFZ2=0THEN3810
3803 IFZ2=1THEN3820
3804 IFZ2=2THEN3820
3805 IFZ2=3THEN3810
3810 UG=0:OG=V(10):Z1=UG+RND(0)*(OG-UG)
3811 Z2=INT(Z1)
3812 AA=10:GOSUB3000
3820 GOSUB9000
3821 IFOB(1)=10THEN3830
3822 IFOB(2)=10THEN3840
3823 IFOB(3)=10THEN3850
3825 PRINT"[196]U KANNST HIER KEINEN DER 3 [199]EGENSTAENDEFINDENPOPINDEN !"
3826 GOSUB9998
3827 IFK$="[207][203]"THEN1500
3828 GOTO1200
3830 PRINT"[196]U HAST DEN [207]RIGINAL [199][206][205][208][198] [203]ILLER-[196]ILDO-[208]O-[208]ILDO GEFUNDEN !!!"
3831 OA$="[207][203]"
3832 GOSUB9998
3833 GOTO3822
3840 PRINT"[196]U HAST DEN [207]RIGINAL [199][206][205][208][198] [199]LIBBER-[208]O-  [208]IBBER-[211]CHLEIM GEFUNDEN !!!"
3841 OB$="[207][203]"
3842 GOSUB9998
3843 GOTO3823
3850 PRINT"[196]U HAST DEN [207]RIGINAL [199][206][205][208][198] [200]IRN-[211]CHMALZ-[208]O-[208]ALZ-[211]AFT GEFUNDEN !!!"
3851 GOSUB9998
3852 OC$="[207][203]"
3853 GOTO3825
4000 OPEN2,8,2,"HI,S,R"
4001 INPUT#2,N1$
4002 INPUT#2,H1
4003 INPUT#2,N2$
4004 INPUT#2,H2
4005 CLOSE2
4010 PRINT"[147][214]AMPIRE VOR [197]NDKAMPF:"V:PRINT"[204]EBENSSAFT NACH [197]NDKAMPF:"L
4011 POKEV+31,0:POKEV+21,0
4012 IFV<H1THENPOKE19,1:PRINT"[206]EUER [210]EKORD !":INPUT"[206]AME :";N1$:H1=V:POKE19,0:PRINT
4013 IFL>H2THENPOKE19,1:PRINT"[206]EUER [210]EKORD !":INPUT"[206]AME :";N2$:H2=L:POKE19,0:PRINT
4014 PRINTN$
4015 PRINT"[210]EKORDHALTER:"
4016 PRINTN1$
4017 PRINT"[214]AMPIRE:"
4018 PRINTH1
4019 PRINT"[210]EKORDHALTER:"
4020 CLOSE2
4021 PRINT"[204]EBENSSAFT:"
4022 PRINTH2
4023 GOSUB9998
4024 OPEN2,8,2,"@:HI,S,W"
4025 PRINT:PRINT#2,N1$
4026 PRINT:PRINT#2,N2$
4027 PRINT#2,H1
4028 PRINT#2,H2
4030 PRINT"[206]OCHMAL SPIELEN ([202]/[206]) ?"
4031 GOSUB9998
4032 IFA$="J"THEN1
4033 IFA$="N"THENSYS64738
4034 GOTO4031
5000 PRINT"[147][144]       [214]AMPYRE [197]MPIRE - [193]NLEITUNG       "
5001 PRINT"[214]AMPYRE [197]MPIRE IST MAL WIEDER EIN [193]NTI- [211]PIEL WIE ES IM [194]UCHE STEHT."
5002 PRINT"[197]S GEHT DARUM, DASS MAN IN DIE [210]OLLE    EINER [214]AMPIRJAEGERIN SCHLUEPFT"
5003 PRINT"(WEIL DAS MOMENTAN HIP IST) UND [214]AMPIRE BEKAEMPFEN MUSS. [205]AN SOLLTE ABER"
5004 PRINT"VOR ALLEM ZU [194]EGINN AUCH ERST MAL       KRAEFTIG TRAINIEREN UND NEBEN DEM"
5005 PRINT"LUSTIGEN [205]EUCHELN AUCH NACH 3 [207]BJEKTEN  SUCHEN, DIE NACH 100 [212]AGEN VON"
5006 PRINT"[194]EDEUTUNG WERDEN. [196]ANN KANN MAN DADURCH NAEMLICH [211]UPERKRAEFTE ERLANGEN,"
5007 PRINT"OHNE DIE MAN AM [212]AG DER [193]BRECHNUNG      GEGEN DEN DANN ERSCHEINENDEN [207]BER-
5008 [153]"(null)PIELVERDERBER KAUM EINE LENHANCE HAT. RIGHT$HMZUR (null)EITE STEHEN WERDEN ALLE"
5009 [153]"(null)AMPIRE, DIE MAN BIS ZUM 100. (null)AG NICHT KILLEN KONNTE."
5010 [141]9998
5011 [137]100
9000 [153]"LOADSTOP             (null)AMPYRE VALMPIRE             "
9002 [142]
9998 [161]A$:[139]A$[178]""[167]9998
9999 [142]