_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

COORD DEMOS

FILE INFORMATION

FILENAME(S): COORD DEMOS

FILE TYPE(S): PRG

FILE SIZE: 4.8K

FIRST SEEN: 2025-11-30 18:13:14

APPEARS ON: 1 disk(s)

FILE HASH

ced8414e67b8d408cae4dd2286a0d6d0adf08b3d66c54ca466337528100459d3

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
COMPUTE GAZ 1 4 COORD DEMOS PRG Sailor, Ganheden 30 6 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 29 08 05 00 8F 20  2A 2A 2A 20 4C 4F 41 44  |..).... *** LOAD|
00000010: 20 4D 4C 20 46 52 4F 4D  20 44 49 53 4B 20 4F 52  | ML FROM DISK OR|
00000020: 20 54 41 50 45 20 2A 2A  2A 00 6E 08 0A 00 44 B2  | TAPE ***.n...D.|
00000030: 38 3A 45 B2 36 35 3A 41  B2 45 3A 46 B2 31 34 37  |8:E.65:A.E:F.147|
00000040: 3A 45 24 B2 C7 28 46 29  3A 50 B2 35 37 38 31 32  |:E$..(F):P.57812|
00000050: 3A 4C B2 36 32 36 33 31  3A 53 B2 36 32 39 35 37  |:L.62631:S.62957|
00000060: 3A 8B C2 28 36 38 37 29  B2 35 34 A7 32 35 00 A2  |:..(687).54.25..|
00000070: 08 0F 00 97 46 2C 30 3A  9E 50 C7 28 45 29 AA 22  |....F,0:.P.(E)."|
00000080: 20 43 4F 4F 52 44 2E 4F  42 4A 22 2C 44 2C 31 3A  | COORD.OBJ",D,1:|
00000090: 9E 4C 3A 45 B2 45 AA 31  3A 8B 45 B3 41 AA 32 A7  |.L:E.E.1:.E.A.2.|
000000A0: 31 35 00 CA 08 14 00 8F  20 2A 2A 2A 20 53 45 54  |15...... *** SET|
000000B0: 20 43 4F 4F 52 44 49 4E  41 54 4F 52 20 56 41 52  | COORDINATOR VAR|
000000C0: 49 41 42 4C 45 53 20 2A  2A 2A 00 F5 08 19 00 52  |IABLES ***.....R|
000000D0: 45 53 45 54 B2 36 38 31  3A 43 4C 45 41 52 B2 36  |ESET.681:CLEAR.6|
000000E0: 38 36 3A 50 4C 4F 54 B2  37 30 37 3A 45 52 41 53  |86:PLOT.707:ERAS|
000000F0: 45 B2 37 31 34 00 3F 09  1E 00 53 45 54 46 4C 41  |E.714.?...SETFLA|
00000100: 47 B2 37 36 37 3A 49 4E  49 54 B2 31 30 32 30 3A  |G.767:INIT.1020:|
00000110: 4D 46 4C 41 47 B2 30 3A  8F 20 4D 46 4C 41 47 3D  |MFLAG.0:. MFLAG=|
00000120: 31 20 54 55 52 4E 53 20  4F 4E 20 4D 55 4C 54 49  |1 TURNS ON MULTI|
00000130: 43 4F 4C 4F 52 2C 20 30  20 49 53 20 4F 46 46 00  |COLOR, 0 IS OFF.|
00000140: 61 09 23 00 8F 20 2A 2A  2A 20 53 45 54 20 43 4F  |a.#.. *** SET CO|
00000150: 4C 4F 52 20 52 45 47 49  53 54 45 52 53 20 2A 2A  |LOR REGISTERS **|
00000160: 2A 00 7D 09 28 00 46 47  B2 36 34 36 3A 42 4F B2  |*.}.(.FG.646:BO.|
00000170: 35 33 32 38 30 3A 42 47  B2 42 4F AA 31 00 C0 09  |53280:BG.BO.1...|
00000180: 2D 00 8B 4D 46 A7 4D 32  B2 42 4F AA 32 3A 4D 33  |-..MF.M2.BO.2:M3|
00000190: B2 42 4F AA 33 3A 97 4D  32 2C 36 3A 97 4D 33 2C  |.BO.3:.M2,6:.M3,|
000001A0: 34 3A 8F 20 53 45 54 20  4D 55 4C 54 49 43 4F 4C  |4:. SET MULTICOL|
000001B0: 4F 52 20 52 45 47 53 2E  20 28 4D 31 3D 46 47 29  |OR REGS. (M1=FG)|
000001C0: 00 E3 09 32 00 8F 20 2A  2A 2A 20 53 45 54 20 48  |...2.. *** SET H|
000001D0: 49 2D 52 45 53 20 56 41  52 49 41 42 4C 45 53 20  |I-RES VARIABLES |
000001E0: 2A 2A 2A 00 06 0A 37 00  42 41 4E 4B B2 31 3A 53  |***...7.BANK.1:S|
000001F0: 43 4E 4F 46 46 53 45 54  B2 31 3A 43 4F 4C 4F 46  |CNOFFSET.1:COLOF|
00000200: 46 53 45 54 B2 37 00 48  0A 3C 00 8F 20 2A 2A 2A  |FSET.7.H.<.. ***|
00000210: 20 43 52 45 41 54 45 20  44 49 53 50 4C 41 59 20  | CREATE DISPLAY |
00000220: 28 4E 4F 54 45 20 43 48  41 4E 47 45 53 20 46 52  |(NOTE CHANGES FR|
00000230: 4F 4D 20 4D 41 47 41 5A  49 4E 45 20 4C 49 53 54  |OM MAGAZINE LIST|
00000240: 49 4E 47 29 20 2A 2A 2A  00 83 0A 41 00 97 42 4F  |ING) ***...A..BO|
00000250: 2C 30 3A 97 42 47 2C 30  3A 97 46 47 2C 31 3A 99  |,0:.BG,0:.FG,1:.|
00000260: 45 24 3A 99 A3 39 30 29  22 12 20 43 48 4F 4F 53  |E$:..90)". CHOOS|
00000270: 45 20 44 45 4D 4F 4E 53  54 52 41 54 49 4F 4E 20  |E DEMONSTRATION |
00000280: 11 11 22 00 CB 0A 46 00  97 46 47 2C 36 3A 99 22  |.."...F..FG,6:."|
00000290: 20 20 4E 4F 54 45 3A 20  54 48 49 53 20 4D 45 4E  |  NOTE: THIS MEN|
000002A0: 55 20 49 53 20 50 52 4F  56 49 44 45 44 20 46 4F  |U IS PROVIDED FO|
000002B0: 52 20 44 49 53 4B 20 20  53 55 42 53 43 52 49 42  |R DISK  SUBSCRIB|
000002C0: 45 52 53 20 4F 4E 4C 59  20 22 3B 00 0E 0B 4B 00  |ERS ONLY ";...K.|
000002D0: 99 22 41 4E 44 20 52 45  53 55 4C 54 53 20 49 4E  |."AND RESULTS IN|
000002E0: 20 43 48 41 4E 47 45 53  22 3A 99 A3 37 29 22 54  | CHANGES":..7)"T|
000002F0: 4F 20 54 48 45 20 50 55  42 4C 49 53 48 45 44 20  |O THE PUBLISHED |
00000300: 4C 49 53 54 49 4E 47 22  3A 97 46 47 2C 31 00 42  |LISTING":.FG,1.B|
00000310: 0B 50 00 99 3A 99 3A 99  22 3E 20 50 52 45 53 53  |.P..:.:."> PRESS|
00000320: 20 12 20 44 20 92 20 54  4F 20 52 55 4E 20 54 48  | . D . TO RUN TH|
00000330: 45 20 44 45 4D 4F 20 41  4E 44 20 52 45 54 55 52  |E DEMO AND RETUR|
00000340: 4E 22 00 87 0B 55 00 99  A3 31 33 29 22 54 4F 20  |N"...U...13)"TO |
00000350: 54 48 49 53 20 4D 45 4E  55 11 22 3A 99 22 3E 20  |THIS MENU.":."> |
00000360: 50 52 45 53 53 20 12 20  4D 20 92 20 54 4F 20 52  |PRESS . M . TO R|
00000370: 55 4E 20 54 48 45 20 4D  4F 55 4E 54 41 49 4E 20  |UN THE MOUNTAIN |
00000380: 44 45 4D 4F 20 2D 22 00  B5 0B 5A 00 99 22 20 20  |DEMO -"...Z.."  |
00000390: 57 48 49 43 48 20 49 4E  43 4C 55 44 45 53 20 54  |WHICH INCLUDES T|
000003A0: 48 45 20 53 41 56 45 2F  4C 4F 41 44 20 52 4F 55  |HE SAVE/LOAD ROU|
000003B0: 54 49 4E 45 22 00 E7 0B  5F 00 99 3A 99 22 3E 20  |TINE"..._..:."> |
000003C0: 50 52 45 53 53 20 41 4E  59 20 4F 54 48 45 52 20  |PRESS ANY OTHER |
000003D0: 4B 45 59 20 54 4F 20 45  4E 44 20 54 48 45 20 50  |KEY TO END THE P|
000003E0: 52 4F 47 52 41 4D 22 00  F2 0B 64 00 97 31 39 38  |ROGRAM"...d..198|
000003F0: 2C 30 00 2A 0C 69 00 A1  4E 52 24 3A 91 AB 28 4E  |,0.*.i..NR$:..(N|
00000400: 52 24 B2 22 22 29 AB 32  AC 28 4E 52 24 B2 22 44  |R$."").2.(NR$."D|
00000410: 22 29 AB 33 AC 28 4E 52  24 B2 22 4D 22 29 89 31  |").3.(NR$."M").1|
00000420: 30 35 2C 31 31 35 2C 31  32 30 00 33 0C 6E 00 89  |05,115,120.3.n..|
00000430: 31 37 35 00 41 0C 73 00  8D 31 38 35 3A 89 33 36  |175.A.s..185:.36|
00000440: 35 00 4F 0C 78 00 8D 31  38 35 3A 89 34 36 35 00  |5.O.x..185:.465.|
00000450: 75 0C 96 00 8F 20 2A 2A  2A 20 52 45 53 54 4F 52  |u.... *** RESTOR|
00000460: 45 20 44 45 46 41 55 4C  54 20 44 49 53 50 4A FF  |E DEFAULT DISPJ.|
00000470: FF FF FF FF FF FF FF FF  36 FF 36 FF FF FF FF FF  |........6.6.....|
00000480: F3 FF FF F5 FF FF FF FF  31 FF FF FF D2 ED FF FF  |........1.......|
00000490: D0 FF FF FF FF D6 FF FF  FF FF FF FF FF FF FF A6  |................|
000004A0: 88 9D B9 9A 88 D8 E8 AF  AD E8 9C BF 81 69 87 88  |.............i..|
000004B0: 81 FF C4 FF FF 86 C0 58  FF 88 D9 FF 99 FF 88 DD  |.......X........|
000004C0: D0 88 BC 9D FF D8 E8 9D  EC E4 88 FF AA 88 FF DA  |................|
000004D0: 88 A0 D0 DA FF FF FF 74  FB FF FF 34 FF D5 FF FF  |.......t...4....|
000004E0: FF FF D5 FF FF FF FF 31  FF FF FF FF EE FF FF FF  |.......1........|
000004F0: FF FF E2 ED FF FF 4F 4C  4F 52 20 49 53 20 44 49  |......OLOR IS DI|
00000500: 46 46 45 52 45 4E 54 20  46 52 4F 4D 20 42 41 43  |FFERENT FROM BAC|
00000510: 4B 47 52 4F 55 4E 44 00  4B 0D AA 00 97 35 33 32  |KGROUND.K....532|
00000520: 37 30 2C 32 30 30 3A 97  35 36 35 37 36 2C 31 35  |70,200:.56576,15|
00000530: 31 3A FF 97 99 99 8B 85  FF 99 8B 9D FF 97 99 99  |1:..............|
00000540: 8B B2 2C 32 31 3A 8B 53  46 A7 8E 00 51 0D AF 00  |..,21:.SF...Q...|
00000550: 80 00 6D 0D B4 00 8F 20  2A 2A 2A 20 53 45 54 20  |..m.... *** SET |
00000560: 55 50 20 48 49 2D 52 45  53 20 2A 2A 2A 00 9B 0D  |UP HI-RES ***...|
00000570: B9 00 97 35 36 35 37 36  2C 28 C2 28 35 36 35 37  |...56576,(.(5657|
00000580: 36 29 AF 32 35 32 29 B0  28 33 AB 42 41 4E 4B 2A  |6).252).(3.BANK*|
00000590: FF 31 FF FF FF ED FF FF  FF FF D6 FF BC 17 59 81  |.1............Y.|
000005A0: 1D 79 99 98 B8 FF CC 22  83 53 33 23 63 52 9B 03  |.y.....".S3#cR..|
000005B0: 33 23 A8 F2 05 45 55 24  E2 04 F4 E2 04 24 95 44  |3#...EU$.....$.D|
000005C0: D4 15 00 0F A0 DC 30 08  B4 D4 6A 79 73 53 33 23  |......0...jysS3#|
000005D0: 73 02 CC 22 83 53 33 23  73 02 9B 03 13 63 A8 F2  |s..".S3#s....c..|
000005E0: 05 34 55 42 04 D5 54 C5  44 94 34 F4 C4 F5 22 04  |.4UB..T.D.4...".|
000005F0: 94 62 04 46 45 53 49 52  45 44 00 45 0E C8 00 97  |.b.FESIRED.E....|
00000600: 35 33 32 37 32 2C 28 43  4F 4C 4F 46 46 53 45 54  |53272,(COLOFFSET|
00000610: AC 31 36 AA 53 43 4E 4F  46 46 53 45 54 AC 38 29  |.16.SCNOFFSET.8)|
00000620: 3A 8F 20 50 4F 53 49 54  49 4F 4E 20 48 49 2D 52  |:. POSITION HI-R|
00000630: 45 53 20 41 4E 44 20 43  4F 4C 4F 52 20 4D 45 4D  |ES AND COLOR MEM|
00000640: 4F 52 49 45 53 00 4B 0E  CD 00 8E 00 75 0E D2 00  |ORIES.K.....u...|
00000650: 8F 20 2A 2A 2A 20 53 43  52 45 45 4E 20 53 41 56  |. *** SCREEN SAV|
00000660: 45 2F 4C 4F 41 44 20 53  55 42 52 4F 55 54 49 4E  |E/LOAD SUBROUTIN|
00000670: 45 20 2A 2A 2A 00 AD 0E  D7 00 8F 20 4E 4F 54 45  |E ***...... NOTE|
00000680: 3A 20 49 53 20 44 45 50  45 4E 44 45 4E 54 20 4F  |: IS DEPENDENT O|
00000690: 4E 20 56 41 52 49 41 42  4C 45 53 20 46 52 4F 4D  |N VARIABLES FROM|
000006A0: 20 4D 41 49 4E 20 50 52  4F 47 52 41 4D 00 F9 0E  | MAIN PROGRAM...|
000006B0: DC 00 44 B2 38 3A 45 B2  34 39 3A 4F 4B B2 31 3A  |..D.8:E.49:OK.1:|
000006C0: 42 28 31 29 B2 42 41 AC  36 34 AA 53 43 AC 33 32  |B(1).BA.64.SC.32|
000006D0: 3A 54 28 31 29 B2 42 28  31 29 AA 33 32 3A 42 28  |:T(1).B(1).32:B(|
000006E0: 32 29 B2 42 41 AC 36 34  AA 43 4F AC 34 3A 54 28  |2).BA.64.CO.4:T(|
000006F0: 32 29 B2 42 28 32 29 AA  34 00 36 0F E1 00 42 28  |2).B(2).4.6...B(|
00000700: 33 29 B2 32 30 38 3A 54  28 33 29 B2 42 28 33 29  |3).208:T(3).B(3)|
00000710: AA 31 3A 42 28 34 29 B2  32 31 36 3A 54 28 34 29  |.1:B(4).216:T(4)|
00000720: B2 42 28 34 29 AA 34 3A  53 46 B2 31 3A 8D 31 36  |.B(4).4:SF.1:.16|
00000730: 35 3A 53 46 B2 30 00 40  0F E6 00 99 45 24 3A 99  |5:SF.0.@....E$:.|
00000740: 00 7B 0F EB 00 99 A3 37  29 22 2A 2A 20 53 41 56  |.{.....7)"** SAV|
00000750: 45 20 4F 52 20 4C 4F 41  44 20 53 43 52 45 45 4E  |E OR LOAD SCREEN|
00000760: 20 2A 2A 22 3A 99 3A 85  22 20 20 53 43 52 45 45  | **":.:."  SCREE|
00000770: 4E 20 4E 41 4D 45 22 3B  53 4E 24 00 9E 0F F0 00  |N NAME";SN$.....|
00000780: 47 56 B2 C3 28 53 4E 24  29 3A 91 AB 28 47 56 B3  |GV..(SN$):..(GV.|
00000790: 31 B0 47 56 B1 31 35 29  89 32 33 30 3A 99 00 D8  |1.GV.15).230:...|
000007A0: 0F F5 00 99 22 3E 20 46  4F 52 20 53 41 56 45 20  |...."> FOR SAVE |
000007B0: 2D 20 50 52 45 53 53 20  12 53 92 22 3A 99 3A 99  |- PRESS .S.":.:.|
000007C0: 22 3E 20 46 4F 52 20 4C  4F 41 44 20 2D 20 50 52  |"> FOR LOAD - PR|
000007D0: 45 53 53 20 12 4C 92 22  00 FB 0F FA 00 A1 4C 24  |ESS .L."......L$|
000007E0: 3A 8B 4C 24 B2 22 22 B0  4C 24 B3 B1 22 53 22 AF  |:.L$."".L$.."S".|
000007F0: 4C 24 B3 B1 22 4C 22 A7  32 35 30 00 36 10 FF 00  |L$.."L".250.6...|
00000800: 99 3A 99 3A 99 22 20 12  52 45 53 55 4C 54 53 92  |.:.:." .RESULTS.|
00000810: 20 2D 20 4E 41 4D 45 20  49 53 20 22 53 4E 24 3A  | - NAME IS "SN$:|
00000820: 99 A3 31 31 29 22 41 4E  44 20 54 48 49 53 20 49  |..11)"AND THIS I|
00000830: 53 20 41 20 22 3B 00 4F  10 04 01 8B 4C 24 B2 22  |S A ";.O....L$."|
00000840: 53 22 A7 99 22 53 41 56  45 22 3A 89 32 37 30 00  |S".."SAVE":.270.|
00000850: 5B 10 09 01 99 22 4C 4F  41 44 22 00 86 10 0E 01  |[...."LOAD".....|
00000860: 99 3A 99 3A 99 A3 36 29  22 3E 3E 20 49 46 20 43  |.:.:..6)">> IF C|
00000870: 4F 52 52 45 43 54 20 2D  20 50 52 45 53 53 20 12  |ORRECT - PRESS .|
00000880: 43 92 20 3C 3C 22 00 AF  10 13 01 99 3A 99 A3 35  |C. <<"......:..5|
00000890: 29 22 41 4E 59 20 4F 54  48 45 52 20 4B 45 59 20  |)"ANY OTHER KEY |
000008A0: 41 4C 4C 4F 57 53 20 43  48 41 4E 47 45 53 22 00  |ALLOWS CHANGES".|
000008B0: D4 10 18 01 A1 4D 24 3A  91 AB 28 4D 24 B2 22 22  |.....M$:..(M$.""|
000008C0: 29 AB 32 AC 28 4D 24 B2  22 43 22 29 89 32 38 30  |).2.(M$."C").280|
000008D0: 2C 32 39 30 00 DD 10 1D  01 89 32 33 30 00 15 11  |,290......230...|
000008E0: 22 01 99 45 24 3A 99 22  20 53 41 56 49 4E 47 3A  |"..E$:." SAVING:|
000008F0: 22 53 4E 24 3A 8B 4C 24  B2 22 4C 22 A7 99 45 24  |"SN$:.L$."L"..E$|
00000900: 3A 99 22 20 4C 4F 41 44  49 4E 47 3A 22 53 4E 24  |:." LOADING:"SN$|
00000910: 3A 89 33 32 30 00 3F 11  27 01 9E 50 22 40 3A 22  |:.320.?.'..P"@:"|
00000920: AA C7 28 45 29 AA 53 4E  24 2C 44 2C 31 3A 97 31  |..(E).SN$,D,1:.1|
00000930: 39 33 2C 30 3A 97 31 39  34 2C 42 28 4F 4B 29 00  |93,0:.194,B(OK).|
00000940: 58 11 2C 01 97 31 37 34  2C 30 3A 97 31 37 35 2C  |X.,..174,0:.175,|
00000950: 54 28 4F 4B 29 3A 9E 53  00 74 11 31 01 45 B2 45  |T(OK):.S.t.1.E.E|
00000960: AA 31 3A 4F 4B B2 4F 4B  AA 31 3A 8B 4F 4B B3 34  |.1:OK.OK.1:.OK.4|
00000970: A7 32 39 35 00 85 11 36  01 8B 4D 46 AF 4F 4B B2  |.295...6..MF.OK.|
00000980: 34 A7 32 39 35 00 8E 11  3B 01 89 33 34 30 00 A9  |4.295...;..340..|
00000990: 11 40 01 97 46 2C 30 3A  9E 50 C7 28 45 29 AA 53  |.@..F,0:.P.(E).S|
000009A0: 4E 24 2C 44 2C 31 3A 9E  4C 00 BD 11 45 01 45 B2  |N$,D,1:.L...E.E.|
000009B0: 45 AA 31 3A 8B 45 B3 35  32 A7 33 32 30 00 CE 11  |E.1:.E.52.320...|
000009C0: 4A 01 8B 4D 46 AF 45 B2  35 32 A7 33 32 30 00 DC  |J..MF.E.52.320..|
000009D0: 11 4F 01 8B 44 B3 B1 38  A7 33 35 35 00 0E 12 54  |.O..D..8.355...T|
000009E0: 01 51 41 B2 30 3A 9F 31  35 2C 38 2C 31 35 3A 84  |.QA.0:.15,8,15:.|
000009F0: 31 35 2C 51 41 2C 51 42  24 2C 51 43 2C 51 44 3A  |15,QA,QB$,QC,QD:|
00000A00: A0 31 35 3A 8B 51 41 B3  32 30 A7 33 35 35 00 3F  |.15:.QA.20.355.?|
00000A10: 12 59 01 99 45 24 3A 99  22 20 44 49 53 4B 20 45  |.Y..E$:." DISK E|
00000A20: 52 52 4F 52 21 22 3A 99  3A 99 A3 31 33 29 22 12  |RROR!":.:..13)".|
00000A30: 20 44 49 53 4B 20 53 54  41 54 55 53 20 92 22 00  | DISK STATUS .".|
00000A40: 58 12 5E 01 99 3A 99 A3  37 29 51 41 3B 51 42 24  |X.^..:..7)QA;QB$|
00000A50: 3B 51 43 3B 51 44 3A 80  00 63 12 63 01 8D 31 38  |;QC;QD:..c.c..18|
00000A60: 35 3A 8E 00 76 12 68 01  8F 20 2A 2A 2A 20 44 45  |5:..v.h.. *** DE|
00000A70: 4D 4F 20 2A 2A 2A 00 B4  12 6D 01 97 42 4F 2C 30  |MO ***...m..BO,0|
00000A80: 3A 97 42 47 2C 30 3A 97  46 47 2C 31 3A 59 B2 31  |:.BG,0:.FG,1:Y.1|
00000A90: 30 30 3A 58 B2 31 36 30  3A 9E 43 4C 45 41 52 3A  |00:X.160:.CLEAR:|
00000AA0: 4F B2 58 3A 4E B2 59 3A  8F 20 53 45 54 20 53 43  |O.X:N.Y:. SET SC|
00000AB0: 52 45 45 4E 00 F6 12 72  01 81 52 B2 37 A4 38 37  |REEN...r..R.7.87|
00000AC0: A9 38 3A 97 42 47 2C AB  28 52 AD 38 B1 37 29 AC  |.8:.BG,.(R.8.7).|
00000AD0: 52 AD 37 3A 97 46 47 2C  52 AD 37 AB 38 AC 28 52  |R.7:.FG,R.7.8.(R|
00000AE0: AD 38 B1 37 29 3A 8F 20  52 41 44 49 55 53 20 26  |.8.7):. RADIUS &|
00000AF0: 20 43 4F 4C 4F 52 00 36  13 77 01 81 41 B2 30 A4  | COLOR.6.w..A.0.|
00000B00: FF AD 32 A9 32 AD 52 3A  58 B2 52 AC BF 28 41 29  |..2.2.R:X.R..(A)|
00000B10: AA 4F 3A 59 B2 52 AC BE  28 41 29 AA 4E 3A 9E 50  |.O:Y.R..(A).N:.P|
00000B20: 4C 4F 54 3A 8F 20 53 57  45 45 50 20 39 30 20 44  |LOT:. SWEEP 90 D|
00000B30: 45 47 52 45 45 53 00 7E  13 7C 01 58 B2 AB 58 AA  |EGREES.~.|.X..X.|
00000B40: 32 AC 4F 3A 9E 50 4C 4F  54 3A 59 B2 AB 59 AA 32  |2.O:.PLOT:Y..Y.2|
00000B50: AC 4E 3A 9E 50 4C 4F 54  3A 58 B2 AB 58 AA 32 AC  |.N:.PLOT:X..X.2.|
00000B60: 4F 3A 9E 50 4C 4F 54 3A  8F 20 42 55 54 20 50 4C  |O:.PLOT:. BUT PL|
00000B70: 4F 54 20 34 20 51 55 41  44 52 41 4E 54 53 00 85  |OT 4 QUADRANTS..|
00000B80: 13 81 01 82 41 00 8C 13  86 01 82 52 00 C6 13 8B  |....A......R....|
00000B90: 01 8B 4D 46 A7 97 4D 33  2C 35 3A 8F 20 42 49 54  |..MF..M3,5:. BIT|
00000BA0: 20 50 41 54 54 45 52 4E  20 31 2C 31 20 50 4C 4F  | PATTERN 1,1 PLO|
00000BB0: 54 53 20 47 52 45 45 4E  20 49 46 20 4D 55 4C 54  |TS GREEN IF MULT|
00000BC0: 49 43 4F 4C 4F 52 00 06  14 90 01 59 B2 31 30 30  |ICOLOR.....Y.100|
00000BD0: 3A 81 58 B2 30 A4 33 31  39 3A 97 42 47 2C 58 AD  |:.X.0.319:.BG,X.|
00000BE0: 38 3A 97 46 47 2C 58 AD  38 AA 31 3A 9E 50 4C 4F  |8:.FG,X.8.1:.PLO|
00000BF0: 54 3A 82 3A 8F 44 52 41  57 20 43 4F 4C 4F 52 45  |T:.:.DRAW COLORE|
00000C00: 44 20 4C 49 4E 45 00 43  14 95 01 97 42 47 2C 30  |D LINE.C....BG,0|
00000C10: 3A 97 46 47 2C 31 30 3A  81 58 B2 30 A4 33 31 39  |:.FG,10:.X.0.319|
00000C20: 3A 9E 45 52 41 53 45 3A  82 3A 8F 20 45 52 41 53  |:.ERASE:.:. ERAS|
00000C30: 45 20 4C 49 4E 45 20 57  49 54 48 20 4C 54 2E 20  |E LINE WITH LT. |
00000C40: 52 45 44 00 78 14 9A 01  59 B2 39 35 3A 97 46 47  |RED.x...Y.95:.FG|
00000C50: 2C 31 3A 81 58 B2 30 A4  33 31 39 3A 9E 50 4C 4F  |,1:.X.0.319:.PLO|
00000C60: 54 3A 8B C2 28 53 45 54  46 4C 41 47 29 A7 9E 50  |T:..(SETFLAG)..P|
00000C70: 4C 4F 54 3A 89 34 32 30  00 B0 14 9F 01 9E 45 52  |LOT:.420......ER|
00000C80: 41 53 45 3A 8F 20 33 39  35 2D 34 30 35 20 4D 4F  |ASE:. 395-405 MO|
00000C90: 56 45 20 41 20 57 48 49  54 45 20 50 4F 49 4E 54  |VE A WHITE POINT|
00000CA0: 20 42 55 54 20 44 4F 4E  27 54 20 45 52 41 53 45  | BUT DON'T ERASE|
00000CB0: 00 B6 14 A4 01 82 00 E8  14 A9 01 96 A5 4D 43 28  |.............MC(|
00000CC0: 41 29 B2 B5 28 41 29 AB  28 B5 28 41 AD 32 29 B3  |A)..(A).(.(A.2).|
00000CD0: B1 B5 28 41 29 AD 32 29  3A 9E 43 4C 3A 52 B2 39  |..(A).2):.CL:R.9|
00000CE0: 35 3A 97 36 34 36 2C 32  00 22 15 AE 01 81 41 B2  |5:.646,2."....A.|
00000CF0: 30 A4 33 31 39 A9 32 2E  32 36 3A 58 B2 A5 4D 43  |0.319.2.26:X..MC|
00000D00: 28 41 29 3A 59 B2 52 AA  38 30 AC BF 28 41 AD 32  |(A):Y.R.80..(A.2|
00000D10: 30 29 3A 9E 45 52 3A 58  B2 58 AA 31 3A 9E 50 4C  |0):.ER:X.X.1:.PL|
00000D20: 3A 82 00 5C 15 B3 01 81  41 B2 30 A4 33 31 39 A9  |:..\....A.0.319.|
00000D30: 32 2E 32 36 3A 58 B2 A5  4D 43 28 41 29 3A 59 B2  |2.26:X..MC(A):Y.|
00000D40: 52 AA 36 30 AC BF 28 41  AD 32 35 29 3A 9E 50 4C  |R.60..(A.25):.PL|
00000D50: 3A 58 B2 58 AA 31 3A 9E  45 52 3A 82 00 96 15 B8  |:X.X.1:.ER:.....|
00000D60: 01 81 41 B2 30 A4 33 31  39 A9 32 2E 32 36 3A 58  |..A.0.319.2.26:X|
00000D70: B2 A5 4D 43 28 41 29 3A  59 B2 52 AA 34 30 AC BF  |..MC(A):Y.R.40..|
00000D80: 28 41 AD 33 30 29 3A 9E  50 4C 3A 58 B2 58 AA 31  |(A.30):.PL:X.X.1|
00000D90: 3A 9E 50 4C 3A 82 00 D0  15 BD 01 81 41 B2 30 A4  |:.PL:.......A.0.|
00000DA0: 33 31 39 A9 32 2E 32 36  3A 58 B2 A5 4D 43 28 41  |319.2.26:X..MC(A|
00000DB0: 29 3A 59 B2 52 AA 36 30  AC BF 28 41 AD 32 35 29  |):Y.R.60..(A.25)|
00000DC0: 3A 9E 45 52 3A 58 B2 58  AA 31 3A 9E 45 52 3A 82  |:.ER:X.X.1:.ER:.|
00000DD0: 00 E7 15 C2 01 53 46 B2  31 3A 8D 31 36 35 3A 53  |.....SF.1:.165:S|
00000DE0: 46 B2 30 3A 89 36 35 00  03 16 CC 01 8F 20 2A 2A  |F.0:.65...... **|
00000DF0: 2A 20 4D 4F 55 4E 54 41  49 4E 20 44 45 4D 4F 20  |* MOUNTAIN DEMO |
00000E00: 2A 2A 2A 00 2F 16 D1 01  97 31 39 38 2C 30 3A 97  |***./....198,0:.|
00000E10: 46 47 2C 31 31 3A 97 42  47 2C 30 3A 97 42 4F 2C  |FG,11:.BG,0:.BO,|
00000E20: 30 3A 58 B2 AB 31 3A 59  B2 AB 31 3A 9E 43 4C 00  |0:X..1:Y..1:.CL.|
00000E30: 6D 16 D2 01 4A 25 B2 BB  28 30 29 AC 31 30 3A 4A  |m...J%..(0).10:J|
00000E40: 25 B2 AB 4A 25 AC 28 4A  25 B1 33 AF 4A 25 B3 FF  |%..J%.(J%.3.J%..|
00000E50: 29 20 91 AB 28 4A 25 B2  30 29 89 34 36 36 3A 4A  |) ..(J%.0).466:J|
00000E60: 25 B2 4A 25 AB 34 3A 43  B2 32 AE 4A 25 00 A4 16  |%.J%.4:C.2.J%...|
00000E70: D3 01 4A B2 33 35 AB 28  43 B2 31 29 AC 31 37 3A  |..J.35.(C.1).17:|
00000E80: 56 B2 32 3A 41 B2 AB 32  30 3A 4A 25 B2 BB 28 30  |V.2:A..20:J%..(0|
00000E90: 29 AC 35 3A 42 B2 AB 4A  25 AC 32 30 3A 5A B2 31  |).5:B..J%.20:Z.1|
00000EA0: 3A 45 B2 30 00 E2 16 D4  01 48 B2 B5 28 28 33 32  |:E.0.....H..((32|
00000EB0: 30 AB 42 29 AD 28 4A AB  31 30 29 29 3A 86 20 47  |0.B).(J.10)):. G|
00000EC0: 28 48 AA 31 29 3A 47 28  30 29 B2 42 3A 96 A5 50  |(H.1):G(0).B:..P|
00000ED0: 28 4D 29 B2 28 AB 31 29  AE B5 28 BB 28 30 29 AC  |(M).(.1)..(.(0).|
00000EE0: 33 29 00 14 17 D5 01 96  A5 4D 28 52 29 B2 28 4E  |3).......M(R).(N|
00000EF0: AA 28 4E B3 38 30 29 AC  4E AC 2E 33 29 AD 31 33  |.(N.80).N..3).13|
00000F00: 33 AA 28 4E B1 31 38 30  29 AC 28 4E AB 31 38 30  |3.(N.180).(N.180|
00000F10: 29 AD 37 39 00 48 17 D6  01 81 51 B2 31 A4 48 3A  |).79.H....Q.1.H:|
00000F20: 47 28 51 29 B2 47 28 51  AB 31 29 AA 4A AA BB 28  |G(Q).G(Q.1).J..(|
00000F30: 30 29 AC 31 30 3A 8B 47  28 51 29 B1 B2 33 32 30  |0).10:.G(Q)..320|
00000F40: A7 4F B2 51 3A 51 B2 48  00 89 17 D7 01 82 3A 86  |.O.Q:Q.H......:.|
00000F50: 52 28 4F AA 31 2C 32 29  2C 54 28 4F AA 31 2C 32  |R(O.1,2),T(O.1,2|
00000F60: 29 2C 55 28 4F AA 31 29  2C 42 28 4F AA 31 29 3A  |),U(O.1),B(O.1):|
00000F70: 4A 25 B2 BB 28 30 29 AC  35 3A 4D B2 31 30 AA 28  |J%..(0).5:M.10.(|
00000F80: 4A 25 AA 34 AB 43 29 AC  35 00 BC 17 D8 01 4A 25  |J%.4.C).5.....J%|
00000F90: B2 AB 28 43 B1 31 29 3A  52 28 30 2C 30 29 B2 47  |..(C.1):R(0,0).G|
00000FA0: 28 30 29 3A 54 28 30 2C  30 29 B2 BB 28 30 29 AC  |(0):T(0,0)..(0).|
00000FB0: 33 2E 33 AB 41 3A 55 28  30 29 B2 31 00 F2 17 D9  |3.3.A:U(0).1....|
00000FC0: 01 81 51 B2 31 A4 4F 3A  52 28 51 2C 30 29 B2 47  |..Q.1.O:R(Q,0).G|
00000FD0: 28 51 29 3A 55 28 51 29  B2 55 28 51 AB 31 29 AC  |(Q):U(Q).U(Q.1).|
00000FE0: 28 31 AA 32 AC 28 51 AD  43 B2 B5 28 51 AD 43 29  |(1.2.(Q.C..(Q.C)|
00000FF0: 29 29 00 23 18 DA 01 54  28 51 2C 30 29 B2 54 28  |)).#...T(Q,0).T(|
00001000: 51 AB 31 2C 30 29 AA 28  28 BB 28 30 29 AC 33 2E  |Q.1,0).((.(0).3.|
00001010: 33 AA 32 29 AC 55 28 51  29 29 3A 4E B2 52 28 51  |3.2).U(Q)):N.R(Q|
00001020: 2C 30 29 00 68 18 DB 01  54 28 51 2C 30 29 B2 54  |,0).h...T(Q,0).T|
00001030: 28 51 2C 30 29 AB 28 4E  B3 B2 31 36 30 29 AC 4E  |(Q,0).(N..160).N|
00001040: AD 38 30 AA 28 4E B1 31  36 30 29 AC 4E AD 31 32  |.80.(N.160).N.12|
00001050: 30 3A 8D 34 38 33 3A 42  28 51 29 B2 AB 28 4B B1  |0:.483:B(Q)..(K.|
00001060: 49 29 3A 82 3A 45 B2 31  00 A1 18 DC 01 56 B2 56  |I):.:E.1.....V.V|
00001070: AA 2E 30 30 34 3A 4D B2  4D AA 56 AE 31 2E 30 30  |..004:M.M.V.1.00|
00001080: 30 31 3A 52 28 30 2C 31  29 B2 52 28 30 2C 30 29  |01:R(0,1).R(0,0)|
00001090: AA 2E 39 AA BB 28 30 29  AC 2E 35 AC A5 50 28 4D  |..9..(0)..5..P(M|
000010A0: 29 00 C1 18 DD 01 54 28  30 2C 31 29 B2 54 28 30  |).....T(0,1).T(0|
000010B0: 2C 30 29 AA BB 28 30 29  AC 32 3A 81 51 B2 31 A4  |,0)..(0).2:.Q.1.|
000010C0: 4F 00 FE 18 DE 01 52 28  51 2C 31 29 B2 52 28 51  |O.....R(Q,1).R(Q|
000010D0: 2C 30 29 AA 28 31 AA 28  42 28 51 29 B2 30 AF 42  |,0).(1.(B(Q).0.B|
000010E0: 28 51 AA 31 29 B2 31 29  AC 4A 25 29 AC 28 BB 28  |(Q.1).1).J%).(.(|
000010F0: 31 29 AC 28 32 AA 43 AD  32 29 AA 2E 33 29 00 32  |1).(2.C.2)..3).2|
00001100: 19 DF 01 4E B2 52 28 51  2C 31 29 3A 54 28 51 2C  |...N.R(Q,1):T(Q,|
00001110: 31 29 B2 54 28 51 AB 31  2C 31 29 AA 54 28 51 2C  |1).T(Q.1,1).T(Q,|
00001120: 30 29 AB 54 28 51 AB 31  2C 30 29 AA BB 28 30 29  |0).T(Q.1,0)..(0)|
00001130: AC 32 00 72 19 E0 01 54  28 51 2C 31 29 B2 54 28  |.2.r...T(Q,1).T(|
00001140: 51 2C 31 29 AB 28 42 28  51 29 B2 31 29 AC BB 28  |Q,1).(B(Q).1)..(|
00001150: 31 29 AC 4D AC A5 4D 28  52 29 AD 32 30 3A 8B 52  |1).M..M(R).20:.R|
00001160: 28 51 2C 31 29 B1 52 28  51 AB 31 2C 31 29 A7 34  |(Q,1).R(Q.1,1).4|
00001170: 38 32 00 AA 19 E1 01 52  28 51 2C 31 29 B2 52 28  |82.....R(Q,1).R(|
00001180: 51 AB 31 2C 31 29 AA 2E  30 31 3A 8B 51 B1 B2 33  |Q.1,1)..01:.Q..3|
00001190: A7 54 28 51 2C 31 29 B2  54 28 51 AB 31 AA 28 43  |.T(Q,1).T(Q.1.(C|
000011A0: B2 31 29 AC 32 2C 31 29  AB 36 00 F2 19 E2 01 8D  |.1).2,1).6......|
000011B0: 34 38 33 3A 52 28 51 2C  30 29 B2 52 28 51 2C 31  |483:R(Q,0).R(Q,1|
000011C0: 29 3A 54 28 51 2C 30 29  B2 54 28 51 2C 31 29 3A  |):T(Q,0).T(Q,1):|
000011D0: 82 3A 52 28 30 2C 30 29  B2 52 28 30 2C 31 29 3A  |.:R(0,0).R(0,1):|
000011E0: 54 28 30 2C 30 29 B2 54  28 30 2C 31 29 3A 89 34  |T(0,0).T(0,1):.4|
000011F0: 37 36 00 1E 1A E3 01 48  B2 52 28 51 AB 31 2C 45  |76.....H.R(Q.1,E|
00001200: 29 3A 49 B2 54 28 51 AB  31 2C 45 29 3A 4A B2 52  |):I.T(Q.1,E):J.R|
00001210: 28 51 2C 45 29 3A 4B B2  54 28 51 2C 45 29 00 5E  |(Q,E):K.T(Q,E).^|
00001220: 1A E4 01 57 B2 28 4A AB  48 29 AC 28 31 2E 33 AA  |...W.(J.H).(1.3.|
00001230: BB 28 30 29 AC 2E 39 AB  28 4B B3 49 29 AC 31 2E  |.(0)..9.(K.I).1.|
00001240: 37 AC 28 BB 28 30 29 AA  31 29 29 AD BA 28 28 4A  |7.(.(0).1))..((J|
00001250: AB 48 29 AE 32 AA 28 4B  AB 49 29 AE 32 29 00 89  |.H).2.(K.I).2)..|
00001260: 1A E5 01 8B 4B B1 31 37  30 AF 4A B1 30 AF 4A B3  |....K.170.J.0.J.|
00001270: 33 32 30 A7 4A B2 52 28  51 2C 30 29 3A 4B B2 54  |320.J.R(Q,0):K.T|
00001280: 28 51 2C 30 29 3A 5A B2  30 00 B7 1A E6 01 81 58  |(Q,0):Z.0......X|
00001290: B2 48 A4 4A A9 57 3A 59  B2 49 AA 28 4B AB 49 29  |.H.J.W:Y.I.(K.I)|
000012A0: AC 28 58 AB 48 29 AD 28  4A AB 48 29 3A 9E 50 4C  |.(X.H).(J.H):.PL|
000012B0: 3A 82 3A 8B 5A A7 8E 00  E1 1A E7 01 81 59 B2 30  |:.:.Z........Y.0|
000012C0: A4 31 39 39 A9 38 3A 81  58 B2 30 A4 33 31 39 A9  |.199.8:.X.0.319.|
000012D0: 38 3A 55 B2 A5 50 28 4D  29 AC BB 28 30 29 AC 32  |8:U..P(M)..(0).2|
000012E0: 34 00 1D 1B E8 01 97 46  47 2C 37 AA 32 AC 28 59  |4......FG,7.2.(Y|
000012F0: B1 33 36 AA 55 29 AB 39  AC 28 59 B1 37 36 AA 55  |.36.U).9.(Y.76.U|
00001300: 29 AA 31 33 AC 28 59 B1  31 31 34 AA 55 29 3A 9E  |).13.(Y.114.U):.|
00001310: 45 52 3A 8B C2 28 53 45  29 A7 9E 50 4C 00 43 1B  |ER:..(SE)..PL.C.|
00001320: E9 01 82 3A 82 3A 97 34  39 2C C2 28 34 37 29 3A  |...:.:.49,.(47):|
00001330: 97 35 30 2C C2 28 34 38  29 3A 8D 32 32 30 3A 89  |.50,.(48):.220:.|
00001340: 31 35 35 00 00 00                                 |155...          |
..).... *** LOAD ML FROM DISK OR TAPE **
*.N...D.8:E.65:A.E:F.147:E$.G(F):P.57812
:L.62631:S.62957:.B(687).54.25......F,0:
.PG(E)." COORD.OBJ",D,1:.L:E.E.1:.E.A.2.
15.J.... *** SET COORDINATOR VARIABLES *
**.....RESET.681:CLEAR.686:PLOT.707:ERAS
E.714.?...SETFLAG.767:INIT.1020:MFLAG.0:
. MFLAG=1 TURNS ON MULTICOLOR, 0 IS OFF.
A.#.. *** SET COLOR REGISTERS ***.}.(.FG
.646:BO.53280:BG.BO.1...-..MF.M2.BO.2:M3
.BO.3:.M2,6:.M3,4:. SET MULTICOLOR REGS.
 (M1=FG)...2.. *** SET HI-RES VARIABLES 
