COORD DEMOS
FILE INFORMATION
FILENAME(S): COORD DEMOS
FILE TYPE(S): PRG
FILE SIZE: 4.8K
FIRST SEEN: 2025-10-19 22:48:43
APPEARS ON: 1 disk(s)
FILE HASH
ac4d98f9a271375e718e5597c27c49d4191c5ae96d61ba882fae9c14c459c7b4
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GAZETTE MAR 86 | COORD DEMOS | PRG | Radd Maxx | 25 | 5 | 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 4C 41 |E DEFAULT DISPLA|
00000470: 59 20 2A 2A 2A 00 AC 0C 9B 00 8B C2 28 31 39 38 |Y ***.......(198|
00000480: 29 B2 30 A7 31 35 35 3A 8F 20 57 41 49 54 20 46 |).0.155:. WAIT F|
00000490: 4F 52 20 41 20 4B 45 59 50 52 45 53 53 20 54 4F |OR A KEYPRESS TO|
000004A0: 20 45 4E 44 20 50 52 4F 47 52 41 4D 00 D6 0C A0 | END PROGRAM....|
000004B0: 00 97 31 39 38 2C 30 3A 8F 20 54 49 44 59 20 55 |..198,0:. TIDY U|
000004C0: 50 20 4B 45 59 50 52 45 53 53 20 49 46 20 49 54 |P KEYPRESS IF IT|
000004D0: 20 43 4F 4D 45 53 00 17 0D A5 00 97 46 47 2C C2 | COMES......FG,.|
000004E0: 28 42 47 29 AA 31 3A 8F 20 45 4E 53 55 52 45 20 |(BG).1:. ENSURE |
000004F0: 54 45 58 54 20 43 4F 4C 4F 52 20 49 53 20 44 49 |TEXT COLOR 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 97 35 33 32 36 35 2C 32 37 3A 97 35 33 32 |1:.53265,27:.532|
00000540: 37 32 2C 32 31 3A 8B 53 46 A7 8E 00 51 0D AF 00 |72,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 29 |6).252).(3.BANK)|
00000590: 3A 8F 20 53 45 54 20 42 41 4E 4B 00 C3 0D BE 00 |:. SET BANK.....|
000005A0: 97 35 33 32 36 35 2C C2 28 35 33 32 36 35 29 B0 |.53265,.(53265).|
000005B0: 33 32 3A 8F 20 54 55 52 4E 20 4F 4E 20 42 49 54 |32:. TURN ON BIT|
000005C0: 4D 41 50 00 FA 0D C3 00 8B 4D 46 A7 97 35 33 32 |MAP......MF..532|
000005D0: 37 30 2C C2 28 35 33 32 37 30 29 B0 31 36 3A 8F |70,.(53270).16:.|
000005E0: 20 53 45 54 20 4D 55 4C 54 49 43 4F 4C 4F 52 20 | SET MULTICOLOR |
000005F0: 49 46 20 44 45 53 49 52 45 44 00 45 0E C8 00 97 |IF DESIRED.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 37 |%..J%.(J%.3.J%.7|
00000E50: 29 3A 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 DISPLAY ***......B(198).0.155:
. WAIT FOR A KEYPRESS TO END PROGRAM.V.
..198,0:. TIDY UP KEYPRESS IF IT COMES..
....FG,B(BG).1:. ENSURE TEXT COLOR IS DI
FFERENT FROM BACKGROUND.K....53270,200:.
56576,151:.53265,27:.53272,21:.SF...Q...
..M.... *** SET UP HI-RES ***......56576
,(B(56576).252).(3.BANK):. SET BANK.C...
.53265,B(53265).32:. TURN ON BITMAP...C.
.MF..53270,B(53270).16:. SET MULTICOLOR
IF DESIRED.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%.7):..(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 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL