Skip to content

Instantly share code, notes, and snippets.

@alblue
Last active February 13, 2022 18:53
Show Gist options
  • Save alblue/fab9fbff69df72e75018f99b1fa1aca7 to your computer and use it in GitHub Desktop.
Save alblue/fab9fbff69df72e75018f99b1fa1aca7 to your computer and use it in GitHub Desktop.
Dragon Blitz from July 1983 Dragon User Magazine, for @retrotechtive
1 DATA 86,32,B7,35,52,87,35,56
2 DATA 86,0F,B7,35,57,86,3F,B7
3 DATA FF,23,10,8E,00,00,10,BF
4 DATA 35,53,10,8E,07,08,10,BF
5 DATA 35,58,8E,11,FF,86,AA,A7
6 DATA 82,8C,05,FF,26,F9,10,BE
7 DATA 01,12,1F,20,86,8C,0F,03
8 DATA 86,20,B7,04,10,8E,11,DF
9 DATA 1F,12,86,04,10,E6,C6,86
10 DATA 69,C4,3F,5C,A7,20,31,A8
11 DATA E0,5A,26,F8,86,55,A7,20
12 DATA 30,01,7A,04,10,26,E1,8E
13 DATA 07,04,A6,00,81,AA,10,26
14 DATA 02,28,A6,88,20,81,AA,10
15 DATA 26,02,1F,A6,88,40,81,06
16 DATA AC,10,26,02,15,8C,11,9F
17 DATA 10,2E,02,E2,34,74,0F,87
18 DATA 86,FF,8E,01,51,A7,80,8C
19 DATA 01,5A,26,F9,BD,BB,E5,35
20 DATA 74,81,5E,00,27,00,71,81
21 DATA 0A,10,27,00,96,FD,04,15
22 DATA 1F,10,C4,20,C1,00,10,27
23 DATA 00,89,86,04,15,81,0D,10
24 DATA 27,00,98,81,0C,10,27,01
25 DATA 56,10,BE,35,53,10,8C,00
26 DATA 00,10,26,00,B4,86,5A,A7
27 DATA 00,86,6A,A7,1F,86,AA,A7
28 DATA 1E,86,56,A7,88,20,86,59
29 DATA A7,88,1F,86,AA,A7,88,1E
30 DATA 86,55,A7,88,40,86,55,A7
31 DATA 88,3F,86,AA,A7,88,3E,30
32 DATA 01,10,BE,35,58,31,3F,10
33 DATA 8C,00,00,26,F8,10,8E,07
34 DATA 08,10,BF,35,58,16,FF,52
35 DATA 8C,07,60,10,25,FF,AA,B6
36 DATA 35,52,81,00,10,27,FF,A1
37 DATA 7A,35,52,86,AA,A7,1F,A7
38 DATA 1E,A7,88,1F,A7,88,1E,A7
39 DATA 88,3F,A7,88,3E,30,88,80
40 DATA 16,FF,86,86,AA,A7,1F,A7
41 DATA 1E,A7,88,1F,A7,88,1E,A7
42 DATA 88,3F,A7,88,3E,30,88,60
43 DATA 16,FF,6E,10,BE,35,53,10
44 DATA 8C,00,00,10,26,FF,62,B6
45 DATA 35,56,81,00,10,27,FF,59
46 DATA 7A,35,56,1F,12,10,BF,35
47 DATA 53,86,0F,B7,35,55,10,8E
48 DATA 06,A4,10,BF,35,58,16,FF
49 DATA 40,10,BE,35,53,86,AA,10
50 DATA 8C,11,DF,10,2E,00,2A,A7
51 DATA 20,A7,A8,20,31,A8,40,A6
52 DATA A8,20,81,AA,26,30,86,88
53 DATA A7,20,86,A2,A7,A8,20,A7
54 DATA A8,40,10,BF,35,53,10,8E
55 DATA 06,A4,10,BF,35,58,16,FF
56 DATA 14,86,AA,A7,20,A7,A8,20
57 DATA A7,A8,40,10.8E,00,00,10
58 DATA BF,35,53,16,FE,FF,C6,0A
59 DATA 34,04,86,40,B7,FF,24,C6
60 DATA 64,5A,C1,00,26,FB,4F,B7
61 DATA FF,24,C6,64,5A,C1,00,26
62 DATA FB,35,04,5A,C1,00,26,E0
63 DATA CE,01,F4,FF,35,58,7A,35
64 DATA 55,B6,35,55,81,00,10,26
65 DATA FF,9C,86,AA,A7,20,A7,A8
66 DATA 20,A7,A8,40,10,8E,00,00
67 DATA 10,BF,35,53,16,FE,B6,B6
68 DATA 35,57,81,00,10,27,FE,A1
69 DATA 7A,35,57,86,00,A7,01,A7
70 DATA 02,A7,03,A7,04,A7,05,10
71 DATA 8E,00,FA,C6,14,F7,3F,8C
72 DATA 7C,37,8C,F6,37,8C,5A,C1
73 DATA 00,26,FB,86,40,B7,FF,24
74 DATA F6,37,8C,5A,C1,00,26,FB
75 DATA 86,00,B7,FF,24,31,3F,10
76 DATA 8C,00,00,26,D8,86,AA,A7
77 DATA 01,A7,02,A7,03,A7,04,A7
78 DATA 05,A7,88,21,A7,88,22,A7
79 DATA 88,23,A7,88,24,A7,88,25
80 DATA A7,88,41,A7,88,42,A7,88
81 DATA 43,A7,88,44,A7,88,45,16
82 DATA FE,37,2D,00,00,00,31,0E
83 DATA 07,08,10,8E,12,00,A6,A2
84 DATA 81,69,10,27,00,BE,81,55
85 DATA 10,27,00,BD,86,55,A7,20
86 DATA 10,8C,06,00,26,E8,30,88
87 DATA DF,86,FF,A7,00,A7,88,1F
88 DATA A7,88,20,A7,88,21,A7,88
89 DATA 3D,A7,88,3E,A7,88,3F,A7
90 DATA 88,40,A7,88,41,A7,88,42
91 DATA A7,88,43,A7,88,5F,A7,88
92 DATA 60,A7,88,61,A7,89,00,80
93 DATA C6,3C,10,8E,00,01,10,8F
94 DATA 37,8C,1F,98,84,07,81,00
95 DATA 26,03,7C,37,8C,10,BE,37
96 DATA 8C,31,3F,10,8C,00,00,26
97 DATA F8,86,40,B7,FF,24,10,BE
98 DATA 37,8C,31,3F,10,8C,00,00
99 DATA 26,F8,4F,B7,FF,24,5A,C1
100 DATA 00,26,CF,86,EF,10,8E,06
101 DATA 00,A7,A2,10,8C,04,00,26
102 DATA F8,10,8E,04,C9,86,19,A7
103 DATA A0,86,0F,A7,A0,86,15,A7
104 DATA A0,86,80,A7,A0,86,03,A7
105 DATA A0,86,12,A7,A0,86,01,A7
106 DATA A0,86,13,A7,A0,86,08,A7
107 DATA A0,86,05,A7,A0,86,04,A7
108 DATA 20,16,01,28,86,14,16,FF
109 DATA 45,86,00,16,FF,40,34,12
110 DATA 8E,04,00,86,60,A7,80,8C
111 DATA 06,00,26,F9,35,12,10,8E
112 DATA 04,C9,86,59,A7,A0,86,4F
113 DATA A7,A0,86,55,A7,A0,86,60
114 DATA A7,A0,86,4C,A7,A0,86,41
115 DATA A7,A0,86,4E,A7,A0,86,44
116 DATA A7,A0,86,45,A7,A0,86,44
117 DATA A7,A0,86,61,A7,20,31,A8
118 DATA 36,86,46,A7,A0,86,55,A7
119 DATA A0,86,45,A7,A0,86,4C,A7
120 DATA A0,86,60,A7,A0,86,4C,A7
121 DATA A0,86,45,A7,A0,86,46,A7
122 DATA A0,86,54,A7,A0,86,7D,A7
123 DATA A0,31,A8,16,86,42,A7,A0
124 DATA 86,4F,A7,A0,86,4D,A7,A0
125 DATA 86,42,A7,A0,86,53,A7,A0
126 DATA 86,60,A7,A0,A7,A0,A7,A0
127 DATA A7,A0,86,7D,A7,20,10,8E
128 DATA 05,14,86,08,B7,37,4D,F6
129 DATA 35,52,4F,7F,37,4E,78,37
130 DATA 4E,58,49,81,0A,25,05,80
131 DATA 0A,7C,37,4E,7A,37,4D,26
132 DATA ED,8B,70,A7,20,B6,37,4E
133 DATA 8B,70,A7,3F,86,08,57,37
134 DATA 4D,F6,35,56,4F,7F,37,4E
135 DATA 78,37,4E,58,49,81,0A,25
136 DATA 05,80,0A,7C,37,4E,7A,37
137 DATA 4D,26,ED,8B,70,A7,A8,20
138 DATA 86,37,4E,8B,70,A7,A8,1F
139 DATA 10,8E,98,58,EC,20,84,00
140 DATA C4,1F,1F,01,86,40,B7,FF
141 DATA 24,E6,20,5A,C1,00,26,FB
142 DATA 86,00,B7,FF,24,E6,20,5A
143 DATA C1,00,26,FB,30,1F,8C,00
144 DATA 00,26,E1,31,21,10,8C,98
145 DATA BC,2D,D1,20,02,12,12,10
146 DATA BE,05,C8,86,41,A7,A0,86
147 DATA 4E,A7,A0,86,4F,A7,A0,86
148 DATA 54,A7,A0,86,48,A7,A0,86
149 DATA 45,A7,A0,86,52,A7,A0,86
150 DATA 60,A7,A0,86,47,A7,A0,86
151 DATA 41,A7,A0,86,4D,A7,A0,86
152 DATA 45,A7,A0,86,60,07,0A,86
153 DATA 7F,A7,A0,39
500 A=&H32C8
510 READ A$:P0KE A,VAL("&H"+A$) :A=A+1
520 IF A<&H378C THEN 510
530 DEL-530
1000 PM0DE1,1:PCLS
1010 SCREEN 1,0
1020 EXEC 13000
1030 SCREEN 0
1040 A$=INKEY$:IF A$=""THEN 1040
1050 IF A$="Y"THEN 1000
1060 END
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment