ARTIST
FILE INFORMATION
FILENAME(S): ARTIST
FILE TYPE(S): PRG
FILE SIZE: 3K
FIRST SEEN: 2025-12-02 00:17:31
APPEARS ON: 1 disk(s)
FILE HASH
0177c5e6a97dd73357aa8f86bb1f13831f4ca701f246bab3a34b85cbaf851b2f
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DISK020B | ARTIST | PRG | Maestro | 23 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 25 08 F8 2A 8F 23 22 B8 B8 B8 B8 B8 B8 B8 |..%..*.#".......|
00000010: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
00000020: B8 B8 B8 B8 B8 00 3D 08 02 2B 8F 20 20 20 20 20 |......=..+. |
00000030: 20 20 20 20 56 41 52 49 41 42 4C 45 53 00 61 08 | VARIABLES.a.|
00000040: 0C 2B 8F 20 22 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 |.+. "...........|
00000050: B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 |................|
00000060: B9 00 6E 08 16 2B 52 24 B2 C7 28 31 33 29 00 92 |..n..+R$..(13)..|
00000070: 08 E0 2E 8F 23 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |....#"..........|
00000080: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
00000090: B8 B8 00 AE 08 EA 2E 8F 20 20 20 20 20 43 55 52 |........ CUR|
000000A0: 53 4F 52 2C 4D 4F 56 45 2C 50 52 49 4E 54 00 D2 |SOR,MOVE,PRINT..|
000000B0: 08 F4 2E 8F 20 22 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 |.... "..........|
000000C0: B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 |................|
000000D0: B9 B9 00 DD 08 FE 2E 99 20 22 93 22 3B 00 F0 08 |........ ".";...|
000000E0: 08 2F 97 20 36 35 30 2C 32 35 35 3A A1 20 41 24 |./. 650,255:. A$|
000000F0: 00 28 09 12 2F 43 43 B2 C2 28 32 31 31 29 AA C2 |.(../CC..(211)..|
00000100: 28 32 31 30 29 AC 32 35 36 AA C2 28 32 30 39 29 |(210).256..(209)|
00000110: 3A 50 50 B2 C2 28 43 43 29 3A 50 43 B2 C2 28 43 |:PP..(CC):PC..(C|
00000120: 43 AA 35 34 32 37 32 29 00 63 09 1C 2F 97 20 43 |C.54272).c../. C|
00000130: 43 2C 34 32 3A 97 20 43 43 AA 35 34 32 37 32 2C |C,42:. CC.54272,|
00000140: 43 55 3A 81 20 49 B2 31 A4 31 35 3A 82 3A 97 20 |CU:. I.1.15:.:. |
00000150: 43 43 2C 50 50 3A 97 20 43 43 AA 35 34 32 37 32 |CC,PP:. CC.54272|
00000160: 2C 50 43 00 77 09 26 2F 8B 20 41 24 B2 22 22 20 |,PC.w.&/. A$."" |
00000170: A7 20 31 32 30 34 30 00 96 09 30 2F 8B 20 43 43 |. 12040...0/. CC|
00000180: B1 31 39 38 33 20 AF 20 41 24 B2 22 11 22 20 A7 |.1983 . A$."." .|
00000190: 20 31 32 30 34 30 00 B5 09 3A 2F 8B 20 43 43 B2 | 12040...:/. CC.|
000001A0: 32 30 32 33 20 AF 20 41 24 B2 22 1D 22 20 A7 20 |2023 . A$."." . |
000001B0: 31 32 30 34 30 00 D4 09 44 2F 8B 20 43 43 B2 31 |12040...D/. CC.1|
000001C0: 30 32 34 20 AF 20 41 24 B2 22 9D 22 20 A7 20 31 |024 . A$."." . 1|
000001D0: 32 30 34 30 00 F3 09 4E 2F 8B 20 43 43 B3 31 30 |2040...N/. CC.10|
000001E0: 36 34 20 AF 20 41 24 B2 22 91 22 20 A7 20 31 32 |64 . A$."." . 12|
000001F0: 30 34 30 00 2B 0A 58 2F 8B 20 41 24 B2 22 91 22 |040.+.X/. A$."."|
00000200: 20 B0 20 41 24 B2 22 11 22 20 B0 20 41 24 B2 22 | . A$."." . A$."|
00000210: 1D 22 20 B0 20 41 24 B2 22 9D 22 20 A7 20 99 20 |." . A$."." . . |
00000220: 41 24 3B 3A 89 20 31 32 30 34 30 00 44 0A 62 2F |A$;:. 12040.D.b/|
00000230: 8B 20 41 24 B2 C7 28 31 33 33 29 20 A7 20 4D 4F |. A$..(133) . MO|
00000240: 44 45 B2 31 00 5D 0A 6C 2F 8B 20 41 24 B2 C7 28 |DE.1.].l/. A$..(|
00000250: 31 33 37 29 20 A7 20 4D 4F 44 45 B2 32 00 76 0A |137) . MODE.2.v.|
00000260: 76 2F 8B 20 41 24 B2 C7 28 31 33 34 29 20 A7 20 |v/. A$..(134) . |
00000270: 4D 4F 44 45 B2 33 00 8E 0A 7B 2F 8B 20 41 24 B2 |MODE.3...{/. A$.|
00000280: C7 28 31 33 38 29 20 A7 20 31 32 30 33 30 00 CF |.(138) . 12030..|
00000290: 0A 80 2F 8B 20 28 4D 4F 44 45 B2 31 20 B0 20 4D |../. (MODE.1 . M|
000002A0: 4F 44 45 B2 32 20 B0 20 4D 4F 44 45 B2 33 29 20 |ODE.2 . MODE.3) |
000002B0: AF 20 41 24 B2 22 5F 22 20 A7 20 4D 4F 44 45 B2 |. A$."_" . MODE.|
000002C0: 4D 4F 44 45 AA 2E 35 3A 89 20 31 32 30 34 30 00 |MODE..5:. 12040.|
000002D0: ED 0A 8A 2F 8B 20 41 24 B2 C7 28 31 33 35 29 20 |.../. A$..(135) |
000002E0: A7 20 49 4E 56 B2 28 49 4E 56 B2 30 29 00 06 0B |. INV.(INV.0)...|
000002F0: 94 2F 8B 20 41 24 B2 C7 28 31 33 39 29 20 A7 20 |./. A$..(139) . |
00000300: 4D 4F 44 45 B2 36 00 1F 0B 9E 2F 8B 20 41 24 B2 |MODE.6..../. A$.|
00000310: C7 28 31 33 36 29 20 A7 20 4D 4F 44 45 B2 37 00 |.(136) . MODE.7.|
00000320: 38 0B A8 2F 8B 20 41 24 B2 C7 28 31 34 30 29 20 |8../. A$..(140) |
00000330: A7 20 4D 4F 44 45 B2 38 00 76 0B B2 2F 8B 20 4D |. MODE.8.v../. M|
00000340: 4F 44 45 B2 31 20 AF 20 41 24 B1 B2 22 31 22 20 |ODE.1 . A$.."1" |
00000350: AF 20 41 24 B3 B2 22 38 22 20 A7 20 97 20 43 43 |. A$.."8" . . CC|
00000360: AA 35 34 32 37 32 2C C5 28 41 24 29 AB 31 3A 89 |.54272,.(A$).1:.|
00000370: 20 31 32 30 34 30 00 B4 0B BC 2F 8B 4D 4F 44 45 | 12040..../.MODE|
00000380: B2 31 2E 35 AF 41 24 B1 B2 22 31 22 20 AF 20 41 |.1.5.A$.."1" . A|
00000390: 24 B3 B2 22 38 22 20 A7 20 97 20 43 43 AA 35 34 |$.."8" . . CC.54|
000003A0: 32 37 32 2C 38 AA C5 28 41 24 29 AB 31 3A 89 31 |272,8..(A$).1:.1|
000003B0: 32 30 34 30 00 EF 0B C6 2F 8B 20 4D 4F 44 45 B2 |2040..../. MODE.|
000003C0: 32 20 AF 20 41 24 B1 B2 22 31 22 20 AF 20 41 24 |2 . A$.."1" . A$|
000003D0: B3 B2 22 38 22 20 A7 20 97 20 35 33 32 38 31 2C |.."8" . . 53281,|
000003E0: C5 28 41 24 29 AB 31 3A 89 20 31 32 30 34 30 00 |.(A$).1:. 12040.|
000003F0: 2D 0C D0 2F 8B 20 4D 4F 44 45 B2 32 2E 35 20 AF |-../. MODE.2.5 .|
00000400: 20 41 24 B1 B2 22 31 22 20 AF 20 41 24 B3 B2 22 | A$.."1" . A$.."|
00000410: 38 22 20 A7 20 97 20 35 33 32 38 31 2C 38 AA C5 |8" . . 53281,8..|
00000420: 28 41 24 29 AB 31 3A 89 31 32 30 34 30 00 66 0C |(A$).1:.12040.f.|
00000430: DA 2F 8B 20 4D 4F 44 45 B2 33 20 AF 20 41 24 B1 |./. MODE.3 . A$.|
00000440: B2 22 31 22 20 AF 20 41 24 B3 B2 22 38 22 20 A7 |."1" . A$.."8" .|
00000450: 20 97 20 36 34 36 2C C5 28 41 24 29 AB 31 3A 89 | . 646,.(A$).1:.|
00000460: 20 31 32 30 34 30 00 A3 0C E4 2F 8B 20 4D 4F 44 | 12040..../. MOD|
00000470: 45 B2 33 2E 35 20 AF 20 41 24 B1 B2 22 31 22 20 |E.3.5 . A$.."1" |
00000480: AF 20 41 24 B3 B2 22 38 22 20 A7 20 97 20 36 34 |. A$.."8" . . 64|
00000490: 36 2C 38 AA C5 28 41 24 29 AB 31 3A 89 20 31 32 |6,8..(A$).1:. 12|
000004A0: 30 34 30 00 D9 0C EE 2F 8B 20 4D 4F 44 45 B3 B1 |040..../. MODE..|
000004B0: 36 20 B0 20 28 41 24 B3 B1 22 52 22 20 AF 20 41 |6 . (A$.."R" . A|
000004C0: 24 B3 B1 22 44 22 20 AF 20 41 24 B3 B1 22 53 22 |$.."D" . A$.."S"|
000004D0: 29 20 A7 20 31 32 33 32 30 00 F0 0C F8 2F 8B 20 |) . 12320..../. |
000004E0: 41 24 B2 22 52 22 20 A7 20 8D 20 31 33 30 30 30 |A$."R" . . 13000|
000004F0: 00 07 0D 02 30 8B 20 41 24 B2 22 44 22 20 A7 20 |....0. A$."D" . |
00000500: 8D 20 31 33 30 36 30 00 1E 0D 0C 30 8B 20 41 24 |. 13060....0. A$|
00000510: B2 22 53 22 20 A7 20 8D 20 31 34 30 30 30 00 30 |."S" . . 14000.0|
00000520: 0D 16 30 43 43 B2 43 54 3A 89 20 31 32 30 34 30 |..0CC.CT:. 12040|
00000530: 00 66 0D 20 30 8B 20 4D 4F 44 45 B2 38 20 AF 20 |.f. 0. MODE.8 . |
00000540: 41 24 B1 B2 22 31 22 20 AF 20 41 24 B3 B2 22 38 |A$.."1" . A$.."8|
00000550: 22 20 A7 20 43 55 B2 C5 28 41 24 29 AB 31 3A 89 |" . CU..(A$).1:.|
00000560: 20 31 32 30 34 30 00 7C 0D 2A 30 8B 20 49 4E 56 | 12040.|.*0. INV|
00000570: B2 AB 31 20 A7 20 99 20 22 12 22 3B 00 8A 0D 34 |..1 . . ".";...4|
00000580: 30 99 20 41 24 3B 22 92 22 3B 00 96 0D 3E 30 89 |0. A$;".";...>0.|
00000590: 20 31 32 30 34 30 00 BA 0D C8 32 8F 23 22 B8 B8 | 12040....2.#"..|
000005A0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
000005B0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 D4 0D D2 32 8F |..............2.|
000005C0: 20 20 20 20 20 20 20 20 20 53 41 56 45 20 44 45 | SAVE DE|
000005D0: 53 49 47 4E 00 F8 0D DC 32 8F 20 22 B9 B9 B9 B9 |SIGN....2. "....|
000005E0: B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 |................|
000005F0: B9 B9 B9 B9 B9 B9 B9 B9 00 11 0E E6 32 A1 20 54 |............2. T|
00000600: 24 3A 8B 20 54 24 B2 22 22 20 A7 20 31 33 30 33 |$:. T$."" . 1303|
00000610: 30 00 2C 0E F0 32 8B 20 54 24 B3 B1 22 31 22 20 |0.,..2. T$.."1" |
00000620: AF 20 54 24 B3 B1 22 32 22 A7 20 8E 00 65 0E FA |. T$.."2". ..e..|
00000630: 32 43 4F 28 C5 28 54 24 29 AC 32 AB 32 29 B2 C2 |2CO(.(T$).2.2)..|
00000640: 28 32 31 31 29 3A 43 4F 28 C5 28 54 24 29 AC 32 |(211):CO(.(T$).2|
00000650: AB 31 29 B2 B5 28 28 43 43 AB 31 30 32 34 29 AD |.1)..((CC.1024).|
00000660: 34 30 29 3A 8E 00 89 0E 04 33 8F 2A 2A 2A 2A 2A |40):.....3.*****|
00000670: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000680: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 9C 0E 0E 33 43 54 |*********....3CT|
00000690: B2 43 43 3A 97 20 36 34 36 2C 43 55 00 C6 0E 18 |.CC:. 646,CU....|
000006A0: 33 8B 20 43 4F 28 30 29 B3 B2 43 4F 28 32 29 20 |3. CO(0)..CO(2) |
000006B0: AF 20 43 4F 28 31 29 B3 B2 43 4F 28 33 29 20 A7 |. CO(1)..CO(3) .|
000006C0: 20 31 33 31 31 30 00 FD 0E 22 33 99 20 22 13 52 | 13110..."3. ".R|
000006D0: 45 43 54 41 4E 47 4C 45 20 49 4D 50 52 4F 50 45 |ECTANGLE IMPROPE|
000006E0: 52 4C 59 20 44 45 46 49 4E 45 44 2E 22 3B 3A 81 |RLY DEFINED.";:.|
000006F0: 20 49 B2 31 20 A4 20 31 30 30 30 3A 82 00 30 0F | I.1 . 1000:..0.|
00000700: 2C 33 99 20 22 13 20 20 20 20 20 20 20 20 20 20 |,3. ". |
00000710: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000720: 20 20 20 20 20 20 20 20 20 20 20 20 22 3B 3A 8E | ";:.|
00000730: 00 62 0F 36 33 8B 20 28 43 4F 28 32 29 AB 43 4F |.b.63. (CO(2).CO|
00000740: 28 30 29 AB 31 29 AC 28 43 4F 28 33 29 AB 43 4F |(0).1).(CO(3).CO|
00000750: 28 31 29 AB 31 29 B3 32 35 31 20 A7 20 31 33 31 |(1).1).251 . 131|
00000760: 34 30 00 8D 0F 40 33 99 20 22 13 44 45 53 49 47 |40...@3. ".DESIG|
00000770: 4E 20 54 4F 4F 20 4C 41 52 47 45 2E 22 3B 3A 81 |N TOO LARGE.";:.|
00000780: 20 49 B2 31 20 A4 20 31 30 30 30 3A 82 00 BE 0F | I.1 . 1000:....|
00000790: 4A 33 99 20 22 13 20 20 20 20 20 20 20 20 20 20 |J3. ". |
000007A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000007B0: 20 20 20 20 20 20 20 20 20 20 20 20 22 3B 00 02 | ";..|
000007C0: 10 54 33 81 20 49 B2 31 20 A4 20 32 3A 50 54 B2 |.T3. I.1 . 2:PT.|
000007D0: 31 30 32 34 AA 34 30 AC 43 4F 28 49 AC 32 AB 31 |1024.40.CO(I.2.1|
000007E0: 29 AA 43 4F 28 49 AC 32 AB 32 29 3A 54 43 28 49 |).CO(I.2.2):TC(I|
000007F0: 29 B2 50 54 3A 54 43 28 49 AA 32 29 B2 C2 28 50 |).PT:TC(I.2)..(P|
00000800: 54 29 00 1E 10 5E 33 97 20 50 54 2C 34 32 3A 97 |T)...^3. PT,42:.|
00000810: 20 50 54 AA 35 34 32 37 32 2C 43 55 3A 82 00 54 | PT.54272,CU:..T|
00000820: 10 68 33 85 20 22 13 54 48 45 53 45 20 50 4F 49 |.h3. ".THESE POI|
00000830: 4E 54 53 20 4F 2E 4B 2E 20 28 59 2F 4E 29 3A 22 |NTS O.K. (Y/N):"|
00000840: 3B 51 24 3A 8B 20 51 24 B2 22 59 22 20 A7 20 31 |;Q$:. Q$."Y" . 1|
00000850: 33 31 37 30 00 95 10 6A 33 99 20 22 13 20 20 20 |3170...j3. ". |
00000860: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000870: 20 20 20 20 20 20 20 20 20 20 20 22 3A 81 20 49 | ":. I|
00000880: B2 31 A4 32 3A 97 54 43 28 49 29 2C 54 43 28 49 |.1.2:.TC(I),TC(I|
00000890: AA 32 29 3A 82 00 9B 10 6C 33 8E 00 D9 10 72 33 |.2):....l3....r3|
000008A0: 44 31 24 B2 22 22 3A 44 32 24 B2 22 22 3A 81 20 |D1$."":D2$."":. |
000008B0: 49 B2 43 4F 28 31 29 AA 31 20 A4 20 43 4F 28 33 |I.CO(1).1 . CO(3|
000008C0: 29 AB 31 3A 81 20 4A B2 43 4F 28 30 29 AA 31 20 |).1:. J.CO(0).1 |
000008D0: A4 20 43 4F 28 32 29 AB 31 00 08 11 7C 33 44 31 |. CO(2).1...|3D1|
000008E0: 24 B2 44 32 24 AA C7 28 C2 28 31 30 32 34 AA 34 |$.D2$..(.(1024.4|
000008F0: 30 AC 49 AA 4A 29 29 3A 97 20 31 30 32 34 AA 34 |0.I.J)):. 1024.4|
00000900: 30 AC 49 AA 4A 2C 34 32 00 45 11 86 33 44 32 24 |0.I.J,42.E..3D2$|
00000910: B2 44 32 24 AA C7 28 C2 28 35 35 32 39 36 AA 34 |.D2$..(.(55296.4|
00000920: 30 AC 49 AA 4A 29 29 3A 97 20 35 35 32 39 36 AA |0.I.J)):. 55296.|
00000930: 34 30 AC 49 AA 4A 2C 30 3A 82 20 4A 2C 49 3A 99 |40.I.J,0:. J,I:.|
00000940: 20 22 93 22 3B 00 85 11 90 33 44 33 24 B2 44 31 | ".";....3D3$.D1|
00000950: 24 3A 44 34 24 B2 44 32 24 3A 81 20 49 B2 43 4F |$:D4$.D2$:. I.CO|
00000960: 28 31 29 AA 31 20 A4 20 43 4F 28 33 29 AB 31 3A |(1).1 . CO(3).1:|
00000970: 81 20 4A B2 43 4F 28 30 29 AA 31 20 A4 20 43 4F |. J.CO(0).1 . CO|
00000980: 28 32 29 AB 31 00 B7 11 9A 33 97 20 31 30 32 34 |(2).1....3. 1024|
00000990: AA 34 30 AC 49 AA 4A 2C C6 28 C8 28 44 33 24 2C |.40.I.J,.(.(D3$,|
000009A0: 31 29 29 3A 44 33 24 B2 C9 28 44 33 24 2C C3 28 |1)):D3$..(D3$,.(|
000009B0: 44 33 24 29 AB 31 29 00 F0 11 A4 33 97 20 35 35 |D3$).1)....3. 55|
000009C0: 32 39 36 AA 34 30 AC 49 AA 4A 2C C6 28 C8 28 44 |296.40.I.J,.(.(D|
000009D0: 34 24 2C 31 29 29 3A 44 34 24 B2 C9 28 44 34 24 |4$,1)):D4$..(D4$|
000009E0: 2C C3 28 44 34 24 29 AB 31 29 3A 82 20 4A 2C 49 |,.(D4$).1):. J,I|
000009F0: 00 25 12 AE 33 99 20 22 13 54 48 49 53 20 49 53 |.%..3. ".THIS IS|
00000A00: 20 57 48 41 54 20 49 53 20 42 45 49 4E 47 20 53 | WHAT IS BEING S|
00000A10: 41 56 45 44 2E 22 3A 81 20 49 B2 31 20 A4 20 31 |AVED.":. I.1 . 1|
00000A20: 30 30 30 3A 82 00 57 12 B8 33 85 20 22 13 50 4F |000:..W..3. ".PO|
00000A30: 53 49 54 49 4F 4E 20 54 41 50 45 20 43 4F 52 52 |SITION TAPE CORR|
00000A40: 45 43 54 4C 59 2C 20 54 48 45 4E 20 52 45 54 55 |ECTLY, THEN RETU|
00000A50: 52 4E 3A 22 3B 51 24 00 89 12 C2 33 99 20 22 13 |RN:";Q$....3. ".|
00000A60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000A70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000A80: 20 20 20 20 20 20 13 22 3B 00 BD 12 CC 33 9F 20 | .";....3. |
00000A90: 31 2C 31 2C 31 2C 22 41 52 54 49 53 54 22 3A 81 |1,1,1,"ARTIST":.|
00000AA0: 20 49 B2 30 20 A4 20 33 3A 98 31 2C 43 4F 28 49 | I.0 . 3:.1,CO(I|
00000AB0: 29 3A 82 3A 98 31 2C C3 28 44 31 24 29 00 F4 12 |):.:.1,.(D1$)...|
00000AC0: D6 33 81 20 49 B2 31 20 A4 20 C3 28 44 31 24 29 |.3. I.1 . .(D1$)|
00000AD0: 3A 98 31 2C C6 28 CA 28 44 31 24 2C 49 2C 31 29 |:.1,.(.(D1$,I,1)|
00000AE0: 29 20 52 24 20 C6 28 CA 28 44 32 24 2C 49 2C 31 |) R$ .(.(D2$,I,1|
00000AF0: 29 29 3A 82 00 FD 12 E0 33 A0 31 3A 8E 00 21 13 |)):.....3.1:..!.|
00000B00: B0 36 8F 23 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |.6.#"...........|
00000B10: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
00000B20: B8 00 3C 13 BA 36 8F 20 20 20 20 20 20 20 20 20 |..<..6. |
00000B30: 20 53 41 56 45 20 53 43 52 45 45 4E 00 60 13 C4 | SAVE SCREEN.`..|
00000B40: 36 8F 20 22 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 |6. "............|
00000B50: B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 |................|
00000B60: 00 92 13 CE 36 99 20 22 13 50 4F 53 49 54 49 4F |....6. ".POSITIO|
00000B70: 4E 20 54 41 50 45 20 43 4F 52 52 45 43 54 4C 59 |N TAPE CORRECTLY|
00000B80: 2C 20 54 48 45 4E 20 52 45 54 55 52 4E 3A 22 3B |, THEN RETURN:";|
00000B90: 51 24 00 D4 13 D8 36 99 20 22 13 20 20 20 20 20 |Q$....6. ". |
00000BA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000BB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000BC0: 20 22 3B 3A 9F 20 31 2C 31 2C 31 2C 22 53 43 52 | ";:. 1,1,1,"SCR|
00000BD0: 45 45 4E 22 00 03 14 E2 36 81 49 B2 30 A4 39 39 |EEN"....6.I.0.99|
00000BE0: 39 3A 98 31 2C C2 28 31 30 32 34 AA 49 29 3A 98 |9:.1,.(1024.I):.|
00000BF0: 31 2C C2 28 35 35 32 39 36 AA 49 29 3A 82 3A A0 |1,.(55296.I):.:.|
00000C00: 31 3A 8E 00 00 00 |1:.... |
..%..*.#".............................=.
.+. VARIABLES.A..+. "...........
..................N..+R$.G(13)......#"..
................................ CUR
SOR,MOVE,PRINT.R.... "..................
................ ".";..../. 650,255:. A$
.(../CC.B(211).B(210).256.B(209):PP.B(CC
):PC.B(CC.54272).C../. CC,42:. CC.54272,
CU:. I.1.15:.:. CC,PP:. CC.54272,PC.W.&/
. A$."" . 12040...0/. CC.1983 . A$."." .
12040...:/. CC.2023 . A$."." . 12040.T.
D/. CC.1024 . A$."." . 12040...N/. CC.10
64 . A$."." . 12040.+.X/. A$."." . A$.".
" . A$."." . A$."." . . A$;:. 12040.D.B/
. A$.G(133) . MODE.1.].L/. A$.G(137) . M
ODE.2.V.V/. A$.G(134) . MODE.3...{/. A$.
G(138) . 12030.O../. (MODE.1 . MODE.2 .
MODE.3) . A$."_" . MODE.MODE..5:. 12040.
.../. A$.G(135) . INV.(INV.0)..../. A$.G
(139) . MODE.6..../. A$.G(136) . MODE.7.
8../. A$.G(140) . MODE.8.V../. MODE.1 .
A$.."1" . A$.."8" . . CC.54272,E(A$).1:.
12040..../.MODE.1.5.A$.."1" . A$.."8" .
. CC.54272,8.E(A$).1:.12040...F/. MODE.
2 . A$.."1" . A$.."8" . . 53281,E(A$).1:
. 12040.-.P/. MODE.2.5 . A$.."1" . A$.."
8" . . 53281,8.E(A$).1:.12040.F.Z/. MODE
.3 . A$.."1" . A$.."8" . . 646,E(A$).1:.
12040..../. MODE.3.5 . A$.."1" . A$.."8
" . . 646,8.E(A$).1:. 12040.Y../. MODE..
6 . (A$.."R" . A$.."D" . A$.."S") . 1232
0..../. A$."R" . . 13000....0. A$."D" .
. 13060....0. A$."S" . . 14000.0..0CC.CT
:. 12040.F. 0. MODE.8 . A$.."1" . A$.."8
" . CU.E(A$).1:. 12040.|.*0. INV..1 . .
".";...40. A$;".";...>0. 12040...H2.#"..
...........................T.R2.
SAVE DESIGN....2. "....................
............2. T$:. T$."" . 13030.,..2.
T$.."1" . T$.."2". ..E..2CO(E(T$).2.2).B
(211):CO(E(T$).2.1)..((CC.1024).40):....
.3.******************************....3CT
.CC:. 646,CU.F..3. CO(0)..CO(2) . CO(1).
.CO(3) . 13110..."3. ".RECTANGLE IMPROPE
RLY DEFINED.";:. I.1 . 1000:..0.,3. ".
";:.
.B.63. (CO(2).CO(0).1).(CO(3).CO(1).1).2
51 . 13140...@3. ".DESIGN TOO LARGE.";:.
I.1 . 1000:....J3. ".
";...T3. I.1 . 2:PT.
1024.40.CO(I.2.1).CO(I.2.2):TC(I).PT:TC(
I.2).B(PT)...^3. PT,42:. PT.54272,CU:..T
.H3. ".THESE POINTS O.K. (Y/N):";Q$:. Q$
."Y" . 13170...J3. ".
":. I.1.2:.TC(I),TC(I.2):....
L3..Y.R3D1$."":D2$."":. I.CO(1).1 . CO(3
).1:. J.CO(0).1 . CO(2).1...|3D1$.D2$.G(
B(1024.40.I.J)):. 1024.40.I.J,42.E..3D2$
.D2$.G(B(55296.40.I.J)):. 55296.40.I.J,0
:. J,I:. ".";....3D3$.D1$:D4$.D2$:. I.CO
(1).1 . CO(3).1:. J.CO(0).1 . CO(2).1...
.3. 1024.40.I.J,F(H(D3$,1)):D3$.I(D3$,C(
D3$).1)....3. 55296.40.I.J,F(H(D4$,1)):D
4$.I(D4$,C(D4$).1):. J,I.%..3. ".THIS IS
WHAT IS BEING SAVED.":. I.1 . 1000:..W.
.3. ".POSITION TAPE CORRECTLY, THEN RETU
RN:";Q$...B3. ".
.";...L3. 1,1,1,"ARTIST":.
I.0 . 3:.1,CO(I):.:.1,C(D1$)...V3. I.1
. C(D1$):.1,F(J(D1$,I,1)) R$ F(J(D2$,I,1
)):.....3 1:..!..6.#"...................
..........<..6. SAVE SCREEN.`.D
6. "...............................N6. "
.POSITION TAPE CORRECTLY, THEN RETURN:";
Q$.T.X6. ".
";:. 1,1,1,"SCREEN"....6.I.0.99
9:.1,B(1024.I):.1,B(55296.I):.: 1:....
> CLICK IMAGE PREVIEW FOR FULL MODAL