100 REM *******************************
105 REM *                             *
110 REM * MAYA-GRAB V0.0.8 (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
1520 MA=780: MX=781: MY=782 
1525 CB=12: CF=0: FW=27: FH=19
1530 PO=1: PD=11: PI=20: PM=22
1535 SL=100: SH=180

2000 :
2005 REM - GAME DEFINES ---------------
2010 :

2015 IS=16: RS=20

2500 :
2505 REM - GAME LOCALIZATION ----------
2510 :

2515 DIM RO$(RS,6): DIM RD$(RS,6)
2520 DIM RM$(RS,16)
2525 DIM IM$(16): DIM IV$(35)
2530 DIM IA$(40): DIM IN$(66)

4000 :
4005 REM - GAME VARIABLES -------------
4010 :

4015 PR=0: PT=0: PC=0: PP=0
4020 DIM PI$(IS): DIM RF(RS)

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 GOSUB 10500
5030 GOSUB 14500

9999 END

10000 :
10005 REM *****************************
10010 REM * SUBROUTINES               *
10015 REM *****************************
10020 :

10500 :
10505 REM - INIT SCREEN ---------------
10510 :

10515 PRINT CHR$(147)
10520 POKE 53280,CB: POKE 53281,CF
10525 RETURN

11000 :
11005 REM - INIT GAME -----------------
11010 :

11500 :
11505 REM - DRAW FRAME ----------------
11510 :

12000 :
12005 REM - CLEAR ITEMS ---------------
12010 :

12500 :
12505 REM - PRINT ITEMS ---------------
12510 :

13000 :
13005 REM - CLEAR DIRECTIONS ----------
13010 :

13500 :
13505 REM - PRINT DIRECTIONS ----------
13510 :

14000 :
14005 REM - CLEAR INPUT ---------------
14010 :

14500 :
14505 REM - WAIT FOR INPUT ------------
14510 :

14515 A$="": X$="": Y$=" "
14520 A=40-2-LEN("? ")
14525 PRINT "? ";
14530 POKE 204,0
14535 :
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 :

15500 :
15505 REM - PRINT MESSAGE -------------
15510 :

16000 :
16005 REM - 
16010 :

16500 :
16505 REM - 
16510 :

17000 :
17005 REM -
17010 :

17500 :
17505 REM - 
17510 :

18000 :
18005 REM - 
18010 :

18500 :
18505 REM - 
18510 :

19000 :
19005 REM - 
19010 :

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 :

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 :

30500 :
30505 REM - ROOM 00 -------------------
30510 :

31000 :
31005 REM - ROOM 01 -------------------
31010 :

32000 :
32005 REM - ROOM 02 -------------------
32010 :

33000 :
33005 REM - ROOM 03 -------------------
33010 :

34000 :
34005 REM - ROOM 04 -------------------
34010 :

35000 :
35005 REM - ROOM 05 -------------------
35010 :

36000 :
36005 REM - ROOM 06 -------------------
36010 :

37000 :
37005 REM - ROOM 07 -------------------
37010 :

38000 :
38005 REM - ROOM 08 -------------------
38010 :

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