GRAPHICS
FILE INFORMATION
FILENAME(S): GRAPHICS
FILE TYPE(S): PRG
FILE SIZE: 8.1K
FIRST SEEN: 2025-12-01 01:00:21
APPEARS ON: 2 disk(s)
FILE HASH
0660b8d7bc5c8f7aeac1540ee7a1116765540c60783eaa73d6cbf8d195c15791
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ULRIK DISK 1A | GRAPHICS | PRG | hedning, emil | 11 | 4 | DOWNLOAD FILE |
| CHRIS HULP PRG | GRAPHICS | PRG | Shocktrooper | 12 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 27 08 0A 00 8F 20 2A 20 FD AE 20 EB B7 A5 |..'.... * .. ...|
00000010: 15 D0 0E A4 14 C0 28 B0 08 E0 19 B0 04 18 4C F0 |......(.......L.|
00000020: FF 4C 08 AF 2A 2A 2A 00 48 08 0B 00 8F 14 14 14 |.L..***.H.......|
00000030: 14 53 59 53 33 30 30 30 20 20 20 20 20 20 20 20 |.SYS3000 |
00000040: 20 20 20 20 20 20 20 20 00 75 08 0C 00 8B 41 B2 | .u....A.|
00000050: 30 A7 41 B2 31 3A 93 22 47 52 41 50 48 20 43 4F |0.A.1:."GRAPH CO|
00000060: 44 45 22 2C 38 2C 31 3A 97 34 35 2C 31 32 3A 97 |DE",8,1:.45,12:.|
00000070: 34 36 2C 34 35 00 AB 08 0D 00 97 35 35 2C 30 3A |46,45......55,0:|
00000080: 97 35 36 2C 31 32 30 3A 9C 3A 97 32 30 38 37 2C |.56,120:.:.2087,|
00000090: 37 32 3A 97 32 30 38 38 2C 38 3A 97 37 39 32 2C |72:.2088,8:.792,|
000000A0: 31 39 33 3A 97 37 38 38 2C 35 32 00 C3 08 0F 00 |193:.788,52.....|
000000B0: 8D 35 39 30 30 30 3A 8F 20 49 4E 49 54 49 41 4C |.59000:. INITIAL|
000000C0: 49 53 45 00 E7 08 14 00 99 22 93 D7 48 49 43 48 |ISE......"..HICH|
000000D0: 20 50 52 49 4E 54 45 52 20 44 4F 20 59 4F 55 20 | PRINTER DO YOU |
000000E0: 48 41 56 45 20 3F 22 00 05 09 15 00 41 24 28 30 |HAVE ?".....A$(0|
000000F0: 29 B2 22 C3 4F 4D 4D 4F 44 4F 52 45 20 CD D0 D3 |).".OMMODORE ...|
00000100: 2D 38 30 31 22 00 23 09 16 00 41 24 28 31 29 B2 |-801".#...A$(1).|
00000110: 22 C3 4F 4D 4D 4F 44 4F 52 45 20 CD D0 D3 2D 38 |".OMMODORE ...-8|
00000120: 30 32 22 00 3E 09 17 00 99 22 11 11 11 11 22 A3 |02".>...."....".|
00000130: 38 29 22 31 20 20 20 20 22 41 24 28 30 29 00 57 |8)"1 "A$(0).W|
00000140: 09 18 00 99 22 11 11 22 A3 38 29 22 32 20 20 20 |...."..".8)"2 |
00000150: 20 22 41 24 28 31 29 00 7A 09 1A 00 99 22 11 11 | "A$(1).z...."..|
00000160: 11 11 C5 4E 54 45 52 20 43 48 4F 49 43 45 20 28 |...NTER CHOICE (|
00000170: 31 20 CF D2 20 32 29 20 3F 22 00 96 09 1E 00 A1 |1 .. 2) ?"......|
00000180: 54 24 3A 8B 54 24 B3 B1 22 31 22 AF 54 24 B3 B1 |T$:.T$.."1".T$..|
00000190: 22 32 22 A7 33 30 00 A3 09 20 00 50 50 B2 C5 28 |"2".30... .PP..(|
000001A0: 54 24 29 00 D6 09 23 00 99 22 11 11 D9 4F 55 20 |T$)...#.."...OU |
000001B0: 48 41 56 45 20 43 48 4F 53 45 4E 20 54 48 45 20 |HAVE CHOSEN THE |
000001C0: 22 41 24 28 50 50 AB 31 29 22 20 20 20 50 52 49 |"A$(PP.1)" PRI|
000001D0: 4E 54 45 52 2C 22 00 F8 09 28 00 99 22 11 11 11 |NTER,"...(.."...|
000001E0: C9 53 20 54 48 49 53 20 43 4F 52 52 45 43 54 20 |.S THIS CORRECT |
000001F0: 28 D9 2F CE 29 20 3F 22 00 14 0A 2D 00 A1 54 24 |(./.) ?"...-..T$|
00000200: 3A 8B 54 24 B3 B1 22 59 22 AF 54 24 B3 B1 22 4E |:.T$.."Y".T$.."N|
00000210: 22 A7 34 35 00 23 0A 32 00 8B 54 24 B2 22 4E 22 |".45.#.2..T$."N"|
00000220: A7 32 30 00 29 0A 5A 00 8F 00 2F 0A 5F 00 8F 00 |.20.).Z.../._...|
00000230: 4D 0A 64 00 8F 20 47 52 41 50 48 49 43 53 20 3B |M.d.. GRAPHICS ;|
00000240: 2D 20 4D 49 4E 49 20 4F 46 46 49 43 45 00 68 0A |- MINI OFFICE.h.|
00000250: 6E 00 8F 20 42 59 20 53 49 4D 4F 4E 20 4E 2E 20 |n.. BY SIMON N. |
00000260: 54 48 4F 52 4E 54 4F 4E 00 88 0A 78 00 8F 20 28 |THORNTON...x.. (|
00000270: 43 29 20 44 41 54 41 42 41 53 45 20 50 55 42 4C |C) DATABASE PUBL|
00000280: 49 43 41 54 49 4F 4E 53 00 8E 0A 82 00 8F 00 94 |ICATIONS........|
00000290: 0A 84 00 8F 00 9A 0A 86 00 8F 00 AC 0A A0 00 8D |................|
000002A0: 35 30 30 30 30 3A 8D 35 31 30 30 30 00 BE 0A AA |50000:.51000....|
000002B0: 00 8D 35 31 33 30 30 3A 97 31 39 38 2C 30 00 C4 |..51300:.198,0..|
000002C0: 0A B4 00 8F 00 E1 0A BE 00 A1 54 24 3A 54 B2 C5 |..........T$:T..|
000002D0: 28 54 24 29 3A 8B 54 B3 31 B0 54 B1 37 A7 31 39 |(T$):.T.1.T.7.19|
000002E0: 30 00 24 0B C8 00 8B 44 41 28 4C 32 25 AA 33 29 |0.$....DA(L2%.3)|
000002F0: B2 30 AF 54 B1 30 AF 54 B3 34 A7 9E 52 54 25 2C |.0.T.0.T.4..RT%,|
00000300: 35 2C 32 33 3A 99 22 D3 55 4D 20 4F 46 20 53 45 |5,23:.".UM OF SE|
00000310: 4C 45 43 54 45 44 20 44 41 54 41 20 49 53 20 5A |LECTED DATA IS Z|
00000320: 45 52 4F 2E 00 37 0B D2 00 9E 52 54 25 2C 30 2C |ERO..7....RT%,0,|
00000330: 32 33 3A 99 53 50 24 00 57 0B DC 00 8B 54 24 B2 |23:.SP$.W....T$.|
00000340: 22 31 22 A7 8D 32 30 30 30 30 3A 20 8F 20 48 49 |"1"..20000: . HI|
00000350: 53 54 4F 47 52 41 4D 00 77 0B E6 00 8B 54 24 B2 |STOGRAM.w....T$.|
00000360: 22 32 22 A7 8D 32 34 30 30 30 3A 20 8F 20 50 49 |"2"..24000: . PI|
00000370: 45 20 43 48 41 52 54 00 93 0B F0 00 8B 54 24 B2 |E CHART......T$.|
00000380: 22 33 22 A7 8D 34 30 30 30 30 3A 20 8F 20 47 52 |"3"..40000: . GR|
00000390: 41 50 48 00 B5 0B FA 00 8B 54 24 B2 22 34 22 A7 |APH......T$."4".|
000003A0: 8D 35 31 35 30 30 3A 20 8F 20 49 4E 46 4F 52 4D |.51500: . INFORM|
000003B0: 41 54 49 4F 4E 00 D2 0B 04 01 8B 54 24 B2 22 35 |ATION......T$."5|
000003C0: 22 A7 8D 35 31 30 30 30 3A 20 8F 20 53 45 4C 45 |"..51000: . SELE|
000003D0: 43 54 00 F4 0B 0E 01 8B 54 24 B2 22 36 22 A7 89 |CT......T$."6"..|
000003E0: 35 31 37 30 30 3A 20 8F 20 45 4E 44 20 50 52 4F |51700: . END PRO|
000003F0: 47 52 41 4D 00 0E 0C 18 01 8B 54 24 B3 B1 22 37 |GRAM......T$.."7|
00000400: 22 A7 33 30 30 3A 20 8F 20 50 52 49 4E 54 00 3F |".300: . PRINT.?|
00000410: 0C 22 01 9E 52 54 25 2C 35 2C 32 33 3A 99 22 12 |."..RT%,5,23:.".|
00000420: D0 CC C5 C1 D3 C5 20 D7 C1 C9 D4 2C 20 D0 D2 C9 |...... ...., ...|
00000430: CE D4 C9 CE C7 20 C7 D2 C1 D0 C8 C9 C3 D3 22 00 |..... ........".|
00000440: 5E 0C 27 01 91 50 50 8D 36 32 30 30 30 2C 36 33 |^.'..PP.62000,63|
00000450: 30 30 30 3A 20 8F 20 50 52 49 4E 54 45 52 00 71 |000: . PRINTER.q|
00000460: 0C 29 01 9E 52 54 25 2C 30 2C 32 33 3A 99 53 50 |.)..RT%,0,23:.SP|
00000470: 24 00 7A 0C 2C 01 89 31 37 30 00 80 0C 1F 4E 8F |$.z.,..170....N.|
00000480: 00 90 0C 20 4E 8F 20 48 49 53 54 4F 47 52 41 4D |... N. HISTOGRAM|
00000490: 00 A2 0C 25 4E 4E B2 44 41 28 4C 32 25 AA 32 29 |...%NN.DA(L2%.2)|
000004A0: AB 31 00 DB 0C 27 4E 4D 41 B2 30 3A 81 49 B2 30 |.1...'NMA.0:.I.0|
000004B0: A4 4E 3A 44 47 B2 41 28 44 41 28 4C 32 25 AA 31 |.N:DG.A(DA(L2%.1|
000004C0: 29 2C 44 41 28 49 29 29 3A 8B B6 28 44 47 29 B1 |),DA(I)):..(DG).|
000004D0: 4D 41 A7 4D 41 B2 B6 28 44 47 29 00 E2 0C 28 4E |MA.MA..(DG)...(N|
000004E0: 82 49 00 F2 0C 29 4E 8B 4D 41 B2 30 A7 32 30 30 |.I...)N.MA.0.200|
000004F0: 34 36 00 FF 0C 2A 4E 53 43 B2 39 31 AD 4D 41 00 |46...*NSC.91.MA.|
00000500: 0E 0D 2F 4E 9E 34 39 31 35 32 2C 30 2C 30 00 34 |../N.49152,0,0.4|
00000510: 0D 30 4E 44 58 B2 33 30 30 AD 4E 3A 44 54 B2 44 |.0NDX.300.N:DT.D|
00000520: 58 AD 33 3A 58 31 B2 AB 28 44 58 AB 31 30 29 3A |X.3:X1..(DX.10):|
00000530: 59 43 B2 30 00 50 0D 31 4E 9E 34 39 38 37 34 2C |YC.0.P.1N.49874,|
00000540: 31 30 2C 39 39 2C 33 32 30 2C 39 39 2C 31 2C 31 |10,99,320,99,1,1|
00000550: 00 5B 0D 32 4E 8D 32 30 31 30 30 00 81 0D 34 4E |.[.2N.20100...4N|
00000560: 81 49 B2 30 A4 20 4E 3A 59 43 B2 28 59 43 AA 31 |.I.0. N:YC.(YC.1|
00000570: 29 AF 31 35 3A 59 43 B2 59 43 AB 28 59 43 B2 30 |).15:YC.YC.(YC.0|
00000580: 29 00 AA 0D 3E 4E 58 32 B2 58 31 AA 44 58 3A 44 |)...>NX2.X1.DX:D|
00000590: 47 B2 B5 28 41 28 44 41 28 4C 32 25 AA 31 29 2C |G..(A(DA(L2%.1),|
000005A0: 44 41 28 49 29 29 AC 53 43 29 00 B5 0D 43 4E 8D |DA(I)).SC)...CN.|
000005B0: 32 30 32 30 30 00 E2 0D 46 4E 58 B2 58 32 AB 34 |20200...FNX.X2.4|
000005C0: 3A 59 B2 31 30 35 3A 50 43 B2 31 3A 50 53 24 B2 |:Y.105:PC.1:PS$.|
000005D0: C7 28 36 36 AA 44 41 28 49 29 29 3A 8D 34 38 30 |.(66.DA(I)):.480|
000005E0: 30 30 00 06 0E 47 4E 9E 35 30 37 31 33 2C 58 32 |00...GN.50713,X2|
000005F0: AA B4 28 44 54 29 2C 39 39 AB B4 28 44 47 29 2C |..(DT),99..(DG),|
00000600: 59 43 2C 31 2C 31 00 13 0E 48 4E 58 31 B2 58 32 |YC,1,1...HNX1.X2|
00000610: 3A 82 49 00 44 0E 4A 4E 58 B2 31 33 3A 59 B2 32 |:.I.D.JNX.13:Y.2|
00000620: 3A 50 43 B2 31 3A 50 53 24 B2 C4 28 B5 28 4D 41 |:PC.1:PS$..(.(MA|
00000630: AC 31 30 30 AA 2E 35 29 AD 31 30 30 29 3A 8D 34 |.100..5).100):.4|
00000640: 38 30 30 30 00 79 0E 4C 4E 58 B2 31 33 3A 59 B2 |8000.y.LNX.13:Y.|
00000650: 31 39 31 3A 50 43 B2 31 3A 50 53 24 B2 C4 28 30 |191:PC.1:PS$..(0|
00000660: AB B5 28 4D 41 AC 31 30 30 AA 2E 35 29 AD 31 30 |..(MA.100..5).10|
00000670: 30 29 3A 8D 34 38 30 30 30 00 B2 0E 4E 4E 50 53 |0):.48000...NNPS|
00000680: 24 B2 43 24 28 44 41 28 4C 32 25 AA 31 29 29 3A |$.C$(DA(L2%.1)):|
00000690: 59 B2 30 3A 58 B2 28 33 31 39 AB C3 28 50 53 24 |Y.0:X.(319..(PS$|
000006A0: 29 AC 38 29 AD 32 3A 50 43 B2 37 3A 8D 34 38 30 |).8).2:PC.7:.480|
000006B0: 30 30 00 C7 0E 52 4E A1 41 24 3A 8B 41 24 B2 22 |00...RN.A$:.A$."|
000006C0: 22 A7 32 30 30 35 30 00 D4 0E 5C 4E 9E 34 39 38 |".20050...\N.498|
000006D0: 34 35 3A 8E 00 EF 0E 84 4E 9E 34 39 38 37 34 2C |45:.....N.49874,|
000006E0: 31 30 2C 36 2C 31 30 2C 31 39 35 2C 31 2C 31 00 |10,6,10,195,1,1.|
000006F0: 0D 0F 8E 4E 53 31 B2 31 30 AE 28 B5 28 BC 28 4D |...NS1.10.(.(.(M|
00000700: 41 29 AD BC 28 31 30 29 29 29 AD 31 30 00 21 0F |A)..(10))).10.!.|
00000710: 93 4E 8B 4D 41 B1 32 AF 53 31 B3 31 A7 53 31 B2 |.N.MA.2.S1.1.S1.|
00000720: 31 00 35 0F 98 4E 81 49 B2 31 39 33 A4 36 A9 AB |1.5..N.I.193.6..|
00000730: 53 43 AC 53 31 00 4C 0F A2 4E 9E 34 39 38 37 34 |SC.S1.L..N.49874|
00000740: 2C 39 2C 49 2C 38 2C 49 2C 31 2C 31 00 55 0F AC |,9,I,8,I,1,1.U..|
00000750: 4E 82 49 3A 8E 00 5B 0F E8 4E 8F 00 6A 0F ED 4E |N.I:..[..N..j..N|
00000760: 8B 49 B2 30 A7 32 30 32 33 30 00 90 0F F2 4E 9E |.I.0.20230....N.|
00000770: 34 39 38 37 34 2C 58 32 AB 44 54 2C 39 39 2C 58 |49874,X2.DT,99,X|
00000780: 32 AB 44 54 2C 39 39 AB 44 47 2C 59 43 2C 59 43 |2.DT,99.DG,YC,YC|
00000790: 00 D5 0F F7 4E 8B 58 32 B1 33 31 39 A7 9E 34 39 |....N.X2.319..49|
000007A0: 38 37 34 2C 58 32 AB 44 54 2C 39 39 AB 44 47 2C |874,X2.DT,99.DG,|
000007B0: 33 32 30 2C 39 39 AB 44 47 2C 59 43 2C 59 43 3A |320,99.DG,YC,YC:|
000007C0: 58 32 B2 33 32 30 AB B5 28 44 54 AD 32 29 3A 89 |X2.320..(DT.2):.|
000007D0: 32 30 32 36 30 00 FB 0F FC 4E 9E 34 39 38 37 34 |20260....N.49874|
000007E0: 2C 58 32 AB 44 54 2C 39 39 AB 44 47 2C 58 32 2C |,X2.DT,99.DG,X2,|
000007F0: 39 39 AB 44 47 2C 59 43 2C 59 43 00 40 10 06 4F |99.DG,YC,YC.@..O|
00000800: 8B 58 32 AA 44 54 B1 33 31 39 A7 9E 34 39 38 37 |.X2.DT.319..4987|
00000810: 34 2C 58 32 2C 39 39 AB 44 47 2C 33 32 30 2C 39 |4,X2,99.DG,320,9|
00000820: 39 AB 44 47 2C 59 43 2C 59 43 3A 58 32 B2 33 32 |9.DG,YC,YC:X2.32|
00000830: 30 AB B5 28 44 54 AD 32 29 3A 89 32 30 32 36 30 |0..(DT.2):.20260|
00000840: 00 88 10 0B 4F 9E 34 39 38 37 34 2C 58 32 2C 39 |....O.49874,X2,9|
00000850: 39 AB 44 47 2C 58 32 AA 44 54 2C 39 39 AB 44 47 |9.DG,X2.DT,99.DG|
00000860: 2C 59 43 2C 59 43 3A 9E 34 39 38 37 34 2C 58 32 |,YC,YC:.49874,X2|
00000870: AA 44 54 2C 39 39 AB 44 47 2C 58 32 AA 44 54 2C |.DT,99.DG,X2.DT,|
00000880: 39 39 2C 59 43 2C 59 43 00 A7 10 1A 4F 9E 34 39 |99,YC,YC....O.49|
00000890: 38 37 34 2C 58 32 2C 31 30 30 2C 58 32 2C 31 30 |874,X2,100,X2,10|
000008A0: 31 2C 59 43 2C 59 43 00 AD 10 24 4F 8E 00 B3 10 |1,YC,YC...$O....|
000008B0: FC 53 8F 00 B9 10 C0 5D 8F 00 C9 10 C1 5D 8F 20 |.S.....].....]. |
000008C0: 50 49 45 20 43 48 41 52 54 00 CF 10 C2 5D 8F 00 |PIE CHART....]..|
000008D0: EC 10 C5 5D 4E B2 44 41 28 4C 32 25 AA 32 29 AB |...]N.DA(L2%.2).|
000008E0: 31 3A 8B 4E B1 31 39 A7 4E B2 31 39 00 17 11 CA |1:.N.19.N.19....|
000008F0: 5D 53 46 B2 30 3A 81 4A B2 30 A4 4E 3A 53 46 B2 |]SF.0:.J.0.N:SF.|
00000900: 53 46 AA 41 28 44 41 28 4C 32 25 AA 31 29 2C 44 |SF.A(DA(L2%.1),D|
00000910: 41 28 4A 29 29 3A 82 00 47 11 24 5E 52 B2 38 30 |A(J)):..G.$^R.80|
00000920: 3A 58 43 B2 33 32 30 AB 52 AB 31 32 3A 59 43 B2 |:XC.320.R.12:YC.|
00000930: 31 30 36 3A 54 41 B2 39 30 3A 43 46 B2 AB 31 3A |106:TA.90:CF..1:|
00000940: 4D 46 B2 31 2E 30 30 00 56 11 2E 5E 9E 34 39 31 |MF.1.00.V..^.491|
00000950: 35 32 2C 30 2C 30 00 6D 11 38 5E 9E 35 31 35 36 |52,0,0.m.8^.5156|
00000960: 34 2C 58 43 2C 59 43 2C 52 2C 31 2C 31 00 84 11 |4,XC,YC,R,1,1...|
00000970: 42 5E 9E 34 39 35 38 35 2C 58 43 AA 52 2C 59 43 |B^.49585,XC.R,YC|
00000980: 2C 31 2C 31 00 95 11 4C 5E 8B 53 46 B3 B2 30 A7 |,1,1...L^.SF..0.|
00000990: 32 34 32 38 30 00 C9 11 88 5E 81 4A B2 30 A4 4E |24280....^.J.0.N|
000009A0: 3A 44 47 B2 41 28 44 41 28 4C 32 25 AA 31 29 2C |:DG.A(DA(L2%.1),|
000009B0: 44 41 28 4A 29 29 AC 33 36 30 AD 53 46 3A 44 4C |DA(J)).360.SF:DL|
000009C0: B2 28 44 47 AB 31 29 AD 32 00 E9 11 8C 5E 8B 41 |.(DG.1).2....^.A|
000009D0: 28 44 41 28 4C 32 25 AA 31 29 2C 44 41 28 4A 29 |(DA(L2%.1),DA(J)|
000009E0: 29 B3 30 A7 32 34 32 35 30 00 F9 11 8D 5E 8B 44 |).0.24250....^.D|
000009F0: 47 B3 33 A7 32 34 32 35 30 00 09 12 92 5E 8B 43 |G.3.24250....^.C|
00000A00: 46 B2 30 A7 32 34 32 35 30 00 34 12 97 5E 43 4C |F.0.24250.4..^CL|
00000A10: B2 B6 28 43 46 AC 31 29 3A 81 4B B2 30 A4 44 47 |..(CF.1):.K.0.DG|
00000A20: AB 31 A9 4D 46 3A 41 4E B2 54 41 AA 4B 3A 8D 32 |.1.MF:AN.TA.K:.2|
00000A30: 34 39 30 30 00 51 12 9C 5E 9E 34 39 38 37 34 2C |4900.Q..^.49874,|
00000A40: 58 43 2C 59 43 2C 58 25 2C 59 25 2C 43 4C 2C 43 |XC,YC,X%,Y%,CL,C|
00000A50: 4C 00 58 12 B0 5E 82 4B 00 71 12 BA 5E 43 46 B2 |L.X..^.K.q..^CF.|
00000A60: A8 28 43 46 29 3A 54 41 B2 54 41 AA 44 47 3A 82 |.(CF):TA.TA.DG:.|
00000A70: 4A 00 A2 12 C4 5E 8B 4E B1 31 AF 28 4E AD 32 B2 |J....^.N.1.(N.2.|
00000A80: B5 28 4E AD 32 29 29 A7 9E 34 39 38 37 34 2C 58 |.(N.2))..49874,X|
00000A90: 43 2C 59 43 2C 58 43 AA 52 AB 31 2C 59 43 2C 30 |C,YC,XC.R.1,YC,0|
00000AA0: 2C 30 00 E5 12 CE 5E 54 41 B2 39 30 3A 81 4A B2 |,0....^TA.90:.J.|
00000AB0: 30 A4 4E 3A 44 47 B2 41 28 44 41 28 4C 32 25 AA |0.N:DG.A(DA(L2%.|
00000AC0: 31 29 2C 44 41 28 4A 29 29 AC 33 36 30 AD 53 46 |1),DA(J)).360.SF|
00000AD0: 3A 44 4C B2 28 44 47 AB 31 29 AD 32 3A 41 4E B2 |:DL.(DG.1).2:AN.|
00000AE0: 54 41 AA 44 4C 00 FC 12 D0 5E 8D 32 34 39 30 30 |TA.DL....^.24900|
00000AF0: 3A 8B 44 47 B3 35 A7 32 34 32 37 38 00 17 13 D3 |:.DG.5.24278....|
00000B00: 5E 50 53 24 B2 C7 28 36 36 AA 44 41 28 4A 29 29 |^PS$..(66.DA(J))|
00000B10: 3A 8D 32 34 39 35 30 00 27 13 D6 5E 54 41 B2 54 |:.24950.'..^TA.T|
00000B20: 41 AA 44 47 3A 82 4A 00 5B 13 D8 5E 50 53 24 B2 |A.DG:.J.[..^PS$.|
00000B30: 43 24 28 44 41 28 4C 32 25 AA 31 29 29 3A 58 B2 |C$(DA(L2%.1)):X.|
00000B40: 58 43 AB C3 28 50 53 24 29 AC 34 3A 59 B2 30 3A |XC..(PS$).4:Y.0:|
00000B50: 50 43 B2 37 3A 8D 34 38 30 30 30 00 7D 13 E2 5E |PC.7:.48000.}..^|
00000B60: 58 54 B2 30 3A 59 54 B2 30 3A 43 4C B2 31 34 3A |XT.0:YT.0:CL.14:|
00000B70: 58 4C B2 31 33 32 3A 59 4C B2 31 39 39 00 9D 13 |XL.132:YL.199...|
00000B80: EC 5E 9E 34 39 38 37 34 2C 58 54 2C 59 54 2C 58 |.^.49874,XT,YT,X|
00000B90: 54 AA 58 4C 2C 59 54 2C 43 4C 2C 43 4C 00 C3 13 |T.XL,YT,CL,CL...|
00000BA0: F6 5E 9E 34 39 38 37 34 2C 58 54 AA 58 4C 2C 59 |.^.49874,XT.XL,Y|
00000BB0: 54 2C 58 54 AA 58 4C 2C 59 54 AA 59 4C 2C 43 4C |T,XT.XL,YT.YL,CL|
00000BC0: 2C 43 4C 00 E9 13 00 5F 9E 34 39 38 37 34 2C 58 |,CL...._.49874,X|
00000BD0: 54 AA 58 4C 2C 59 54 AA 59 4C 2C 58 54 2C 59 54 |T.XL,YT.YL,XT,YT|
00000BE0: AA 59 4C 2C 43 4C 2C 43 4C 00 09 14 14 5F 9E 34 |.YL,CL,CL...._.4|
00000BF0: 39 38 37 34 2C 58 54 2C 59 54 AA 59 4C 2C 58 54 |9874,XT,YT.YL,XT|
00000C00: 2C 59 54 2C 43 4C 2C 43 4C 00 39 14 16 5F 50 43 |,YT,CL,CL.9.._PC|
00000C10: B2 43 4C 3A 58 B2 32 3A 59 B2 34 3A 50 53 24 B2 |.CL:X.2:Y.4:PS$.|
00000C20: 22 54 48 45 20 4B 45 59 20 54 4F 20 43 48 41 52 |"THE KEY TO CHAR|
00000C30: 54 22 3A 8D 34 38 30 30 30 00 63 14 18 5F 58 B2 |T":.48000.c.._X.|
00000C40: 32 3A 59 B2 59 AA 38 3A 50 53 24 B2 22 4F 50 50 |2:Y.Y.8:PS$."OPP|
00000C50: 4F 53 49 54 45 20 49 53 20 3B 2D 22 3A 8D 34 38 |OSITE IS ;-":.48|
00000C60: 30 30 30 00 95 14 1E 5F 50 43 B2 43 4C 3A 58 54 |000...._PC.CL:XT|
00000C70: B2 32 3A 59 54 B2 33 34 3A 81 49 B2 30 A4 4E 3A |.2:YT.34:.I.0.N:|
00000C80: 50 53 24 B2 C7 28 36 36 AA 44 41 28 49 29 29 AA |PS$..(66.DA(I)).|
00000C90: 22 20 3D 20 22 00 AE 14 23 5F 8B 52 24 28 44 41 |" = "...#_.R$(DA|
00000CA0: 28 49 29 29 B2 4C 4E 24 A7 32 34 33 36 30 00 D7 |(I)).LN$.24360..|
00000CB0: 14 24 5F 54 24 B2 52 24 28 44 41 28 49 29 29 3A |.$_T$.R$(DA(I)):|
00000CC0: 8B C3 28 54 24 29 B1 31 32 A7 54 24 B2 CA 28 54 |..(T$).12.T$..(T|
00000CD0: 24 2C 31 2C 31 32 29 00 E6 14 26 5F 50 53 24 B2 |$,1,12)...&_PS$.|
00000CE0: 50 53 24 AA 54 24 00 02 15 28 5F 58 B2 58 54 3A |PS$.T$...(_X.XT:|
00000CF0: 59 B2 59 54 AA 49 AC 38 3A 8D 34 38 30 30 30 3A |Y.YT.I.8:.48000:|
00000D00: 82 49 00 17 15 E0 60 A1 41 24 3A 8B 41 24 B2 22 |.I....`.A$:.A$."|
00000D10: 22 A7 32 34 38 30 30 00 24 15 EA 60 9E 34 39 38 |".24800.$..`.498|
00000D20: 34 35 3A 8E 00 46 15 44 61 8F 20 43 41 4C 43 55 |45:..F.Da. CALCU|
00000D30: 4C 41 54 45 20 58 2C 59 20 50 4F 53 4E 20 46 4F |LATE X,Y POSN FO|
00000D40: 52 20 4C 49 4E 45 00 74 15 4E 61 58 25 B2 58 43 |R LINE.t.NaX%.XC|
00000D50: AA 52 AC BF 28 41 4E AC FF AD 31 38 30 29 3A 59 |.R..(AN...180):Y|
00000D60: 25 B2 59 43 AA 52 AC BE 28 41 4E AC FF AD 31 38 |%.YC.R..(AN...18|
00000D70: 30 29 3A 8E 00 95 15 76 61 8F 20 50 52 49 4E 54 |0):....va. PRINT|
00000D80: 20 4C 45 54 54 45 52 53 20 41 52 4F 55 4E 44 20 | LETTERS AROUND |
00000D90: 43 48 41 52 54 00 9B 15 78 61 8F 00 B4 15 7A 61 |CHART...xa....za|
00000DA0: 8B 58 25 B1 58 43 A7 58 B2 58 25 AA 32 3A 89 32 |.X%.XC.X.X%.2:.2|
00000DB0: 34 39 35 38 00 C0 15 7C 61 58 B2 58 25 AB 31 30 |4958...|aX.X%.10|
00000DC0: 00 D9 15 7E 61 8B 59 25 B1 59 43 A7 59 B2 59 25 |...~a.Y%.YC.Y.Y%|
00000DD0: AA 32 3A 89 32 34 39 36 32 00 E5 15 80 61 59 B2 |.2:.24962....aY.|
00000DE0: 59 25 AB 31 30 00 07 16 82 61 50 43 B2 31 3A 50 |Y%.10....aPC.1:P|
00000DF0: 53 24 B2 C7 28 36 36 AA 44 41 28 4A 29 29 3A 8D |S$..(66.DA(J)):.|
00000E00: 34 38 30 30 30 3A 8E 00 0D 16 94 61 8F 00 13 16 |48000:.....a....|
00000E10: 95 61 8F 00 19 16 3F 9C 8F 00 25 16 40 9C 8F 20 |.a....?...%.@.. |
00000E20: 47 52 41 50 48 00 37 16 45 9C 4E B2 44 41 28 4C |GRAPH.7.E.N.DA(L|
00000E30: 32 25 AA 32 29 AB 31 00 70 16 47 9C 4D 41 B2 30 |2%.2).1.p.G.MA.0|
00000E40: 3A 81 49 B2 30 A4 4E 3A 44 47 B2 41 28 44 41 28 |:.I.0.N:DG.A(DA(|
00000E50: 4C 32 25 AA 31 29 2C 44 41 28 49 29 29 3A 8B B6 |L2%.1),DA(I)):..|
00000E60: 28 44 47 29 B1 4D 41 A7 4D 41 B2 B6 28 44 47 29 |(DG).MA.MA..(DG)|
00000E70: 00 77 16 48 9C 82 49 00 87 16 49 9C 8B 4D 41 B2 |.w.H..I...I..MA.|
00000E80: 30 A7 34 30 30 34 36 00 94 16 4A 9C 53 43 B2 39 |0.40046...J.SC.9|
00000E90: 31 AD 4D 41 00 A3 16 4F 9C 9E 34 39 31 35 32 2C |1.MA...O..49152,|
00000EA0: 30 2C 30 00 B6 16 50 9C 44 58 B2 33 30 30 AD 4E |0,0...P.DX.300.N|
00000EB0: 3A 58 31 B2 31 30 00 D2 16 51 9C 9E 34 39 38 37 |:X1.10...Q..4987|
00000EC0: 34 2C 31 30 2C 39 39 2C 33 31 31 2C 39 39 2C 31 |4,10,99,311,99,1|
00000ED0: 2C 31 00 DD 16 52 9C 8D 34 30 31 30 30 00 E9 16 |,1...R..40100...|
00000EE0: 54 9C 81 49 B2 31 A4 20 4E 00 15 17 5E 9C 58 32 |T..I.1. N...^.X2|
00000EF0: B2 58 31 AA 44 58 3A 44 47 28 31 29 B2 B5 28 41 |.X1.DX:DG(1)..(A|
00000F00: 28 44 41 28 4C 32 25 AA 31 29 2C 44 41 28 49 29 |(DA(L2%.1),DA(I)|
00000F10: 29 AC 53 43 29 00 3A 17 60 9C 44 47 28 30 29 B2 |).SC).:.`.DG(0).|
00000F20: B5 28 41 28 44 41 28 4C 32 25 AA 31 29 2C 44 41 |.(A(DA(L2%.1),DA|
00000F30: 28 49 AB 31 29 29 AC 53 43 29 00 61 17 63 9C 9E |(I.1)).SC).a.c..|
00000F40: 34 39 38 37 34 2C 58 32 2C 39 39 AB 44 47 28 31 |49874,X2,99.DG(1|
00000F50: 29 2C 58 31 2C 39 39 AB 44 47 28 30 29 2C 31 2C |),X1,99.DG(0),1,|
00000F60: 31 00 7E 17 64 9C 9E 34 39 38 37 34 2C 58 32 2C |1.~.d..49874,X2,|
00000F70: 31 30 30 2C 58 32 2C 31 30 31 2C 31 2C 31 00 AB |100,X2,101,1,1..|
00000F80: 17 65 9C 58 B2 58 32 AB 34 3A 59 B2 31 30 35 3A |.e.X.X2.4:Y.105:|
00000F90: 50 43 B2 31 3A 50 53 24 B2 C7 28 36 36 AA 44 41 |PC.1:PS$..(66.DA|
00000FA0: 28 49 29 29 3A 8D 34 38 30 30 30 00 B5 17 67 9C |(I)):.48000...g.|
00000FB0: 58 31 B2 58 32 00 BC 17 68 9C 82 49 00 ED 17 6A |X1.X2...h..I...j|
00000FC0: 9C 58 B2 31 33 3A 59 B2 36 3A 50 43 B2 31 3A 50 |.X.13:Y.6:PC.1:P|
00000FD0: 53 24 B2 C4 28 B5 28 4D 41 AC 31 30 30 AA 2E 35 |S$..(.(MA.100..5|
00000FE0: 29 AD 31 30 30 29 3A 8D 34 38 30 30 30 00 22 18 |).100):.48000.".|
00000FF0: 6C 9C 58 B2 31 33 3A 59 B2 31 38 37 3A 50 43 B2 |l.X.13:Y.187:PC.|
00001000: 31 3A 50 53 24 B2 C4 28 30 AB B5 28 4D 41 AC 31 |1:PS$..(0..(MA.1|
00001010: 30 30 AA 2E 35 29 AD 31 30 30 29 3A 8D 34 38 30 |00..5).100):.480|
00001020: 30 30 00 5B 18 6E 9C 50 53 24 B2 43 24 28 44 41 |00.[.n.PS$.C$(DA|
00001030: 28 4C 32 25 AA 31 29 29 3A 59 B2 30 3A 58 B2 28 |(L2%.1)):Y.0:X.(|
00001040: 33 31 39 AB C3 28 50 53 24 29 AC 38 29 AD 32 3A |319..(PS$).8).2:|
00001050: 50 43 B2 37 3A 8D 34 38 30 30 30 00 70 18 72 9C |PC.7:.48000.p.r.|
00001060: A1 41 24 3A 8B 41 24 B2 22 22 A7 34 30 30 35 30 |.A$:.A$."".40050|
00001070: 00 7D 18 7C 9C 9E 34 39 38 34 35 3A 8E 00 99 18 |.}.|..49845:....|
00001080: A4 9C 9E 34 39 38 37 34 2C 31 30 2C 31 30 2C 31 |...49874,10,10,1|
00001090: 30 2C 31 39 31 2C 31 2C 31 00 B7 18 AE 9C 53 31 |0,191,1,1.....S1|
000010A0: B2 31 30 AE 28 B5 28 BC 28 4D 41 29 AD BC 28 31 |.10.(.(.(MA)..(1|
000010B0: 30 29 29 29 AD 31 30 00 CB 18 B3 9C 8B 4D 41 B1 |0))).10......MA.|
000010C0: 32 AF 53 31 B3 31 A7 53 31 B2 31 00 E0 18 B8 9C |2.S1.1.S1.1.....|
000010D0: 81 49 B2 31 39 30 A4 31 30 A9 AB 53 43 AC 53 31 |.I.190.10..SC.S1|
000010E0: 00 02 19 C2 9C 9E 34 39 35 38 35 2C 39 2C 49 2C |......49585,9,I,|
000010F0: 31 2C 31 3A 9E 34 39 35 38 35 2C 38 2C 49 2C 31 |1,1:.49585,8,I,1|
00001100: 2C 31 00 0B 19 CC 9C 82 49 3A 8E 00 11 19 08 9D |,1......I:......|
00001110: 8F 00 17 19 1C A2 8F 00 1D 19 80 BB 8F 00 51 19 |..............Q.|
00001120: 8A BB 8F 20 52 4F 55 54 49 4E 45 20 54 4F 20 50 |... ROUTINE TO P|
00001130: 52 49 4E 54 20 4F 4E 20 53 43 52 45 45 4E 20 41 |RINT ON SCREEN A|
00001140: 54 20 50 4F 53 4E 20 58 2C 59 2C 43 4F 4C 20 43 |T POSN X,Y,COL C|
00001150: 4C 00 63 19 94 BB 8B 50 53 24 B2 22 22 A7 34 38 |L.c....PS$."".48|
00001160: 32 30 30 00 86 19 9E BB 81 50 53 B2 31 A4 C3 28 |200......PS.1..(|
00001170: 50 53 24 29 3A 41 43 B2 C6 28 CA 28 50 53 24 2C |PS$):AC..(.(PS$,|
00001180: 50 53 2C 31 29 29 00 A0 19 A8 BB 9E 35 31 32 31 |PS,1))......5121|
00001190: 31 2C 58 2C 59 2C 50 43 2C 50 43 2C 41 43 2C 30 |1,X,Y,PC,PC,AC,0|
000011A0: 00 BB 19 B2 BB 58 B2 58 AA 38 3A 8B 58 B1 33 31 |.....X.X.8:.X.31|
000011B0: 39 A7 58 B2 30 3A 59 B2 59 AA 38 00 C3 19 BC BB |9.X.0:Y.Y.8.....|
000011C0: 82 50 53 00 C9 19 48 BC 8E 00 CF 19 5E BF 8F 00 |.PS...H.....^...|
000011D0: DC 19 68 BF 8F 20 46 4E 41 28 4A 29 00 13 1A 72 |..h.. FNA(J)...r|
000011E0: BF 8B 41 28 44 41 28 4C 32 25 AA 31 29 2C 44 41 |..A(DA(L2%.1),DA|
000011F0: 28 4A 29 29 B2 30 AF 44 41 28 4C 32 25 AA 33 29 |(J)).0.DA(L2%.3)|
00001200: B2 30 A7 46 46 24 B2 22 31 2E 30 22 3A 89 34 39 |.0.FF$."1.0":.49|
00001210: 30 33 30 00 3B 1A 7C BF 46 46 24 B2 C4 28 41 28 |030.;.|.FF$..(A(|
00001220: 44 41 28 4C 32 25 AA 31 29 2C 44 41 28 4A 29 29 |DA(L2%.1),DA(J))|
00001230: AD 44 41 28 4C 32 25 AA 33 29 29 00 41 1A 86 BF |.DA(L2%.3)).A...|
00001240: 8E 00 47 1A 90 BF 8F 00 53 1A 50 C3 8F 20 49 4E |..G.....S.P.. IN|
00001250: 49 54 31 00 5A 1A 55 C3 A0 31 00 76 1A 5A C3 43 |IT1.Z.U..1.v.Z.C|
00001260: 52 28 30 29 B2 AB 31 3A 43 43 28 30 29 B2 AB 31 |R(0)..1:CC(0)..1|
00001270: 3A 4D 41 25 B2 30 00 A1 1A 64 C3 99 22 93 20 20 |:MA%.0...d..". |
00001280: 20 20 20 2A 20 2A 20 2A 20 20 C7 20 D2 20 C1 20 | * * * . . . |
00001290: D0 20 C8 20 C9 20 C3 20 D3 20 20 2A 20 2A 20 2A |. . . . . * * *|
000012A0: 22 00 CD 1A 6E C3 99 22 20 20 20 20 20 C0 20 C0 |"...n.." . .|
000012B0: 20 C0 20 20 C0 20 C0 20 C0 20 C0 20 C0 20 C0 20 | . . . . . . . |
000012C0: C0 20 C0 20 20 C0 20 C0 20 C0 11 11 22 00 F7 1A |. . . . ..."...|
000012D0: 78 C3 4E 4D 24 B2 22 22 3A 9E 52 54 25 2C 30 2C |x.NM$."":.RT%,0,|
000012E0: 36 3A 85 22 CF 4C 44 20 46 49 4C 45 20 4E 41 4D |6:.".LD FILE NAM|
000012F0: 45 3A 22 3B 4E 4D 24 00 27 1B 82 C3 8B 28 C3 28 |E:";NM$.'....(.(|
00001300: 4E 4D 24 29 B2 30 B0 20 C3 28 4E 4D 24 29 B1 31 |NM$).0. .(NM$).1|
00001310: 36 29 A7 9E 52 54 25 2C 30 2C 36 3A 99 53 50 24 |6)..RT%,0,6:.SP$|
00001320: 3A 89 35 30 30 34 30 00 39 1B 8C C3 9F 31 2C 30 |:.50040.9....1,0|
00001330: 38 2C 30 2C 28 4E 4D 24 29 00 77 1B 96 C3 84 31 |8,0,(NM$).w....1|
00001340: 2C 4C 31 25 2C 4C 32 25 3A 86 52 24 28 4C 32 25 |,L1%,L2%:.R$(L2%|
00001350: AA 31 29 2C 43 24 28 4C 31 25 29 2C 41 28 4C 31 |.1),C$(L1%),A(L1|
00001360: 25 2C 4C 32 25 29 2C 44 41 28 4C 32 25 AA 33 29 |%,L2%),DA(L2%.3)|
00001370: 2C 43 28 34 2C 33 29 00 88 1B A0 C3 84 31 2C 52 |,C(4,3)......1,R|
00001380: 24 28 4C 32 25 AA 31 29 00 A0 1B AA C3 81 49 B2 |$(L2%.1)......I.|
00001390: 30 A4 4C 32 25 3A 84 31 2C 52 24 28 49 29 3A 82 |0.L2%:.1,R$(I):.|
000013A0: 00 B8 1B B4 C3 81 49 B2 30 A4 4C 31 25 3A 84 31 |......I.0.L1%:.1|
000013B0: 2C 43 24 28 49 29 3A 82 00 E3 1B BE C3 81 4A B2 |,C$(I):.......J.|
000013C0: 30 A4 4C 32 25 3A 81 49 B2 30 A4 4C 31 25 3A 84 |0.L2%:.I.0.L1%:.|
000013D0: 31 2C 41 28 49 2C 4A 29 2C 46 24 2C 46 24 3A 82 |1,A(I,J),F$,F$:.|
000013E0: 49 2C 4A 00 EA 1B C8 C3 A0 31 00 27 1C D2 C3 8B |I,J......1.'....|
000013F0: 53 54 A7 99 22 11 11 12 C6 C9 CC C5 20 CE CF D4 |ST.."....... ...|
00001400: 20 C6 CF D5 CE C4 20 C5 D2 D2 CF D2 20 21 21 21 | ..... ..... !!!|
00001410: 21 22 3A 81 49 B2 30 A4 35 30 30 30 3A 82 3A 9C |!":.I.0.5000:.:.|
00001420: 3A 89 35 30 30 30 30 00 2D 1C 7C C4 8E 00 33 1C |:.50000.-.|...3.|
00001430: 86 C4 8F 00 45 1C 38 C7 8F 20 53 45 4C 45 43 54 |....E.8.. SELECT|
00001440: 20 44 41 54 41 00 5E 1C 42 C7 81 4A B2 30 A4 4C | DATA.^.B..J.0.L|
00001450: 32 25 AA 33 3A 44 41 28 4A 29 B2 30 3A 82 00 89 |2%.3:DA(J).0:...|
00001460: 1C 4C C7 99 22 93 20 20 20 20 20 2A 20 2A 20 2A |.L..". * * *|
00001470: 20 20 C7 20 D2 20 C1 20 D0 20 C8 20 C9 20 C3 20 | . . . . . . . |
00001480: D3 20 20 2A 20 2A 20 2A 22 00 B5 1C 56 C7 99 22 |. * * *"...V.."|
00001490: 20 20 20 20 20 C0 20 C0 20 C0 20 20 C0 20 C0 20 | . . . . . |
000014A0: C0 20 C0 20 C0 20 C0 20 C0 20 C0 20 20 C0 20 C0 |. . . . . . . .|
000014B0: 20 C0 11 11 22 00 CA 1C 60 C7 99 A3 31 32 29 22 | ..."...`...12)"|
000014C0: C6 C9 CC C5 3A 20 22 4E 4D 24 00 DB 1C 6A C7 44 |....: "NM$...j.D|
000014D0: 41 28 4C 32 25 AA 31 29 B2 AB 31 00 0C 1D 74 C7 |A(L2%.1)..1...t.|
000014E0: 9E 52 54 25 2C 30 2C 38 3A 3A 99 22 D3 45 4C 45 |.RT%,0,8::.".ELE|
000014F0: 43 54 20 52 4F 57 20 28 32 2D 22 CA 28 C4 28 4C |CT ROW (2-".(.(L|
00001500: 31 25 AA 32 29 2C 32 29 22 29 22 3B 00 2B 1D 7E |1%.2),2)")";.+.~|
00001510: C7 54 24 B2 22 22 3A 85 54 24 3A 54 B2 C5 28 54 |.T$."":.T$:T..(T|
00001520: 24 29 3A 8B 54 B3 32 A7 54 B2 30 00 42 1D 88 C7 |$):.T.2.T.0.B...|
00001530: 8B 54 B2 30 A7 8D 35 38 30 30 30 3A 89 35 31 30 |.T.0..58000:.510|
00001540: 32 30 00 64 1D 92 C7 8B 54 B1 4C 31 25 AA 32 A7 |20.d....T.L1%.2.|
00001550: 9E 52 54 25 2C 30 2C 38 3A 99 53 50 24 3A 89 35 |.RT%,0,8:.SP$:.5|
00001560: 31 30 36 30 00 9A 1D 9C C7 8B 43 24 28 54 AB 32 |1060......C$(T.2|
00001570: 29 B2 4C 4E 24 A7 99 A3 31 32 29 22 11 D3 C5 D4 |).LN$...12)"....|
00001580: 20 D4 CF 20 C1 20 CC C9 CE C5 22 3A 54 B2 4C 31 | .. . ....":T.L1|
00001590: 25 AA 33 3A 89 35 31 30 39 30 00 AC 1D A6 C7 44 |%.3:.51090.....D|
000015A0: 41 28 4C 32 25 AA 31 29 B2 54 AB 32 00 BE 1D B0 |A(L2%.1).T.2....|
000015B0: C7 9E 52 54 25 2C 30 2C 39 3A 99 53 50 24 00 E9 |..RT%,0,9:.SP$..|
000015C0: 1D BA C7 9E 52 54 25 2C 30 2C 31 30 3A 99 22 D3 |....RT%,0,10:.".|
000015D0: 45 4C 45 43 54 20 43 4F 4C 55 4D 4E 20 28 D9 2F |ELECT COLUMN (./|
000015E0: CE 29 20 3A 20 20 20 20 22 00 F3 1D C4 C7 4D 41 |.) : ".....MA|
000015F0: 25 B2 30 00 11 1E CE C7 81 4A B2 30 A4 4C 32 25 |%.0......J.0.L2%|
00001600: 3A 8B 52 24 28 4A 29 B2 4C 4E 24 A7 35 31 32 31 |:.R$(J).LN$.5121|
00001610: 30 00 27 1E D8 C7 9E 52 54 25 2C 32 32 2C 31 30 |0.'....RT%,22,10|
00001620: 3A 99 52 24 28 4A 29 00 48 1E E2 C7 A1 54 24 3A |:.R$(J).H....T$:|
00001630: 8B 54 24 B3 B1 22 59 22 20 AF 20 54 24 B3 B1 22 |.T$.."Y" . T$.."|
00001640: 4E 22 A7 35 31 31 37 30 00 5A 1E EC C7 8B 54 24 |N".51170.Z....T$|
00001650: B2 22 4E 22 A7 35 31 32 31 30 00 84 1E F6 C7 44 |."N".51210.....D|
00001660: 41 28 44 41 28 4C 32 25 AA 32 29 29 B2 4A 3A 44 |A(DA(L2%.2)).J:D|
00001670: 41 28 4C 32 25 AA 32 29 B2 44 41 28 4C 32 25 AA |A(L2%.2).DA(L2%.|
00001680: 32 29 AA 31 00 AE 1E FB C7 44 41 28 4C 32 25 AA |2).1.....DA(L2%.|
00001690: 33 29 B2 44 41 28 4C 32 25 AA 33 29 AA B6 28 41 |3).DA(L2%.3)..(A|
000016A0: 28 44 41 28 4C 32 25 AA 31 29 2C 4A 29 29 00 D9 |(DA(L2%.1),J))..|
000016B0: 1E 00 C8 8B 41 28 44 41 28 4C 32 25 AA 31 29 2C |....A(DA(L2%.1),|
000016C0: 4A 29 B1 4D 41 25 A7 4D 41 25 B2 41 28 44 41 28 |J).MA%.MA%.A(DA(|
000016D0: 4C 32 25 AA 31 29 2C 4A 29 00 DF 1E 0A C8 82 00 |L2%.1),J).......|
000016E0: F6 1E 14 C8 8B 44 41 28 4C 32 25 AA 32 29 B2 30 |.....DA(L2%.2).0|
000016F0: A7 35 31 31 33 30 00 FC 1E 1E C8 8E 00 02 1F 28 |.51130.........(|
00001700: C8 8F 00 0D 1F 64 C8 8F 20 4D 45 4E 55 00 1B 1F |.....d.. MENU...|
00001710: 6E C8 97 35 33 32 37 32 2C 32 33 00 5A 1F 73 C8 |n..53272,23.Z.s.|
00001720: 99 22 93 22 A3 38 29 22 2A 20 2A 20 2A 20 20 CD |.".".8)"* * * .|
00001730: 20 C5 20 CE 20 D5 20 20 2A 20 2A 20 2A 22 3A 99 | . . . * * *":.|
00001740: A3 38 29 22 C0 20 C0 20 C0 20 20 C0 20 C0 20 C0 |.8)". . . . . .|
00001750: 20 C0 20 20 C0 20 C0 20 C0 22 00 77 1F 78 C8 99 | . . . .".w.x..|
00001760: A3 31 30 29 22 11 11 11 31 20 20 20 20 48 49 53 |.10)"...1 HIS|
00001770: 54 4F 47 52 41 4D 22 00 92 1F 8C C8 99 A3 31 30 |TOGRAM".......10|
00001780: 29 22 11 32 20 20 20 20 50 49 45 20 43 48 41 52 |)".2 PIE CHAR|
00001790: 54 22 00 A9 1F 96 C8 99 A3 31 30 29 22 11 33 20 |T".......10)".3 |
000017A0: 20 20 20 47 52 41 50 48 22 00 C6 1F A0 C8 99 A3 | GRAPH".......|
000017B0: 31 30 29 22 11 34 20 20 20 20 49 4E 46 4F 52 4D |10)".4 INFORM|
000017C0: 41 54 49 4F 4E 22 00 E0 1F AA C8 99 A3 31 30 29 |ATION".......10)|
000017D0: 22 11 35 20 20 20 20 4E 45 57 20 44 41 54 41 22 |".5 NEW DATA"|
000017E0: 00 FA 1F B4 C8 99 A3 31 30 29 22 11 36 20 20 20 |.......10)".6 |
000017F0: 20 4E 45 57 20 46 49 4C 45 22 00 13 20 BE C8 99 | NEW FILE".. ...|
00001800: A3 31 30 29 22 11 37 20 20 20 20 50 52 49 4E 54 |.10)".7 PRINT|
00001810: 45 52 22 00 19 20 C8 C8 8E 00 1F 20 D2 C8 8F 00 |ER".. ..... ....|
00001820: 31 20 2C C9 8F 20 49 4E 46 4F 52 4D 41 54 49 4F |1 ,.. INFORMATIO|
00001830: 4E 00 60 20 36 C9 53 55 B2 30 3A 99 22 93 11 C9 |N.` 6.SU.0:."...|
00001840: CE C6 CF D2 CD C1 D4 C9 CF CE 11 11 22 3A 99 22 |............":."|
00001850: D0 52 49 4E 54 20 28 D9 2F CE 29 20 3A 20 22 3B |.RINT (./.) : ";|
00001860: 00 7F 20 40 C9 A1 54 24 3A 8B 54 24 B3 B1 22 59 |.. @..T$:.T$.."Y|
00001870: 22 AF 54 24 B3 B1 22 4E 22 A7 35 31 35 32 30 00 |".T$.."N".51520.|
00001880: 9E 20 4A C9 8B 54 24 B2 22 59 22 A7 99 22 D9 C5 |. J..T$."Y".."..|
00001890: D3 22 3A 44 56 B2 34 3A 89 35 31 35 34 30 00 AD |.":DV.4:.51540..|
000018A0: 20 4F C9 99 22 CE CF 22 3A 44 56 B2 33 00 BC 20 | O.."..":DV.3.. |
000018B0: 54 C9 9F 34 2C 44 56 2C 37 3A 9D 34 00 F8 20 5E |T..4,DV,7:.4.. ^|
000018C0: C9 99 3A 99 22 43 4F 4C 2E 20 20 22 3B 52 24 28 |..:."COL. ";R$(|
000018D0: 4C 32 25 AA 31 29 3B 22 20 22 43 24 28 44 41 28 |L2%.1);" "C$(DA(|
000018E0: 4C 32 25 AA 31 29 29 22 20 20 20 20 20 D0 45 52 |L2%.1))" .ER|
000018F0: 43 45 4E 54 41 47 45 22 00 0D 21 68 C9 81 4A B2 |CENTAGE"..!h..J.|
00001900: 30 A4 44 41 28 4C 32 25 AA 32 29 AB 31 00 31 21 |0.DA(L2%.2).1.1!|
00001910: 72 C9 99 C7 28 36 36 AA 44 41 28 4A 29 29 3B 22 |r...(66.DA(J));"|
00001920: 20 A4 20 20 20 22 3B 52 24 28 44 41 28 4A 29 29 | . ";R$(DA(J))|
00001930: 3B 00 60 21 7C C9 54 B2 B5 28 41 28 44 41 28 4C |;.`!|.T..(A(DA(L|
00001940: 32 25 AA 31 29 2C 44 41 28 4A 29 29 AC 31 30 30 |2%.1),DA(J)).100|
00001950: AA 2E 35 29 AD 31 30 30 3A 54 24 B2 C4 28 54 29 |..5).100:T$..(T)|
00001960: 00 78 21 7E C9 99 C8 28 53 50 24 2C 31 30 AB C3 |.x!~...(SP$,10..|
00001970: 28 54 24 29 29 54 24 3B 00 9E 21 81 C9 8D 34 39 |(T$))T$;..!...49|
00001980: 30 30 30 3A 46 46 24 B2 C4 28 B5 28 C5 28 46 46 |000:FF$..(.(.(FF|
00001990: 24 29 AC 31 30 30 30 30 29 AD 31 30 30 29 00 BC |$).10000).100)..|
000019A0: 21 86 C9 99 C8 28 53 50 24 2C 31 32 AB C3 28 46 |!....(SP$,12..(F|
000019B0: 46 24 29 29 3B 46 46 24 22 20 25 22 00 D9 21 90 |F$));FF$" %"..!.|
000019C0: C9 53 55 B2 53 55 AA 41 28 44 41 28 4C 32 25 AA |.SU.SU.A(DA(L2%.|
000019D0: 31 29 2C 44 41 28 4A 29 29 00 F0 21 9A C9 82 4A |1),DA(J))..!...J|
000019E0: 3A 99 3A 99 3A 99 22 31 30 30 25 20 3D 22 53 55 |:.:.:."100% ="SU|
000019F0: 00 FA 21 A4 C9 98 34 3A A0 34 00 0F 22 AE C9 A1 |..!...4:.4.."...|
00001A00: 54 24 3A 8B 54 24 B2 22 22 A7 35 31 36 33 30 00 |T$:.T$."".51630.|
00001A10: 15 22 B3 C9 8E 00 1B 22 B8 C9 8F 00 29 22 F4 C9 |."....."....)"..|
00001A20: 8F 20 50 52 4F 43 45 4E 44 00 4D 22 FE C9 9E 52 |. PROCEND.M"...R|
00001A30: 54 25 2C 30 2C 32 32 3A 99 22 4E 45 57 20 46 49 |T%,0,22:."NEW FI|
00001A40: 4C 45 20 28 D9 2F CE 29 20 3F 20 22 3B 00 6C 22 |LE (./.) ? ";.l"|
00001A50: 08 CA A1 54 24 3A 8B 54 24 B3 B1 22 59 22 AF 54 |...T$:.T$.."Y".T|
00001A60: 24 B3 B1 22 4E 22 A7 35 31 37 32 30 00 81 22 12 |$.."N".51720..".|
00001A70: CA 8B 54 24 B2 22 59 22 A7 99 22 D9 C5 D3 22 3A |..T$."Y".."...":|
00001A80: 8A 00 A4 22 1C CA 99 22 93 22 3A 9E 52 54 25 2C |..."...".":.RT%,|
00001A90: 31 34 2C 31 31 3A 99 22 2A 2A 2A 20 C5 CE C4 20 |14,11:."*** ... |
00001AA0: 2A 2A 2A 22 00 C3 22 26 CA 8F 20 2A 2A 20 45 52 |***".."&.. ** ER|
00001AB0: 41 53 45 20 50 52 4F 47 20 52 4F 55 54 49 4E 45 |ASE PROG ROUTINE|
00001AC0: 20 2A 2A 00 E3 22 2B CA 9E 35 32 30 36 34 3A 8F | **.."+..52064:.|
00001AD0: 20 45 52 41 53 45 20 50 52 4F 47 20 26 20 52 45 | ERASE PROG & RE|
00001AE0: 53 45 54 00 E9 22 30 CA 8F 00 F7 22 90 E2 8F 20 |SET.."0...."... |
00001AF0: 4C 49 53 54 52 4F 57 00 0B 23 9A E2 99 22 93 D2 |LISTROW..#..."..|
00001B00: CF D7 20 CC C1 C2 C5 CC D3 3A 22 00 2E 23 A4 E2 |.. ......:"..#..|
00001B10: 81 4A B2 31 A4 4C 31 25 AA 31 3A 8B 43 24 28 4A |.J.1.L1%.1:.C$(J|
00001B20: AB 31 29 B2 4C 4E 24 A7 89 35 38 30 36 30 00 43 |.1).LN$..58060.C|
00001B30: 23 AE E2 99 4A AA 31 3B A3 31 30 29 43 24 28 4A |#...J.1;.10)C$(J|
00001B40: AB 31 29 00 66 23 CC E2 82 4A 3A 9E 52 54 25 2C |.1).f#...J:.RT%,|
00001B50: 31 33 2C 32 33 3A 99 22 D0 D2 C5 D3 D3 20 C1 CE |13,23:."..... ..|
00001B60: D9 20 CB C5 D9 22 00 7B 23 D6 E2 A1 54 24 3A 8B |. ...".{#...T$:.|
00001B70: 54 24 B2 22 22 A7 35 38 30 37 30 00 81 23 E0 E2 |T$."".58070..#..|
00001B80: 8E 00 98 23 78 E6 8F 20 53 45 54 20 55 50 20 56 |...#x.. SET UP V|
00001B90: 41 52 49 41 42 4C 45 53 00 C1 23 82 E6 97 35 33 |ARIABLES..#...53|
00001BA0: 32 38 30 2C 30 3A 97 35 33 32 38 31 2C 30 3A 99 |280,0:.53281,0:.|
00001BB0: 22 05 22 C7 28 38 29 3A 97 35 33 32 37 32 2C 32 |".".(8):.53272,2|
00001BC0: 33 00 D8 23 6C E8 8F 20 53 45 54 20 55 50 20 56 |3..#l.. SET UP V|
00001BD0: 41 52 49 41 42 4C 45 53 00 0A 24 71 E8 53 50 24 |ARIABLES..$q.SP$|
00001BE0: B2 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." |
00001BF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001C00: 20 20 20 20 20 20 20 20 20 22 00 32 24 76 E8 4C | ".2$v.L|
00001C10: 4E 24 B2 22 D7 D1 D5 C9 4C 49 4E 45 22 3A 44 4E |N$."....LINE":DN|
00001C20: B2 31 3A 8F 20 44 45 56 49 43 45 20 4E 55 4D 42 |.1:. DEVICE NUMB|
00001C30: 45 52 00 55 24 DA E8 52 54 25 B2 32 30 35 36 3A |ER.U$..RT%.2056:|
00001C40: 8F 20 43 55 52 53 4F 52 20 50 4F 53 4E 20 52 4F |. CURSOR POSN RO|
00001C50: 55 54 49 4E 45 00 5B 24 F7 E9 8E 00 61 24 30 F2 |UTINE.[$....a$0.|
00001C60: 8F 00 7F 24 35 F2 8F 20 4D 50 53 2D 38 30 31 20 |...$5.. MPS-801 |
00001C70: 50 52 49 4E 54 45 52 20 52 4F 55 54 49 4E 45 00 |PRINTER ROUTINE.|
00001C80: 85 24 3A F2 8F 00 B5 24 44 F2 53 31 B2 33 32 30 |.$:....$D.S1.320|
00001C90: 3A 53 32 B2 32 30 30 3A 50 54 24 B2 C8 28 53 50 |:S2.200:PT$..(SP|
00001CA0: 24 2C 31 32 29 3A 50 53 24 B2 50 54 24 AA 50 54 |$,12):PS$.PT$.PT|
00001CB0: 24 AA 53 50 24 00 D8 24 4E F2 9F 36 2C 34 2C 36 |$.SP$..$N..6,4,6|
00001CC0: 3A 98 36 2C C7 28 32 30 29 3A A0 36 3A 9F 35 2C |:.6,.(20):.6:.5,|
00001CD0: 34 2C 35 3A 9F 34 2C 34 00 E2 24 5D F2 98 34 3A |4,5:.4,4..$]..4:|
00001CE0: 98 34 00 26 25 62 F2 98 34 2C 50 54 24 22 D5 C0 |.4.&%b..4,PT$"..|
00001CF0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00001D00: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00001D10: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00001D20: C0 C0 C0 C0 C9 22 00 5B 25 6C F2 81 41 31 B2 30 |.....".[%l..A1.0|
00001D30: A4 B5 28 53 32 AD 37 29 AB 31 3A 98 34 2C 50 54 |..(S2.7).1:.4,PT|
00001D40: 24 22 DD 22 C7 28 31 34 31 29 3B 3A 81 41 32 B2 |$".".(141);:.A2.|
00001D50: 30 A4 B5 28 53 31 AD 36 29 AB 31 00 80 25 76 F2 |0..(S1.6).1..%v.|
00001D60: 45 50 24 B2 22 22 3A 50 43 B2 30 3A 81 41 33 B2 |EP$."":PC.0:.A3.|
00001D70: 30 A4 35 3A 45 50 B2 30 3A 81 41 34 B2 30 A4 36 |0.5:EP.0:.A4.0.6|
00001D80: 00 B6 25 80 F2 8B B7 28 31 29 2C 28 41 32 AC 36 |..%....(1),(A2.6|
00001D90: AA 41 33 29 2C 28 41 31 AC 37 AA 41 34 29 A7 45 |.A3),(A1.7.A4).E|
00001DA0: 50 B2 45 50 AA 32 AE 28 36 AB 41 34 29 3A 50 43 |P.EP.2.(6.A4):PC|
00001DB0: B2 50 43 AA 45 50 00 D0 25 8A F2 82 41 34 3A 45 |.PC.EP..%...A4:E|
00001DC0: 50 24 B2 45 50 24 AA C7 28 45 50 29 3A 82 41 33 |P$.EP$..(EP):.A3|
00001DD0: 00 E0 25 8F F2 8B 50 43 B2 30 A7 36 32 31 31 30 |..%...PC.0.62110|
00001DE0: 00 0A 26 94 F2 98 35 2C 45 50 24 3A 98 34 2C 50 |..&...5,EP$:.4,P|
00001DF0: 54 24 C8 28 50 53 24 2C 41 32 AA 31 29 C7 28 32 |T$.(PS$,A2.1).(2|
00001E00: 35 34 29 C7 28 31 34 31 29 3B 00 28 26 9E F2 82 |54).(141);.(&...|
00001E10: 41 32 3A 98 34 2C C8 28 50 53 24 2C 41 32 AA 31 |A2:.4,.(PS$,A2.1|
00001E20: 29 22 DD 22 3A 82 41 31 00 6C 26 A8 F2 98 34 2C |)".":.A1.l&...4,|
00001E30: 50 54 24 22 CA C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |PT$"............|
00001E40: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00001E50: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00001E60: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 CB 22 00 94 26 B2 |..........."..&.|
00001E70: F2 81 41 B2 31 A4 37 3A 98 34 3A 82 41 3A A0 35 |..A.1.7:.4:.A:.5|
00001E80: 3A A0 34 3A 9F 31 30 2C 34 2C 31 30 3A 98 31 30 |:.4:.10,4,10:.10|
00001E90: 3A A0 31 30 00 9A 26 BC F2 8E 00 A0 26 18 F6 8F |:.10..&.....&...|
00001EA0: 00 BE 26 1D F6 8F 20 4D 50 53 2D 38 30 32 20 50 |..&... MPS-802 P|
00001EB0: 52 49 4E 54 45 52 20 52 4F 55 54 49 4E 45 00 C4 |RINTER ROUTINE..|
00001EC0: 26 22 F6 8F 00 D6 26 2C F6 53 31 B2 33 32 30 3A |&"....&,.S1.320:|
00001ED0: 53 32 B2 32 30 30 00 F9 26 36 F6 9F 36 2C 34 2C |S2.200..&6..6,4,|
00001EE0: 36 3A 98 36 2C C7 28 32 30 29 3A A0 36 3A 9F 35 |6:.6,.(20):.6:.5|
00001EF0: 2C 34 2C 35 3A 9F 34 2C 34 00 05 27 42 F6 98 34 |,4,5:.4,4..'B..4|
00001F00: 2C C7 28 38 29 00 0F 27 45 F6 98 34 3A 98 34 00 |,.(8)..'E..4:.4.|
00001F10: 33 27 54 F6 81 41 31 B2 30 A4 B5 28 53 32 AD 34 |3'T..A1.0..(S2.4|
00001F20: 29 AB 31 3A 81 41 32 B2 30 A4 B5 28 53 31 AD 38 |).1:.A2.0..(S1.8|
00001F30: 29 AB 31 00 58 27 5E F6 45 50 24 B2 22 22 3A 50 |).1.X'^.EP$."":P|
00001F40: 43 B2 30 3A 81 41 33 B2 30 A4 37 3A 45 50 B2 30 |C.0:.A3.0.7:EP.0|
00001F50: 3A 81 41 34 B2 31 A4 34 00 9C 27 68 F6 8B B7 28 |:.A4.1.4..'h...(|
00001F60: 31 29 2C 28 41 32 AC 38 AA 41 33 29 2C 28 41 31 |1),(A2.8.A3),(A1|
00001F70: AC 34 AA 41 34 AB 31 29 A7 45 50 B2 45 50 AA 32 |.4.A4.1).EP.EP.2|
00001F80: AE 28 38 AB 28 41 34 AC 32 29 29 AA 32 AE 28 37 |.(8.(A4.2)).2.(7|
00001F90: AB 28 28 41 34 AB 31 29 AC 32 29 29 00 BF 27 72 |.((A4.1).2))..'r|
00001FA0: F6 50 43 B2 50 43 AA 45 50 3A 82 41 34 3A 45 50 |.PC.PC.EP:.A4:EP|
00001FB0: 24 B2 45 50 24 AA C7 28 45 50 29 3A 82 41 33 00 |$.EP$..(EP):.A3.|
00001FC0: CF 27 77 F6 8B 50 43 B2 30 A7 36 33 31 31 30 00 |.'w..PC.0.63110.|
00001FD0: F6 27 7C F6 98 35 2C 45 50 24 3A 98 34 2C A3 41 |.'|..5,EP$:.4,.A|
00001FE0: 32 AC 32 29 C7 28 31 34 29 C7 28 32 35 34 29 C7 |2.2).(14).(254).|
00001FF0: 28 31 34 31 29 3B 00 05 28 86 F6 82 41 32 3A 98 |(141);..(...A2:.|
00002000: 34 3A 82 41 31 00 2D 28 9A F6 81 41 B2 31 A4 37 |4:.A1.-(...A.1.7|
00002010: 3A 98 34 3A 82 41 3A A0 35 3A A0 34 3A 9F 31 30 |:.4:.A:.5:.4:.10|
00002020: 2C 34 2C 31 30 3A 98 31 30 3A A0 31 30 00 33 28 |,4,10:.10:.10.3(|
00002030: A4 F6 8E 00 00 00 00 FF 00 FF |.......... |
..'.... * .. ....P....(.......L..L..***.
H........SYS3000 .U....A.
0.A.1:."GRAPH CODE",8,1:.45,12:.46,45...
...55,0:.56,120:.:.2087,72:.2088,8:.792,
193:.788,52.C....59000:. INITIALISE.....
.".WHICH PRINTER DO YOU HAVE ?".....A$(0
)."COMMODORE MPS-801".#...A$(1)."COMMODO
RE MPS-802".>...."....".8)"1 "A$(0).W
...."..".8)"2 "A$(1).Z...."....ENTER
CHOICE (1 OR 2) ?"......T$:.T$.."1".T$..
"2".30... .PP.E(T$).V.#.."..YOU HAVE CHO
SEN THE "A$(PP.1)" PRINTER,"...(.."...
IS THIS CORRECT (Y/N) ?"...-..T$:.T$.."Y
".T$.."N".45.#.2..T$."N".20.).Z.../._...
M.D.. GRAPHICS ;- MINI OFFICE.H.N.. BY S
IMON N. THORNTON...X.. (C) DATABASE PUBL
ICATIONS..................... ..50000:.5
1000......51300:.198,0.D..........T$:T.E
(T$):.T.1.T.7.190.$.H..DA(L2%.3).0.T.0.T
.4..RT%,5,23:."SUM OF SELECTED DATA IS Z
ERO..7.R..RT%,0,23:.SP$.W....T$."1"..200
00: . HISTOGRAM.W....T$."2"..24000: . PI
E CHART......T$."3"..40000: . GRAPH.....
.T$."4"..51500: . INFORMATION.R....T$."5
"..51000: . SELECT......T$."6"..51700: .
END PROGRAM......T$.."7".300: . PRINT.?
."..RT%,5,23:.".PLEASE WAIT, PRINTING GR
APHICS".^.'..PP.62000,63000: . PRINTER.Q
.)..RT%,0,23:.SP$.Z.,..170....N.... N. H
ISTOGRAM...%NN.DA(L2%.2).1...'NMA.0:.I.0
.N:DG.A(DA(L2%.1),DA(I)):..(DG).MA.MA..(
DG)...(N.I...)N.MA.0.20046...*NSC.91.MA.
../N.49152,0,0.4.0NDX.300.N:DT.DX.3:X1..
(DX.10):YC.0.P.1N.49874,10,99,320,99,1,1
.[.2N.20100...4N.I.0. N:YC.(YC.1).15:YC.
YC.(YC.0)...>NX2.X1.DX:DG..(A(DA(L2%.1),
DA(I)).SC)...CN.20200...FNX.X2.4:Y.105:P
C.1:PS$.G(66.DA(I)):.48000...GN.50713,X2
..(DT),99..(DG),YC,1,1...HNX1.X2:.I.D.JN
X.13:Y.2:PC.1:PS$.D(.(MA.100..5).100):.4
8000.Y.LNX.13:Y.191:PC.1:PS$.D(0..(MA.10
0..5).100):.48000...NNPS$.C$(DA(L2%.1)):
Y.0:X.(319.C(PS$).8).2:PC.7:.48000.G.RN.
A$:.A$."".20050.T.\N.49845:.....N.49874,
10,6,10,195,1,1....NS1.10.(.(.(MA)..(10)
)).10.!..N.MA.2.S1.1.S1.1.5..N.I.193.6..
SC.S1.L..N.49874,9,I,8,I,1,1.U..N.I:..[.
.N..J..N.I.0.20230....N.49874,X2.DT,99,X
2.DT,99.DG,YC,YC.U..N.X2.319..49874,X2.D
T,99.DG,320,99.DG,YC,YC:X2.320..(DT.2):.
20260....N.49874,X2.DT,99.DG,X2,99.DG,YC
,YC.@..O.X2.DT.319..49874,X2,99.DG,320,9
9.DG,YC,YC:X2.320..(DT.2):.20260....O.49
874,X2,99.DG,X2.DT,99.DG,YC,YC:.49874,X2
.DT,99.DG,X2.DT,99,YC,YC....O.49874,X2,1
00,X2,101,YC,YC...$O.....S.....]..I.A].
PIE CHART.O.B]....E]N.DA(L2%.2).1:.N.19.
N.19...J]SF.0:.J.0.N:SF.SF.A(DA(L2%.1),D
A(J)):..G.$^R.80:XC.320.R.12:YC.106:TA.9
0:CF..1:MF.1.00.V..^.49152,0,0.M.8^.5156
4,XC,YC,R,1,1...B^.49585,XC.R,YC,1,1...L
^.SF..0.24280.I..^.J.0.N:DG.A(DA(L2%.1),
DA(J)).360.SF:DL.(DG.1).2....^.A(DA(L2%.
1),DA(J)).0.24250....^.DG.3.24250....^.C
F.0.24250.4..^CL..(CF.1):.K.0.DG.1.MF:AN
.TA.K:.24900.Q..^.49874,XC,YC,X%,Y%,CL,C
L.X..^.K.Q..^CF..(CF):TA.TA.DG:.J...D^.N
.1.(N.2..(N.2))..49874,XC,YC,XC.R.1,YC,0
,0...N^TA.90:.J.0.N:DG.A(DA(L2%.1),DA(J)
).360.SF:DL.(DG.1).2:AN.TA.DL...P^.24900
:.DG.5.24278...S^PS$.G(66.DA(J)):.24950.
'.V^TA.TA.DG:.J.[.X^PS$.C$(DA(L2%.1)):X.
XC.C(PS$).4:Y.0:PC.7:.48000.}..^XT.0:YT.
0:CL.14:XL.132:YL.199....^.49874,XT,YT,X
T.XL,YT,CL,CL.C..^.49874,XT.XL,YT,XT.XL,
YT.YL,CL,CL...._.49874,XT.XL,YT.YL,XT,YT
.YL,CL,CL...._.49874,XT,YT.YL,XT,YT,CL,C
L.9.._PC.CL:X.2:Y.4:PS$."THE KEY TO CHAR
T":.48000.C.._X.2:Y.Y.8:PS$."OPPOSITE IS
;-":.48000...._PC.CL:XT.2:YT.34:.I.0.N:
PS$.G(66.DA(I))." = "...#_.R$(DA(I)).LN$
.24360.W.$_T$.R$(DA(I)):.C(T$).12.T$.J(T
$,1,12)...&_PS$.PS$.T$...(_X.XT:Y.YT.I.8
:.48000:.I....`.A$:.A$."".24800.$..`.498
45:..F.DA. CALCULATE X,Y POSN FOR LINE.T
.NAX%.XC.R..(AN...180):Y%.YC.R..(AN...18
0):....VA. PRINT LETTERS AROUND CHART...
XA....ZA.X%.XC.X.X%.2:.24958...|AX.X%.10
.Y.~A.Y%.YC.Y.Y%.2:.24962....AY.Y%.10...
.APC.1:PS$.G(66.DA(J)):.48000:.....A....
.A....?...%.@.. GRAPH.7.E.N.DA(L2%.2).1.
P.G.MA.0:.I.0.N:DG.A(DA(L2%.1),DA(I)):..
(DG).MA.MA..(DG).W.H..I...I..MA.0.40046.
..J.SC.91.MA...O..49152,0,0...P.DX.300.N
:X1.10.R.Q..49874,10,99,311,99,1,1...R..
40100...T..I.1. N...^.X2.X1.DX:DG(1)..(A
(DA(L2%.1),DA(I)).SC).:.`.DG(0)..(A(DA(L
2%.1),DA(I.1)).SC).A.C..49874,X2,99.DG(1
),X1,99.DG(0),1,1.~.D..49874,X2,100,X2,1
01,1,1...E.X.X2.4:Y.105:PC.1:PS$.G(66.DA
(I)):.48000...G.X1.X2...H..I...J.X.13:Y.
6:PC.1:PS$.D(.(MA.100..5).100):.48000.".
L.X.13:Y.187:PC.1:PS$.D(0..(MA.100..5).1
00):.48000.[.N.PS$.C$(DA(L2%.1)):Y.0:X.(
319.C(PS$).8).2:PC.7:.48000.P.R..A$:.A$.
"".40050.}.|..49845:.......49874,10,10,1
0,191,1,1.....S1.10.(.(.(MA)..(10))).10.
K....MA.2.S1.1.S1.1......I.190.10..SC.S1
...B..49585,9,I,1,1:.49585,8,I,1,1...L..
I:....................Q.... ROUTINE TO P
RINT ON SCREEN AT POSN X,Y,COL CL.C....P
S$."".48200......PS.1.C(PS$):AC.F(J(PS$,
PS,1)). ....51211,X,Y,PC,PC,AC,0.....X.X
.8:.X.319.X.0:Y.Y.8.C....PS.I.H...O.^...
..H.. FNA(J)...R..A(DA(L2%.1),DA(J)).0.D
A(L2%.3).0.FF$."1.0":.49030.;.|.FF$.D(A(
DA(L2%.1),DA(J)).DA(L2%.3)).A.....G.....
S.PC. INIT1.Z.UC 1.V.ZCCR(0)..1:CC(0)..1
:MA%.0...DC.". * * * G R A P H I C
S * * *".M.NC." . . . . . . . . .
. . . . ..."...XCNM$."":.RT%,0,6:."OLD
FILE NAME:";NM$.'..C.(C(NM$).0. C(NM$).1
6)..RT%,0,6:.SP$:.50040.9..C.1,08,0,(NM$
).W..C.1,L1%,L2%:.R$(L2%.1),C$(L1%),A(L1
%,L2%),DA(L2%.3),C(4,3)... C.1,R$(L2%.1)
. ..C.I.0.L2%:.1,R$(I):.....C.I.0.L1%:.1
,C$(I):.....C.J.0.L2%:.I.0.L1%:.1,A(I,J)
,F$,F$:.I,J...HC 1.'.RC.ST.."...FILE NOT
FOUND ERROR !!!!":.I.0.5000:.:.:.50000.
-.|D..3..D..E.8G. SELECT DATA.^.BG.J.0.L
2%.3:DA(J).0:....LG.". * * * G R A
P H I C S * * *"...VG." . . . . .
. . . . . . . . ...".J.`G..12)"FILE: "N
M$...JGDA(L2%.1)..1...TG.RT%,0,8::."SELE
CT ROW (2-"J(D(L1%.2),2)")";.+.~GT$."":.
T$:T.E(T$):.T.2.T.0.B..G.T.0..58000:.510
20.D..G.T.L1%.2..RT%,0,8:.SP$:.51060....
G.C$(T.2).LN$...12)".SET TO A LINE":T.L1
%.3:.51090....GDA(L2%.1).T.2....G.RT%,0,
9:.SP$....G.RT%,0,10:."SELECT COLUMN (Y/
N) : "...DGMA%.0...NG.J.0.L2%:.R$(J).
LN$.51210.'.XG.RT%,22,10:.R$(J).H..G.T$:
.T$.."Y" . T$.."N".51170.Z..G.T$."N".512
10....GDA(DA(L2%.2)).J:DA(L2%.2).DA(L2%.
2).1....GDA(L2%.3).DA(L2%.3)..(A(DA(L2%.
1),J)).Y..H.A(DA(L2%.1),J).MA%.MA%.A(DA(
L2%.1),J)....H.....H.DA(L2%.2).0.51130..
..H....(H....DH. MENU...NH.53272,23.Z.SH
.".".8)"* * * M E N U * * *":..8)". .
. . . . . . . .".W.XH..10)"...1 HIS
TOGRAM"....H..10)".2 PIE CHART"....H.
.10)".3 GRAPH".F. H..10)".4 INFORM
ATION"....H..10)".5 NEW DATA"....H..1
0)".6 NEW FILE".. .H..10)".7 PRINT
ER".. HH... RH..1 ,I. INFORMATION.` 6ISU
.0:."..INFORMATION..":."PRINT (Y/N) : ";
. @I.T$:.T$.."Y".T$.."N".51520.. JI.T$.
"Y".."YES":DV.4:.51540.. OI."NO":DV.3..
TI.4,DV,7:.4.. ^I.:."COL. ";R$(L2%.1);"
"C$(DA(L2%.1))" PERCENTAGE"..!HI.J.
0.DA(L2%.2).1.1!RI.G(66.DA(J));" . ";R
$(DA(J));.`!|IT..(A(DA(L2%.1),DA(J)).100
..5).100:T$.D(T).X!~I.H(SP$,10.C(T$))T$;
..!.I.49000:FF$.D(.(E(FF$).10000).100)..
!.I.H(SP$,12.C(FF$));FF$" %".Y!.ISU.SU.A
(DA(L2%.1),DA(J))..!.I.J:.:.:."100% ="SU
..!.I.4: 4..".I.T$:.T$."".51630..".I..."
.I..)".I. PROCEND.M".I.RT%,0,22:."NEW FI
LE (Y/N) ? ";.L".J.T$:.T$.."Y".T$.."N".5
1720..".J.T$."Y".."YES":...".J.".":.RT%,
14,11:."*** END ***".C"&J. ** ERASE PROG
ROUTINE **.."+J.52064:. ERASE PROG & RE
SET.."0J..."... LISTROW..#...".ROW LABEL
S:"..#...J.1.L1%.1:.C$(J.1).LN$..58060.C
#...J.1;.10)C$(J.1).F#L..J:.RT%,13,23:."
PRESS ANY KEY".{#V..T$:.T$."".58070..#..
...#X.. SET UP VARIABLES.A#...53280,0:.5
3281,0:."."G(8):.53272,23.X#L.. SET UP V
ARIABLES..$Q.SP$."
".2$V.LN$."WQUILINE":DN
.1:. DEVICE NUMBER.U$Z.RT%.2056:. CURSOR
POSN ROUTINE.[$....A$0...$5.. MPS-801
PRINTER ROUTINE..$:....$D.S1.320:S2.200:
PT$.H(SP$,12):PS$.PT$.PT$.SP$.X$N..6,4,6
:.6,G(20): 6:.5,4,5:.4,4..$]..4:.4.&%B..
4,PT$"U.................................
....................I".[%L..A1.0..(S2.7)
.1:.4,PT$"."G(141);:.A2.0..(S1.6).1..%V.
EP$."":PC.0:.A3.0.5:EP.0:.A4.0.6..%....(
1),(A2.6.A3),(A1.7.A4).EP.EP.2.(6.A4):PC
.PC.EP.P%...A4:EP$.EP$.G(EP):.A3..%...PC
.0.62110..&...5,EP$:.4,PT$H(PS$,A2.1)G(2
54)G(141);.(&...A2:.4,H(PS$,A2.1)".":.A1
.L&...4,PT$"J...........................
..........................K"..&...A.1.7:
.4:.A: 5: 4:.10,4,10:.10: 10..&.... &...
..&... MPS-802 PRINTER ROUTINE.D&"...V&,
.S1.320:S2.200..&6..6,4,6:.6,G(20): 6:.5
,4,5:.4,4..'B..4,G(8)..'E..4:.4.3'T..A1.
0..(S2.4).1:.A2.0..(S1.8).1.X'^.EP$."":P
C.0:.A3.0.7:EP.0:.A4.1.4..'H...(1),(A2.8
.A3),(A1.4.A4.1).EP.EP.2.(8.(A4.2)).2.(7
.((A4.1).2))..'R.PC.PC.EP:.A4:EP$.EP$.G(
EP):.A3.O'W..PC.0.63110..'|..5,EP$:.4,.A
2.2)G(14)G(254)G(141);..(...A2:.4:.A1.-(
...A.1.7:.4:.A: 5: 4:.10,4,10:.10: 10.3(
..........
> CLICK IMAGE PREVIEW FOR FULL MODAL