***...7.BANK.1:SCNOFFSET.1:COLOFFSET.7.H
.<.. *** CREATE DISPLAY (NOTE CHANGES FR
OM MAGAZINE LISTING) ***...A..BO,0:.BG,0
:.FG,1:.E$:..90)". CHOOSE DEMONSTRATION 
..".K.F..FG,6:."  NOTE: THIS MENU IS PRO
VIDED FOR DISK  SUBSCRIBERS ONLY ";...K.
."AND RESULTS IN CHANGES":..7)"TO THE PU
BLISHED LISTING":.FG,1.B.P..:.:."> PRESS
 . D . TO RUN THE DEMO AND RETURN"...U..
.13)"TO THIS MENU.":."> PRESS . M . TO R
UN THE MOUNTAIN DEMO -"...Z.."  WHICH IN
CLUDES THE SAVE/LOAD ROUTINE"..._..:."> 
PRESS ANY OTHER KEY TO END THE PROGRAM".
..D..198,0.*.I..NR$:..(NR$."").2.(NR$."D
").3.(NR$."M").105,115,120.3.N..175.A.S.
.185:.365.O.X..185:.465.U.... *** RESTOR
E DEFAULT DISPJ.........6.6.............
1...R...P....V...............X.......I..
..D....X..Y.....P....X.........Z. PZ...T
...4.U....U....1..............OLOR IS DI
FFERENT FROM BACKGROUND.K....53270,200:.
56576,151:................,21:.SF...Q...
..M.... *** SET UP HI-RES ***......56576
,(B(56576).252).(3.BANK*.1........V...Y.
.Y....L".S3#CR..3#...EU$.....$.DT... .0.
.TJYSS3#S.L".S3#S....C...4UB.UTED.4.D.".
.B.FESIRED.E.H..53272,(COLOFFSET.16.SCNO
FFSET.8):. POSITION HI-RES AND COLOR MEM
ORIES.K.M...U.R.. *** SCREEN SAVE/LOAD S
UBROUTINE ***...W.. NOTE: IS DEPENDENT O
N VARIABLES FROM MAIN PROGRAM.....D.8:E.
49:OK.1:B(1).BA.64.SC.32:T(1).B(1).32:B(
2).BA.64.CO.4:T(2).B(2).4.6...B(3).208:T
(3).B(3).1:B(4).216:T(4).B(4).4:SF.1:.16
5:SF.0.@....E$:..{.....7)"** SAVE OR LOA
D SCREEN **":.:."  SCREEN NAME";SN$.....
GV.C(SN$):..(GV.1.GV.15).230:..X...."> F
OR SAVE - PRESS .S.":.:."> FOR LOAD - PR
ESS .L."......L$:.L$."".L$.."S".L$.."L".
250.6....:.:." .RESULTS. - NAME IS "SN$:
..11)"AND THIS IS A ";.O....L$."S".."SAV
E":.270.[...."LOAD"......:.:..6)">> IF C
ORRECT - PRESS .C. <<"......:..5)"ANY OT
HER KEY ALLOWS CHANGES".T....M$:..(M$.""
).2.(M$."C").280,290......230..."..E$:."
 SAVING:"SN$:.L$."L"..E$:." LOADING:"SN$
