0 REM XROS_j for XR
1 REM loader XROS_j .vf 8/93
2 REM (c) 1991, '92'93 eme systems
3 REM parts (c) 1989 Paul Globman
5 DEFINTA-Z:CLS:SOUND1000,5:PRINT"Please have XR4MNU.BA in memory already!";:PRINT"Ways to allot banks beween RAM and ROM:":PRINT" 4 banks RAM":PRINT" 3 banks RAM, 1 ROM":PRINT" 2 banks RAM, 2 banks ROM":PRINT" 1 bank RAM,  3 banks ROM"
6 PRINT" 0 RAMs--quits this program--see manual":INPUT"Your choice (4,3,2,1,0 banks RAM)";N:N=N-1:IFN<0THENMENU
8 FORBN=0TON:OUT128,BN*8:CLS:PRINT" bank"BN+1;:GOSUB40:RESTORE100
10 CS#=0:FOR AD!=0TO1076
15 READ D%:CALL64704,D%,AD!:CS#=CS#+D%
20 PRINT@40,AD!;:NEXTAD!
25 IFCS#<>124700THENBEEP:PRINT"Typo in data!!?
26 XR$="XR4j__"+CHR$(49+BN)+"/"+CHR$(49+N):XP=64:CALL910']
30 PRINT:PRINT" imaging RAM.."
32 CALL910'$
35 CALL910'?
36 NEXTBN:CLS:OUT128,32:CALL910'?
37 SOUND1000,5:END
40 REM loader POKER
45 RESTORE80
50 CS#=0:FORAD!=64704TO64715
55 READ D%:POKEAD!,D%:CS#=CS#+D%
60 NEXTAD!
65 IFCS#<>1986THENBEEP:PRINT"Typo in poker!!?":END
75 RETURN
80 DATA 243,71,62,1,211,224,112,175,211,224,251,201
100 DATA 193,229,205,17,1,33,87,0,14,10
101 DATA 19,19,19,26,190,202,29,0,35,35
102 DATA 35,13,194,14,0,193,195,60,247,35
103 DATA 213,235,237,209,227,201,201,126,18,35
104 DATA 19,11,121,176,194,37,0,201,197,1
105 DATA 192,123,8,193,124,230,127,103,201,0
106 DATA 0,0,27,112,88,82,52,105,95,95
107 DATA 95,95,95,27,113,32,0,13,105,112
108 DATA 108,58,114,117,110,13,0,36,61,1
109 DATA 33,50,1,42,35,1,59,163,3,58
110 DATA 183,3,91,218,3,93,23,4,61,251
111 DATA 2,43,135,1,63,72,2,46,46,46
112 DATA 46,46,46,46,46,46,46,46,46,46
113 DATA 46,46,46,46,46,46,46,46,46,46
114 DATA 46,46,46,46,46,46,46,46,46,46
115 DATA 46,46,46,46,46,46,46,46,46,46
116 DATA 46,46,46,46,46,46,46,46,46,46
117 DATA 46,46,46,46,46,46,46,46,46,46
118 DATA 46,175,211,224,6,3,33,254,246,197
119 DATA 205,144,71,193,35,115,35,114,35,5
120 DATA 202,54,247,195,237,246,88,80,37,0
121 DATA 0,0,88,82,37,0,0,0,88,82
122 DATA 36,0,0,0,175,211,224,197,120,205
123 DATA 132,76,34,140,252,193,121,205,68,75
124 DATA 33,0,0,34,140,252,195,54,247,8
125 DATA 245,175,211,224,241,231,245,205,54,247
126 DATA 241,201,243,62,1,211,224,201,175,211
127 DATA 224,251,201,213,33,181,0,17,229,246
128 DATA 1,92,0,205,37,0,205,229,246,209
129 DATA 201,205,99,1,70,26,235,112,18,235
130 DATA 205,72,1,195,38,1,205,99,1,26
131 DATA 119,205,72,1,195,53,1,205,126,1
132 DATA 126,18,205,72,1,195,64,1,35,19
133 DATA 124,185,204,87,1,122,230,128,200,241
134 DATA 195,60,247,125,254,133,192,6,0,35
135 DATA 5,200,195,93,1,209,42,48,122,1
136 DATA 77,138,8,194,145,1,49,0,254,33
137 DATA 243,199,229,33,254,253,229,33,214,108
138 DATA 229,213,33,0,128,17,64,4,14,246
139 DATA 201,229,213,205,171,1,194,152,1,193
140 DATA 193,33,41,66,229,195,60,247,120,254
141 DATA 160,202,158,2,254,128,202,1,3,254
142 DATA 192,202,212,2,195,143,1,175,42,8
143 DATA 247,119,35,119,42,14,247,78,35,94
144 DATA 35,86,6,160,213,13,250,223,1,26
145 DATA 254,46,202,207,1,205,63,2,18,19
146 DATA 195,189,1,19,13,250,223,1,26,214
147 DATA 2,230,159,15,15,15,246,128,71,209
148 DATA 14,27,33,162,124,213,17,11,0,25
149 DATA 209,126,254,255,200,13,200,230,247,184
150 DATA 194,229,1,205,20,2,194,229,1,235
151 DATA 42,8,247,115,35,114,19,237,205,48
152 DATA 0,235,42,2,247,115,35,114,235,175
153 DATA 60,201,229,197,213,6,7,35,35,35
154 DATA 26,183,202,55,2,254,46,202,55,2
155 DATA 190,194,59,2,35,19,5,195,28,2
156 DATA 126,254,32,35,194,59,2,5,194,48
157 DATA 2,209,193,225,201,254,97,216,254,123
158 DATA 208,230,95,201,33,62,0,205,148,2
159 DATA 33,250,124,126,254,255,202,60,247,254
160 DATA 240,202,97,2,230,128,194,104,2,17
161 DATA 11,0,25,195,81,2,35,35,35,126
162 DATA 205,42,247,58,41,247,61,202,134,2
163 DATA 50,41,247,254,2,194,106,2,62,46
164 DATA 205,42,247,195,106,2,62,8,50,41
165 DATA 247,35,62,32,205,42,247,195,81,2
166 DATA 126,183,200,205,42,247,35,195,148,2
167 DATA 235,42,244,245,229,193,237,8,210,179
168 DATA 2,17,8,247,33,2,0,217,195,143
169 DATA 1,237,229,19,19,237,229,193,19,19
170 DATA 237,227,19,19,235,205,37,0,225,209
171 DATA 125,180,202,208,2,227,151,195,60,247
172 DATA 225,195,60,247,209,193,19,26,214,48
173 DATA 71,126,254,26,202,60,247,79,229,205
174 DATA 16,247,225,62,255,211,185,219,186,230
175 DATA 254,211,186,219,232,7,210,145,1,35
176 DATA 195,219,2,205,171,1,195,60,247,193
177 DATA 193,229,33,19,3,17,192,252,1,128
178 DATA 0,205,37,0,195,192,252,6,128,225
179 DATA 34,133,253,1,0,0,205,59,253,194
180 DATA 201,252,205,59,253,194,201,252,205,59
181 DATA 253,194,201,252,11,11,197,225,34,145
182 DATA 253,42,154,249,175,211,224,119,35,119
183 DATA 35,229,193,42,174,251,8,202,255,252
184 DATA 229,197,225,193,34,174,251,205,159,107
185 DATA 42,145,253,229,193,42,154,249,34,143
186 DATA 253,205,109,107,218,109,37,42,174,251
187 DATA 9,34,174,251,42,145,253,229,193,42
188 DATA 143,253,229,209,42,133,253,205,54,247
189 DATA 205,37,0,1,10,0,17,175,250,33
190 DATA 77,0,205,37,0,175,211,224,243,199
191 DATA 126,3,35,167,201,243,199,19,26,71
192 DATA 42,2,247,235,237,235,42,8,247,235
193 DATA 201,205,149,3,126,18,35,19,175,18
194 DATA 120,254,59,194,60,247,126,18,195,60
195 DATA 247,205,149,3,26,119,35,19,120,254
196 DATA 58,194,60,247,26,119,195,60,247,42
197 DATA 14,247,70,4,35,94,35,86,213,42
198 DATA 2,247,235,237,209,201,205,201,3,14
199 DATA 0,5,202,254,3,126,35,12,254,26
200 DATA 202,254,3,12,254,13,202,246,3,18
201 DATA 19,195,221,3,126,254,10,194,254,3
202 DATA 12,35,229,42,14,247,126,144,119,225
203 DATA 229,42,2,247,235,225,217,42,8,247
204 DATA 113,35,54,0,195,60,247,205,201,3
205 DATA 14,0,5,202,6,4,26,119,35,19
206 DATA 12,126,254,26,202,6,4,12,124,230
207 DATA 128,194,6,4,195,26,4