basic-atari/DRAFT-BDCAVCOL.BAS at main · BartGo/basic-atari · GitHub

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
0 REM Based on "Example of Antic mode 4 screen"
1 REM https://www.atariarchives.org/agagd/software.php
  9 NMEMTOP=PEEK(106)-4
 10 POKE 106,NMEMTOP
 20 GRAPHICS 0
 30 DLIST=PEEK(560)+256*PEEK(561)
 40 POKE DLIST+3,68
 50 FOR I=DLIST+6 TO DLIST+28:POKE I,4:NEXT I
 60 POKE 708,216:POKE 709,52:POKE 710,250
 70 CHROM=PEEK(756)*256
 80 CHRAM=NMEMTOP*256
100 FOR I=0 TO 1023
110   POKE CHRAM+I,PEEK(CHROM+I):NEXT I
130 POKE 756,NMEMTOP
140 START=NMEMTOP*256+(8*97)
150 FOR I=0 TO (8*5)-1: REM #CHAR
160   READ A:POKE START+I,A:NEXT I
170 C=0

180 POKE 708, 52:POKE 709,150:POKE 710,182:POKE 711,14 :POKE 712,0
181 rem ctrl-u is grass, p flower, u+neg=cloud
199 END

200 POKE 708, 38:POKE 709, 06:POKE 710,12 :POKE 711,212 :POKE 712,32:C=1 :GOTO 400 : REM A
201 POKE 708, 68:POKE 709,118:POKE 710,204:POKE 711,4   :POKE 712,0 :C=2 :GOTO 400 : REM B
202 POKE 708,196:POKE 709, 70:POKE 710,76 :POKE 711,4   :POKE 712,0 :C=3 :GOTO 400 : REM C
203 POKE 708,116:POKE 709, 54:POKE 710,60 :POKE 711,212 :POKE 712,0 :C=4 :GOTO 400 : REM D
204 POKE 708, 20:POKE 709, 86:POKE 710,76 :POKE 711,4   :POKE 712,0 :C=5 :GOTO 400 : REM E
205 POKE 708,132:POKE 709, 70:POKE 710,12 :POKE 711,212 :POKE 712,0 :C=6 :GOTO 400 : REM F
206 POKE 708, 36:POKE 709, 70:POKE 710,60 :POKE 711,212 :POKE 712,0 :C=7 :GOTO 400 : REM G
207 POKE 708, 52:POKE 709,150:POKE 710,124:POKE 711,4   :POKE 712,0 :C=8 :GOTO 400 : REM H
208 POKE 708, 54:POKE 709,118:POKE 710,124:POKE 711,4   :POKE 712,48:C=9 :GOTO 400 : REM I
209 POKE 708,132:POKE 709, 38:POKE 710, 12:POKE 711,212 :POKE 712,0 :C=10:GOTO 400 : REM J
210 POKE 708,  4:POKE 709, 38:POKE 710, 44:POKE 711,0   :POKE 712,0 :C=11:GOTO 400 : REM K
211 POKE 708,  6:POKE 709, 84:POKE 710, 90:POKE 711,212 :POKE 712,0 :C=12:GOTO 400 : REM L
212 POKE 708,116:POKE 709, 38:POKE 710, 44:POKE 711,212 :POKE 712,0 :C=13:GOTO 400 : REM M
213 POKE 708,  6:POKE 709, 38:POKE 710,252:POKE 711,0   :POKE 712,0 :C=14:GOTO 400 : REM N
214 POKE 708, 54:POKE 709,118:POKE 710,124:POKE 711,4   :POKE 712,0 :C=15:GOTO 400 : REM O
215 POKE 708, 36:POKE 709, 86:POKE 710, 44:POKE 711,212 :POKE 712,0 :C=16:GOTO 400 : REM P
216 POKE 708,118:POKE 709, 68:POKE 710,124:POKE 711,4   :POKE 712,0 :C=17:GOTO 400 : REM Q
217 POKE 708,116:POKE 709,  8:POKE 710, 44:POKE 711,0   :POKE 712,0 :C=18:GOTO 400 : REM R/unused
218 POKE 708,118:POKE 709, 54:POKE 710,124:POKE 711,20  :POKE 712,0 :C=19:GOTO 400 : REM S
219 POKE 708,116:POKE 709, 54:POKE 710,124:POKE 711,4   :POKE 712,0 :C=20:GOTO 400 : REM T
220 POKE 708,116:POKE 709, 54:POKE 710,124:POKE 711,4   :POKE 712,0 :C=21:GOTO 400 : REM U

300 GOTO 200
400 PRINT CHR$(125); "CAVE "; CHR$(C+64)
401 PRINT CHR$(ASC("a"));
402 PRINT CHR$(ASC("b"));
403 PRINT CHR$(ASC("c"));
404 PRINT CHR$(ASC("d"))
405 PRINT CHR$(ASC("e"));CHR$(ASC("e")+128);
410 TRAP 420: INPUT S$
420 GOTO 200+C

510 DATA 32,32,160,20,10,1,0,0
520 DATA 0,0,51,12,131,84,170,21
530 DATA 63,51,51,4,42,85,168,80
540 DATA 0,0,51,12,48,64,0,0
549 REM STRIPE (if no reverse) means BACKGR, COL1, 2, 3
550 DATA 27, 27, 27, 27, 27, 27, 27, 27