PROGRAM BASE
FILE INFORMATION
FILENAME(S): PROGRAM BASE
FILE TYPE(S): PRG
FILE SIZE: 3.4K
FIRST SEEN: 2025-11-30 21:21:35
APPEARS ON: 1 disk(s)
FILE HASH
a09bf81fc0c587c76db7aebd12c3eab35c1373dbbf3f6f09769f546645504252
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ARNOLD | PROGRAM BASE | PRG | DuncanTwain | 11 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 4E 08 02 00 8F 20 20 50 52 4F 47 52 41 4D |..N.... PROGRAM|
00000010: 20 42 41 53 45 20 2D 20 50 52 4F 56 49 44 45 20 | BASE - PROVIDE |
00000020: 4D 4E 45 4D 4F 4E 49 43 20 56 41 52 49 41 42 4C |MNEMONIC VARIABL|
00000030: 45 53 20 46 4F 52 20 47 52 41 50 48 49 43 20 46 |ES FOR GRAPHIC F|
00000040: 55 4E 54 49 4F 4E 53 2F 53 54 59 4C 45 53 00 94 |UNTIONS/STYLES..|
00000050: 08 04 00 8F 20 20 41 4E 44 20 44 45 46 49 4E 45 |.... AND DEFINE|
00000060: 20 53 55 42 52 4F 55 54 49 4E 45 53 20 46 4F 52 | SUBROUTINES FOR|
00000070: 20 41 44 44 49 4E 47 20 43 4F 4C 4F 52 2F 54 45 | ADDING COLOR/TE|
00000080: 58 54 20 54 4F 20 47 52 41 50 48 49 43 20 49 4D |XT TO GRAPHIC IM|
00000090: 41 47 45 2E 00 BD 08 06 00 8F 20 20 20 20 20 52 |AGE....... R|
000000A0: 49 43 48 41 52 44 20 4C 2E 20 52 59 4C 41 4E 44 |ICHARD L. RYLAND|
000000B0: 45 52 20 20 20 20 34 2F 31 35 2F 38 35 00 C3 08 |ER 4/15/85...|
000000C0: 08 00 3A 00 E4 08 0A 00 47 52 B2 34 39 33 37 38 |..:.....GR.49378|
000000D0: 20 20 20 20 3A 8F 20 47 52 41 50 48 49 43 53 20 | :. GRAPHICS |
000000E0: 4D 4F 44 45 00 01 09 0C 00 54 58 B2 34 39 34 31 |MODE.....TX.4941|
000000F0: 31 20 20 20 20 3A 8F 20 54 45 58 54 20 4D 4F 44 |1 :. TEXT MOD|
00000100: 45 00 07 09 0E 00 3A 00 25 09 10 00 4C 42 B2 38 |E.....:.%...LB.8|
00000110: 39 33 20 20 20 20 20 20 3A 8F 20 4C 45 46 54 20 |93 :. LEFT |
00000120: 42 4F 55 4E 44 00 44 09 12 00 52 42 B2 38 39 34 |BOUND.D...RB.894|
00000130: 20 20 20 20 20 20 3A 8F 20 52 49 47 48 54 20 42 | :. RIGHT B|
00000140: 4F 55 4E 44 00 5F 09 14 00 55 42 B2 38 39 35 20 |OUND._...UB.895 |
00000150: 20 20 20 20 3A 8F 20 55 50 20 42 4F 55 4E 44 00 | :. UP BOUND.|
00000160: 7C 09 16 00 44 42 B2 38 39 36 20 20 20 20 20 3A ||...DB.896 :|
00000170: 8F 20 44 4F 57 4E 20 42 4F 55 4E 44 00 82 09 18 |. DOWN BOUND....|
00000180: 00 3A 00 AA 09 1A 00 8F 20 20 20 46 4C 41 47 53 |.:...... FLAGS|
00000190: 20 46 4F 52 20 56 41 52 49 4F 55 53 20 44 52 41 | FOR VARIOUS DRA|
000001A0: 57 49 4E 47 20 4D 4F 44 45 53 00 B0 09 1C 00 3A |WING MODES.....:|
000001B0: 00 E5 09 1E 00 53 48 B2 38 33 38 20 20 20 20 20 |.....SH.838 |
000001C0: 3A 8F 20 53 48 41 44 45 20 53 54 59 4C 45 20 2D |:. SHADE STYLE -|
000001D0: 20 30 3D 52 41 4E 44 4F 4D 2C 20 31 3D 48 41 4C | 0=RANDOM, 1=HAL|
000001E0: 46 54 4F 4E 45 00 33 0A 20 00 53 43 B2 38 33 39 |FTONE.3. .SC.839|
000001F0: 20 20 20 20 20 3A 8F 20 53 43 41 4C 49 4E 47 20 | :. SCALING |
00000200: 2D 20 30 3D 4E 4F 52 4D 41 4C 20 28 31 3A 31 29 |- 0=NORMAL (1:1)|
00000210: 2C 20 31 3D 53 43 41 4C 45 44 20 28 33 3A 34 29 |, 1=SCALED (3:4)|
00000220: 20 46 4F 52 20 53 43 52 45 45 4E 20 44 49 53 50 | FOR SCREEN DISP|
00000230: 4C 41 59 00 7F 0A 22 00 4C 54 B2 38 39 38 20 20 |LAY...".LT.898 |
00000240: 20 20 20 3A 8F 20 4C 49 47 48 54 49 4E 47 20 2D | :. LIGHTING -|
00000250: 20 30 3D 4E 4F 52 4D 41 4C 20 53 49 4E 47 4C 45 | 0=NORMAL SINGLE|
00000260: 2D 53 4F 55 52 43 45 2C 20 31 3D 42 41 43 4B 4C |-SOURCE, 1=BACKL|
00000270: 49 54 20 49 4C 4C 55 4D 49 4E 41 54 49 4F 4E 00 |IT ILLUMINATION.|
00000280: B9 0A 24 00 4D 4F B2 38 37 31 20 20 20 20 20 3A |..$.MO.871 :|
00000290: 8F 20 20 46 41 43 45 54 20 45 44 47 45 2F 4C 49 |. FACET EDGE/LI|
000002A0: 4E 45 20 4D 4F 44 45 20 2D 20 30 3D 44 52 41 57 |NE MODE - 0=DRAW|
000002B0: 2C 20 31 3D 45 52 41 53 45 00 FE 0A 26 00 45 47 |, 1=ERASE...&.EG|
000002C0: B2 38 36 38 20 20 20 20 20 3A 8F 20 20 45 44 47 |.868 :. EDG|
000002D0: 45 53 20 46 4C 41 47 20 2D 20 30 3D 4E 4F 52 4D |ES FLAG - 0=NORM|
000002E0: 41 4C 2C 20 31 3D 41 44 44 20 4C 49 4E 45 53 20 |AL, 1=ADD LINES |
000002F0: 54 4F 20 46 41 43 45 54 20 45 44 47 45 53 00 04 |TO FACET EDGES..|
00000300: 0B 28 00 3A 00 24 0B 2A 00 42 4F B2 35 33 32 38 |.(.:.$.*.BO.5328|
00000310: 30 20 20 20 3A 8F 20 20 42 4F 52 44 45 52 20 43 |0 :. BORDER C|
00000320: 4F 4C 4F 52 00 2A 0B 2C 00 3A 00 45 0B 2E 00 8F |OLOR.*.,.:.E....|
00000330: 20 20 20 46 55 4E 43 54 49 4F 4E 20 4C 4F 43 41 | FUNCTION LOCA|
00000340: 54 49 4F 4E 53 00 4B 0B 30 00 3A 00 6F 0B 32 00 |TIONS.K.0.:.o.2.|
00000350: 43 4C B2 35 31 39 37 39 20 20 20 3A 8F 20 43 4C |CL.51979 :. CL|
00000360: 45 41 52 20 42 49 54 4D 41 50 20 41 52 45 41 00 |EAR BITMAP AREA.|
00000370: 90 0B 34 00 43 4F B2 35 32 30 30 31 20 20 20 3A |..4.CO.52001 :|
00000380: 8F 20 46 49 4C 4C 20 43 4F 4C 4F 52 20 4D 41 50 |. FILL COLOR MAP|
00000390: 00 96 0B 36 00 3A 00 BD 0B 38 00 50 4C B2 35 32 |...6.:...8.PL.52|
000003A0: 30 32 33 20 20 20 3A 8F 20 20 50 4C 4F 54 20 41 |023 :. PLOT A|
000003B0: 20 53 49 4E 47 4C 45 20 50 4F 49 4E 54 00 D7 0B | SINGLE POINT...|
000003C0: 3A 00 55 4E B2 35 32 30 32 36 20 20 20 3A 8F 20 |:.UN.52026 :. |
000003D0: 20 55 4E 50 4C 4F 54 00 DD 0B 3C 00 3A 00 05 0C | UNPLOT...<.:...|
000003E0: 3E 00 4C 4E B2 35 32 30 34 39 20 20 20 3A 8F 20 |>.LN.52049 :. |
000003F0: 20 44 52 41 57 20 41 20 53 54 52 41 49 47 48 54 | DRAW A STRAIGHT|
00000400: 20 4C 49 4E 45 00 37 0C 40 00 46 43 B2 35 32 30 | LINE.7.@.FC.520|
00000410: 35 32 20 20 20 3A 8F 20 20 44 52 41 57 20 41 20 |52 :. DRAW A |
00000420: 53 48 41 44 45 44 20 54 52 49 41 4E 47 55 4C 41 |SHADED TRIANGULA|
00000430: 52 20 46 41 43 45 54 00 3D 0C 42 00 3A 00 57 0C |R FACET.=.B.:.W.|
00000440: 44 00 53 50 B2 35 32 31 31 39 20 20 20 3A 8F 20 |D.SP.52119 :. |
00000450: 20 53 50 48 45 52 45 00 7A 0C 46 00 54 52 B2 35 | SPHERE.z.F.TR.5|
00000460: 32 31 34 31 20 20 20 3A 8F 20 20 54 4F 50 2D 56 |2141 :. TOP-V|
00000470: 49 45 57 20 54 4F 52 4F 49 44 00 A6 0C 48 00 56 |IEW TOROID...H.V|
00000480: 43 B2 35 32 31 35 30 20 20 20 3A 8F 20 20 43 59 |C.52150 :. CY|
00000490: 4C 49 4E 44 45 52 20 28 41 58 49 53 20 56 45 52 |LINDER (AXIS VER|
000004A0: 54 49 43 41 4C 29 00 D4 0C 4A 00 48 43 B2 35 32 |TICAL)...J.HC.52|
000004B0: 31 35 33 20 20 20 3A 8F 20 20 43 59 4C 49 4E 44 |153 :. CYLIND|
000004C0: 45 52 20 28 41 58 49 53 20 48 4F 52 49 5A 4F 4E |ER (AXIS HORIZON|
000004D0: 54 41 4C 29 00 08 0D 4C 00 56 54 B2 35 32 31 38 |TAL)...L.VT.5218|
000004E0: 36 20 20 20 3A 8F 20 20 45 44 47 45 2D 56 49 45 |6 :. EDGE-VIE|
000004F0: 57 20 54 4F 52 4F 49 44 20 28 41 58 49 53 20 56 |W TOROID (AXIS V|
00000500: 45 52 54 49 43 41 4C 29 00 3E 0D 4E 00 48 54 B2 |ERTICAL).>.N.HT.|
00000510: 35 32 31 38 39 20 20 20 3A 8F 20 20 45 44 47 45 |52189 :. EDGE|
00000520: 2D 56 49 45 57 20 54 4F 52 4F 49 44 20 28 41 58 |-VIEW TOROID (AX|
00000530: 49 53 20 48 4F 52 49 5A 4F 4E 54 41 4C 29 00 7E |IS HORIZONTAL).~|
00000540: 0D 50 00 56 53 B2 35 32 32 30 33 20 20 20 3A 8F |.P.VS.52203 :.|
00000550: 20 20 49 4E 53 49 44 45 2D 56 49 45 57 20 54 4F | INSIDE-VIEW TO|
00000560: 52 4F 49 44 20 5B 22 53 50 4F 4F 4C 22 5D 20 28 |ROID ["SPOOL"] (|
00000570: 41 58 49 53 20 56 45 52 54 49 43 41 4C 29 00 C0 |AXIS VERTICAL)..|
00000580: 0D 52 00 48 53 B2 35 32 32 30 36 20 20 20 3A 8F |.R.HS.52206 :.|
00000590: 20 20 49 4E 53 49 44 45 2D 56 49 45 57 20 54 4F | INSIDE-VIEW TO|
000005A0: 52 4F 49 44 20 5B 22 53 50 4F 4F 4C 22 5D 20 28 |ROID ["SPOOL"] (|
000005B0: 41 58 49 53 20 48 4F 52 49 5A 4F 4E 54 41 4C 29 |AXIS HORIZONTAL)|
000005C0: 00 C6 0D 54 00 3A 00 06 0E 56 00 8F 20 20 53 4B |...T.:...V.. SK|
000005D0: 49 50 20 4F 56 45 52 20 27 43 4F 4C 4F 52 27 20 |IP OVER 'COLOR' |
000005E0: 41 4E 44 20 27 54 45 58 54 27 20 53 55 42 52 4F |AND 'TEXT' SUBRO|
000005F0: 55 54 49 4E 45 53 20 54 4F 20 4D 41 49 4E 20 50 |UTINES TO MAIN P|
00000600: 52 4F 47 52 41 4D 00 10 0E 58 00 89 20 31 38 32 |ROGRAM...X.. 182|
00000610: 00 16 0E 5A 00 3A 00 52 0E 5C 00 8F 20 53 55 42 |...Z.:.R.\.. SUB|
00000620: 52 4F 55 54 49 4E 45 20 46 4F 52 20 41 44 44 49 |ROUTINE FOR ADDI|
00000630: 4E 47 20 43 4F 4C 4F 52 20 54 4F 20 44 49 46 46 |NG COLOR TO DIFF|
00000640: 45 52 45 4E 54 20 53 43 52 45 45 4E 20 41 52 45 |ERENT SCREEN ARE|
00000650: 41 53 00 9F 0E 5E 00 8F 20 52 45 4D 45 4D 42 45 |AS...^.. REMEMBE|
00000660: 52 20 54 48 41 54 20 43 4F 4C 4F 52 20 42 4F 55 |R THAT COLOR BOU|
00000670: 4E 44 41 52 49 45 53 20 4D 55 53 54 20 43 4F 52 |NDARIES MUST COR|
00000680: 52 45 53 50 4F 4E 44 20 54 4F 20 43 48 41 52 41 |RESPOND TO CHARA|
00000690: 43 54 45 52 20 42 4F 55 4E 44 41 52 49 45 53 00 |CTER BOUNDARIES.|
000006A0: E9 0E 60 00 8F 20 44 45 46 49 4E 45 20 41 20 52 |..`.. DEFINE A R|
000006B0: 45 43 54 41 4E 47 55 4C 41 52 20 41 52 45 41 20 |ECTANGULAR AREA |
000006C0: 42 59 20 4C 4F 57 45 52 2D 4C 45 46 54 20 41 4E |BY LOWER-LEFT AN|
000006D0: 44 20 55 50 50 45 52 2D 52 49 47 48 54 20 43 4F |D UPPER-RIGHT CO|
000006E0: 4F 52 44 49 4E 41 54 45 53 00 23 0F 62 00 8F 20 |ORDINATES.#.b.. |
000006F0: 28 58 31 2C 59 31 29 3D 4C 4F 57 45 52 2D 4C 45 |(X1,Y1)=LOWER-LE|
00000700: 46 54 20 50 4F 49 4E 54 2C 20 28 58 32 2C 59 32 |FT POINT, (X2,Y2|
00000710: 29 3D 55 50 50 45 52 2D 52 49 47 48 54 20 50 4F |)=UPPER-RIGHT PO|
00000720: 49 4E 54 00 6C 0F 64 00 8F 20 54 48 45 20 43 4F |INT.l.d.. THE CO|
00000730: 52 4E 45 52 20 50 4F 49 4E 54 53 20 43 41 4E 20 |RNER POINTS CAN |
00000740: 42 45 20 41 52 42 49 54 52 41 52 59 20 42 55 54 |BE ARBITRARY BUT|
00000750: 20 43 4F 4C 4F 52 20 43 48 41 4E 47 45 20 57 49 | COLOR CHANGE WI|
00000760: 4C 4C 20 42 45 20 49 4E 20 54 48 45 00 B7 0F 66 |LL BE IN THE...f|
00000770: 00 8F 20 53 4D 41 4C 4C 45 53 54 20 43 48 41 52 |.. SMALLEST CHAR|
00000780: 41 43 54 45 52 2D 43 45 4C 4C 20 42 4F 55 4E 44 |ACTER-CELL BOUND|
00000790: 45 44 20 52 45 43 54 41 4E 47 4C 45 20 54 48 41 |ED RECTANGLE THA|
000007A0: 54 20 49 4E 43 4C 55 44 45 53 20 54 48 4F 53 45 |T INCLUDES THOSE|
000007B0: 20 50 4F 49 4E 54 53 00 F5 0F 68 00 8F 20 20 59 | POINTS...h.. Y|
000007C0: 2D 43 4F 4F 52 44 49 4E 41 54 45 53 20 4D 55 53 |-COORDINATES MUS|
000007D0: 54 20 42 45 20 22 55 4E 53 43 41 4C 45 44 22 20 |T BE "UNSCALED" |
000007E0: 49 46 20 53 43 41 4C 45 20 46 4C 41 47 20 49 53 |IF SCALE FLAG IS|
000007F0: 20 53 45 54 3A 00 26 10 6A 00 8B 20 C2 28 53 43 | SET:.&.j.. .(SC|
00000800: 29 A7 20 59 31 B2 28 59 31 AA 31 29 AC 32 31 33 |). Y1.(Y1.1).213|
00000810: AD 32 35 36 3A 59 32 B2 28 59 32 AA 31 29 AC 32 |.256:Y2.(Y2.1).2|
00000820: 31 33 AD 32 35 36 00 6B 10 6C 00 8F 20 43 4F 4C |13.256.k.l.. COL|
00000830: 4F 52 20 54 4F 20 42 45 20 50 4F 4B 45 44 20 49 |OR TO BE POKED I|
00000840: 4E 20 49 53 20 47 49 56 45 4E 20 42 59 20 56 41 |N IS GIVEN BY VA|
00000850: 52 49 41 42 4C 45 20 43 43 3D 22 43 4F 4D 50 4F |RIABLE CC="COMPO|
00000860: 53 49 54 45 20 43 4F 4C 4F 52 22 00 B1 10 6E 00 |SITE COLOR"...n.|
00000870: 8F 20 57 48 45 52 45 20 43 43 3D 31 36 2A 44 43 |. WHERE CC=16*DC|
00000880: 20 2B 20 42 43 20 5B 44 43 3D 44 4F 54 20 43 4F | + BC [DC=DOT CO|
00000890: 4C 4F 52 2C 20 42 43 3D 42 41 43 4B 47 52 4F 55 |LOR, BC=BACKGROU|
000008A0: 4E 44 20 43 4F 4C 4F 52 20 4E 55 4D 42 45 52 53 |ND COLOR NUMBERS|
000008B0: 5D 00 C1 10 70 00 43 43 B2 31 36 AC 44 43 AA 42 |]...p.CC.16.DC.B|
000008C0: 43 00 DC 10 72 00 81 20 49 58 B2 B5 28 58 31 AD |C...r.. IX..(X1.|
000008D0: 38 29 20 A4 20 B5 28 58 32 AD 38 29 00 F7 10 74 |8) . .(X2.8)...t|
000008E0: 00 81 20 49 59 B2 B5 28 59 31 AD 38 29 20 A4 20 |.. IY..(Y1.8) . |
000008F0: B5 28 59 32 AD 38 29 00 0F 11 76 00 97 20 33 34 |.(Y2.8)...v.. 34|
00000900: 37 35 32 AA 49 58 AB 34 30 AC 49 59 2C 43 43 00 |752.IX.40.IY,CC.|
00000910: 19 11 78 00 82 3A 82 3A 8E 00 1F 11 7A 00 3A 00 |..x..:.:....z.:.|
00000920: 4F 11 7C 00 8F 20 53 55 42 52 4F 55 54 49 4E 45 |O.|.. SUBROUTINE|
00000930: 20 54 4F 20 41 44 44 20 54 45 58 54 20 54 4F 20 | TO ADD TEXT TO |
00000940: 47 52 41 50 48 49 43 20 53 43 52 45 45 4E 2E 00 |GRAPHIC SCREEN..|
00000950: 9C 11 7E 00 8F 20 22 52 57 22 20 41 4E 44 20 22 |..~.. "RW" AND "|
00000960: 43 4D 22 20 41 52 45 20 54 48 45 20 52 4F 57 20 |CM" ARE THE ROW |
00000970: 28 30 2D 32 34 29 20 41 4E 44 20 43 4F 4C 55 4D |(0-24) AND COLUM|
00000980: 4E 20 28 30 2D 33 39 29 20 43 4F 4F 52 44 49 4E |N (0-39) COORDIN|
00000990: 41 54 45 53 20 46 4F 52 20 54 48 45 00 D1 11 80 |ATES FOR THE....|
000009A0: 00 8F 20 46 49 52 53 54 20 4C 45 54 54 45 52 20 |.. FIRST LETTER |
000009B0: 4F 46 20 54 48 45 20 54 45 58 54 20 53 54 52 49 |OF THE TEXT STRI|
000009C0: 4E 47 20 54 4F 20 42 45 20 50 52 49 4E 54 45 44 |NG TO BE PRINTED|
000009D0: 2E 00 03 12 82 00 8F 20 54 48 45 20 54 45 58 54 |....... THE TEXT|
000009E0: 20 53 54 52 49 4E 47 20 49 54 53 45 4C 46 20 49 | STRING ITSELF I|
000009F0: 53 20 41 53 53 49 47 4E 45 44 20 54 4F 20 22 41 |S ASSIGNED TO "A|
00000A00: 24 22 2E 00 44 12 84 00 8F 20 22 4D 44 22 20 49 |$"..D.... "MD" I|
00000A10: 53 20 54 48 45 20 4D 4F 44 45 20 46 4F 52 20 54 |S THE MODE FOR T|
00000A20: 48 45 20 50 52 49 4E 54 49 4E 47 2E 20 46 49 56 |HE PRINTING. FIV|
00000A30: 45 20 4D 4F 44 45 53 20 41 52 45 20 41 4C 4C 4F |E MODES ARE ALLO|
00000A40: 57 45 44 3A 00 7E 12 86 00 8F 20 20 31 20 2D 20 |WED:.~.... 1 - |
00000A50: 4E 4F 52 4D 41 4C 20 28 22 42 4C 41 43 4B 22 20 |NORMAL ("BLACK" |
00000A60: 4C 45 54 54 45 52 53 20 4F 4E 20 22 57 48 49 54 |LETTERS ON "WHIT|
00000A70: 45 22 20 42 41 43 4B 47 52 4F 55 4E 44 29 00 BA |E" BACKGROUND)..|
00000A80: 12 88 00 8F 20 20 32 20 2D 20 52 45 56 45 52 53 |.... 2 - REVERS|
00000A90: 45 44 20 28 22 57 48 49 54 45 22 20 4C 45 54 54 |ED ("WHITE" LETT|
00000AA0: 45 52 53 20 4F 4E 20 22 42 4C 41 43 4B 22 20 42 |ERS ON "BLACK" B|
00000AB0: 41 43 4B 47 52 4F 55 4E 44 29 00 F3 12 8A 00 8F |ACKGROUND)......|
00000AC0: 20 20 33 20 2D 20 53 45 54 20 28 22 42 4C 41 43 | 3 - SET ("BLAC|
00000AD0: 4B 22 29 20 4C 45 54 54 45 52 53 20 22 4F 52 27 |K") LETTERS "OR'|
00000AE0: 45 44 22 20 57 49 54 48 20 42 41 43 4B 47 52 4F |ED" WITH BACKGRO|
00000AF0: 55 4E 44 00 2F 13 8C 00 8F 20 20 34 20 2D 20 55 |UND./.... 4 - U|
00000B00: 4E 53 45 54 20 28 22 57 48 49 54 45 22 29 20 4C |NSET ("WHITE") L|
00000B10: 45 54 54 45 52 53 20 22 41 4E 44 27 45 44 22 20 |ETTERS "AND'ED" |
00000B20: 57 49 54 48 20 42 41 43 4B 47 52 4F 55 4E 44 00 |WITH BACKGROUND.|
00000B30: 5F 13 8E 00 8F 20 20 35 20 2D 20 53 45 54 20 4C |_.... 5 - SET L|
00000B40: 45 54 54 45 52 53 20 22 58 4F 52 27 45 44 22 20 |ETTERS "XOR'ED" |
00000B50: 57 49 54 48 20 42 41 43 4B 47 52 4F 55 4E 44 00 |WITH BACKGROUND.|
00000B60: 65 13 90 00 3A 00 AD 13 92 00 53 42 B2 34 30 39 |e...:.....SB.409|
00000B70: 35 32 3A 54 42 B2 35 34 32 37 32 3A 8B 28 4D 44 |52:TB.54272:.(MD|
00000B80: 20 AF 20 31 29 A7 20 54 42 B2 35 33 32 34 38 3A | . 1). TB.53248:|
00000B90: 8F 20 53 43 52 45 45 4E 20 41 4E 44 20 54 45 58 |. SCREEN AND TEX|
00000BA0: 54 20 42 41 53 45 20 41 44 44 52 27 53 00 E5 13 |T BASE ADDR'S...|
00000BB0: 94 00 4F 53 B2 33 32 30 AC 52 57 AA 38 AC 43 4D |..OS.320.RW.8.CM|
00000BC0: 3A 8F 20 20 4F 46 46 53 45 54 20 46 52 4F 4D 20 |:. OFFSET FROM |
00000BD0: 43 48 41 52 41 43 54 45 52 20 53 43 52 45 45 4E |CHARACTER SCREEN|
00000BE0: 20 42 41 53 45 00 13 14 96 00 97 20 35 36 33 33 | BASE...... 5633|
00000BF0: 34 2C C2 28 35 36 33 33 34 29 AF 20 32 35 34 3A |4,.(56334). 254:|
00000C00: 8F 20 44 49 53 41 42 4C 45 20 49 52 51 20 54 49 |. DISABLE IRQ TI|
00000C10: 4D 45 52 00 3F 14 98 00 97 20 31 2C C2 28 31 29 |MER.?.... 1,.(1)|
00000C20: AF 20 32 35 31 3A 8F 20 53 57 49 54 43 48 20 43 |. 251:. SWITCH C|
00000C30: 48 41 52 41 43 54 45 52 20 52 4F 4D 20 49 4E 00 |HARACTER ROM IN.|
00000C40: 62 14 9A 00 4C B2 C3 28 41 24 29 3A 81 20 4E B2 |b...L..(A$):. N.|
00000C50: 31 20 A4 20 4C 3A 4E 38 B2 4E AC 38 AA 4F 53 AA |1 . L:N8.N.8.OS.|
00000C60: 53 42 00 85 14 9C 00 58 B2 C6 28 CA 28 41 24 2C |SB.....X..(.(A$,|
00000C70: 4E 2C 31 29 29 3A 8B 20 58 B1 36 33 20 A7 20 58 |N,1)):. X.63 . X|
00000C80: B2 58 AB 36 34 00 93 14 9E 00 54 43 B2 54 42 AA |.X.64.....TC.TB.|
00000C90: 38 AC 58 00 B2 14 A0 00 91 20 4D 44 20 89 20 31 |8.X...... MD . 1|
00000CA0: 36 32 2C 31 36 32 2C 31 36 34 2C 31 36 36 2C 31 |62,162,164,166,1|
00000CB0: 36 38 00 C7 14 A2 00 97 20 35 33 32 33 31 2C 33 |68...... 53231,3|
00000CC0: 36 3A 89 20 31 37 30 00 DC 14 A4 00 97 20 35 33 |6:. 170...... 53|
00000CD0: 32 33 31 2C 31 37 3A 89 20 31 37 30 00 F1 14 A6 |231,17:. 170....|
00000CE0: 00 97 20 35 33 32 33 31 2C 34 39 3A 89 20 31 37 |.. 53231,49:. 17|
00000CF0: 30 00 00 15 A8 00 97 20 35 33 32 33 31 2C 38 31 |0...... 53231,81|
00000D00: 00 26 15 AA 00 97 32 35 32 2C 4E 38 AD 32 35 36 |.&....252,N8.256|
00000D10: 3A 97 32 35 31 2C 4E 38 AB 32 35 36 AC B5 28 4E |:.251,N8.256..(N|
00000D20: 38 AD 32 35 36 29 00 4C 15 AC 00 97 32 35 34 2C |8.256).L....254,|
00000D30: 54 43 AD 32 35 36 3A 97 32 35 33 2C 54 43 AB 32 |TC.256:.253,TC.2|
00000D40: 35 36 AC B5 28 54 43 AD 32 35 36 29 00 5B 15 AE |56..(TC.256).[..|
00000D50: 00 9E 28 35 33 32 32 31 29 3A 82 00 93 15 B0 00 |..(53221):......|
00000D60: 97 20 31 2C C2 28 31 29 B0 20 34 3A 97 20 35 36 |. 1,.(1). 4:. 56|
00000D70: 33 33 34 2C C2 28 35 36 33 33 34 29 B0 20 31 3A |334,.(56334). 1:|
00000D80: 8F 20 52 45 53 54 4F 52 45 20 54 4F 20 4E 4F 52 |. RESTORE TO NOR|
00000D90: 4D 41 4C 00 99 15 B2 00 8E 00 9F 15 B4 00 3A 00 |MAL...........:.|
00000DA0: C0 15 B6 00 8F 20 20 42 45 47 49 4E 4E 49 4E 47 |..... BEGINNING|
00000DB0: 20 4F 46 20 4D 41 49 4E 20 50 52 4F 47 52 41 4D | OF MAIN PROGRAM|
00000DC0: 00 00 00 |... |
..N.... PROGRAM BASE - PROVIDE MNEMONIC
VARIABLES FOR GRAPHIC FUNTIONS/STYLES..
.... AND DEFINE SUBROUTINES FOR ADDING
COLOR/TEXT TO GRAPHIC IMAGE....... R
ICHARD L. RYLANDER 4/15/85.C...:.....
GR.49378 :. GRAPHICS MODE.....TX.4941
1 :. TEXT MODE.....:.%...LB.893
:. LEFT BOUND.D...RB.894 :. RIGHT B
OUND._...UB.895 :. UP BOUND.|...DB.8
96 :. DOWN BOUND.....:...... FLAGS
FOR VARIOUS DRAWING MODES.....:.....SH.
838 :. SHADE STYLE - 0=RANDOM, 1=HAL
FTONE.3. .SC.839 :. SCALING - 0=NORM
AL (1:1), 1=SCALED (3:4) FOR SCREEN DISP
LAY..".LT.898 :. LIGHTING - 0=NORMA
L SINGLE-SOURCE, 1=BACKLIT ILLUMINATION.
..$.MO.871 :. FACET EDGE/LINE MODE
- 0=DRAW, 1=ERASE...&.EG.868 :. EDG
ES FLAG - 0=NORMAL, 1=ADD LINES TO FACET
EDGES...(.:.$.*.BO.53280 :. BORDER C
OLOR.*.,.:.E.... FUNCTION LOCATIONS.K.
0.:.O.2.CL.51979 :. CLEAR BITMAP AREA.
..4.CO.52001 :. FILL COLOR MAP...6.:..
.8.PL.52023 :. PLOT A SINGLE POINT.W.
:.UN.52026 :. UNPLOT...<.:...>.LN.520
49 :. DRAW A STRAIGHT LINE.7.@.FC.520
52 :. DRAW A SHADED TRIANGULAR FACET.
=.B.:.W.D.SP.52119 :. SPHERE.Z.F.TR.5
2141 :. TOP-VIEW TOROID...H.VC.52150
:. CYLINDER (AXIS VERTICAL).T.J.HC.52
153 :. CYLINDER (AXIS HORIZONTAL)...L
.VT.52186 :. EDGE-VIEW TOROID (AXIS V
ERTICAL).>.N.HT.52189 :. EDGE-VIEW TO
ROID (AXIS HORIZONTAL).~.P.VS.52203 :.
INSIDE-VIEW TOROID ["SPOOL"] (AXIS VER
TICAL)...R.HS.52206 :. INSIDE-VIEW TO
ROID ["SPOOL"] (AXIS HORIZONTAL).F.T.:..
.V.. SKIP OVER 'COLOR' AND 'TEXT' SUBRO
UTINES TO MAIN PROGRAM...X.. 182...Z.:.R
.\.. SUBROUTINE FOR ADDING COLOR TO DIFF
ERENT SCREEN AREAS...^.. REMEMBER THAT C
OLOR BOUNDARIES MUST CORRESPOND TO CHARA
CTER BOUNDARIES...`.. DEFINE A RECTANGUL
AR AREA BY LOWER-LEFT AND UPPER-RIGHT CO
ORDINATES.#.B.. (X1,Y1)=LOWER-LEFT POINT
, (X2,Y2)=UPPER-RIGHT POINT.L.D.. THE CO
RNER POINTS CAN BE ARBITRARY BUT COLOR C
HANGE WILL BE IN THE...F.. SMALLEST CHAR
ACTER-CELL BOUNDED RECTANGLE THAT INCLUD
ES THOSE POINTS...H.. Y-COORDINATES MUS
T BE "UNSCALED" IF SCALE FLAG IS SET:.&.
J.. B(SC). Y1.(Y1.1).213.256:Y2.(Y2.1).2
13.256.K.L.. COLOR TO BE POKED IN IS GIV
EN BY VARIABLE CC="COMPOSITE COLOR"...N.
. WHERE CC=16*DC + BC [DC=DOT COLOR, BC=
BACKGROUND COLOR NUMBERS].A.P.CC.16.DC.B
C...R.. IX..(X1.8) . .(X2.8)...T.. IY..(
Y1.8) . .(Y2.8)...V.. 34752.IX.40.IY,CC.
..X..:.:....Z.:.O.|.. SUBROUTINE TO ADD
TEXT TO GRAPHIC SCREEN....~.. "RW" AND "
CM" ARE THE ROW (0-24) AND COLUMN (0-39)
COORDINATES FOR THE.Q.... FIRST LETTER
OF THE TEXT STRING TO BE PRINTED.......
THE TEXT STRING ITSELF IS ASSIGNED TO "A
$"..D.... "MD" IS THE MODE FOR THE PRINT
ING. FIVE MODES ARE ALLOWED:.~.... 1 -
NORMAL ("BLACK" LETTERS ON "WHITE" BACKG
ROUND)...... 2 - REVERSED ("WHITE" LETT
ERS ON "BLACK" BACKGROUND)...... 3 - SE
T ("BLACK") LETTERS "OR'ED" WITH BACKGRO
UND./.... 4 - UNSET ("WHITE") LETTERS "
AND'ED" WITH BACKGROUND._.... 5 - SET L
ETTERS "XOR'ED" WITH BACKGROUND.E...:...
..SB.40952:TB.54272:.(MD . 1). TB.53248:
. SCREEN AND TEXT BASE ADDR'S.....OS.320
.RW.8.CM:. OFFSET FROM CHARACTER SCREEN
BASE...... 56334,B(56334). 254:. DISABL
E IRQ TIMER.?.... 1,B(1). 251:. SWITCH C
HARACTER ROM IN.B...L.C(A$):. N.1 . L:N8
.N.8.OS.SB.....X.F(J(A$,N,1)):. X.63 . X
.X.64.....TC.TB.8.X... .. MD . 162,162,1
64,166,168.G.... 53231,36:. 170...... 53
231,17:. 170...... 53231,49:. 170......
53231,81.&....252,N8.256:.251,N8.256..(N
8.256).L....254,TC.256:.253,TC.256..(TC.
256).[....(53221):....... 1,B(1). 4:. 56
334,B(56334). 1:. RESTORE TO NORMAL.....
......:...... BEGINNING OF MAIN PROGRAM
...
> CLICK IMAGE PREVIEW FOR FULL MODAL