100 REM *******************************
105 REM * *
110 REM * MAYA-GRAB V0.1.3 (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
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 18500: REM WAIT
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 :
55500 :
55505 REM - DRAW SPRITE ---------------
55510 :
56000 :
56005 REM - INIT GUARD ----------------
56010 :
57000 :
57005 REM - INIT GOAT -----------------
57010 :
58000 :
58005 REM - INIT SPIDER ---------------
58010 :
59000 :
59005 REM - INIT OWL ------------------
59010 :
60000 :
60005 REM *****************************
60010 REM * MACHINE LANGUAGE CODE *
60015 REM *****************************
60020 :
63999 END