DFCALC
FILE INFORMATION
FILENAME(S): DFCALC
FILE TYPE(S): PRG
FILE SIZE: 17.4K
FIRST SEEN: 2025-11-30 18:12:44
APPEARS ON: 1 disk(s)
FILE HASH
1b89788dad0854ac427a2903ae9da3c019f72e6d972ada5c8ab0fb8f349b65fd
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| RERUN PROD PAK | DFCALC | PRG | Sailor, Ganheden | 12 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 22 08 0A 00 8B 46 4C B2 30 A7 46 4C B2 31 |.."....FL.0.FL.1|
00000010: 3A 93 22 44 50 5D 20 44 4F 53 35 2E 31 22 2C 38 |:."DP] DOS5.1",8|
00000020: 2C 31 00 4B 08 0B 00 8B 46 4C B2 31 A7 46 4C B2 |,1.K....FL.1.FL.|
00000030: 32 3A 9E 35 32 32 32 34 3A 8F 20 28 43 29 20 42 |2:.52224:. (C) B|
00000040: 59 20 43 4F 4D 4D 4F 44 4F 52 45 00 74 08 58 02 |Y COMMODORE.t.X.|
00000050: 81 45 B2 30 A4 32 34 3A 97 35 34 32 37 32 AA 45 |.E.0.24:.54272.E|
00000060: 2C 30 3A 82 3A 97 35 34 32 39 36 2C 31 35 3A 89 |,0:.:.54296,15:.|
00000070: 33 30 30 30 00 A1 08 5A 02 97 35 34 32 37 37 2C |3000...Z..54277,|
00000080: 35 38 3A 97 35 34 32 37 38 2C 31 36 3A 97 35 34 |58:.54278,16:.54|
00000090: 32 37 33 2C 33 35 3A 97 35 34 32 37 32 2C 31 33 |273,35:.54272,13|
000000A0: 34 00 C6 08 5C 02 97 35 34 32 37 36 2C 33 33 3A |4...\..54276,33:|
000000B0: 81 45 B2 31 A4 31 30 30 3A 82 3A 97 35 34 32 37 |.E.1.100:.:.5427|
000000C0: 36 2C 31 36 3A 8E 00 05 09 B8 0B 8F 20 44 46 43 |6,16:....... DFC|
000000D0: 41 4C 43 20 31 2E 35 41 20 50 52 4F 47 52 41 4D |ALC 1.5A PROGRAM|
000000E0: 20 46 4F 52 20 44 41 54 41 46 49 4C 45 20 42 59 | FOR DATAFILE BY|
000000F0: 20 4D 49 4B 45 20 4B 4F 4E 53 48 41 4B 20 28 43 | MIKE KONSHAK (C|
00000100: 29 31 39 38 36 00 30 09 BC 0B 97 35 33 32 38 31 |)1986.0....53281|
00000110: 2C 30 3A 97 35 33 32 38 30 2C 30 3A 99 22 9E 22 |,0:.53280,0:."."|
00000120: 3A 9F 34 2C 34 3A 9F 33 2C 33 3A 8D 34 30 30 30 |:.4,4:.3,3:.4000|
00000130: 00 44 09 BE 0B 8F 2D 2D 2D 2D 44 49 4D 20 41 52 |.D....----DIM AR|
00000140: 52 41 59 53 00 69 09 C0 0B 42 24 B2 C7 28 33 32 |RAYS.i...B$..(32|
00000150: 29 3A 50 49 B2 33 2E 31 34 31 35 39 32 36 35 3A |):PI.3.14159265:|
00000160: 43 52 24 B2 C7 28 31 33 29 00 85 09 C2 0B 81 49 |CR$..(13)......I|
00000170: B2 31 A4 31 30 30 3A 53 24 B2 53 24 AA C7 28 33 |.1.100:S$.S$..(3|
00000180: 32 29 3A 82 49 00 B9 09 C4 0B 86 20 46 24 28 33 |2):.I...... F$(3|
00000190: 31 29 2C 54 25 28 33 31 29 2C 4C 25 28 33 31 29 |1),T%(31),L%(31)|
000001A0: 2C 52 45 43 24 28 33 31 29 2C 53 55 4D 28 31 37 |,REC$(31),SUM(17|
000001B0: 29 2C 42 55 46 28 31 37 29 00 EB 09 C6 0B 86 20 |),BUF(17)...... |
000001C0: 46 28 31 37 29 2C 43 24 28 31 37 2C 31 35 29 2C |F(17),C$(17,15),|
000001D0: 50 43 28 31 38 29 2C 54 54 24 28 35 29 2C 48 43 |PC(18),TT$(5),HC|
000001E0: 24 28 31 37 29 3A 89 33 30 34 34 00 F8 09 C8 0B |$(17):.3044.....|
000001F0: 8F 2D 2D 2D 2D 47 45 54 00 0C 0A CA 0B A1 41 24 |.----GET......A$|
00000200: 3A 8B 41 24 B2 22 22 A7 33 30 31 38 00 12 0A CC |:.A$."".3018....|
00000210: 0B 8E 00 22 0A CE 0B 8F 2D 2D 2D 2D 50 52 4F 4D |..."....----PROM|
00000220: 50 54 00 61 0A D0 0B 99 22 99 11 20 50 52 45 53 |PT.a....".. PRES|
00000230: 53 20 12 05 43 99 92 4F 4E 54 20 12 05 52 99 92 |S ..C..ONT ..R..|
00000240: 45 44 4F 20 12 05 53 99 92 54 41 52 54 20 12 05 |EDO ..S..TART ..|
00000250: 4A 99 92 55 4D 50 20 12 05 45 99 92 58 49 54 9E |J..UMP ..E..XIT.|
00000260: 22 00 6D 0A D2 0B 8D 33 30 31 38 3A 8E 00 92 0A |".m....3018:....|
00000270: D4 0B 8F 2D 2D 2D 2D 43 4C 45 41 52 20 54 4F 50 |...----CLEAR TOP|
00000280: 20 31 33 20 52 4F 57 53 20 4F 46 20 53 43 52 45 | 13 ROWS OF SCRE|
00000290: 45 4E 00 B1 0A D6 0B 81 5A B2 31 A4 31 33 3A 97 |EN......Z.1.13:.|
000002A0: 37 38 31 2C 5A 3A 9E 35 39 39 30 33 3A 82 5A 3A |781,Z:.59903:.Z:|
000002B0: 8E 00 C5 0A D8 0B 8F 2D 2D 2D 2D 44 49 53 4B 20 |.......----DISK |
000002C0: 45 52 52 4F 52 00 F2 0A DA 0B 84 31 35 2C 45 4E |ERROR......15,EN|
000002D0: 2C 45 4D 24 2C 45 54 2C 45 53 3A 8B 28 45 4E B3 |,EM$,ET,ES:.(EN.|
000002E0: 32 30 29 B0 28 45 4E B2 36 32 29 A7 45 54 B2 30 |20).(EN.62).ET.0|
000002F0: 3A 8E 00 26 0B DC 0B 99 22 11 20 12 96 44 49 53 |:..&....". ..DIS|
00000300: 4B 20 45 52 52 4F 52 92 22 45 4E 22 9D 2C 20 22 |K ERROR."EN"., "|
00000310: 45 4D 24 22 2C 22 45 54 22 9D 2C 22 45 53 22 9E |EM$","ET".,"ES".|
00000320: 22 3A 45 54 B2 38 00 4F 0B DE 0B 99 22 11 20 99 |":ET.8.O....". .|
00000330: 50 52 45 53 53 20 12 05 41 4E 59 20 4B 45 59 99 |PRESS ..ANY KEY.|
00000340: 92 20 54 4F 20 43 4F 4E 54 49 4E 55 45 9E 22 00 |. TO CONTINUE.".|
00000350: 62 0B E0 0B 8D 33 30 31 38 3A A0 35 3A A0 31 35 |b....3018:.5:.15|
00000360: 3A 8E 00 79 0B E2 0B 8F 2D 2D 2D 2D 53 54 41 52 |:..y....----STAR|
00000370: 54 49 4E 47 20 4D 45 4E 55 00 AB 0B E4 0B 99 22 |TING MENU......"|
00000380: 9E 93 20 12 20 20 43 41 4C 43 55 4C 41 54 45 44 |.. . CALCULATED|
00000390: 20 52 45 50 4F 52 54 53 20 50 52 4F 47 52 41 4D | REPORTS PROGRAM|
000003A0: 20 52 45 56 20 31 2E 35 41 20 22 00 DC 0B E5 0B | REV 1.5A ".....|
000003B0: 99 22 20 9E 12 20 20 43 4F 50 59 52 49 47 48 54 |." .. COPYRIGHT|
000003C0: 20 28 43 29 31 39 38 36 20 42 59 20 4D 49 4B 45 | (C)1986 BY MIKE|
000003D0: 20 4B 4F 4E 53 48 41 4B 20 20 20 22 00 08 0C E6 | KONSHAK "....|
000003E0: 0B 99 22 11 11 99 20 20 20 55 53 45 20 20 12 05 |.."... USE ..|
000003F0: 4F 99 92 4C 44 20 50 52 45 44 45 46 49 4E 45 44 |O..LD PREDEFINED|
00000400: 20 46 4F 52 4D 41 54 22 00 27 0C E7 0B 99 22 11 | FORMAT".'....".|
00000410: 20 20 20 20 4F 52 20 20 12 05 4E 99 92 45 57 20 | OR ..N..EW |
00000420: 46 4F 52 4D 41 54 22 00 52 0C E8 0B 99 22 11 20 |FORMAT".R....". |
00000430: 20 20 20 20 20 20 20 12 05 24 99 92 20 44 49 53 | ..$.. DIS|
00000440: 4B 20 44 49 52 45 43 54 4F 52 59 20 12 05 34 99 |K DIRECTORY ..4.|
00000450: 92 22 00 73 0C E9 0B 99 22 11 20 20 20 20 20 20 |.".s....". |
00000460: 20 20 12 05 51 99 92 55 49 54 20 50 52 4F 47 52 | ..Q..UIT PROGR|
00000470: 41 4D 22 00 89 0C EA 0B 99 22 11 20 54 52 41 4E |AM"......". TRAN|
00000480: 53 46 45 52 20 54 4F 3A 22 00 AD 0C EB 0B 99 22 |SFER TO:"......"|
00000490: 11 20 20 20 20 20 20 20 20 12 05 44 99 92 20 44 |. ..D.. D|
000004A0: 41 54 41 46 49 4C 45 20 44 42 4D 53 22 00 E0 0C |ATAFILE DBMS"...|
000004B0: EC 0B 99 22 11 20 20 20 20 20 20 20 20 12 05 50 |...". ..P|
000004C0: 99 92 20 44 46 50 52 49 4E 54 20 52 45 50 4F 52 |.. DFPRINT REPOR|
000004D0: 54 53 2D 4C 49 53 54 53 2D 4C 41 42 45 4C 53 22 |TS-LISTS-LABELS"|
000004E0: 00 13 0D EE 0B 99 22 11 20 9E 12 20 20 20 20 20 |......". .. |
000004F0: 20 50 52 45 53 53 20 54 48 45 20 41 50 50 52 4F | PRESS THE APPRO|
00000500: 50 52 49 41 54 45 20 4B 45 59 20 20 20 20 20 20 |PRIATE KEY |
00000510: 20 92 22 00 32 0D F0 0B 8D 33 30 31 38 3A 8B 41 | .".2....3018:.A|
00000520: 24 B2 22 51 22 A7 A0 33 3A A0 34 3A 99 22 93 22 |$."Q"..3:.4:."."|
00000530: 3A 80 00 48 0D F2 0B 8B 41 24 B2 22 4E 22 A7 4B |:..H....A$."N".K|
00000540: B2 31 3A 89 33 30 36 38 00 7C 0D F3 0B 8B 41 24 |.1:.3068.|....A$|
00000550: B2 22 44 22 A7 99 22 93 90 4C 4F 41 44 22 C7 28 |."D".."..LOAD".(|
00000560: 33 34 29 22 44 41 54 41 46 49 4C 45 22 C7 28 33 |34)"DATAFILE".(3|
00000570: 34 29 22 2C 38 22 3A 89 33 30 36 34 00 97 0D F4 |4)",8":.3064....|
00000580: 0B 8B 41 24 B2 22 4F 22 A7 4B B2 32 3A 46 4C B2 |..A$."O".K.2:FL.|
00000590: 30 3A 89 33 30 36 38 00 CA 0D F5 0B 8B 41 24 B2 |0:.3068......A$.|
000005A0: 22 50 22 A7 99 22 93 90 4C 4F 41 44 22 C7 28 33 |"P".."..LOAD".(3|
000005B0: 34 29 22 44 46 50 52 49 4E 54 22 C7 28 33 34 29 |4)"DFPRINT".(34)|
000005C0: 22 2C 38 22 3A 89 33 30 36 34 00 E9 0D F6 0B 8B |",8":.3064......|
000005D0: 41 24 B2 22 24 22 B0 41 24 B2 22 34 22 A7 8D 33 |A$."$".A$."4"..3|
000005E0: 39 34 30 3A 89 33 30 34 34 00 F8 0D F7 0B 8D 36 |940:.3044......6|
000005F0: 30 32 3A 89 33 30 35 36 00 0C 0E F8 0B 99 3A 99 |02:.3056......:.|
00000600: 3A 99 3A 99 3A 99 22 52 55 4E 9E 22 00 40 0E F9 |:.:.:."RUN.".@..|
00000610: 0B 97 36 33 31 2C 31 39 3A 97 36 33 32 2C 31 33 |..631,19:.632,13|
00000620: 3A 97 36 33 33 2C 31 33 3A 97 36 33 34 2C 31 33 |:.633,13:.634,13|
00000630: 3A 97 36 33 35 2C 31 33 3A 97 36 33 36 2C 31 33 |:.635,13:.636,13|
00000640: 00 4F 0E FA 0B 97 31 39 38 2C 36 3A A2 3A 80 00 |.O....198,6:.:..|
00000650: 7B 0E FB 0B 8F 2D 2D 2D 2D 4F 50 45 4E 20 44 41 |{....----OPEN DA|
00000660: 54 41 46 49 4C 45 2C 20 52 45 41 44 20 46 49 4C |TAFILE, READ FIL|
00000670: 45 20 53 54 52 55 43 54 55 52 45 00 B7 0E FC 0B |E STRUCTURE.....|
00000680: 99 22 99 93 20 41 56 41 49 4C 41 42 4C 45 20 44 |.".. AVAILABLE D|
00000690: 41 54 41 46 49 4C 45 20 52 45 43 4F 52 44 20 46 |ATAFILE RECORD F|
000006A0: 49 4C 45 53 20 41 52 45 3A 9E 11 22 3A 40 22 24 |ILES ARE:..":@"$|
000006B0: 30 3A 44 46 5D 2A 22 00 DF 0E 00 0C 99 22 99 20 |0:DF]*"......". |
000006C0: 4E 41 4D 45 20 4F 46 20 44 41 54 41 46 49 4C 45 |NAME OF DATAFILE|
000006D0: 20 52 45 43 4F 52 44 20 46 49 4C 45 3F 9E 22 00 | RECORD FILE?.".|
000006E0: 02 0F 02 0C 99 22 20 3F 20 22 4E 46 24 3A 85 22 |....." ? "NF$:."|
000006F0: 91 20 22 3B 41 24 3A 8B 41 24 B2 22 22 A7 33 30 |. ";A$:.A$."".30|
00000700: 34 34 00 13 0F 04 0C 8B 41 24 B2 4E 46 24 A7 33 |44......A$.NF$.3|
00000710: 30 39 36 00 1E 0F 06 0C 4E 46 24 B2 41 24 00 57 |096.....NF$.A$.W|
00000720: 0F 08 0C 9F 31 35 2C 38 2C 31 35 3A 9F 35 2C 38 |....15,8,15:.5,8|
00000730: 2C 35 2C 22 30 3A 44 46 5D 20 22 AA 4E 46 24 AA |,5,"0:DF] ".NF$.|
00000740: 22 2C 53 2C 52 22 3A 8D 33 30 33 34 3A 8B 45 54 |",S,R":.3034:.ET|
00000750: B2 38 A7 33 30 34 34 00 6E 0F 0A 0C 8B 45 4E B2 |.8.3044.n....EN.|
00000760: 36 32 A7 8D 33 30 33 36 3A 89 33 30 34 34 00 8C |62..3036:.3044..|
00000770: 0F 0C 0C 84 35 2C 52 2C 46 2C 58 3A 8D 33 30 33 |....5,R,F,X:.303|
00000780: 34 3A 8B 45 54 B2 38 A7 33 30 34 34 00 BA 0F 10 |4:.ET.8.3044....|
00000790: 0C 81 4E B2 31 A4 46 3A 84 35 2C 46 24 28 4E 29 |..N.1.F:.5,F$(N)|
000007A0: 2C 4C 25 28 4E 29 3A 82 4E 3A 8D 33 30 33 34 3A |,L%(N):.N:.3034:|
000007B0: 8B 45 54 B2 38 A7 33 30 34 34 00 C5 0F 12 0C A0 |.ET.8.3044......|
000007C0: 35 3A A0 31 35 00 D3 0F 14 0C 8B 4B B2 32 A7 33 |5:.15......K.2.3|
000007D0: 33 38 36 00 EE 0F 16 0C 8F 2D 2D 2D 2D 44 45 46 |386......----DEF|
000007E0: 49 4E 45 20 4E 45 57 20 46 4F 52 4D 41 54 00 23 |INE NEW FORMAT.#|
000007F0: 10 18 0C 43 4B B2 31 3A 99 22 9E 93 20 12 20 20 |...CK.1:.".. . |
00000800: 20 20 44 45 46 49 4E 45 20 52 45 50 4F 52 54 20 | DEFINE REPORT |
00000810: 48 45 41 44 45 52 20 46 4F 52 4D 41 54 20 20 20 |HEADER FORMAT |
00000820: 20 92 22 00 4D 10 1A 0C 99 22 99 11 20 45 4E 54 | .".M....".. ENT|
00000830: 45 52 20 57 49 44 54 48 20 4F 46 20 52 45 50 4F |ER WIDTH OF REPO|
00000840: 52 54 20 28 31 33 36 20 4D 41 58 29 22 00 80 10 |RT (136 MAX)"...|
00000850: 1C 0C 99 22 9E 20 3F 20 30 9D 9D 22 50 57 3A 85 |...". ? 0.."PW:.|
00000860: 22 91 20 22 3B 50 57 3A 8B 50 57 B1 31 33 36 A7 |". ";PW:.PW.136.|
00000870: 99 22 91 91 91 91 91 91 91 22 3A 89 33 30 39 38 |.".......":.3098|
00000880: 00 AD 10 1E 0C 99 22 99 11 20 45 4E 54 45 52 20 |......".. ENTER |
00000890: 4E 55 4D 42 45 52 20 4F 46 20 54 49 54 4C 45 20 |NUMBER OF TITLE |
000008A0: 4C 49 4E 45 53 20 49 4E 20 54 48 45 22 00 D1 10 |LINES IN THE"...|
000008B0: 20 0C 99 22 20 52 45 50 4F 52 54 20 48 45 41 44 | .." REPORT HEAD|
000008C0: 45 52 20 28 34 20 4C 49 4E 45 53 20 4D 41 58 29 |ER (4 LINES MAX)|
000008D0: 22 00 FE 10 22 0C 99 22 9E 20 20 22 4E 4C 3A 85 |"..."..". "NL:.|
000008E0: 22 91 20 22 3B 4E 4C 3A 8B 4E 4C B1 34 A7 99 22 |". ";NL:.NL.4.."|
000008F0: 91 91 91 91 91 91 91 22 3A 89 33 31 30 32 00 22 |.......":.3102."|
00000900: 11 24 0C 8B 4E 4C B2 30 A7 54 54 24 28 31 29 B2 |.$..NL.0.TT$(1).|
00000910: 22 99 4E 4F 20 54 49 54 4C 45 53 22 3A 89 33 31 |".NO TITLES":.31|
00000920: 31 38 00 4F 11 26 0C 99 3A 81 4A B2 31 A4 4E 4C |18.O.&..:.J.1.NL|
00000930: 3A 99 22 99 20 12 54 49 54 4C 45 20 23 9E 22 4A |:.". .TITLE #."J|
00000940: 3A 99 22 20 3F 20 3E 9D 22 54 54 24 28 4A 29 00 |:." ? >."TT$(J).|
00000950: 67 11 28 0C 8B C3 28 54 54 24 28 4A 29 29 B1 33 |g.(...(TT$(J)).3|
00000960: 37 A7 99 22 91 22 3B 00 8E 11 2A 0C 85 22 91 20 |7..".";...*..". |
00000970: 22 3B 54 54 24 28 4A 29 3A 8B 54 54 24 28 4A 29 |";TT$(J):.TT$(J)|
00000980: B2 22 22 A7 54 54 24 28 4A 29 B2 22 3E 22 00 95 |."".TT$(J).">"..|
00000990: 11 2C 0C 82 4A 00 AC 11 2E 0C 8D 33 30 32 34 3A |.,..J......3024:|
000009A0: 8B 41 24 B2 22 45 22 A7 33 30 34 34 00 BD 11 30 |.A$."E".3044...0|
000009B0: 0C 8B 41 24 B2 22 4A 22 A7 33 33 38 36 00 D5 11 |..A$."J".3386...|
000009C0: 32 0C 8B 41 24 B2 22 52 22 B0 41 24 B2 22 53 22 |2..A$."R".A$."S"|
000009D0: A7 33 30 39 36 00 FD 11 34 0C 8F 2D 2D 2D 2D 50 |.3096...4..----P|
000009E0: 52 49 4E 54 20 46 49 45 4C 44 20 49 4E 46 4F 20 |RINT FIELD INFO |
000009F0: 46 4F 52 20 52 45 46 45 52 45 4E 43 45 00 22 12 |FOR REFERENCE.".|
00000A00: 36 0C 99 22 93 22 3A 81 49 B2 31 A4 28 32 32 AB |6..".":.I.1.(22.|
00000A10: B5 28 46 AD 32 29 29 3A 99 C7 28 31 37 29 3B 3A |.(F.2)):..(17);:|
00000A20: 82 49 00 4D 12 38 0C 99 22 99 20 12 46 49 45 4C |.I.M.8..". .FIEL|
00000A30: 44 20 4E 41 4D 45 28 4C 45 4E 47 54 48 29 20 44 |D NAME(LENGTH) D|
00000A40: 41 54 41 20 46 4F 52 20 9E 22 4E 46 24 00 6F 12 |ATA FOR ."NF$.o.|
00000A50: 3A 0C 4F 45 B2 31 3A 8B 28 46 AD 32 29 B2 B5 28 |:.OE.1:.(F.2)..(|
00000A60: 46 AD 32 29 A7 4F 45 B2 30 3A 89 33 31 33 32 00 |F.2).OE.0:.3132.|
00000A70: 88 12 3C 0C 4F 46 B2 B5 28 46 AD 32 29 3A 81 49 |..<.OF..(F.2):.I|
00000A80: B2 31 A4 4F 46 AA 4F 45 00 A3 12 3E 0C 99 22 20 |.1.OF.OE...>.." |
00000A90: 05 12 22 49 22 92 99 22 46 24 28 49 29 4C 25 28 |.."I".."F$(I)L%(|
00000AA0: 49 29 3B 00 B2 12 40 0C 8B 4F 45 B2 31 A7 33 31 |I);...@..OE.1.31|
00000AB0: 34 30 00 DE 12 42 0C 99 A3 31 39 29 22 12 05 22 |40...B...19)".."|
00000AC0: 49 AA 4F 46 22 92 99 22 46 24 28 49 AA 4F 46 29 |I.OF".."F$(I.OF)|
00000AD0: 4C 25 28 49 AA 4F 46 29 3A 89 33 31 34 32 00 12 |L%(I.OF):.3142..|
00000AE0: 13 44 0C 8B 49 AA 4F 46 B3 46 A7 99 A3 31 39 29 |.D..I.OF.F...19)|
00000AF0: 22 05 12 22 49 AA 4F 46 AA 31 22 92 99 22 46 24 |".."I.OF.1".."F$|
00000B00: 28 49 AA 4F 46 AA 31 29 4C 25 28 49 AA 4F 46 AA |(I.OF.1)L%(I.OF.|
00000B10: 31 29 00 19 13 46 0C 82 49 00 36 13 48 0C 8F 2D |1)...F..I.6.H..-|
00000B20: 2D 2D 2D 45 4E 54 45 52 20 43 4F 4C 55 4D 4E 41 |---ENTER COLUMNA|
00000B30: 52 20 44 41 54 41 00 68 13 4A 0C 99 22 13 9E 20 |R DATA.h.J..".. |
00000B40: 12 20 20 20 20 44 45 46 49 4E 45 20 52 45 50 4F |. DEFINE REPO|
00000B50: 52 54 20 43 4F 4C 55 4D 4E 41 52 20 46 4F 52 4D |RT COLUMNAR FORM|
00000B60: 41 54 20 20 20 20 92 22 00 72 13 4C 0C 8D 33 30 |AT .".r.L..30|
00000B70: 33 30 00 A0 13 4E 0C 99 22 99 13 11 11 20 43 41 |30...N..".... CA|
00000B80: 4C 43 55 4C 41 54 45 20 54 48 45 20 54 4F 54 41 |LCULATE THE TOTA|
00000B90: 4C 20 4C 45 4E 47 54 48 20 4F 46 20 41 4C 4C 22 |L LENGTH OF ALL"|
00000BA0: 00 CD 13 50 0C 99 22 20 46 49 45 4C 44 53 20 54 |...P.." FIELDS T|
00000BB0: 4F 20 42 45 20 49 4E 43 4C 55 44 45 44 20 49 4E |O BE INCLUDED IN|
00000BC0: 20 54 48 45 20 52 45 50 4F 52 54 2E 22 00 F4 13 | THE REPORT."...|
00000BD0: 52 0C 99 22 20 41 4C 4C 4F 57 49 4E 47 20 32 20 |R.." ALLOWING 2 |
00000BE0: 53 50 41 43 45 53 20 42 45 54 57 45 45 4E 20 45 |SPACES BETWEEN E|
00000BF0: 41 43 48 22 00 04 14 54 0C 99 22 20 43 4F 4C 55 |ACH"...T.." COLU|
00000C00: 4D 4E 2E 22 00 34 14 56 0C 99 22 11 20 45 4E 54 |MN.".4.V..". ENT|
00000C10: 45 52 20 54 48 45 20 4E 55 4D 42 45 52 20 4F 46 |ER THE NUMBER OF|
00000C20: 20 43 4F 4C 55 4D 4E 53 20 49 4E 20 52 45 50 4F | COLUMNS IN REPO|
00000C30: 52 54 2E 22 00 4D 14 58 0C 99 22 20 28 31 36 20 |RT.".M.X.." (16 |
00000C40: 43 4F 4C 55 4D 4E 53 20 4D 41 58 29 22 00 73 14 |COLUMNS MAX)".s.|
00000C50: 5A 0C 99 22 9E 20 3F 20 30 9D 9D 22 4E 43 3A 85 |Z..". ? 0.."NC:.|
00000C60: 22 91 20 22 3B 4E 43 3A 8B 4E 43 B1 31 36 A7 33 |". ";NC:.NC.16.3|
00000C70: 31 34 38 00 8A 14 5C 0C 8D 33 30 32 34 3A 8B 41 |148...\..3024:.A|
00000C80: 24 B2 22 45 22 A7 33 30 34 34 00 9B 14 5E 0C 8B |$."E".3044...^..|
00000C90: 41 24 B2 22 4A 22 A7 33 33 38 36 00 AC 14 60 0C |A$."J".3386...`.|
00000CA0: 8B 41 24 B2 22 52 22 A7 33 31 34 38 00 BD 14 62 |.A$."R".3148...b|
00000CB0: 0C 8B 41 24 B2 22 53 22 A7 33 30 39 36 00 D6 14 |..A$."S".3096...|
00000CC0: 64 0C 8F 2D 2D 2D 2D 43 4F 4C 55 4D 4E 20 50 4F |d..----COLUMN PO|
00000CD0: 53 49 54 49 4F 4E 00 E8 14 66 0C 81 49 B2 31 A4 |SITION...f..I.1.|
00000CE0: 4E 43 3A 8D 33 30 33 30 00 14 15 68 0C 99 22 99 |NC:.3030...h..".|
00000CF0: 13 11 11 20 45 4E 54 45 52 20 50 4F 53 49 54 49 |... ENTER POSITI|
00000D00: 4F 4E 20 4F 46 20 43 4F 4C 55 4D 4E 20 9E 12 22 |ON OF COLUMN .."|
00000D10: 49 22 11 22 00 41 15 6A 0C 99 22 20 3F 20 30 9D |I".".A.j.." ? 0.|
00000D20: 9D 22 50 43 28 49 29 3A 85 22 91 20 22 3B 50 43 |."PC(I):.". ";PC|
00000D30: 28 49 29 3A 8B 50 43 28 49 29 B2 30 A7 33 31 37 |(I):.PC(I).0.317|
00000D40: 34 00 5B 15 6C 0C 8B 50 43 28 49 29 B1 50 57 A7 |4.[.l..PC(I).PW.|
00000D50: 99 22 91 91 22 3A 89 33 31 37 38 00 62 15 6E 0C |."..":.3178.b.n.|
00000D60: 82 49 00 79 15 70 0C 8D 33 30 32 34 3A 8B 41 24 |.I.y.p..3024:.A$|
00000D70: B2 22 45 22 A7 33 30 34 34 00 8A 15 72 0C 8B 41 |."E".3044...r..A|
00000D80: 24 B2 22 4A 22 A7 33 33 38 36 00 9B 15 74 0C 8B |$."J".3386...t..|
00000D90: 41 24 B2 22 52 22 A7 33 31 37 34 00 AC 15 76 0C |A$."R".3174...v.|
00000DA0: 8B 41 24 B2 22 53 22 A7 33 30 39 36 00 BE 15 78 |.A$."S".3096...x|
00000DB0: 0C 81 49 B2 31 A4 4E 43 3A 8D 33 30 33 30 00 D6 |..I.1.NC:.3030..|
00000DC0: 15 7A 0C 8F 2D 2D 2D 2D 43 4F 4C 55 4D 4E 20 48 |.z..----COLUMN H|
00000DD0: 45 41 44 49 4E 47 00 FE 15 7C 0C 99 22 99 13 11 |EADING...|.."...|
00000DE0: 11 20 45 4E 54 45 52 20 48 45 41 44 49 4E 47 20 |. ENTER HEADING |
00000DF0: 4F 46 20 43 4F 4C 55 4D 4E 20 9E 12 22 49 00 2D |OF COLUMN .."I.-|
00000E00: 16 7E 0C 99 22 99 20 48 45 41 44 49 4E 47 20 49 |.~..". HEADING I|
00000E10: 53 20 9E 12 22 3B 3A 8B 49 B2 4E 43 A7 99 50 57 |S ..";:.I.NC..PW|
00000E20: AB 50 43 28 49 29 3B 3A 89 33 32 30 32 00 43 16 |.PC(I);:.3202.C.|
00000E30: 80 0C 99 50 43 28 49 AA 31 29 AB 32 AB 50 43 28 |...PC(I.1).2.PC(|
00000E40: 49 29 3B 00 5E 16 82 0C 99 22 92 20 99 43 48 41 |I);.^....". .CHA|
00000E50: 52 41 43 54 45 52 53 20 57 49 44 45 11 22 00 90 |RACTERS WIDE."..|
00000E60: 16 84 0C 99 22 9E 20 3F 20 3E 9D 22 48 43 24 28 |....". ? >."HC$(|
00000E70: 49 29 3A 85 22 91 20 22 3B 48 43 24 28 49 29 3A |I):.". ";HC$(I):|
00000E80: 8B 48 43 24 28 49 29 B2 22 52 22 A7 33 31 39 32 |.HC$(I)."R".3192|
00000E90: 00 97 16 86 0C 82 49 00 AE 16 88 0C 8D 33 30 32 |......I......302|
00000EA0: 34 3A 8B 41 24 B2 22 45 22 A7 33 30 34 34 00 BF |4:.A$."E".3044..|
00000EB0: 16 8A 0C 8B 41 24 B2 22 4A 22 A7 33 33 38 36 00 |....A$."J".3386.|
00000EC0: D0 16 8C 0C 8B 41 24 B2 22 52 22 A7 33 31 39 32 |.....A$."R".3192|
00000ED0: 00 E1 16 8E 0C 8B 41 24 B2 22 53 22 A7 33 30 39 |......A$."S".309|
00000EE0: 36 00 FF 16 90 0C 8F 2D 2D 2D 2D 43 4F 4C 55 4D |6......----COLUM|
00000EF0: 4E 20 43 4F 4E 54 45 4E 54 53 20 44 41 54 41 00 |N CONTENTS DATA.|
00000F00: 36 17 92 0C 81 49 B2 31 A4 4E 43 3A 99 22 13 20 |6....I.1.NC:.". |
00000F10: 9E 12 20 46 4F 52 4D 41 54 20 49 4E 50 55 54 20 |.. FORMAT INPUT |
00000F20: 52 4F 55 54 49 4E 45 53 20 46 4F 52 20 43 4F 4C |ROUTINES FOR COL|
00000F30: 55 4D 4E 05 22 49 00 65 17 94 0C 8D 33 30 33 30 |UMN."I.e....3030|
00000F40: 3A 99 22 99 13 11 11 20 45 4E 54 45 52 20 43 4F |:.".... ENTER CO|
00000F50: 4E 54 45 4E 54 53 20 4F 46 20 43 4F 4C 55 4D 4E |NTENTS OF COLUMN|
00000F60: 20 9E 12 22 49 00 90 17 96 0C 99 22 99 11 20 43 | .."I......".. C|
00000F70: 48 4F 4F 53 45 20 12 05 46 99 92 49 45 4C 44 20 |HOOSE ..F..IELD |
00000F80: 44 41 54 41 20 49 4E 20 52 45 43 4F 52 44 53 22 |DATA IN RECORDS"|
00000F90: 00 AC 17 98 0C 99 22 20 20 20 20 20 20 20 20 12 |......" .|
00000FA0: 05 45 99 92 51 55 41 54 49 4F 4E 22 00 D7 17 99 |.E..QUATION"....|
00000FB0: 0C 99 22 20 20 20 20 20 20 20 20 12 05 52 99 92 |.." ..R..|
00000FC0: 55 4E 4E 49 4E 47 20 54 4F 54 41 4C 20 28 42 41 |UNNING TOTAL (BA|
00000FD0: 4C 41 4E 43 45 29 22 00 FA 17 9A 0C 99 22 20 20 |LANCE)"......" |
00000FE0: 20 20 20 20 20 20 12 05 23 99 92 20 52 45 43 4F | ..#.. RECO|
00000FF0: 52 44 20 4E 55 4D 42 45 52 22 00 35 18 9C 0C 99 |RD NUMBER".5....|
00001000: 22 9E 20 3F 20 46 9D 22 C8 28 43 24 28 49 2C 31 |". ? F.".(C$(I,1|
00001010: 29 2C 31 29 3A 85 22 91 20 22 3B 43 24 3A 43 24 |),1):.". ";C$:C$|
00001020: 28 49 2C 31 29 B2 43 24 AA CA 28 43 24 28 49 2C |(I,1).C$..(C$(I,|
00001030: 31 29 2C 32 29 00 60 18 9E 0C 8B 43 24 B2 22 23 |1),2).`....C$."#|
00001040: 22 A7 43 24 28 49 2C 31 29 B2 22 23 22 3A 43 24 |".C$(I,1)."#":C$|
00001050: 28 49 2C 31 33 29 B2 22 4E 22 3A 89 33 33 34 34 |(I,13)."N":.3344|
00001060: 00 71 18 A0 0C 8B 43 24 B2 22 46 22 A7 33 32 33 |.q....C$."F".323|
00001070: 38 00 82 18 A2 0C 8B 43 24 B2 22 45 22 A7 33 32 |8......C$."E".32|
00001080: 36 30 00 93 18 A3 0C 8B 43 24 B2 22 52 22 A7 33 |60......C$."R".3|
00001090: 32 33 39 00 A8 18 A4 0C 99 22 91 91 22 3A 8D 36 |239......"..":.6|
000010A0: 30 32 3A 89 33 32 32 38 00 DC 18 A6 0C 99 22 11 |02:.3228......".|
000010B0: 99 20 57 48 49 43 48 20 46 49 45 4C 44 20 23 20 |. WHICH FIELD # |
000010C0: 57 49 4C 4C 20 42 45 20 49 4E 20 43 4F 4C 55 4D |WILL BE IN COLUM|
000010D0: 4E 20 9E 12 22 49 3A 89 33 32 34 31 00 0A 19 A7 |N .."I:.3241....|
000010E0: 0C 99 22 11 99 20 57 48 49 43 48 20 43 4F 4C 55 |..".. WHICH COLU|
000010F0: 4D 4E 20 23 20 49 53 20 54 4F 20 48 41 56 45 20 |MN # IS TO HAVE |
00001100: 41 20 52 55 4E 4E 49 4E 47 22 00 49 19 A8 0C 99 |A RUNNING".I....|
00001110: 22 20 54 4F 54 41 4C 20 49 4E 20 43 4F 4C 55 4D |" TOTAL IN COLUM|
00001120: 4E 20 12 9E 22 49 22 92 9D 3F 20 99 45 4E 54 45 |N .."I"..? .ENTE|
00001130: 52 20 12 05 31 99 92 20 54 48 52 55 20 12 05 22 |R ..1.. THRU .."|
00001140: 49 AB 31 3A 89 33 32 34 35 00 67 19 A9 0C 99 22 |I.1:.3245.g...."|
00001150: 99 20 45 4E 54 45 52 20 12 05 31 99 92 20 54 48 |. ENTER ..1.. TH|
00001160: 52 55 20 05 12 22 46 00 8A 19 AA 0C 99 22 9E 20 |RU .."F......". |
00001170: 3F 20 22 CA 28 43 24 28 49 2C 31 29 2C 32 2C 32 |? ".(C$(I,1),2,2|
00001180: 29 3A 85 22 91 20 22 3B 43 24 00 B0 19 AB 0C 8B |):.". ";C$......|
00001190: 28 C5 28 43 24 29 B1 46 29 B0 28 C5 28 43 24 29 |(.(C$).F).(.(C$)|
000011A0: B3 B2 30 29 A7 99 22 91 91 22 3A 89 33 32 34 32 |..0).."..":.3242|
000011B0: 00 BA 19 AC 0C 89 33 32 34 37 00 DD 19 AD 0C 99 |......3247......|
000011C0: 22 9E 20 3F 20 22 CA 28 43 24 28 49 2C 31 29 2C |". ? ".(C$(I,1),|
000011D0: 32 2C 32 29 3A 85 22 91 20 22 3B 43 24 00 05 1A |2,2):.". ";C$...|
000011E0: AE 0C 8B 28 C5 28 43 24 29 B1 49 AB 31 29 B0 28 |...(.(C$).I.1).(|
000011F0: C5 28 43 24 29 B3 B2 30 29 A7 99 22 91 91 22 3A |.(C$)..0).."..":|
00001200: 89 33 32 34 35 00 21 1A AF 0C 43 24 28 49 2C 31 |.3245.!...C$(I,1|
00001210: 29 B2 C8 28 43 24 28 49 2C 31 29 2C 31 29 AA 43 |)..(C$(I,1),1).C|
00001220: 24 00 2B 1A B0 0C 89 33 33 32 38 00 42 1A B2 0C |$.+....3328.B...|
00001230: 8D 33 30 32 34 3A 8B 41 24 B2 22 45 22 A7 33 30 |.3024:.A$."E".30|
00001240: 34 34 00 53 1A B4 0C 8B 41 24 B2 22 4A 22 A7 33 |44.S....A$."J".3|
00001250: 33 38 36 00 64 1A B6 0C 8B 41 24 B2 22 52 22 A7 |386.d....A$."R".|
00001260: 33 32 32 30 00 75 1A B8 0C 8B 41 24 B2 22 53 22 |3220.u....A$."S"|
00001270: A7 33 30 39 36 00 9A 1A BA 0C 8F 2D 2D 2D 2D 43 |.3096......----C|
00001280: 4F 4C 55 4D 4E 20 43 4F 4E 54 45 4E 54 53 20 43 |OLUMN CONTENTS C|
00001290: 41 4C 43 55 4C 41 54 49 4F 4E 00 C2 1A BC 0C 45 |ALCULATION.....E|
000012A0: 51 B2 32 3A 4F 50 B2 31 3A 81 4A B2 30 A4 33 3A |Q.2:OP.1:.J.0.3:|
000012B0: 52 53 24 28 4A 29 B2 22 22 3A 82 4A 3A 89 33 32 |RS$(J)."":.J:.32|
000012C0: 36 34 00 D6 1A BE 0C 45 51 B2 45 51 AA 34 3A 4F |64.....EQ.EQ.4:O|
000012D0: 50 B2 4F 50 AA 31 00 0E 1B C0 0C 8D 33 30 33 30 |P.OP.1......3030|
000012E0: 3A 99 22 13 11 11 99 20 45 4E 54 45 52 20 45 51 |:.".... ENTER EQ|
000012F0: 55 41 54 49 4F 4E 20 9E 12 22 4F 50 22 99 92 46 |UATION .."OP"..F|
00001300: 4F 52 20 43 4F 4C 55 4D 4E 20 9E 12 22 49 00 1E |OR COLUMN .."I..|
00001310: 1B C2 0C 8B 4F 50 B1 31 A7 8D 33 33 30 38 00 39 |....OP.1..3308.9|
00001320: 1B C4 0C 99 22 11 20 05 12 52 45 53 9E 92 3D 22 |....". ..RES..="|
00001330: 52 53 24 28 4F 50 AB 31 29 00 5A 1B C6 0C 99 22 |RS$(OP.1).Z...."|
00001340: 11 99 20 4F 50 45 52 41 4E 44 20 58 9E 3F 20 2E |.. OPERAND X.? .|
00001350: 9D 22 43 24 28 49 2C 45 51 29 00 7C 1B C8 0C 99 |."C$(I,EQ).|....|
00001360: 22 99 20 4F 50 45 52 41 54 4F 52 20 9E 3F 20 2E |". OPERATOR .? .|
00001370: 9D 22 43 24 28 49 2C 45 51 AA 31 29 00 9E 1B CA |."C$(I,EQ.1)....|
00001380: 0C 99 22 99 20 4F 50 45 52 41 4E 44 20 59 9E 3F |..". OPERAND Y.?|
00001390: 20 2E 9D 22 43 24 28 49 2C 45 51 AA 32 29 00 BB | .."C$(I,EQ.2)..|
000013A0: 1B CC 0C 99 22 13 11 11 11 11 11 11 22 A3 31 30 |....".......".10|
000013B0: 29 3A 85 43 24 28 49 2C 45 51 29 00 D1 1B CE 0C |):.C$(I,EQ).....|
000013C0: 99 A3 31 30 29 3A 85 43 24 28 49 2C 45 51 AA 31 |..10):.C$(I,EQ.1|
000013D0: 29 00 E7 1B D0 0C 99 A3 31 30 29 3A 85 43 24 28 |).......10):.C$(|
000013E0: 49 2C 45 51 AA 32 29 00 17 1C D2 0C 8D 33 33 30 |I,EQ.2)......330|
000013F0: 38 3A 99 22 11 20 05 52 45 53 3D 22 52 53 24 28 |8:.". .RES="RS$(|
00001400: 4F 50 29 22 9E 22 3A 43 24 28 49 2C 31 34 29 B2 |OP)".":C$(I,14).|
00001410: 52 53 24 28 4F 50 29 00 2E 1C D4 0C 8D 33 30 32 |RS$(OP)......302|
00001420: 34 3A 8B 41 24 B2 22 45 22 A7 33 30 34 34 00 3F |4:.A$."E".3044.?|
00001430: 1C D6 0C 8B 41 24 B2 22 4A 22 A7 33 33 38 36 00 |....A$."J".3386.|
00001440: 50 1C D8 0C 8B 41 24 B2 22 52 22 A7 33 32 32 30 |P....A$."R".3220|
00001450: 00 61 1C DA 0C 8B 41 24 B2 22 53 22 A7 33 30 39 |.a....A$."S".309|
00001460: 36 00 71 1C DC 0C 8B 45 51 B2 31 30 A7 33 33 32 |6.q....EQ.10.332|
00001470: 38 00 A8 1C DE 0C 99 22 91 99 20 45 58 50 41 4E |8......".. EXPAN|
00001480: 44 20 45 51 55 41 54 49 4F 4E 3F 20 12 05 59 99 |D EQUATION? ..Y.|
00001490: 92 20 4F 52 20 12 05 4E 9E 92 20 20 20 20 20 20 |. OR ..N.. |
000014A0: 20 20 20 20 20 20 20 22 00 D0 1C E0 0C 99 22 20 | "......" |
000014B0: 3F 20 4E 9D 22 43 24 28 49 2C 45 51 AA 33 29 3A |? N."C$(I,EQ.3):|
000014C0: 85 22 91 20 22 3B 43 24 28 49 2C 45 51 AA 33 29 |.". ";C$(I,EQ.3)|
000014D0: 00 E9 1C E2 0C 8B 43 24 28 49 2C 45 51 AA 33 29 |......C$(I,EQ.3)|
000014E0: B2 22 59 22 A7 33 32 36 32 00 EF 1C E4 0C 3A 00 |."Y".3262.....:.|
000014F0: 23 1D E6 0C 8B 43 24 28 49 2C 45 51 AA 33 29 B2 |#....C$(I,EQ.3).|
00001500: 22 4E 22 A7 81 4A B2 45 51 AA 34 A4 31 32 3A 43 |"N"..J.EQ.4.12:C|
00001510: 24 28 49 2C 4A 29 B2 22 2E 22 3A 82 4A 3A 89 33 |$(I,J).".":.J:.3|
00001520: 33 32 38 00 33 1D E8 0C 99 22 91 91 22 3A 89 33 |328.3...."..":.3|
00001530: 32 39 34 00 4F 1D EA 0C 8F 2D 2D 2D 2D 43 4F 4D |294.O....----COM|
00001540: 42 49 4E 45 20 4F 50 45 52 41 54 49 4F 4E 53 00 |BINE OPERATIONS.|
00001550: 66 1D EC 0C 91 4F 50 89 33 33 31 30 2C 33 33 31 |f....OP.3310,331|
00001560: 32 2C 33 33 31 38 00 8F 1D EE 0C 52 53 24 28 31 |2,3318.....RS$(1|
00001570: 29 B2 43 24 28 49 2C 32 29 AA 43 24 28 49 2C 33 |).C$(I,2).C$(I,3|
00001580: 29 AA 43 24 28 49 2C 34 29 3A 89 33 33 32 34 00 |).C$(I,4):.3324.|
00001590: A7 1D F0 0C 8B 43 24 28 49 2C 36 29 B2 22 52 45 |.....C$(I,6)."RE|
000015A0: 53 22 A7 33 33 31 36 00 D7 1D F2 0C 52 53 24 28 |S".3316.....RS$(|
000015B0: 32 29 B2 43 24 28 49 2C 36 29 AA 43 24 28 49 2C |2).C$(I,6).C$(I,|
000015C0: 37 29 AA 22 28 22 AA 52 53 24 28 31 29 AA 22 29 |7)."(".RS$(1).")|
000015D0: 22 3A 89 33 33 32 34 00 07 1E F4 0C 52 53 24 28 |":.3324.....RS$(|
000015E0: 32 29 B2 22 28 22 AA 52 53 24 28 31 29 AA 22 29 |2)."(".RS$(1).")|
000015F0: 22 AA 43 24 28 49 2C 37 29 AA 43 24 28 49 2C 38 |".C$(I,7).C$(I,8|
00001600: 29 3A 89 33 33 32 34 00 20 1E F6 0C 8B 43 24 28 |):.3324. ....C$(|
00001610: 49 2C 31 30 29 B2 22 52 45 53 22 A7 33 33 32 32 |I,10)."RES".3322|
00001620: 00 52 1E F8 0C 52 53 24 28 33 29 B2 43 24 28 49 |.R...RS$(3).C$(I|
00001630: 2C 31 30 29 AA 43 24 28 49 2C 31 31 29 AA 22 28 |,10).C$(I,11)."(|
00001640: 22 AA 52 53 24 28 32 29 AA 22 29 22 3A 89 33 33 |".RS$(2).")":.33|
00001650: 32 34 00 7E 1E FA 0C 52 53 24 28 33 29 B2 22 28 |24.~...RS$(3)."(|
00001660: 22 AA 52 53 24 28 32 29 AA 22 29 22 AA 43 24 28 |".RS$(2).")".C$(|
00001670: 49 2C 31 31 29 AA 43 24 28 49 2C 31 32 29 00 84 |I,11).C$(I,12)..|
00001680: 1E FC 0C 8E 00 9A 1E FE 0C 8F 2D 2D 2D 2D 46 49 |..........----FI|
00001690: 45 4C 44 20 54 4F 54 41 4C 53 00 C8 1E 00 0D 8D |ELD TOTALS......|
000016A0: 33 30 33 30 3A 99 22 13 11 11 99 20 53 45 54 20 |3030:.".... SET |
000016B0: 45 4E 44 2D 4F 46 2D 43 4F 4C 55 4D 4E 20 4F 50 |END-OF-COLUMN OP|
000016C0: 45 52 41 54 49 4F 4E 22 00 F2 1E 02 0D 99 22 11 |ERATION"......".|
000016D0: 20 4F 50 54 49 4F 4E 53 3A 20 12 05 54 99 92 4F | OPTIONS: ..T..O|
000016E0: 54 41 4C 20 53 55 4D 20 4F 46 20 43 4F 4C 55 4D |TAL SUM OF COLUM|
000016F0: 4E 22 00 22 1F 04 0D 99 22 20 20 20 20 20 20 20 |N"."...." |
00001700: 20 20 20 12 05 41 99 92 56 45 52 41 47 45 20 43 | ..A..VERAGE C|
00001710: 4F 4E 54 45 4E 54 53 20 4F 46 20 43 4F 4C 55 4D |ONTENTS OF COLUM|
00001720: 4E 22 00 4F 1F 06 0D 99 22 20 20 20 20 20 20 20 |N".O...." |
00001730: 20 20 20 12 05 4E 99 92 4F 20 4F 50 45 52 41 54 | ..N..O OPERAT|
00001740: 49 4F 4E 20 54 4F 20 43 4F 4C 55 4D 4E 11 22 00 |ION TO COLUMN.".|
00001750: 74 1F 08 0D 99 22 9E 20 3F 20 4E 9D 22 43 24 28 |t....". ? N."C$(|
00001760: 49 2C 31 33 29 3A 85 22 91 20 22 3B 43 24 28 49 |I,13):.". ";C$(I|
00001770: 2C 31 33 29 00 AB 1F 0A 0D 8B 28 43 24 28 49 2C |,13)......(C$(I,|
00001780: 31 33 29 B2 22 54 22 29 B0 28 43 24 28 49 2C 31 |13)."T").(C$(I,1|
00001790: 33 29 B2 22 41 22 29 B0 28 43 24 28 49 2C 31 33 |3)."A").(C$(I,13|
000017A0: 29 B2 22 4E 22 29 A7 33 33 34 34 00 BB 1F 0C 0D |)."N").3344.....|
000017B0: 99 22 91 91 22 3A 89 33 33 33 36 00 D7 1F 0E 0D |."..":.3336.....|
000017C0: 8F 2D 2D 2D 2D 53 45 54 20 4A 55 53 54 49 46 49 |.----SET JUSTIFI|
000017D0: 43 41 54 49 4F 4E 53 00 00 20 10 0D 8D 33 30 33 |CATIONS.. ...303|
000017E0: 30 3A 99 22 13 11 99 20 53 45 54 20 43 4F 4C 55 |0:."... SET COLU|
000017F0: 4D 4E 20 4A 55 53 54 49 46 49 43 41 54 49 4F 4E |MN JUSTIFICATION|
00001800: 00 1B 20 12 0D 99 22 11 20 4F 50 54 49 4F 4E 53 |.. ...". OPTIONS|
00001810: 3A 20 12 05 4C 99 92 45 46 54 22 00 36 20 14 0D |: ..L..EFT".6 ..|
00001820: 99 22 20 20 20 20 20 20 20 20 20 20 12 05 52 99 |." ..R.|
00001830: 92 49 47 48 54 22 00 5B 20 16 0D 99 22 20 20 20 |.IGHT".[ ..." |
00001840: 20 20 20 20 20 20 20 12 05 43 99 92 55 52 52 45 | ..C..URRE|
00001850: 4E 43 59 20 28 24 2E 30 30 29 22 00 7C 20 18 0D |NCY ($.00)".| ..|
00001860: 99 22 20 20 20 20 20 20 20 20 20 20 12 05 50 99 |." ..P.|
00001870: 92 45 52 43 45 4E 54 20 28 25 29 22 00 A3 20 1A |.ERCENT (%)".. .|
00001880: 0D 99 22 20 20 20 20 20 20 20 20 20 20 12 05 44 |.." ..D|
00001890: 99 92 45 43 49 4D 41 4C 53 20 54 4F 20 52 49 47 |..ECIMALS TO RIG|
000018A0: 48 54 22 00 DE 20 1C 0D 99 22 9E 20 3F 20 4C 9D |HT".. ...". ? L.|
000018B0: 22 C8 28 43 24 28 49 2C 30 29 2C 31 29 3A 85 22 |".(C$(I,0),1):."|
000018C0: 91 20 22 3B 43 24 3A 43 24 28 49 2C 30 29 B2 43 |. ";C$:C$(I,0).C|
000018D0: 24 AA CA 28 43 24 28 49 2C 30 29 2C 32 29 00 03 |$..(C$(I,0),2)..|
000018E0: 21 1E 0D 8B 28 43 24 B2 22 4C 22 29 B0 28 43 24 |!...(C$."L").(C$|
000018F0: B2 22 52 22 29 B0 28 43 24 B2 22 43 22 29 A7 33 |."R").(C$."C").3|
00001900: 33 37 30 00 1F 21 20 0D 8B 28 43 24 B2 22 50 22 |370..! ..(C$."P"|
00001910: 29 B0 28 43 24 B2 22 44 22 29 A7 33 33 36 34 00 |).(C$."D").3364.|
00001920: 2F 21 22 0D 99 22 91 91 22 3A 89 33 33 35 36 00 |/!".."..":.3356.|
00001930: 5D 21 24 0D 99 22 99 20 23 20 4F 46 20 50 4C 41 |]!$..". # OF PLA|
00001940: 43 45 53 20 54 4F 20 54 48 45 20 52 49 47 48 54 |CES TO THE RIGHT|
00001950: 20 4F 46 20 44 45 43 49 4D 41 4C 3A 22 00 82 21 | OF DECIMAL:"..!|
00001960: 26 0D 99 22 9E 20 3F 20 31 9D 22 CA 28 43 24 28 |&..". ? 1.".(C$(|
00001970: 49 2C 30 29 2C 32 2C 31 29 3A 85 22 91 20 22 3B |I,0),2,1):.". ";|
00001980: 43 24 00 9E 21 28 0D 43 24 28 49 2C 30 29 B2 C8 |C$..!(.C$(I,0)..|
00001990: 28 43 24 28 49 2C 30 29 2C 31 29 AA 43 24 00 B5 |(C$(I,0),1).C$..|
000019A0: 21 2A 0D 8D 33 30 32 34 3A 8B 41 24 B2 22 45 22 |!*..3024:.A$."E"|
000019B0: A7 33 30 34 34 00 C6 21 2C 0D 8B 41 24 B2 22 4A |.3044..!,..A$."J|
000019C0: 22 A7 33 33 38 36 00 D7 21 2E 0D 8B 41 24 B2 22 |".3386..!...A$."|
000019D0: 52 22 A7 33 32 32 30 00 E8 21 30 0D 8B 41 24 B2 |R".3220..!0..A$.|
000019E0: 22 53 22 A7 33 30 39 36 00 0C 22 32 0D 81 4A B2 |"S".3096.."2..J.|
000019F0: 30 A4 31 34 3A 8B 43 24 28 49 2C 4A 29 B2 22 22 |0.14:.C$(I,J).""|
00001A00: A7 43 24 28 49 2C 4A 29 B2 22 2E 22 00 16 22 34 |.C$(I,J).".".."4|
00001A10: 0D 82 4A 3A 82 49 00 1F 22 36 0D 46 4C B2 31 00 |..J:.I.."6.FL.1.|
00001A20: 38 22 38 0D 8F 2D 2D 2D 2D 4F 50 45 52 41 54 49 |8"8..----OPERATI|
00001A30: 4F 4E 53 20 4D 45 4E 55 00 6B 22 3A 0D 99 22 93 |ONS MENU.k":..".|
00001A40: 20 9E 12 20 20 43 41 4C 43 55 4C 41 54 45 44 20 | .. CALCULATED |
00001A50: 52 45 50 4F 52 54 53 20 4F 50 45 52 41 54 49 4F |REPORTS OPERATIO|
00001A60: 4E 53 20 4D 45 4E 55 20 20 92 22 00 90 22 3C 0D |NS MENU .".."<.|
00001A70: 99 22 11 99 20 20 20 20 43 55 52 52 45 4E 54 20 |.".. CURRENT |
00001A80: 44 41 54 41 46 49 4C 45 3A 20 12 9E 22 4E 46 24 |DATAFILE: .."NF$|
00001A90: 00 B8 22 3E 0D 8B 46 4C B2 31 A7 99 22 11 20 20 |..">..FL.1..". |
00001AA0: 20 12 05 53 99 92 41 56 45 20 52 45 50 4F 52 54 | ..S..AVE REPORT|
00001AB0: 20 46 4F 52 4D 41 54 22 00 DA 22 40 0D 99 22 11 | FORMAT".."@..".|
00001AC0: 20 20 20 12 05 4C 99 92 4F 41 44 20 52 45 50 4F | ..L..OAD REPO|
00001AD0: 52 54 20 46 4F 52 4D 41 54 22 00 04 23 42 0D 8B |RT FORMAT"..#B..|
00001AE0: 46 4C B2 31 A7 99 22 11 20 20 20 12 05 43 99 92 |FL.1..". ..C..|
00001AF0: 48 41 4E 47 45 20 52 45 50 4F 52 54 20 46 4F 52 |HANGE REPORT FOR|
00001B00: 4D 41 54 22 00 27 23 44 0D 8B 46 4C B2 31 A7 99 |MAT".'#D..FL.1..|
00001B10: 22 11 20 20 20 12 05 50 99 92 52 49 4E 54 20 52 |". ..P..RINT R|
00001B20: 45 43 4F 52 44 53 22 00 69 23 45 0D 99 22 11 20 |ECORDS".i#E..". |
00001B30: 20 20 12 05 52 99 92 45 43 4F 4E 46 49 47 55 52 | ..R..ECONFIGUR|
00001B40: 45 20 50 52 49 4E 54 45 52 2C 20 4F 50 54 49 4F |E PRINTER, OPTIO|
00001B50: 4E 9E 22 50 3B 3A 8B 50 B2 34 A7 99 22 9D 9D 12 |N."P;:.P.4.."...|
00001B60: 53 43 52 45 45 4E 92 22 3B 00 90 23 46 0D 99 3A |SCREEN.";..#F..:|
00001B70: 99 22 11 20 20 20 12 05 24 99 92 20 44 49 53 4B |.". ..$.. DISK|
00001B80: 20 44 49 52 45 43 54 4F 52 59 20 12 05 34 92 22 | DIRECTORY ..4."|
00001B90: 00 B2 23 48 0D 99 22 11 20 20 20 12 05 45 92 99 |..#H..". ..E..|
00001BA0: 58 49 54 20 54 48 49 53 20 44 41 54 41 46 49 4C |XIT THIS DATAFIL|
00001BB0: 45 22 00 E5 23 4A 0D 99 22 11 9E 20 12 20 20 20 |E"..#J..".. . |
00001BC0: 20 20 20 20 50 52 45 53 53 20 54 48 45 20 41 50 | PRESS THE AP|
00001BD0: 50 52 4F 50 52 49 41 54 45 20 4B 45 59 20 20 20 |PROPRIATE KEY |
00001BE0: 20 20 20 92 22 00 01 24 4C 0D 8D 33 30 31 38 3A | ."..$L..3018:|
00001BF0: 8B 41 24 B2 22 45 22 AF 43 4B B2 30 A7 33 30 34 |.A$."E".CK.0.304|
00001C00: 34 00 12 24 4E 0D 8B 41 24 B2 22 53 22 A7 33 34 |4..$N..A$."S".34|
00001C10: 33 30 00 23 24 50 0D 8B 41 24 B2 22 4C 22 A7 33 |30.#$P..A$."L".3|
00001C20: 34 35 36 00 34 24 52 0D 8B 41 24 B2 22 43 22 A7 |456.4$R..A$."C".|
00001C30: 33 30 39 36 00 45 24 54 0D 8B 41 24 B2 22 50 22 |3096.E$T..A$."P"|
00001C40: A7 33 34 39 36 00 64 24 56 0D 8B 41 24 B2 22 24 |.3496.d$V..A$."$|
00001C50: 22 B0 41 24 B2 22 34 22 A7 8D 33 39 34 30 3A 89 |".A$."4"..3940:.|
00001C60: 33 33 38 36 00 7A 24 58 0D 8B 41 24 B2 22 45 22 |3386.z$X..A$."E"|
00001C70: AF 43 4B B2 31 A7 33 34 32 30 00 92 24 59 0D 8B |.CK.1.3420..$Y..|
00001C80: 41 24 B2 22 52 22 A7 8D 34 30 30 30 3A 89 33 33 |A$."R"..4000:.33|
00001C90: 38 36 00 A1 24 5A 0D 8D 36 30 32 3A 89 33 34 30 |86..$Z..602:.340|
00001CA0: 34 00 D4 24 5C 0D 99 22 91 20 96 12 59 4F 55 20 |4..$\..". ..YOU |
00001CB0: 48 41 56 45 20 4E 4F 54 20 53 41 56 45 44 20 59 |HAVE NOT SAVED Y|
00001CC0: 4F 55 52 20 4E 45 57 20 46 4F 52 4D 41 54 21 21 |OUR NEW FORMAT!!|
00001CD0: 21 92 9E 22 00 06 25 5E 0D 99 22 20 44 4F 20 59 |!.."..%^.." DO Y|
00001CE0: 4F 55 20 53 54 49 4C 4C 20 57 41 4E 54 20 54 4F |OU STILL WANT TO|
00001CF0: 20 45 58 49 54 3F 20 12 59 92 20 4F 52 20 12 4E | EXIT? .Y. OR .N|
00001D00: 92 3F 20 20 20 22 00 1D 25 60 0D 8D 33 30 31 38 |.? "..%`..3018|
00001D10: 3A 8B 41 24 B2 22 59 22 A7 33 30 34 34 00 27 25 |:.A$."Y".3044.'%|
00001D20: 62 0D 89 33 33 38 36 00 43 25 64 0D 8F 2D 2D 2D |b..3386.C%d..---|
00001D30: 2D 53 41 56 45 20 52 45 50 4F 52 54 20 46 4F 52 |-SAVE REPORT FOR|
00001D40: 4D 41 54 00 68 25 66 0D 99 22 11 99 20 53 41 56 |MAT.h%f..".. SAV|
00001D50: 45 20 55 4E 44 45 52 20 57 48 41 54 20 46 49 4C |E UNDER WHAT FIL|
00001D60: 45 20 4E 41 4D 45 3F 22 00 8F 25 68 0D 99 22 11 |E NAME?"..%h..".|
00001D70: 9E 20 3F 20 22 4E 46 24 3A 85 22 91 20 22 3B 43 |. ? "NF$:.". ";C|
00001D80: 46 24 3A 8B 43 46 24 B2 22 22 A7 33 33 38 36 00 |F$:.CF$."".3386.|
00001D90: B8 25 6A 0D 99 22 11 20 53 41 56 49 4E 47 20 43 |.%j..". SAVING C|
00001DA0: 41 4C 43 55 4C 41 54 45 44 20 52 45 50 4F 52 54 |ALCULATED REPORT|
00001DB0: 20 46 4F 52 4D 41 54 22 00 E8 25 6C 0D 9F 31 35 | FORMAT"..%l..15|
00001DC0: 2C 38 2C 31 35 3A 98 31 35 2C 22 53 30 3A 43 52 |,8,15:.15,"S0:CR|
00001DD0: 5D 20 22 AA 43 46 24 3A 8D 33 30 33 34 3A 8B 45 |] ".CF$:.3034:.E|
00001DE0: 54 B2 38 A7 33 33 38 36 00 18 26 6E 0D 9F 35 2C |T.8.3386..&n..5,|
00001DF0: 38 2C 35 2C 22 30 3A 43 52 5D 20 22 AA 43 46 24 |8,5,"0:CR] ".CF$|
00001E00: AA 22 2C 53 2C 57 22 3A 8D 33 30 33 34 3A 8B 45 |.",S,W":.3034:.E|
00001E10: 54 B2 38 A7 33 33 38 36 00 41 26 70 0D 98 35 2C |T.8.3386.A&p..5,|
00001E20: 50 57 3B 43 52 24 3B 4E 4C 3B 43 52 24 3B 4E 43 |PW;CR$;NL;CR$;NC|
00001E30: 3A 8D 33 30 33 34 3A 8B 45 54 B2 38 A7 33 33 38 |:.3034:.ET.8.338|
00001E40: 36 00 6B 26 72 0D 81 4A B2 31 A4 4E 4C 3A 98 35 |6.k&r..J.1.NL:.5|
00001E50: 2C 54 54 24 28 4A 29 3A 82 4A 3A 8D 33 30 33 34 |,TT$(J):.J:.3034|
00001E60: 3A 8B 45 54 B2 38 A7 33 33 38 36 00 9C 26 74 0D |:.ET.8.3386..&t.|
00001E70: 81 49 B2 31 A4 4E 43 3A 98 35 2C 50 43 28 49 29 |.I.1.NC:.5,PC(I)|
00001E80: 3B 43 52 24 3B 48 43 24 28 49 29 3A 8D 33 30 33 |;CR$;HC$(I):.303|
00001E90: 34 3A 8B 45 54 B2 38 A7 33 33 38 36 00 C7 26 76 |4:.ET.8.3386..&v|
00001EA0: 0D 81 4A B2 30 A4 31 34 3A 98 35 2C 43 24 28 49 |..J.0.14:.5,C$(I|
00001EB0: 2C 4A 29 3A 82 4A 3A 8D 33 30 33 34 3A 8B 45 54 |,J):.J:.3034:.ET|
00001EC0: B2 38 A7 33 33 38 36 00 CE 26 78 0D 82 49 00 DB |.8.3386..&x..I..|
00001ED0: 26 7A 0D 98 35 2C 22 45 4F 46 22 00 F1 26 7C 0D |&z..5,"EOF"..&|.|
00001EE0: A0 35 3A A0 31 35 3A 43 4B B2 30 3A 89 33 33 38 |.5:.15:CK.0:.338|
00001EF0: 36 00 0D 27 7E 0D 8F 2D 2D 2D 2D 4C 4F 41 44 20 |6..'~..----LOAD |
00001F00: 52 45 50 4F 52 54 20 46 4F 52 4D 41 54 00 45 27 |REPORT FORMAT.E'|
00001F10: 80 0D 99 22 93 99 20 41 56 41 49 4C 41 42 4C 45 |...".. AVAILABLE|
00001F20: 20 43 41 4C 43 20 46 4F 52 4D 41 54 20 46 49 4C | CALC FORMAT FIL|
00001F30: 45 53 20 41 52 45 3A 9E 11 22 3A 40 22 24 30 3A |ES ARE:..":@"$0:|
00001F40: 43 52 5D 2A 22 00 6C 27 81 0D 99 22 11 99 20 4C |CR]*".l'...".. L|
00001F50: 4F 41 44 20 46 4F 52 4D 41 54 20 46 52 4F 4D 20 |OAD FORMAT FROM |
00001F60: 57 48 41 54 20 46 49 4C 45 3F 9E 22 00 92 27 82 |WHAT FILE?."..'.|
00001F70: 0D 99 22 11 20 3F 20 22 4E 46 24 3A 85 22 91 20 |..". ? "NF$:.". |
00001F80: 22 3B 43 46 24 3A 8B 43 46 24 B2 22 22 A7 33 33 |";CF$:.CF$."".33|
00001F90: 38 36 00 BC 27 84 0D 99 22 11 20 4C 4F 41 44 49 |86..'...". LOADI|
00001FA0: 4E 47 20 43 41 4C 43 55 4C 41 54 45 44 20 52 45 |NG CALCULATED RE|
00001FB0: 50 4F 52 54 20 46 4F 52 4D 41 54 22 00 F5 27 86 |PORT FORMAT"..'.|
00001FC0: 0D 9F 31 35 2C 38 2C 31 35 3A 9F 35 2C 38 2C 35 |..15,8,15:.5,8,5|
00001FD0: 2C 22 30 3A 43 52 5D 20 22 AA 43 46 24 AA 22 2C |,"0:CR] ".CF$.",|
00001FE0: 53 2C 52 22 3A 8D 33 30 33 34 3A 8B 45 54 B2 38 |S,R":.3034:.ET.8|
00001FF0: A7 33 33 38 36 00 0C 28 88 0D 8B 45 4E B2 36 32 |.3386..(...EN.62|
00002000: A7 8D 33 30 33 36 3A 89 33 33 38 36 00 2D 28 8A |..3036:.3386.-(.|
00002010: 0D 84 35 2C 50 57 2C 4E 4C 2C 4E 43 3A 8D 33 30 |..5,PW,NL,NC:.30|
00002020: 33 34 3A 8B 45 54 B2 38 A7 33 33 38 36 00 57 28 |34:.ET.8.3386.W(|
00002030: 8C 0D 81 4A B2 31 A4 4E 4C 3A 84 35 2C 54 54 24 |...J.1.NL:.5,TT$|
00002040: 28 4A 29 3A 82 4A 3A 8D 33 30 33 34 3A 8B 45 54 |(J):.J:.3034:.ET|
00002050: B2 38 A7 33 33 38 36 00 84 28 8E 0D 81 49 B2 31 |.8.3386..(...I.1|
00002060: A4 4E 43 3A 84 35 2C 50 43 28 49 29 2C 48 43 24 |.NC:.5,PC(I),HC$|
00002070: 28 49 29 3A 8D 33 30 33 34 3A 8B 45 54 B2 38 A7 |(I):.3034:.ET.8.|
00002080: 33 33 38 36 00 AF 28 90 0D 81 4A B2 30 A4 31 34 |3386..(...J.0.14|
00002090: 3A 84 35 2C 43 24 28 49 2C 4A 29 3A 82 4A 3A 8D |:.5,C$(I,J):.J:.|
000020A0: 33 30 33 34 3A 8B 45 54 B2 38 A7 33 33 38 36 00 |3034:.ET.8.3386.|
000020B0: B6 28 92 0D 82 49 00 C1 28 94 0D A0 35 3A A0 31 |.(...I..(...5:.1|
000020C0: 35 00 D0 28 96 0D 46 4C B2 31 3A 89 33 33 38 36 |5..(..FL.1:.3386|
000020D0: 00 ED 28 98 0D 8F 2D 2D 2D 2D 53 54 41 52 54 20 |..(...----START |
000020E0: 50 52 49 4E 54 20 50 52 4F 43 45 53 53 00 24 29 |PRINT PROCESS.$)|
000020F0: 9A 0D 8F 2D 2D 2D 2D 4F 50 45 4E 20 44 41 54 41 |...----OPEN DATA|
00002100: 46 49 4C 45 20 43 48 41 4E 4E 45 4C 20 41 4E 44 |FILE CHANNEL AND|
00002110: 20 50 4F 53 49 54 49 4F 4E 20 54 4F 20 52 45 43 | POSITION TO REC|
00002120: 4F 52 44 53 00 5D 29 9C 0D 9F 31 35 2C 38 2C 31 |ORDS.])...15,8,1|
00002130: 35 3A 9F 35 2C 38 2C 35 2C 22 30 3A 44 46 5D 20 |5:.5,8,5,"0:DF] |
00002140: 22 AA 4E 46 24 AA 22 2C 53 2C 52 22 3A 8D 33 30 |".NF$.",S,R":.30|
00002150: 33 34 3A 8B 45 54 B2 38 A7 33 33 38 36 00 74 29 |34:.ET.8.3386.t)|
00002160: 9E 0D 8B 45 4E B2 36 32 A7 8D 33 30 33 36 3A 89 |...EN.62..3036:.|
00002170: 33 33 38 36 00 94 29 A0 0D 84 35 2C 52 52 2C 46 |3386..)...5,RR,F|
00002180: 2C 58 52 3A 8D 33 30 33 34 3A 8B 45 54 B2 38 A7 |,XR:.3034:.ET.8.|
00002190: 33 33 38 36 00 C2 29 A2 0D 81 4E B2 31 A4 46 3A |3386..)...N.1.F:|
000021A0: 84 35 2C 46 24 28 4E 29 2C 4C 25 28 4E 29 3A 82 |.5,F$(N),L%(N):.|
000021B0: 4E 3A 8D 33 30 33 34 3A 8B 45 54 B2 38 A7 33 33 |N:.3034:.ET.8.33|
000021C0: 38 36 00 C8 29 A4 0D 8E 00 E4 29 A6 0D 8F 2D 2D |86..).....)...--|
000021D0: 2D 2D 50 52 49 4E 54 20 4F 50 54 49 4F 4E 53 20 |--PRINT OPTIONS |
000021E0: 4D 45 4E 55 00 1C 2A A8 0D 50 47 B2 31 3A 99 22 |MENU..*..PG.1:."|
000021F0: 9E 93 20 12 20 20 20 20 20 20 20 20 20 20 20 50 |.. . P|
00002200: 52 49 4E 54 20 4F 50 54 49 4F 4E 53 20 4D 45 4E |RINT OPTIONS MEN|
00002210: 55 20 20 20 20 20 20 20 20 20 92 22 00 42 2A AC |U .".B*.|
00002220: 0D 99 22 11 11 20 20 20 20 20 12 05 41 99 92 4C |..".. ..A..L|
00002230: 4C 20 52 45 43 4F 52 44 53 20 49 4E 20 46 49 4C |L RECORDS IN FIL|
00002240: 45 22 00 73 2A AE 0D 99 22 11 20 20 20 20 20 12 |E".s*...". .|
00002250: 05 46 99 92 49 4E 44 20 52 45 43 4F 52 44 53 20 |.F..IND RECORDS |
00002260: 57 49 54 48 20 43 4F 4D 4D 4F 4E 20 46 49 45 4C |WITH COMMON FIEL|
00002270: 44 53 22 00 97 2A B0 0D 99 22 11 20 20 20 20 20 |DS"..*...". |
00002280: 12 05 45 99 92 58 49 54 20 42 41 43 4B 20 54 4F |..E..XIT BACK TO|
00002290: 20 53 54 41 52 54 22 00 C0 2A B2 0D 99 22 11 20 | START"..*...". |
000022A0: 20 20 50 4F 53 49 54 49 4F 4E 20 50 41 50 45 52 | POSITION PAPER|
000022B0: 20 41 54 20 54 4F 50 20 4F 46 20 50 41 47 45 22 | AT TOP OF PAGE"|
000022C0: 00 F0 2A B4 0D 99 22 11 20 9E 12 20 20 20 20 20 |..*...". .. |
000022D0: 50 52 45 53 53 20 54 48 45 20 41 50 50 52 4F 50 |PRESS THE APPROP|
000022E0: 52 49 41 54 45 20 4B 45 59 20 20 20 20 20 20 22 |RIATE KEY "|
000022F0: 00 07 2B B6 0D 8D 33 30 31 38 3A 8B 41 24 B2 22 |..+...3018:.A$."|
00002300: 45 22 A7 33 33 38 36 00 18 2B B8 0D 8B 41 24 B2 |E".3386..+...A$.|
00002310: 22 41 22 A7 33 35 35 30 00 29 2B BA 0D 8B 41 24 |"A".3550.)+...A$|
00002320: B2 22 46 22 A7 33 35 32 30 00 38 2B BC 0D 8D 36 |."F".3520.8+...6|
00002330: 30 32 3A 89 33 35 31 30 00 56 2B BE 0D 8F 2D 2D |02:.3510.V+...--|
00002340: 2D 2D 46 49 4E 44 20 52 45 43 4F 52 44 20 28 53 |--FIND RECORD (S|
00002350: 45 41 52 43 48 29 00 88 2B C0 0D 99 22 93 9E 20 |EARCH)..+...".. |
00002360: 12 20 20 20 20 46 49 4E 44 20 52 45 43 4F 52 44 |. FIND RECORD|
00002370: 53 20 57 49 54 48 20 43 4F 4D 4D 4F 4E 20 49 54 |S WITH COMMON IT|
00002380: 45 4D 53 20 20 20 20 22 00 92 2B C2 0D 8D 33 34 |EMS "..+...34|
00002390: 38 34 00 B2 2B C4 0D 81 4E B2 31 A4 46 3A 99 22 |84..+...N.1.F:."|
000023A0: 20 05 12 22 4E 22 92 99 20 22 46 24 28 4E 29 3A | .."N".. "F$(N):|
000023B0: 82 4E 00 DE 2B C6 0D 85 22 11 99 20 57 48 49 43 |.N..+...".. WHIC|
000023C0: 48 20 46 49 45 4C 44 20 49 53 20 54 4F 20 42 45 |H FIELD IS TO BE|
000023D0: 20 53 45 41 52 43 48 45 44 9E 22 3B 53 46 00 FA | SEARCHED.";SF..|
000023E0: 2B C8 0D 8B 53 46 B3 30 B0 53 46 B1 46 A7 99 22 |+...SF.0.SF.F.."|
000023F0: 91 91 91 22 3A 89 33 35 32 36 00 3F 2C CA 0D 99 |...":.3526.?,...|
00002400: 22 99 20 45 4E 54 45 52 20 12 43 4F 4D 4D 4F 4E |". ENTER .COMMON|
00002410: 20 49 54 45 4D 92 22 3A 99 22 20 28 54 48 45 20 | ITEM.":." (THE |
00002420: 45 4E 54 49 52 45 20 53 54 52 49 4E 47 20 49 53 |ENTIRE STRING IS|
00002430: 20 4E 4F 54 20 52 45 51 55 49 52 45 44 29 22 00 | NOT REQUIRED)".|
00002440: 5A 2C CC 0D 99 22 99 20 12 22 46 24 28 53 46 29 |Z,...". ."F$(SF)|
00002450: 22 92 9E 20 22 3B 3A 85 54 24 00 69 2C CE 0D 99 |".. ";:.T$.i,...|
00002460: 22 93 22 3A 8D 33 35 36 38 00 94 2C D0 0D 81 49 |".":.3568..,...I|
00002470: B2 31 A4 58 52 3A 8B 50 B3 B1 34 A7 99 22 20 53 |.1.XR:.P..4.." S|
00002480: 45 41 52 43 48 49 4E 47 20 52 45 43 4F 52 44 22 |EARCHING RECORD"|
00002490: 49 22 91 22 00 BE 2C D2 0D 81 4E B2 31 A4 46 3A |I"."..,...N.1.F:|
000024A0: 84 35 2C 52 45 43 24 28 4E 29 3A 82 4E 3A 8D 33 |.5,REC$(N):.N:.3|
000024B0: 30 33 34 3A 8B 45 54 B2 38 A7 33 33 38 36 00 DE |034:.ET.8.3386..|
000024C0: 2C D4 0D 8B 54 24 B2 C8 28 52 45 43 24 28 53 46 |,...T$..(REC$(SF|
000024D0: 29 2C C3 28 54 24 29 29 A7 8D 33 36 32 32 00 EB |),.(T$))..3622..|
000024E0: 2C D6 0D 82 49 3A 8D 33 36 36 32 00 1B 2D D8 0D |,...I:.3662..-..|
000024F0: 98 50 46 2C 22 46 49 4C 45 3A 20 22 4E 46 24 22 |.PF,"FILE: "NF$"|
00002500: 2C 22 4B 22 4F 46 22 58 52 22 52 45 43 4F 52 44 |,"K"OF"XR"RECORD|
00002510: 53 20 52 45 50 4F 52 54 45 44 22 00 30 2D D9 0D |S REPORTED".0-..|
00002520: A0 35 3A A0 31 35 3A 8B 50 B2 34 A7 33 35 36 35 |.5:.15:.P.4.3565|
00002530: 00 4E 2D DA 0D 81 49 B2 31 A4 36 30 AB 50 4C 3A |.N-...I.1.60.PL:|
00002540: 8D 34 30 33 34 3A 82 49 3A 89 33 34 39 36 00 69 |.4034:.I:.3496.i|
00002550: 2D DC 0D 8F 2D 2D 2D 2D 50 52 49 4E 54 20 41 4C |-...----PRINT AL|
00002560: 4C 20 52 45 43 4F 52 44 53 00 8E 2D DE 0D 99 22 |L RECORDS..-..."|
00002570: 93 22 3A 8B 50 B3 B1 34 A7 99 22 11 20 50 52 49 |.":.P..4..". PRI|
00002580: 4E 54 49 4E 47 20 48 45 41 44 49 4E 47 22 00 9E |NTING HEADING"..|
00002590: 2D E0 0D 8D 33 35 36 38 3A 8D 33 34 38 34 00 CF |-...3568:.3484..|
000025A0: 2D E2 0D 99 22 91 22 3B 3A 81 49 B2 31 A4 58 52 |-...".";:.I.1.XR|
000025B0: 3A 8B 50 B3 B1 34 A7 99 22 20 52 45 41 44 49 4E |:.P..4.." READIN|
000025C0: 47 20 52 45 43 4F 52 44 20 23 22 49 22 91 22 00 |G RECORD #"I".".|
000025D0: F9 2D E4 0D 81 4E B2 31 A4 46 3A 84 35 2C 52 45 |.-...N.1.F:.5,RE|
000025E0: 43 24 28 4E 29 3A 82 4E 3A 8D 33 30 33 34 3A 8B |C$(N):.N:.3034:.|
000025F0: 45 54 B2 38 A7 33 33 38 36 00 03 2E E6 0D 8D 33 |ET.8.3386......3|
00002600: 36 32 32 00 10 2E E8 0D 82 49 3A 8D 33 36 36 32 |622......I:.3662|
00002610: 00 3A 2E EA 0D 98 50 46 2C 22 46 49 4C 45 3A 20 |.:....PF,"FILE: |
00002620: 22 4E 46 24 22 2C 22 4B 22 52 45 43 4F 52 44 53 |"NF$","K"RECORDS|
00002630: 20 52 45 50 4F 52 54 45 44 22 00 4F 2E EB 0D A0 | REPORTED".O....|
00002640: 35 3A A0 31 35 3A 8B 50 B2 34 A7 33 35 36 35 00 |5:.15:.P.4.3565.|
00002650: 6D 2E EC 0D 81 49 B2 31 A4 36 30 AB 50 4C 3A 8D |m....I.1.60.PL:.|
00002660: 34 30 33 34 3A 82 49 3A 89 33 34 39 36 00 90 2E |4034:.I:.3496...|
00002670: ED 0D 99 22 50 52 45 53 53 20 12 41 4E 59 20 4B |..."PRESS .ANY K|
00002680: 45 59 92 22 3A 8D 33 30 31 38 3A 89 33 34 39 36 |EY.":.3018:.3496|
00002690: 00 B3 2E EE 0D 8F 2D 2D 2D 2D 42 45 47 49 4E 20 |......----BEGIN |
000026A0: 52 45 50 4F 52 54 2F 43 45 4E 54 45 52 20 54 49 |REPORT/CENTER TI|
000026B0: 54 4C 45 00 D9 2E F0 0D 50 4C B2 30 3A 54 41 B2 |TLE.....PL.0:TA.|
000026C0: 30 3A 4B B2 30 3A 81 4A B2 31 A4 4E 43 3A 53 55 |0:K.0:.J.1.NC:SU|
000026D0: 4D 28 4A 29 B2 30 3A 82 4A 00 F9 2E F2 0D 81 4A |M(J).0:.J......J|
000026E0: B2 31 A4 4E 43 3A 8B 43 24 28 4A 2C 31 33 29 B3 |.1.NC:.C$(J,13).|
000026F0: B1 22 4E 22 A7 54 4C B2 31 00 1B 2F F4 0D 82 4A |."N".TL.1../...J|
00002700: 3A 81 4A B2 31 A4 4E 4C 3A 8B 54 54 24 28 4A 29 |:.J.1.NL:.TT$(J)|
00002710: B3 B1 22 3E 22 A7 8D 33 35 37 36 00 28 2F F6 0D |..">"..3576.(/..|
00002720: 82 4A 3A 89 33 35 38 34 00 4D 2F F8 0D 4D B2 B5 |.J:.3584.M/..M..|
00002730: 28 28 50 57 AB C3 28 54 54 24 28 4A 29 29 29 AD |((PW..(TT$(J))).|
00002740: 32 29 3A 8B 50 B3 B1 31 A7 33 35 38 30 00 73 2F |2):.P..1.3580.s/|
00002750: FA 0D 98 50 46 2C C8 28 53 24 2C 4D 29 AA 54 54 |...PF,.(S$,M).TT|
00002760: 24 28 4A 29 3B 42 31 24 3B 3A 50 4C B2 50 4C AA |$(J);B1$;:PL.PL.|
00002770: 31 3A 8E 00 98 2F FC 0D 98 50 46 2C C8 28 53 24 |1:.../...PF,.(S$|
00002780: 2C 4D 29 AA 54 54 24 28 4A 29 3B 42 31 24 3A 50 |,M).TT$(J);B1$:P|
00002790: 4C B2 50 4C AA 31 3A 8E 00 B3 2F FE 0D 8F 2D 2D |L.PL.1:.../...--|
000027A0: 2D 2D 50 4F 53 49 54 49 4F 4E 20 48 45 41 44 49 |--POSITION HEADI|
000027B0: 4E 47 53 00 E0 2F 00 0E 8D 33 36 31 38 3A 4A B2 |NGS../...3618:J.|
000027C0: 31 3A 50 43 28 4E 43 AA 31 29 B2 50 57 AA 33 3A |1:PC(NC.1).PW.3:|
000027D0: 43 57 B2 50 43 28 32 29 AB 32 AB 50 43 28 31 29 |CW.PC(2).2.PC(1)|
000027E0: 00 F0 2F 02 0E 43 4C 4D 24 B2 48 43 24 28 4A 29 |../..CLM$.HC$(J)|
000027F0: 00 0D 30 04 0E 8B 43 24 28 4A 2C 30 29 B2 22 4C |..0...C$(J,0)."L|
00002800: 22 A7 8D 33 39 32 36 3A 89 33 35 39 32 00 17 30 |"..3926:.3592..0|
00002810: 06 0E 8D 33 39 31 38 00 29 30 08 0E 8B 50 43 28 |...3918.)0...PC(|
00002820: 31 29 B1 31 A7 33 35 39 36 00 3D 30 0A 0E 98 50 |1).1.3596.=0...P|
00002830: 46 2C 43 4C 4D 24 3B 3A 89 33 35 39 38 00 59 30 |F,CLM$;:.3598.Y0|
00002840: 0C 0E 98 50 46 2C C8 28 53 24 2C 50 43 28 31 29 |...PF,.(S$,PC(1)|
00002850: AB 31 29 AA 43 4C 4D 24 3B 00 65 30 0E 0E 81 4A |.1).CLM$;.e0...J|
00002860: B2 32 A4 4E 43 00 88 30 10 0E 43 57 B2 50 43 28 |.2.NC..0..CW.PC(|
00002870: 4A AA 31 29 AB 32 AB 50 43 28 4A 29 3A 43 4C 4D |J.1).2.PC(J):CLM|
00002880: 24 B2 48 43 24 28 4A 29 00 A5 30 12 0E 8B 43 24 |$.HC$(J)..0...C$|
00002890: 28 4A 2C 30 29 B2 22 4C 22 A7 8D 33 39 32 36 3A |(J,0)."L"..3926:|
000028A0: 89 33 36 30 36 00 AF 30 14 0E 8D 33 39 31 38 00 |.3606..0...3918.|
000028B0: C5 30 16 0E 98 50 46 2C C8 28 53 24 2C 32 29 AA |.0...PF,.(S$,2).|
000028C0: 43 4C 4D 24 3B 00 CC 30 18 0E 82 4A 00 D6 30 1A |CLM$;..0...J..0.|
000028D0: 0E 8D 34 30 33 34 00 E8 30 1C 0E 8D 33 36 31 38 |..4034..0...3618|
000028E0: 3A 50 4C B2 50 4C AA 33 00 EE 30 1E 0E 8E 00 09 |:PL.PL.3..0.....|
000028F0: 31 20 0E 8F 2D 2D 2D 2D 50 52 49 4E 54 20 44 41 |1 ..----PRINT DA|
00002900: 53 48 45 44 20 4C 49 4E 45 00 29 31 22 0E 81 4A |SHED LINE.)1"..J|
00002910: B2 31 A4 50 57 3A 98 50 46 2C 22 2D 22 3B 3A 82 |.1.PW:.PF,"-";:.|
00002920: 4A 3A 8D 34 30 33 34 3A 8E 00 42 31 24 0E 8F 2D |J:.4034:..B1$..-|
00002930: 2D 2D 2D 50 52 49 4E 54 20 46 49 4C 45 20 44 41 |---PRINT FILE DA|
00002940: 54 41 00 64 31 26 0E 81 4A B2 31 A4 4E 43 3A 42 |TA.d1&..J.1.NC:B|
00002950: 55 46 28 4A 29 B2 30 3A 82 4A 3A 4B B2 4B AA 31 |UF(J).0:.J:K.K.1|
00002960: 3A 4A B2 31 00 87 31 28 0E 50 43 28 4E 43 AA 31 |:J.1..1(.PC(NC.1|
00002970: 29 B2 50 57 AA 33 3A 43 57 B2 50 43 28 32 29 AB |).PW.3:CW.PC(2).|
00002980: 32 AB 50 43 28 31 29 00 91 31 2A 0E 8D 33 37 34 |2.PC(1)..1*..374|
00002990: 30 00 9B 31 2C 0E 8D 33 37 30 38 00 AD 31 2E 0E |0..1,..3708..1..|
000029A0: 8B 50 43 28 31 29 B1 31 A7 33 36 33 36 00 BB 31 |.PC(1).1.3636..1|
000029B0: 30 0E 98 50 46 2C 43 4C 4D 24 3B 00 C5 31 32 0E |0..PF,CLM$;..12.|
000029C0: 89 33 36 33 38 00 E1 31 34 0E 98 50 46 2C C8 28 |.3638..14..PF,.(|
000029D0: 53 24 2C 50 43 28 31 29 AB 31 29 AA 43 4C 4D 24 |S$,PC(1).1).CLM$|
000029E0: 3B 00 ED 31 36 0E 81 4A B2 32 A4 4E 43 00 04 32 |;..16..J.2.NC..2|
000029F0: 38 0E 43 57 B2 50 43 28 4A AA 31 29 AB 32 AB 50 |8.CW.PC(J.1).2.P|
00002A00: 43 28 4A 29 00 0E 32 3A 0E 8D 33 37 34 30 00 18 |C(J)..2:..3740..|
00002A10: 32 3C 0E 8D 33 37 30 38 00 2E 32 3E 0E 98 50 46 |2<..3708..2>..PF|
00002A20: 2C C8 28 53 24 2C 32 29 AA 43 4C 4D 24 3B 00 35 |,.(S$,2).CLM$;.5|
00002A30: 32 40 0E 82 4A 00 3F 32 42 0E 8D 34 30 33 34 00 |2@..J.?2B..4034.|
00002A40: 4B 32 44 0E 50 4C B2 50 4C AA 31 00 6A 32 46 0E |K2D.PL.PL.1.j2F.|
00002A50: 8F 2D 2D 2D 2D 43 48 45 43 4B 20 23 20 4C 49 4E |.----CHECK # LIN|
00002A60: 45 53 20 4F 4E 20 50 41 47 45 00 90 32 48 0E 8B |ES ON PAGE..2H..|
00002A70: 50 4C B2 36 30 A7 81 4A B2 31 A4 35 3A 8D 34 30 |PL.60..J.1.5:.40|
00002A80: 33 34 3A 82 4A 3A 50 4C B2 30 3A 89 33 36 35 39 |34:.J:PL.0:.3659|
00002A90: 00 96 32 4A 0E 8E 00 BB 32 4B 0E 50 47 B2 50 47 |..2J....2K.PG.PG|
00002AA0: AA 31 3A 98 50 46 2C 22 50 41 47 45 22 50 47 3A |.1:.PF,"PAGE"PG:|
00002AB0: 8D 33 35 38 34 3A 89 33 36 35 38 00 DA 32 4C 0E |.3584:.3658..2L.|
00002AC0: 8F 2D 2D 2D 2D 50 52 49 4E 54 20 54 4F 54 41 4C |.----PRINT TOTAL|
00002AD0: 53 2F 41 56 45 52 41 47 45 53 00 EC 32 4E 0E 8D |S/AVERAGES..2N..|
00002AE0: 33 36 31 38 3A 8B 54 4C B2 30 A7 8E 00 05 33 50 |3618:.TL.0....3P|
00002AF0: 0E 4A B2 31 3A 43 57 B2 50 43 28 32 29 AB 32 AB |.J.1:CW.PC(2).2.|
00002B00: 50 43 28 31 29 00 21 33 52 0E 8B 54 41 B2 30 A7 |PC(1).!3R..TA.0.|
00002B10: 8D 33 37 32 32 3A 8D 33 39 31 38 3A 89 33 36 37 |.3722:.3918:.367|
00002B20: 34 00 2B 33 54 0E 8D 33 37 33 32 00 49 33 56 0E |4.+3T..3732.I3V.|
00002B30: 8B 43 24 28 4A 2C 31 33 29 B2 22 4E 22 A7 8D 33 |.C$(J,13)."N"..3|
00002B40: 39 31 38 3A 89 33 36 37 34 00 53 33 58 0E 8D 33 |918:.3674.S3X..3|
00002B50: 37 30 38 00 65 33 5A 0E 8B 50 43 28 31 29 B1 31 |708.e3Z..PC(1).1|
00002B60: A7 33 36 38 30 00 73 33 5C 0E 98 50 46 2C 43 4C |.3680.s3\..PF,CL|
00002B70: 4D 24 3B 00 7D 33 5E 0E 89 33 36 38 32 00 99 33 |M$;.}3^..3682..3|
00002B80: 60 0E 98 50 46 2C C8 28 53 24 2C 50 43 28 31 29 |`..PF,.(S$,PC(1)|
00002B90: AB 31 29 AA 43 4C 4D 24 3B 00 A5 33 62 0E 81 4A |.1).CLM$;..3b..J|
00002BA0: B2 32 A4 4E 43 00 BC 33 64 0E 43 57 B2 50 43 28 |.2.NC..3d.CW.PC(|
00002BB0: 4A AA 31 29 AB 32 AB 50 43 28 4A 29 00 D8 33 66 |J.1).2.PC(J)..3f|
00002BC0: 0E 8B 54 41 B2 30 A7 8D 33 37 32 32 3A 8D 33 39 |..TA.0..3722:.39|
00002BD0: 31 38 3A 89 33 36 39 34 00 E2 33 68 0E 8D 33 37 |18:.3694..3h..37|
00002BE0: 33 32 00 00 34 6A 0E 8B 43 24 28 4A 2C 31 33 29 |32..4j..C$(J,13)|
00002BF0: B2 22 4E 22 A7 8D 33 39 31 38 3A 89 33 36 39 34 |."N"..3918:.3694|
00002C00: 00 0A 34 6C 0E 8D 33 37 30 38 00 20 34 6E 0E 98 |..4l..3708. 4n..|
00002C10: 50 46 2C C8 28 53 24 2C 32 29 AA 43 4C 4D 24 3B |PF,.(S$,2).CLM$;|
00002C20: 00 27 34 70 0E 82 4A 00 31 34 72 0E 8D 34 30 33 |.'4p..J.14r..403|
00002C30: 34 00 46 34 74 0E 8B 54 41 B2 30 A7 54 41 B2 31 |4.F4t..TA.0.TA.1|
00002C40: 3A 89 33 36 36 32 00 50 34 76 0E 8D 33 36 31 38 |:.3662.P4v..3618|
00002C50: 00 56 34 78 0E 8E 00 76 34 7A 0E 8F 2D 2D 2D 44 |.V4x...v4z..---D|
00002C60: 45 54 45 52 4D 49 4E 45 20 4A 55 53 54 49 46 49 |ETERMINE JUSTIFI|
00002C70: 43 41 54 49 4F 4E 00 94 34 7C 0E 8B C8 28 43 24 |CATION..4|...(C$|
00002C80: 28 4A 2C 30 29 2C 31 29 B2 22 4C 22 A7 8D 33 39 |(J,0),1)."L"..39|
00002C90: 32 36 3A 8E 00 B2 34 7E 0E 8B C8 28 43 24 28 4A |26:...4~...(C$(J|
00002CA0: 2C 30 29 2C 31 29 B2 22 52 22 A7 8D 33 39 31 38 |,0),1)."R"..3918|
00002CB0: 3A 8E 00 C3 34 80 0E 8B 45 B2 31 A7 8D 33 39 31 |:...4...E.1..391|
00002CC0: 38 3A 8E 00 E1 34 82 0E 8B C8 28 43 24 28 4A 2C |8:...4....(C$(J,|
00002CD0: 30 29 2C 31 29 B2 22 43 22 A7 8D 33 39 30 34 3A |0),1)."C"..3904:|
00002CE0: 8E 00 FF 34 84 0E 8B C8 28 43 24 28 4A 2C 30 29 |...4....(C$(J,0)|
00002CF0: 2C 31 29 B2 22 44 22 A7 8D 33 39 30 36 3A 8E 00 |,1)."D"..3906:..|
00002D00: 0B 35 86 0E 8D 33 39 33 34 3A 8E 00 38 35 88 0E |.5...3934:..85..|
00002D10: 8F 2D 2D 2D 44 45 54 45 52 4D 49 4E 45 20 54 4F |.---DETERMINE TO|
00002D20: 54 41 4C 2F 41 56 47 20 4C 41 42 45 4C 20 46 4F |TAL/AVG LABEL FO|
00002D30: 52 20 43 4F 4C 55 4D 4E 00 5A 35 8A 0E 8B C8 28 |R COLUMN.Z5....(|
00002D40: 43 24 28 4A 2C 31 33 29 2C 31 29 B2 22 4E 22 A7 |C$(J,13),1)."N".|
00002D50: 20 43 4C 4D 24 B2 22 22 3A 8E 00 81 35 8C 0E 8B | CLM$."":...5...|
00002D60: C8 28 43 24 28 4A 2C 31 33 29 2C 31 29 B2 22 54 |.(C$(J,13),1)."T|
00002D70: 22 A7 20 43 4C 4D 24 B2 22 54 4F 54 41 4C 22 3A |". CLM$."TOTAL":|
00002D80: 8E 00 98 35 8E 0E 8B 43 57 B3 37 A7 43 4C 4D 24 |...5...CW.7.CLM$|
00002D90: B2 22 41 56 47 22 3A 8E 00 AD 35 90 0E 43 4C 4D |."AVG":...5..CLM|
00002DA0: 24 B2 22 41 56 45 52 41 47 45 22 3A 8E 00 DA 35 |$."AVERAGE":...5|
00002DB0: 92 0E 8F 2D 2D 2D 44 45 54 45 52 4D 49 4E 45 20 |...---DETERMINE |
00002DC0: 54 4F 54 41 4C 2F 41 56 47 20 56 41 4C 55 45 20 |TOTAL/AVG VALUE |
00002DD0: 46 4F 52 20 43 4F 4C 55 4D 4E 00 FC 35 94 0E 8B |FOR COLUMN..5...|
00002DE0: C8 28 43 24 28 4A 2C 31 33 29 2C 31 29 B2 22 4E |.(C$(J,13),1)."N|
00002DF0: 22 A7 20 43 4C 4D 24 B2 22 22 3A 8E 00 25 36 96 |". CLM$."":..%6.|
00002E00: 0E 8B C8 28 43 24 28 4A 2C 31 33 29 2C 31 29 B2 |...(C$(J,13),1).|
00002E10: 22 54 22 A7 20 43 4C 4D 24 B2 C4 28 53 55 4D 28 |"T". CLM$..(SUM(|
00002E20: 4A 29 29 3A 8E 00 40 36 98 0E 8B 4B B3 B1 30 A7 |J)):..@6...K..0.|
00002E30: 43 4C 4D 24 B2 C4 28 53 55 4D 28 4A 29 AD 4B 29 |CLM$..(SUM(J).K)|
00002E40: 00 46 36 99 0E 8E 00 6B 36 9A 0E 8F 2D 2D 2D 44 |.F6....k6...---D|
00002E50: 45 54 45 52 4D 49 4E 45 20 43 4F 4E 54 45 4E 54 |ETERMINE CONTENT|
00002E60: 53 20 4F 46 20 43 4F 4C 55 4D 4E 00 92 36 9C 0E |S OF COLUMN..6..|
00002E70: 8B C8 28 43 24 28 4A 2C 31 29 2C 31 29 B2 22 23 |..(C$(J,1),1)."#|
00002E80: 22 A7 20 43 4C 4D 24 B2 C4 28 49 29 3A 89 33 37 |". CLM$..(I):.37|
00002E90: 39 32 00 CC 36 9E 0E 8B C8 28 43 24 28 4A 2C 31 |92..6....(C$(J,1|
00002EA0: 29 2C 31 29 B2 22 46 22 A7 20 43 4C 4D 24 B2 52 |),1)."F". CLM$.R|
00002EB0: 45 43 24 28 C5 28 CA 28 43 24 28 4A 2C 31 29 2C |EC$(.(.(C$(J,1),|
00002EC0: 32 2C 32 29 29 29 3A 89 33 37 39 32 00 08 37 9F |2,2))):.3792..7.|
00002ED0: 0E 8B C8 28 43 24 28 4A 2C 31 29 2C 31 29 B2 22 |...(C$(J,1),1)."|
00002EE0: 52 22 A7 20 43 4C 4D 24 B2 C4 28 53 55 4D 28 C5 |R". CLM$..(SUM(.|
00002EF0: 28 CA 28 43 24 28 4A 2C 31 29 2C 32 2C 32 29 29 |(.(C$(J,1),2,2))|
00002F00: 29 29 3A 89 33 37 39 32 00 26 37 A0 0E 8F 2D 2D |)):.3792.&7...--|
00002F10: 2D 2D 43 41 4C 43 55 4C 41 54 49 4F 4E 53 20 52 |--CALCULATIONS R|
00002F20: 4F 55 54 49 4E 45 00 35 37 A2 0E 52 45 53 B2 30 |OUTINE.57..RES.0|
00002F30: 3A 45 51 B2 30 00 41 37 A4 0E 45 51 B2 45 51 AA |:EQ.0.A7..EQ.EQ.|
00002F40: 32 00 54 37 A6 0E 8F 2D 2D 2D 2D 4F 50 45 52 41 |2.T7...----OPERA|
00002F50: 4E 44 20 58 00 90 37 A8 0E 8B C8 28 43 24 28 4A |ND X..7....(C$(J|
00002F60: 2C 45 51 29 2C 31 29 B2 22 46 22 A7 20 58 B2 C5 |,EQ),1)."F". X..|
00002F70: 28 52 45 43 24 28 C5 28 CA 28 43 24 28 4A 2C 45 |(REC$(.(.(C$(J,E|
00002F80: 51 29 2C 32 2C 32 29 29 29 29 3A 89 33 37 36 32 |Q),2,2)))):.3762|
00002F90: 00 C0 37 A9 0E 8B 43 24 28 4A 2C 45 51 AA 31 29 |..7...C$(J,EQ.1)|
00002FA0: B2 22 2B 2B 22 A7 20 58 B2 C5 28 CA 28 43 24 28 |."++". X..(.(C$(|
00002FB0: 4A 2C 32 29 2C 32 2C 32 29 29 3A 89 33 37 36 32 |J,2),2,2)):.3762|
00002FC0: 00 F8 37 AA 0E 8B C8 28 43 24 28 4A 2C 45 51 29 |..7....(C$(J,EQ)|
00002FD0: 2C 31 29 B2 22 43 22 A7 20 58 B2 42 55 46 28 C5 |,1)."C". X.BUF(.|
00002FE0: 28 CA 28 43 24 28 4A 2C 45 51 29 2C 32 2C 32 29 |(.(C$(J,EQ),2,2)|
00002FF0: 29 29 3A 89 33 37 36 32 00 1E 38 AC 0E 8B C8 28 |)):.3762..8....(|
00003000: 43 24 28 4A 2C 45 51 29 2C 33 29 B2 22 52 45 53 |C$(J,EQ),3)."RES|
00003010: 22 A7 20 58 B2 52 45 53 3A 89 33 37 36 32 00 42 |". X.RES:.3762.B|
00003020: 38 AE 0E 8B C8 28 43 24 28 4A 2C 45 51 29 2C 32 |8....(C$(J,EQ),2|
00003030: 29 B2 22 50 49 22 A7 20 58 B2 50 49 3A 89 33 37 |)."PI". X.PI:.37|
00003040: 36 32 00 69 38 B0 0E 8B C8 28 43 24 28 4A 2C 45 |62.i8....(C$(J,E|
00003050: 51 29 2C 31 29 B3 B1 22 2E 22 A7 20 58 B2 C5 28 |Q),1)..".". X..(|
00003060: 43 24 28 4A 2C 45 51 29 29 00 75 38 B2 0E 45 51 |C$(J,EQ)).u8..EQ|
00003070: B2 45 51 AA 32 00 88 38 B4 0E 8F 2D 2D 2D 2D 4F |.EQ.2..8...----O|
00003080: 50 45 52 41 4E 44 20 59 00 C4 38 B6 0E 8B C8 28 |PERAND Y..8....(|
00003090: 43 24 28 4A 2C 45 51 29 2C 31 29 B2 22 46 22 A7 |C$(J,EQ),1)."F".|
000030A0: 20 59 B2 C5 28 52 45 43 24 28 C5 28 CA 28 43 24 | Y..(REC$(.(.(C$|
000030B0: 28 4A 2C 45 51 29 2C 32 2C 32 29 29 29 29 3A 89 |(J,EQ),2,2)))):.|
000030C0: 33 37 37 36 00 F4 38 B7 0E 8B 43 24 28 4A 2C 45 |3776..8...C$(J,E|
000030D0: 51 AB 31 29 B2 22 2B 2B 22 A7 20 59 B2 C5 28 CA |Q.1)."++". Y..(.|
000030E0: 28 43 24 28 4A 2C 34 29 2C 32 2C 32 29 29 3A 89 |(C$(J,4),2,2)):.|
000030F0: 33 37 37 36 00 2C 39 B8 0E 8B C8 28 43 24 28 4A |3776.,9....(C$(J|
00003100: 2C 45 51 29 2C 31 29 B2 22 43 22 A7 20 59 B2 42 |,EQ),1)."C". Y.B|
00003110: 55 46 28 C5 28 CA 28 43 24 28 4A 2C 45 51 29 2C |UF(.(.(C$(J,EQ),|
00003120: 32 2C 32 29 29 29 3A 89 33 37 37 36 00 52 39 BA |2,2))):.3776.R9.|
00003130: 0E 8B C8 28 43 24 28 4A 2C 45 51 29 2C 33 29 B2 |...(C$(J,EQ),3).|
00003140: 22 52 45 53 22 A7 20 59 B2 52 45 53 3A 89 33 37 |"RES". Y.RES:.37|
00003150: 37 36 00 76 39 BC 0E 8B C8 28 43 24 28 4A 2C 45 |76.v9....(C$(J,E|
00003160: 51 29 2C 32 29 B2 22 50 49 22 A7 20 59 B2 50 49 |Q),2)."PI". Y.PI|
00003170: 3A 89 33 37 37 36 00 88 39 BE 0E 59 B2 C5 28 43 |:.3776..9..Y..(C|
00003180: 24 28 4A 2C 45 51 29 29 00 92 39 C0 0E 8D 33 38 |$(J,EQ))..9...38|
00003190: 30 30 00 B0 39 C2 0E 8B 43 24 28 4A 2C 45 51 AA |00..9...C$(J,EQ.|
000031A0: 31 29 B3 B1 22 59 22 B0 45 B2 31 A7 33 37 38 38 |1).."Y".E.1.3788|
000031B0: 00 BA 39 C4 0E 52 45 53 B2 5A 00 CA 39 C6 0E 8B |..9..RES.Z..9...|
000031C0: 45 51 B2 31 32 A7 33 37 38 38 00 D4 39 C8 0E 89 |EQ.12.3788..9...|
000031D0: 33 37 34 38 00 F9 39 CA 0E 8F 2D 2D 2D 2D 53 45 |3748..9...----SE|
000031E0: 54 20 56 41 4C 55 45 20 4F 46 20 43 4F 4C 55 4D |T VALUE OF COLUM|
000031F0: 4E 2F 42 55 46 46 45 52 53 00 19 3A CC 0E 8B 45 |N/BUFFERS..:...E|
00003200: B2 31 A7 43 4C 4D 24 B2 22 3F 3F 45 52 52 4F 52 |.1.CLM$."??ERROR|
00003210: 3F 3F 22 3A 89 33 37 39 32 00 27 3A CE 0E 43 4C |??":.3792.':..CL|
00003220: 4D 24 B2 C4 28 5A 29 00 3A 3A D0 0E 42 55 46 28 |M$..(Z).::..BUF(|
00003230: 4A 29 B2 C5 28 43 4C 4D 24 29 00 54 3A D2 0E 53 |J)..(CLM$).T:..S|
00003240: 55 4D 28 4A 29 B2 53 55 4D 28 4A 29 AA C5 28 43 |UM(J).SUM(J)..(C|
00003250: 4C 4D 24 29 00 5A 3A D4 0E 8E 00 78 3A D6 0E 8F |LM$).Z:....x:...|
00003260: 2D 2D 2D 2D 42 41 53 49 43 20 4D 41 54 48 20 4F |----BASIC MATH O|
00003270: 50 45 52 41 54 4F 52 53 00 83 3A D8 0E 57 B2 45 |PERATORS..:..W.E|
00003280: 51 AB 31 00 9A 3A DA 0E 45 B2 30 3A 5A B2 30 3A |Q.1..:..E.0:Z.0:|
00003290: 43 24 B2 43 24 28 4A 2C 57 29 00 B4 3A DC 0E 8B |C$.C$(J,W)..:...|
000032A0: 43 24 28 4A 2C 57 29 B2 22 2B 22 A7 20 5A B2 58 |C$(J,W)."+". Z.X|
000032B0: AA 59 3A 8E 00 E2 3A DD 0E 8B 43 24 28 4A 2C 57 |.Y:...:...C$(J,W|
000032C0: 29 B2 22 2B 2B 22 A7 20 5A B2 30 3A 81 48 B2 58 |)."++". Z.0:.H.X|
000032D0: A4 59 3A 5A B2 5A AA 42 55 46 28 48 29 3A 82 48 |.Y:Z.Z.BUF(H):.H|
000032E0: 3A 8E 00 FC 3A DE 0E 8B 43 24 28 4A 2C 57 29 B2 |:...:...C$(J,W).|
000032F0: 22 2D 22 A7 20 5A B2 58 AB 59 3A 8E 00 16 3B DF |"-". Z.X.Y:...;.|
00003300: 0E 8B 43 24 28 4A 2C 57 29 B2 22 2A 22 A7 20 5A |..C$(J,W)."*". Z|
00003310: B2 58 AC 59 3A 8E 00 35 3B E0 0E 8B 43 24 28 4A |.X.Y:..5;...C$(J|
00003320: 2C 57 29 B2 22 2F 22 AF 59 B3 B1 30 A7 20 5A B2 |,W)."/".Y..0. Z.|
00003330: 58 AD 59 3A 8E 00 4F 3B E1 0E 8B 43 24 28 4A 2C |X.Y:..O;...C$(J,|
00003340: 57 29 B2 22 5E 22 A7 20 5A B2 58 AE 59 3A 8E 00 |W)."^". Z.X.Y:..|
00003350: 6E 3B E2 0E 8B 43 24 28 4A 2C 57 29 B2 22 53 47 |n;...C$(J,W)."SG|
00003360: 4E 22 A7 20 5A B2 59 AC 28 AB 31 29 3A 8E 00 89 |N". Z.Y.(.1):...|
00003370: 3B E3 0E 8F 2D 2D 2D 2D 4C 4F 47 49 43 41 4C 20 |;...----LOGICAL |
00003380: 4F 50 45 52 41 54 4F 52 53 00 A4 3B E4 0E 8B 43 |OPERATORS..;...C|
00003390: 24 28 4A 2C 57 29 B2 22 3D 22 AF 58 B2 59 A7 5A |$(J,W)."=".X.Y.Z|
000033A0: B2 31 3A 8E 00 BF 3B E5 0E 8B 43 24 28 4A 2C 57 |.1:...;...C$(J,W|
000033B0: 29 B2 22 3C 22 AF 58 B3 59 A7 5A B2 31 3A 8E 00 |)."<".X.Y.Z.1:..|
000033C0: DA 3B E6 0E 8B 43 24 28 4A 2C 57 29 B2 22 3E 22 |.;...C$(J,W).">"|
000033D0: AF 58 B1 59 A7 5A B2 31 3A 8E 00 F7 3B E7 0E 8B |.X.Y.Z.1:...;...|
000033E0: 43 24 28 4A 2C 57 29 B2 22 3C 3E 22 AF 58 B3 B1 |C$(J,W)."<>".X..|
000033F0: 59 A7 5A B2 31 3A 8E 00 19 3C E8 0E 8B 43 24 28 |Y.Z.1:...<...C$(|
00003400: 4A 2C 57 29 B2 22 4F 52 22 AF 28 58 B1 31 B0 59 |J,W)."OR".(X.1.Y|
00003410: B1 31 29 A7 5A B2 31 3A 8E 00 3A 3C E9 0E 8B 43 |.1).Z.1:..:<...C|
00003420: 24 28 4A 2C 57 29 B2 22 41 4E 44 22 AF 58 B1 31 |$(J,W)."AND".X.1|
00003430: AF 59 B1 31 A7 5A B2 31 3A 8E 00 73 3C EA 0E 8B |.Y.1.Z.1:..s<...|
00003440: 43 24 B2 22 3D 22 B0 43 24 B2 22 3C 22 B0 43 24 |C$."=".C$."<".C$|
00003450: B2 22 3E 22 B0 43 24 B2 22 3C 3E 22 B0 43 24 B2 |.">".C$."<>".C$.|
00003460: 22 4F 52 22 B0 43 24 B2 22 41 4E 44 22 A7 5A B2 |"OR".C$."AND".Z.|
00003470: 30 3A 8E 00 91 3C EB 0E 8F 2D 2D 2D 2D 53 43 49 |0:...<...----SCI|
00003480: 45 4E 54 49 46 49 43 20 4F 50 45 52 41 54 4F 52 |ENTIFIC OPERATOR|
00003490: 53 00 B3 3C EC 0E 8B 43 24 28 4A 2C 57 29 B2 22 |S..<...C$(J,W)."|
000034A0: 53 51 52 22 AF 59 B1 B2 30 A7 20 5A B2 BA 28 59 |SQR".Y..0. Z..(Y|
000034B0: 29 3A 8E 00 D0 3C ED 0E 8B 43 24 28 4A 2C 57 29 |):...<...C$(J,W)|
000034C0: B2 22 53 49 4E 22 A7 20 5A B2 BF 28 59 29 3A 8E |."SIN". Z..(Y):.|
000034D0: 00 ED 3C EE 0E 8B 43 24 28 4A 2C 57 29 B2 22 43 |..<...C$(J,W)."C|
000034E0: 4F 53 22 A7 20 5A B2 BE 28 59 29 3A 8E 00 12 3D |OS". Z..(Y):...=|
000034F0: F0 0E 8B 43 24 28 4A 2C 57 29 B2 22 54 41 4E 22 |...C$(J,W)."TAN"|
00003500: AF BE 28 59 29 B3 B1 30 A7 20 5A B2 C0 28 59 29 |..(Y)..0. Z..(Y)|
00003510: 3A 8E 00 2F 3D F2 0E 8B 43 24 28 4A 2C 57 29 B2 |:../=...C$(J,W).|
00003520: 22 41 54 4E 22 A7 20 5A B2 C1 28 59 29 3A 8E 00 |"ATN". Z..(Y):..|
00003530: 4C 3D F4 0E 8B 43 24 28 4A 2C 57 29 B2 22 41 42 |L=...C$(J,W)."AB|
00003540: 53 22 A7 20 5A B2 B6 28 59 29 3A 8E 00 6D 3D F6 |S". Z..(Y):..m=.|
00003550: 0E 8B 43 24 28 4A 2C 57 29 B2 22 4C 4F 47 22 AF |..C$(J,W)."LOG".|
00003560: 59 B1 30 A7 20 5A B2 BC 28 59 29 3A 8E 00 92 3D |Y.0. Z..(Y):...=|
00003570: F8 0E 8B 43 24 28 4A 2C 57 29 B2 22 45 58 50 22 |...C$(J,W)."EXP"|
00003580: AF B6 28 59 29 B3 38 38 A7 20 5A B2 BD 28 59 29 |..(Y).88. Z..(Y)|
00003590: 3A 8E 00 AF 3D FA 0E 8B 43 24 28 4A 2C 57 29 B2 |:...=...C$(J,W).|
000035A0: 22 49 4E 54 22 A7 20 5A B2 B5 28 59 29 3A 8E 00 |"INT". Z..(Y):..|
000035B0: D6 3D FC 0E 8B 43 24 28 4A 2C 57 29 B2 22 53 45 |.=...C$(J,W)."SE|
000035C0: 43 22 AF BE 28 59 29 B3 B1 30 A7 20 5A B2 31 AD |C"..(Y)..0. Z.1.|
000035D0: BE 28 59 29 3A 8E 00 FD 3D FE 0E 8B 43 24 28 4A |.(Y):...=...C$(J|
000035E0: 2C 57 29 B2 22 43 53 43 22 AF BF 28 59 29 B3 B1 |,W)."CSC"..(Y)..|
000035F0: 30 A7 20 5A B2 31 AD BF 28 59 29 3A 8E 00 24 3E |0. Z.1..(Y):..$>|
00003600: 00 0F 8B 43 24 28 4A 2C 57 29 B2 22 43 4F 54 22 |...C$(J,W)."COT"|
00003610: AF C0 28 59 29 B3 B1 30 A7 20 5A B2 31 AD C0 28 |..(Y)..0. Z.1..(|
00003620: 59 29 3A 8E 00 56 3E 02 0F 8B 43 24 28 4A 2C 57 |Y):..V>...C$(J,W|
00003630: 29 B2 22 41 53 4E 22 AF 28 AB 59 AC 59 AA 31 29 |)."ASN".(.Y.Y.1)|
00003640: B1 30 A7 20 5A B2 C1 28 59 AD BA 28 AB 59 AC 59 |.0. Z..(Y..(.Y.Y|
00003650: AA 31 29 29 3A 8E 00 8E 3E 04 0F 8B 43 24 28 4A |.1)):...>...C$(J|
00003660: 2C 57 29 B2 22 41 43 4F 22 AF 28 AB 59 AC 59 AA |,W)."ACO".(.Y.Y.|
00003670: 31 29 B1 30 A7 20 5A B2 AB C1 28 59 AD BA 28 AB |1).0. Z...(Y..(.|
00003680: 59 AC 59 AA 31 29 29 AA 50 49 AD 32 3A 8E 00 BE |Y.Y.1)).PI.2:...|
00003690: 3E 06 0F 8B 43 24 28 4A 2C 57 29 B2 22 41 53 43 |>...C$(J,W)."ASC|
000036A0: 22 AF 28 59 AC 59 AB 31 29 B1 30 A7 20 5A B2 C1 |".(Y.Y.1).0. Z..|
000036B0: 28 59 AD BA 28 59 AC 59 AB 31 29 29 3A 8E 00 FC |(Y..(Y.Y.1)):...|
000036C0: 3E 08 0F 8B 43 24 28 4A 2C 57 29 B2 22 41 43 53 |>...C$(J,W)."ACS|
000036D0: 22 AF 28 59 AC 59 AB 31 29 B1 30 A7 20 5A B2 C1 |".(Y.Y.1).0. Z..|
000036E0: 28 59 AD BA 28 59 AC 59 AB 31 29 29 AA 28 B4 28 |(Y..(Y.Y.1)).(.(|
000036F0: 59 29 AB 31 AC 50 49 AD 32 29 3A 8E 00 1E 3F 0A |Y).1.PI.2):...?.|
00003700: 0F 8B 43 24 28 4A 2C 57 29 B2 22 41 43 54 22 A7 |..C$(J,W)."ACT".|
00003710: 20 5A B2 C1 28 59 29 AA 50 49 AD 32 3A 8E 00 3F | Z..(Y).PI.2:..?|
00003720: 3F 0C 0F 8B 43 24 28 4A 2C 57 29 B2 22 49 4E 56 |?...C$(J,W)."INV|
00003730: 22 AF 59 B3 B1 30 A7 20 5A B2 31 AD 59 3A 8E 00 |".Y..0. Z.1.Y:..|
00003740: 54 3F 0E 0F 8F 2D 2D 2D 2D 43 4F 4E 56 45 52 53 |T?...----CONVERS|
00003750: 49 4F 4E 53 00 75 3F 10 0F 8B 43 24 28 4A 2C 57 |IONS.u?...C$(J,W|
00003760: 29 B2 22 52 41 44 22 A7 20 5A B2 59 AC 50 49 AD |)."RAD". Z.Y.PI.|
00003770: 31 38 30 3A 8E 00 96 3F 12 0F 8B 43 24 28 4A 2C |180:...?...C$(J,|
00003780: 57 29 B2 22 44 45 47 22 A7 20 5A B2 59 AC 31 38 |W)."DEG". Z.Y.18|
00003790: 30 AD 50 49 3A 8E 00 B5 3F 14 0F 8B 43 24 28 4A |0.PI:...?...C$(J|
000037A0: 2C 57 29 B2 22 49 4E 53 22 A7 20 5A B2 59 AD 32 |,W)."INS". Z.Y.2|
000037B0: 35 2E 34 3A 8E 00 D4 3F 16 0F 8B 43 24 28 4A 2C |5.4:...?...C$(J,|
000037C0: 57 29 B2 22 4D 4D 53 22 A7 20 5A B2 59 AC 32 35 |W)."MMS". Z.Y.25|
000037D0: 2E 34 3A 8E 00 F5 3F 18 0F 8B 43 24 28 4A 2C 57 |.4:...?...C$(J,W|
000037E0: 29 B2 22 44 46 52 22 A7 20 5A B2 59 AC 39 AD 35 |)."DFR". Z.Y.9.5|
000037F0: AA 33 32 3A 8E 00 18 40 1A 0F 8B 43 24 28 4A 2C |.32:...@...C$(J,|
00003800: 57 29 B2 22 44 43 47 22 A7 20 5A B2 28 59 AB 33 |W)."DCG". Z.(Y.3|
00003810: 32 29 AC 35 AD 39 3A 8E 00 39 40 1C 0F 8B 43 24 |2).5.9:..9@...C$|
00003820: 28 4A 2C 57 29 B2 22 47 4D 53 22 A7 20 5A B2 59 |(J,W)."GMS". Z.Y|
00003830: AD 2E 30 33 35 33 36 3A 8E 00 5A 40 1E 0F 8B 43 |..03536:..Z@...C|
00003840: 24 28 4A 2C 57 29 B2 22 4F 5A 53 22 A7 20 5A B2 |$(J,W)."OZS". Z.|
00003850: 59 AC 2E 30 33 35 33 36 3A 8E 00 79 40 20 0F 8B |Y..03536:..y@ ..|
00003860: 43 24 28 4A 2C 57 29 B2 22 4C 42 4D 22 A7 20 5A |C$(J,W)."LBM". Z|
00003870: B2 59 AC 32 2E 32 31 3A 8E 00 98 40 22 0F 8B 43 |.Y.2.21:...@"..C|
00003880: 24 28 4A 2C 57 29 B2 22 4B 47 4D 22 A7 20 5A B2 |$(J,W)."KGM". Z.|
00003890: 59 AD 32 2E 32 31 3A 8E 00 B8 40 24 0F 8B 43 24 |Y.2.21:...@$..C$|
000038A0: 28 4A 2C 57 29 B2 22 4C 42 46 22 A7 20 5A B2 59 |(J,W)."LBF". Z.Y|
000038B0: AC 34 2E 34 34 38 3A 8E 00 D8 40 26 0F 8B 43 24 |.4.448:...@&..C$|
000038C0: 28 4A 2C 57 29 B2 22 4E 57 46 22 A7 20 5A B2 59 |(J,W)."NWF". Z.Y|
000038D0: AC 2E 32 32 34 38 3A 8E 00 FB 40 28 0F 8B 43 24 |..2248:...@(..C$|
000038E0: 28 4A 2C 57 29 B2 22 4D 4C 53 22 A7 20 5A B2 59 |(J,W)."MLS". Z.Y|
000038F0: AD 31 2E 36 30 39 33 34 34 3A 8E 00 1E 41 2A 0F |.1.609344:...A*.|
00003900: 8B 43 24 28 4A 2C 57 29 B2 22 4B 4D 53 22 A7 20 |.C$(J,W)."KMS". |
00003910: 5A B2 59 AC 31 2E 36 30 39 33 34 34 3A 8E 00 3E |Z.Y.1.609344:..>|
00003920: 41 2C 0F 8B 43 24 28 4A 2C 57 29 B2 22 46 50 53 |A,..C$(J,W)."FPS|
00003930: 22 A7 20 5A B2 59 AC 2E 33 30 34 38 3A 8E 00 5E |". Z.Y..3048:..^|
00003940: 41 2E 0F 8B 43 24 28 4A 2C 57 29 B2 22 4D 50 53 |A...C$(J,W)."MPS|
00003950: 22 A7 20 5A B2 59 AD 2E 33 30 34 38 3A 8E 00 80 |". Z.Y..3048:...|
00003960: 41 30 0F 8B 43 24 28 4A 2C 57 29 B2 22 50 53 49 |A0..C$(J,W)."PSI|
00003970: 22 A7 20 5A B2 59 AC 36 2E 38 39 35 AE 33 3A 8E |". Z.Y.6.895.3:.|
00003980: 00 A2 41 32 0F 8B 43 24 28 4A 2C 57 29 B2 22 4E |..A2..C$(J,W)."N|
00003990: 53 4D 22 A7 20 5A B2 59 AD 36 2E 38 39 35 AE 33 |SM". Z.Y.6.895.3|
000039A0: 3A 8E 00 EE 41 34 0F 8F 20 49 46 43 24 28 4A 2C |:...A4.. IFC$(J,|
000039B0: 57 29 3D 22 46 4E 31 22 54 48 45 4E 20 5A 3D 59 |W)="FN1"THEN Z=Y|
000039C0: 20 20 20 20 20 20 20 20 20 20 20 3A 52 45 54 55 | :RETU|
000039D0: 52 4E 3A 52 45 4D 20 55 53 45 52 20 44 45 46 49 |RN:REM USER DEFI|
000039E0: 4E 45 44 20 46 55 4E 43 54 49 4F 4E 20 31 00 3A |NED FUNCTION 1.:|
000039F0: 42 36 0F 8F 20 49 46 43 24 28 4A 2C 57 29 3D 22 |B6.. IFC$(J,W)="|
00003A00: 46 4E 32 22 54 48 45 4E 20 5A 3D 59 20 20 20 20 |FN2"THEN Z=Y |
00003A10: 20 20 20 20 20 20 20 3A 52 45 54 55 52 4E 3A 52 | :RETURN:R|
00003A20: 45 4D 20 55 53 45 52 20 44 45 46 49 4E 45 44 20 |EM USER DEFINED |
00003A30: 46 55 4E 43 54 49 4F 4E 20 32 00 86 42 38 0F 8F |FUNCTION 2..B8..|
00003A40: 20 49 46 43 24 28 4A 2C 57 29 3D 22 46 4E 33 22 | IFC$(J,W)="FN3"|
00003A50: 54 48 45 4E 20 5A 3D 59 20 20 20 20 20 20 20 20 |THEN Z=Y |
00003A60: 20 20 20 3A 52 45 54 55 52 4E 3A 52 45 4D 20 55 | :RETURN:REM U|
00003A70: 53 45 52 20 44 45 46 49 4E 45 44 20 46 55 4E 43 |SER DEFINED FUNC|
00003A80: 54 49 4F 4E 20 33 00 AB 42 3A 0F 99 22 20 96 49 |TION 3..B:.." .I|
00003A90: 4E 56 41 4C 49 44 20 50 41 52 41 4D 45 54 45 52 |NVALID PARAMETER|
00003AA0: 9E 91 22 3A 5A B2 30 3A 45 B2 31 00 B1 42 3C 0F |..":Z.0:E.1..B<.|
00003AB0: 8E 00 DF 42 3E 0F 8F 2D 2D 2D 2D 43 55 52 52 45 |...B>..----CURRE|
00003AC0: 4E 43 59 2F 44 45 43 49 4D 41 4C 2F 52 49 47 48 |NCY/DECIMAL/RIGH|
00003AD0: 54 20 4A 55 53 54 49 46 49 43 41 54 49 4F 4E 00 |T JUSTIFICATION.|
00003AE0: ED 42 40 0F 52 B2 32 3A 89 33 39 30 38 00 03 43 |.B@.R.2:.3908..C|
00003AF0: 42 0F 52 B2 C5 28 CA 28 43 24 28 4A 2C 30 29 2C |B.R..(.(C$(J,0),|
00003B00: 32 29 29 00 22 43 44 0F 43 4C 4D 24 B2 C4 28 B5 |2))."CD.CLM$..(.|
00003B10: 28 C5 28 43 4C 4D 24 29 AC 31 30 AE 52 AA 2E 35 |(.(CLM$).10.R..5|
00003B20: 29 29 00 44 43 46 0F 8B C8 28 43 4C 4D 24 2C 31 |)).DCF...(CLM$,1|
00003B30: 29 B2 22 20 22 A7 43 4C 4D 24 B2 CA 28 43 4C 4D |)." ".CLM$..(CLM|
00003B40: 24 2C 32 29 00 6D 43 48 0F 8B 52 B1 C3 28 43 4C |$,2).mCH..R..(CL|
00003B50: 4D 24 29 A7 43 4C 4D 24 B2 C9 28 22 30 30 30 30 |M$).CLM$..("0000|
00003B60: 30 30 30 30 22 AA 43 4C 4D 24 2C 52 29 00 99 43 |0000".CLM$,R)..C|
00003B70: 4A 0F 8B 52 A7 43 4C 4D 24 B2 C8 28 43 4C 4D 24 |J..R.CLM$..(CLM$|
00003B80: 2C C3 28 43 4C 4D 24 29 AB 52 29 AA 22 2E 22 AA |,.(CLM$).R).".".|
00003B90: C9 28 43 4C 4D 24 2C 52 29 00 B0 43 4C 0F 8F 2D |.(CLM$,R)..CL..-|
00003BA0: 2D 2D 2D 52 49 47 48 54 20 4A 55 53 54 49 46 59 |---RIGHT JUSTIFY|
00003BB0: 00 D3 43 4E 0F 8B C3 28 43 4C 4D 24 29 B3 43 57 |..CN...(CLM$).CW|
00003BC0: A7 43 4C 4D 24 B2 C9 28 53 24 AA 43 4C 4D 24 2C |.CLM$..(S$.CLM$,|
00003BD0: 43 57 29 00 F3 43 50 0F 8B C3 28 43 4C 4D 24 29 |CW)..CP...(CLM$)|
00003BE0: B1 43 57 A7 43 4C 4D 24 B2 C8 28 43 4C 4D 24 2C |.CW.CLM$..(CLM$,|
00003BF0: 43 57 29 00 F9 43 52 0F 8E 00 15 44 54 0F 8F 2D |CW)..CR....DT..-|
00003C00: 2D 2D 2D 4C 45 46 54 20 4A 55 53 54 49 46 49 43 |---LEFT JUSTIFIC|
00003C10: 41 54 49 4F 4E 00 40 44 56 0F 8B C3 28 43 4C 4D |ATION.@DV...(CLM|
00003C20: 24 29 B3 43 57 A7 43 4C 4D 24 B2 43 4C 4D 24 AA |$).CW.CLM$.CLM$.|
00003C30: C8 28 53 24 2C 43 57 AB C3 28 43 4C 4D 24 29 29 |.(S$,CW..(CLM$))|
00003C40: 00 60 44 58 0F 8B C3 28 43 4C 4D 24 29 B1 43 57 |.`DX...(CLM$).CW|
00003C50: A7 43 4C 4D 24 B2 C8 28 43 4C 4D 24 2C 43 57 29 |.CLM$..(CLM$,CW)|
00003C60: 00 66 44 5A 0F 8E 00 8B 44 5C 0F 8F 2D 2D 2D 2D |.fDZ....D\..----|
00003C70: 50 45 52 43 45 4E 54 2F 52 49 47 48 54 20 4A 55 |PERCENT/RIGHT JU|
00003C80: 53 54 49 46 49 43 41 54 49 4F 4E 00 A3 44 5E 0F |STIFICATION..D^.|
00003C90: 43 4C 4D 24 B2 C4 28 C5 28 43 4C 4D 24 29 AC 31 |CLM$..(.(CLM$).1|
00003CA0: 30 30 29 00 AD 44 60 0F 89 33 39 30 36 00 C0 44 |00)..D`..3906..D|
00003CB0: 62 0F 8F 2D 2D 2D 2D 44 49 52 45 43 54 4F 52 59 |b..----DIRECTORY|
00003CC0: 00 F2 44 64 0F 99 22 93 9E 22 3B 3A 40 22 24 22 |..Dd.."..";:@"$"|
00003CD0: 3A 99 A3 32 35 29 22 99 50 52 45 53 53 20 05 12 |:..25)".PRESS ..|
00003CE0: 41 4E 59 20 4B 45 59 92 9E 22 3A 8D 33 30 31 38 |ANY KEY..":.3018|
00003CF0: 3A 8E 00 0D 45 9E 0F 8F 2D 2D 2D 2D 53 45 54 55 |:...E...----SETU|
00003D00: 50 20 46 4F 52 20 50 52 49 4E 54 45 52 00 3F 45 |P FOR PRINTER.?E|
00003D10: A0 0F 99 22 93 9E 20 12 20 20 20 20 20 43 41 4C |...".. . CAL|
00003D20: 43 55 4C 41 54 45 44 20 52 45 50 4F 52 54 53 20 |CULATED REPORTS |
00003D30: 50 52 4F 47 52 41 4D 20 20 20 20 20 20 20 22 00 |PROGRAM ".|
00003D40: 6F 45 A2 0F 99 22 20 12 20 20 50 52 49 4E 54 45 |oE..." . PRINTE|
00003D50: 52 20 4F 52 20 49 4E 54 45 52 46 41 43 45 20 43 |R OR INTERFACE C|
00003D60: 4F 4E 46 49 47 55 52 41 54 49 4F 4E 20 20 22 00 |ONFIGURATION ".|
00003D70: 8E 45 A3 0F 99 22 11 99 20 43 55 52 52 45 4E 54 |.E...".. CURRENT|
00003D80: 20 4F 50 54 49 4F 4E 20 49 53 3A 9E 22 50 00 B3 | OPTION IS:."P..|
00003D90: 45 A4 0F 99 22 11 99 20 50 52 45 53 53 20 12 05 |E...".. PRESS ..|
00003DA0: 31 99 92 20 20 43 41 52 44 43 4F 20 41 2C 20 31 |1.. CARDCO A, 1|
00003DB0: 35 32 35 00 E6 45 A6 0F 99 22 20 20 20 20 20 20 |525..E..." |
00003DC0: 20 12 05 32 99 92 20 20 50 52 49 4E 54 45 52 53 | ..2.. PRINTERS|
00003DD0: 20 57 2F 47 52 41 50 48 49 43 20 49 4E 54 45 52 | W/GRAPHIC INTER|
00003DE0: 46 41 43 45 53 22 00 10 46 A8 0F 99 22 20 20 20 |FACES"..F..." |
00003DF0: 20 20 20 20 12 05 33 99 92 20 20 31 35 32 36 2C | ..3.. 1526,|
00003E00: 20 4D 50 53 38 30 31 2F 38 30 32 2F 38 30 33 22 | MPS801/802/803"|
00003E10: 00 35 46 A9 0F 99 22 20 20 20 20 20 20 20 12 05 |.5F..." ..|
00003E20: 34 99 92 20 20 50 52 49 4E 54 20 54 4F 20 53 43 |4.. PRINT TO SC|
00003E30: 52 45 45 4E 22 00 65 46 AA 0F 8B 50 B3 B1 30 A7 |REEN".eF...P..0.|
00003E40: 99 22 11 11 20 20 20 4F 52 20 20 12 05 53 99 92 |.".. OR ..S..|
00003E50: 45 4E 44 20 50 52 49 4E 54 45 52 20 43 4F 4D 4D |END PRINTER COMM|
00003E60: 41 4E 44 53 22 00 8F 46 AC 0F 8B 50 B3 B1 4F A7 |ANDS"..F...P..O.|
00003E70: 99 22 11 20 20 20 20 20 20 20 12 05 45 99 92 58 |.". ..E..X|
00003E80: 49 54 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 00 |IT TO CONTINUE".|
00003E90: C1 46 AE 0F 99 22 11 11 9E 20 12 20 20 20 20 20 |.F..."... . |
00003EA0: 20 50 52 45 53 53 20 54 48 45 20 41 50 50 52 4F | PRESS THE APPRO|
00003EB0: 50 52 49 41 54 45 20 4B 45 59 20 20 20 20 20 20 |PRIATE KEY |
00003EC0: 22 00 D5 46 B0 0F A1 41 24 3A 8B 41 24 B2 22 22 |"..F...A$:.A$.""|
00003ED0: A7 34 30 31 36 00 F3 46 B2 0F 8B 41 24 B2 22 45 |.4016..F...A$."E|
00003EE0: 22 A7 99 22 93 43 4C 45 41 52 49 4E 47 2E 2E 2E |"..".CLEARING...|
00003EF0: 22 3A 8E 00 04 47 B4 0F 8B 41 24 B2 22 53 22 A7 |":...G...A$."S".|
00003F00: 34 30 34 34 00 15 47 B6 0F 50 B2 C5 28 41 24 29 |4044..G..P..(A$)|
00003F10: 3A 50 46 B2 34 00 2E 47 B8 0F 8B 50 B2 31 A7 42 |:PF.4..G...P.1.B|
00003F20: 31 24 B2 C7 28 31 30 29 3A 89 34 30 30 30 00 46 |1$..(10):.4000.F|
00003F30: 47 BA 0F 8B 50 B2 32 A7 42 31 24 B2 C7 28 30 29 |G...P.2.B1$..(0)|
00003F40: 3A 89 34 30 30 30 00 5E 47 BC 0F 8B 50 B2 33 A7 |:.4000.^G...P.3.|
00003F50: 42 31 24 B2 C7 28 30 29 3A 89 34 30 30 30 00 7B |B1$..(0):.4000.{|
00003F60: 47 BD 0F 8B 50 B2 34 A7 42 31 24 B2 C7 28 30 29 |G...P.4.B1$..(0)|
00003F70: 3A 50 46 B2 33 3A 89 34 30 30 30 00 8A 47 BE 0F |:PF.3:.4000..G..|
00003F80: 8D 36 30 32 3A 89 34 30 31 36 00 A4 47 C0 0F 8F |.602:.4016..G...|
00003F90: 2D 2D 2D 2D 50 52 49 4E 54 20 54 45 52 4D 49 4E |----PRINT TERMIN|
00003FA0: 41 54 4F 52 00 BF 47 C2 0F 91 50 89 34 30 33 36 |ATOR..G...P.4036|
00003FB0: 2C 34 30 33 38 2C 34 30 34 30 2C 34 30 33 38 00 |,4038,4040,4038.|
00003FC0: CE 47 C4 0F 98 50 46 2C 42 31 24 3B 3A 8E 00 DC |.G...PF,B1$;:...|
00003FD0: 47 C6 0F 98 50 46 2C 42 31 24 3A 8E 00 E6 47 C8 |G...PF,B1$:...G.|
00003FE0: 0F 98 50 46 3A 8E 00 00 48 CA 0F 8F 2D 2D 2D 2D |..PF:...H...----|
00003FF0: 50 52 49 4E 54 45 52 20 43 4F 4D 4D 41 4E 44 53 |PRINTER COMMANDS|
00004000: 00 33 48 CC 0F 99 22 93 20 9E 12 20 20 20 20 20 |.3H...". .. |
00004010: 20 20 20 20 20 20 50 52 49 4E 54 45 52 20 43 4F | PRINTER CO|
00004020: 4D 4D 41 4E 44 20 20 20 20 20 20 20 20 20 20 20 |MMAND |
00004030: 20 92 22 00 5E 48 CE 0F 99 22 11 99 20 54 48 49 | .".^H...".. THI|
00004040: 53 20 52 4F 55 54 49 4E 45 20 57 49 4C 4C 20 53 |S ROUTINE WILL S|
00004050: 45 4E 44 20 43 48 41 52 41 43 54 45 52 22 00 8B |END CHARACTER"..|
00004060: 48 D0 0F 99 22 20 53 54 52 49 4E 47 20 5B 43 48 |H..." STRING [CH|
00004070: 52 24 28 29 5D 20 43 4F 4D 4D 41 4E 44 53 20 54 |R$()] COMMANDS T|
00004080: 4F 20 41 4E 20 41 53 43 49 49 22 00 B9 48 D2 0F |O AN ASCII"..H..|
00004090: 99 22 20 50 52 49 4E 54 45 52 2E 20 20 43 4F 4D |." PRINTER. COM|
000040A0: 4D 41 4E 44 53 20 4D 55 53 54 20 42 45 20 45 4E |MANDS MUST BE EN|
000040B0: 54 45 52 45 44 20 49 4E 22 00 DF 48 D4 0F 99 22 |TERED IN"..H..."|
000040C0: 20 54 48 45 20 46 4F 52 4D 20 4F 46 20 49 4E 54 | THE FORM OF INT|
000040D0: 45 47 45 52 53 20 53 55 43 48 20 41 53 3A 22 00 |EGERS SUCH AS:".|
000040E0: 01 49 D6 0F 99 22 11 9E 20 3F 20 32 37 99 20 20 |.I...".. ? 27. |
000040F0: 20 20 20 28 45 53 43 41 50 45 20 43 4F 44 45 29 | (ESCAPE CODE)|
00004100: 22 00 21 49 D8 0F 99 22 20 9E 3F 20 36 36 99 20 |".!I..." .? 66. |
00004110: 20 20 20 20 28 50 49 54 43 48 20 43 4F 44 45 29 | (PITCH CODE)|
00004120: 22 00 46 49 DA 0F 99 22 20 9E 3F 20 32 99 20 20 |".FI..." .? 2. |
00004130: 20 20 20 20 28 43 4F 4D 50 52 45 53 53 45 44 20 | (COMPRESSED |
00004140: 4D 4F 44 45 29 22 00 6C 49 DC 0F 99 22 20 9E 3F |MODE)".lI..." .?|
00004150: 20 2A 99 20 20 20 20 20 20 28 45 4E 44 20 54 48 | *. (END TH|
00004160: 45 20 53 45 51 55 45 4E 43 45 29 22 00 9A 49 DE |E SEQUENCE)"..I.|
00004170: 0F 99 22 11 20 54 48 49 53 20 57 49 4C 4C 20 42 |..". THIS WILL B|
00004180: 45 20 53 45 4E 54 20 54 4F 20 54 48 45 20 50 52 |E SENT TO THE PR|
00004190: 49 4E 54 45 52 20 41 53 3A 22 00 C7 49 E0 0F 99 |INTER AS:"..I...|
000041A0: 22 11 20 20 20 9E 50 52 49 4E 54 23 34 2C 43 48 |". .PRINT#4,CH|
000041B0: 52 24 28 32 37 29 43 48 52 24 28 36 36 29 43 48 |R$(27)CHR$(66)CH|
000041C0: 52 24 28 32 29 99 22 00 F3 49 E2 0F 99 22 11 20 |R$(2)."..I...". |
000041D0: 55 50 20 54 4F 20 46 4F 55 52 28 34 29 20 4E 55 |UP TO FOUR(4) NU|
000041E0: 4D 42 45 52 53 20 4D 41 59 20 42 45 20 53 45 4E |MBERS MAY BE SEN|
000041F0: 54 2C 22 00 20 4A E4 0F 99 22 20 54 48 45 20 46 |T,". J..." THE F|
00004200: 49 52 53 54 20 4E 4F 52 4D 41 4C 4C 59 20 42 45 |IRST NORMALLY BE|
00004210: 49 4E 47 20 12 9E 32 37 99 92 2C 20 54 48 45 22 |ING ..27.., THE"|
00004220: 00 4C 4A E6 0F 99 22 20 45 53 43 41 50 45 20 43 |.LJ..." ESCAPE C|
00004230: 48 41 52 41 43 54 45 52 2E 20 20 45 4E 44 20 54 |HARACTER. END T|
00004240: 48 45 20 53 45 51 55 45 4E 43 45 22 00 7D 4A E8 |HE SEQUENCE".}J.|
00004250: 0F 99 22 20 42 59 20 50 52 45 53 53 49 4E 47 20 |.." BY PRESSING |
00004260: 12 05 52 45 54 55 52 4E 99 92 20 57 48 45 4E 20 |..RETURN.. WHEN |
00004270: 54 48 45 20 41 53 54 45 52 49 53 4B 22 00 A9 4A |THE ASTERISK"..J|
00004280: EA 0F 99 22 20 49 53 20 53 48 4F 57 49 4E 47 2E |..." IS SHOWING.|
00004290: 20 20 50 52 49 4E 54 45 52 53 20 57 49 4C 4C 20 | PRINTERS WILL |
000042A0: 56 41 52 59 2C 20 53 4F 22 00 D2 4A EC 0F 99 22 |VARY, SO"..J..."|
000042B0: 20 43 48 45 43 4B 20 59 4F 55 52 20 4D 41 4E 55 | CHECK YOUR MANU|
000042C0: 41 4C 20 46 4F 52 20 54 48 45 20 43 4F 44 45 53 |AL FOR THE CODES|
000042D0: 2E 22 00 04 4B EE 0F 99 22 11 20 20 20 20 05 12 |."..K...". ..|
000042E0: 41 4E 59 20 4B 45 59 99 92 20 54 4F 20 43 4F 4E |ANY KEY.. TO CON|
000042F0: 54 49 4E 55 45 20 4F 52 20 12 05 45 99 92 58 49 |TINUE OR ..E..XI|
00004300: 54 3F 9E 22 00 18 4B EF 0F A1 41 24 3A 8B 41 24 |T?."..K...A$:.A$|
00004310: B2 22 22 A7 34 30 37 39 00 26 4B F0 0F 8B 41 24 |."".4079.&K...A$|
00004320: B2 22 45 22 A7 8E 00 59 4B F2 0F 99 22 93 20 9E |."E"...YK...". .|
00004330: 12 20 20 20 20 20 20 20 20 53 45 4E 44 20 50 52 |. SEND PR|
00004340: 49 4E 54 45 52 20 43 4F 4D 4D 41 4E 44 20 20 20 |INTER COMMAND |
00004350: 20 20 20 20 20 20 20 92 22 00 84 4B F4 0F 99 22 | ."..K..."|
00004360: 11 20 99 45 4E 54 45 52 20 43 4F 44 45 2C 20 54 |. .ENTER CODE, T|
00004370: 48 45 4E 20 50 52 45 53 53 20 05 12 52 45 54 55 |HEN PRESS ..RETU|
00004380: 52 4E 92 22 00 A6 4B F6 0F 99 22 11 20 12 52 45 |RN."..K...". .RE|
00004390: 54 55 52 4E 92 20 99 4F 4E 4C 59 20 54 4F 20 51 |TURN. .ONLY TO Q|
000043A0: 55 49 54 11 11 22 00 D1 4B F8 0F 81 49 B2 31 A4 |UIT.."..K...I.1.|
000043B0: 34 3A 99 22 99 43 4F 44 45 9E 22 3B 49 3B 22 20 |4:.".CODE.";I;" |
000043C0: 3F 20 2A 20 9D 9D 9D 9D 22 3B 3A 85 49 24 28 49 |? * ....";:.I$(I|
000043D0: 29 00 E5 4B FA 0F 8B 49 24 28 49 29 B2 22 2A 22 |)..K...I$(I)."*"|
000043E0: A7 34 30 39 34 00 EC 4B FC 0F 82 49 00 11 4C FE |.4094..K...I..L.|
000043F0: 0F 91 28 49 AB 31 29 89 34 30 39 36 2C 34 30 39 |..(I.1).4096,409|
00004400: 38 2C 34 31 30 30 2C 34 31 30 32 3A 89 34 31 30 |8,4100,4102:.410|
00004410: 34 00 2A 4C 00 10 98 34 2C C7 28 C5 28 49 24 28 |4.*L...4,.(.(I$(|
00004420: 31 29 29 29 3A 89 34 31 30 34 00 4E 4C 02 10 98 |1))):.4104.NL...|
00004430: 34 2C C7 28 C5 28 49 24 28 31 29 29 29 C7 28 C5 |4,.(.(I$(1))).(.|
00004440: 28 49 24 28 32 29 29 29 3A 89 34 31 30 34 00 7D |(I$(2))):.4104.}|
00004450: 4C 04 10 98 34 2C C7 28 C5 28 49 24 28 31 29 29 |L...4,.(.(I$(1))|
00004460: 29 C7 28 C5 28 49 24 28 32 29 29 29 C7 28 C5 28 |).(.(I$(2))).(.(|
00004470: 49 24 28 33 29 29 29 3A 89 34 31 30 34 00 B1 4C |I$(3))):.4104..L|
00004480: 06 10 98 34 2C C7 28 C5 28 49 24 28 31 29 29 29 |...4,.(.(I$(1)))|
00004490: C7 28 C5 28 49 24 28 32 29 29 29 C7 28 C5 28 49 |.(.(I$(2))).(.(I|
000044A0: 24 28 33 29 29 29 C7 28 C5 28 49 24 28 34 29 29 |$(3))).(.(I$(4))|
000044B0: 29 00 D5 4C 08 10 99 22 11 11 20 20 20 20 20 20 |)..L...".. |
000044C0: 20 20 20 20 12 05 41 99 92 4E 4F 54 48 45 52 20 | ..A..NOTHER |
000044D0: 43 4F 44 45 22 00 F8 4C 0A 10 99 22 11 20 20 20 |CODE"..L...". |
000044E0: 20 20 20 20 20 20 20 12 05 54 99 92 45 53 54 20 | ..T..EST |
000044F0: 50 52 49 4E 54 45 52 22 00 1C 4D 0C 10 99 22 11 |PRINTER"..M...".|
00004500: 20 20 20 20 20 20 20 20 20 20 12 05 45 99 92 58 | ..E..X|
00004510: 49 54 20 54 4F 20 50 52 49 4E 54 22 00 4E 4D 0E |IT TO PRINT".NM.|
00004520: 10 99 22 11 20 9E 12 20 20 20 20 20 20 50 52 45 |..". .. PRE|
00004530: 53 53 20 54 48 45 20 41 50 50 52 4F 50 52 49 41 |SS THE APPROPRIA|
00004540: 54 45 20 4B 45 59 20 20 20 20 20 20 20 22 00 62 |TE KEY ".b|
00004550: 4D 10 10 A1 41 24 3A 8B 41 24 B2 22 22 A7 34 31 |M...A$:.A$."".41|
00004560: 31 32 00 73 4D 11 10 8B 41 24 B2 22 41 22 A7 34 |12.sM...A$."A".4|
00004570: 30 38 32 00 A5 4D 12 10 8B 41 24 B2 22 54 22 A7 |082..M...A$."T".|
00004580: 98 34 2C 22 41 42 43 44 45 46 47 48 49 4A 4B 4C |.4,"ABCDEFGHIJKL|
00004590: 4D 4E 4F 50 51 52 53 54 55 56 57 58 59 5A 22 3A |MNOPQRSTUVWXYZ":|
000045A0: 89 34 31 31 32 00 B3 4D 14 10 8B 41 24 B2 22 45 |.4112..M...A$."E|
000045B0: 22 A7 8E 00 C2 4D 16 10 8D 36 30 32 3A 89 34 31 |"....M...602:.41|
000045C0: 31 32 00 00 00 |12... |
.."....FL.0.FL.1:."DP] DOS5.1",8,1.K....
FL.1.FL.2:.52224:. (C) BY COMMODORE.T.X.
.E.0.24:.54272.E,0:.:.54296,15:.3000...Z
..54277,58:.54278,16:.54273,35:.54272,13
4.F.\..54276,33:.E.1.100:.:.54276,16:...
.... DFCALC 1.5A PROGRAM FOR DATAFILE BY
MIKE KONSHAK (C)1986.0....53281,0:.5328
0,0:.".":.4,4:.3,3:.4000.D....----DIM AR
RAYS.I...B$.G(32):PI.3.14159265:CR$.G(13
)...B..I.1.100:S$.S$.G(32):.I...D.. F$(3
1),T%(31),L%(31),REC$(31),SUM(17),BUF(17
)...F.. F(17),C$(17,15),PC(18),TT$(5),HC
$(17):.3044...H..----GET...J..A$:.A$."".
3018...L...".N..----PROMPT.A.P..".. PRES
S ..C..ONT ..R..EDO ..S..TART ..J..UMP .
.E..XIT.".M.R..3018:....T..----CLEAR TOP
13 ROWS OF SCREEN...V..Z.1.13:.781,Z:.5
9903:.Z:..E.X..----DISK ERROR...Z..15,EN
,EM$,ET,ES:.(EN.20).(EN.62).ET.0:..&....
". ..DISK ERROR."EN"., "EM$","ET".,"ES".
":ET.8.O....". .PRESS ..ANY KEY.. TO CON
TINUE.".B....3018: 5: 15:..Y....----STAR
TING MENU......".. . CALCULATED REPORTS
PROGRAM REV 1.5A "......" .. COPYRIGHT
(C)1986 BY MIKE KONSHAK "......"...
USE ..O..LD PREDEFINED FORMAT".'....".
OR ..N..EW FORMAT".R....". .
.$.. DISK DIRECTORY ..4..".S....".
..Q..UIT PROGRAM"......". TRANSFER TO:
"......". ..D.. DATAFILE DBMS"...
...". ..P.. DFPRINT REPORTS-LISTS
-LABELS"......". .. PRESS THE APPRO
PRIATE KEY .".2....3018:.A$."Q". 3
: 4:.".":..H....A$."N".K.1:.3068.|....A$
."D".."..LOAD"G(34)"DATAFILE"G(34)",8":.
3064......A$."O".K.2:FL.0:.3068.J....A$.
"P".."..LOAD"G(34)"DFPRINT"G(34)",8":.30
64......A$."$".A$."4"..3940:.3044......6
02:.3056......:.:.:.:."RUN.".@....631,19
:.632,13:.633,13:.634,13:.635,13:.636,13
.O....198,6:.:..{....----OPEN DATAFILE,
READ FILE STRUCTURE......".. AVAILABLE D
ATAFILE RECORD FILES ARE:..":@"$0:DF]*".
.....". NAME OF DATAFILE RECORD FILE?.".
....." ? "NF$:.". ";A$:.A$."".3044......
A$.NF$.3096.....NF$.A$.W....15,8,15:.5,8
,5,"0:DF] ".NF$.",S,R":.3034:.ET.8.3044.
N....EN.62..3036:.3044......5,R,F,X:.303
4:.ET.8.3044......N.1.F:.5,F$(N),L%(N):.
N:.3034:.ET.8.3044.E... 5: 15.S....K.2.3
386......----DEFINE NEW FORMAT.#...CK.1:
.".. . DEFINE REPORT HEADER FORMAT
.".M....".. ENTER WIDTH OF REPORT (136
MAX)"......". ? 0.."PW:.". ";PW:.PW.136.
.".......":.3098......".. ENTER NUMBER O
F TITLE LINES IN THE".Q. .." REPORT HEAD
ER (4 LINES MAX)"..."..". "NL:.". ";NL:
.NL.4..".......":.3102.".$..NL.0.TT$(1).
".NO TITLES":.3118.O.&..:.J.1.NL:.". .TI
TLE #."J:." ? >."TT$(J).G.(..C(TT$(J)).3
7..".";...*..". ";TT$(J):.TT$(J)."".TT$(
J).">"...,..J......3024:.A$."E".3044...0
..A$."J".3386.U.2..A$."R".A$."S".3096...
4..----PRINT FIELD INFO FOR REFERENCE.".
6..".":.I.1.(22..(F.2)):.G(17);:.I.M.8..
". .FIELD NAME(LENGTH) DATA FOR ."NF$.O.
:.OE.1:.(F.2)..(F.2).OE.0:.3132...<.OF..
(F.2):.I.1.OF.OE...>.." .."I".."F$(I)L%(
I);...@..OE.1.3140...B...19)".."I.OF".."
F$(I.OF)L%(I.OF):.3142...D..I.OF.F...19)
".."I.OF.1".."F$(I.OF.1)L%(I.OF.1)...F..
I.6.H..----ENTER COLUMNAR DATA.H.J.."..
. DEFINE REPORT COLUMNAR FORMAT ."
.R.L..3030. .N..".... CALCULATE THE TOTA
L LENGTH OF ALL".M.P.." FIELDS TO BE INC
LUDED IN THE REPORT."...R.." ALLOWING 2
SPACES BETWEEN EACH"...T.." COLUMN.".4.V
..". ENTER THE NUMBER OF COLUMNS IN REPO
RT.".M.X.." (16 COLUMNS MAX)".S.Z..". ?
0.."NC:.". ";NC:.NC.16.3148...\..3024:.A
$."E".3044...^..A$."J".3386...`..A$."R".
3148...B..A$."S".3096.V.D..----COLUMN PO
SITION...F..I.1.NC:.3030...H..".... ENTE
R POSITION OF COLUMN .."I".".A.J.." ? 0.
."PC(I):.". ";PC(I):.PC(I).0.3174.[.L..P
C(I).PW.."..":.3178.B.N..I.Y.P..3024:.A$
."E".3044...R..A$."J".3386...T..A$."R".3
174...V..A$."S".3096...X..I.1.NC:.3030.V
.Z..----COLUMN HEADING...|..".... ENTER
HEADING OF COLUMN .."I.-.~..". HEADING I
S ..";:.I.NC..PW.PC(I);:.3202.C....PC(I.
1).2.PC(I);.^....". .CHARACTERS WIDE."..
....". ? >."HC$(I):.". ";HC$(I):.HC$(I).
"R".3192......I......3024:.A$."E".3044..
....A$."J".3386.P....A$."R".3192......A$
."S".3096......----COLUMN CONTENTS DATA.
6....I.1.NC:.". .. FORMAT INPUT ROUTINES
FOR COLUMN."I.E....3030:.".... ENTER CO
NTENTS OF COLUMN .."I......".. CHOOSE ..
F..IELD DATA IN RECORDS"......" .
.E..QUATION".W...." ..R..UNNING T
OTAL (BALANCE)"......" ..#.. RECO
RD NUMBER".5....". ? F."H(C$(I,1),1):.".
";C$:C$(I,1).C$.J(C$(I,1),2).`....C$."#
".C$(I,1)."#":C$(I,13)."N":.3344.Q. ..C$
."F".3238......C$."E".3260......C$."R".3
239......"..":.602:.3228......".. WHICH
FIELD # WILL BE IN COLUMN .."I:.3241....
..".. WHICH COLUMN # IS TO HAVE A RUNNIN
G".I...." TOTAL IN COLUMN .."I"..? .ENTE
R ..1.. THRU .."I.1:.3245.G....". ENTER
..1.. THRU .."F......". ? "J(C$(I,1),2,2
):.". ";C$......(E(C$).F).(E(C$)..0)..".
.":.3242......3247......". ? "J(C$(I,1),
2,2):.". ";C$......(E(C$).I.1).(E(C$)..0
).."..":.3245.!...C$(I,1).H(C$(I,1),1).C
$.+....3328.B....3024:.A$."E".3044.S....
A$."J".3386.D....A$."R".3220.U....A$."S"
.3096......----COLUMN CONTENTS CALCULATI
ON.B...EQ.2:OP.1:.J.0.3:RS$(J)."":.J:.32
64.V...EQ.EQ.4:OP.OP.1......3030:."....
ENTER EQUATION .."OP"..FOR COLUMN .."I..
.B..OP.1..3308.9.D..". ..RES..="RS$(OP.1
).Z.F..".. OPERAND X.? .."C$(I,EQ).|.H..
". OPERATOR .? .."C$(I,EQ.1)...J..". OPE
RAND Y.? .."C$(I,EQ.2)...L..".......".10
):.C$(I,EQ).Q.N...10):.C$(I,EQ.1)...P...
10):.C$(I,EQ.2)...R..3308:.". .RES="RS$(
OP)".":C$(I,14).RS$(OP)...T..3024:.A$."E
".3044.?.V..A$."J".3386.P.X..A$."R".3220
.A.Z..A$."S".3096.Q....EQ.10.3328......"
.. EXPAND EQUATION? ..Y.. OR ..N..
".P...." ? N."C$(I,EQ.3):.". ";C$
(I,EQ.3)......C$(I,EQ.3)."Y".3262.....:.
#....C$(I,EQ.3)."N"..J.EQ.4.12:C$(I,J)."
.":.J:.3328.3...."..":.3294.O....----COM
BINE OPERATIONS.F....OP.3310,3312,3318..
...RS$(1).C$(I,2).C$(I,3).C$(I,4):.3324.
.....C$(I,6)."RES".3316.W...RS$(2).C$(I,
6).C$(I,7)."(".RS$(1).")":.3324.....RS$(
2)."(".RS$(1).")".C$(I,7).C$(I,8):.3324.
....C$(I,10)."RES".3322.R...RS$(3).C$(I
,10).C$(I,11)."(".RS$(2).")":.3324.~...R
S$(3)."(".RS$(2).")".C$(I,11).C$(I,12)..
..........----FIELD TOTALS.H....3030:.".
... SET END-OF-COLUMN OPERATION"......".
OPTIONS: ..T..OTAL SUM OF COLUMN"."....
" ..A..VERAGE CONTENTS OF COLUM
N".O...." ..N..O OPERATION TO C
OLUMN.".T....". ? N."C$(I,13):.". ";C$(I
,13)......(C$(I,13)."T").(C$(I,13)."A").
(C$(I,13)."N").3344......"..":.3336.W...
.----SET JUSTIFICATIONS.. ...3030:."...
SET COLUMN JUSTIFICATION.. ...". OPTIONS
: ..L..EFT".6 ..." ..R..IGHT".[
..." ..C..URRENCY ($.00)".| ..
." ..P..ERCENT (%)".. ..."
..D..ECIMALS TO RIGHT".. ...". ? L.
"H(C$(I,0),1):.". ";C$:C$(I,0).C$.J(C$(I
,0),2)..!...(C$."L").(C$."R").(C$."C").3
370..! ..(C$."P").(C$."D").3364./!".."..
":.3356.]!$..". # OF PLACES TO THE RIGHT
OF DECIMAL:"..!&..". ? 1."J(C$(I,0),2,1
):.". ";C$..!(.C$(I,0).H(C$(I,0),1).C$..
!*..3024:.A$."E".3044.F!,..A$."J".3386.W
!...A$."R".3220..!0..A$."S".3096.."2..J.
0.14:.C$(I,J)."".C$(I,J).".".."4..J:.I..
"6.FL.1.8"8..----OPERATIONS MENU.K":..".
.. CALCULATED REPORTS OPERATIONS MENU
.".."<..".. CURRENT DATAFILE: .."NF$
..">..FL.1..". ..S..AVE REPORT FORMAT"
.Z"@..". ..L..OAD REPORT FORMAT"..#B..
FL.1..". ..C..HANGE REPORT FORMAT".'#D
..FL.1..". ..P..RINT RECORDS".I#E..".
..R..ECONFIGURE PRINTER, OPTION."P;:.P
.4.."...SCREEN.";..#F..:.". ..$.. DISK
DIRECTORY ..4."..#H..". ..E..XIT THIS
DATAFILE"..#J..".. . PRESS THE AP
PROPRIATE KEY ."..$L..3018:.A$."E".
CK.0.3044..$N..A$."S".3430.#$P..A$."L".3
456.4$R..A$."C".3096.E$T..A$."P".3496.D$
V..A$."$".A$."4"..3940:.3386.Z$X..A$."E"
.CK.1.3420..$Y..A$."R"..4000:.3386..$Z..
602:.3404.T$\..". ..YOU HAVE NOT SAVED Y
OUR NEW FORMAT!!!.."..%^.." DO YOU STILL
WANT TO EXIT? .Y. OR .N.? "..%`..3018
:.A$."Y".3044.'%B..3386.C%D..----SAVE RE
PORT FORMAT.H%F..".. SAVE UNDER WHAT FIL
E NAME?"..%H..".. ? "NF$:.". ";CF$:.CF$.
"".3386..%J..". SAVING CALCULATED REPORT
FORMAT"..%L..15,8,15:.15,"S0:CR] ".CF$:
.3034:.ET.8.3386..&N..5,8,5,"0:CR] ".CF$
.",S,W":.3034:.ET.8.3386.A&P..5,PW;CR$;N
L;CR$;NC:.3034:.ET.8.3386.K&R..J.1.NL:.5
,TT$(J):.J:.3034:.ET.8.3386..&T..I.1.NC:
.5,PC(I);CR$;HC$(I):.3034:.ET.8.3386.G&V
..J.0.14:.5,C$(I,J):.J:.3034:.ET.8.3386.
N&X..I..&Z..5,"EOF"..&|. 5: 15:CK.0:.338
6..'~..----LOAD REPORT FORMAT.E'...".. A
VAILABLE CALC FORMAT FILES ARE:..":@"$0:
CR]*".L'...".. LOAD FORMAT FROM WHAT FIL
E?."..'...". ? "NF$:.". ";CF$:.CF$."".33
86..'...". LOADING CALCULATED REPORT FOR
MAT"..'...15,8,15:.5,8,5,"0:CR] ".CF$.",
S,R":.3034:.ET.8.3386..(...EN.62..3036:.
3386.-(...5,PW,NL,NC:.3034:.ET.8.3386.W(
...J.1.NL:.5,TT$(J):.J:.3034:.ET.8.3386.
.(...I.1.NC:.5,PC(I),HC$(I):.3034:.ET.8.
3386..(...J.0.14:.5,C$(I,J):.J:.3034:.ET
.8.3386..(...I.A(.. 5: 15.P(..FL.1:.3386
..(...----START PRINT PROCESS.$)...----O
PEN DATAFILE CHANNEL AND POSITION TO REC
ORDS.])...15,8,15:.5,8,5,"0:DF] ".NF$.",
S,R":.3034:.ET.8.3386.T)...EN.62..3036:.
3386..) ..5,RR,F,XR:.3034:.ET.8.3386.B).
..N.1.F:.5,F$(N),L%(N):.N:.3034:.ET.8.33
86.H).....)...----PRINT OPTIONS MENU..*.
.PG.1:.".. . PRINT OPTIONS MEN
U .".B*...".. ..A..LL RECORD
S IN FILE".S*...". ..F..IND RECORDS
WITH COMMON FIELDS"..*...". ..E..XIT
BACK TO START"..*...". POSITION PAPER
AT TOP OF PAGE"..*...". .. PRESS TH
E APPROPRIATE KEY "..+...3018:.A$."
E".3386..+...A$."A".3550.)+...A$."F".352
0.8+...602:.3510.V+...----FIND RECORD (S
EARCH)..+...".. . FIND RECORDS WITH C
OMMON ITEMS "..+B..3484..+D..N.1.F:."
.."N".. "F$(N):.N..+F..".. WHICH FIELD
IS TO BE SEARCHED.";SF..+H..SF.0.SF.F.."
...":.3526.?,J..". ENTER .COMMON ITEM.":
." (THE ENTIRE STRING IS NOT REQUIRED)".
Z,L..". ."F$(SF)".. ";:.T$.I,N..".":.356
8..,P..I.1.XR:.P..4.." SEARCHING RECORD"
I"."..,R..N.1.F:.5,REC$(N):.N:.3034:.ET.
8.3386..,T..T$.H(REC$(SF),C(T$))..3622..
,V..I:.3662..-X..PF,"FILE: "NF$","K"OF"X
R"RECORDS REPORTED".0-Y. 5: 15:.P.4.3565
.N-Z..I.1.60.PL:.4034:.I:.3496.I-...----
PRINT ALL RECORDS..-...".":.P..4..". PRI
NTING HEADING"..-...3568:.3484.O-...".";
:.I.1.XR:.P..4.." READING RECORD #"I".".
.-...N.1.F:.5,REC$(N):.N:.3034:.ET.8.338
6......3622......I:.3662.:....PF,"FILE:
"NF$","K"RECORDS REPORTED".O... 5: 15:.P
.4.3565.M....I.1.60.PL:.4034:.I:.3496...
..."PRESS .ANY KEY.":.3018:.3496......--
--BEGIN REPORT/CENTER TITLE.Y...PL.0:TA.
0:K.0:.J.1.NC:SUM(J).0:.J......J.1.NC:.C
$(J,13).."N".TL.1../...J:.J.1.NL:.TT$(J)
..">"..3576.(/...J:.3584.M/..M..((PW.C(T
T$(J))).2):.P..1.3580.S/...PF,H(S$,M).TT
$(J);B1$;:PL.PL.1:.../...PF,H(S$,M).TT$(
J);B1$:PL.PL.1:.../...----POSITION HEADI
NGS../...3618:J.1:PC(NC.1).PW.3:CW.PC(2)
.2.PC(1)../..CLM$.HC$(J)..0...C$(J,0)."L
"..3926:.3592..0...3918.)0...PC(1).1.359
6.=0...PF,CLM$;:.3598.Y0...PF,H(S$,PC(1)
.1).CLM$;.E0...J.2.NC..0..CW.PC(J.1).2.P
C(J):CLM$.HC$(J)..0...C$(J,0)."L"..3926:
.3606..0...3918.E0...PF,H(S$,2).CLM$;.L0
...J.V0...4034..0...3618:PL.PL.3..0.....
1 ..----PRINT DASHED LINE.)1"..J.1.PW:.P
F,"-";:.J:.4034:..B1$..----PRINT FILE DA
TA.D1&..J.1.NC:BUF(J).0:.J:K.K.1:J.1..1(
.PC(NC.1).PW.3:CW.PC(2).2.PC(1)..1*..374
0..1,..3708..1...PC(1).1.3636..10..PF,CL
M$;.E12..3638..14..PF,H(S$,PC(1).1).CLM$
;..16..J.2.NC..28.CW.PC(J.1).2.PC(J)..2:
..3740..2<..3708..2>..PF,H(S$,2).CLM$;.5
2@..J.?2B..4034.K2D.PL.PL.1.J2F..----CHE
CK # LINES ON PAGE..2H..PL.60..J.1.5:.40
34:.J:PL.0:.3659..2J....2K.PG.PG.1:.PF,"
PAGE"PG:.3584:.3658.Z2L..----PRINT TOTAL
S/AVERAGES..2N..3618:.TL.0....3P.J.1:CW.
PC(2).2.PC(1).!3R..TA.0..3722:.3918:.367
4.+3T..3732.I3V..C$(J,13)."N"..3918:.367
4.S3X..3708.E3Z..PC(1).1.3680.S3\..PF,CL
M$;.}3^..3682..3`..PF,H(S$,PC(1).1).CLM$
;..3B..J.2.NC..3D.CW.PC(J.1).2.PC(J).X3F
..TA.0..3722:.3918:.3694..3H..3732..4J..
C$(J,13)."N"..3918:.3694..4L..3708. 4N..
PF,H(S$,2).CLM$;.'4P..J.14R..4034.F4T..T
A.0.TA.1:.3662.P4V..3618.V4X...V4Z..---D
ETERMINE JUSTIFICATION..4|..H(C$(J,0),1)
."L"..3926:...4~..H(C$(J,0),1)."R"..3918
:..C4...E.1..3918:...4...H(C$(J,0),1)."C
"..3904:...4...H(C$(J,0),1)."D"..3906:..
.5...3934:..85...---DETERMINE TOTAL/AVG
LABEL FOR COLUMN.Z5...H(C$(J,13),1)."N".
CLM$."":...5...H(C$(J,13),1)."T". CLM$.
"TOTAL":...5...CW.7.CLM$."AVG":...5..CLM
$."AVERAGE":..Z5...---DETERMINE TOTAL/AV
G VALUE FOR COLUMN..5...H(C$(J,13),1)."N
". CLM$."":..%6...H(C$(J,13),1)."T". CLM
$.D(SUM(J)):..@6...K..0.CLM$.D(SUM(J).K)
.F6....K6...---DETERMINE CONTENTS OF COL
UMN..6...H(C$(J,1),1)."#". CLM$.D(I):.37
92.L6...H(C$(J,1),1)."F". CLM$.REC$(E(J(
C$(J,1),2,2))):.3792..7...H(C$(J,1),1)."
R". CLM$.D(SUM(E(J(C$(J,1),2,2)))):.3792
.&7 ..----CALCULATIONS ROUTINE.57..RES.0
:EQ.0.A7..EQ.EQ.2.T7...----OPERAND X..7.
..H(C$(J,EQ),1)."F". X.E(REC$(E(J(C$(J,E
Q),2,2)))):.3762..7...C$(J,EQ.1)."++". X
.E(J(C$(J,2),2,2)):.3762..7...H(C$(J,EQ)
,1)."C". X.BUF(E(J(C$(J,EQ),2,2))):.3762
..8...H(C$(J,EQ),3)."RES". X.RES:.3762.B
8...H(C$(J,EQ),2)."PI". X.PI:.3762.I8...
H(C$(J,EQ),1)..".". X.E(C$(J,EQ)).U8..EQ
.EQ.2..8...----OPERAND Y.D8...H(C$(J,EQ)
,1)."F". Y.E(REC$(E(J(C$(J,EQ),2,2)))):.
3776..8...C$(J,EQ.1)."++". Y.E(J(C$(J,4)
,2,2)):.3776.,9...H(C$(J,EQ),1)."C". Y.B
UF(E(J(C$(J,EQ),2,2))):.3776.R9...H(C$(J
,EQ),3)."RES". Y.RES:.3776.V9...H(C$(J,E
Q),2)."PI". Y.PI:.3776..9..Y.E(C$(J,EQ))
..9...3800..9B..C$(J,EQ.1).."Y".E.1.3788
..9D.RES.Z.J9F..EQ.12.3788.T9H..3748..9J
..----SET VALUE OF COLUMN/BUFFERS..:L..E
.1.CLM$."??ERROR??":.3792.':N.CLM$.D(Z).
::P.BUF(J).E(CLM$).T:R.SUM(J).SUM(J).E(C
LM$).Z:T...X:V..----BASIC MATH OPERATORS
..:X.W.EQ.1..:Z.E.0:Z.0:C$.C$(J,W)..:...
C$(J,W)."+". Z.X.Y:...:...C$(J,W)."++".
Z.0:.H.X.Y:Z.Z.BUF(H):.H:...:...C$(J,W).
"-". Z.X.Y:...;...C$(J,W)."*". Z.X.Y:..5
;...C$(J,W)."/".Y..0. Z.X.Y:..O;...C$(J,
W)."^". Z.X.Y:..N;...C$(J,W)."SGN". Z.Y.
(.1):...;...----LOGICAL OPERATORS..;...C
$(J,W)."=".X.Y.Z.1:...;...C$(J,W)."<".X.
Y.Z.1:..Z;...C$(J,W).">".X.Y.Z.1:...;...
C$(J,W)."<>".X..Y.Z.1:...<...C$(J,W)."OR
".(X.1.Y.1).Z.1:..:<...C$(J,W)."AND".X.1
.Y.1.Z.1:..S<...C$."=".C$."<".C$.">".C$.
"<>".C$."OR".C$."AND".Z.0:...<...----SCI
ENTIFIC OPERATORS..<...C$(J,W)."SQR".Y..
0. Z..(Y):..P<...C$(J,W)."SIN". Z..(Y):.
..<...C$(J,W)."COS". Z..(Y):...=...C$(J,
W)."TAN"..(Y)..0. Z..(Y):../=...C$(J,W).
"ATN". Z.A(Y):..L=...C$(J,W)."ABS". Z..(
Y):..M=...C$(J,W)."LOG".Y.0. Z..(Y):...=
...C$(J,W)."EXP"..(Y).88. Z..(Y):...=...
C$(J,W)."INT". Z..(Y):..V=...C$(J,W)."SE
C"..(Y)..0. Z.1..(Y):...=...C$(J,W)."CSC
"..(Y)..0. Z.1..(Y):..$>...C$(J,W)."COT"
..(Y)..0. Z.1..(Y):..V>...C$(J,W)."ASN".
(.Y.Y.1).0. Z.A(Y..(.Y.Y.1)):...>...C$(J
,W)."ACO".(.Y.Y.1).0. Z..A(Y..(.Y.Y.1)).
PI.2:...>...C$(J,W)."ASC".(Y.Y.1).0. Z.A
(Y..(Y.Y.1)):...>...C$(J,W)."ACS".(Y.Y.1
).0. Z.A(Y..(Y.Y.1)).(.(Y).1.PI.2):...?.
..C$(J,W)."ACT". Z.A(Y).PI.2:..??...C$(J
,W)."INV".Y..0. Z.1.Y:..T?...----CONVERS
IONS.U?...C$(J,W)."RAD". Z.Y.PI.180:...?
...C$(J,W)."DEG". Z.Y.180.PI:...?...C$(J
,W)."INS". Z.Y.25.4:..T?...C$(J,W)."MMS"
. Z.Y.25.4:...?...C$(J,W)."DFR". Z.Y.9.5
.32:...@...C$(J,W)."DCG". Z.(Y.32).5.9:.
.9@...C$(J,W)."GMS". Z.Y..03536:..Z@...C
$(J,W)."OZS". Z.Y..03536:..Y@ ..C$(J,W).
"LBM". Z.Y.2.21:...@"..C$(J,W)."KGM". Z.
Y.2.21:...@$..C$(J,W)."LBF". Z.Y.4.448:.
.X@&..C$(J,W)."NWF". Z.Y..2248:...@(..C$
(J,W)."MLS". Z.Y.1.609344:...A*..C$(J,W)
."KMS". Z.Y.1.609344:..>A,..C$(J,W)."FPS
". Z.Y..3048:..^A...C$(J,W)."MPS". Z.Y..
3048:...A0..C$(J,W)."PSI". Z.Y.6.895.3:.
..A2..C$(J,W)."NSM". Z.Y.6.895.3:...A4..
IFC$(J,W)="FN1"THEN Z=Y :RETU
RN:REM USER DEFINED FUNCTION 1.:B6.. IFC
$(J,W)="FN2"THEN Z=Y :RETURN:R
EM USER DEFINED FUNCTION 2..B8.. IFC$(J,
W)="FN3"THEN Z=Y :RETURN:REM U
SER DEFINED FUNCTION 3..B:.." .INVALID P
ARAMETER..":Z.0:E.1..B<....B>..----CURRE
NCY/DECIMAL/RIGHT JUSTIFICATION..B@.R.2:
.3908..CB.R.E(J(C$(J,0),2))."CD.CLM$.D(.
(E(CLM$).10.R..5)).DCF..H(CLM$,1)." ".CL
M$.J(CLM$,2).MCH..R.C(CLM$).CLM$.I("0000
0000".CLM$,R)..CJ..R.CLM$.H(CLM$,C(CLM$)
.R).".".I(CLM$,R)..CL..----RIGHT JUSTIFY
.SCN..C(CLM$).CW.CLM$.I(S$.CLM$,CW)..CP.
.C(CLM$).CW.CLM$.H(CLM$,CW)..CR....DT..-
---LEFT JUSTIFICATION.@DV..C(CLM$).CW.CL
M$.CLM$.H(S$,CW.C(CLM$)).`DX..C(CLM$).CW
.CLM$.H(CLM$,CW).FDZ....D\..----PERCENT/
RIGHT JUSTIFICATION..D^.CLM$.D(E(CLM$).1
00)..D`..3906..DB..----DIRECTORY..DD..".
.";:@"$":..25)".PRESS ..ANY KEY..":.3018
:...E...----SETUP FOR PRINTER.?E ..".. .
CALCULATED REPORTS PROGRAM ".
OE..." . PRINTER OR INTERFACE CONFIGURA
TION "..E...".. CURRENT OPTION IS:."P..
E...".. PRESS ..1.. CARDCO A, 1525..E..
." ..2.. PRINTERS W/GRAPHIC INTER
FACES"..F..." ..3.. 1526, MPS801/
802/803".5F..." ..4.. PRINT TO SC
REEN".EF...P..0..".. OR ..S..END PRIN
TER COMMANDS"..F...P..O..". ..E..X
IT TO CONTINUE".AF..."... . PRESS T
HE APPROPRIATE KEY ".UF...A$:.A$.""
.4016..F...A$."E"..".CLEARING...":...G..
.A$."S".4044..G..P.E(A$):PF.4..G...P.1.B
1$.G(10):.4000.FG...P.2.B1$.G(0):.4000.^
G...P.3.B1$.G(0):.4000.{G...P.4.B1$.G(0)
:PF.3:.4000..G...602:.4016..G...----PRIN
T TERMINATOR..GB..P.4036,4038,4040,4038.
NGD..PF,B1$;:...GF..PF,B1$:...GH..PF:...
HJ..----PRINTER COMMANDS.3HL..". ..
PRINTER COMMAND .".^HN.
.".. THIS ROUTINE WILL SEND CHARACTER"..
HP.." STRING [CHR$()] COMMANDS TO AN ASC
II"..HR.." PRINTER. COMMANDS MUST BE EN
TERED IN"..HT.." THE FORM OF INTEGERS SU
CH AS:"..IV..".. ? 27. (ESCAPE CODE)
".!IX.." .? 66. (PITCH CODE)".FIZ.."
.? 2. (COMPRESSED MODE)".LI..." .?
*. (END THE SEQUENCE)"..I...". THI
S WILL BE SENT TO THE PRINTER AS:".GI...
". .PRINT#4,CHR$(27)CHR$(66)CHR$(2).".
.I...". UP TO FOUR(4) NUMBERS MAY BE SEN
T,". J..." THE FIRST NORMALLY BEING ..27
.., THE".LJ..." ESCAPE CHARACTER. END T
HE SEQUENCE".}J..." BY PRESSING ..RETURN
.. WHEN THE ASTERISK"..J..." IS SHOWING.
PRINTERS WILL VARY, SO".RJ..." CHECK Y
OUR MANUAL FOR THE CODES."..K...". ..
ANY KEY.. TO CONTINUE OR ..E..XIT?."..K.
..A$:.A$."".4079.&K...A$."E"...YK...". .
. SEND PRINTER COMMAND .
"..K...". .ENTER CODE, THEN PRESS ..RETU
RN."..K...". .RETURN. .ONLY TO QUIT..".Q
K...I.1.4:.".CODE.";I;" ? * ....";:.I$(I
)..K...I$(I)."*".4094..K...I..L...(I.1).
4096,4098,4100,4102:.4104.*L...4,G(E(I$(
1))):.4104.NL...4,G(E(I$(1)))G(E(I$(2)))
:.4104.}L...4,G(E(I$(1)))G(E(I$(2)))G(E(
I$(3))):.4104..L...4,G(E(I$(1)))G(E(I$(2
)))G(E(I$(3)))G(E(I$(4))).UL..."..
..A..NOTHER CODE"..L...". .
.T..EST PRINTER"..M...". ..E..X
IT TO PRINT".NM...". .. PRESS THE A
PPROPRIATE KEY ".BM...A$:.A$."".41
12.SM...A$."A".4082..M...A$."T"..4,"ABCD
EFGHIJKLMNOPQRSTUVWXYZ":.4112..M...A$."E
"...BM...602:.4112...
> CLICK IMAGE PREVIEW FOR FULL MODAL