-
Notifications
You must be signed in to change notification settings - Fork 1
Expand file tree
/
Copy pathLandingXRef.bas
More file actions
116 lines (111 loc) · 5.1 KB
/
LandingXRef.bas
File metadata and controls
116 lines (111 loc) · 5.1 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
10 GOSUB 250 : poke 53269,1 : REM bit 0 = sprite 0
20 POKE 2040,175 : REM SPRITE POINT * 64 = 175 * 64 = 11200
30 Y = 60 : POKE 53249,Y
40 X = 60 : POKE 53248,X
50 POKE 53287,0 : : POKE53272,28
51 POKE 53273, PEEK(53273) OR 2 : XX = PEEK(53279)
60 FOR I = 0 TO 62 : READ A : POKE 11200 + I, A : NEXT I
70 FORI=0TO((64*8)-1):READA:POKE12*1024+I,A:NEXT
100 A = PEEK(197)
120 IF A = 18 THEN X = X + 1 : REM D
130 IF A = 10 THEN X = X -1 : REM A
140 IF A = 9 THEN Y = Y + 1 : REM W
150 IF A = 12 THEN Y = Y - 1 : REM Z
212 REM IF X > 255 OR X < 0 THEN X = X AND 255
213 IF Y > 255 OR Y < 0 THEN Y = Y AND 255
216 XH = INT(X/256) : XL = X-(XH*256)
217 POKE 53249, Y : POKE 53248,XL : POKE 53264,XH
218 CD = PEEK(53279) : POKE 53279,0
219 PRINT "{home}x="; X; " y="; Y; " cd="; CD; " "
220 GOTO 100
250 REM First Level Screen layout.
260 PRINT"{clear}{white}{down*8}gg{down}bc{down}d{down}h{down}{left}j{down}h{down}{left}j{down}{left}i{down}{left}k{down}{left*2}e{down}{left*3}@a{down}{left*3}e{down}{left*2}e{down}{left}d{down}d{down}d{down}dlllk{up}{left}i";
270 PRINT"{up}{left}j{up}{left}h{up}{left}e{up}e{up}@a{up}e{up}k{up}{left}i{up}k{up}{left}i{up}lllk{up}{left}i{up}{left}d{up}{left*2}d{up}{left}@a{up}e{up}k{up}{left}i{up}f{down}dgg{down}h{down}{left}j{down}h{down}{left}j";
280 PRINT"{down}{left}i{down}{left}k{down}{left}h{down}{left}j{down}h{down}{left}j{down}{left}e{down}{left*2}e{down}{left}h{down}{left}j{down}d{down}bclllebc{down}bc{down}d";
290 RETURN
310 DATA 16,0,18
320 DATA 8,126,28
330 DATA 5,255,204
340 DATA 6,16,54
350 DATA 15,159,240
360 DATA 8,146,16
370 DATA 8,243,240
380 DATA 8,242,16
390 DATA 8,244,8
400 DATA 31,254,24
410 DATA 32,1,244
420 DATA 32,0,164
430 DATA 39,128,188
440 DATA 39,192,164
450 DATA 31,255,252
460 DATA 13,60,176
470 DATA 25,195,152
480 DATA 49,0,140
490 DATA 48,0,12
500 DATA 120,0,30
510 DATA 204,0,51
900 DATA 0,0,0,5,10,16,96,128 : REM CHARACTER 0
905 DATA 1,5,8,144,96,0,0,0 : REM CHARACTER 1
910 DATA 128,64,64,80,105,6,0,0 : REM CHARACTER 2
915 DATA 0,0,0,0,132,74,49,1 : REM CHARACTER 3
920 DATA 128,64,48,8,4,4,6,1 : REM CHARACTER 4
925 DATA 1,1,2,10,20,16,32,192 : REM CHARACTER 5
930 DATA 0,0,8,20,36,66,65,129 : REM CHARACTER 6
935 DATA 0,0,0,0,4,42,209,129 : REM CHARACTER 7
940 DATA 128,64,64,32,16,16,8,8 : REM CHARACTER 8
945 DATA 1,1,2,4,2,2,4,8 : REM CHARACTER 9
950 DATA 4,2,2,4,2,2,1,1 : REM CHARACTER 10
955 DATA 8,16,32,32,32,64,64,128 : REM CHARACTER 11
960 DATA 0,0,0,0,0,0,0,255 : REM CHARACTER 12
1000 DATA 99,119,127,107,99,99,99,0 : REM CHARACTER 13
1005 DATA 102,118,126,126,110,102,102,0 : REM CHARACTER 14
1010 DATA 60,102,102,102,102,102,60,0 : REM CHARACTER 15
1015 DATA 124,102,102,124,96,96,96,0 : REM CHARACTER 16
1020 DATA 60,102,102,102,102,60,14,0 : REM CHARACTER 17
1025 DATA 124,102,102,124,120,108,102,0 : REM CHARACTER 18
1030 DATA 60,102,96,60,6,102,60,0 : REM CHARACTER 19
1035 DATA 126,24,24,24,24,24,24,0 : REM CHARACTER 20
1040 DATA 102,102,102,102,102,102,60,0 : REM CHARACTER 21
1045 DATA 102,102,102,102,102,60,24,0 : REM CHARACTER 22
1050 DATA 99,99,99,107,127,119,99,0 : REM CHARACTER 23
1055 DATA 102,102,60,24,60,102,102,0 : REM CHARACTER 24
1060 DATA 102,102,102,60,24,24,24,0 : REM CHARACTER 25
1065 DATA 126,6,12,24,48,96,126,0 : REM CHARACTER 26
1070 DATA 60,48,48,48,48,48,60,0 : REM CHARACTER 27
1075 DATA 12,18,48,124,48,98,252,0 : REM CHARACTER 28
1080 DATA 60,12,12,12,12,12,60,0 : REM CHARACTER 29
1085 DATA 0,24,60,126,24,24,24,24 : REM CHARACTER 30
1090 DATA 0,16,48,127,127,48,16,0 : REM CHARACTER 31
1095 DATA 0,0,0,0,0,0,0,0 : REM CHARACTER 32
1100 DATA 24,24,24,24,0,0,24,0 : REM CHARACTER 33
1105 DATA 102,102,102,0,0,0,0,0 : REM CHARACTER 34
1110 DATA 102,102,255,102,255,102,102,0 : REM CHARACTER 35
1115 DATA 24,62,96,60,6,124,24,0 : REM CHARACTER 36
1120 DATA 98,102,12,24,48,102,70,0 : REM CHARACTER 37
1125 DATA 60,102,60,56,103,102,63,0 : REM CHARACTER 38
1130 DATA 6,12,24,0,0,0,0,0 : REM CHARACTER 39
1135 DATA 12,24,48,48,48,24,12,0 : REM CHARACTER 40
1140 DATA 48,24,12,12,12,24,48,0 : REM CHARACTER 41
1145 DATA 0,102,60,255,60,102,0,0 : REM CHARACTER 42
1150 DATA 0,24,24,126,24,24,0,0 : REM CHARACTER 43
1155 DATA 0,0,0,0,0,24,24,48 : REM CHARACTER 44
1160 DATA 0,0,0,126,0,0,0,0 : REM CHARACTER 45
1165 DATA 0,0,0,0,0,24,24,0 : REM CHARACTER 46
1170 DATA 0,3,6,12,24,48,96,0 : REM CHARACTER 47
1175 DATA 60,102,110,118,102,102,60,0 : REM CHARACTER 48
1180 DATA 24,24,56,24,24,24,126,0 : REM CHARACTER 49
1185 DATA 60,102,6,12,48,96,126,0 : REM CHARACTER 50
1190 DATA 60,102,6,28,6,102,60,0 : REM CHARACTER 51
1195 DATA 6,14,30,102,127,6,6,0 : REM CHARACTER 52
1200 DATA 126,96,124,6,6,102,60,0 : REM CHARACTER 53
1205 DATA 60,102,96,124,102,102,60,0 : REM CHARACTER 54
1210 DATA 126,102,12,24,24,24,24,0 : REM CHARACTER 55
1215 DATA 60,102,102,60,102,102,60,0 : REM CHARACTER 56
1220 DATA 60,102,102,62,6,102,60,0 : REM CHARACTER 57
1225 DATA 0,0,24,0,0,24,0,0 : REM CHARACTER 58
1230 DATA 0,0,24,0,0,24,24,48 : REM CHARACTER 59
1235 DATA 14,24,48,96,48,24,14,0 : REM CHARACTER 60
1240 DATA 0,0,126,0,126,0,0,0 : REM CHARACTER 61
1245 DATA 112,24,12,6,12,24,112,0 : REM CHARACTER 62
1250 DATA 60,102,6,12,24,0,24,0 : REM CHARACTER 63
1255 DATA 0,0,0,255,255,0,0,0 : REM CHARACTER 64