:.320.?.'..P"@:".G(E).SN$,D,1:.193,0:.19
4,B(OK).X.,..174,0:.175,T(OK):.S.T.1.E.E
.1:OK.OK.1:.OK.4.295...6..MF.OK.4.295...
;..340...@..F,0:.PG(E).SN$,D,1:.L...E.E.
E.1:.E.52.320.N.J..MF.E.52.320...O..D..8
.355...T.QA.0:.15,8,15:.15,QA,QB$,QC,QD:
 15:.QA.20.355.?.Y..E$:." DISK ERROR!":.
:..13)". DISK STATUS .".X.^..:..7)QA;QB$
;QC;QD:..C.C..185:..V.H.. *** DEMO ***..
.M..BO,0:.BG,0:.FG,1:Y.100:X.160:.CLEAR:
O.X:N.Y:. SET SCREEN...R..R.7.87.8:.BG,.
(R.8.7).R.7:.FG,R.7.8.(R.8.7):. RADIUS &
 COLOR.6.W..A.0...2.2.R:X.R..(A).O:Y.R..
(A).N:.PLOT:. SWEEP 90 DEGREES.~.|.X..X.
2.O:.PLOT:Y..Y.2.N:.PLOT:X..X.2.O:.PLOT:
. BUT PLOT 4 QUADRANTS......A......R.F..
..MF..M3,5:. BIT PATTERN 1,1 PLOTS GREEN
 IF MULTICOLOR.....Y.100:.X.0.319:.BG,X.
