BASIC-LIST.DOC
FILE INFORMATION
FILENAME(S): BASIC-LIST.DOC
FILE TYPE(S): SEQ
FILE SIZE: 6.9K
FIRST SEEN: 2025-10-20 14:32:12
APPEARS ON: 1 disk(s)
FILE HASH
ca4911f81809a06241384fdea3dfea30be41be8ccd9f5e512b31c0c555415848
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| STONYSOFT PD NR | BASIC-LIST.DOC | SEQ | Treasure Chest - Klaus Der Suhler | 9 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 40 5E 22 C2 C1 D3 C9 C3 2D CC C9 D3 D4 22 2F 5A |@^".....-...."/Z| 00000010: 45 4B 45 34 0D 0D 20 20 20 20 20 2B 2B 2B 2B 2B |EKE4.. +++++| 00000020: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |++++++++++++++++| 00000030: 2B 2B 2B 2B 0D 20 20 20 20 20 2B 20 20 20 20 20 |++++. + | 00000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000050: 20 20 2B 0D 20 20 20 20 20 2B 20 20 20 20 20 20 | +. + | 00000060: 20 C2 C1 D3 C9 C3 2D CC C9 D3 D4 20 20 20 20 20 | .....-.... | 00000070: 20 2B 0D 20 20 20 20 20 2B 20 20 20 20 20 20 20 | +. + | 00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000090: 2B 0D 20 20 20 20 20 2B 2B 2B 2B 2B 2B 2B 2B 2B |+. +++++++++| 000000A0: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |++++++++++++++++| 000000B0: 0D 0D 22 C2 C1 D3 C9 C3 2D CC C9 D3 D4 22 20 49 |..".....-...." I| 000000C0: 53 20 41 20 50 52 4F 47 52 41 4D 4D 45 52 27 53 |S A PROGRAMMER'S| 000000D0: 20 41 49 44 20 54 48 41 54 20 50 52 4F 44 55 43 | AID THAT PRODUC| 000000E0: 45 53 20 45 58 50 41 4E 44 45 44 2D 46 4F 52 4D |ES EXPANDED-FORM| 000000F0: 41 54 20 4C 49 53 54 49 4E 47 53 20 41 4E 44 20 |AT LISTINGS AND | 00000100: 43 52 4F 53 53 2D 52 45 46 45 52 45 4E 43 45 20 |CROSS-REFERENCE | 00000110: 46 4F 52 20 C2 C1 D3 C9 C3 20 50 52 4F 47 52 41 |FOR ..... PROGRA| 00000120: 4D 53 2E 0D 0D 20 20 20 20 20 C2 C1 D3 C9 C3 20 |MS... ..... | 00000130: 4C 49 53 54 49 4E 47 53 20 50 52 4F 44 55 43 45 |LISTINGS PRODUCE| 00000140: 44 20 42 59 20 54 48 45 20 C3 36 34 20 22 CC C9 |D BY THE .64 "..| 00000150: D3 D4 22 20 43 4F 4D 4D 41 4E 44 20 53 45 45 4D |.." COMMAND SEEM| 00000160: 20 54 4F 20 52 45 53 45 4D 42 4C 45 20 48 49 45 | TO RESEMBLE HIE| 00000170: 52 4F 47 4C 59 50 48 49 43 53 2C 20 45 53 50 45 |ROGLYPHICS, ESPE| 00000180: 43 49 41 4C 4C 59 20 57 49 54 48 49 4E 20 D0 D2 |CIALLY WITHIN ..| 00000190: C9 CE D4 20 53 54 41 54 45 4D 45 4E 54 53 2E 20 |... STATEMENTS. | 000001A0: D4 48 45 20 55 53 45 20 4F 46 20 43 48 41 52 41 |.HE USE OF CHARA| 000001B0: 43 54 45 52 53 20 54 48 41 54 20 50 52 49 4E 54 |CTERS THAT PRINT| 000001C0: 20 41 53 20 47 52 41 50 48 49 43 53 20 46 4F 52 | AS GRAPHICS FOR| 000001D0: 20 48 4F 52 49 5A 4F 4E 54 41 4C 20 41 4E 44 20 | HORIZONTAL AND | 000001E0: 56 45 52 54 49 43 41 4C 20 54 41 42 42 49 4E 47 |VERTICAL TABBING| 000001F0: 2C 20 43 4F 4C 4F 52 2C 20 41 4E 44 20 49 4E 56 |, COLOR, AND INV| 00000200: 45 52 53 45 20 56 49 44 45 4F 2C 20 57 48 49 43 |ERSE VIDEO, WHIC| 00000210: 48 20 4D 41 4B 45 20 53 45 4E 53 45 20 57 48 49 |H MAKE SENSE WHI| 00000220: 4C 45 20 57 52 49 54 49 4E 47 20 41 20 50 52 4F |LE WRITING A PRO| 00000230: 47 52 41 4D 2C 20 4C 45 41 56 45 20 4F 4E 45 20 |GRAM, LEAVE ONE | 00000240: 42 41 46 46 4C 45 44 20 57 48 45 4E 20 47 4F 49 |BAFFLED WHEN GOI| 00000250: 4E 47 20 42 41 43 4B 20 4D 4F 4E 54 48 53 20 4C |NG BACK MONTHS L| 00000260: 41 54 45 52 20 54 4F 20 4D 41 4B 45 20 4D 4F 44 |ATER TO MAKE MOD| 00000270: 49 46 49 43 41 54 49 4F 4E 53 2E 20 C1 4E 44 20 |IFICATIONS. .ND | 00000280: 49 46 20 59 4F 55 52 20 50 52 49 4E 54 45 52 20 |IF YOUR PRINTER | 00000290: 49 53 20 4E 4F 54 20 4F 46 20 54 48 45 20 C3 4F |IS NOT OF THE .O| 000002A0: 4D 4D 4F 44 4F 52 45 20 56 41 52 49 45 54 59 2C |MMODORE VARIETY,| 000002B0: 20 59 4F 55 20 43 41 4E 20 53 54 49 4C 4C 20 50 | YOU CAN STILL P| 000002C0: 52 4F 44 55 43 45 20 50 45 52 46 45 43 54 4C 59 |RODUCE PERFECTLY| 000002D0: 20 55 4E 44 45 52 53 54 41 4E 44 41 42 4C 45 20 | UNDERSTANDABLE | 000002E0: 4C 49 53 54 49 4E 47 53 20 4F 46 20 59 4F 55 52 |LISTINGS OF YOUR| 000002F0: 20 C2 C1 D3 C9 C3 20 50 52 4F 47 52 41 4D 53 2E | ..... PROGRAMS.| 00000300: 20 C9 20 57 52 4F 54 45 20 22 C2 C1 D3 C9 C3 2D | . WROTE ".....-| 00000310: CC C9 D3 D4 22 20 54 4F 20 4D 41 4B 45 20 4D 59 |...." TO MAKE MY| 00000320: 20 4C 49 53 54 49 4E 47 53 20 41 20 4C 49 54 54 | LISTINGS A LITT| 00000330: 4C 45 20 4D 4F 52 45 20 49 4E 54 45 4C 4C 49 47 |LE MORE INTELLIG| 00000340: 49 42 4C 45 2E 20 D9 4F 55 52 53 20 43 41 4E 20 |IBLE. .OURS CAN | 00000350: 42 45 2C 20 54 4F 4F 2E 0D 0D 20 20 20 20 20 22 |BE, TOO... "| 00000360: C2 C1 D3 C9 C3 2D CC C9 D3 D4 22 20 44 4F 45 53 |.....-...." DOES| 00000370: 20 4D 4F 52 45 20 54 48 41 4E 20 41 20 53 49 4D | MORE THAN A SIM| 00000380: 50 4C 45 20 22 CC C9 D3 D4 22 2C 20 48 4F 57 45 |PLE "....", HOWE| 00000390: 56 45 52 2E 20 D4 48 45 20 22 C3 52 4F 53 53 2D |VER. .HE ".ROSS-| 000003A0: D2 45 46 45 52 45 4E 43 45 22 20 4F 50 54 49 4F |.EFERENCE" OPTIO| 000003B0: 4E 20 50 52 4F 44 55 43 45 53 20 41 20 4C 49 53 |N PRODUCES A LIS| 000003C0: 54 20 4F 46 20 41 4C 4C 20 53 54 41 54 45 4D 45 |T OF ALL STATEME| 000003D0: 4E 54 20 4E 55 4D 42 45 52 53 20 52 45 46 45 52 |NT NUMBERS REFER| 000003E0: 45 4E 43 45 44 20 42 59 20 41 20 22 C7 CF D4 CF |ENCED BY A "....| 000003F0: 22 20 4F 52 20 22 C7 CF D3 D5 C2 22 2C 20 41 4E |" OR ".....", AN| 00000400: 44 20 41 20 4C 49 53 54 20 4F 46 20 41 4C 4C 20 |D A LIST OF ALL | 00000410: 56 41 52 49 41 42 4C 45 53 20 55 53 45 44 20 49 |VARIABLES USED I| 00000420: 4E 20 54 48 45 20 50 52 4F 47 52 41 4D 20 41 4E |N THE PROGRAM AN| 00000430: 44 20 57 48 45 52 45 20 54 48 45 59 27 52 45 20 |D WHERE THEY'RE | 00000440: 55 53 45 44 20 41 4E 44 20 41 53 53 49 47 4E 45 |USED AND ASSIGNE| 00000450: 44 20 4E 45 57 20 56 41 4C 55 45 53 2E 0D 0D C1 |D NEW VALUES....| 00000460: 42 4F 55 54 20 D4 48 45 20 CC 49 53 54 49 4E 47 |BOUT .HE .ISTING| 00000470: 3A 0D 0D 20 20 20 20 20 D4 48 45 20 4C 49 53 54 |:.. .HE LIST| 00000480: 49 4E 47 20 50 52 4F 44 55 43 45 44 20 42 59 20 |ING PRODUCED BY | 00000490: 22 C2 C1 D3 C9 C3 2D CC C9 D3 D4 22 20 49 53 20 |".....-...." IS | 000004A0: 4D 55 43 48 20 4C 49 4B 45 20 54 48 41 54 20 50 |MUCH LIKE THAT P| 000004B0: 52 4F 44 55 43 45 44 20 42 59 20 54 48 45 20 22 |RODUCED BY THE "| 000004C0: CC C9 D3 D4 22 20 43 4F 4D 4D 41 4E 44 20 45 58 |...." COMMAND EX| 000004D0: 43 45 50 54 20 46 4F 52 20 53 50 45 43 49 41 4C |CEPT FOR SPECIAL| 000004E0: 20 43 48 41 52 41 43 54 45 52 53 20 53 55 43 48 | CHARACTERS SUCH| 000004F0: 20 41 53 20 41 52 45 20 46 4F 55 4E 44 20 49 4E | AS ARE FOUND IN| 00000500: 20 4D 41 4E 59 20 D0 D2 C9 CE D4 20 53 54 41 54 | MANY ..... STAT| 00000510: 45 4D 45 4E 54 53 2E 20 D4 48 45 20 22 49 4E 56 |EMENTS. .HE "INV| 00000520: 45 52 53 45 20 48 45 41 52 54 22 20 54 48 41 54 |ERSE HEART" THAT| 00000530: 20 C3 4F 4D 4D 4F 44 4F 52 45 20 55 53 45 52 53 | .OMMODORE USERS| 00000540: 20 52 45 43 4F 47 4E 49 53 45 20 41 53 20 22 C3 | RECOGNISE AS ".| 00000550: 4C 45 41 52 20 54 48 45 20 53 43 52 45 45 4E 22 |LEAR THE SCREEN"| 00000560: 20 49 53 20 50 52 49 4E 54 45 44 20 42 59 20 22 | IS PRINTED BY "| 00000570: C2 C1 D3 C9 C3 2D CC C9 D3 D4 22 20 41 53 20 22 |.....-...." AS "| 00000580: 5B C3 CC D2 5D 22 2E 20 D4 48 45 20 53 51 55 41 |[...]". .HE SQUA| 00000590: 52 45 20 42 52 41 43 4B 45 54 53 20 49 4E 44 49 |RE BRACKETS INDI| 000005A0: 43 41 54 45 20 54 48 41 54 20 41 20 53 50 45 43 |CATE THAT A SPEC| 000005B0: 49 41 4C 20 43 48 41 52 41 43 54 45 52 20 48 41 |IAL CHARACTER HA| 000005C0: 53 20 42 45 45 4E 20 54 52 41 4E 53 4C 41 54 45 |S BEEN TRANSLATE| 000005D0: 44 20 54 4F 20 41 20 4D 4F 52 45 20 45 41 53 49 |D TO A MORE EASI| 000005E0: 4C 59 20 55 4E 44 45 52 53 54 4F 4F 44 20 4D 4E |LY UNDERSTOOD MN| 000005F0: 45 4D 4F 4E 49 43 2E 20 CD 55 4C 54 49 50 4C 45 |EMONIC. .ULTIPLE| 00000600: 20 41 44 4A 41 43 45 4E 54 20 4F 43 43 55 52 52 | ADJACENT OCCURR| 00000610: 45 4E 43 45 53 20 4F 46 20 41 20 53 50 45 43 49 |ENCES OF A SPECI| 00000620: 41 4C 20 43 48 41 52 41 43 54 45 52 2C 20 4C 45 |AL CHARACTER, LE| 00000630: 54 27 53 20 53 41 59 20 54 48 45 52 45 20 41 52 |T'S SAY THERE AR| 00000640: 45 20 54 45 4E 20 22 49 4E 56 45 52 53 45 20 D1 |E TEN "INVERSE .| 00000650: 27 53 22 2C 20 57 4F 55 4C 44 20 42 45 20 4C 49 |'S", WOULD BE LI| 00000660: 53 54 45 44 20 41 53 20 22 5B 31 30 20 C4 CF D7 |STED AS "[10 ...| 00000670: CE 5D 22 2E 20 D7 48 49 4C 45 20 54 48 45 53 45 |.]". .HILE THESE| 00000680: 20 4D 41 59 20 53 45 45 4D 20 54 4F 20 42 45 20 | MAY SEEM TO BE | 00000690: 54 52 49 56 49 41 4C 20 45 58 41 4D 50 4C 45 53 |TRIVIAL EXAMPLES| 000006A0: 2C 20 54 48 45 20 54 52 41 4E 53 4C 41 54 49 4F |, THE TRANSLATIO| 000006B0: 4E 20 4F 46 20 41 4E 20 22 49 4E 56 45 52 53 45 |N OF AN "INVERSE| 000006C0: 20 50 49 22 20 54 4F 20 54 48 45 20 4D 4E 45 4D | PI" TO THE MNEM| 000006D0: 4F 4E 49 43 20 22 5B 59 45 4C 4C 4F 57 5D 22 20 |ONIC "[YELLOW]" | 000006E0: 53 41 56 45 53 20 54 49 4D 45 20 57 48 45 4E 20 |SAVES TIME WHEN | 000006F0: 54 52 59 49 4E 47 20 54 4F 20 55 4E 44 45 52 53 |TRYING TO UNDERS| 00000700: 54 41 4E 44 20 57 48 41 54 20 54 48 45 20 D0 D2 |TAND WHAT THE ..| 00000710: C9 CE D4 20 53 54 41 54 45 4D 45 4E 54 20 41 43 |... STATEMENT AC| 00000720: 43 4F 4D 50 4C 49 53 48 45 53 2E 0D 0D D4 48 45 |COMPLISHES....HE| 00000730: 20 C3 52 4F 53 53 2D D2 45 46 45 52 45 4E 43 45 | .ROSS-.EFERENCE| 00000740: 3A 0D 0D 20 20 20 20 20 D4 48 45 20 43 52 4F 53 |:.. .HE CROS| 00000750: 53 2D 52 45 46 45 52 45 4E 43 45 20 4C 49 53 54 |S-REFERENCE LIST| 00000760: 49 4E 47 2C 20 57 48 49 43 48 20 49 53 20 4F 50 |ING, WHICH IS OP| 00000770: 54 49 4F 4E 41 4C 2C 20 48 41 53 20 54 57 4F 20 |TIONAL, HAS TWO | 00000780: 53 45 43 54 49 4F 4E 53 2E 20 D4 48 45 20 46 49 |SECTIONS. .HE FI| 00000790: 52 53 54 20 53 45 43 54 49 4F 4E 20 4C 49 53 54 |RST SECTION LIST| 000007A0: 53 20 C2 C1 D3 C9 C3 20 4C 49 4E 45 20 4E 55 4D |S ..... LINE NUM| 000007B0: 42 45 52 53 20 41 4E 44 20 57 48 45 52 45 20 54 |BERS AND WHERE T| 000007C0: 48 45 59 20 41 52 45 20 52 45 46 45 52 45 4E 43 |HEY ARE REFERENC| 000007D0: 45 44 2E 20 CF 4E 4C 59 20 4C 49 4E 45 20 4E 55 |ED. .NLY LINE NU| 000007E0: 4D 42 45 52 53 20 57 48 49 43 48 20 48 41 56 45 |MBERS WHICH HAVE| 000007F0: 20 41 20 52 45 46 45 52 45 4E 43 45 20 42 59 20 | A REFERENCE BY | 00000800: 54 48 45 20 55 53 45 20 4F 46 20 C7 CF D4 CF 20 |THE USE OF .... | 00000810: 41 4E 44 20 C7 CF D3 D5 C2 20 28 41 4E 44 20 54 |AND ..... (AND T| 00000820: 48 45 20 49 4D 50 4C 49 45 44 20 C7 CF D4 CF 20 |HE IMPLIED .... | 00000830: 4F 46 20 54 48 45 20 57 4F 52 44 20 D4 C8 C5 CE |OF THE WORD ....| 00000840: 29 20 41 50 50 45 41 52 20 48 45 52 45 2E 20 C9 |) APPEAR HERE. .| 00000850: 46 20 54 48 45 20 4C 49 4E 45 20 4E 55 4D 42 45 |F THE LINE NUMBE| 00000860: 52 20 49 53 20 54 48 45 20 54 41 52 47 45 54 20 |R IS THE TARGET | 00000870: 4F 46 20 41 20 C7 CF D3 D5 C2 20 41 4E 59 57 48 |OF A ..... ANYWH| 00000880: 45 52 45 20 49 4E 20 54 48 45 20 50 52 4F 47 52 |ERE IN THE PROGR| 00000890: 41 4D 2C 20 49 54 20 49 53 20 46 4F 4C 4C 4F 57 |AM, IT IS FOLLOW| 000008A0: 45 44 20 42 59 20 41 4E 20 41 53 54 45 52 49 53 |ED BY AN ASTERIS| 000008B0: 4B 20 28 2A 29 2E 20 D4 4F 20 54 48 45 20 52 49 |K (*). .O THE RI| 000008C0: 47 48 54 20 4F 46 20 54 48 45 20 4C 49 4E 45 20 |GHT OF THE LINE | 000008D0: 4E 55 4D 42 45 52 20 49 53 20 45 56 45 52 59 20 |NUMBER IS EVERY | 000008E0: 52 45 46 45 52 45 4E 43 45 20 54 4F 20 49 54 20 |REFERENCE TO IT | 000008F0: 49 4E 20 54 48 45 20 50 52 4F 47 52 41 4D 2E 20 |IN THE PROGRAM. | 00000900: C9 46 20 54 48 45 20 52 45 46 45 52 45 4E 43 49 |.F THE REFERENCI| 00000910: 4E 47 20 53 54 41 54 45 4D 45 4E 54 20 49 53 20 |NG STATEMENT IS | 00000920: 41 20 C7 CF D3 D5 C2 2C 20 49 54 53 20 4C 49 4E |A ....., ITS LIN| 00000930: 45 20 4E 55 4D 42 45 52 20 49 53 20 50 52 45 43 |E NUMBER IS PREC| 00000940: 45 44 45 44 20 42 59 20 41 4E 20 41 53 54 45 52 |EDED BY AN ASTER| 00000950: 49 53 4B 2E 20 D4 48 49 53 20 53 45 43 54 49 4F |ISK. .HIS SECTIO| 00000960: 4E 20 4F 46 20 54 48 45 20 43 52 4F 53 53 2D 52 |N OF THE CROSS-R| 00000970: 45 46 45 52 45 4E 43 45 20 43 41 4E 20 42 45 20 |EFERENCE CAN BE | 00000980: 41 4E 20 41 49 44 20 49 4E 20 46 49 4E 44 49 4E |AN AID IN FINDIN| 00000990: 47 20 4F 46 54 45 4E 20 55 53 45 44 20 53 55 42 |G OFTEN USED SUB| 000009A0: 52 4F 55 54 49 4E 45 53 2E 20 D2 45 4D 45 4D 42 |ROUTINES. .EMEMB| 000009B0: 45 52 20 54 48 41 54 20 50 4C 41 43 49 4E 47 20 |ER THAT PLACING | 000009C0: 54 48 45 53 45 20 4E 45 41 52 20 54 48 45 20 42 |THESE NEAR THE B| 000009D0: 45 47 49 4E 4E 49 4E 47 20 4F 46 20 54 48 45 20 |EGINNING OF THE | 000009E0: 50 52 4F 47 52 41 4D 20 43 41 4E 20 49 4D 50 52 |PROGRAM CAN IMPR| 000009F0: 4F 56 45 20 50 52 4F 47 52 41 4D 20 50 45 52 46 |OVE PROGRAM PERF| 00000A00: 4F 52 4D 41 4E 43 45 2E 0D 0D 20 20 20 20 20 D4 |ORMANCE... .| 00000A10: 48 45 20 53 45 43 4F 4E 44 20 53 45 43 54 49 4F |HE SECOND SECTIO| 00000A20: 4E 20 4F 46 20 54 48 45 20 43 52 4F 53 53 2D 52 |N OF THE CROSS-R| 00000A30: 45 46 45 52 45 4E 43 45 20 49 4E 44 49 43 41 54 |EFERENCE INDICAT| 00000A40: 45 53 20 56 41 52 49 41 42 4C 45 20 4E 41 4D 45 |ES VARIABLE NAME| 00000A50: 53 20 41 4E 44 20 54 48 45 49 52 20 55 53 41 47 |S AND THEIR USAG| 00000A60: 45 2E 20 D4 48 45 20 56 41 52 49 41 42 4C 45 20 |E. .HE VARIABLE | 00000A70: 4E 41 4D 45 20 49 53 20 4F 4E 20 54 48 45 20 4C |NAME IS ON THE L| 00000A80: 45 46 54 2C 20 57 49 54 48 20 41 52 52 41 59 53 |EFT, WITH ARRAYS| 00000A90: 20 49 4E 44 49 43 41 54 45 44 20 42 59 20 54 48 | INDICATED BY TH| 00000AA0: 45 49 52 20 53 49 5A 45 20 41 53 20 44 45 46 49 |EIR SIZE AS DEFI| 00000AB0: 4E 45 44 20 49 4E 20 54 48 45 20 41 53 53 4F 43 |NED IN THE ASSOC| 00000AC0: 49 41 54 45 44 20 C4 C9 CD 20 53 54 41 54 45 4D |IATED ... STATEM| 00000AD0: 45 4E 54 2E 20 C3 4F 4E 54 49 4E 55 49 4E 47 20 |ENT. .ONTINUING | 00000AE0: 54 4F 20 54 48 45 20 52 49 47 48 54 20 41 52 45 |TO THE RIGHT ARE| 00000AF0: 20 41 4C 4C 20 52 45 46 45 52 45 4E 43 45 53 20 | ALL REFERENCES | 00000B00: 54 4F 20 54 48 45 20 56 41 52 49 41 42 4C 45 2C |TO THE VARIABLE,| 00000B10: 20 41 4E 44 2C 20 49 46 20 54 48 45 20 52 45 46 | AND, IF THE REF| 00000B20: 45 52 45 4E 43 49 4E 47 20 53 54 41 54 45 4D 45 |ERENCING STATEME| 00000B30: 4E 54 20 41 53 53 49 47 4E 53 20 41 20 56 41 4C |NT ASSIGNS A VAL| 00000B40: 55 45 20 54 4F 20 54 48 45 20 56 41 52 49 41 42 |UE TO THE VARIAB| 00000B50: 4C 45 2C 20 54 48 41 54 20 49 53 20 41 4C 53 4F |LE, THAT IS ALSO| 00000B60: 20 49 4E 44 49 43 41 54 45 44 20 42 59 20 41 4E | INDICATED BY AN| 00000B70: 20 41 53 54 45 52 49 53 4B 2E 20 CF 4E 45 20 42 | ASTERISK. .NE B| 00000B80: 45 4E 45 46 49 54 20 4F 46 20 54 48 49 53 20 53 |ENEFIT OF THIS S| 00000B90: 45 43 54 49 4F 4E 20 49 53 20 54 4F 20 44 45 54 |ECTION IS TO DET| 00000BA0: 45 52 4D 49 4E 45 20 49 46 20 41 20 4E 41 4D 45 |ERMINE IF A NAME| 00000BB0: 20 59 4F 55 20 50 52 4F 50 4F 53 45 20 54 4F 20 | YOU PROPOSE TO | 00000BC0: 55 53 45 20 49 4E 20 54 48 45 20 50 52 4F 47 52 |USE IN THE PROGR| 00000BD0: 41 4D 20 41 4C 52 45 41 44 59 20 45 58 49 53 54 |AM ALREADY EXIST| 00000BE0: 53 2E 20 C9 54 20 49 53 20 41 4C 53 4F 20 41 4E |S. .T IS ALSO AN| 00000BF0: 20 41 49 44 20 49 4E 20 44 45 42 55 47 47 49 4E | AID IN DEBUGGIN| 00000C00: 47 20 54 4F 20 4B 4E 4F 57 20 57 48 45 52 45 20 |G TO KNOW WHERE | 00000C10: 56 41 4C 55 45 53 20 41 52 45 20 41 53 53 49 47 |VALUES ARE ASSIG| 00000C20: 4E 45 44 20 54 4F 20 56 41 52 49 41 42 4C 45 53 |NED TO VARIABLES| 00000C30: 2E 0D 0D D5 53 49 4E 47 20 22 C2 C1 D3 C9 C3 2D |....SING ".....-| 00000C40: CC C9 D3 D4 22 3A 0D 0D 20 20 20 20 20 22 C2 C1 |....":.. "..| 00000C50: D3 C9 C3 2D CC C9 D3 D4 22 20 49 53 20 57 52 49 |...-...." IS WRI| 00000C60: 54 54 45 4E 20 45 4E 54 49 52 45 4C 59 20 49 4E |TTEN ENTIRELY IN| 00000C70: 20 C2 C1 D3 C9 C3 2C 20 53 4F 20 49 53 20 CC CF | ....., SO IS ..| 00000C80: C1 C4 45 44 20 41 4E 44 20 D2 D5 CE 2E 20 CC 49 |..ED AND .... .I| 00000C90: 4E 45 20 55 50 20 54 48 45 20 50 41 50 45 52 20 |NE UP THE PAPER | 00000CA0: 49 4E 20 59 4F 55 52 20 50 52 49 4E 54 45 52 20 |IN YOUR PRINTER | 00000CB0: 53 4F 20 54 48 45 20 46 49 52 53 54 20 4C 49 4E |SO THE FIRST LIN| 00000CC0: 45 20 57 49 4C 4C 20 50 52 49 4E 54 20 41 42 4F |E WILL PRINT ABO| 00000CD0: 55 54 20 4F 4E 45 20 48 41 4C 46 20 49 4E 43 48 |UT ONE HALF INCH| 00000CE0: 20 42 45 4C 4F 57 20 54 48 45 20 50 45 52 46 4F | BELOW THE PERFO| 00000CF0: 52 41 54 49 4F 4E 20 41 4E 44 20 22 C2 C1 D3 C9 |RATION AND "....| 00000D00: C3 2D CC C9 D3 D4 22 20 57 49 4C 4C 20 53 4B 49 |.-...." WILL SKI| 00000D10: 50 20 4F 56 45 52 20 50 45 52 46 4F 52 41 54 49 |P OVER PERFORATI| 00000D20: 4F 4E 53 20 41 53 20 49 54 20 4C 49 53 54 53 2E |ONS AS IT LISTS.| 00000D30: 20 D3 45 45 20 22 D5 53 49 4E 47 20 CF 54 48 45 | .EE ".SING .THE| 00000D40: 52 20 D0 52 49 4E 54 45 52 53 22 20 49 46 20 59 |R .RINTERS" IF Y| 00000D50: 4F 55 52 20 50 41 50 45 52 20 4C 45 4E 47 54 48 |OUR PAPER LENGTH| 00000D60: 20 49 53 20 4F 54 48 45 52 20 54 48 41 4E 20 53 | IS OTHER THAN S| 00000D70: 49 58 54 59 2D 53 49 58 20 4C 49 4E 45 53 2E 20 |IXTY-SIX LINES. | 00000D80: 22 C2 C1 D3 C9 C3 2D CC C9 D3 D4 22 20 57 49 4C |".....-...." WIL| 00000D90: 4C 20 41 53 4B 20 57 48 45 54 48 45 52 20 54 48 |L ASK WHETHER TH| 00000DA0: 45 20 43 52 4F 53 53 2D 52 45 46 45 52 45 4E 43 |E CROSS-REFERENC| 00000DB0: 45 20 49 53 20 52 45 51 55 49 52 45 44 2E 20 D2 |E IS REQUIRED. .| 00000DC0: 45 53 50 4F 4E 44 20 22 D9 22 20 46 4F 52 20 22 |ESPOND "." FOR "| 00000DD0: 59 45 53 22 20 41 4E 44 20 22 CE 22 20 46 4F 52 |YES" AND "." FOR| 00000DE0: 20 22 4E 4F 22 2E 20 CE 4F 57 20 54 48 45 20 50 | "NO". .OW THE P| 00000DF0: 52 4F 47 52 41 4D 20 4E 41 4D 45 20 57 49 4C 4C |ROGRAM NAME WILL| 00000E00: 20 42 45 20 52 45 51 55 45 53 54 45 44 2E 20 20 | BE REQUESTED. | 00000E10: C5 58 45 43 55 54 49 4F 4E 20 4E 4F 57 20 53 54 |.XECUTION NOW ST| 00000E20: 41 52 54 53 20 42 59 20 45 58 41 4D 49 4E 49 4E |ARTS BY EXAMININ| 00000E30: 47 20 54 48 45 20 54 41 52 47 45 54 20 50 52 4F |G THE TARGET PRO| 00000E40: 47 52 41 4D 2C 20 54 48 45 4E 20 50 52 4F 44 55 |GRAM, THEN PRODU| 00000E50: 43 49 4E 47 20 54 48 45 20 50 52 4F 47 52 41 4D |CING THE PROGRAM| 00000E60: 20 4C 49 53 54 49 4E 47 2C 20 41 4E 44 20 46 49 | LISTING, AND FI| 00000E70: 4E 41 4C 4C 59 20 54 48 45 20 43 52 4F 53 53 2D |NALLY THE CROSS-| 00000E80: 52 45 46 45 52 45 4E 43 45 20 49 46 20 49 54 20 |REFERENCE IF IT | 00000E90: 57 41 53 20 52 45 51 55 45 53 54 45 44 2E 20 D4 |WAS REQUESTED. .| 00000EA0: 48 45 20 50 52 4F 47 52 41 4D 20 48 41 53 20 41 |HE PROGRAM HAS A| 00000EB0: 20 4C 4F 54 20 4F 46 20 53 54 52 49 4E 47 2D 48 | LOT OF STRING-H| 00000EC0: 41 4E 44 4C 49 4E 47 20 54 4F 20 44 4F 20 53 4F |ANDLING TO DO SO| 00000ED0: 20 59 4F 55 20 43 41 4E 20 45 58 50 45 43 54 20 | YOU CAN EXPECT | 00000EE0: 41 4E 20 4F 43 43 41 53 49 4F 4E 41 4C 20 22 47 |AN OCCASIONAL "G| 00000EF0: 41 52 42 41 47 45 20 43 4F 4C 4C 45 43 54 22 20 |ARBAGE COLLECT" | 00000F00: 44 55 52 49 4E 47 20 57 48 49 43 48 20 54 48 45 |DURING WHICH THE| 00000F10: 20 50 52 4F 47 52 41 4D 20 4D 41 59 20 41 50 50 | PROGRAM MAY APP| 00000F20: 45 41 52 20 54 4F 20 48 41 56 45 20 53 54 4F 50 |EAR TO HAVE STOP| 00000F30: 50 45 44 20 28 55 53 55 41 4C 4C 59 20 32 30 2D |PED (USUALLY 20-| 00000F40: 33 30 20 53 45 43 4F 4E 44 53 29 2E 20 C6 4F 52 |30 SECONDS). .OR| 00000F50: 20 52 45 46 45 52 45 4E 43 45 2C 20 54 48 45 20 | REFERENCE, THE | 00000F60: 4C 49 4E 45 20 4E 55 4D 42 45 52 20 43 55 52 52 |LINE NUMBER CURR| 00000F70: 45 4E 54 4C 59 20 49 4E 20 50 52 4F 43 45 53 53 |ENTLY IN PROCESS| 00000F80: 20 41 50 50 45 41 52 53 20 41 54 20 54 48 45 20 | APPEARS AT THE | 00000F90: 54 4F 50 20 52 49 47 48 54 20 43 4F 52 4E 45 52 |TOP RIGHT CORNER| 00000FA0: 20 4F 46 20 54 48 45 20 53 43 52 45 45 4E 2E 20 | OF THE SCREEN. | 00000FB0: D4 48 45 20 50 52 4F 47 52 41 4D 20 45 4E 44 53 |.HE PROGRAM ENDS| 00000FC0: 20 57 49 54 48 20 54 48 45 20 46 41 4D 49 4C 49 | WITH THE FAMILI| 00000FD0: 41 52 20 22 D2 C5 C1 C4 D9 2E 22 20 50 52 4F 4D |AR "......" PROM| 00000FE0: 50 54 20 41 4E 44 20 4D 41 59 20 42 45 20 52 45 |PT AND MAY BE RE| 00000FF0: 52 55 4E 20 54 4F 20 4C 49 53 54 20 41 4E 4F 54 |RUN TO LIST ANOT| 00001000: 48 45 52 20 50 52 4F 47 52 41 4D 2E 0D 0D C8 4F |HER PROGRAM....O| 00001010: 57 20 C9 54 20 D7 4F 52 4B 53 3A 0D 0D 20 20 20 |W .T .ORKS:.. | 00001020: 20 20 D4 57 4F 20 41 52 52 41 59 53 20 41 52 45 | .WO ARRAYS ARE| 00001030: 20 43 52 45 41 54 45 44 2C 20 C1 24 2C 20 57 48 | CREATED, .$, WH| 00001040: 49 43 48 20 43 4F 4E 54 41 49 4E 53 20 54 48 45 |ICH CONTAINS THE| 00001050: 20 45 58 50 41 4E 53 49 4F 4E 20 4F 46 20 43 48 | EXPANSION OF CH| 00001060: 41 52 41 43 54 45 52 53 20 4E 4F 54 20 57 49 54 |ARACTERS NOT WIT| 00001070: 48 49 4E 20 51 55 4F 54 45 53 2C 20 41 4E 44 20 |HIN QUOTES, AND | 00001080: C2 24 2C 20 54 4F 20 45 58 50 41 4E 44 20 43 48 |.$, TO EXPAND CH| 00001090: 41 52 41 43 54 45 52 53 20 54 48 41 54 20 41 52 |ARACTERS THAT AR| 000010A0: 45 20 57 49 54 48 49 4E 20 51 55 4F 54 45 53 2E |E WITHIN QUOTES.| 000010B0: 20 CE 4F 57 20 54 48 45 20 4D 41 49 4E 20 4C 49 | .OW THE MAIN LI| 000010C0: 53 54 49 4E 47 20 42 45 47 49 4E 53 2E 20 D3 49 |STING BEGINS. .I| 000010D0: 4E 43 45 20 54 48 45 20 22 44 41 54 41 22 20 46 |NCE THE "DATA" F| 000010E0: 4F 52 20 22 C2 C1 D3 C9 C3 2D CC C9 D3 D4 22 20 |OR ".....-...." | 000010F0: 49 53 20 59 4F 55 52 20 54 4F 4B 45 4E 49 5A 45 |IS YOUR TOKENIZE| 00001100: 44 20 C2 C1 D3 C9 C3 20 50 52 4F 47 52 41 4D 2C |D ..... PROGRAM,| 00001110: 20 45 41 43 48 20 54 4F 4B 45 4E 20 49 53 20 45 | EACH TOKEN IS E| 00001120: 58 50 41 4E 44 45 44 20 54 4F 20 49 54 53 20 C5 |XPANDED TO ITS .| 00001130: 4E 47 4C 49 53 48 20 45 51 55 49 56 41 4C 45 4E |NGLISH EQUIVALEN| 00001140: 54 20 55 53 49 4E 47 20 54 48 45 20 C1 24 20 41 |T USING THE .$ A| 00001150: 52 52 41 59 2C 20 41 4E 44 20 50 52 49 4E 54 45 |RRAY, AND PRINTE| 00001160: 44 2E 20 C3 48 41 52 41 43 54 45 52 53 20 57 49 |D. .HARACTERS WI| 00001170: 54 48 49 4E 20 51 55 4F 54 45 53 20 41 52 45 20 |THIN QUOTES ARE | 00001180: 54 52 41 4E 53 4C 41 54 45 44 20 54 48 52 4F 55 |TRANSLATED THROU| 00001190: 47 48 20 54 48 45 20 C2 24 20 41 52 52 41 59 2E |GH THE .$ ARRAY.| 000011A0: 0D 20 20 20 20 20 C5 41 43 48 20 43 48 41 52 41 |. .ACH CHARA| 000011B0: 43 54 45 52 20 4E 4F 54 20 57 49 54 48 49 4E 20 |CTER NOT WITHIN | 000011C0: 51 55 4F 54 45 53 20 49 53 20 41 4C 53 4F 20 50 |QUOTES IS ALSO P| 000011D0: 41 53 53 45 44 20 54 4F 20 54 48 45 20 43 52 4F |ASSED TO THE CRO| 000011E0: 53 53 2D 52 45 46 45 52 45 4E 43 45 20 52 4F 55 |SS-REFERENCE ROU| 000011F0: 54 49 4E 45 20 28 4C 49 4E 45 53 20 39 39 30 20 |TINE (LINES 990 | 00001200: 54 4F 20 31 36 31 30 29 20 57 48 49 43 48 20 42 |TO 1610) WHICH B| 00001210: 55 49 4C 44 53 20 53 54 52 49 4E 47 53 20 4F 46 |UILDS STRINGS OF| 00001220: 20 56 41 52 49 41 42 4C 45 20 4E 41 4D 45 53 20 | VARIABLE NAMES | 00001230: 4F 52 20 53 54 41 54 45 4D 45 4E 54 20 4E 55 4D |OR STATEMENT NUM| 00001240: 42 45 52 53 2E 20 D7 48 45 4E 20 41 20 4E 41 4D |BERS. .HEN A NAM| 00001250: 45 2D 53 54 52 49 4E 47 20 49 53 20 43 4F 4D 50 |E-STRING IS COMP| 00001260: 4C 45 54 45 44 2C 20 41 20 42 49 4E 41 52 59 20 |LETED, A BINARY | 00001270: 53 45 41 52 43 48 20 49 53 20 4D 41 44 45 20 4F |SEARCH IS MADE O| 00001280: 46 20 50 52 45 56 49 4F 55 53 20 4E 41 4D 45 53 |F PREVIOUS NAMES| 00001290: 2E 20 C9 46 20 54 48 45 20 4E 41 4D 45 20 49 53 |. .F THE NAME IS| 000012A0: 20 46 4F 55 4E 44 20 54 48 45 20 4C 49 4E 45 20 | FOUND THE LINE | 000012B0: 4E 55 4D 42 45 52 20 4F 46 20 54 48 45 20 52 45 |NUMBER OF THE RE| 000012C0: 46 45 52 45 4E 43 45 20 49 53 20 41 44 44 45 44 |FERENCE IS ADDED| 000012D0: 20 54 4F 20 54 48 45 20 4F 54 48 45 52 20 52 45 | TO THE OTHER RE| 000012E0: 46 45 52 45 4E 43 45 53 2C 20 4F 54 48 45 52 57 |FERENCES, OTHERW| 000012F0: 49 53 45 20 54 48 45 20 56 41 52 49 41 42 4C 45 |ISE THE VARIABLE| 00001300: 20 4F 52 20 53 54 41 54 45 4D 45 4E 54 20 4E 55 | OR STATEMENT NU| 00001310: 4D 42 45 52 20 49 53 20 41 44 44 45 44 20 54 4F |MBER IS ADDED TO| 00001320: 20 54 48 45 20 4C 49 53 54 20 4F 46 20 4E 41 4D | THE LIST OF NAM| 00001330: 45 53 2E 20 D4 48 45 20 53 54 52 49 4E 47 20 41 |ES. .HE STRING A| 00001340: 52 52 41 59 20 CE CD 24 20 43 4F 4E 54 41 49 4E |RRAY ..$ CONTAIN| 00001350: 53 20 41 4C 4C 20 54 48 45 20 4E 41 4D 45 53 20 |S ALL THE NAMES | 00001360: 41 4E 44 20 52 45 46 45 52 45 4E 43 45 44 20 4C |AND REFERENCED L| 00001370: 49 4E 45 20 4E 55 4D 42 45 52 53 20 28 4D 41 58 |INE NUMBERS (MAX| 00001380: 49 4D 55 4D 20 32 30 30 29 20 45 4E 43 4F 55 4E |IMUM 200) ENCOUN| 00001390: 54 45 52 45 44 20 49 4E 20 54 48 45 20 50 52 4F |TERED IN THE PRO| 000013A0: 47 52 41 4D 2E 20 C1 52 52 41 59 20 CF C4 20 49 |GRAM. .RRAY .. I| 000013B0: 53 20 41 20 50 4F 49 4E 54 45 52 20 41 52 52 41 |S A POINTER ARRA| 000013C0: 59 20 54 4F 20 54 48 45 20 4E 41 4D 45 53 20 49 |Y TO THE NAMES I| 000013D0: 4E 20 CE CD 24 2E 20 D4 48 45 20 46 49 52 53 54 |N ..$. .HE FIRST| 000013E0: 20 49 54 45 4D 20 4F 46 20 CF C4 20 22 50 4F 49 | ITEM OF .. "POI| 000013F0: 4E 54 53 20 54 4F 22 20 54 48 45 20 4C 4F 57 45 |NTS TO" THE LOWE| 00001400: 53 54 20 49 54 45 4D 20 41 4C 50 48 41 42 45 54 |ST ITEM ALPHABET| 00001410: 49 43 41 4C 4C 59 20 49 4E 20 54 48 45 20 41 52 |ICALLY IN THE AR| 00001420: 52 41 59 20 CE CD 24 2E 20 C1 52 52 41 59 20 CF |RAY ..$. .RRAY .| 00001430: C4 20 41 4C 4C 4F 57 53 20 4E 41 4D 45 53 20 54 |. ALLOWS NAMES T| 00001440: 4F 20 42 45 20 4B 45 50 54 20 49 4E 20 53 45 51 |O BE KEPT IN SEQ| 00001450: 55 45 4E 43 45 20 57 49 54 48 4F 55 54 20 4D 4F |UENCE WITHOUT MO| 00001460: 56 49 4E 47 20 53 54 52 49 4E 47 53 20 41 42 4F |VING STRINGS ABO| 00001470: 55 54 20 49 4E 20 4D 45 4D 4F 52 59 20 57 48 49 |UT IN MEMORY WHI| 00001480: 43 48 20 57 4F 55 4C 44 20 43 41 55 53 45 20 4D |CH WOULD CAUSE M| 00001490: 41 4E 59 20 4D 4F 52 45 20 49 4E 53 54 41 4E 43 |ANY MORE INSTANC| 000014A0: 45 53 20 4F 46 20 22 47 41 52 42 41 47 45 20 43 |ES OF "GARBAGE C| 000014B0: 4F 4C 4C 45 43 54 22 2E 20 CB 45 45 50 49 4E 47 |OLLECT". .EEPING| 000014C0: 20 54 48 45 20 4E 41 4D 45 53 20 49 4E 20 4F 52 | THE NAMES IN OR| 000014D0: 44 45 52 20 49 53 20 44 45 53 49 52 41 42 4C 45 |DER IS DESIRABLE| 000014E0: 20 53 4F 20 54 48 41 54 20 41 20 42 49 4E 41 52 | SO THAT A BINAR| 000014F0: 59 20 53 45 41 52 43 48 20 43 41 4E 20 42 45 20 |Y SEARCH CAN BE | 00001500: 55 53 45 44 20 57 48 49 4C 45 20 22 46 49 4C 49 |USED WHILE "FILI| 00001510: 4E 47 22 20 45 41 43 48 20 52 45 46 45 52 45 4E |NG" EACH REFEREN| 00001520: 43 45 20 57 49 54 48 20 41 20 43 4F 4E 53 49 44 |CE WITH A CONSID| 00001530: 45 52 41 42 4C 45 20 54 49 4D 45 20 53 41 56 49 |ERABLE TIME SAVI| 00001540: 4E 47 2E 0D 20 20 20 20 20 C1 4E 4F 54 48 45 52 |NG.. .NOTHER| 00001550: 20 41 52 52 41 59 20 55 53 45 44 20 42 59 20 54 | ARRAY USED BY T| 00001560: 48 45 20 43 52 4F 53 53 2D 52 45 46 45 52 45 4E |HE CROSS-REFEREN| 00001570: 43 45 20 52 4F 55 54 49 4E 45 53 20 49 53 20 CE |CE ROUTINES IS .| 00001580: C2 25 2E 20 D4 48 49 53 20 41 52 52 41 59 20 43 |.%. .HIS ARRAY C| 00001590: 4F 4E 54 41 49 4E 53 20 54 48 45 20 52 45 46 45 |ONTAINS THE REFE| 000015A0: 52 45 4E 43 49 4E 47 20 4C 49 4E 45 20 4E 55 4D |RENCING LINE NUM| 000015B0: 42 45 52 53 2E 20 C1 20 4D 41 58 49 4D 55 4D 20 |BERS. . MAXIMUM | 000015C0: 4F 46 20 32 30 30 30 20 52 45 46 45 52 45 4E 43 |OF 2000 REFERENC| 000015D0: 45 53 20 41 52 45 20 41 4C 4C 4F 57 45 44 20 41 |ES ARE ALLOWED A| 000015E0: 4E 44 20 45 41 43 48 20 52 45 46 45 52 45 4E 43 |ND EACH REFERENC| 000015F0: 45 20 55 53 45 53 20 54 57 4F 20 49 54 45 4D 53 |E USES TWO ITEMS| 00001600: 20 4F 46 20 CE C2 25 2E 20 D4 48 45 20 46 49 52 | OF ..%. .HE FIR| 00001610: 53 54 20 43 4F 4E 54 41 49 4E 53 20 54 48 45 20 |ST CONTAINS THE | 00001620: 4C 49 4E 45 20 4E 55 4D 42 45 52 20 41 4E 44 20 |LINE NUMBER AND | 00001630: 54 48 45 20 53 45 43 4F 4E 44 20 43 4F 4E 54 41 |THE SECOND CONTA| 00001640: 49 4E 53 20 41 20 50 4F 49 4E 54 45 52 20 54 4F |INS A POINTER TO| 00001650: 20 54 48 45 20 4E 45 58 54 20 49 54 45 4D 20 4F | THE NEXT ITEM O| 00001660: 46 20 CE C2 25 20 41 53 53 4F 43 49 41 54 45 44 |F ..% ASSOCIATED| 00001670: 20 57 49 54 48 20 54 48 45 20 41 46 46 45 43 54 | WITH THE AFFECT| 00001680: 45 44 20 56 41 52 49 41 42 4C 45 3B 20 54 48 45 |ED VARIABLE; THE| 00001690: 20 52 45 46 45 52 45 4E 43 45 53 20 41 52 45 20 | REFERENCES ARE | 000016A0: 43 48 41 49 4E 45 44 20 54 4F 47 45 54 48 45 52 |CHAINED TOGETHER| 000016B0: 2E 20 C1 52 52 41 59 53 20 D3 C3 25 20 41 4E 44 |. .RRAYS ..% AND| 000016C0: 20 C5 C3 25 20 50 4F 49 4E 54 20 54 4F 20 54 48 | ..% POINT TO TH| 000016D0: 45 20 53 54 41 52 54 20 41 4E 44 20 45 4E 44 20 |E START AND END | 000016E0: 50 4F 49 4E 54 53 20 4F 46 20 54 48 45 20 43 48 |POINTS OF THE CH| 000016F0: 41 49 4E 53 20 45 4D 42 45 44 44 45 44 20 49 4E |AINS EMBEDDED IN| 00001700: 20 41 52 52 41 59 20 CE C2 25 2E 20 C9 54 27 53 | ARRAY ..%. .T'S| 00001710: 20 52 41 54 48 45 52 20 43 4F 4D 50 4C 49 43 41 | RATHER COMPLICA| 00001720: 54 45 44 20 42 55 54 20 41 56 4F 49 44 53 20 43 |TED BUT AVOIDS C| 00001730: 52 45 41 54 49 4E 47 20 41 20 48 55 47 45 20 54 |REATING A HUGE T| 00001740: 57 4F 2D 44 49 4D 45 4E 53 49 4F 4E 41 4C 20 41 |WO-DIMENSIONAL A| 00001750: 52 52 41 59 20 57 48 45 52 45 20 4D 4F 53 54 20 |RRAY WHERE MOST | 00001760: 4F 46 20 54 48 45 20 53 50 41 43 45 20 57 4F 55 |OF THE SPACE WOU| 00001770: 4C 44 20 42 45 20 57 41 53 54 45 44 20 41 4E 44 |LD BE WASTED AND| 00001780: 20 54 48 45 20 50 52 4F 47 52 41 4D 53 20 54 48 | THE PROGRAMS TH| 00001790: 41 54 20 43 4F 55 4C 44 20 42 45 20 43 52 4F 53 |AT COULD BE CROS| 000017A0: 53 2D 52 45 46 45 52 45 4E 43 45 44 20 57 4F 55 |S-REFERENCED WOU| 000017B0: 4C 44 20 4E 45 43 45 53 53 41 52 49 4C 59 20 42 |LD NECESSARILY B| 000017C0: 45 20 51 55 49 54 45 20 53 4D 41 4C 4C 2E 0D 0D |E QUITE SMALL...| 000017D0: D5 53 49 4E 47 20 CF 54 48 45 52 20 D0 52 49 4E |.SING .THER .RIN| 000017E0: 54 45 52 53 3A 0D 0D 20 20 20 20 20 22 C2 C1 D3 |TERS:.. "...| 000017F0: C9 C3 2D CC C9 D3 D4 22 20 4E 45 45 44 53 20 4F |..-...." NEEDS O| 00001800: 4E 4C 59 20 4D 49 4E 4F 52 20 4D 4F 44 49 46 49 |NLY MINOR MODIFI| 00001810: 43 41 54 49 4F 4E 53 20 54 4F 20 57 4F 52 4B 20 |CATIONS TO WORK | 00001820: 57 49 54 48 20 4D 4F 53 54 20 50 52 49 4E 54 45 |WITH MOST PRINTE| 00001830: 52 53 2C 20 49 4E 43 4C 55 44 49 4E 47 20 D2 D3 |RS, INCLUDING ..| 00001840: 2D 32 33 32 20 50 52 49 4E 54 45 52 53 2E 20 D4 |-232 PRINTERS. .| 00001850: 48 45 20 CF D0 C5 CE 20 53 54 41 54 45 4D 45 4E |HE .... STATEMEN| 00001860: 54 20 41 54 20 4C 49 4E 45 20 31 38 37 30 20 49 |T AT LINE 1870 I| 00001870: 53 20 4C 4F 47 49 43 41 4C 4C 59 20 56 45 52 59 |S LOGICALLY VERY| 00001880: 20 45 41 52 4C 59 20 49 4E 20 54 48 45 20 50 52 | EARLY IN THE PR| 00001890: 4F 47 52 41 4D 20 42 45 43 41 55 53 45 20 4F 50 |OGRAM BECAUSE OP| 000018A0: 45 4E 49 4E 47 20 41 4E 20 D2 D3 2D 32 33 32 20 |ENING AN ..-232 | 000018B0: 44 45 56 49 43 45 20 43 41 55 53 45 53 20 41 20 |DEVICE CAUSES A | 000018C0: C3 CC D2 2E 20 D4 48 45 20 CF D0 C5 CE 20 53 54 |.... .HE .... ST| 000018D0: 41 54 45 4D 45 4E 54 20 54 48 41 54 20 57 4F 52 |ATEMENT THAT WOR| 000018E0: 4B 53 20 57 49 54 48 20 59 4F 55 52 20 50 52 49 |KS WITH YOUR PRI| 000018F0: 4E 54 45 52 20 4D 41 59 20 42 45 20 53 55 42 53 |NTER MAY BE SUBS| 00001900: 54 49 54 55 54 45 44 2E 20 D4 48 45 20 56 41 52 |TITUTED. .HE VAR| 00001910: 49 41 42 4C 45 20 D4 24 2C 20 44 45 46 49 4E 45 |IABLE .$, DEFINE| 00001920: 44 20 41 54 20 4C 49 4E 45 20 31 39 37 30 2C 20 |D AT LINE 1970, | 00001930: 49 53 20 41 54 20 54 48 45 20 45 4E 44 20 4F 46 |IS AT THE END OF| 00001940: 20 45 56 45 52 59 20 D0 D2 C9 CE D4 23 20 53 54 | EVERY .....# ST| 00001950: 41 54 45 4D 45 4E 54 20 49 4E 20 22 C2 C1 D3 C9 |ATEMENT IN "....| 00001960: C3 2D CC C9 D3 D4 22 20 57 48 49 43 48 20 49 53 |.-...." WHICH IS| 00001970: 20 54 4F 20 44 4F 20 41 20 4C 49 4E 45 2D 46 45 | TO DO A LINE-FE| 00001980: 45 44 2E 20 C9 46 20 59 4F 55 52 20 50 52 49 4E |ED. .F YOUR PRIN| 00001990: 54 45 52 20 52 45 51 55 49 52 45 53 20 41 20 53 |TER REQUIRES A S| 000019A0: 45 50 41 52 41 54 45 20 22 4C 49 4E 45 2D 46 45 |EPARATE "LINE-FE| 000019B0: 45 44 22 20 43 48 41 52 41 43 54 45 52 2C 20 41 |ED" CHARACTER, A| 000019C0: 44 44 49 4E 47 20 49 54 20 54 4F 20 D4 24 20 4D |DDING IT TO .$ M| 000019D0: 41 59 20 42 45 20 45 41 53 49 45 52 20 54 48 41 |AY BE EASIER THA| 000019E0: 4E 20 43 48 41 4E 47 49 4E 47 20 41 4C 4C 20 54 |N CHANGING ALL T| 000019F0: 48 45 20 22 D0 D2 C9 CE D4 23 31 22 20 53 54 41 |HE ".....#1" STA| 00001A00: 54 45 4D 45 4E 54 53 20 54 4F 20 41 20 46 49 4C |TEMENTS TO A FIL| 00001A10: 45 20 4E 55 4D 42 45 52 20 41 42 4F 56 45 20 31 |E NUMBER ABOVE 1| 00001A20: 32 37 2E 20 D3 4F 4D 45 20 50 52 49 4E 54 45 52 |27. .OME PRINTER| 00001A30: 53 20 52 45 51 55 49 52 45 20 41 44 44 49 54 49 |S REQUIRE ADDITI| 00001A40: 4F 4E 41 4C 20 54 49 4D 49 4E 47 20 41 46 54 45 |ONAL TIMING AFTE| 00001A50: 52 20 41 20 4C 49 4E 45 2D 46 45 45 44 20 54 4F |R A LINE-FEED TO| 00001A60: 20 41 56 4F 49 44 20 44 52 4F 50 50 49 4E 47 20 | AVOID DROPPING | 00001A70: 43 48 41 52 41 43 54 45 52 53 20 41 4E 44 20 54 |CHARACTERS AND T| 00001A80: 48 41 54 2C 20 54 4F 4F 2C 20 4D 41 59 20 42 45 |HAT, TOO, MAY BE| 00001A90: 20 41 44 44 45 44 20 54 4F 20 D4 24 2E 20 CE 4F | ADDED TO .$. .O| 00001AA0: 54 45 20 41 4C 53 4F 20 54 48 41 54 20 43 48 41 |TE ALSO THAT CHA| 00001AB0: 52 41 43 54 45 52 53 20 50 45 52 20 4C 49 4E 45 |RACTERS PER LINE| 00001AC0: 20 41 4E 44 20 4C 49 4E 45 53 20 50 45 52 20 50 | AND LINES PER P| 00001AD0: 41 47 45 20 41 52 45 20 56 41 52 49 41 42 4C 45 |AGE ARE VARIABLE| 00001AE0: 53 20 C4 31 20 41 4E 44 20 C4 32 2C 20 52 45 53 |S .1 AND .2, RES| 00001AF0: 50 45 43 54 49 56 45 4C 59 2E 20 D3 45 54 20 54 |PECTIVELY. .ET T| 00001B00: 48 45 4D 20 55 50 20 50 45 52 20 59 4F 55 52 20 |HEM UP PER YOUR | 00001B10: 4E 45 45 44 53 2E 0D 0D 20 20 20 20 20 C9 20 48 |NEEDS... . H| 00001B20: 4F 50 45 20 59 4F 55 20 46 49 4E 44 20 C2 C1 D3 |OPE YOU FIND ...| 00001B30: C9 C3 2D CC C9 D3 D4 20 41 20 55 53 45 46 55 4C |..-.... A USEFUL| 00001B40: 20 50 52 4F 47 52 41 4D 4D 49 4E 47 20 54 4F 4F | PROGRAMMING TOO| 00001B50: 4C 2E 0D 0D 20 20 20 20 20 20 20 20 20 20 20 20 |L... | 00001B60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 DA | .| 00001B70: 45 4B 45 34 0D 0D |EKE4.. |
@^"BASIC-LIST"/ZEKE4.. +++++++++++++
++++++++++++. +
+. + BASIC-LIST +.
+ +. +++++++++
++++++++++++++++.."BASIC-LIST" IS A PROG
RAMMER'S AID THAT PRODUCES EXPANDED-FORM
AT LISTINGS AND CROSS-REFERENCE FOR BASI
C PROGRAMS... BASIC LISTINGS PRODUCE
D BY THE C64 "LIST" COMMAND SEEM TO RESE
MBLE HIEROGLYPHICS, ESPECIALLY WITHIN PR
INT STATEMENTS. THE USE OF CHARACTERS TH
AT PRINT AS GRAPHICS FOR HORIZONTAL AND
VERTICAL TABBING, COLOR, AND INVERSE VID
EO, WHICH MAKE SENSE WHILE WRITING A PRO
GRAM, LEAVE ONE BAFFLED WHEN GOING BACK
MONTHS LATER TO MAKE MODIFICATIONS. AND
IF YOUR PRINTER IS NOT OF THE COMMODORE
VARIETY, YOU CAN STILL PRODUCE PERFECTLY
UNDERSTANDABLE LISTINGS OF YOUR BASIC P
ROGRAMS. I WROTE "BASIC-LIST" TO MAKE MY
LISTINGS A LITTLE MORE INTELLIGIBLE. YO
URS CAN BE, TOO... "BASIC-LIST" DOES
MORE THAN A SIMPLE "LIST", HOWEVER. THE
"CROSS-REFERENCE" OPTION PRODUCES A LIS
T OF ALL STATEMENT NUMBERS REFERENCED BY
A "GOTO" OR "GOSUB", AND A LIST OF ALL
VARIABLES USED IN THE PROGRAM AND WHERE
THEY'RE USED AND ASSIGNED NEW VALUES...A
BOUT THE LISTING:.. THE LISTING PROD
UCED BY "BASIC-LIST" IS MUCH LIKE THAT P
RODUCED BY THE "LIST" COMMAND EXCEPT FOR
SPECIAL CHARACTERS SUCH AS ARE FOUND IN
MANY PRINT STATEMENTS. THE "INVERSE HEA
RT" THAT COMMODORE USERS RECOGNISE AS "C
LEAR THE SCREEN" IS PRINTED BY "BASIC-LI
ST" AS "[CLR]". THE SQUARE BRACKETS INDI
CATE THAT A SPECIAL CHARACTER HAS BEEN T
RANSLATED TO A MORE EASILY UNDERSTOOD MN
EMONIC. MULTIPLE ADJACENT OCCURRENCES OF
A SPECIAL CHARACTER, LET'S SAY THERE AR
E TEN "INVERSE Q'S", WOULD BE LISTED AS
"[10 DOWN]". WHILE THESE MAY SEEM TO BE
TRIVIAL EXAMPLES, THE TRANSLATION OF AN
"INVERSE PI" TO THE MNEMONIC "[YELLOW]"
SAVES TIME WHEN TRYING TO UNDERSTAND WHA
T THE PRINT STATEMENT ACCOMPLISHES...THE
CROSS-REFERENCE:.. THE CROSS-REFERE
NCE LISTING, WHICH IS OPTIONAL, HAS TWO
SECTIONS. THE FIRST SECTION LISTS BASIC
LINE NUMBERS AND WHERE THEY ARE REFERENC
ED. ONLY LINE NUMBERS WHICH HAVE A REFER
ENCE BY THE USE OF GOTO AND GOSUB (AND T
HE IMPLIED GOTO OF THE WORD THEN) APPEAR
HERE. IF THE LINE NUMBER IS THE TARGET
OF A GOSUB ANYWHERE IN THE PROGRAM, IT I
S FOLLOWED BY AN ASTERISK (*). TO THE RI
GHT OF THE LINE NUMBER IS EVERY REFERENC
E TO IT IN THE PROGRAM. IF THE REFERENCI
NG STATEMENT IS A GOSUB, ITS LINE NUMBER
IS PRECEDED BY AN ASTERISK. THIS SECTIO
N OF THE CROSS-REFERENCE CAN BE AN AID I
N FINDING OFTEN USED SUBROUTINES. REMEMB
ER THAT PLACING THESE NEAR THE BEGINNING
OF THE PROGRAM CAN IMPROVE PROGRAM PERF
ORMANCE... THE SECOND SECTION OF THE
CROSS-REFERENCE INDICATES VARIABLE NAME
S AND THEIR USAGE. THE VARIABLE NAME IS
ON THE LEFT, WITH ARRAYS INDICATED BY TH
EIR SIZE AS DEFINED IN THE ASSOCIATED DI
M STATEMENT. CONTINUING TO THE RIGHT ARE
ALL REFERENCES TO THE VARIABLE, AND, IF
THE REFERENCING STATEMENT ASSIGNS A VAL
UE TO THE VARIABLE, THAT IS ALSO INDICAT
ED BY AN ASTERISK. ONE BENEFIT OF THIS S
ECTION IS TO DETERMINE IF A NAME YOU PRO
POSE TO USE IN THE PROGRAM ALREADY EXIST
S. IT IS ALSO AN AID IN DEBUGGING TO KNO
W WHERE VALUES ARE ASSIGNED TO VARIABLES
...USING "BASIC-LIST":.. "BASIC-LIST
" IS WRITTEN ENTIRELY IN BASIC, SO IS LO
ADED AND RUN. LINE UP THE PAPER IN YOUR
PRINTER SO THE FIRST LINE WILL PRINT ABO
UT ONE HALF INCH BELOW THE PERFORATION A
ND "BASIC-LIST" WILL SKIP OVER PERFORATI
ONS AS IT LISTS. SEE "USING OTHER PRINTE
RS" IF YOUR PAPER LENGTH IS OTHER THAN S
IXTY-SIX LINES. "BASIC-LIST" WILL ASK WH
ETHER THE CROSS-REFERENCE IS REQUIRED. R
ESPOND "Y" FOR "YES" AND "N" FOR "NO". N
OW THE PROGRAM NAME WILL BE REQUESTED.
EXECUTION NOW STARTS BY EXAMINING THE TA
RGET PROGRAM, THEN PRODUCING THE PROGRAM
LISTING, AND FINALLY THE CROSS-REFERENC
E IF IT WAS REQUESTED. THE PROGRAM HAS A
LOT OF STRING-HANDLING TO DO SO YOU CAN
EXPECT AN OCCASIONAL "GARBAGE COLLECT"
DURING WHICH THE PROGRAM MAY APPEAR TO H
AVE STOPPED (USUALLY 20-30 SECONDS). FOR
REFERENCE, THE LINE NUMBER CURRENTLY IN
PROCESS APPEARS AT THE TOP RIGHT CORNER
OF THE SCREEN. THE PROGRAM ENDS WITH TH
E FAMILIAR "READY." PROMPT AND MAY BE RE
RUN TO LIST ANOTHER PROGRAM...HOW IT WOR
KS:.. TWO ARRAYS ARE CREATED, A$, WH
ICH CONTAINS THE EXPANSION OF CHARACTERS
NOT WITHIN QUOTES, AND B$, TO EXPAND CH
ARACTERS THAT ARE WITHIN QUOTES. NOW THE
MAIN LISTING BEGINS. SINCE THE "DATA" F
OR "BASIC-LIST" IS YOUR TOKENIZED BASIC
PROGRAM, EACH TOKEN IS EXPANDED TO ITS E
NGLISH EQUIVALENT USING THE A$ ARRAY, AN
D PRINTED. CHARACTERS WITHIN QUOTES ARE
TRANSLATED THROUGH THE B$ ARRAY.. EA
CH CHARACTER NOT WITHIN QUOTES IS ALSO P
ASSED TO THE CROSS-REFERENCE ROUTINE (LI
NES 990 TO 1610) WHICH BUILDS STRINGS OF
VARIABLE NAMES OR STATEMENT NUMBERS. WH
EN A NAME-STRING IS COMPLETED, A BINARY
SEARCH IS MADE OF PREVIOUS NAMES. IF THE
NAME IS FOUND THE LINE NUMBER OF THE RE
FERENCE IS ADDED TO THE OTHER REFERENCES
, OTHERWISE THE VARIABLE OR STATEMENT NU
MBER IS ADDED TO THE LIST OF NAMES. THE
STRING ARRAY NM$ CONTAINS ALL THE NAMES
AND REFERENCED LINE NUMBERS (MAXIMUM 200
) ENCOUNTERED IN THE PROGRAM. ARRAY OD I
S A POINTER ARRAY TO THE NAMES IN NM$. T
HE FIRST ITEM OF OD "POINTS TO" THE LOWE
ST ITEM ALPHABETICALLY IN THE ARRAY NM$.
ARRAY OD ALLOWS NAMES TO BE KEPT IN SEQ
UENCE WITHOUT MOVING STRINGS ABOUT IN ME
MORY WHICH WOULD CAUSE MANY MORE INSTANC
ES OF "GARBAGE COLLECT". KEEPING THE NAM
ES IN ORDER IS DESIRABLE SO THAT A BINAR
Y SEARCH CAN BE USED WHILE "FILING" EACH
REFERENCE WITH A CONSIDERABLE TIME SAVI
NG.. ANOTHER ARRAY USED BY THE CROSS
-REFERENCE ROUTINES IS NB%. THIS ARRAY C
ONTAINS THE REFERENCING LINE NUMBERS. A
MAXIMUM OF 2000 REFERENCES ARE ALLOWED A
ND EACH REFERENCE USES TWO ITEMS OF NB%.
THE FIRST CONTAINS THE LINE NUMBER AND
THE SECOND CONTAINS A POINTER TO THE NEX
T ITEM OF NB% ASSOCIATED WITH THE AFFECT
ED VARIABLE; THE REFERENCES ARE CHAINED
TOGETHER. ARRAYS SC% AND EC% POINT TO TH
E START AND END POINTS OF THE CHAINS EMB
EDDED IN ARRAY NB%. IT'S RATHER COMPLICA
TED BUT AVOIDS CREATING A HUGE TWO-DIMEN
SIONAL ARRAY WHERE MOST OF THE SPACE WOU
LD BE WASTED AND THE PROGRAMS THAT COULD
BE CROSS-REFERENCED WOULD NECESSARILY B
E QUITE SMALL...USING OTHER PRINTERS:..
"BASIC-LIST" NEEDS ONLY MINOR MODIFI
CATIONS TO WORK WITH MOST PRINTERS, INCL
UDING RS-232 PRINTERS. THE OPEN STATEMEN
T AT LINE 1870 IS LOGICALLY VERY EARLY I
N THE PROGRAM BECAUSE OPENING AN RS-232
DEVICE CAUSES A CLR. THE OPEN STATEMENT
THAT WORKS WITH YOUR PRINTER MAY BE SUBS
TITUTED. THE VARIABLE T$, DEFINED AT LIN
E 1970, IS AT THE END OF EVERY PRINT# ST
ATEMENT IN "BASIC-LIST" WHICH IS TO DO A
LINE-FEED. IF YOUR PRINTER REQUIRES A S
EPARATE "LINE-FEED" CHARACTER, ADDING IT
TO T$ MAY BE EASIER THAN CHANGING ALL T
HE "PRINT#1" STATEMENTS TO A FILE NUMBER
ABOVE 127. SOME PRINTERS REQUIRE ADDITI
ONAL TIMING AFTER A LINE-FEED TO AVOID D
ROPPING CHARACTERS AND THAT, TOO, MAY BE
ADDED TO T$. NOTE ALSO THAT CHARACTERS
PER LINE AND LINES PER PAGE ARE VARIABLE
S D1 AND D2, RESPECTIVELY. SET THEM UP P
ER YOUR NEEDS... I HOPE YOU FIND BAS
IC-LIST A USEFUL PROGRAMMING TOOL...
ZEKE4..
> CLICK IMAGE PREVIEW FOR FULL MODAL