ISOPLOT 128
FILE INFORMATION
FILENAME(S): ISOPLOT 128
FILE TYPE(S): PRG
FILE SIZE: 6.3K
FIRST SEEN: 2025-11-30 21:07:27
APPEARS ON: 1 disk(s)
FILE HASH
bfd9144cd6909b72e057aef99da66648f6eb2b6d8b1b376df7729a3cc0ed5bcc
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| VCGN C 128 D0011 | ISOPLOT 128 | PRG | DuncanTwain | 29 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 5F 08 64 00 8B 20 49 50 B2 31 A7 9C 3A 89 |.._.d.. IP.1..:.| 00000010: 33 38 30 30 3A D5 49 50 B2 31 3A E7 30 2C 37 3A |3800:.IP.1:.0,7:| 00000020: E7 34 2C 37 3A E7 35 2C 32 3A 8F 20 53 45 54 20 |.4,7:.5,2:. SET | 00000030: 49 4E 49 54 49 41 4C 20 42 4F 52 44 45 52 2C 20 |INITIAL BORDER, | 00000040: 42 41 43 4B 47 52 4F 55 4E 44 20 41 4E 44 20 43 |BACKGROUND AND C| 00000050: 48 41 52 41 43 54 45 52 20 43 4F 4C 4F 52 53 00 |HARACTER COLORS.| 00000060: 7F 08 C8 00 F9 31 2C 22 31 22 3A F9 33 2C 22 32 |.....1,"1":.3,"2| 00000070: 22 3A F9 35 2C 22 33 22 3A F9 37 2C 22 34 22 00 |":.5,"3":.7,"4".| 00000080: D7 08 2C 01 E8 3A 81 58 B2 31 A4 38 3A FE 07 58 |..,..:.X.1.8:..X| 00000090: 2C 30 3A 82 3A 99 C7 28 31 34 29 3A 99 C7 28 38 |,0:.:..(14):..(8| 000000A0: 29 3A 8F 20 43 4C 45 41 52 20 54 48 45 20 53 43 |):. CLEAR THE SC| 000000B0: 52 45 45 4E 20 41 4E 44 20 53 50 52 49 54 45 53 |REEN AND SPRITES| 000000C0: 20 41 4E 44 20 4C 4F 43 4B 20 49 4E 20 4C 4F 57 | AND LOCK IN LOW| 000000D0: 45 52 2D 43 41 53 45 00 5C 09 90 01 4D 24 B2 22 |ER-CASE.\...M$."| 000000E0: C9 53 4F 4D 45 54 52 49 43 20 D3 55 52 46 41 43 |.SOMETRIC .URFAC| 000000F0: 45 20 D0 4C 4F 54 54 45 52 20 D0 52 4F 47 52 41 |E .LOTTER .ROGRA| 00000100: 4D 22 3A 8D 31 32 31 30 30 3A 99 22 9B 22 3A 4D |M":.12100:.".":M| 00000110: 24 B2 22 2D 20 41 20 55 54 49 4C 49 54 59 20 44 |$."- A UTILITY D| 00000120: 45 4D 4F 4E 53 54 52 41 54 49 4F 4E 20 46 4F 52 |EMONSTRATION FOR| 00000130: 20 54 48 45 20 2D 22 3A 8D 31 32 31 30 30 3A 4D | THE -":.12100:M| 00000140: 24 B2 22 2D 20 C3 4F 4D 4D 4F 44 4F 52 45 20 31 |$."- .OMMODORE 1| 00000150: 32 38 20 2D 22 3A 8D 31 32 31 30 30 00 A5 09 F4 |28 -":.12100....| 00000160: 01 8C 36 30 30 3A 53 50 24 B2 22 22 3A 81 58 B2 |..600:SP$."":.X.| 00000170: 31 A4 36 37 3A 87 59 3A 53 50 24 B2 53 50 24 AA |1.67:.Y:SP$.SP$.| 00000180: C7 28 59 29 3A 82 3A FE 16 53 50 24 2C 38 3A 8F |.(Y):.:..SP$,8:.| 00000190: 20 53 50 52 49 54 45 20 44 41 54 41 20 46 4F 52 | SPRITE DATA FOR| 000001A0: 20 4C 4F 47 4F 00 2B 0A 58 02 83 32 34 30 2C 32 | LOGO.+.X..240,2| 000001B0: 35 35 2C 32 35 35 2C 32 34 30 2C 32 35 35 2C 32 |55,255,240,255,2| 000001C0: 35 35 2C 32 34 30 2C 32 35 35 2C 32 35 35 2C 32 |55,240,255,255,2| 000001D0: 34 30 2C 32 34 30 2C 31 35 2C 32 34 30 2C 32 34 |40,240,15,240,24| 000001E0: 30 2C 31 35 2C 32 34 30 2C 32 34 30 2C 31 35 2C |0,15,240,240,15,| 000001F0: 32 34 30 2C 32 35 35 2C 31 35 2C 32 34 30 2C 32 |240,255,15,240,2| 00000200: 35 35 2C 31 35 2C 32 34 30 2C 32 35 35 2C 31 35 |55,15,240,255,15| 00000210: 2C 32 34 30 2C 30 2C 31 35 2C 32 34 30 2C 30 2C |,240,0,15,240,0,| 00000220: 31 35 2C 32 34 30 2C 30 2C 31 35 00 9A 0A BC 02 |15,240,0,15.....| 00000230: 83 32 34 30 2C 32 35 35 2C 31 35 2C 32 34 30 2C |.240,255,15,240,| 00000240: 32 35 35 2C 31 35 2C 32 34 30 2C 32 35 35 2C 31 |255,15,240,255,1| 00000250: 35 2C 32 34 30 2C 31 35 2C 31 35 2C 32 34 30 2C |5,240,15,15,240,| 00000260: 31 35 2C 31 35 2C 32 34 30 2C 31 35 2C 31 35 2C |15,15,240,15,15,| 00000270: 32 35 35 2C 32 35 35 2C 31 35 2C 32 35 35 2C 32 |255,255,15,255,2| 00000280: 35 35 2C 31 35 2C 32 35 35 2C 32 35 35 2C 31 35 |55,15,255,255,15| 00000290: 2C 32 33 2C 30 2C 32 30 2C 30 00 C2 0A 20 03 FE |,23,0,20,0... ..| 000002A0: 07 38 2C 30 2C 32 2C 31 2C 31 2C 31 2C 30 3A FE |.8,0,2,1,1,1,0:.| 000002B0: 06 38 2C 31 36 34 2C 31 32 30 3A FE 07 38 2C 31 |.8,164,120:..8,1| 000002C0: 2C 32 00 3A 0B 84 03 99 22 99 11 11 11 11 11 11 |,2.:....".......| 000002D0: 11 11 22 3A 4D 24 B2 22 C3 53 56 44 46 21 C3 50 |..":M$.".SVDF!.P| 000002E0: 58 45 46 4F 21 C9 46 56 53 4A 54 55 4A 44 54 22 |XEFO!.FVSJTUJDT"| 000002F0: 3A 8D 31 31 39 30 30 3A 4D 24 B2 22 34 32 32 31 |:.11900:M$."4221| 00000300: C3 21 CD 42 58 4F 45 42 4D 46 21 C5 53 4A 57 46 |.!.BXOEBMF!.SJWF| 00000310: 22 3A 8D 31 31 39 30 30 3A 4D 24 B2 22 C8 53 46 |":.11900:M$.".SF| 00000320: 46 4F 54 43 50 53 50 2D 21 CF C4 21 21 33 38 35 |FOTCPSP-!..!!385| 00000330: 31 39 22 3A 8D 31 31 39 30 30 00 7F 0B E8 03 4D |19":.11900.....M| 00000340: 24 B2 22 C4 50 4E 51 56 D4 46 53 57 46 21 CA C5 |$.".PNQV.FSWF!..| 00000350: 21 24 38 35 32 38 37 2D 33 32 35 35 22 3A 8D 31 |!$85287-3255":.1| 00000360: 31 39 30 30 3A 4D 24 B2 22 42 4F 45 21 38 33 33 |1900:M$."BOE!833| 00000370: 33 38 2D 33 32 31 35 22 3A 8D 31 31 39 30 30 00 |38-3215":.11900.| 00000380: 9A 0B 4C 04 DB 31 35 3A FE 0A 30 2C 34 2C 39 2C |..L..15:..0,4,9,| 00000390: 30 2C 39 2C 31 3A FE 05 31 30 00 E1 0B B0 04 FE |0,9,1:..10......| 000003A0: 04 22 56 31 4F 35 49 47 56 32 4F 33 53 47 4F 34 |."V1O5IGV2O3SGO4| 000003B0: 53 45 53 43 56 31 4F 35 53 41 53 42 56 32 4F 34 |SESCV1O5SASBV2O4| 000003C0: 53 45 4F 33 53 47 56 31 4F 36 51 43 56 32 4F 34 |SEO3SGV1O6QCV2O4| 000003D0: 53 45 53 43 53 45 4F 33 53 47 56 31 4F 36 53 43 |SESCSEO3SGV1O6SC| 000003E0: 22 00 0E 0C 14 05 FE 04 22 56 31 4F 35 53 42 56 |"......."V1O5SBV| 000003F0: 32 4F 34 53 45 56 31 4F 35 53 41 56 32 4F 34 53 |2O4SEV1O5SAV2O4S| 00000400: 43 56 31 4F 35 53 47 56 32 4F 34 53 45 22 00 47 |CV1O5SGV2O4SE".G| 00000410: 0C 78 05 FE 04 22 56 31 4F 35 53 46 56 32 4F 33 |.x..."V1O5SFV2O3| 00000420: 53 47 56 31 4F 35 53 45 56 32 4F 34 53 45 56 31 |SGV1O5SEV2O4SEV1| 00000430: 4F 35 53 44 56 32 4F 34 53 43 56 31 4F 35 53 43 |O5SDV2O4SCV1O5SC| 00000440: 56 32 4F 34 53 45 22 00 9C 0C DC 05 FE 04 22 56 |V2O4SE"......."V| 00000450: 31 4F 35 53 45 56 32 4F 33 53 47 56 31 4F 35 53 |1O5SEV2O3SGV1O5S| 00000460: 44 56 32 4F 34 53 45 53 42 53 45 4F 33 53 47 4F |DV2O4SESBSEO3SGO| 00000470: 34 53 45 53 42 53 45 4F 33 53 47 4F 34 53 45 53 |4SESBSEO3SGO4SES| 00000480: 42 53 45 4F 33 53 47 4F 34 53 45 53 42 56 31 4F |BSEO3SGO4SESBV1O| 00000490: 35 53 43 53 44 56 32 4F 34 53 45 22 00 CF 0C 40 |5SCSDV2O4SE"...@| 000004A0: 06 FE 04 22 56 31 4F 34 51 43 56 32 4F 33 51 45 |..."V1O4QCV2O3QE| 000004B0: 56 33 4F 33 51 43 56 32 4F 34 51 43 56 33 4F 33 |V3O3QCV2O4QCV3O3| 000004C0: 51 43 56 32 4F 33 48 43 56 33 4F 32 48 44 22 00 |QCV2O3HCV3O2HD".| 000004D0: E3 0C A4 06 99 22 11 22 3A E7 35 2C 31 3A 8D 38 |.....".":.5,1:.8| 000004E0: 37 30 30 00 17 0D 08 07 FE 07 38 2C 30 3A FE 06 |700.......8,0:..| 000004F0: 38 2C 33 31 35 2C 32 32 30 3A E7 30 2C 31 3A E7 |8,315,220:.0,1:.| 00000500: 34 2C 31 3A E7 35 2C 31 35 3A FE 07 38 2C 31 2C |4,1:.5,15:..8,1,| 00000510: 37 2C 31 2C 30 2C 30 00 3E 0D 6C 07 8F 20 2D 2D |7,1,0,0.>.l.. --| 00000520: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000530: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 B3 |--------------..| 00000540: 0D D0 07 99 22 11 11 22 3A 4D 24 B2 22 D0 52 45 |...."..":M$.".RE| 00000550: 53 53 20 22 AA C7 28 33 34 29 AA 22 C9 22 AA C7 |SS "..(34)."."..| 00000560: 28 33 34 29 AA 22 20 54 4F 20 53 45 45 20 54 48 |(34)." TO SEE TH| 00000570: 45 20 C9 4E 54 52 4F 44 55 43 54 49 4F 4E 22 3A |E .NTRODUCTION":| 00000580: 8D 31 32 31 30 30 3A 4D 24 B2 22 28 41 4E 59 20 |.12100:M$."(ANY | 00000590: 4F 54 48 45 52 20 4B 45 59 20 46 4F 52 20 4D 41 |OTHER KEY FOR MA| 000005A0: 49 4E 20 50 52 4F 47 52 41 4D 29 22 3A 8D 31 32 |IN PROGRAM)":.12| 000005B0: 31 30 30 00 CA 0D 34 08 A1 F9 41 24 3A 8B 41 24 |100...4...A$:.A$| 000005C0: B3 B1 22 49 22 A7 32 39 30 30 00 36 0E 98 08 99 |.."I".2900.6....| 000005D0: 22 93 11 22 3A 4D 24 B2 22 D4 48 45 20 C9 53 4F |"..":M$.".HE .SO| 000005E0: 4D 45 54 52 49 43 20 D3 55 52 46 41 43 45 20 D0 |METRIC .URFACE .| 000005F0: 4C 4F 54 54 45 52 20 D0 52 4F 47 52 41 4D 22 3A |LOTTER .ROGRAM":| 00000600: 8D 31 32 31 30 30 3A 4D 24 B2 22 50 52 45 53 45 |.12100:M$."PRESE| 00000610: 4E 54 53 20 41 20 48 49 47 48 2D 52 45 53 4F 4C |NTS A HIGH-RESOL| 00000620: 55 54 49 4F 4E 20 47 52 49 44 20 4D 41 50 22 3A |UTION GRID MAP":| 00000630: 8D 31 32 31 30 30 00 92 0E FC 08 4D 24 B2 22 4F |.12100.....M$."O| 00000640: 46 20 54 48 52 45 45 2D 44 49 4D 45 4E 53 49 4F |F THREE-DIMENSIO| 00000650: 4E 41 4C 20 46 55 4E 43 54 49 4F 4E 53 20 57 48 |NAL FUNCTIONS WH| 00000660: 45 52 45 22 3A 8D 31 32 31 30 30 3A 4D 24 B2 22 |ERE":.12100:M$."| 00000670: 5A 20 49 53 20 41 20 46 55 4E 43 54 49 4F 4E 20 |Z IS A FUNCTION | 00000680: 4F 46 20 58 20 41 4E 44 20 59 22 3A 8D 31 32 31 |OF X AND Y":.121| 00000690: 30 30 00 F8 0E 60 09 4D 24 B2 22 49 4E 20 54 48 |00...`.M$."IN TH| 000006A0: 45 20 4E 4F 52 4D 41 4C 20 C3 41 52 54 45 53 49 |E NORMAL .ARTESI| 000006B0: 41 4E 20 43 4F 4F 52 44 49 4E 41 54 45 22 3A 8D |AN COORDINATE":.| 000006C0: 31 32 31 30 30 3A 4D 24 B2 22 53 59 53 54 45 4D |12100:M$."SYSTEM| 000006D0: 2E 20 D7 48 45 4E 20 50 52 4F 4D 50 54 45 44 20 |. .HEN PROMPTED | 000006E0: 46 4F 52 20 54 48 45 20 46 4F 52 4D 55 4C 41 2C |FOR THE FORMULA,| 000006F0: 22 3A 8D 31 32 31 30 30 00 5D 0F C4 09 4D 24 B2 |":.12100.]...M$.| 00000700: 22 53 49 4D 50 4C 59 20 4D 4F 44 49 46 59 20 54 |"SIMPLY MODIFY T| 00000710: 48 45 20 46 4F 52 4D 55 4C 41 20 4C 49 4E 45 2C |HE FORMULA LINE,| 00000720: 20 57 48 49 43 48 22 3A 8D 31 32 31 30 30 3A 4D | WHICH":.12100:M| 00000730: 24 B2 22 49 53 20 4C 49 53 54 45 44 20 54 4F 20 |$."IS LISTED TO | 00000740: 54 48 45 20 53 43 52 45 45 4E 2E 20 CE 4F 4E 2D |THE SCREEN. .ON-| 00000750: C2 C1 D3 C9 C3 22 3A 8D 31 32 31 30 30 00 B9 0F |.....":.12100...| 00000760: 28 0A 4D 24 B2 22 46 55 4E 43 54 49 4F 4E 53 20 |(.M$."FUNCTIONS | 00000770: 41 52 45 20 47 49 56 45 4E 20 41 53 20 57 45 4C |ARE GIVEN AS WEL| 00000780: 4C 2E 22 3A 8D 31 32 31 30 30 3A 4D 24 B2 22 D4 |L.":.12100:M$.".| 00000790: 48 45 52 45 20 57 49 4C 4C 20 42 45 20 53 4F 4D |HERE WILL BE SOM| 000007A0: 45 20 44 45 4C 41 59 20 57 48 49 4C 45 20 54 48 |E DELAY WHILE TH| 000007B0: 45 22 3A 8D 31 32 31 30 30 00 38 10 8C 0A 4D 24 |E":.12100.8...M$| 000007C0: B2 22 50 4C 4F 54 20 49 53 20 42 45 49 4E 47 20 |."PLOT IS BEING | 000007D0: 53 43 41 4C 45 44 20 54 4F 20 53 43 52 45 45 4E |SCALED TO SCREEN| 000007E0: 22 3A 8D 31 32 31 30 30 3A 4D 24 B2 22 44 49 4D |":.12100:M$."DIM| 000007F0: 45 4E 53 49 4F 4E 53 2E 20 D4 48 45 20 50 4C 4F |ENSIONS. .HE PLO| 00000800: 54 20 49 53 20 52 45 43 41 4C 43 55 4C 41 54 45 |T IS RECALCULATE| 00000810: 44 22 3A 8D 31 32 31 30 30 3A 4D 24 B2 22 57 48 |D":.12100:M$."WH| 00000820: 49 4C 45 20 42 45 49 4E 47 20 44 52 41 57 4E 2E |ILE BEING DRAWN.| 00000830: 22 3A 8D 31 32 31 30 30 00 48 10 F0 0A 99 22 11 |":.12100.H....".| 00000840: 11 22 3A 8D 38 37 30 30 00 AA 10 54 0B E8 3A 99 |.":.8700...T..:.| 00000850: 22 11 11 22 3A 4D 24 B2 22 D4 4F 20 53 45 45 20 |"..":M$.".O SEE | 00000860: 41 20 44 45 4D 4F 2C 20 50 52 45 53 53 20 C4 2E |A DEMO, PRESS ..| 00000870: 22 3A 8D 31 32 31 30 30 3A 4D 24 B2 22 CF 54 48 |":.12100:M$.".TH| 00000880: 45 52 57 49 53 45 2C 20 50 52 45 53 53 20 41 4E |ERWISE, PRESS AN| 00000890: 59 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 |Y KEY TO CONTINU| 000008A0: 45 2E 22 3A 8D 31 32 31 30 30 00 C0 10 B8 0B A1 |E.":.12100......| 000008B0: F9 41 24 3A 8B 41 24 B2 22 44 22 A7 33 34 30 30 |.A$:.A$."D".3400| 000008C0: 00 41 11 1C 0C E8 3A 99 22 11 11 22 3A 4D 24 B2 |.A....:."..":M$.| 000008D0: 22 D4 4F 20 4C 4F 41 44 20 41 4E 20 41 4C 52 45 |".O LOAD AN ALRE| 000008E0: 41 44 59 20 53 41 56 45 44 20 50 49 43 54 55 52 |ADY SAVED PICTUR| 000008F0: 45 2C 22 3A 8D 31 32 31 30 30 3A 4D 24 B2 22 50 |E,":.12100:M$."P| 00000900: 52 45 53 53 20 CC 2E 22 3A 8D 31 32 31 30 30 3A |RESS ..":.12100:| 00000910: 4D 24 B2 22 CF 54 48 45 52 57 49 53 45 2C 20 50 |M$.".THERWISE, P| 00000920: 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 |RESS ANY KEY TO | 00000930: 43 4F 4E 54 49 4E 55 45 2E 22 3A 8D 31 32 31 30 |CONTINUE.":.1210| 00000940: 30 00 58 11 80 0C A1 F9 41 24 3A 8B 41 24 B3 B1 |0.X.....A$:.A$..| 00000950: 22 4C 22 A7 38 38 30 30 00 8F 11 E4 0C 99 22 93 |"L".8800......".| 00000960: 11 11 D7 48 41 54 20 49 53 20 54 48 45 20 50 49 |...HAT IS THE PI| 00000970: 43 54 55 52 45 20 4E 41 4D 45 3F 22 3A 85 4E 41 |CTURE NAME?":.NA| 00000980: 24 3A DE 31 2C 31 3A 93 4E 41 24 2C 38 2C 31 00 |$:.1,1:.NA$,8,1.| 00000990: F0 11 48 0D 8D 31 32 32 30 30 3A 4F B2 32 33 2E |..H..12200:O.23.| 000009A0: 38 38 38 3A 54 B2 2E 32 30 30 39 3A 55 B2 31 31 |888:T..2009:U.11| 000009B0: 2E 36 39 36 37 3A 4C B2 AB 31 32 2E 31 39 31 34 |.6967:L..12.1914| 000009C0: 3A 52 B2 32 30 2E 30 39 31 38 3A 41 B2 AB 52 3A |:R.20.0918:A..R:| 000009D0: 4D 32 B2 31 32 3A 4D 31 B2 AB 31 32 3A 4D 33 B2 |M2.12:M1..12:M3.| 000009E0: AB 31 32 3A 4D 34 B2 31 32 3A 89 31 30 36 30 30 |.12:M4.12:.10600| 000009F0: 00 04 12 AC 0D 5A B2 BE 28 BA 28 58 AC 58 AA 59 |.....Z..(.(X.X.Y| 00000A00: AC 59 29 29 00 0A 12 10 0E 8E 00 26 12 74 0E 8F |.Y)).......&.t..| 00000A10: 20 52 45 54 55 52 4E 20 54 4F 20 4D 41 49 4E 20 | RETURN TO MAIN | 00000A20: 4D 45 4D 4F 52 59 00 64 12 D8 0E DA 31 2C 39 30 |MEMORY.d....1,90| 00000A30: 30 30 2C 34 30 2C 32 2C 31 30 30 30 30 2C 31 3A |00,40,2,10000,1:| 00000A40: E0 31 2C 38 2C 32 34 2C 22 50 52 45 53 53 20 41 |.1,8,24,"PRESS A| 00000A50: 4E 59 20 4B 45 59 20 54 4F 20 52 45 43 4F 56 45 |NY KEY TO RECOVE| 00000A60: 52 22 2C 30 00 70 12 3C 0F A1 F9 41 24 3A DE 30 |R",0.p.<...A$:.0| 00000A70: 00 9E 12 A0 0F 99 22 93 9A 11 22 3A 4D 24 B2 22 |......"...":M$."| 00000A80: D5 53 45 20 54 48 45 20 C6 55 4E 43 54 49 4F 4E |.SE THE .UNCTION| 00000A90: 20 CB 45 59 53 3A 22 3A 8D 31 32 31 30 30 00 08 | .EYS:":.12100..| 00000AA0: 13 04 10 99 22 11 11 46 31 20 2A 2A 2A 20 D3 45 |...."..F1 *** .E| 00000AB0: 45 20 54 48 45 20 50 49 43 54 55 52 45 20 41 47 |E THE PICTURE AG| 00000AC0: 41 49 4E 22 3A 99 22 11 11 46 33 20 2A 2A 2A 20 |AIN":."..F3 *** | 00000AD0: D3 45 4E 44 20 54 48 45 20 50 49 43 54 55 52 45 |.END THE PICTURE| 00000AE0: 20 54 4F 20 54 48 45 20 50 52 49 4E 54 45 52 22 | TO THE PRINTER"| 00000AF0: 3A 99 22 11 11 46 35 20 2A 2A 2A 20 CE 45 57 20 |:."..F5 *** .EW | 00000B00: 52 4F 55 54 49 4E 45 22 00 29 13 68 10 99 22 11 |ROUTINE".).h..".| 00000B10: 11 46 37 20 2A 2A 2A 20 D3 41 56 45 20 54 48 45 |.F7 *** .AVE THE| 00000B20: 20 50 49 43 54 55 52 45 22 00 32 13 CC 10 A1 F9 | PICTURE".2.....| 00000B30: 41 24 00 4A 13 30 11 8B 41 24 B3 22 31 22 B0 41 |A$.J.0..A$."1".A| 00000B40: 24 B1 22 34 22 A7 34 33 30 30 00 6A 13 94 11 91 |$."4".4300.j....| 00000B50: 20 C5 28 41 24 29 89 34 36 30 30 2C 35 32 30 30 | .(A$).4600,5200| 00000B60: 2C 34 37 30 30 2C 34 38 30 30 00 77 13 F8 11 DE |,4700,4800.w....| 00000B70: 31 3A 89 33 39 30 30 00 7D 13 5C 12 8A 00 C4 13 |1:.3900.}.\.....| 00000B80: C0 12 99 22 93 9A 11 11 D7 48 41 54 20 4E 41 4D |...".....HAT NAM| 00000B90: 45 20 57 4F 55 4C 44 20 59 4F 55 20 4C 49 4B 45 |E WOULD YOU LIKE| 00000BA0: 20 54 4F 20 53 41 56 45 20 54 48 45 20 20 20 20 | TO SAVE THE | 00000BB0: 50 49 43 54 55 52 45 20 55 4E 44 45 52 3F 22 3A |PICTURE UNDER?":| 00000BC0: 85 4E 41 24 00 E6 13 24 13 FE 10 28 4E 41 24 29 |.NA$...$...(NA$)| 00000BD0: 2C 44 30 2C 55 38 2C 42 30 2C 50 38 31 39 33 A4 |,D0,U8,B0,P8193.| 00000BE0: 50 31 36 31 39 31 00 F0 13 88 13 89 34 30 30 30 |P16191......4000| 00000BF0: 00 17 14 EC 13 99 22 11 11 22 3A 4D 24 B2 22 D0 |......"..":M$.".| 00000C00: 4C 45 41 53 45 20 D3 54 41 4E 44 42 59 22 3A 8D |LEASE .TANDBY":.| 00000C10: 31 32 31 30 30 3A 8E 00 37 14 50 14 8F 20 54 48 |12100:..7.P.. TH| 00000C20: 45 20 50 52 49 4E 54 4F 55 54 20 52 4F 55 54 49 |E PRINTOUT ROUTI| 00000C30: 4E 45 20 48 45 52 45 00 68 14 B4 14 99 22 11 96 |NE HERE.h...."..| 00000C40: B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000C50: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000C60: C0 C0 C0 C0 C0 C0 AE 22 00 F3 14 18 15 99 22 A5 |......."......".| 00000C70: 05 20 20 20 D0 4C 45 41 53 45 20 49 4E 53 55 52 |. .LEASE INSUR| 00000C80: 45 20 54 48 41 54 20 59 4F 55 52 20 50 52 49 4E |E THAT YOUR PRIN| 00000C90: 54 45 52 20 20 20 96 A7 22 3A 99 22 A5 05 20 20 |TER ..":.".. | 00000CA0: 20 20 49 53 20 4F 46 20 54 48 45 20 C3 4F 4D 4D | IS OF THE .OMM| 00000CB0: 4F 44 4F 52 45 20 CD D0 D3 20 54 59 50 45 20 20 |ODORE ... TYPE | 00000CC0: 20 20 20 96 A7 22 3A 99 22 A5 05 20 20 20 20 41 | ..":.".. A| 00000CD0: 4E 44 20 49 53 20 43 4F 4E 46 49 47 55 52 45 44 |ND IS CONFIGURED| 00000CE0: 20 41 53 20 44 45 56 49 43 45 20 34 20 20 20 20 | AS DEVICE 4 | 00000CF0: 96 A7 22 00 23 15 7C 15 99 22 AD C0 C0 C0 C0 C0 |..".#.|.."......| 00000D00: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000D10: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000D20: BD 9A 22 00 87 15 E0 15 99 3A 4D 24 B2 22 D4 4F |.."......:M$.".O| 00000D30: 20 41 42 4F 52 54 20 54 48 49 53 20 53 45 4C 45 | ABORT THIS SELE| 00000D40: 43 54 49 4F 4E 2C 20 50 52 45 53 53 20 C1 22 3A |CTION, PRESS .":| 00000D50: 8D 31 32 31 30 30 3A 4D 24 B2 22 CF 54 48 45 52 |.12100:M$.".THER| 00000D60: 57 49 53 45 2C 20 41 4E 59 20 4F 54 48 45 52 20 |WISE, ANY OTHER | 00000D70: 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 |KEY TO CONTINUE"| 00000D80: 3A 8D 31 32 31 30 30 00 9D 15 44 16 A1 F9 41 24 |:.12100...D...A$| 00000D90: 3A 8B 41 24 B2 22 41 22 A7 34 30 30 30 00 F7 15 |:.A$."A".4000...| 00000DA0: A8 16 99 22 93 11 11 D7 48 41 54 20 4D 45 53 53 |..."....HAT MESS| 00000DB0: 41 47 45 20 57 4F 55 4C 44 20 59 4F 55 20 4C 49 |AGE WOULD YOU LI| 00000DC0: 4B 45 20 4F 4E 20 54 48 45 20 20 20 20 20 20 50 |KE ON THE P| 00000DD0: 52 49 4E 54 4F 55 54 3F 20 28 4C 45 53 53 20 54 |RINTOUT? (LESS T| 00000DE0: 48 41 4E 20 34 30 20 43 48 41 52 41 43 54 45 52 |HAN 40 CHARACTER| 00000DF0: 53 29 22 3A 85 41 24 00 1F 16 0C 17 8B 41 24 B2 |S)":.A$......A$.| 00000E00: 22 22 A7 41 24 B2 22 42 52 55 43 45 20 42 4F 57 |"".A$."BRUCE BOW| 00000E10: 44 45 4E 20 48 45 55 52 49 53 54 49 43 53 22 00 |DEN HEURISTICS".| 00000E20: 4C 16 70 17 59 B2 B5 28 28 33 39 AB C3 28 41 24 |L.p.Y..((39..(A$| 00000E30: 29 29 AD 32 29 3A 81 58 B2 31 A4 59 3A 41 24 B2 |)).2):.X.1.Y:A$.| 00000E40: 22 20 22 AA 41 24 AA 22 20 22 3A 82 00 77 16 D4 |" ".A$." ":..w..| 00000E50: 17 8B 20 C3 28 41 24 29 B3 33 39 A7 59 B2 C3 28 |.. .(A$).39.Y..(| 00000E60: 41 24 29 3A 81 58 B2 59 A4 33 39 3A 41 24 B2 41 |A$):.X.Y.39:A$.A| 00000E70: 24 AA 22 20 22 3A 82 00 92 16 38 18 DE 31 3A E0 |$." ":....8..1:.| 00000E80: 31 2C 31 2C 32 34 2C 41 24 2C 30 3A FE 0B 32 3A |1,1,24,A$,0:..2:| 00000E90: DE 30 00 EC 16 9C 18 99 22 93 11 11 22 3A 4D 24 |.0......"...":M$| 00000EA0: B2 22 D0 52 49 4E 54 49 4E 47 20 54 48 45 20 50 |.".RINTING THE P| 00000EB0: 49 43 54 55 52 45 20 4E 4F 57 2E 2E 2E 22 3A 8D |ICTURE NOW...":.| 00000EC0: 31 32 31 30 30 3A 99 22 11 11 11 11 11 22 3A 4D |12100:.".....":M| 00000ED0: 24 B2 22 D3 54 41 4E 44 42 59 20 D0 4C 45 41 53 |$.".TANDBY .LEAS| 00000EE0: 45 2E 2E 2E 22 3A 8D 31 32 31 30 30 00 06 17 00 |E...":.12100....| 00000EF0: 19 9F 33 2C 34 3A 81 58 31 B2 38 35 31 31 A4 38 |..3,4:.X1.8511.8| 00000F00: 31 39 39 A9 AB 38 00 3A 17 64 19 81 59 31 B2 58 |199..8.:.d..Y1.X| 00000F10: 31 A4 31 36 31 39 31 AB 38 AC 28 38 AB B5 28 28 |1.16191.8.(8..((| 00000F20: 58 31 AB 38 31 39 31 29 AD 34 30 AA 2E 35 29 29 |X1.8191).40..5))| 00000F30: A9 33 32 30 3A 41 24 B2 22 22 00 69 17 C8 19 81 |.320:A$."".i....| 00000F40: 5A 31 B2 59 31 AB 38 A4 59 31 3A 57 57 B2 C2 28 |Z1.Y1.8.Y1:WW..(| 00000F50: 5A 31 29 B0 31 32 38 3A 8B C2 28 5A 31 29 B2 31 |Z1).128:..(Z1).1| 00000F60: 32 38 A7 57 57 B2 31 39 32 00 8D 17 2C 1A 41 24 |28.WW.192...,.A$| 00000F70: B2 41 24 AA C7 28 57 57 29 3A 82 3A 98 33 2C C7 |.A$..(WW):.:.3,.| 00000F80: 28 38 29 41 24 3B 3A 82 3A 98 33 3A 82 00 A3 17 |(8)A$;:.:.3:....| 00000F90: 90 1A 98 33 2C C7 28 31 35 29 3A A0 33 3A 8D 38 |...3,.(15):.3:.8| 00000FA0: 37 30 30 00 EA 17 F4 1A DE 31 3A E0 31 2C 31 2C |700......1:.1,1,| 00000FB0: 32 34 2C 22 20 20 20 20 20 20 20 50 52 45 53 53 |24," PRESS| 00000FC0: 20 41 4E 59 20 4B 45 59 20 54 4F 20 52 45 43 4F | ANY KEY TO RECO| 00000FD0: 56 45 52 20 20 20 20 20 20 20 22 2C 30 3A FE 0B |VER ",0:..| 00000FE0: 31 3A DE 30 3A 89 34 30 30 30 00 F6 17 58 1B 8D |1:.0:.4000...X..| 00000FF0: 38 37 30 30 3A 8E 00 1D 18 BC 1B 99 22 11 11 22 |8700:.......".."| 00001000: 3A 4D 24 B2 22 41 52 43 53 49 4E 20 3D 20 46 4E |:M$."ARCSIN = FN| 00001010: 41 53 28 58 29 22 3A 8D 31 32 31 30 30 00 3E 18 |AS(X)":.12100.>.| 00001020: 20 1C 4D 24 B2 22 41 52 43 43 4F 53 20 3D 20 46 | .M$."ARCCOS = F| 00001030: 4E 41 43 28 58 29 22 3A 8D 31 32 31 30 30 00 5D |NAC(X)":.12100.]| 00001040: 18 84 1C 4D 24 B2 22 54 41 4E 48 20 3D 20 46 4E |...M$."TANH = FN| 00001050: 48 54 28 58 29 22 3A 8D 31 32 31 30 30 00 7C 18 |HT(X)":.12100.|.| 00001060: E8 1C 4D 24 B2 22 43 4F 53 48 20 3D 20 46 4E 48 |..M$."COSH = FNH| 00001070: 43 28 58 29 22 3A 8D 31 32 31 30 30 00 9B 18 4C |C(X)":.12100...L| 00001080: 1D 4D 24 B2 22 53 49 4E 48 20 3D 20 46 4E 48 53 |.M$."SINH = FNHS| 00001090: 28 58 29 22 3A 8D 31 32 31 30 30 00 BD 18 B0 1D |(X)":.12100.....| 000010A0: 4D 24 B2 22 41 52 43 53 49 4E 48 20 3D 20 46 4E |M$."ARCSINH = FN| 000010B0: 48 31 28 58 29 22 3A 8D 31 32 31 30 30 00 DF 18 |H1(X)":.12100...| 000010C0: 14 1E 4D 24 B2 22 41 52 43 43 4F 53 48 20 3D 20 |..M$."ARCCOSH = | 000010D0: 46 4E 48 32 28 58 29 22 3A 8D 31 32 31 30 30 00 |FNH2(X)":.12100.| 000010E0: 03 19 78 1E 4D 24 B2 22 41 52 43 54 41 4E 48 20 |..x.M$."ARCTANH | 000010F0: 3D 20 46 4E 48 33 28 58 29 22 3A 8D 31 32 31 30 |= FNH3(X)":.1210| 00001100: 30 3A 8E 00 1E 19 DC 1E 96 20 A5 41 53 28 58 29 |0:....... .AS(X)| 00001110: B2 C1 28 58 AD BA 28 31 AB 58 AC 58 29 29 00 45 |..(X..(1.X.X)).E| 00001120: 19 40 1F 96 20 A5 41 43 28 58 29 B2 C1 28 BA 28 |.@.. .AC(X)..(.(| 00001130: 31 AB 58 AC 58 29 AD 58 29 AB B4 28 B4 28 58 29 |1.X.X).X)..(.(X)| 00001140: AB 31 29 AC FF 00 69 19 A4 1F 96 20 A5 48 54 28 |.1)...i.... .HT(| 00001150: 58 29 B2 BD 28 AB 58 29 AD 28 BD 28 58 29 AA BD |X)..(.X).(.(X)..| 00001160: 28 AB 58 29 29 AC 32 AA 31 00 85 19 08 20 96 20 |(.X)).2.1.... . | 00001170: A5 48 43 28 58 29 B2 28 BD 28 58 29 AA BD 28 AB |.HC(X).(.(X)..(.| 00001180: 58 29 29 AD 32 00 A1 19 6C 20 96 20 A5 48 53 28 |X)).2...l . .HS(| 00001190: 58 29 B2 28 BD 28 58 29 AB BD 28 AB 58 29 29 AD |X).(.(X)..(.X)).| 000011A0: 32 00 BC 19 D0 20 96 20 A5 48 31 28 58 29 B2 BC |2.... . .H1(X)..| 000011B0: 28 58 AA BA 28 58 AC 58 AA 31 29 29 00 D7 19 34 |(X..(X.X.1))...4| 000011C0: 21 96 20 A5 48 32 28 58 29 B2 BC 28 58 AA BA 28 |!. .H2(X)..(X..(| 000011D0: 58 AC 58 AB 31 29 29 00 F7 19 98 21 96 20 A5 48 |X.X.1))....!. .H| 000011E0: 33 28 58 29 B2 BC 28 28 31 AA 58 29 AD 28 31 AB |3(X)..((1.X).(1.| 000011F0: 58 29 29 AD 32 3A 8E 00 2A 1A FC 21 4D 24 B2 22 |X)).2:..*..!M$."| 00001200: D0 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 4F |.RESS ANY KEY TO| 00001210: 20 43 4F 4E 54 49 4E 55 45 22 3A 8D 31 32 31 30 | CONTINUE":.1210| 00001220: 30 3A A1 F9 41 24 3A E8 3A 8E 00 64 1A 60 22 99 |0:..A$:.:..d.`".| 00001230: 22 93 99 22 3A 4D 24 B2 22 12 20 C9 D3 CF CD C5 |"..":M$.". .....| 00001240: D4 D2 C9 C3 A0 D3 D5 D2 C6 C1 C3 C5 A0 D0 CC CF |................| 00001250: D4 D4 C5 D2 20 20 22 3A 8D 31 32 31 30 30 3A 99 |.... ":.12100:.| 00001260: 22 96 11 22 00 C8 1A C4 22 4D 24 B2 22 D2 45 50 |".."...."M$.".EP| 00001270: 52 45 53 45 4E 54 20 54 48 45 20 46 55 4E 43 54 |RESENT THE FUNCT| 00001280: 49 4F 4E 20 41 54 20 4C 49 4E 45 20 33 35 30 30 |ION AT LINE 3500| 00001290: 22 3A 8D 31 32 31 30 30 3A 4D 24 B2 22 54 48 45 |":.12100:M$."THE| 000012A0: 4E 20 22 AA C7 28 33 34 29 AA 22 C7 CF D4 CF 20 |N "..(34).".... | 000012B0: 39 32 30 30 22 AA C7 28 33 34 29 3A 8D 31 32 31 |9200"..(34):.121| 000012C0: 30 30 3A 8D 37 31 30 30 00 D4 1A 28 23 9B 33 35 |00:.7100...(#.35| 000012D0: 30 30 3A 90 00 5A 1B 8C 23 89 33 35 30 30 3A 8F |00:..Z..#.3500:.| 000012E0: 20 54 48 49 53 20 49 53 20 54 48 45 20 41 44 44 | THIS IS THE ADD| 000012F0: 52 45 53 53 20 43 48 41 4E 47 45 20 55 54 49 4C |RESS CHANGE UTIL| 00001300: 49 54 59 20 4C 49 4E 45 2E 20 43 48 41 4E 47 45 |ITY LINE. CHANGE| 00001310: 20 54 48 45 20 33 35 30 30 53 20 41 42 4F 56 45 | THE 3500S ABOVE| 00001320: 20 54 4F 20 54 48 45 20 4E 45 57 20 4E 55 4D 42 | TO THE NEW NUMB| 00001330: 45 52 20 41 4E 44 20 54 48 45 20 47 4F 54 4F 20 |ER AND THE GOTO | 00001340: 39 32 30 30 20 54 4F 20 47 4F 54 4F 20 54 48 45 |9200 TO GOTO THE| 00001350: 20 4E 45 58 54 20 4C 49 4E 45 00 9C 1B F0 23 8D | NEXT LINE....#.| 00001360: 37 39 30 30 3A 8D 31 32 32 30 30 3A E8 3A 99 22 |7900:.12200:.:."| 00001370: 93 11 11 9E 22 3A 85 22 20 20 20 20 20 D7 48 41 |....":." .HA| 00001380: 54 20 49 53 20 54 48 45 20 4D 49 4E 49 4D 55 4D |T IS THE MINIMUM| 00001390: 20 58 20 56 41 4C 55 45 22 3B 4D 31 00 C7 1B 54 | X VALUE";M1...T| 000013A0: 24 85 22 20 20 20 20 20 D7 48 41 54 20 49 53 20 |$." .HAT IS | 000013B0: 54 48 45 20 4D 41 58 49 4D 55 4D 20 58 20 56 41 |THE MAXIMUM X VA| 000013C0: 4C 55 45 22 3B 4D 32 00 F2 1B B8 24 85 22 20 20 |LUE";M2....$." | 000013D0: 20 20 20 D7 48 41 54 20 49 53 20 54 48 45 20 4D | .HAT IS THE M| 000013E0: 49 4E 49 4D 55 4D 20 59 20 56 41 4C 55 45 22 3B |INIMUM Y VALUE";| 000013F0: 4D 33 00 1D 1C 1C 25 85 22 20 20 20 20 20 D7 48 |M3....%." .H| 00001400: 41 54 20 49 53 20 54 48 45 20 4D 41 58 49 4D 55 |AT IS THE MAXIMU| 00001410: 4D 20 59 20 56 41 4C 55 45 22 3B 4D 34 00 3B 1C |M Y VALUE";M4.;.| 00001420: 80 25 8D 35 31 30 30 3A 4C B2 31 45 32 30 3A 55 |.%.5100:L.1E20:U| 00001430: B2 AB 4C 3A 41 B2 4C 3A 52 B2 55 00 5A 1C E4 25 |..L:A.L:R.U.Z..%| 00001440: 43 42 B2 39 36 31 3A 81 58 B2 4D 31 A4 4D 32 A9 |CB.961:.X.M1.M2.| 00001450: 28 4D 32 AB 4D 31 29 AD 33 30 00 80 1C 48 26 81 |(M2.M1).30...H&.| 00001460: 59 B2 4D 33 A4 4D 34 A9 28 4D 34 AB 4D 33 29 AD |Y.M3.M4.(M4.M3).| 00001470: 33 30 3A 43 42 B2 43 42 AB 31 3A 99 22 11 11 22 |30:CB.CB.1:.".."| 00001480: 00 BD 1C AC 26 43 42 24 B2 C4 28 43 42 29 3A 99 |....&CB$..(CB):.| 00001490: 22 99 20 20 20 20 20 20 CF 4E 4C 59 22 AA 43 42 |". .NLY".CB| 000014A0: 24 AA 22 20 4D 4F 52 45 20 53 54 45 50 53 20 54 |$." MORE STEPS T| 000014B0: 4F 20 47 4F 21 20 20 20 91 91 91 91 22 00 D4 1C |O GO! ...."...| 000014C0: 10 27 8D 33 35 30 30 3A 5A B2 5A AB 28 58 AA 59 |.'.3500:Z.Z.(X.Y| 000014D0: 29 AC 2E 35 00 E1 1C 74 27 8B 4C B1 5A A7 4C B2 |)..5...t'.L.Z.L.| 000014E0: 5A 00 EE 1C D8 27 8B 55 B3 5A A7 55 B2 5A 00 0A |Z....'.U.Z.U.Z..| 000014F0: 1D 3C 28 43 B2 28 59 AB 58 29 AC BE 28 FF AD 36 |.<(C.(Y.X)..(..6| 00001500: 29 3A 8B 41 B1 43 A7 41 B2 43 00 17 1D A0 28 8B |):.A.C.A.C....(.| 00001510: 52 B3 43 A7 52 B2 43 00 46 1D 04 29 82 3A 82 3A |R.C.R.C.F..).:.:| 00001520: 4F B2 55 AB 4C 3A 54 B2 28 52 AB 41 29 AD 32 30 |O.U.L:T.(R.A).20| 00001530: 30 3A DA 31 2C 39 30 30 30 2C 34 30 2C 32 2C 31 |0:.1,9000,40,2,1| 00001540: 30 30 30 30 2C 31 00 54 1D 68 29 99 22 93 22 3A |0000,1.T.h).".":| 00001550: DE 31 2C 31 00 6C 1D CC 29 81 58 B2 4D 31 A4 4D |.1,1.l..).X.M1.M| 00001560: 32 A9 28 4D 32 AB 4D 31 29 AD 33 30 00 84 1D 30 |2.(M2.M1).30...0| 00001570: 2A 81 59 B2 4D 33 A4 4D 34 A9 28 4D 34 AB 4D 33 |*.Y.M3.M4.(M4.M3| 00001580: 29 AD 33 30 00 9B 1D 94 2A 8D 33 35 30 30 3A 5A |).30....*.3500:Z| 00001590: B2 5A AB 28 58 AA 59 29 AC 2E 35 00 CC 1D F8 2A |.Z.(X.Y)..5....*| 000015A0: 59 32 B2 31 39 39 AB 31 39 39 AC 28 5A AB 4C 29 |Y2.199.199.(Z.L)| 000015B0: AD 4F 3A 58 32 B2 31 2E 36 AC 28 28 59 AB 58 29 |.O:X2.1.6.((Y.X)| 000015C0: AC BE 28 FF AD 36 29 AB 41 29 AD 54 00 EA 1D 5C |..(..6).A).T...\| 000015D0: 2B 48 4F B2 58 3A 58 B2 58 AB 28 4D 32 AB 4D 31 |+HO.X:X.X.(M2.M1| 000015E0: 29 AD 33 30 3A 8D 33 35 30 30 00 FB 1D C0 2B 5A |).30:.3500....+Z| 000015F0: B2 5A AB 28 58 AA 59 29 AC 2E 35 00 31 1E 24 2C |.Z.(X.Y)..5.1.$,| 00001600: 4C 59 B2 31 39 39 AB 31 39 39 AC 28 5A AB 4C 29 |LY.199.199.(Z.L)| 00001610: AD 4F 3A 4C 58 B2 31 2E 36 AC 28 28 59 AB 58 29 |.O:LX.1.6.((Y.X)| 00001620: AC BE 28 FF AD 36 29 AB 41 29 AD 54 3A 58 B2 48 |..(..6).A).T:X.H| 00001630: 4F 00 57 1E 88 2C 8B 59 B3 B1 4D 33 A7 E5 31 2C |O.W..,.Y..M3..1,| 00001640: B6 28 58 31 29 2C B6 28 59 31 29 A4 B6 28 58 32 |.(X1),.(Y1)..(X2| 00001650: 29 2C B6 28 59 32 29 00 7D 1E EC 2C 8B 58 B3 B1 |),.(Y2).}..,.X..| 00001660: 4D 31 A7 E5 31 2C B6 28 4C 58 29 2C B6 28 4C 59 |M1..1,.(LX),.(LY| 00001670: 29 A4 B6 28 58 32 29 2C B6 28 59 32 29 00 8D 1E |)..(X2),.(Y2)...| 00001680: 50 2D 58 31 B2 58 32 3A 59 31 B2 59 32 00 9B 1E |P-X1.X2:Y1.Y2...| 00001690: B4 2D 82 3A 82 3A 89 33 37 30 30 00 C2 1E 18 2E |.-.:.:.3700.....| 000016A0: 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |. --------------| 000016B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000016C0: 2D 2D 00 E8 1E 7C 2E 8F 20 54 45 58 54 20 43 45 |--...|.. TEXT CE| 000016D0: 4E 54 45 52 49 4E 47 20 52 4F 55 54 49 4E 45 20 |NTERING ROUTINE | 000016E0: 55 53 49 4E 47 20 4D 24 00 21 1F E0 2E 44 43 24 |USING M$.!...DC$| 000016F0: B2 22 22 3A 81 58 B2 31 A4 C3 28 4D 24 29 3A 44 |."":.X.1..(M$):D| 00001700: 43 24 B2 44 43 24 AA C7 28 C6 28 CA 28 4D 24 2C |C$.DC$..(.(.(M$,| 00001710: 58 2C 31 29 29 AB 31 29 3A 82 3A 4D 24 B2 44 43 |X,1)).1):.:M$.DC| 00001720: 24 00 50 1F 44 2F 81 42 42 B2 31 A4 B5 28 28 34 |$.P.D/.BB.1..((4| 00001730: 30 AB C3 28 4D 24 29 29 AD 32 AA 2E 35 29 3A 4D |0..(M$)).2..5):M| 00001740: 24 B2 22 20 22 AA 4D 24 3A 82 3A 99 4D 24 3A 8E |$." ".M$:.:.M$:.| 00001750: 00 77 1F A8 2F 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D |.w../. ---------| 00001760: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001770: 2D 2D 2D 2D 2D 2D 2D 00 CC 1F 0C 30 99 22 93 9A |-------....0."..| 00001780: 11 11 22 3A 4D 24 B2 22 C3 48 4F 4F 53 45 20 4F |..":M$.".HOOSE O| 00001790: 4E 45 20 4F 46 20 54 48 45 20 46 4F 4C 4C 4F 57 |NE OF THE FOLLOW| 000017A0: 49 4E 47 20 43 4F 4C 4F 52 53 22 3A 8D 31 32 31 |ING COLORS":.121| 000017B0: 30 30 3A 4D 24 B2 22 46 4F 52 20 54 48 45 20 50 |00:M$."FOR THE P| 000017C0: 4C 4F 54 3A 22 3A 8D 31 32 31 30 30 00 FD 1F 70 |LOT:":.12100...p| 000017D0: 30 4D 24 B2 22 31 29 20 05 D7 48 49 54 45 20 20 |0M$."1) ..HITE | 000017E0: 20 20 20 20 20 20 20 20 20 20 9A 35 29 20 1F C2 | .5) ..| 000017F0: 4C 55 45 20 20 22 3A 8D 31 32 31 30 30 00 2F 20 |LUE ":.12100./ | 00001800: D4 30 4D 24 B2 22 9A 32 29 20 1C D2 45 44 20 20 |.0M$.".2) ..ED | 00001810: 20 20 20 20 20 20 20 20 20 20 20 20 9A 36 29 20 | .6) | 00001820: 9F C3 59 41 4E 20 20 22 3A 8D 31 32 31 30 30 00 |..YAN ":.12100.| 00001830: 61 20 38 31 4D 24 B2 22 9A 33 29 20 1E C7 52 45 |a 81M$.".3) ..RE| 00001840: 45 4E 20 20 20 20 20 20 20 20 20 20 20 20 9A 37 |EN .7| 00001850: 29 20 9E D9 45 4C 4C 4F 57 22 3A 8D 31 32 31 30 |) ..ELLOW":.1210| 00001860: 30 00 93 20 9C 31 4D 24 B2 22 9A 34 29 20 99 CC |0.. .1M$.".4) ..| 00001870: 49 47 48 54 20 C7 52 45 45 4E 20 20 20 20 20 20 |IGHT .REEN | 00001880: 9A 38 29 20 81 CF 52 41 4E 47 45 22 3A 8D 31 32 |.8) ..RANGE":.12| 00001890: 31 30 30 00 B2 20 00 32 4D 24 B2 22 9A 39 29 20 |100.. .2M$.".9) | 000018A0: CC 49 47 48 54 20 C2 4C 55 45 22 3A 8D 31 32 31 |.IGHT .LUE":.121| 000018B0: 30 30 00 D0 20 64 32 A1 F9 41 24 3A 8B 41 24 B3 |00.. d2..A$:.A$.| 000018C0: 22 31 22 B0 41 24 B1 22 39 22 A7 31 32 39 30 30 |"1".A$."9".12900| 000018D0: 00 DE 20 C8 32 4D 42 B2 30 3A 42 42 B2 30 00 0C |.. .2MB.0:BB.0..| 000018E0: 21 2C 33 8C 31 33 32 30 30 3A EB 20 FC 20 4D 42 |!,3.13200:. . MB| 000018F0: B2 C5 28 41 24 29 3A 87 42 42 3A E7 31 2C 42 42 |..(A$):.BB:.1,BB| 00001900: 3A 4D 42 B2 4D 42 AA 31 3A EC 3A 8E 00 25 21 90 |:MB.MB.1:.:..%!.| 00001910: 33 83 32 2C 33 2C 36 2C 31 34 2C 37 2C 34 2C 38 |3.2,3,6,14,7,4,8| 00001920: 2C 39 2C 31 35 00 00 00 |,9,15... |
.._.D.. IP.1..:.3800:UIP.1:.0,7:.4,7:.5,
2:. SET INITIAL BORDER, BACKGROUND AND C
HARACTER COLORS..H..1,"1":.3,"2":.5,"3"
:.7,"4".W.,..:.X.1.8:..X,0:.:.G(14):.G(8
):. CLEAR THE SCREEN AND SPRITES AND LOC
K IN LOWER-CASE.\...M$."ISOMETRIC SURFAC
E PLOTTER PROGRAM":.12100:.".":M$."- A U
TILITY DEMONSTRATION FOR THE -":.12100:M
$."- COMMODORE 128 -":.12100......600:SP
$."":.X.1.67:.Y:SP$.SP$.G(Y):.:..SP$,8:.
SPRITE DATA FOR LOGO.+.X..240,255,255,2
40,255,255,240,255,255,240,240,15,240,24
0,15,240,240,15,240,255,15,240,255,15,24
0,255,15,240,0,15,240,0,15,240,0,15.....
.240,255,15,240,255,15,240,255,15,240,15
,15,240,15,15,240,15,15,255,255,15,255,2
55,15,255,255,15,23,0,20,0.B. ...8,0,2,1
,1,1,0:..8,164,120:..8,1,2.:....".......
..":M$."CSVDF!CPXEFO!IFVSJTUJDT":.11900:
M$."4221C!MBXOEBMF!ESJWF":.11900:M$."HSF
FOTCPSP-!OD!!38519":.11900....M$."DPNQV
TFSWF!JE!$85287-3255":.11900:M$."BOE!833
38-3215":.11900...L..15:..0,4,9,0,9,1:..
10......."V1O5IGV2O3SGO4SESCV1O5SASBV2O4
SEO3SGV1O6QCV2O4SESCSEO3SGV1O6SC".......
"V1O5SBV2O4SEV1O5SAV2O4SCV1O5SGV2O4SE".G
.X..."V1O5SFV2O3SGV1O5SEV2O4SEV1O5SDV2O4
SCV1O5SCV2O4SE"......."V1O5SEV2O3SGV1O5S
DV2O4SESBSEO3SGO4SESBSEO3SGO4SESBSEO3SGO
4SESBV1O5SCSDV2O4SE".O.@..."V1O4QCV2O3QE
V3O3QCV2O4QCV3O3QCV2O3HCV3O2HD"......"."
:.5,1:.8700.......8,0:..8,315,220:.0,1:.
4,1:.5,15:..8,1,7,1,0,0.>.L.. ----------
----------------------...P.."..":M$."PRE
SS ".G(34)."I".G(34)." TO SEE THE INTROD
UCTION":.12100:M$."(ANY OTHER KEY FOR MA
IN PROGRAM)":.12100.J.4...A$:.A$.."I".29
00.6...."..":M$."THE ISOMETRIC SURFACE P
LOTTER PROGRAM":.12100:M$."PRESENTS A HI
GH-RESOLUTION GRID MAP":.12100.....M$."O
F THREE-DIMENSIONAL FUNCTIONS WHERE":.12
100:M$."Z IS A FUNCTION OF X AND Y":.121
00...`.M$."IN THE NORMAL CARTESIAN COORD
INATE":.12100:M$."SYSTEM. WHEN PROMPTED
FOR THE FORMULA,":.12100.].D.M$."SIMPLY
MODIFY THE FORMULA LINE, WHICH":.12100:M
$."IS LISTED TO THE SCREEN. NON-BASIC":.
12100...(.M$."FUNCTIONS ARE GIVEN AS WEL
L.":.12100:M$."THERE WILL BE SOME DELAY
WHILE THE":.12100.8...M$."PLOT IS BEING
SCALED TO SCREEN":.12100:M$."DIMENSIONS.
THE PLOT IS RECALCULATED":.12100:M$."WH
ILE BEING DRAWN.":.12100.H...."..":.8700
...T..:."..":M$."TO SEE A DEMO, PRESS D.
":.12100:M$."OTHERWISE, PRESS ANY KEY TO
CONTINUE.":.12100.......A$:.A$."D".3400
.A....:."..":M$."TO LOAD AN ALREADY SAVE
D PICTURE,":.12100:M$."PRESS L.":.12100:
M$."OTHERWISE, PRESS ANY KEY TO CONTINUE
.":.12100.X.....A$:.A$.."L".8800......".
..WHAT IS THE PICTURE NAME?":.NA$:.1,1:.
NA$,8,1...H..12200:O.23.888:T..2009:U.11
.6967:L..12.1914:R.20.0918:A..R:M2.12:M1
..12:M3..12:M4.12:.10600.....Z..(.(X.X.Y
.Y)).......&.T.. RETURN TO MAIN MEMORY.D
.X.Z1,9000,40,2,10000,1:.1,8,24,"PRESS A
NY KEY TO RECOVER",0.P.<...A$:.0... ..".
..":M$."USE THE FUNCTION KEYS:":.12100..
...."..F1 *** SEE THE PICTURE AGAIN":.".
.F3 *** SEND THE PICTURE TO THE PRINTER"
:."..F5 *** NEW ROUTINE".).H.."..F7 ***
SAVE THE PICTURE".2.L...A$.J.0..A$."1".A
$."4".4300.J.... E(A$).4600,5200,4700,48
00.W....1:.3900.}.\...D...."....WHAT NAM
E WOULD YOU LIKE TO SAVE THE PICTURE
UNDER?":.NA$...$...(NA$),D0,U8,B0,P8193.
P16191......4000......"..":M$."PLEASE ST
ANDBY":.12100:..7.P.. THE PRINTOUT ROUTI
NE HERE.H...."..........................
..............."......".. PLEASE INSUR
E THAT YOUR PRINTER ..":.".. IS OF
THE COMMODORE MPS TYPE ..":.".. A
ND IS CONFIGURED AS DEVICE 4 ..".#.|.
."......................................
.."......:M$."TO ABORT THIS SELECTION, P
RESS A":.12100:M$."OTHERWISE, ANY OTHER
KEY TO CONTINUE":.12100...D...A$:.A$."A"
.4000......"...WHAT MESSAGE WOULD YOU LI
KE ON THE PRINTOUT? (LESS THAN 40 C
HARACTERS)":.A$......A$."".A$."BRUCE BOW
DEN HEURISTICS".L.P.Y..((39.C(A$)).2):.X
.1.Y:A$." ".A$." ":..W.T.. C(A$).39.Y.C(
A$):.X.Y.39:A$.A$." ":....8..1:.1,1,24,A
$,0:..2:.0......"...":M$."PRINTING THE P
ICTURE NOW...":.12100:.".....":M$."STAND
BY PLEASE...":.12100......3,4:.X1.8511.8
199..8.:.D..Y1.X1.16191.8.(8..((X1.8191)
.40..5)).320:A$."".I.H..Z1.Y1.8.Y1:WW.B(
Z1).128:.B(Z1).128.WW.192...,.A$.A$.G(WW
):.:.3,G(8)A$;:.:.3:.......3,G(15): 3:.8
700......1:.1,1,24," PRESS ANY KEY
TO RECOVER ",0:..1:.0:.4000...X..
8700:......."..":M$."ARCSIN = FNAS(X)":.
12100.>. .M$."ARCCOS = FNAC(X)":.12100.]
...M$."TANH = FNHT(X)":.12100.|...M$."CO
SH = FNHC(X)":.12100...L.M$."SINH = FNHS
(X)":.12100.....M$."ARCSINH = FNH1(X)":.
12100.....M$."ARCCOSH = FNH2(X)":.12100.
..X.M$."ARCTANH = FNH3(X)":.12100:......
. .AS(X).A(X..(1.X.X)).E.@.. .AC(X).A(.(
1.X.X).X)..(.(X).1)...I.... .HT(X)..(.X)
.(.(X)..(.X)).2.1.... . .HC(X).(.(X)..(.
X)).2...L . .HS(X).(.(X)..(.X)).2...P .
.H1(X)..(X..(X.X.1)).W.4!. .H2(X)..(X..(
X.X.1))....!. .H3(X)..((1.X).(1.X)).2:..
*..!M$."PRESS ANY KEY TO CONTINUE":.1210
0:..A$:.:..D.`"."..":M$.". ISOMETRIC SUR
FACE PLOTTER ":.12100:."..".H.D"M$."REP
RESENT THE FUNCTION AT LINE 3500":.12100
:M$."THEN ".G(34)."GOTO 9200".G(34):.121
00:.7100.T.(#.3500:..Z..#.3500:. THIS IS
THE ADDRESS CHANGE UTILITY LINE. CHANGE
THE 3500S ABOVE TO THE NEW NUMBER AND T
HE GOTO 9200 TO GOTO THE NEXT LINE....#.
7900:.12200:.:."....":." WHAT IS THE
MINIMUM X VALUE";M1.G.T$." WHAT IS
THE MAXIMUM X VALUE";M2....$." WHAT
IS THE MINIMUM Y VALUE";M3....%." WH
AT IS THE MAXIMUM Y VALUE";M4.;..%.5100:
L.1E20:U..L:A.L:R.U.Z..%CB.961:.X.M1.M2.
(M2.M1).30...H&.Y.M3.M4.(M4.M3).30:CB.CB
.1:.".."....&CB$.D(CB):.". ONLY".CB
$." MORE STEPS TO GO! ....".T..'.3500:
Z.Z.(X.Y)..5...T'.L.Z.L.Z...X'.U.Z.U.Z..
.<(C.(Y.X)..(..6):.A.C.A.C... (.R.C.R.C.
F..).:.:O.U.L:T.(R.A).200:Z1,9000,40,2,1
0000,1.T.H).".":.1,1.L.L).X.M1.M2.(M2.M1
).30...0*.Y.M3.M4.(M4.M3).30....*.3500:Z
.Z.(X.Y)..5.L..*Y2.199.199.(Z.L).O:X2.1.
6.((Y.X)..(..6).A).T...\+HO.X:X.X.(M2.M1
).30:.3500....+Z.Z.(X.Y)..5.1.$,LY.199.1
99.(Z.L).O:LX.1.6.((Y.X)..(..6).A).T:X.H
O.W..,.Y..M3..1,.(X1),.(Y1)..(X2),.(Y2).
}..,.X..M1..1,.(LX),.(LY)..(X2),.(Y2)...
P-X1.X2:Y1.Y2....-.:.:.3700.B.... ------
--------------------------...|.. TEXT CE
NTERING ROUTINE USING M$.!...DC$."":.X.1
.C(M$):DC$.DC$.G(F(J(M$,X,1)).1):.:M$.DC
$.P.D/.BB.1..((40.C(M$)).2..5):M$." ".M$
:.:.M$:..W../. -------------------------
-------.L..0."....":M$."CHOOSE ONE OF TH
E FOLLOWING COLORS":.12100:M$."FOR THE P
LOT:":.12100...P0M$."1) .WHITE
.5) .BLUE ":.12100./ T0M$.".2) .RED
.6) .CYAN ":.12100.A 81M$."
.3) .GREEN .7) .YELLOW":.1210
0.. .1M$.".4) .LIGHT GREEN .8) .ORA
NGE":.12100.. .2M$.".9) LIGHT BLUE":.121
00.P D2..A$:.A$."1".A$."9".12900.. H2MB.
0:BB.0..!,3.13200:. . MB.E(A$):.BB:.1,BB
:MB.MB.1:.:..%!.3.2,3,6,14,7,4,8,9,15...
> CLICK IMAGE PREVIEW FOR FULL MODAL