8:.FG,X.8.1:.PLOT:.:.DRAW COLORED LINE.C
....BG,0:.FG,10:.X.0.319:.ERASE:.:. ERAS
E LINE WITH LT. RED.X...Y.95:.FG,1:.X.0.
319:.PLOT:.B(SETFLAG)..PLOT:.420......ER
ASE:. 395-405 MOVE A WHITE POINT BUT DON
'T ERASE.............MC(A)..(A).(.(A.2).
..(A).2):.CL:R.95:.646,2."....A.0.319.2.
26:X..MC(A):Y.R.80..(A.20):.ER:X.X.1:.PL
:..\....A.0.319.2.26:X..MC(A):Y.R.60..(A
.25):.PL:X.X.1:.ER:.......A.0.319.2.26:X
..MC(A):Y.R.40..(A.30):.PL:X.X.1:.PL:..P
....A.0.319.2.26:X..MC(A):Y.R.60..(A.25)
:.ER:X.X.1:.ER:....B.SF.1:.165:SF.0:.65.
..L.. *** MOUNTAIN DEMO ***./.Q..198,0:.
FG,11:.BG,0:.BO,0:X..1:Y..1:.CL.M.R.J%..
(0).10:J%..J%.(J%.3.J%..) ..(J%.0).466:J
%.J%.4:C.2.J%...S.J.35.(C.1).17:V.2:A..2
0:J%..(0).5:B..J%.20:Z.1:E.0...T.H..((32
0.B).(J.10)):. G(H.1):G(0).B:..P(M).(.1)
..(.(0).3)...U...M(R).(N.(N.80).N..3).13
3.(N.180).(N.180).79.H.V..Q.1.H:G(Q).G(Q
.1).J..(0).10:.G(Q)..320.O.Q:Q.H...W..:.
R(O.1,2),T(O.1,2),U(O.1),B(O.1):J%..(0).
5:M.10.(J%.4.C).5...X.J%..(C.1):R(0,0).G
(0):T(0,0)..(0).3.3.A:U(0).1...Y..Q.1.O:
R(Q,0).G(Q):U(Q).U(Q.1).(1.2.(Q.C..(Q.C)
)).#.Z.T(Q,0).T(Q.1,0).((.(0).3.3.2).U(Q
)):N.R(Q,0).H...T(Q,0).T(Q,0).(N..160).N
.80.(N.160).N.120:.483:B(Q)..(K.I):.:E.1
.....V.V..004:M.M.V.1.0001:R(0,1).R(0,0)
..9..(0)..5..P(M).A...T(0,1).T(0,0)..(0)
.2:.Q.1.O.....R(Q,1).R(Q,0).(1.(B(Q).0.B
(Q.1).1).J%).(.(1).(2.C.2)..3).2...N.R(Q
,1):T(Q,1).T(Q.1,1).T(Q,0).T(Q.1,0)..(0)
.2.R...T(Q,1).T(Q,1).(B(Q).1)..(1).M..M(
R).20:.R(Q,1).R(Q.1,1).482.....R(Q,1).R(
Q.1,1)..01:.Q..3.T(Q,1).T(Q.1.(C.1).2,1)
.6......483:R(Q,0).R(Q,1):T(Q,0).T(Q,1):
.:R(0,0).R(0,1):T(0,0).T(0,1):.476.....H
.R(Q.1,E):I.T(Q.1,E):J.R(Q,E):K.T(Q,E).^
...W.(J.H).(1.3..(0)..9.(K.I).1.7.(.(0).
1))..((J.H).2.(K.I).2)......K.170.J.0.J.
320.J.R(Q,0):K.T(Q,0):Z.0......X.H.J.W:Y
.I.(K.I).(X.H).(J.H):.PL:.:.Z........Y.0
.199.8:.X.0.319.8:U..P(M)..(0).24......F
G,7.2.(Y.36.U).9.(Y.76.U).13.(Y.114.U):.
ER:.B(SE)..PL.C....:.:.49,B(47):.50,B(48
):.220:.155...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL