0 'loader for db.co
1 '13oct84 Gary Berkheiser commercial rights reserved
2 IF(MAXRAM-HIMEM)=0THEN5
3 CLS:PRINT"You have another M/L program loaded.":PRINT"Remove it andensure that HIMEM=62960":PRINT"Hit any key for MENU"
4 IFINKEY$=""THEN4ELSEMENU
5 CLS:PRINT@90,"Loading DB.CO..."
6 CLEAR256,62080:DEFINTA-J:DEFSNGK-M
7 FORK=62080TO62894:READA:POKEK,A:NEXTK
8 A$="Run11":GOSUB9:SAVEM"DB.CO",62080,62894,62080
9 FORI=1TOLEN(A$):POKE65449+2*I,ASC(MID$(A$,I)):NEXT
10 POKE65449+2*I,13:POKE65450,I:RETURN
11 CLS:PRINT@90,"Loading DB.BA ...":IFMAXFILES<1THENMAXFILES=1
12 C$=CHR$(13):Q$=CHR$(34):READX:OPEN"db.do"FOROUTPUTAS1
13 PRINT#1,"0clear256,62080:runm"+Q$+"DB"+Q$
14 CLOSE1:A$="Kill"+Q$+"DB.DO"+C$+"Save"+Q$+"db.ba"+Q$+C$+"menu":GOSUB9
15 LOAD"DB.DO
16 DATA195,134,242,205,32,66,33,42
17 DATA245,205,124,90,205,49,66,205
18 DATA58,31,33,55,245,205,145,87
19 DATA205,68,70,215,200,229,33,131
20 DATA242,34,82,246,227,205,250,33
21 DATA205,11,76,192,205,143,32,235
22 DATA194,218,242,205,49,66,33,97
23 DATA245,205,145,87,205,10,244,194
24 DATA134,242,205,49,66,205,19,244
25 DATA210,215,242,33,128,245,205,145
26 DATA87,205,47,95,195,151,87,205
27 DATA15,34,34,215,253,33,206,244
28 DATA205,165,66,33,233,242,34,82
29 DATA246,205,93,93,175,50,117,246
30 DATA33,50,245,205,145,87,205,68
31 DATA70,35,126,167,202,233,242,17
32 DATA237,244,205,167,108,192,195,233
33 DATA242,205,250,33,229,75,6,0
34 DATA12,12,42,215,253,229,205,109
35 DATA107,209,225,218,34,63,205,219
36 DATA107,235,43,54,10,43,54,13
37 DATA195,233,242,62,175,50,117,246
38 DATA205,177,93,205,63,92,210,233
39 DATA242,235,34,175,245,235,229,213
40 DATA205,184,75,26,254,26,202,92
41 DATA243,231,19,254,10,194,67,243
42 DATA58,117,246,167,202,98,243,225
43 DATA225,195,51,243,205,34,66,195
44 DATA233,242,205,122,243,209,225,202
45 DATA233,242,254,67,202,201,243,254
46 DATA68,202,177,243,205,109,92,195
47 DATA51,243,213,33,18,245,205,124
48 DATA90,205,147,243,245,33,206,244
49 DATA205,124,90,205,188,93,241,254
50 DATA81,209,201,205,203,18,245,151
51 DATA50,45,246,241,205,233,15,254
52 DATA81,200,254,77,200,254,32,200
53 DATA254,68,200,254,67,200,195,147
54 DATA243,33,82,245,205,145,87,205
55 DATA10,244,194,233,242,42,175,245
56 DATA205,243,243,205,159,107,195,233
57 DATA242,235,6,58,205,40,244,218
58 DATA233,242,35,229,6,60,205,40
59 DATA244,245,33,68,82,205,145,87
60 DATA205,187,82,241,225,245,205,187
61 DATA82,205,45,83,241,210,85,84
62 DATA195,233,242,229,1,0,0,126
63 DATA3,35,167,202,8,244,254,26
64 DATA202,8,244,254,10,194,247,243
65 DATA225,201,205,203,18,205,233,15
66 DATA254,89,201,33,186,249,17,11
67 DATA0,126,254,255,202,38,244,230
68 DATA128,200,25,195,25,244,55,201
69 DATA126,184,200,254,13,202,62,244
70 DATA254,10,202,62,244,254,26,202
71 DATA62,244,35,195,40,244,55,201
72 DATA175,50,177,245,42,215,253,229
73 DATA205,164,244,34,178,245,225,235
74 DATA72,42,178,245,229,205,164,244
75 DATA34,178,245,225,120,183,202,112
76 DATA244,197,213,229,205,151,244,225
77 DATA209,193,220,122,244,195,79,244
78 DATA58,177,245,183,194,64,244,195
79 DATA233,242,197,229,17,133,246,205
80 DATA66,37,209,235,12,205,232,46
81 DATA17,133,246,193,4,205,108,52
82 DATA65,62,255,50,177,245,201,235
83 DATA26,190,192,19,5,200,35,13
84 DATA194,152,244,201,6,0,126,254
85 DATA26,200,35,4,202,187,244,254
86 DATA13,194,166,244,126,254,10,192
87 DATA35,4,192,205,49,66,209,225
88 DATA6,100,205,224,27,33,67,245
89 DATA205,145,87,195,233,242,70,105
90 DATA110,100,160,65,100,100,160,83
91 DATA111,114,116,141,128,76,102,110
92 DATA100,160,70,105,108,101,141,128
93 DATA77,101,110,117,141,70,73,78
94 DATA68,44,243,65,68,68,32,9
95 DATA243,83,79,82,84,64,244,76
96 DATA70,78,68,43,243,70,73,76
97 DATA69,134,242,77,69,78,85,151
98 DATA87,255,128,77,111,114,101,141
99 DATA68,101,108,101,141,67,97,108
100 DATA108,141,128,128,128,81,117,105
101 DATA116,141,128,128,128,128,128,128
102 DATA128,131,68,66,58,32,0,70
103 DATA105,108,101,32,110,97,109,101
104 DATA58,32,0,76,105,110,101,32
105 DATA116,111,111,32,108,111,110,103
106 DATA7,0,79,75,32,116,111,32
107 DATA68,69,76,69,84,69,63,32
108 DATA0,70,105,108,101,32,100,111
109 DATA101,115,110,39,116,32,101,120
110 DATA105,115,116,44,32,109,97,107
111 DATA101,32,110,101,119,63,32,0
112 DATA78,111,32,114,111,111,109,32
113 DATA105,110,32,100,105,114,101,99
114 DATA116,111,114,121,46,13,10,72
115 DATA105,116,32,115,112,97,99,101
116 DATA98,97,114,32,102,111,114,32
117 DATA109,101,110,117,58,32,0,0
118 END