100 REM *******************************
105 REM * *
110 REM * MAYA-GRAB V0.1.4 (DE) *
115 REM * *
120 REM * GAME REMAKE BY: *
125 REM * VLADIMIR IGNJATIJEVIC *
130 REM * (C) 2016 GARAGE APPS *
135 REM * WWW.GARAGEAPPS.ORG *
140 REM * *
145 REM * ORIGINAL GAME BY: *
150 REM * THOMAS LANGENKAMP *
155 REM * (C) 1986 HEISE VERLAG *
160 REM * INPUT 64 ISSUE (7/86) *
165 REM * *
170 REM *******************************
1000 :
1005 REM ******************************
1010 REM * DATA INITIALIZATION *
1015 REM ******************************
1020 :
1500 :
1505 REM - DEFINES --------------------
1510 :
1515 V=53248: S=54272: C=646: B=832
1520 MA=780: MX=781: MY=782: MS=783
1525 CB=12: CF=0: FC=2: FW=27: FH=19
1530 PI=1: PD=11: PE=20: PM=22
1535 SL=100: SH=180
1540 L$=CHR$(127): R$=CHR$(169)
2000 :
2005 REM - GAME DEFINES ---------------
2010 :
2015 IS=16: RS=20
2500 :
2505 REM - GAME LOCALIZATION ----------
2510 :
2515 DIM RO$(RS,4): DIM RD$(RS,4)
2520 DIM RM$(RS,16)
2525 DIM IM$(12): DIM IV$(37)
2530 DIM IA$(40): DIM IN$(66)
2535 :
2600 RO$( 0, 0)=""
2601 :
2610 RD$( 0, 0)=""
2611 :
2620 RM$( 0, 0)="EIN SPANNENDES"
2621 RM$( 0, 1)="ABENTEUERSPIEL"
2622 RM$( 0, 2)="VON THOMAS"
2623 RM$( 0, 3)="LANGENKAMP (1986)"
2624 :
2625 :
2626 :
2650 RO$( 1, 0)="NICHTS MEHR"
2651 :
2660 RD$( 1, 0)="NIRGENDWO"
2661 :
2670 RM$( 1, 0)=" R.IN P. "
2671 :
2672 :
2673 :
2700 RO$( 2, 0)="TUER STOCK"
2701 RO$( 2, 1)="SCHRANK"
2702 RO$( 2, 2)="SCHALE"
2703 RO$( 2, 3)="FACKEL"
2704 :
2710 RD$( 2, 0)="OSTEN"
2711 :
2720 RM$( 2, 0)=""
2721 :
2722 :
2723 :
2750 RO$( 3, 0)="BILD BETT"
2751 RO$( 3, 1)="TEPPICH"
2752 RO$( 3, 2)="INSCHRIFT"
2753 :
2760 RD$( 3, 0)="WESTEN"
2761 :
2770 RM$( 3, 0)=""
2771 :
2772 :
2773 :
2800 RO$( 4, 0)="SCHRANK"
2801 RO$( 4, 1)="KERZE"
2802 RO$( 4, 2)="KANNE"
2803 :
2810 RD$( 4, 0)="OBEN"
2811 :
2820 RM$( 4, 0)=""
2821 :
2822 :
2823 :
2850 RO$( 5, 0)="TREPPE"
2851 RO$( 5, 1)="SCHALE"
2852 RO$( 5, 2)="FENSTER"
2853 RO$( 5, 3)="FACKEL"
2854 :
2860 RD$( 5, 0)="WESTEN"
2861 RD$( 5, 1)="OBEN"
2862 :
2870 RM$( 5, 0)="AUSGANG"
2871 :
2872 :
2873 :
2900 RO$( 6, 0)="MAUER"
2901 RO$( 6, 1)="WAECHTER"
2902 RO$( 6, 2)="STRAUCH"
2903 :
2910 RD$( 6, 0)="SUEDEN"
2911 RD$( 6, 1)="OSTEN"
2912 :
2920 RM$( 6, 0)=""
2921 :
2922 :
2923 :
2950 RO$( 7, 0)="HAUS"
2951 :
2960 RD$( 7, 0)="WESTEN"
2961 :
2970 RM$( 7, 0)=""
2971 :
2972 :
2973 :
3000 RO$( 8, 0)="BILD"
3001 RO$( 8, 1)="TISCH"
3002 RO$( 8, 2)="BLUMEN"
3003 :
3010 RD$( 8, 0)="SUEDEN"
3011 :
3020 RM$( 8, 0)=""
3021 :
3022 :
3023 :
3050 RO$( 9, 0)="KAMIN"
3051 RO$( 9, 1)="LATERNE"
3052 RO$( 9, 2)="RAUCH"
3053 :
3060 RD$( 9, 0)="UNTEN"
3061 :
3070 RM$( 9, 0)=""
3071 :
3072 :
3073 :
3100 RO$(10, 0)="ZIEGE"
3101 RO$(10, 1)="ZAUN"
3102 RO$(10, 2)="WIESE"
3103 :
3110 RD$(10, 0)="SUEDEN"
3111 RD$(10, 1)="OSTEN"
3112 RD$(10, 2)="NORDEN"
3113 :
3120 RM$(10, 0)=""
3121 :
3122 :
3123 :
3150 RO$(11, 0)="BAUM"
3151 :
3160 RD$(11, 0)="WESTEN"
3161 :
3170 RM$(11, 0)=""
3171 :
3172 :
3173 :
3200 RO$(12, 0)="BAUM"
3201 RO$(12, 1)="SPINNE"
3202 :
3210 RD$(12, 0)="SUEDEN"
3211 :
3220 RM$(12, 0)=""
3221 :
3222 :
3223 :
3250 RO$(13, 0)="WALD"
3251 RO$(13, 1)="EULE"
3252 :
3260 RD$(13, 0)="NORDEN"
3261 RD$(13, 1)="SUEDEN"
3262 RD$(13, 2)="OSTEN"
3263 RD$(13, 3)="WESTEN"
3264 :
3270 RM$(13, 0)=""
3271 :
3272 :
3273 :
3300 RO$(14, 0)="WAECHTER"
3301 RO$(14, 1)="HOEHLE"
3302 :
3310 RD$(14, 0)="SUEDEN"
3311 :
3320 RM$(14, 0)=""
3321 :
3322 :
3323 :
3350 RO$(15, 0)="FAST NICHTS"
3351 :
3360 RD$(15, 0)="SUEDEN"
3361 :
3370 RM$(15, 0)=""
3371 :
3372 :
3373 :
3400 RO$(16, 0)="SARG FACKEL"
3401 RO$(16, 1)="BILD"
3402 :
3410 RD$(16, 0)="OSTEN"
3411 :
3420 RM$(16, 0)=""
3421 :
3422 :
3423 :
3450 RO$(17, 0)=""
3451 :
3460 RD$(17, 0)=""
3461 :
3470 RM$(17, 0)=""
3471 :
3472 :
3473 :
3500 RO$(18, 0)=""
3501 :
3510 RD$(18, 0)=""
3511 :
3520 RM$(18, 0)=""
3521 :
3522 :
3523 :
3550 RO$(19, 0)=""
3551 :
3560 RD$(19, 0)=""
3561 :
3570 RM$(19, 0)=""
3571 :
3572 :
3573 :
3600 IM$( 0)="ICH SEHE :"
3601 IM$( 1)="WEGE NACH :"
3602 IM$( 2)="WAS NUN ? "
3603 IM$( 3)="WIE ???"
3604 IM$( 4)="OK."
3605 IM$( 5)="KENNE ICH NICHT"
3606 IM$( 6)="DAS GEHT JETZT NICHT !"
3607 IM$( 7)="KANN ICH JETZT NICHT"
3608 IM$( 8)="NEHMEN !"
3609 IM$( 9)="HINGEHEN !"
3610 IM$(10)="ANSEHEN !"
3611 IM$(11)="OEFFNEN !"
3612 :
3613 :
3614 :
3700 IV$( 0)="NIMM"
3701 IV$( 1)="GEH"
3702 IV$( 2)="SIEH"
3703 IV$( 3)="KLETTER"
3704 IV$( 4)="WIRF"
3705 IV$( 5)="RIECH"
3706 IV$( 6)="SCHNU?"
3707 IV$( 7)="ZERSC?"
3708 IV$( 8)="OEFFNE"
3709 IV$( 9)="SCHLIESSE"
3710 IV$(10)="ZERBRECHE"
3711 IV$(11)="HEB"
3712 IV$(12)="FRAG"
3713 IV$(13)="FUETTERE"
3714 IV$(14)="PFLUECKE"
3715 IV$(15)="FAELL?"
3716 IV$(16)="TOETE"
3717 IV$(17)="VERJAGE"
3718 IV$(18)="ZIEH"
3719 IV$(19)="LIES"
3720 IV$(20)="GIESS"
3721 IV$(21)="FUELLE"
3722 IV$(22)="BESTECHE"
3723 IV$(23)="ENTZUENDE"
3724 IV$(24)="STECKE"
3725 IV$(25)="DREH"
3726 IV$(26)="ISS"
3727 IV$(27)="FRISS"
3728 IV$(28)="GIB"
3729 IV$(29)="SPRING"
3730 IV$(30)="HAU"
3731 IV$(31)="DRUECKE"
3732 IV$(32)="SCHLAGE"
3733 IV$(33)="BENUTZE"
3734 IV$(34)="SCHUE?"
3735 IV$(35)="SAG"
3736 IV$(36)="BRICH"
3737 :
3738 :
3739 :
3800 IA$( 0)="DEN"
3801 IA$( 1)="DIE"
3802 IA$( 2)="DAS"
3803 IA$( 3)="DEM"
3804 IA$( 4)="EINEN"
3805 IA$( 5)="EINE"
3806 IA$( 6)="EIN"
3807 IA$( 7)="DER"
3808 IA$( 8)="UND"
3809 IA$( 9)="BITTE"
3810 IA$(10)="MAL"
3811 IA$(11)="JETZT"
3812 IA$(12)="VOM"
3813 IA$(13)="ZUM"
3814 IA$(14)="AM"
3815 IA$(15)="IM"
3816 IA$(16)="ZUR"
3817 IA$(17)="INS"
3818 IA$(18)="AUFS"
3819 IA$(19)="NACH"
3820 IA$(20)="DURCHS"
3821 IA$(21)="VOR"
3822 IA$(22)="ZWISCHEN"
3823 IA$(23)="IHR"
3824 IA$(24)="IHM"
3825 IA$(25)="AUS"
3826 IA$(26)="VON"
3827 IA$(27)="ZU"
3828 IA$(28)="MIT"
3829 IA$(29)="DURCH"
3830 IA$(30)="GEGEN"
3831 IA$(31)="OHNE"
3832 IA$(32)="UM"
3833 IA$(33)="AN"
3834 IA$(34)="AUF"
3835 IA$(35)="HINTER"
3836 IA$(36)="NEBEN"
3837 IA$(37)="IN"
3838 IA$(38)="UEBER"
3839 IA$(39)="UNTER"
3840 :
3841 :
3842 :
3900 IN$( 0)="SPAZI"
3901 IN$( 1)="STOCK"
3902 IN$( 2)="TUER"
3903 IN$( 3)="SCHRANK"
3904 IN$( 4)="WAND"
3905 IN$( 5)="BODEN"
3906 IN$( 6)="DECKE"
3907 IN$( 7)="FACKEL"
3908 IN$( 8)="KLINGEL"
3909 IN$( 9)="OBST"
3910 IN$(10)="APFEL"
3911 IN$(11)="BANANE"
3912 IN$(12)="SCHALE"
3913 IN$(13)="SCHUBLADE"
3914 IN$(14)="BETT"
3915 IN$(15)="BILD"
3916 IN$(16)="TEPPICH"
3917 IN$(17)="INSCHRIFT"
3918 IN$(18)="FALLTUER"
3919 IN$(19)="TREPPE"
3920 IN$(20)="LEITER"
3921 IN$(21)="WASSER"
3922 IN$(22)="KANNE"
3923 IN$(23)="SCHLUESSEL"
3924 IN$(24)="FENSTER"
3925 IN$(25)="GEHEIMTUER"
3926 IN$(26)="KERZE"
3927 IN$(27)="TISCH"
3928 IN$(28)="BLUME"
3929 IN$(29)="GRAS"
3930 IN$(30)="TIER"
3931 IN$(31)="VASE"
3932 IN$(32)="LATERNE"
3933 IN$(33)="DACH"
3934 IN$(34)="KAMIN"
3935 IN$(35)="RAUCH"
3936 IN$(36)="GLOCKE"
3937 IN$(37)="HAUS"
3938 IN$(38)="BAUM"
3939 IN$(39)="WAECHTER"
3940 IN$(40)="MAUER"
3941 IN$(41)="EULE"
3942 IN$(42)="ZIEGE"
3943 IN$(43)="SPINNE"
3944 IN$(44)="BERG"
3945 IN$(45)="HOEHLE"
3946 IN$(46)="WALD"
3947 IN$(47)="WIESE"
3948 IN$(48)="ZAUN"
3949 IN$(49)="TOR"
3950 IN$(50)="HELLEBARDE"
3951 IN$(51)="OSTEN"
3952 IN$(52)="WESTEN"
3953 IN$(53)="NORDEN"
3954 IN$(54)="SUEDEN"
3955 IN$(55)="OBEN"
3956 IN$(56)="UNTEN"
3957 IN$(57)="ZETTEL"
3958 IN$(58)="BRUECKE"
3959 IN$(59)="CUCUMATZ"
3960 IN$(60)="KNAUF"
3961 IN$(61)="SARG"
3962 IN$(62)="RING"
3963 IN$(63)="BEERE"
3964 IN$(64)="AST"
3965 IN$(65)="STRAUCH"
3966 :
3967 :
3968 :
4000 :
4005 REM - GAME VARIABLES -------------
4010 :
4015 DIM PI$(IS): DIM RF(RS)
4020 PR=0: PT=0: PC=0: PP=0
4025 :
4030 FOR I=0 TO IS-1: PI$(I)="": NEXT
4035 FOR I=0 TO RS-1: RF(I)=0: NEXT
4500 :
4505 REM - COMMON VARIABLES -----------
4510 :
4515 A%=0: X%=0: Y%=0
4520 A$="": X$="": Y$=""
5000 :
5005 REM ******************************
5010 REM * MAIN GAME LOOP *
5015 REM ******************************
5020 :
5025 IF PR=0 THEN 5100: REM TITLE
5030 IF PR=1 THEN 5200: REM RIP
5035 GOTO 5300 : REM ROOMS
5100 :
5105 REM - TITLE SCREEN ---------------
5110 :
5115 GOSUB 10500: REM INIT SCREEN
5120 GOSUB 30500: REM DRAW TITLE
5125 GOSUB 55100: REM INIT SPRITES
5130 PR=2 : REM SET ROOM TO 2
5135 GOSUB 10600: REM INIT SCREEN
5140 GOSUB 11500: REM DRAW FRAME
5145 GOTO 5300 : REM ROOMS
5200 :
5205 REM - RIP SCREEN -----------------
5210 :
5215 GOSUB 31000: REM DRAW RIP
5220 GOSUB 12500: REM DRAW ITEMS
5225 GOSUB 13500: REM DRAW DIRECTIONS
5230 GOSUB 14000: REM CLEAR INPUT
5235 GOSUB 16000: REM DRAW RIP MESSAGE
5240 GOSUB 15000: REM CLEAR MESSAGE
5245 GOSUB 16500: REM DRAW STATS
5250 GOSUB 19000: REM WAIT FOR KEY
5255 GOTO 4020 : REM RESTART GAME
5300 :
5305 REM - ROOMS ----------------------
5310 :
5315 GOSUB 30000: REM DRAW ROOM
5320 GOSUB 12500: REM DRAW ITEMS
5325 GOSUB 13500: REM DRAW DIRECTIONS
5330 GOSUB 15000: REM CLEAR MESSAGE
5335 GOSUB 15500: REM DRAW MESSAGE
5340 GOSUB 14000: REM CLEAR INPUT
5345 GOSUB 14500: REM WAIT FOR INPUT
5350 GOSUB 20000: REM INTERPRETER
5355 ON A GOTO 5415,5420,5425,5430,5435
5400 :
5405 REM - PARSE INTERPRETER RESPONSE -
5410 :
5415 GOSUB 30000: GOTO 5330: REM ROOM 1
5420 GOTO 5300 : REM ALL 2
5425 GOTO 5200 : REM ALL 3
5430 GOTO 5330 : REM MSG 4
5435 GOSUB 17000: GOTO 5330: REM INV 5
9999 END
10000 :
10005 REM *****************************
10010 REM * SUBROUTINES *
10015 REM *****************************
10020 :
10500 :
10505 REM - INIT SCREEN ---------------
10510 :
10515 PRINT CHR$(147)
10520 POKE 53280,0: POKE 53281,0
10525 RETURN
10530 :
10600 PRINT CHR$(147)
10605 POKE 53280,CB: POKE 53281,CF
10610 RETURN
11000 :
11005 REM - POSITION CURSOR -----------
11010 :
11015 POKE 211,X :POKE 214,Y
11020 SYS 58640
11025 RETURN
11500 :
11505 REM - DRAW FRAME ----------------
11510 :
11515 X=0: Y=0: GOSUB 11000
11520 POKE C,FC
11525 :
11530 PRINT"[RVS][SPCx12]";
11535 PRINT"[SPCx17]"
11540 FOR I=0 TO FH-3
11545 PRINT"[RVS] " SPC(FW-2) " "
11550 NEXT
11555 PRINT"[RVS][SPCx12]";
11560 PRINT"[SPCx17]"
11565 RETURN
12000 :
12005 REM - CLEAR ITEMS ---------------
12010 :
12500 :
12505 REM - PRINT ITEMS ---------------
12510 :
12515 X=FW+1: Y=PI: GOSUB 11000
12520 POKE C,14
12525 PRINT IM$(0)
12530 :
12535 POKE C,1
12540 FOR I=0 TO 4
12545 PRINT "[CRDx2][CRLx12]";
12550 PRINT RO$(PR,I)
12555 NEXT
12560 RETURN
13000 :
13005 REM - CLEAR DIRECTIONS ----------
13010 :
13500 :
13505 REM - PRINT DIRECTIONS ----------
13510 :
13515 X=FW+1: Y=PD: GOSUB 11000
13520 POKE C,14
13525 PRINT IM$(1)
13530 :
13535 POKE C,1
13540 FOR I=0 TO 4
13545 PRINT "[CRDx2][CRLx12]";
13550 PRINT RD$(PR,I)
13555 NEXT
13560 RETURN
14000 :
14005 REM - CLEAR INPUT ---------------
14010 :
14015 X=0: Y=PM: GOSUB 11000
14020 PRINT"[SPCx19]";
14025 PRINT"[SPCx20]"
14030 RETURN
14500 :
14505 REM - WAIT FOR INPUT ------------
14510 :
14515 A$="": X$="": Y$=" "
14520 A=40-2-LEN(IM$(2))
14525 :
14530 X=0: Y=PE: GOSUB 11000
14535 POKE C,7
14540 PRINT IM$(2);
14545 POKE 204,0
14550 :
14600 GET X$: IF X$="" THEN 14600
14605 X=ASC(X$)
14610 IF X=13 THEN 14900
14615 IF X=20 AND LEN(A$)>0 THEN 14700
14620 IF X=32 AND ASC(Y$)<>32 THEN 14800
14625 IF X>=65 AND X<=90 THEN 14800
14630 GOTO 14600
14635 :
14700 A$=LEFT$(A$,LEN(A$)-1)
14705 Y$=X$
14710 PRINT X$;
14715 GOSUB 51000
14720 GOTO 14600
14725 :
14800 IF LEN(A$)=A THEN 14600
14805 A$=A$+X$
14810 Y$=X$
14815 PRINT X$;
14820 GOSUB 51000
14825 GOTO 14600
14830 :
14900 PRINT " "
14905 POKE 204,255
14910 GOSUB 51000
14915 RETURN
15000 :
15005 REM - CLEAR MESSAGE -------------
15010 :
15015 X=0: Y=PM: GOSUB 11000
15020 PRINT"[SPCx19]";
15025 PRINT"[SPCx20]"
15030 RETURN
15500 :
15505 REM - PRINT MESSAGE -------------
15510 :
15515 X=0: Y=PM: GOSUB 11000
15520 PRINT A$
15525 RETURN
16000 :
16005 REM - PRINT RIP MESSAGE ---------
16010 :
16015 RETURN
16500 :
16505 REM - PRINT STATISTICS ----------
16510 :
16515 RETURN
17000 :
17005 REM - PRINT INVENTORY -----------
17010 :
17015 RETURN
17500 :
17505 REM -
17510 :
18000 :
18005 REM -
18010 :
18500 :
18505 REM - WAIT ----------------------
18510 :
18515 FOR I=0 TO 2000: NEXT
18520 RETURN
19000 :
19005 REM - WAIT FOR KEY --------------
19010 :
19015 GET X$: IF X$="" THEN 19015
19020 RETURN
19500 :
19505 REM - PRINT FREE MEMORY ---------
19510 :
19515 PRINT FRE(0)-65536*(FRE(0)<0)
19520 END
20000 :
20005 REM *****************************
20010 REM * INTERPRETER *
20015 REM *****************************
20020 :
20025 REM * MODIFIES:
20030 REM * PR - PLAYER ROOM
20035 REM * PC - PLAYER COMMANDS
20040 REM * PP - PLAYER POINTS
20045 REM * PI$ - PLAYER INVENTORY
20050 REM * RF - ROOM FLAGS
20055 :
20060 REM * PARAMETERS:
20065 REM * A$ - USER COMMAND
20070 :
20075 REM * RETURNS:
20080 REM * A$ - MESSAGE TO SHOW
20085 REM * A - INTERPRETER RESPONSE:
20090 REM * - 1) REDRAW ROOM
20095 REM * - 2) CHANGE ROOM
20100 REM * - 3) PLAYER DIED
20105 REM * - 4) SHOW MESSAGE
20110 REM * - 5) SHOW INVENTORY
20115 :
20120 PR=PR+1: A$=IM$(4): A=2
20125 RETURN
20500 :
20505 REM - COMMON --------------------
20510 :
21000 :
21005 REM - ROOM 02 -------------------
21010 :
21500 :
21505 REM - ROOM 03 -------------------
21510 :
22000 :
22005 REM - ROOM 04 -------------------
22010 :
22500 :
22505 REM - ROOM 05 -------------------
22510 :
23000 :
23005 REM - ROOM 06 -------------------
23010 :
23500 :
23505 REM - ROOM 07 -------------------
23510 :
24000 :
24005 REM - ROOM 08 -------------------
24010 :
24500 :
24505 REM - ROOM 09 -------------------
24510 :
25000 :
25005 REM - ROOM 10 -------------------
25010 :
25500 :
25505 REM - ROOM 11 -------------------
25510 :
26000 :
26005 REM - ROOM 12 -------------------
26010 :
26500 :
26505 REM - ROOM 13 -------------------
26510 :
27000 :
27005 REM - ROOM 14 -------------------
27010 :
27500 :
27505 REM - ROOM 15 -------------------
27510 :
28000 :
28005 REM - ROOM 16 -------------------
28010 :
28500 :
28505 REM - ROOM 17 -------------------
28510 :
29000 :
29005 REM - ROOM 18 -------------------
29010 :
29500 :
29505 REM - ROOM 19 -------------------
29510 :
30000 :
30005 REM *****************************
30010 REM * ROOM DRAWING *
30015 REM *****************************
30020 :
30025 IF PR=0 THEN 30500
30030 IF PR=1 THEN 31000
30035 IF PR=2 THEN 32000
30040 IF PR=3 THEN 33000
30045 IF PR=4 THEN 34000
30050 IF PR=5 THEN 35000
30055 IF PR=6 THEN 36000
30060 IF PR=7 THEN 37000
30065 IF PR=8 THEN 38000
30500 :
30505 REM - ROOM 00 -------------------
30510 :
30515 RETURN
31000 :
31005 REM - ROOM 01 -------------------
31010 :
31015 RETURN
32000 :
32005 REM - ROOM 02 -------------------
32010 :
32015 RETURN
33000 :
33005 REM - ROOM 03 -------------------
33010 :
33015 RETURN
34000 :
34005 REM - ROOM 04 -------------------
34010 :
34015 RETURN
35000 :
35005 REM - ROOM 05 -------------------
35010 :
35015 RETURN
36000 :
36005 REM - ROOM 06 -------------------
36010 :
36015 RETURN
37000 :
37005 REM - ROOM 07 -------------------
37010 :
37015 RETURN
38000 :
38005 REM - ROOM 08 -------------------
38010 :
38015 RETURN
39000 :
39005 REM - ROOM 09 -------------------
39010 :
40000 :
40005 REM - ROOM 10 -------------------
40010 :
41000 :
41005 REM - ROOM 11 -------------------
41010 :
42000 :
42005 REM - ROOM 12 -------------------
42010 :
43000 :
43005 REM - ROOM 13 -------------------
43010 :
44000 :
44005 REM - ROOM 14 -------------------
44010 :
45000 :
45005 REM - ROOM 15 -------------------
45010 :
46000 :
46005 REM - ROOM 16 -------------------
46010 :
47000 :
47005 REM - ROOM 17 -------------------
47010 :
48000 :
48005 REM - ROOM 18 -------------------
48010 :
49000 :
49005 REM - ROOM 19 -------------------
49010 :
50000 :
50005 REM *****************************
50010 REM * SOUND HANDLING *
50015 REM *****************************
50020 :
51000 :
51005 REM - PLAY SOUND ----------------
51010 :
51015 POKE S+1,SH
51020 POKE S+4,21
51025 POKE S+5,9
51030 POKE S+15,30
51035 :
51040 POKE S+24,15
51045 :
51050 POKE S+4,20
51055 RETURN
55000 :
55005 REM *****************************
55010 REM * SPRITE HANDLING *
55015 REM *****************************
55020 :
55100 :
55105 REM - INIT SPRITES --------------
55110 :
55115 RESTORE
55120 GOSUB 56000
55125 GOSUB 57000
55130 GOSUB 58000
55135 RETURN
55500 :
55505 REM - DRAW SPRITE ---------------
55510 :
55515 POKE V+29,7
55520 POKE V+23,15
55525 POKE V+21,A
55530 RETURN
55535 :
55600 POKE V+29,6
55605 POKE V+23,14
55610 POKE V+21,1
55615 RETURN
56000 :
56005 REM - INIT GUARD ----------------
56010 :
56015 POKE 2040,13
56020 FOR I=0 TO 62
56025 READ A: POKE B+I,A
56030 NEXT
56035 :
56040 POKE V+0,50
56045 POKE V+1,50
56050 POKE V+39,9
56055 RETURN
56060 :
56100 DATA 0, 28, 0, 0,127, 0
56105 DATA 0,107, 0, 0,255,128
56110 DATA 0, 99, 0, 0, 62, 0
56115 DATA 0, 28, 0, 0,255,128
56120 DATA 1,223,192, 3,111, 96
56125 DATA 6,119, 48, 12,123, 24
56130 DATA 24,125, 48,112, 82,224
56135 DATA 0,127,128, 0,127, 0
56140 DATA 0, 54, 0, 0, 99, 0
56145 DATA 0, 99, 0, 0,192,128
56150 DATA 3,128,224
57000 :
57005 REM - INIT GOAT -----------------
57010 :
57015 POKE 2041,14
57020 FOR I=0 TO 62
57025 READ A: POKE B+64+I,A
57030 NEXT
57035 :
57040 POKE V+2,100
57045 POKE V+3,100
57050 POKE V+40,1
57055 RETURN
57060 :
57100 DATA 0, 0, 0, 0, 0, 0
57105 DATA 0, 0, 0, 0, 0, 0
57110 DATA 0, 0, 65, 0, 0, 34
57115 DATA 0, 0, 34, 0, 0,119
57120 DATA 0, 0,127, 0, 0,235
57125 DATA 0, 1,235, 15,255,254
57130 DATA 31,255,212,127,255,136
57135 DATA 255,255,136,159,255,128
57140 DATA 31,255, 0, 49,243, 0
57145 DATA 96, 1,128, 48, 0,192
57150 DATA 24, 0, 96
58000 :
58005 REM - INIT SPIDER ---------------
58010 :
58015 POKE 2042,15
58020 FOR I=0 TO 62
58025 READ A: POKE B+128+I,A
58030 NEXT
58035 :
58040 POKE V+4,150
58045 POKE V+5,150
58050 POKE V+41,7
58055 RETURN
58060 :
58100 DATA 0, 0, 0, 0, 0, 0
58105 DATA 0, 0, 0, 0, 0, 3
58110 DATA 0, 96, 3, 1,249,194
58115 DATA 7,255,244, 15,223,184
58120 DATA 30, 15,152, 15,223,248
58125 DATA 7,255,240, 3,249,192
58130 DATA 6,252, 0, 8,167, 0
58135 DATA 17, 16,128, 19, 8, 64
58140 DATA 18, 8, 32,102, 6, 56
58145 DATA 0, 0, 0, 0, 0, 0
58150 DATA 0, 0, 0
59000 :
59005 REM - INIT OWL ------------------
59010 :
59015 POKE 2043,15
59020 FOR I=0 TO 62
59025 READ A: POKE B+128+I,A
59030 NEXT
59035 :
59040 POKE V+6,200
59045 POKE V+7,200
59050 POKE V+42,0
59055 RETURN
59060 :
59100 DATA 1, 0, 64, 2,128,160
59105 DATA 3,190,224, 7,255,240
59110 DATA 7, 62,112, 15, 62,120
59115 DATA 15,247,248, 15,247,248
59120 DATA 7,247,240, 3,255,224
59125 DATA 3,255,224, 7,255,240
59130 DATA 15,255,248, 31,255,252
59135 DATA 30,255,188, 60,255,158
59140 DATA 56,255,142, 49,255,198
59145 DATA 33,127, 66, 3,190,224
59150 DATA 2,128,160
60000 :
60005 REM *****************************
60010 REM * MACHINE LANGUAGE CODE *
60015 REM *****************************
60020 :
63999 END