Classic Computer Magazine Archive COMPUTE! ISSUE 72 / MAY 1986 / PAGE 81

DEBUT
Atari BASIC
Debugging Tool

Gary W. Swanberg

Here's a powerful debugging utility that lets Atari BASIC programmers analyze and manipulate variables, search for BASIC keywords, produce printed documentation of important program information, and call up disk directories without leaving BASIC. It works on all Atari 400/800, XL, and XE computers with at least 40K RAM, a disk drive, and Atari DOS 2.0 or 2.5.


"DEBUT," a utility for debugging Atari BASIC programs, was inspired by the "Atari Wedge" (COMPUTE!, December 1982). It uses the Wedge technique to provide BASIC with direct-mode commands for listing and locating variables, dumping variable values, and replacing one variable with another. It also searches for BASIC keywords and includes a DIR command for listing the disk directory. Output is easily redirected from the screen to the printer, disk drive, or any other output device. And because DEBUT is written in machine language, it remains completely transparent-BASIC programs can be loaded, modified, tested, and saved without interference.

Preparing DEBUT
The program following this article creates DEBUT as an AUTORUN.SYS file that runs with two of the three revisions of Atari BASIC (revisions B and C). If PRINT PEEK(43234) returns 162, then you have revision A, in which case you must substitute the following lines for the corresponding lines in Program 1:

200 DATA 255,255,0,31,157,31,175,164,
    41,168
202 DATA 76,98,164,76,144,164,76,92,181,
    76
204 DATA 12,181,76,53,181,76,159,186,76,
    137
206 DATA 171,76,188,175,76,155,171,68,69,
    66

(Revision A is the original BASIC cartridge made for the 400/800 and 1200XL computers. Revision B is the BASIC built into the 600XL and 800XL. Revision C is built into the 65XE and 130XE and also is available as a cartridge from Atari.)
    Type in and save the BASIC program, then insert the disk on which you want to create DEBUT's AUTORUN.SYS file and type RUN. Make sure an AUTORUN.SYS file-such as Atari SpeedScript or SpeedCalc-doesn't already exist on the disk or it will be replaced. After the AUTORUN.SYS file is created, you won't need to run the BASIC program again, except to create copies of DEBUT on other disks. To start DEBUT, turn the computer off, make sure a disk with the DEBUT AUTORUN.SYS file is in the drive, then turn the computer on. DEBUT loads automatically and announces its presence with the message DEBUT. This message appears whenever you press SYSTEM RESET, reminding you that DEBUT is active.
    DEBUT protects itself by resetting MEMLO (the pointer to the bottom of free memory, locations 743 and 744) and by trapping the DOS command. As in the Atari Wedge, typing KILL gets rid of the utility and enables DOS.
    Note: DEBUT works with Atari DOS 2.0 and 2.5, but may not work with other types of DOS, especially after a SYSTEM RESET. Be sure that you have one of these versions before typing in the program.

Using DEBUT
Once DEBUT is up and running, you have four new commands at your disposal for debugging and documenting BASIC programsplus the DIR command. You type the command and press RETURN, just as you would with any directmode BASIC statement. Type DIR, for example, to list the disk directory, or use the form DIR D:filespec to list specific files. The ? and * wildcard characters are allowed, and drive numbers (D2:, D3:, etc.) can be specified as well. (D: defaults to drive 1.)
    Now you're ready to load one of your BASIC programs and try the four main commands:

FIND    (Find a variable or BASIC keyword.)
REP      (Replace one variable with another.)
XREF   (List variables and cross-reference line numbers.)
VIEW   (View the values of all variables.)

     These commands act on your entire BASIC program unless you specify a range of line numbers using the form starting line,last line. You may specify either or both. When specifying only the last number, precede it with a comma, or DEBUT thinks it's a starting number. The line range parameter is optional, so it follows the other arguments to the command, as we'll explain below.
    All commands can also use the output switch-a slash appended to the command followed by the name of the device to which you want to redirect output (P for Printer, D for Disk, C for Cassette, etc.). This sends the command's output to the device rather than to the screen. To send the disk directory listing to the printer, for example, type DIR/P. This option uses channel 1 for output, closing the channel when it's done. Files created on disk or cassette are ASCII files which can be viewed with most Atari word processors or ENTERed into memory with BASIC.
    We'll see more examples as we take a detailed look at each command.

The FIND Command
With FIND, you can quickly identify any lines in your program that contain a certain variable or BASIC keyword. Here is the general format:

FIND [/output device] target [starting
   line,last line]

where /output device is the optional switch for redirecting output from the screen; target is the variable name or BASIC keyword you want to find; and starting line,last line is the optional line number range for the search.
    FIND lists every line in which the target appears. The target can be a statement name (keywords that begin a statement, such as PRINT, PLOT, and POKE), a function name (such as RND, COS, and PEEK), or a variable name. Include the right parenthesis as part of subscripted variable names, and the dollar sign as part of string variable names. (Remember: X, X(, and X$ are three distinct variables.)
    FIND does not locate keywords that are neither statements nor functions-THEN and TO, for instance. GOSUB and GOTO are missed when they appear as part of the ON-GOSUB or ON-GOTO statements. Also, FIND won't locate any operators, such as OR, AND, +, and /, to name a few.
    FIND does locate ERROR lines, however; use FIND * for this purpose.
    Directing output to the disk drive (FIND/D:filename) presents an interesting possibility-the file thus created can later be retrieved using BASIC's ENTER command, allowing you to sift lines out of one program to create another.
    Perhaps you've discovered that keywords can sometimes be used as variable names in Atari BASIC. FIND assumes that if it's spelled like a keyword, it is a keyword. You can force FIND to search for variables only by preceding the variable name with the greaterthan symbol (>). Thus, FIND LEN comes up with all occurrences of the LEN function, while FIND >LEN lists occurrences of a variable called LEN. This option is needed only if your target variable could be confused with a keyword. (Be careful when choosing variable names in Atari BASIC. LET NOTE=66 creates a legitimate variable, but if you try to access its value-for example, SOUND 0,NOTE,10,10 - BASIC treats it as NOT E, while FIND, without the > option, would go off looking for the keyword NOTE.)
    When you specify a line number range with the FIND command, only those lines within that range are listed. Here are some examples:

FIND X(

(List all lines in the program containing the array variable X.)

FIND TEMP 100

(List all lines containing the variable name TEMP, beginning at line 100.)

FIND/P CHR$,100

(List all lines through line 100 containing the function CHR$ and send the listing to the printer.)

FIND * 100,200

(List all lines from 100 through 200 that contain ERRORs.)

FIND/D:NEWFILE.ASC PRINT,20000

(Create a disk file named NEWFILE.ASC to hold the listing of all lines through line 20000 that contain the keyword PRINT.)

The XREF Command
As you write an Atari BASIC program, newly declared variables are added to an area of memory called the variable name table. XREF lists the contents of this table and cross-references the lines in which each variable appears. Here is the general format:

XREF [/output device] [starting line,last line]

where /output device is the optional switch for redirecting output from the screen; and starting line,last line is the optional line range parameter.
    Often, XREF finds variables in the variable name table that don't actually appear in your program. You can recognize these unused variables because XREF lists them with no line number references. Unused variables can happen when you delete all occurrences of a certain variable from a program, or when you misspell a variable or command and BASIC thinks you're creating a new variable. These unused variable names clutter up the variable name table, which might become a factor in a long program since the table is limited to 128 names.
    XREF can help you eliminate this deadwood. If a large number of unused variables show up, you can clear them out by LISTing the program to disk, typing NEW, and then re-ENTERing the program. (LIST and ENTER reconstruct the variable name table, whereas SAVE and LOAD preserve it.)
    When you specify a line number range with XREF (for instance, XREF 1000,2000), only those variables and line references within that range are listed. At the foot of the listing, both the count of listed variables and the total number of variables in the name table are displayed.
    XREF/P creates a hardcopy of the variable listing-useful documentation. XREF also makes it easy to spot misspelled variable names. No longer must you trace through a recalcitrant program line by line only to find that your mysterious bug is due to the slip of a finger. And if you're as poor a typist as I am, you'll be making frequent use of the REP command described below.
    Here are a few examples:

XREF

(List and cross-reference all variables in the program.)

XREF 2000,2999

(List and cross-reference all variables in the subroutine in lines 2000 through 2999.)

XREF ,10000

(List and cross-reference all variables up to line 10000.)

XREF/D:VARLIST

(List and cross-reference all variables in the program, and send the list to the disk file VARLIST.)

The REP Command
Now it's easy to replace those cryptic variable names with new names of crystal clarity-or, depending on your motives, vice versa. REP acts in a flash, replacing old variable names with new variable names. It's handy for making corrections and tightening up code-but be careful. With or without such a command, the more ambitious your program, the wiser it is to save backup copies and document changes as you make them.
    Here is the general format:

REP [/output device] oldvar newvar
   [starting line,last line]

where /output device is the optional switch for redirecting output from the screen; oldvar is the old variable name; newvar is the new variable name (separated by a space, not a comma, from oldvar); and starting line,last line is the optional line number range. (The only output produced by the output switch is a message telling you how many variables were changed.)
    REP does not let you replace keywords or mismatched variable types (for instance, you can't change A$ to A). Also, REP requires that the new variable already exists in the variable name table. To add a new variable to the table, simply use it in any BASIC statement, even in direct mode. (If you want to create a new variable SUM, for instance, you can just type SUM=0 and press RETURN.)
    If you don't include the optional line number range, REP works on the entire program. If you specify a range of lines, it replaces the old variable name only within those lines. Watch out for this, since it may cause a conflict elsewhere in your program.
    Here are some examples:

REP CB CHECKBALANCE

(Replace all occurrences of the variable CB with the new variable name CHECKBALANCE.)

REP CLIENTNAME$ CN$

(Replace all occurrences of the variable CLIENTNAME$ with the new variable name CN$.)

REP I( INDEX(

(Replace all occurrences of the array variable I() with the array variable INDEX().)

REP SUM TOTAL 3000,3999

(Replace all occurrences of the variable SUM with the new variable name TOTAL within the subroutine in lines 3000 to 3999.)
    Variables are stored as onebyte tokens in Atari BASIC. REP looks up the old and new variable names in the name table to determine their tokens, then replaces every old token (within range) with the new one. The old name remains in the name table (type XREF to see for yourself) and keeps the value it had at the time of the change.

The VIEW Command
BASIC's PRINT statement lets you examine variable values in direct mode as you test and debug a program, but it can be cumbersome when you're juggling lots of variables, especially subscripted variables. Of course, there's an easier way.
    DEBUT'S VIEW command lists all variables and their values, including strings and arrays, without requiring you to name each one. Type VIEW to quickly display the values, or use the optional output switch to generate hardcopy that you can analyze with the proverbial fine-toothed comb.
    Here is the format of the command:

VIEW [/output device] [starting line,last
   line]

where /output device is the optional switch for redirecting output from the screen; and starting line,last line is the optional range of line numbers.
    Here is the format of the VIEW command's output:

VARIABLE=value
STRING$ current length,maximum length
"string contents"
ARRAY(rows,cols
10 20 30 40
2 4 6 8
3 5 7 11

    Scalar variable values are displayed in a pretty straightforward manner-the variable name is followed by its value. Strings are listed with additional information-the current and maximum length. String contents are printed in quotes below the name.
    For subscripted variables, VIEW lists the row and column dimensions corresponding to the indexes you assign with the DIM statement, plus one. (Because indexing starts at zero-ARRAY(0,0) is a valid array element-the actual size of each dimension is one greater than the value you give.) Values are listed by column and row; sample values are shown in the example above. A singly subscripted variable is really a onecolumn array; its values are listed vertically. If a string or array has not been dimensioned, only the name prints. Unused variables aren't listed at all.
    The output switch and range option work with this command as they do with all others. For example:

VIEW/P

(Prints a hardcopy of all the variables and their values.)

VIEW/P 200,300

(Prints a hardcopy of the variables and values in lines 200 through 300.)

Additional Hints
The DEBUT commands are an aid to debugging, but they won't do the whole job for you. Use them along with other techniques (such as tracing the program's execution with temporary PRINT statements) to close the gap between what you're telling BASIC to do, and what you want it to do.
    Since the optional disk output produced by these commands is compatible with any word processor that handles ASCII text, you can easily produce program documentation with DEBUT. For example, you could save the XREF listing to disk, and use a word processor to add explanations of each variable. Every minute spent documenting a program pays off threefold should you ever have to go back and modify it.
    The DEBUT command formats are tolerant of extra spaces, and command words can be abbreviated-just type the first letter followed by a period. In fact, the period alone is all you need for DIR. The output switch is unaffected by abbreviations-DIR/P, D./P, and ./P all do the same thing. In addition, the FIND command accepts abbreviated keywords as its target. For example, FIND FOR, FIND F., and F.F. all seek out the keyword FOR. Sound confusing? Experiment. You'll find the shortcuts which are most useful to you.

Notes For ML Programmers
It would be nice if DEBUT had a renumbering command, program trace capabilities, or even a few more DOS commands. Machine language programmers can add such new commands by patching entries into DEBUT's command table, which reserves 25 bytes for just this purpose.
    A command table entry consists of your machine language routine's address minus one, followed by the command name. The address is stored in high byte/low byte order. The command name is in ASCII code exactly as you'd type it, except that the rightmost byte must have the most significant bit on (inverse video). Add entries starting at location 8149 (hex $1FD5), but don't use more than the 25 bytes or you'll overwrite DEBUT. Your code can be appended to the DEBUT AUTORUN.SYS file by using the DOS copy with append feature.
    DEBUT does some preprocessing before your routine gets control. As a result, you'll be able to abbreviate your commands, with DEBUT abbreviations taking precedence. The output switch works as well, opening channel 1 to the output device and storing the channel number at location 181 ($B5) before branching to your routine. If the command line requires further parsing, your routine will find it at location 1408 ($580); the offset to the first argument (if any) will be in location 242 ($F2). Your machine language routine should end with an RTS instruction if you wish it to return through DEBUT to BASIC.
    DEBUT calls on several routines in Atari BASIC and accesses various BASIC tables whose addresses have changed in the later releases, which accounts for the slightly different version of the program for BASIC revision A. DEBUT commands will not trigger the notorious lockup bug of revision A and (especially) revision B. For those with an interest in the inner workings of Atari BASIC, I highly recommend The Atari BASIC Source Book (COMPUTE! Books), as well as the aforementioned "Atari Wedge" article by Charles Brannon (reprinted in COMPUTE!'s Third Book of Atari as "The Wedge: Adding Commands to Atari BASIC").

DEBUT: Atari BASIC
Debugging Tool

For instructions on entering this listing, please
refer to "COMPUTE!'s Guide to Typing In
Programs" in this issue of COMPUTE!.


CF10 ? "INSERT DISK - PRESS
       WHEN READY"
HG 20 IF PEEK(764)<>12 THEN
      20
PC 30 OPEN #1,8,0,"D:AUTORUN
      .SYS"
CD 40 ? "CREATING DEBUT AUTO
      RUN.SYS FILE"
KB 50 FOR I=1 TO 1304:READ B
      YTE:PUT #1,BYTE:NEXT I
EN 60 ? "AUTORUN.SYS CREATED
      ":END
BM 70 DATA 255,255,0,31,157,
      31,159,164,36,168
CJ 80 DATA 76,84,164,76,130,
      164,76,142,181,76
FK 90 DATA 62,181,76,103,181
      ,76,153,186,76,129
6D 100 DATA 171,76,167,175,7
       6,147,171,68,69,66
BK 110 DATA 85,84,155,53,46,
       48,155,165,12,141
NK 120 DATA 86,31,165,13,141
       ,87,31,169,0,141
DL 130 DATA 241,31,169,85,13
       3,12,169,31,133,13
GO 140 DATA 160,31,169,31,32
       ,3,36,32,91,31
AM 150 DATA 169,46,141,231,2
       ,169,36,141,232,2
IB 160 DATA 96,32,88,31,76,5
       1,31,160,0,185
PL 170 DATA 26,3,201,69,240,
       8,200,200,200,192
EL 180 DATA 34,208,242,96,20
       0,169,158,153,26,3
0G 190 DATA 169,31,153,27,3,
       162,15,189,0,228
NF 200 DATA 157,158,31,202,1
       6,247,169,241,141,162
AG 210 DATA 31,169,31,141,16
       3,31,24,173,4,228
MG 220 DATA 105,1,141,243,31
       ,173,5,228,105,0
D1 230 DATA 141,244,31,96,17
       4,31,215,31,32,108
PB 240 DATA 68,73,210,32,178
       ,86,73,69,215,33
NB 250 DATA 95,88,82,69,198,
       33,212,70,73,78
MG 260 DATA 196,34,23,82,69,
       208,34,93,75,73
BG 270 DATA 76,204,32,76,68,
       79,211,0,0,0
NL 280 DATA 242,31,45,36,32,
       73,242,8,201,155
BE 290 DATA 240,5,238,241,31
       ,40,96,152,72,138
HH 300 DATA 729165,194,201,9
       3,208,92,174,241,31
EH 310 DATA 240,87,169,155,1
       57,128,5,162,0,142
DI 320 DATA 241,31,134,242,3
       2,64,35,169,31,160
NF 330 DATA 174,162,2,32,4,3
       1,176,61,134,242
LM 340 DATA 189,128,5,73,47,
       72,208,8,32,215
AN 350 DATA 35,48,22,32,47,3
       5,160,255,132,204
LN 360 DATA 140,254,2,200,13
       2,203,132,153,132,154
MN 370 DATA 132,245,32,91,32
       ,104,208,3,32,10
OL 380 DATA 36,169,0,141,254
       ,2,76,83,160,177
FF 390 DATA 149,72,200,177,1
       49,72,76,64,35,104
KK 400 DATA 170,104,168,169
       155,40,96,72,162,112
NM 410 DATA 32,12,36,160,173
       ,169,32,32,38,36
CM 420 DATA 104,201,155,240,
       3,32,28,36,162,112
BE 430 DATA 169,6,32,227,35,
       162,112,169,5,160
EE 440 DATA 128,157,73,3,133
       ,150,132,149,32,38
CA 450 DATA 36,169,5,32,14,3
       6,48,8,32,16
DG 460 DATA 31,32,222,34,208
       ,225,162,112,76,12
LL 470 DATA 36,68,58,42,46,4
       2,155,32,243,34
OD 480 DATA 32,195,35,240,10
       6,32,38,35,32,92
LB 490 DATA 35,176,89,32,213
       ,34,32,16,31,32
NF 500 DATA 107,34,240,70,14
       4,76,32,28,31,32
GJ 510 DATA 182,221,32,217,3
       4,162,226,32,241,35
BB 520 DATA 169,44,32,19,31,
       162,228,32,241,35
AJ 530 DATA 38,210,144,60,32
       ,213,34,169,34,32
OK 540 DATA 219,34,162,226,3
       2,25,31,240,17,160
NC 550 DATA 0,177,224,32,19,
       31,32,222,34,240
ED 560 DATA 30,32,118,34,208
       ,232,169,34,32,219
1F 570 DATA 34,76,28,33,169,
       61,32,19,31,32
DE 580 DATA 252,35,32,222,34
       ,240,4,230,203,208
HF 590 DATA 145,76,213,34,32
       ,40,221,165,228,133
NB 600 DATA 234,165,229,133
       235,32,213,34,162,232
PM 610 DATA 32,25,31,240,223
       ,162,234,32,25,31
MN 620 DATA 240,231,166,224
       164,225,32,137,221,32
DH 630 DATA 252,35,32,217,34
       ,32,222,34,240,207
GJ 640 DATA 160,6,32,118,34,
       136,208,250,240,221
BA 650 DATA 208,2,133,245,32
       ,243,34,32,195,35
LM 660 DATA 240,59,32,38,35,
       32,92,35,176,35
EH 670 DATA 32,197,34,230,20
       5,198,205,208,3,32
EF 680 DATA 209,34,162,237,3
       2,241,35,32,217,34
HM 690 DATA 230,175,165,175,
       201,6,208,245,32,81
BE 700 DATA 35,144,228,176,7
       ,165,245,240,3,32
GM 710 DATA 197,34,32,222,34
       ,240,37,230,203,208
AK 720 DATA 192,32,213,34,32
       ,213,34,32,239,35
AM 730 DATA 169,33,160,201,3
       2,3,36,165,203,73
FA 740 DATA 12E3,168,169,0,32
       ,245,35,169,33,160
IJ 750 DATA 205,76,3,36,96,3
       2,79,70,160,32
PO 760 DATA 76,73,83,84,69,6
       8,155,240,64,230
HA 770 DATA 242,201,62,240,3
       0,170,169,55,224,42
BH 780 DATA 240,7,198,242,32
       ,131,34,176,5,133
KO 790 DATA 204,76,2,34,32,1
       41,34,176,6,105
NJ 800 DATA 61,133,203,16,7,
       32,173,34,176,23
AN 810 DATA 133,203,32,246,3
       4,32,92,35,176,13
BF 820 DATA 32,10,31,32,222,
       34,240,5,32,81
FC 830 DATA 35,144,243,96,24
       0,49,32,173,34,176
DN 840 DATA 44,133,203,32,10
       9,34,133,245,32,64
EN 850 DATA 35,32,173,34,176
       ,29,133,246,32,109
BL 860 DATA 34,197,245,208,2
       0,32,246,34,32,92
HN 870 DATA 35,176,12,165,24
       6,145,138,32,122,34
FA 880 DATA 32,170,35,144,24
       4,32,239,35,169,34
GJ 890 DATA 160,85,76,3,36,3
       2,67,72,65,78
CB 900 DATA 71,69,68,155,173
       ,86,31,133,12,173
EF 910 DATA 87,31,133,13,76,
       116,228,165,203,41
EC 920 DATA 127,32,22,31,165
       ,210,74,96,162,224
KF 930 DATA 208,2,162,153,24
       6,0,208,2,246,1
HF 940 DATA 96,173,1,31,172,
       0,31,162,2,208
AM 950 DATA 8,173,3,31,172,2
       ,31,162,0,32
N0 960 DATA 4,31,176,12,189,
       128,5,201,32,240
BI 970 DATA 6,201,155,240,2,
       56,96,134,242,165
EH 980 DATA 175,24,96,165,13
       1,164,130,162,0,32
LE 990 DATA 4,31,176,238,32,
       154,34,144,5,32
NL 1000 DATA 7,31,144,246,9,
        128,96,32,122,34
PM 1010 DATA 32,213,34,32,21
        3,34,32,16,31,169
EF 1020 DATA 5,133,205,169,1
        55,208,2,169,32,76
BI 1030 DATA 19,31,164,17,20
        8,2,198,17,152,96
DA 1040 DATA 32,0,216,176,7,
        32,210,217,164,212
AN 1050 DATA 165,213,96,56,1
        02,203,169,127,160,2
        55
GB 1060 DATA 32,34,35,200,13
        2,162,132,163,32,64
DD 1070 DATA 35,201,44,240,1
        6,32,230,34,176,24
JL 1080 DATA 132,162,133,163
        ,32,64,35,201,44,208
NG 1090 DATA 13,230,242,32,2
        30,34,176,6,48,4
GM 1100 DATA 133,165,132,164
        ,165,136,133,138,165
        ,137
NO 1110 DATA 133,139,96,166,
        242,202,232,189,128,
        5
LO 1120 DATA 201,32,240,4,20
        1,155,208,244,134,24
        2
GO 1130 DATA 166,242,189,126
        ,5,201,32,208,3,232
AK 1140 DATA 208,246,134,242
        ,201,155,96,24,165,2
        07
JC 1150 DATA 101,138,133,138
        ,144,2,230,139,160,0
EI 1160 DATA 177,138,133,237
        ,200,177,138,133,238
        ,56
CB 1170 DATA 165,164,229,237
        ,165,165,229,238,176
        ,2
BM 1180 DATA 56,96,200,177,1
        38,133,207,165,237,2
        29
HI 1190 DATA 162,165,238,229
        ,163,144,206,200,177
        ,138
DA 1200 DATA 133,156,200,177
        ,138,197,204,240,34,
        201
MD 1210 DATA 2,144,190,201,5
        5,240,186,200,177,13
        8
JA 1220 DATA 197,203,240,19,
        201,14,240,17,201,15
PN 1230 DATA 240,17,201,22,2
        40,167,200,196,156,2
        08
DJ 1240 DATA 233,240,211,24,
        96,169,6,208,3,200
DC 1250 DATA 177,138,24,200,
        132,170,101,170,168,
        208
DF 1260 DATA 213,165,203,41,
        127,133,175,165,131,
        164
PO 1270 DATA 130,162,0,32,13
        ,31,160,0,177,149
NI 1280 DATA 96,162,1,134,18
        1,32,10,36,32,26
NH 1290 DATA 36,169,8,157,74
        ,3,169,0,157,75
AE 1300 DATA 3,169,3,208,31,
        162,153,181,1,180
IE 1310 DATA 0,133,213,132,2
        12,32,170,217,32,230
DN 1320 DATA 216,165,244,164
        ,243,133,150,132,149
        ,76
NM 1330 DATA 16,31,162,16,16
        9,12,157,66,3,32
HE 1340 DATA 86,228,152,16,2
        ,132,207,96,230,242
HE 1350 DATA 165,242,24,105,
        128,168,169,0,105,5
LO 1360 DATA 157,69,3,152,15
        7,68,3,96,224 ,2
PN 1370 DATA 225,2,41,31