TIPS
FILE INFORMATION
FILENAME(S): TIPS
FILE TYPE(S): PRG
FILE SIZE: 7.4K
FIRST SEEN: 2025-10-19 22:49:24
APPEARS ON: 1 disk(s)
FILE HASH
5028b76e32849d3f3c8ce4dff75dab91c849766c2bb2ab05529c22507873464e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GOLD DISK JAN86 | TIPS | PRG | Radd Maxx | 12 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 07 08 0A 00 8F 00 24 08 14 00 8F 20 28 43 |........$.... (C|
00000010: 29 20 31 39 38 35 20 47 4F 4C 44 20 44 49 53 4B |) 1985 GOLD DISK|
00000020: 20 49 4E 43 00 2A 08 1E 00 8F 00 47 08 28 00 8F | INC.*.....G.(..|
00000030: 20 54 49 50 53 3A 20 4D 45 44 2D 52 45 53 20 47 | TIPS: MED-RES G|
00000040: 52 41 50 48 49 43 53 00 4D 08 32 00 8F 00 80 08 |RAPHICS.M.2.....|
00000050: 3C 00 86 41 28 31 35 29 3A 83 20 33 32 2C 31 32 |<..A(15):. 32,12|
00000060: 33 2C 31 32 36 2C 30 2C 31 30 38 2C 39 38 2C 31 |3,126,0,108,98,1|
00000070: 32 37 2C 30 2C 31 32 34 2C 32 35 35 2C 32 32 36 |27,0,124,255,226|
00000080: 00 95 08 46 00 81 49 B2 30 A4 31 30 3A 87 41 28 |...F..I.0.10:.A(|
00000090: 49 29 3A 82 49 00 A7 08 50 00 99 20 C7 28 31 34 |I):.I...P.. .(14|
000000A0: 29 3A 99 C7 28 38 29 00 CA 08 5A 00 44 30 B2 31 |):..(8)...Z.D0.1|
000000B0: 33 AC 34 30 39 36 3A 44 34 B2 44 30 AA 31 30 32 |3.4096:D4.D0.102|
000000C0: 34 3A 51 24 B2 C7 28 33 34 29 00 D4 08 64 00 89 |4:Q$..(34)...d..|
000000D0: 20 31 38 30 00 EA 08 6E 00 81 49 4D B2 31 A4 31 | 180...n..IM.1.1|
000000E0: 31 3A A1 49 4E 24 3A 82 49 4D 00 04 09 78 00 44 |1:.IN$:.IM...x.D|
000000F0: 30 B2 31 33 AC 34 30 39 36 3A 44 34 B2 44 30 AA |0.13.4096:D4.D0.|
00000100: 31 30 32 34 00 27 09 82 00 99 20 22 13 11 11 11 |1024.'.... "....|
00000110: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000120: 11 11 11 11 11 22 3B 00 5F 09 8C 00 99 20 22 12 |.....";._.... ".|
00000130: 5E 92 20 50 52 45 56 20 50 41 47 45 20 20 12 53 |^. PREV PAGE .S|
00000140: 50 41 43 45 92 20 4E 45 58 54 20 50 41 47 45 20 |PACE. NEXT PAGE |
00000150: 20 12 5F 92 20 C7 C4 20 4D 45 4E 55 91 91 22 00 | ._. .. MENU..".|
00000160: 75 09 96 00 A1 20 49 4E 24 3A 8B 49 4E 24 B2 22 |u.... IN$:.IN$."|
00000170: 22 A7 31 35 30 00 9F 09 A0 00 8B 20 49 4E 24 B3 |".150...... IN$.|
00000180: B1 22 5E 22 20 AF 20 49 4E 24 B3 B1 22 20 22 20 |."^" . IN$.." " |
00000190: AF 20 49 4E 24 B3 B1 22 5F 22 20 A7 31 35 30 00 |. IN$.."_" .150.|
000001A0: A5 09 AA 00 8E 00 BA 09 B4 00 99 22 93 90 12 D3 |..........."....|
000001B0: 43 45 4E 41 52 49 4F 3A 92 22 00 D4 09 BE 00 97 |CENARIO:."......|
000001C0: 20 44 30 AA 33 32 2C 31 35 3A 97 20 44 30 AA 33 | D0.32,15:. D0.3|
000001D0: 33 2C 31 35 00 01 0A C8 00 99 20 22 11 D4 48 45 |3,15...... "..HE|
000001E0: 20 4D 45 45 54 49 4E 47 20 48 41 53 20 47 4F 4E | MEETING HAS GON|
000001F0: 45 20 57 45 4C 4C 2E 20 20 D4 48 45 59 27 56 45 |E WELL. .HEY'VE|
00000200: 22 00 2E 0A D2 00 99 22 45 41 54 45 4E 20 55 50 |"......"EATEN UP|
00000210: 20 59 4F 55 52 20 53 41 4C 45 53 20 50 49 54 43 | YOUR SALES PITC|
00000220: 48 20 41 4E 44 20 59 4F 55 20 43 41 4E 22 00 59 |H AND YOU CAN".Y|
00000230: 0A DC 00 99 22 50 52 41 43 54 49 43 41 4C 4C 59 |...."PRACTICALLY|
00000240: 20 46 45 45 4C 20 54 48 41 54 20 24 31 20 CD 49 | FEEL THAT $1 .I|
00000250: 4C 4C 49 4F 4E 20 49 4E 22 00 84 0A E6 00 99 22 |LLION IN"......"|
00000260: 59 4F 55 52 20 50 4F 43 4B 45 54 2E 20 20 D9 4F |YOUR POCKET. .O|
00000270: 55 20 50 52 45 50 41 52 45 20 54 48 45 20 46 49 |U PREPARE THE FI|
00000280: 4E 41 4C 22 00 9E 0A F0 00 99 22 47 52 41 50 48 |NAL"......"GRAPH|
00000290: 2E 22 3A 81 49 B2 31 A4 31 35 30 30 3A 82 00 CE |.":.I.1.1500:...|
000002A0: 0A FA 00 99 22 20 20 20 20 20 20 20 20 A7 20 20 |...." . |
000002B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002C0: 20 20 20 20 20 20 20 12 20 20 20 20 20 22 00 F9 | . "..|
000002D0: 0A 04 01 99 22 20 20 20 20 20 20 20 20 A7 20 20 |...." . |
000002E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002F0: 20 20 20 12 20 20 1D 20 22 00 23 0B 0E 01 99 22 | . . ".#...."|
00000300: 20 20 20 20 20 20 20 20 A7 20 20 20 20 20 20 20 | . |
00000310: 20 20 20 20 20 20 20 20 12 20 1D 1D 1D 1D 20 1D | . .... .|
00000320: 1D 20 22 00 49 0B 18 01 99 22 20 D3 41 4C 45 53 |. ".I...." .ALES|
00000330: 20 20 A7 20 20 20 20 20 20 20 20 20 20 20 20 20 | . |
00000340: 20 12 20 1D 20 20 1D 20 22 00 6E 0B 22 01 99 22 | . . . ".n.".."|
00000350: 20 20 20 20 20 20 20 20 A7 20 20 20 20 20 20 20 | . |
00000360: 20 20 12 20 20 1D 1D 20 1D 1D 1D 1D 20 22 00 8D | . .. .... "..|
00000370: 0B 2C 01 99 22 20 20 20 20 20 20 20 20 A7 20 20 |.,.." . |
00000380: 20 20 20 12 20 1D 1D 20 1D 1D 20 20 22 00 A7 0B | . .. .. "...|
00000390: 36 01 99 22 20 20 20 20 20 20 20 20 A7 20 20 20 |6.." . |
000003A0: 12 20 20 1D 20 20 22 00 D8 0B 40 01 99 22 20 20 |. . "...@.." |
000003B0: 20 20 20 20 20 20 A7 12 20 20 20 92 A4 A4 A4 A4 | .. .....|
000003C0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
000003D0: A4 A4 A4 A4 A4 A4 A4 22 00 FA 0B 4A 01 99 22 20 |......."...J.." |
000003E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003F0: 20 20 20 20 4D 4F 4E 54 48 22 00 2D 0C 54 01 99 | MONTH".-.T..|
00000400: 22 11 D3 55 44 44 45 4E 4C 59 20 59 4F 55 20 48 |"..UDDENLY YOU H|
00000410: 45 41 52 20 47 41 53 50 53 2E 20 20 22 3B C7 28 |EAR GASPS. ";.(|
00000420: 33 34 29 3B 22 C8 C5 20 D5 D3 C5 C4 22 00 57 0C |34);".. ....".W.|
00000430: 5E 01 99 22 CC CF D7 20 D2 C5 D3 CF CC D5 D4 C9 |^.."... ........|
00000440: CF CE 21 20 20 CC CF D7 20 D2 C5 D3 CF CC D5 D4 |..! ... .......|
00000450: C9 CF CE 21 21 21 22 00 86 0C 68 01 99 22 D9 4F |...!!!"...h..".O|
00000460: 55 27 56 45 20 4C 4F 53 54 20 54 48 45 4D 20 4E |U'VE LOST THEM N|
00000470: 4F 57 2E 20 20 C9 46 20 4F 4E 4C 59 20 59 4F 55 |OW. .F ONLY YOU|
00000480: 20 4B 4E 45 57 22 00 A1 0C 72 01 99 22 48 4F 57 | KNEW"...r.."HOW|
00000490: 20 54 4F 20 44 4F 20 47 52 41 50 48 53 20 49 4E | TO DO GRAPHS IN|
000004A0: 22 00 CA 0C 7C 01 99 22 11 20 20 20 20 20 20 20 |"...|..". |
000004B0: 20 12 20 20 20 CD C5 C4 C9 D5 CD 20 D2 C5 D3 CF | . ...... ....|
000004C0: CC D5 D4 C9 CF CE 20 20 20 22 00 E0 0C 86 01 81 |...... "......|
000004D0: 49 4D B2 31 A4 31 31 3A A1 49 4E 24 3A 82 49 4D |IM.1.11:.IN$:.IM|
000004E0: 00 03 0D 90 01 99 20 22 13 11 11 11 11 11 11 11 |...... "........|
000004F0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000500: 11 22 3B 00 39 0D 9A 01 99 20 22 12 53 50 41 43 |.";.9.... ".SPAC|
00000510: 45 92 20 4E 45 58 54 20 50 41 47 45 20 20 20 20 |E. NEXT PAGE |
00000520: 20 20 20 20 20 20 20 20 20 20 20 12 5F 92 20 C7 | ._. .|
00000530: C4 20 4D 45 4E 55 91 91 22 00 4F 0D A4 01 A1 20 |. MENU..".O.... |
00000540: 49 4E 24 3A 8B 49 4E 24 B2 22 22 A7 34 32 30 00 |IN$:.IN$."".420.|
00000550: 6E 0D AE 01 8B 20 49 4E 24 B3 B1 22 20 22 20 AF |n.... IN$.." " .|
00000560: 20 49 4E 24 B3 B1 22 5F 22 20 A7 34 32 30 00 83 | IN$.."_" .420..|
00000570: 0D B8 01 8B 20 49 4E 24 B2 22 5F 22 20 A7 20 32 |.... IN$."_" . 2|
00000580: 31 37 30 00 B3 0D C2 01 99 22 93 12 CD 45 44 49 |170......"...EDI|
00000590: 55 4D 20 D2 45 53 4F 4C 55 54 49 4F 4E 20 20 20 |UM .ESOLUTION |
000005A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005B0: 20 20 22 00 E2 0D CC 01 99 22 11 D4 48 45 20 4B | "......"..HE K|
000005C0: 45 59 20 54 4F 20 CD 45 44 49 55 4D 20 D2 45 53 |EY TO .EDIUM .ES|
000005D0: 4F 4C 55 54 49 4F 4E 20 49 53 20 54 4F 20 55 53 |OLUTION IS TO US|
000005E0: 45 22 00 0C 0E D6 01 99 22 43 4F 4D 42 49 4E 41 |E"......"COMBINA|
000005F0: 54 49 4F 4E 53 20 4F 46 20 54 48 45 20 51 55 41 |TIONS OF THE QUA|
00000600: 52 54 45 52 20 53 51 55 41 52 45 22 00 28 0E E0 |RTER SQUARE".(..|
00000610: 01 99 22 43 48 41 52 41 43 54 45 52 53 11 20 20 |.."CHARACTERS. |
00000620: BB 20 BE 20 AC 20 BC 22 00 44 0E EA 01 99 20 22 |. . . .".D.... "|
00000630: 20 20 20 20 20 20 20 20 20 20 20 20 A3 20 A3 20 | . . |
00000640: A3 20 A3 22 00 72 0E F4 01 99 22 11 D4 48 45 52 |. .".r...."..HER|
00000650: 45 20 41 52 45 20 41 20 4E 55 4D 42 45 52 20 4F |E ARE A NUMBER O|
00000660: 46 20 53 49 4D 50 4C 45 20 53 54 45 50 53 20 54 |F SIMPLE STEPS T|
00000670: 4F 22 00 97 0E FE 01 99 22 CD 45 44 49 55 4D 20 |O"......".EDIUM |
00000680: D2 45 53 4F 4C 55 54 49 4F 4E 2E 20 20 D4 48 45 |.ESOLUTION. .HE|
00000690: 59 20 41 52 45 3A 22 00 C5 0E 08 02 99 22 11 20 |Y ARE:"......". |
000006A0: 20 20 2D 20 44 45 46 49 4E 45 20 54 48 45 20 51 | - DEFINE THE Q|
000006B0: 55 41 52 54 45 52 20 53 51 55 41 52 45 20 43 48 |UARTER SQUARE CH|
000006C0: 41 52 27 53 22 00 F3 0E 12 02 99 22 20 20 20 2D |AR'S"......" -|
000006D0: 20 44 45 54 45 52 4D 49 4E 45 20 57 48 45 52 45 | DETERMINE WHERE|
000006E0: 20 4F 4E 20 54 48 45 20 53 43 52 45 45 4E 20 54 | ON THE SCREEN T|
000006F0: 48 45 22 00 0D 0F 1C 02 99 22 20 20 20 20 20 47 |HE"......" G|
00000700: 52 41 50 48 20 57 49 4C 4C 20 42 45 22 00 33 0F |RAPH WILL BE".3.|
00000710: 26 02 99 22 20 20 20 2D 20 44 45 54 45 52 4D 49 |&.." - DETERMI|
00000720: 4E 45 20 54 48 45 20 41 58 49 53 20 53 43 41 4C |NE THE AXIS SCAL|
00000730: 45 53 22 00 54 0F 30 02 99 22 20 20 20 2D 20 43 |ES".T.0.." - C|
00000740: 41 4C 43 55 4C 41 54 45 20 54 48 45 20 56 41 4C |ALCULATE THE VAL|
00000750: 55 45 53 22 00 81 0F 3A 02 99 22 20 20 20 2D 20 |UES"...:.." - |
00000760: 44 45 54 45 52 4D 49 4E 45 20 57 48 45 52 45 20 |DETERMINE WHERE |
00000770: 54 48 49 53 20 50 4F 49 4E 54 20 49 53 20 4F 4E |THIS POINT IS ON|
00000780: 22 00 98 0F 44 02 99 22 20 20 20 20 20 54 48 45 |"...D.." THE|
00000790: 20 53 43 52 45 45 4E 22 00 B1 0F 4E 02 99 22 20 | SCREEN"...N.." |
000007A0: 20 20 2D 20 50 55 54 20 49 54 20 54 48 45 52 45 | - PUT IT THERE|
000007B0: 22 00 DE 0F 58 02 99 22 11 D3 4F 55 4E 44 53 20 |"...X.."..OUNDS |
000007C0: 53 49 4D 50 4C 45 20 44 4F 45 53 4E 27 54 20 49 |SIMPLE DOESN'T I|
000007D0: 54 3F 20 20 12 97 D5 53 45 20 41 4C 4C 22 00 08 |T? ...SE ALL"..|
000007E0: 10 62 02 99 22 12 4C 49 4E 45 53 20 49 4E 20 52 |.b..".LINES IN R|
000007F0: 45 56 45 52 53 45 20 47 52 45 59 20 54 4F 20 46 |EVERSE GREY TO F|
00000800: 4F 52 4D 20 54 48 45 22 00 27 10 6C 02 99 22 12 |ORM THE".'.l..".|
00000810: 52 4F 55 54 49 4E 45 20 46 4F 52 20 47 52 41 50 |ROUTINE FOR GRAP|
00000820: 48 49 4E 47 2E 90 22 00 3F 10 76 02 8D 20 31 31 |HING..".?.v.. 11|
00000830: 30 3A 8B 20 49 4E 24 B2 22 20 22 A7 36 36 30 00 |0:. IN$." ".660.|
00000840: 52 10 80 02 8B 20 49 4E 24 B2 22 5E 22 A7 20 31 |R.... IN$."^". 1|
00000850: 38 30 00 5D 10 8A 02 89 20 32 31 37 30 00 8E 10 |80.].... 2170...|
00000860: 94 02 99 22 93 12 C9 4E 49 54 49 41 4C 20 57 4F |..."...NITIAL WO|
00000870: 52 4B 20 4F 4E 20 4D 45 44 2E 20 52 45 53 2E 20 |RK ON MED. RES. |
00000880: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 A9 | "..|
00000890: 10 9E 02 99 22 11 12 C4 45 46 49 4E 45 20 43 48 |...."...EFINE CH|
000008A0: 41 52 41 43 54 45 52 53 22 00 D4 10 A8 02 99 22 |ARACTERS"......"|
000008B0: D4 48 45 52 45 20 41 52 45 20 31 36 20 43 48 41 |.HERE ARE 16 CHA|
000008C0: 52 41 43 54 45 52 53 20 41 4C 54 48 4F 55 47 48 |RACTERS ALTHOUGH|
000008D0: 20 57 45 22 00 FA 10 B2 02 99 22 44 4F 4E 27 54 | WE"......"DON'T|
000008E0: 20 41 4C 57 41 59 53 20 4E 45 45 44 20 41 4C 4C | ALWAYS NEED ALL|
000008F0: 20 4F 46 20 54 48 45 4D 2E 22 00 22 11 BC 02 99 | OF THEM."."....|
00000900: 22 11 20 27 20 27 2D 33 32 20 20 27 BB 27 2D 31 |". ' '-32 '.'-1|
00000910: 32 33 20 27 BE 27 2D 31 32 36 20 27 A1 27 2D 39 |23 '.'-126 '.'-9|
00000920: 37 22 00 4E 11 C6 02 99 22 20 20 20 27 AC 27 2D |7".N...." '.'-|
00000930: 31 30 38 20 27 B9 27 2D 39 38 20 20 27 BF 27 2D |108 '.'-98 '.'-|
00000940: 31 32 37 20 27 12 BC 92 27 2D 32 35 32 22 00 7C |127 '...'-252".||
00000950: 11 D0 02 99 22 20 27 BC 27 2D 31 32 34 20 27 12 |...." '.'-124 '.|
00000960: BF 92 27 2D 32 35 35 20 27 12 A2 92 27 2D 32 32 |..'-255 '...'-22|
00000970: 36 20 27 12 AC 92 27 2D 32 33 36 22 00 AE 11 DA |6 '...'-236"....|
00000980: 02 99 22 20 20 20 27 12 A1 92 27 2D 32 32 35 20 |.." '...'-225 |
00000990: 27 12 BE 92 27 2D 32 35 34 20 27 12 BB 92 27 2D |'...'-254 '...'-|
000009A0: 32 35 31 20 27 12 20 92 27 2D 31 36 30 22 00 C2 |251 '. .'-160"..|
000009B0: 11 E4 02 99 22 11 12 97 44 49 4D 20 41 28 31 35 |...."...DIM A(15|
000009C0: 29 22 00 0C 12 EE 02 99 22 12 44 41 54 41 20 33 |)"......".DATA 3|
000009D0: 32 2C 31 32 33 2C 31 32 36 2C 39 37 2C 31 30 38 |2,123,126,97,108|
000009E0: 2C 39 38 2C 31 32 37 2C 32 35 32 2C 31 32 34 2C |,98,127,252,124,|
000009F0: 32 35 35 2C 32 32 36 2C 32 33 36 2C 32 32 35 2C |255,226,236,225,|
00000A00: 32 35 34 2C 32 35 31 2C 31 36 30 22 00 2F 12 F8 |254,251,160"./..|
00000A10: 02 99 22 12 46 4F 52 49 3D 30 54 4F 31 35 3A 52 |..".FORI=0TO15:R|
00000A20: 45 41 44 41 28 49 29 3A 4E 45 58 54 49 90 22 00 |EADA(I):NEXTI.".|
00000A30: 5E 12 02 03 99 22 11 D0 49 43 54 55 52 45 20 45 |^...."..ICTURE E|
00000A40: 41 43 48 20 53 51 55 41 52 45 20 41 53 20 44 49 |ACH SQUARE AS DI|
00000A50: 56 49 44 45 44 20 49 4E 54 4F 20 34 2E 22 00 8B |VIDED INTO 4."..|
00000A60: 12 0C 03 99 22 A7 A3 A3 A3 A5 A7 A3 A3 A3 A5 20 |....".......... |
00000A70: 20 C9 46 20 41 20 43 4F 52 4E 45 52 20 4F 46 20 | .F A CORNER OF |
00000A80: 54 48 45 20 53 51 55 41 52 45 22 00 B9 12 16 03 |THE SQUARE".....|
00000A90: 99 22 A7 20 32 20 A5 A7 20 38 20 A5 20 20 49 53 |.". 2 .. 8 . IS|
00000AA0: 20 4F 4E 20 54 48 45 4E 20 41 44 44 20 54 48 41 | ON THEN ADD THA|
00000AB0: 54 20 4E 55 4D 42 45 52 22 00 E7 12 20 03 99 22 |T NUMBER"... .."|
00000AC0: A7 A4 A4 A4 A5 A7 A4 A4 A4 A5 20 20 54 4F 20 54 |.......... TO T|
00000AD0: 48 45 20 4F 54 48 45 52 20 27 4F 4E 27 20 43 4F |HE OTHER 'ON' CO|
00000AE0: 52 4E 45 52 53 2E 22 00 15 13 2A 03 99 22 20 20 |RNERS."...*.." |
00000AF0: 20 20 20 20 20 20 20 20 20 20 D4 48 45 4E 20 4C | .HEN L|
00000B00: 4F 4F 4B 20 55 50 20 54 48 45 20 43 48 41 52 41 |OOK UP THE CHARA|
00000B10: 43 54 45 52 22 00 3C 13 34 03 99 22 A7 A3 A3 A3 |CTER".<.4.."....|
00000B20: A5 A7 A3 A3 A3 A5 20 20 56 41 4C 55 45 20 49 4E |...... VALUE IN|
00000B30: 20 4F 55 52 20 41 52 52 41 59 2E 22 00 60 13 3E | OUR ARRAY.".`.>|
00000B40: 03 99 22 A7 20 31 20 A5 A7 20 34 20 A5 20 20 C5 |..". 1 .. 4 . .|
00000B50: 58 41 4D 50 4C 45 3A 20 20 BF 20 3D 20 32 2B 34 |XAMPLE: . = 2+4|
00000B60: 00 84 13 48 03 99 22 A7 A4 A4 A4 A5 A7 A4 A4 A4 |...H..".........|
00000B70: A5 20 20 53 4F 20 4F 55 52 20 C1 28 36 29 3D 31 |. SO OUR .(6)=1|
00000B80: 32 37 2E 22 00 9A 13 52 03 8D 31 31 30 3A 8B 49 |27."...R..110:.I|
00000B90: 4E 24 B2 22 20 22 A7 38 38 30 00 AC 13 5C 03 8B |N$." ".880...\..|
00000BA0: 49 4E 24 B2 22 5F 22 A7 32 31 37 30 00 B5 13 66 |IN$."_".2170...f|
00000BB0: 03 89 34 35 30 00 E6 13 70 03 99 22 93 12 D0 4C |..450...p.."...L|
00000BC0: 41 43 49 4E 47 20 54 48 45 20 47 52 41 50 48 2E |ACING THE GRAPH.|
00000BD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000BE0: 20 20 20 20 20 22 00 03 14 7A 03 99 22 11 12 D7 | "...z.."...|
00000BF0: 48 45 52 45 20 49 53 20 54 48 45 20 47 52 41 50 |HERE IS THE GRAP|
00000C00: 48 3F 22 00 30 14 84 03 99 22 C1 4E 59 20 47 52 |H?".0....".NY GR|
00000C10: 41 50 48 49 4E 47 20 52 4F 55 54 49 4E 45 20 53 |APHING ROUTINE S|
00000C20: 48 4F 55 4C 44 20 41 4C 4C 4F 57 20 54 48 45 22 |HOULD ALLOW THE"|
00000C30: 00 5A 14 8E 03 99 22 47 52 41 50 48 20 54 4F 20 |.Z...."GRAPH TO |
00000C40: 42 45 20 41 4E 59 20 53 49 5A 45 20 41 4E 44 20 |BE ANY SIZE AND |
00000C50: 41 4E 59 57 48 45 52 45 2E 22 00 86 14 98 03 99 |ANYWHERE."......|
00000C60: 22 CC 45 54 27 53 20 46 49 4E 44 20 54 48 45 20 |".ET'S FIND THE |
00000C70: 42 4F 54 54 4F 4D 20 4C 45 46 54 20 41 4E 44 20 |BOTTOM LEFT AND |
00000C80: 52 45 46 45 52 22 00 A2 14 A2 03 99 22 45 56 45 |REFER"......"EVE|
00000C90: 52 59 54 48 49 4E 47 20 54 4F 20 54 48 45 52 45 |RYTHING TO THERE|
00000CA0: 2E 22 00 D1 14 AC 03 99 22 11 D2 20 20 49 53 20 |."......".. IS |
00000CB0: 54 48 45 20 53 43 52 45 45 4E 20 41 44 44 52 45 |THE SCREEN ADDRE|
00000CC0: 53 53 20 41 54 20 54 48 45 20 42 4F 54 54 4F 4D |SS AT THE BOTTOM|
00000CD0: 22 00 F1 14 B6 03 99 22 20 20 20 20 20 20 4C 45 |"......" LE|
00000CE0: 46 54 20 4F 46 20 54 48 45 20 47 52 41 50 48 2E |FT OF THE GRAPH.|
00000CF0: 22 00 1C 15 C0 03 99 22 20 20 20 20 20 20 20 12 |"......" .|
00000D00: 97 D2 20 3D 20 31 30 32 34 20 2B 20 43 4F 4C 55 |.. = 1024 + COLU|
00000D10: 4D 4E A0 2B 20 34 30 2A 52 4F 57 22 00 4C 15 CA |MN.+ 40*ROW".L..|
00000D20: 03 99 22 90 20 20 20 20 20 20 20 C3 4F 4C 55 4D |..". .OLUM|
00000D30: 4E 20 30 20 49 53 20 54 48 45 20 4C 45 46 54 4D |N 0 IS THE LEFTM|
00000D40: 4F 53 54 20 43 4F 4C 55 4D 4E 2E 22 00 70 15 D4 |OST COLUMN.".p..|
00000D50: 03 99 22 20 20 20 20 20 20 20 D2 4F 57 20 30 20 |.." .OW 0 |
00000D60: 49 53 20 54 48 45 20 54 4F 50 20 52 4F 57 2E 22 |IS THE TOP ROW."|
00000D70: 00 9A 15 DE 03 99 22 D8 D3 20 49 53 20 58 2D 41 |......".. IS X-A|
00000D80: 58 49 53 20 56 41 4C 55 45 20 41 54 20 42 4F 54 |XIS VALUE AT BOT|
00000D90: 54 4F 4D 20 4C 45 46 54 2E 22 00 C5 15 E8 03 99 |TOM LEFT."......|
00000DA0: 22 D8 C5 20 49 53 20 58 2D 41 58 49 53 20 56 41 |".. IS X-AXIS VA|
00000DB0: 4C 55 45 20 41 54 20 42 4F 54 54 4F 4D 20 52 49 |LUE AT BOTTOM RI|
00000DC0: 47 48 54 2E 22 00 EF 15 F2 03 99 22 D9 D3 20 49 |GHT."......".. I|
00000DD0: 53 20 59 2D 41 58 49 53 20 56 41 4C 55 45 20 41 |S Y-AXIS VALUE A|
00000DE0: 54 20 42 4F 54 54 4F 4D 20 4C 45 46 54 2E 22 00 |T BOTTOM LEFT.".|
00000DF0: 16 16 FC 03 99 22 D9 C5 20 49 53 20 59 2D 41 58 |.....".. IS Y-AX|
00000E00: 49 53 20 56 41 4C 55 45 20 41 54 20 54 4F 50 20 |IS VALUE AT TOP |
00000E10: 4C 45 46 54 2E 22 00 45 16 06 04 99 22 D8 CC 20 |LEFT.".E....".. |
00000E20: 49 53 20 4E 55 4D 42 45 52 20 4F 46 20 53 50 41 |IS NUMBER OF SPA|
00000E30: 43 45 53 20 47 49 56 45 4E 20 54 4F 20 58 2D 41 |CES GIVEN TO X-A|
00000E40: 58 49 53 2E 22 00 74 16 10 04 99 22 D9 CC 20 49 |XIS.".t....".. I|
00000E50: 53 20 4E 55 4D 42 45 52 20 4F 46 20 53 50 41 43 |S NUMBER OF SPAC|
00000E60: 45 53 20 47 49 56 45 4E 20 54 4F 20 59 2D 41 58 |ES GIVEN TO Y-AX|
00000E70: 49 53 2E 22 00 8C 16 1A 04 8D 31 31 30 3A 8B 20 |IS."......110:. |
00000E80: 49 4E 24 B2 22 20 22 A7 31 30 38 30 00 9D 16 24 |IN$." ".1080...$|
00000E90: 04 8B 49 4E 24 B2 22 5E 22 A7 36 36 30 00 A8 16 |..IN$."^".660...|
00000EA0: 2E 04 89 20 32 31 37 30 00 D9 16 38 04 99 22 93 |... 2170...8..".|
00000EB0: 12 D3 43 41 4C 49 4E 47 20 54 48 45 20 47 52 41 |..CALING THE GRA|
00000EC0: 50 48 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 |PH. |
00000ED0: 20 20 20 20 20 20 20 20 22 00 FC 16 42 04 99 22 | "...B.."|
00000EE0: 11 12 D7 48 41 54 20 41 52 45 20 54 48 45 20 41 |...HAT ARE THE A|
00000EF0: 58 49 53 20 53 43 41 4C 45 53 3F 22 00 26 17 4C |XIS SCALES?".&.L|
00000F00: 04 99 22 D4 48 45 20 41 58 49 53 20 53 43 41 4C |..".HE AXIS SCAL|
00000F10: 45 53 20 57 49 4C 4C 20 44 45 50 45 4E 44 20 4F |ES WILL DEPEND O|
00000F20: 4E 20 54 48 45 22 00 54 17 56 04 99 22 53 54 41 |N THE".T.V.."STA|
00000F30: 52 54 20 41 4E 44 20 45 4E 44 20 56 41 4C 55 45 |RT AND END VALUE|
00000F40: 53 2C 20 D8 D3 20 D9 D3 20 D8 C5 20 41 4E 44 20 |S, .. .. .. AND |
00000F50: D9 C5 2C 22 00 7F 17 60 04 99 22 41 4E 44 20 54 |..,"...`.."AND T|
00000F60: 48 45 20 4E 55 4D 42 45 52 20 4F 46 20 53 50 41 |HE NUMBER OF SPA|
00000F70: 43 45 53 20 41 4C 4F 54 54 45 44 20 54 4F 22 00 |CES ALOTTED TO".|
00000F80: 9C 17 6A 04 99 22 45 41 43 48 20 41 58 49 53 2C |..j.."EACH AXIS,|
00000F90: 20 D8 CC 20 41 4E 44 20 D9 CC 2E 22 00 C8 17 74 | .. AND ..."...t|
00000FA0: 04 99 22 11 D8 C8 20 49 53 20 58 2D 41 58 49 53 |.."... IS X-AXIS|
00000FB0: 20 53 43 41 4C 45 2C 20 4F 52 20 23 20 4F 46 20 | SCALE, OR # OF |
00000FC0: 58 20 55 4E 49 54 53 22 00 E5 17 7E 04 99 22 20 |X UNITS"...~.." |
00000FD0: 20 20 20 20 20 50 45 52 20 48 41 4C 46 20 53 50 | PER HALF SP|
00000FE0: 41 43 45 2E 22 00 07 18 88 04 99 22 20 20 20 20 |ACE."......" |
00000FF0: 20 20 20 12 97 D8 C8 3D 28 D8 C5 2D D8 D3 29 2F | ....=(..-..)/|
00001000: 28 32 2A D8 CC 29 22 00 34 18 92 04 99 22 11 90 |(2*..)".4...."..|
00001010: D9 C8 20 49 53 20 59 2D 41 58 49 53 20 53 43 41 |.. IS Y-AXIS SCA|
00001020: 4C 45 2C 20 4F 52 20 23 20 4F 46 20 59 20 55 4E |LE, OR # OF Y UN|
00001030: 49 54 53 22 00 51 18 9C 04 99 22 20 20 20 20 20 |ITS".Q...." |
00001040: 20 50 45 52 20 48 41 4C 46 20 53 50 41 43 45 2E | PER HALF SPACE.|
00001050: 22 00 74 18 A6 04 99 22 20 20 20 20 20 20 20 12 |".t...." .|
00001060: 97 D9 D6 3D 28 D9 C5 2D D9 D3 29 2F 28 32 2A D9 |...=(..-..)/(2*.|
00001070: CC 29 90 22 00 8B 18 B0 04 8D 31 31 30 3A 8B 49 |.)."......110:.I|
00001080: 4E 24 B2 22 20 22 A7 31 32 33 30 00 9D 18 BA 04 |N$." ".1230.....|
00001090: 8B 49 4E 24 B2 22 5F 22 A7 32 31 37 30 00 A6 18 |.IN$."_".2170...|
000010A0: C4 04 89 38 38 30 00 D7 18 CE 04 99 22 93 12 D4 |...880......"...|
000010B0: 48 45 20 47 52 41 50 48 49 4E 47 20 46 55 4E 43 |HE GRAPHING FUNC|
000010C0: 54 49 4F 4E 2E 20 20 20 20 20 20 20 20 20 20 20 |TION. |
000010D0: 20 20 20 20 20 20 22 00 F6 18 D8 04 99 22 11 12 | "......"..|
000010E0: D7 48 41 54 20 41 52 45 20 57 45 20 47 52 41 50 |.HAT ARE WE GRAP|
000010F0: 48 49 4E 47 3F 22 00 24 19 E2 04 99 22 D7 45 20 |HING?".$....".E |
00001100: 48 41 56 45 20 54 4F 20 43 48 4F 4F 53 45 20 41 |HAVE TO CHOOSE A|
00001110: 20 46 55 4E 43 54 49 4F 4E 20 54 4F 20 47 52 41 | FUNCTION TO GRA|
00001120: 50 48 2E 22 00 52 19 EC 04 99 22 D4 48 45 4E 20 |PH.".R....".HEN |
00001130: 57 45 20 43 48 45 43 4B 20 54 4F 20 53 45 45 20 |WE CHECK TO SEE |
00001140: 57 48 41 54 20 49 54 53 20 56 41 4C 55 45 20 49 |WHAT ITS VALUE I|
00001150: 53 22 00 81 19 F6 04 99 22 49 4E 20 54 48 45 20 |S"......"IN THE |
00001160: 4D 49 44 44 4C 45 20 4F 46 20 45 56 45 52 59 20 |MIDDLE OF EVERY |
00001170: 48 41 4C 46 20 53 51 55 41 52 45 2E 20 20 D7 45 |HALF SQUARE. .E|
00001180: 22 00 AA 19 00 05 99 22 57 49 4C 4C 20 50 49 43 |"......"WILL PIC|
00001190: 4B 20 54 48 45 20 53 49 4E 45 20 57 41 56 45 20 |K THE SINE WAVE |
000011A0: 54 4F 20 47 52 41 50 48 2E 22 00 D6 19 0A 05 99 |TO GRAPH."......|
000011B0: 22 11 12 97 46 4F 52 20 58 3D 58 53 2B 58 48 2F |"...FOR X=XS+XH/|
000011C0: 32 20 54 4F 20 58 45 2D 58 48 2F 32 20 53 54 45 |2 TO XE-XH/2 STE|
000011D0: 50 20 58 48 90 22 00 05 1A 14 05 99 22 20 20 20 |P XH."......" |
000011E0: 20 20 20 20 D4 48 49 53 20 57 49 4C 4C 20 53 45 | .HIS WILL SE|
000011F0: 54 20 58 20 54 4F 20 54 48 45 20 4D 49 44 44 4C |T X TO THE MIDDL|
00001200: 45 20 4F 46 22 00 26 1A 1E 05 99 22 20 20 20 20 |E OF".&...." |
00001210: 20 20 20 45 56 45 52 59 20 48 41 4C 46 20 53 51 | EVERY HALF SQ|
00001220: 55 41 52 45 2E 22 00 59 1A 28 05 99 22 11 12 97 |UARE.".Y.(.."...|
00001230: 59 3D 53 49 4E 28 58 29 3A 52 45 4D 20 CD 41 4B |Y=SIN(X):REM .AK|
00001240: 45 20 53 55 52 45 20 58 20 49 53 20 49 4E 20 52 |E SURE X IS IN R|
00001250: 41 44 49 41 4E 53 2E 90 22 00 81 1A 32 05 99 22 |ADIANS.."...2.."|
00001260: 20 20 20 20 20 20 20 D4 48 49 53 20 53 45 54 53 | .HIS SETS|
00001270: 20 59 20 54 4F 20 54 48 45 20 56 41 4C 55 45 2E | Y TO THE VALUE.|
00001280: 22 00 90 1A 3C 05 99 22 11 2E 2E 2E 2E 2E 2E 22 |"...<.."......."|
00001290: 00 BC 1A 46 05 99 22 20 20 20 20 20 20 20 D4 48 |...F.." .H|
000012A0: 49 53 20 57 49 4C 4C 20 46 49 47 55 52 45 20 4F |IS WILL FIGURE O|
000012B0: 55 54 20 57 48 45 52 45 20 54 4F 22 00 EA 1A 50 |UT WHERE TO"...P|
000012C0: 05 99 22 20 20 20 20 20 20 20 50 55 54 20 54 48 |.." PUT TH|
000012D0: 45 20 51 55 41 52 54 45 52 20 53 51 55 41 52 45 |E QUARTER SQUARE|
000012E0: 2C 20 41 4E 44 20 50 55 54 22 00 02 1B 5A 05 99 |, AND PUT"...Z..|
000012F0: 22 20 20 20 20 20 20 20 49 54 20 54 48 45 52 45 |" IT THERE|
00001300: 2E 22 00 14 1B 64 05 99 22 11 12 97 4E 45 58 54 |."...d.."...NEXT|
00001310: 20 58 90 22 00 2D 1B 6E 05 8D 20 31 31 30 3A 8B | X.".-.n.. 110:.|
00001320: 20 49 4E 24 B2 22 20 22 A7 31 34 32 30 00 3F 1B | IN$." ".1420.?.|
00001330: 78 05 8B 49 4E 24 B2 22 5E 22 A7 31 30 38 30 00 |x..IN$."^".1080.|
00001340: 4A 1B 82 05 89 20 32 31 37 30 00 7B 1B 8C 05 99 |J.... 2170.{....|
00001350: 22 93 12 D0 4F 49 4E 54 20 D0 4F 53 49 54 49 4F |"...OINT .OSITIO|
00001360: 4E 49 4E 47 2E 20 20 20 20 20 20 20 20 20 20 20 |NING. |
00001370: 20 20 20 20 20 20 20 20 20 20 22 00 9F 1B 96 05 | ".....|
00001380: 99 22 11 12 D7 48 45 52 45 20 4F 4E 20 54 48 45 |."...HERE ON THE|
00001390: 20 53 43 52 45 45 4E 20 49 53 20 49 54 3F 22 00 | SCREEN IS IT?".|
000013A0: CC 1B A0 05 99 22 CE 4F 57 20 57 45 20 4B 4E 4F |.....".OW WE KNO|
000013B0: 57 20 54 48 45 20 58 20 41 4E 44 20 59 20 50 4F |W THE X AND Y PO|
000013C0: 49 4E 54 20 56 41 4C 55 45 53 2E 22 00 F8 1B AA |INT VALUES."....|
000013D0: 05 99 22 D7 45 20 53 54 49 4C 4C 20 48 41 56 45 |..".E STILL HAVE|
000013E0: 20 54 4F 20 46 49 47 55 52 45 20 4F 55 54 20 57 | TO FIGURE OUT W|
000013F0: 48 45 52 45 20 49 54 22 00 25 1C B4 05 99 22 47 |HERE IT".%...."G|
00001400: 4F 45 53 20 4F 4E 20 54 48 45 20 53 43 52 45 45 |OES ON THE SCREE|
00001410: 4E 2E 20 20 D2 45 4D 45 4D 42 45 52 20 54 48 41 |N. .EMEMBER THA|
00001420: 54 20 57 45 22 00 53 1C BE 05 99 22 48 41 56 45 |T WE".S...."HAVE|
00001430: 20 54 4F 20 52 45 4C 41 54 45 20 54 48 49 53 20 | TO RELATE THIS |
00001440: 54 4F 20 54 48 45 20 42 4F 54 54 4F 4D 20 4C 45 |TO THE BOTTOM LE|
00001450: 46 54 22 00 70 1C C8 05 99 22 4F 46 20 54 48 45 |FT".p...."OF THE|
00001460: 20 47 52 41 50 48 49 4E 47 20 41 52 45 41 2E 22 | GRAPHING AREA."|
00001470: 00 9F 1C D2 05 99 22 11 D8 31 20 49 53 20 23 20 |......"..1 IS # |
00001480: 4F 46 20 58 20 53 51 55 41 52 45 53 20 52 49 47 |OF X SQUARES RIG|
00001490: 48 54 20 4F 46 20 54 48 45 20 4C 45 46 54 22 00 |HT OF THE LEFT".|
000014A0: C3 1C DC 05 99 22 20 20 20 20 20 20 53 49 44 45 |....." SIDE|
000014B0: 20 4F 46 20 54 48 45 20 50 4C 4F 54 20 41 52 45 | OF THE PLOT ARE|
000014C0: 41 2E 22 00 EB 1C E6 05 99 20 22 20 20 20 20 20 |A."...... " |
000014D0: 20 12 97 D8 31 3D 49 4E 54 28 28 D8 2D D8 D3 29 | ...1=INT((.-..)|
000014E0: 2F D8 C8 2D 2E 35 29 2F 32 90 22 00 1B 1D F0 05 |/..-.5)/2.".....|
000014F0: 99 22 11 D9 31 20 49 53 20 23 20 4F 46 20 59 20 |."..1 IS # OF Y |
00001500: 53 51 55 41 52 45 53 20 55 50 20 46 52 4F 4D 20 |SQUARES UP FROM |
00001510: 54 48 45 20 42 4F 54 54 4F 4D 22 00 3F 1D FA 05 |THE BOTTOM".?...|
00001520: 99 22 20 20 20 20 20 20 53 49 44 45 20 4F 46 20 |." SIDE OF |
00001530: 54 48 45 20 50 4C 4F 54 20 41 52 45 41 2E 22 00 |THE PLOT AREA.".|
00001540: 67 1D 04 06 99 20 22 20 20 20 20 20 20 12 97 D9 |g.... " ...|
00001550: 31 3D 49 4E 54 28 28 D9 2D D9 D3 29 2F D9 D6 2D |1=INT((.-..)/..-|
00001560: 2E 35 29 2F 32 90 22 00 96 1D 0E 06 99 22 11 CE |.5)/2."......"..|
00001570: 45 58 54 20 57 45 20 44 45 54 45 52 4D 49 4E 45 |EXT WE DETERMINE|
00001580: 20 57 48 49 43 48 20 51 55 41 52 54 45 52 20 53 | WHICH QUARTER S|
00001590: 51 55 41 52 45 22 00 A9 1D 18 06 99 22 54 4F 20 |QUARE"......"TO |
000015A0: 54 55 52 4E 20 4F 4E 2E 22 00 C0 1D 22 06 8D 31 |TURN ON."..."..1|
000015B0: 31 30 3A 8B 49 4E 24 B2 22 20 22 A7 31 36 30 30 |10:.IN$." ".1600|
000015C0: 00 D2 1D 2C 06 8B 49 4E 24 B2 22 5F 22 A7 32 31 |...,..IN$."_".21|
000015D0: 37 30 00 DC 1D 36 06 89 31 32 33 30 00 0D 1E 40 |70...6..1230...@|
000015E0: 06 99 22 93 12 D1 55 41 52 54 45 52 20 D3 51 55 |.."...UARTER .QU|
000015F0: 41 52 45 20 C4 45 43 49 53 49 4F 4E 2E 20 20 20 |ARE .ECISION. |
00001600: 20 20 20 20 20 20 20 20 20 20 20 20 22 00 31 1E | ".1.|
00001610: 4A 06 99 22 11 12 D7 48 49 43 48 20 53 51 55 41 |J.."...HICH SQUA|
00001620: 52 45 20 43 4F 52 4E 45 52 20 49 53 20 49 54 3F |RE CORNER IS IT?|
00001630: 22 00 5F 1E 54 06 99 22 D8 31 20 41 4E 44 20 D9 |"._.T..".1 AND .|
00001640: 31 20 48 41 56 45 20 42 45 45 4E 20 43 41 4C 43 |1 HAVE BEEN CALC|
00001650: 55 4C 41 54 45 44 20 54 4F 20 54 45 4C 4C 22 00 |ULATED TO TELL".|
00001660: 8E 1E 5E 06 99 22 55 53 20 54 48 45 20 43 4C 4F |..^.."US THE CLO|
00001670: 53 45 53 54 20 48 41 4C 46 20 53 51 55 41 52 45 |SEST HALF SQUARE|
00001680: 20 54 48 45 20 50 4F 49 4E 54 20 49 53 22 00 BC | THE POINT IS"..|
00001690: 1E 68 06 99 22 46 52 4F 4D 20 54 48 45 20 42 4F |.h.."FROM THE BO|
000016A0: 54 54 4F 4D 20 4C 45 46 54 20 4F 46 20 54 48 45 |TTOM LEFT OF THE|
000016B0: 20 50 4C 4F 54 20 41 52 45 41 2E 22 00 EA 1E 72 | PLOT AREA."...r|
000016C0: 06 99 22 D4 48 45 52 45 46 4F 52 45 20 57 45 20 |..".HEREFORE WE |
000016D0: 43 41 4E 20 54 45 4C 4C 20 57 48 49 43 48 20 43 |CAN TELL WHICH C|
000016E0: 4F 52 4E 45 52 20 54 48 45 22 00 17 1F 7C 06 99 |ORNER THE"...|..|
000016F0: 22 50 4F 49 4E 54 20 49 53 20 49 4E 20 42 59 20 |"POINT IS IN BY |
00001700: 4C 4F 4F 4B 49 4E 47 20 41 54 20 54 48 45 20 56 |LOOKING AT THE V|
00001710: 41 4C 55 45 53 2E 22 00 47 1F 86 06 99 22 11 D4 |ALUES.".G...."..|
00001720: 31 20 49 53 20 54 48 45 20 4E 45 57 20 43 4F 52 |1 IS THE NEW COR|
00001730: 4E 45 52 20 43 4F 44 45 20 28 31 2C 32 2C 34 2C |NER CODE (1,2,4,|
00001740: 20 4F 52 20 38 29 22 00 77 1F 90 06 99 22 20 20 | OR 8)".w...." |
00001750: 20 20 12 97 D4 31 3D 2D 31 2A 28 D8 31 3D 49 4E | ...1=-1*(.1=IN|
00001760: 54 28 D8 31 29 29 2D 34 2A 28 D8 31 3C 3E 49 4E |T(.1))-4*(.1<>IN|
00001770: 54 28 D8 31 29 29 22 00 9E 1F 9A 06 99 22 90 20 |T(.1))"......". |
00001780: 20 20 20 49 46 20 D9 31 3C 3E 49 4E 54 28 D9 31 | IF .1<>INT(.1|
00001790: 29 54 48 45 4E 20 D4 31 3D 32 2A D4 31 22 00 C2 |)THEN .1=2*.1"..|
000017A0: 1F A4 06 99 22 11 D2 31 20 49 53 20 41 44 44 52 |...."..1 IS ADDR|
000017B0: 45 53 53 20 4F 46 20 54 48 45 20 50 4F 49 4E 54 |ESS OF THE POINT|
000017C0: 2E 22 00 E6 1F AE 06 99 22 20 20 20 20 12 97 D2 |."......" ...|
000017D0: 31 3D D2 2B 49 4E 54 28 D8 31 29 2D 34 30 2A 49 |1=.+INT(.1)-40*I|
000017E0: 4E 54 28 D9 31 29 00 09 20 B8 06 99 22 11 90 D3 |NT(.1).. ..."...|
000017F0: 31 20 49 53 20 43 55 52 52 45 4E 54 20 50 4F 49 |1 IS CURRENT POI|
00001800: 4E 54 20 43 4F 44 45 2E 22 00 37 20 C2 06 99 22 |NT CODE.".7 ..."|
00001810: C1 28 30 2D 31 35 29 20 48 4F 4C 44 20 43 4F 44 |.(0-15) HOLD COD|
00001820: 45 53 20 46 4F 52 20 54 48 45 20 43 48 41 52 41 |ES FOR THE CHARA|
00001830: 43 54 45 52 53 2E 22 00 54 20 CC 06 99 22 20 20 |CTERS.".T ..." |
00001840: 20 20 12 97 D3 3D 50 45 45 4B 28 D2 31 29 3A D3 | ...=PEEK(.1):.|
00001850: 31 3D 30 22 00 7C 20 D6 06 99 22 20 20 20 20 12 |1=0".| ..." .|
00001860: 46 4F 52 49 3D 30 54 4F 31 35 3A 49 46 D3 3D C1 |FORI=0TO15:IF.=.|
00001870: 28 49 29 54 48 45 4E D3 31 3D 49 22 00 90 20 E0 |(I)THEN.1=I".. .|
00001880: 06 99 22 20 20 20 20 12 4E 45 58 54 20 49 90 22 |.." .NEXT I."|
00001890: 00 A8 20 EA 06 8D 20 31 31 30 3A 8B 49 4E 24 B2 |.. ... 110:.IN$.|
000018A0: 22 20 22 A7 31 38 30 30 00 BB 20 F4 06 8B 20 49 |" ".1800.. ... I|
000018B0: 4E 24 B2 22 5E 22 A7 31 34 32 30 00 C6 20 FE 06 |N$."^".1420.. ..|
000018C0: 89 20 32 31 37 30 00 F7 20 08 07 99 22 93 12 D0 |. 2170.. ..."...|
000018D0: 4F 49 4E 54 20 C4 49 53 50 4C 41 59 2E 20 20 20 |OINT .ISPLAY. |
000018E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000018F0: 20 20 20 20 20 20 22 00 1E 21 12 07 99 22 11 12 | "..!..."..|
00001900: D0 55 54 20 54 48 45 20 43 4F 52 52 45 43 54 20 |.UT THE CORRECT |
00001910: 43 48 41 52 41 43 54 45 52 20 4F 4E 2E 22 00 4B |CHARACTER ON.".K|
00001920: 21 1C 07 99 22 C2 45 46 4F 52 45 20 57 45 20 4A |!...".EFORE WE J|
00001930: 55 53 54 20 54 48 52 4F 57 20 54 48 45 20 50 4F |UST THROW THE PO|
00001940: 49 4E 54 20 4F 4E 20 54 48 45 22 00 77 21 26 07 |INT ON THE".w!&.|
00001950: 99 22 53 43 52 45 45 4E 20 57 45 20 48 41 56 45 |."SCREEN WE HAVE|
00001960: 20 54 4F 20 43 48 45 43 4B 20 54 4F 20 53 45 45 | TO CHECK TO SEE|
00001970: 20 49 46 20 49 54 22 00 A6 21 30 07 99 22 57 49 | IF IT"..!0.."WI|
00001980: 4C 4C 20 45 4E 44 20 55 50 20 4F 4E 20 54 48 45 |LL END UP ON THE|
00001990: 20 53 43 52 45 45 4E 2E 20 D7 45 20 43 45 52 54 | SCREEN. .E CERT|
000019A0: 41 49 4E 4C 59 22 00 D1 21 3A 07 99 22 44 4F 4E |AINLY"..!:.."DON|
000019B0: 27 54 20 57 41 4E 54 20 54 4F 20 45 4E 44 20 55 |'T WANT TO END U|
000019C0: 50 20 50 4F 4B 49 4E 47 20 4E 55 4D 42 45 52 53 |P POKING NUMBERS|
000019D0: 22 00 FA 21 44 07 99 22 49 4E 54 4F 20 4F 54 48 |"..!D.."INTO OTH|
000019E0: 45 52 20 50 41 52 54 53 20 4F 46 20 54 48 45 20 |ER PARTS OF THE |
000019F0: 43 4F 4D 50 55 54 45 52 2E 22 00 22 22 4E 07 99 |COMPUTER.".""N..|
00001A00: 22 11 11 20 12 97 49 46 20 D2 31 3E 31 30 32 33 |".. ..IF .1>1023|
00001A10: 20 41 4E 44 20 D2 31 3C 32 30 32 34 20 54 48 45 | AND .1<2024 THE|
00001A20: 4E 22 00 52 22 58 07 99 22 20 20 20 20 12 50 4F |N".R"X.." .PO|
00001A30: 4B 45 20 D2 31 2C C1 28 D4 31 20 4F 52 20 D3 31 |KE .1,.(.1 OR .1|
00001A40: 29 3A 50 4F 4B 45 20 D2 31 2B 35 34 32 37 32 2C |):POKE .1+54272,|
00001A50: 31 22 00 64 22 62 07 99 22 11 20 12 4E 45 58 54 |1".d"b..". .NEXT|
00001A60: 20 58 90 22 00 90 22 6C 07 99 22 11 CE 4F 57 20 | X.".."l.."..OW |
00001A70: 57 45 27 56 45 20 44 4F 4E 45 20 54 48 45 20 57 |WE'VE DONE THE W|
00001A80: 48 4F 4C 45 20 54 48 49 4E 47 2E 20 20 D7 45 22 |HOLE THING. .E"|
00001A90: 00 BC 22 76 07 99 22 4A 55 53 54 20 53 54 52 49 |.."v.."JUST STRI|
00001AA0: 4E 47 20 54 4F 47 45 54 48 45 52 20 41 4C 4C 20 |NG TOGETHER ALL |
00001AB0: 54 48 45 20 52 45 56 45 52 53 45 22 00 E3 22 80 |THE REVERSE"..".|
00001AC0: 07 99 22 47 52 45 59 20 53 54 41 54 45 4D 45 4E |.."GREY STATEMEN|
00001AD0: 54 53 20 49 4E 54 4F 20 41 20 50 52 4F 47 52 41 |TS INTO A PROGRA|
00001AE0: 4D 2E 22 00 FB 22 8A 07 8D 20 31 31 30 3A 8B 49 |M.".."... 110:.I|
00001AF0: 4E 24 B2 22 20 22 A7 31 39 36 30 00 0D 23 94 07 |N$." ".1960..#..|
00001B00: 8B 49 4E 24 B2 22 5E 22 A7 31 36 30 30 00 18 23 |.IN$."^".1600..#|
00001B10: 9E 07 89 20 32 31 37 30 00 49 23 A8 07 99 22 93 |... 2170.I#...".|
00001B20: 12 CD 45 44 49 55 4D 20 D2 45 53 4F 4C 55 54 49 |..EDIUM .ESOLUTI|
00001B30: 4F 4E 20 C7 52 41 50 48 20 20 20 20 20 20 20 20 |ON .RAPH |
00001B40: 20 20 20 20 20 20 20 20 22 00 79 23 B2 07 99 22 | ".y#..."|
00001B50: 11 CF 55 52 20 53 49 4E 45 20 57 41 56 45 2E 20 |..UR SINE WAVE. |
00001B60: 20 D0 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 | .RESS ANY KEY T|
00001B70: 4F 20 53 54 41 52 54 2E 22 00 8F 23 BC 07 A1 41 |O START."..#...A|
00001B80: 41 24 3A 8B 41 41 24 B2 22 22 A7 31 39 38 30 00 |A$:.AA$."".1980.|
00001B90: B6 23 C6 07 58 53 B2 30 3A 59 53 B2 AB 31 3A 58 |.#..XS.0:YS..1:X|
00001BA0: 45 B2 33 36 30 3A 59 45 B2 31 3A 58 4C B2 33 30 |E.360:YE.1:XL.30|
00001BB0: 3A 59 4C B2 31 36 00 DE 23 D0 07 58 48 B2 28 58 |:YL.16..#..XH.(X|
00001BC0: 45 AB 58 53 29 AD 28 32 AC 58 4C 29 3A 59 56 B2 |E.XS).(2.XL):YV.|
00001BD0: 28 59 45 AB 59 53 29 AD 28 32 AC 59 4C 29 00 F1 |(YE.YS).(2.YL)..|
00001BE0: 23 DA 07 52 B2 31 30 32 34 AA 34 30 AC 32 30 AA |#..R.1024.40.20.|
00001BF0: 38 00 0F 24 E4 07 81 58 B2 58 53 AA 58 48 AD 32 |8..$...X.XS.XH.2|
00001C00: 20 A4 20 58 45 AB 58 48 AD 32 20 A9 20 58 48 00 | . XE.XH.2 . XH.|
00001C10: 28 24 EE 07 59 B2 BF 28 58 AC 33 2E 31 34 31 35 |($..Y..(X.3.1415|
00001C20: 39 32 36 AD 31 38 30 29 00 41 24 F8 07 59 31 B2 |926.180).A$..Y1.|
00001C30: B5 28 28 59 AB 59 53 29 AD 59 56 AB 2E 35 29 AD |.((Y.YS).YV..5).|
00001C40: 32 00 5A 24 02 08 58 31 B2 B5 28 28 58 AB 58 53 |2.Z$..X1..((X.XS|
00001C50: 29 AD 58 48 AB 2E 35 29 AD 32 00 7F 24 0C 08 52 |).XH..5).2..$..R|
00001C60: 31 B2 52 AA B5 28 58 31 29 AB 34 30 AC B5 28 59 |1.R..(X1).40..(Y|
00001C70: 31 29 3A 53 B2 C2 28 52 31 29 3A 53 31 B2 30 00 |1):S..(R1):S1.0.|
00001C80: 98 24 16 08 81 49 B2 30 A4 31 30 3A 8B 53 B2 41 |.$...I.0.10:.S.A|
00001C90: 28 49 29 A7 53 31 B2 49 00 9F 24 20 08 82 49 00 |(I).S1.I..$ ..I.|
00001CA0: C2 24 2A 08 54 31 B2 AB 31 AC 28 58 31 B2 B5 28 |.$*.T1..1.(X1..(|
00001CB0: 58 31 29 29 AB 34 AC 28 58 31 B3 B1 B5 28 58 31 |X1)).4.(X1...(X1|
00001CC0: 29 29 00 D9 24 34 08 8B 59 31 B3 B1 B5 28 59 31 |))..$4..Y1...(Y1|
00001CD0: 29 A7 54 31 B2 32 AC 54 31 00 F3 24 3E 08 8B 52 |).T1.2.T1..$>..R|
00001CE0: 31 B3 31 30 32 34 B0 52 31 B1 32 30 32 33 A7 32 |1.1024.R1.2023.2|
00001CF0: 31 33 30 00 11 25 48 08 97 52 31 2C 41 28 53 31 |130..%H..R1,A(S1|
00001D00: B0 54 31 29 3A 97 52 31 AA 35 34 32 37 32 2C 31 |.T1):.R1.54272,1|
00001D10: 32 00 18 25 52 08 82 58 00 54 25 5C 08 99 20 22 |2..%R..X.T%\.. "|
00001D20: 90 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001D30: 11 11 11 11 11 11 11 11 CE 4F 57 20 47 4F 20 4D |.........OW GO M|
00001D40: 41 4B 45 20 59 4F 55 52 20 4D 49 4C 4C 49 4F 4E |AKE YOUR MILLION|
00001D50: 21 21 21 22 00 6B 25 66 08 8D 20 31 31 30 3A 8B |!!!".k%f.. 110:.|
00001D60: 49 4E 24 B2 22 20 22 A7 31 38 30 00 7D 25 70 08 |IN$." ".180.}%p.|
00001D70: 8B 49 4E 24 B2 22 5E 22 A7 31 38 30 30 00 93 25 |.IN$."^".1800..%|
00001D80: 7A 08 99 C7 28 39 29 3A 99 22 93 22 3A 9E 34 39 |z...(9):.".":.49|
00001D90: 31 35 32 00 9E 25 84 08 FF FF FF FF FF FF 00 00 |152..%..........|
00001DA0: 00 |. |
........$.... (C) 1985 GOLD DISK INC.*..
...G.(.. TIPS: MED-RES GRAPHICS.M.2.....
<..A(15):. 32,123,126,0,108,98,127,0,124
,255,226...F..I.0.10:.A(I):.I...P.. G(14
):.G(8).J.Z.D0.13.4096:D4.D0.1024:Q$.G(3
4).T.D.. 180...N..IM.1.11:.IN$:.IM...X.D
0.13.4096:D4.D0.1024.'.... "............
.............";._.... ".^. PREV PAGE .S
PACE. NEXT PAGE ._. GD MENU..".U.... IN
$:.IN$."".150... .. IN$.."^" . IN$.." "
. IN$.."_" .150............"...SCENARIO:
.".T.... D0.32,15:. D0.33,15...H.. ".THE
MEETING HAS GONE WELL. THEY'VE"...R.."
EATEN UP YOUR SALES PITCH AND YOU CAN".Y
...."PRACTICALLY FEEL THAT $1 MILLION IN
"......"YOUR POCKET. YOU PREPARE THE FI
NAL"......"GRAPH.":.I.1.1500:..N...."
. . "..
...." . . .
".#...." . . .... .
. ".I...." SALES . . . .
".N.".." . . .. .... "..
.,.." . . .. .. "...6.."
. . . ".X.@.." .. .....
......................."...J.."
MONTH".-.T..".SUDDENLY YOU H
EAR GASPS. ";G(34);"HE USED".W.^.."LOW
RESOLUTION! LOW RESOLUTION!!!"...H.."YO
U'VE LOST THEM NOW. IF ONLY YOU KNEW"..
.R.."HOW TO DO GRAPHS IN".J.|..".
. MEDIUM RESOLUTION "......IM.1.11:
.IN$:.IM...... "........................
.";.9.... ".SPACE. NEXT PAGE
._. GD MENU..".O.... IN$:.IN$."".420.
N.... IN$.." " . IN$.."_" .420...... IN$
."_" . 2170...B.."..MEDIUM RESOLUTION
"...L..".THE KEY TO ME
DIUM RESOLUTION IS TO USE"...V.."COMBINA
TIONS OF THE QUARTER SQUARE".(...."CHARA
CTERS. . . . .".D.... " . .
. .".R....".THERE ARE A NUMBER OF SIMPLE
STEPS TO"......"MEDIUM RESOLUTION. THE
Y ARE:".E....". - DEFINE THE QUARTER S
QUARE CHAR'S"......" - DETERMINE WHERE
ON THE SCREEN THE"......" GRAPH WIL
L BE".3.&.." - DETERMINE THE AXIS SCAL
ES".T.0.." - CALCULATE THE VALUES"...:
.." - DETERMINE WHERE THIS POINT IS ON
"...D.." THE SCREEN"...N.." - PUT
IT THERE"...X..".SOUNDS SIMPLE DOESN'T I
T? ..USE ALL"...B..".LINES IN REVERSE G
REY TO FORM THE".'.L..".ROUTINE FOR GRAP
HING..".?.V.. 110:. IN$." ".660.R.... IN
$."^". 180.].... 2170......"..INITIAL WO
RK ON MED. RES. "......"..D
EFINE CHARACTERS".T...."THERE ARE 16 CHA
RACTERS ALTHOUGH WE"......"DON'T ALWAYS
NEED ALL OF THEM."."....". ' '-32 '.'-1
23 '.'-126 '.'-97".N.F.." '.'-108 '.'-
98 '.'-127 '...'-252".|.P.." '.'-124 '.
..'-255 '...'-226 '...'-236"...Z.." '.
..'-225 '...'-254 '...'-251 '. .'-160".B
...."...DIM A(15)"......".DATA 32,123,12
6,97,108,98,127,252,124,255,226,236,225,
254,251,160"./....".FORI=0TO15:READA(I):
NEXTI.".^....".PICTURE EACH SQUARE AS DI
VIDED INTO 4."......".......... IF A CO
RNER OF THE SQUARE"......". 2 .. 8 . IS
ON THEN ADD THAT NUMBER"... .."........
.. TO THE OTHER 'ON' CORNERS."...*.."
THEN LOOK UP THE CHARACTER".<.
4..".......... VALUE IN OUR ARRAY.".`.>
..". 1 .. 4 . EXAMPLE: . = 2+4...H..".
......... SO OUR A(6)=127."...R..110:.I
N$." ".880...\..IN$."_".2170...F..450...
P.."..PLACING THE GRAPH.
"...Z.."..WHERE IS THE GRAPH?".0...
."ANY GRAPHING ROUTINE SHOULD ALLOW THE"
.Z...."GRAPH TO BE ANY SIZE AND ANYWHERE
."......"LET'S FIND THE BOTTOM LEFT AND
REFER"......"EVERYTHING TO THERE.".Q....
".R IS THE SCREEN ADDRESS AT THE BOTTOM
"......" LEFT OF THE GRAPH."......"
..R = 1024 + COLUMN + 40*ROW".L.J
..". COLUMN 0 IS THE LEFTMOST COLU
MN.".P.T.." ROW 0 IS THE TOP ROW."
......"XS IS X-AXIS VALUE AT BOTTOM LEFT
.".E...."XE IS X-AXIS VALUE AT BOTTOM RI
GHT."......"YS IS Y-AXIS VALUE AT BOTTOM
LEFT."......"YE IS Y-AXIS VALUE AT TOP
LEFT.".E...."XL IS NUMBER OF SPACES GIVE
N TO X-AXIS.".T...."YL IS NUMBER OF SPAC
ES GIVEN TO Y-AXIS."......110:. IN$." ".
1080...$..IN$."^".660...... 2170.Y.8..".
.SCALING THE GRAPH.
"...B.."..WHAT ARE THE AXIS SCALES?".&.L
.."THE AXIS SCALES WILL DEPEND ON THE".T
.V.."START AND END VALUES, XS YS XE AND
YE,"..`.."AND THE NUMBER OF SPACES ALOT
TED TO"...J.."EACH AXIS, XL AND YL.".H.T
..".XH IS X-AXIS SCALE, OR # OF X UNITS"
...~.." PER HALF SPACE."......"
..XH=(XE-XS)/(2*XL)".4...."..YH IS Y-
AXIS SCALE, OR # OF Y UNITS".Q...."
PER HALF SPACE.".T...." ..YV=(YE-
YS)/(2*YL)."......110:.IN$." ".1230.....
.IN$."_".2170...D..880.W.N.."..THE GRAPH
ING FUNCTION. "...X.."..
WHAT ARE WE GRAPHING?".$...."WE HAVE TO
CHOOSE A FUNCTION TO GRAPH.".R...."THEN
WE CHECK TO SEE WHAT ITS VALUE IS"......
"IN THE MIDDLE OF EVERY HALF SQUARE. WE
"......"WILL PICK THE SINE WAVE TO GRAPH
.".V...."...FOR X=XS+XH/2 TO XE-XH/2 STE
P XH."......" THIS WILL SET X TO T
HE MIDDLE OF".&...." EVERY HALF SQ
UARE.".Y.(.."...Y=SIN(X):REM MAKE SURE X
IS IN RADIANS.."...2.." THIS SETS
Y TO THE VALUE."...<.."......."...F.."
THIS WILL FIGURE OUT WHERE TO"...P
.." PUT THE QUARTER SQUARE, AND PU
T"...Z.." IT THERE."...D.."...NEXT
X.".-.N.. 110:. IN$." ".1420.?.X..IN$."
^".1080.J.... 2170.{...."..POINT POSITIO
NING. "......"..WHER
E ON THE SCREEN IS IT?".L. .."NOW WE KNO
W THE X AND Y POINT VALUES."......"WE ST
ILL HAVE TO FIGURE OUT WHERE IT".%...."G
OES ON THE SCREEN. REMEMBER THAT WE".S.
..."HAVE TO RELATE THIS TO THE BOTTOM LE
FT".P.H.."OF THE GRAPHING AREA."...R..".
X1 IS # OF X SQUARES RIGHT OF THE LEFT".
C...." SIDE OF THE PLOT AREA.".....
. " ..X1=INT((X-XS)/XH-.5)/2.".....
.".Y1 IS # OF Y SQUARES UP FROM THE BOTT
OM".?...." SIDE OF THE PLOT AREA.".
G.... " ..Y1=INT((Y-YS)/YV-.5)/2.".
.....".NEXT WE DETERMINE WHICH QUARTER S
QUARE"......"TO TURN ON."..."..110:.IN$.
" ".1600.R.,..IN$."_".2170...6..1230...@
.."..QUARTER SQUARE DECISION.
".1.J.."..WHICH SQUARE CORNER IS IT?
"._.T.."X1 AND Y1 HAVE BEEN CALCULATED T
O TELL"...^.."US THE CLOSEST HALF SQUARE
THE POINT IS"...H.."FROM THE BOTTOM LEF
T OF THE PLOT AREA."...R.."THEREFORE WE
CAN TELL WHICH CORNER THE"...|.."POINT I
S IN BY LOOKING AT THE VALUES.".G....".T
1 IS THE NEW CORNER CODE (1,2,4, OR 8)".
W...." ..T1=-1*(X1=INT(X1))-4*(X1<>IN
T(X1))"......". IF Y1<>INT(Y1)THEN T1
=2*T1".B....".R1 IS ADDRESS OF THE POINT
."......" ..R1=R+INT(X1)-40*INT(Y1)..
..."..S1 IS CURRENT POINT CODE.".7 B.."
A(0-15) HOLD CODES FOR THE CHARACTERS.".
T L.." ..S=PEEK(R1):S1=0".| V.." .
FORI=0TO15:IFS=A(I)THENS1=I".. ..." .
NEXT I.".. ... 110:.IN$." ".1800.. ... I
N$."^".1420.F ... 2170.. ..."..POINT DIS
PLAY. "..!..."..
PUT THE CORRECT CHARACTER ON.".K!..."BEF
ORE WE JUST THROW THE POINT ON THE".W!&.
."SCREEN WE HAVE TO CHECK TO SEE IF IT".
.!0.."WILL END UP ON THE SCREEN. WE CERT
AINLY".Q!:.."DON'T WANT TO END UP POKING
NUMBERS"..!D.."INTO OTHER PARTS OF THE
COMPUTER.".""N..".. ..IF R1>1023 AND R1<
2024 THEN".R"X.." .POKE R1,A(T1 OR S1
):POKE R1+54272,1".D"B..". .NEXT X.".."L
..".NOW WE'VE DONE THE WHOLE THING. WE"
.."V.."JUST STRING TOGETHER ALL THE REVE
RSE".."..."GREY STATEMENTS INTO A PROGRA
M.".."... 110:.IN$." ".1960..#...IN$."^"
.1600..#... 2170.I#..."..MEDIUM RESOLUTI
ON GRAPH ".Y#...".OUR SIN
E WAVE. PRESS ANY KEY TO START."..#...A
A$:.AA$."".1980..#F.XS.0:YS..1:XE.360:YE
.1:XL.30:YL.16..#P.XH.(XE.XS).(2.XL):YV.
(YE.YS).(2.YL)..#Z.R.1024.40.20.8..$...X
.XS.XH.2 . XE.XH.2 . XH.($..Y..(X.3.1415
926.180).A$..Y1..((Y.YS).YV..5).2.Z$..X1
..((X.XS).XH..5).2.$..R1.R..(X1).40..(Y
1):S.B(R1):S1.0..$...I.0.10:.S.A(I).S1.I
..$ ..I.B$*.T1..1.(X1..(X1)).4.(X1...(X1
)).Y$4..Y1...(Y1).T1.2.T1..$>..R1.1024.R
1.2023.2130..%H..R1,A(S1.T1):.R1.54272,1
2..%R..X.T%\.. "........................
NOW GO MAKE YOUR MILLION!!!".K%F.. 110:.
IN$." ".180.}%P..IN$."^".1800..%Z..G(9):
.".":.49152..%...........
> CLICK IMAGE PREVIEW FOR FULL MODAL