STRING MAGIC.128
FILE INFORMATION
FILENAME(S): STRING MAGIC.128
FILE TYPE(S): PRG
FILE SIZE: 3.7K
FIRST SEEN: 2025-11-30 18:12:15
APPEARS ON: 1 disk(s)
FILE HASH
6772c400c104f3ac51d8a6f5911fb843c8055961d6c0432723bd5841eae85f74
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOADSTAR 38 S 1 | STRING MAGIC.128 | PRG | Sailor, Ganheden | 26 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 23 1C 0A 00 FE 11 22 53 54 52 49 4E 47 20 |..#....."STRING |
00000010: 4D 41 47 49 43 2E 4D 4C 22 2C 42 31 2C 50 36 34 |MAGIC.ML",B1,P64|
00000020: 35 31 32 00 30 1C 14 00 8D 36 30 31 30 30 3A 9C |512.0....60100:.|
00000030: 00 47 1C 64 00 8F 20 53 54 41 52 54 20 4F 46 20 |.G.d.. START OF |
00000040: 50 52 4F 47 52 41 4D 00 58 1C 6E 00 8F 20 49 4E |PROGRAM.X.n.. IN|
00000050: 49 54 49 41 4C 49 5A 45 00 8F 1C 78 00 97 20 35 |ITIALIZE...x.. 5|
00000060: 37 2C 30 20 3A 20 97 35 38 2C 32 35 32 20 3A 20 |7,0 : .58,252 : |
00000070: 9C 20 3A 20 8F 20 50 52 4F 54 45 43 54 20 4D 4C |. : . PROTECT ML|
00000080: 20 46 52 4F 4D 20 56 41 52 49 41 42 4C 45 53 00 | FROM VARIABLES.|
00000090: A5 1C 82 00 E8 20 3A 20 E7 20 30 2C 31 20 3A 20 |..... : . 0,1 : |
000000A0: E7 20 34 2C 31 00 C9 1C 96 00 59 45 4C 4C 4F 57 |. 4,1.....YELLOW|
000000B0: 24 B2 C7 28 31 35 38 29 20 3A 20 52 45 56 45 52 |$..(158) : REVER|
000000C0: 53 45 24 B2 C7 28 31 38 29 00 EC 1C A0 00 4C 4F |SE$..(18).....LO|
000000D0: 57 45 52 43 41 53 45 24 B2 C7 28 31 34 29 20 3A |WERCASE$..(14) :|
000000E0: 20 57 48 49 54 45 24 B2 C7 28 35 29 00 02 1D AA | WHITE$..(5)....|
000000F0: 00 4C 49 47 48 54 42 4C 55 45 24 B2 C7 28 31 35 |.LIGHTBLUE$..(15|
00000100: 34 29 00 34 1D B4 00 54 45 53 54 24 20 B2 20 22 |4).4...TEST$ . "|
00000110: D4 48 49 53 20 49 53 20 41 20 54 45 53 54 2E 20 |.HIS IS A TEST. |
00000120: 20 C9 54 20 49 53 20 4F 4E 4C 59 20 41 20 54 45 | .T IS ONLY A TE|
00000130: 53 54 21 22 00 55 1D BE 00 53 4D B2 D1 28 22 46 |ST!".U...SM..("F|
00000140: 43 30 30 22 29 20 3A 20 8F 20 53 59 53 20 41 44 |C00") : . SYS AD|
00000150: 44 52 45 53 53 00 5B 1D C8 00 3A 00 61 1D D2 00 |DRESS.[...:.a...|
00000160: E8 00 6D 1D DC 00 99 3A 89 31 30 30 30 00 73 1D |..m....:.1000.s.|
00000170: E6 00 3A 00 99 1D F0 00 8F 20 54 45 53 54 20 4A |..:...... TEST J|
00000180: 4F 42 20 23 31 20 28 50 45 54 41 53 43 49 49 20 |OB #1 (PETASCII |
00000190: 54 4F 20 41 53 43 49 49 29 00 A6 1D FA 00 41 24 |TO ASCII).....A$|
000001A0: B2 54 45 53 54 24 00 C4 1D 04 01 8D 20 38 38 30 |.TEST$...... 880|
000001B0: 20 3A 20 8F 20 50 4F 4B 45 20 49 4E 20 41 24 20 | : . POKE IN A$ |
000001C0: 49 4E 46 4F 00 D8 1D 0E 01 FE 02 20 31 20 3A 20 |INFO....... 1 : |
000001D0: 9E 20 28 53 4D 29 2C 31 00 01 1E 18 01 99 20 4C |. (SM),1...... L|
000001E0: 49 24 20 52 45 24 20 22 CA 4F 42 20 31 2D 2D D0 |I$ RE$ ".OB 1--.|
000001F0: 45 54 41 53 43 49 49 20 54 4F 20 C1 53 43 49 49 |ETASCII TO .SCII|
00000200: 22 00 14 1E 22 01 99 20 59 45 4C 4C 4F 57 24 3B |"...".. YELLOW$;|
00000210: 41 24 3A 8E 00 1A 1E 2C 01 3A 00 40 1E 36 01 8F |A$:....,.:.@.6..|
00000220: 20 54 45 53 54 20 4A 4F 42 20 23 30 20 28 41 53 | TEST JOB #0 (AS|
00000230: 43 49 49 20 54 4F 20 50 45 54 41 53 43 49 49 29 |CII TO PETASCII)|
00000240: 00 4D 1E 40 01 41 24 B2 54 45 53 54 24 00 6B 1E |.M.@.A$.TEST$.k.|
00000250: 45 01 8D 20 38 38 30 20 3A 20 8F 20 50 4F 4B 45 |E.. 880 : . POKE|
00000260: 20 49 4E 20 41 24 20 49 4E 46 4F 00 7F 1E 4A 01 | IN A$ INFO...J.|
00000270: FE 02 20 31 20 3A 20 9E 20 28 53 4D 29 2C 30 00 |.. 1 : . (SM),0.|
00000280: A8 1E 54 01 99 20 4C 49 24 20 52 45 24 20 22 CA |..T.. LI$ RE$ ".|
00000290: 4F 42 20 30 2D 2D C1 53 43 49 49 20 54 4F 20 D0 |OB 0--.SCII TO .|
000002A0: 45 54 41 53 43 49 49 22 00 BB 1E 5E 01 99 20 59 |ETASCII"...^.. Y|
000002B0: 45 4C 4C 4F 57 24 3B 41 24 3A 8E 00 C1 1E 68 01 |ELLOW$;A$:....h.|
000002C0: 3A 00 E8 1E 72 01 8F 20 54 45 53 54 20 4A 4F 42 |:...r.. TEST JOB|
000002D0: 20 23 32 20 28 4D 41 4B 45 20 41 4C 4C 20 4C 4F | #2 (MAKE ALL LO|
000002E0: 57 45 52 43 41 53 45 29 00 F5 1E 7C 01 41 24 B2 |WERCASE)...|.A$.|
000002F0: 54 45 53 54 24 00 13 1F 86 01 8D 20 38 38 30 20 |TEST$...... 880 |
00000300: 3A 20 8F 20 50 4F 4B 45 20 49 4E 20 41 24 20 49 |: . POKE IN A$ I|
00000310: 4E 46 4F 00 27 1F 90 01 FE 02 20 31 20 3A 20 9E |NFO.'..... 1 : .|
00000320: 20 28 53 4D 29 2C 32 00 51 1F 9A 01 99 20 4C 49 | (SM),2.Q.... LI|
00000330: 24 20 52 45 24 20 22 CA 4F 42 20 32 2D 2D CD 41 |$ RE$ ".OB 2--.A|
00000340: 4B 45 20 41 4C 4C 20 CC 4F 57 45 52 43 41 53 45 |KE ALL .OWERCASE|
00000350: 22 00 64 1F A4 01 99 20 59 45 4C 4C 4F 57 24 3B |".d.... YELLOW$;|
00000360: 41 24 3A 8E 00 6A 1F AE 01 3A 00 91 1F B8 01 8F |A$:..j...:......|
00000370: 20 54 45 53 54 20 4A 4F 42 20 23 33 20 28 4D 41 | TEST JOB #3 (MA|
00000380: 4B 45 20 41 4C 4C 20 55 50 50 45 52 43 41 53 45 |KE ALL UPPERCASE|
00000390: 29 00 9E 1F C2 01 41 24 B2 54 45 53 54 24 00 BC |).....A$.TEST$..|
000003A0: 1F CC 01 8D 20 38 38 30 20 3A 20 8F 20 50 4F 4B |.... 880 : . POK|
000003B0: 45 20 49 4E 20 41 24 20 49 4E 46 4F 00 D0 1F D6 |E IN A$ INFO....|
000003C0: 01 FE 02 20 31 20 3A 20 9E 20 28 53 4D 29 2C 33 |... 1 : . (SM),3|
000003D0: 00 FA 1F E0 01 99 20 4C 49 24 20 52 45 24 20 22 |...... LI$ RE$ "|
000003E0: CA 4F 42 20 33 2D 2D CD 41 4B 45 20 41 4C 4C 20 |.OB 3--.AKE ALL |
000003F0: D5 50 50 45 52 43 41 53 45 22 00 0D 20 EA 01 99 |.PPERCASE".. ...|
00000400: 20 59 45 4C 4C 4F 57 24 3B 41 24 3A 8E 00 13 20 | YELLOW$;A$:... |
00000410: F4 01 3A 00 39 20 FE 01 8F 20 54 45 53 54 20 4A |..:.9 ... TEST J|
00000420: 4F 42 20 23 34 20 28 43 4F 55 4E 54 20 41 20 43 |OB #4 (COUNT A C|
00000430: 48 41 52 41 43 54 45 52 29 00 46 20 08 02 41 24 |HARACTER).F ..A$|
00000440: B2 54 45 53 54 24 00 64 20 12 02 8D 20 38 38 30 |.TEST$.d ... 880|
00000450: 20 3A 20 8F 20 50 4F 4B 45 20 49 4E 20 41 24 20 | : . POKE IN A$ |
00000460: 49 4E 46 4F 00 94 20 1C 02 FE 02 20 31 20 3A 20 |INFO.. .... 1 : |
00000470: 9E 20 28 53 4D 29 2C 34 2C C6 28 22 53 22 29 3A |. (SM),4,.("S"):|
00000480: 8F 20 43 4F 55 4E 54 20 41 4C 4C 20 4C 45 54 54 |. COUNT ALL LETT|
00000490: 45 52 20 53 00 BA 20 26 02 FE 09 20 4E 20 3A 20 |ER S.. &... N : |
000004A0: 8F 20 4E 20 4E 4F 57 20 48 41 53 20 23 20 4F 46 |. N NOW HAS # OF|
000004B0: 20 53 27 53 20 49 4E 20 41 24 00 ED 20 30 02 99 | S'S IN A$.. 0..|
000004C0: 20 4C 49 24 20 52 45 24 20 22 CA 4F 42 20 34 2D | LI$ RE$ ".OB 4-|
000004D0: 2D C3 4F 55 4E 54 20 C3 48 41 52 41 43 54 45 52 |-.OUNT .HARACTER|
000004E0: 20 28 C5 58 41 4D 50 4C 45 3A 20 53 29 00 12 21 | (.XAMPLE: S)..!|
000004F0: 3A 02 99 20 59 45 4C 4C 4F 57 24 3B 20 22 D4 48 |:.. YELLOW$; ".H|
00000500: 45 52 45 20 41 52 45 22 4E 22 53 27 53 20 49 4E |ERE ARE"N"S'S IN|
00000510: 3A 22 00 1D 21 44 02 99 20 41 24 3A 8E 00 23 21 |:"..!D.. A$:..#!|
00000520: 4E 02 3A 00 47 21 58 02 8F 20 54 45 53 54 20 4A |N.:.G!X.. TEST J|
00000530: 4F 42 20 23 35 20 28 53 57 41 50 20 43 48 41 52 |OB #5 (SWAP CHAR|
00000540: 41 43 54 45 52 53 29 00 54 21 62 02 41 24 B2 54 |ACTERS).T!b.A$.T|
00000550: 45 53 54 24 00 72 21 6C 02 8D 20 38 38 30 20 3A |EST$.r!l.. 880 :|
00000560: 20 8F 20 50 4F 4B 45 20 49 4E 20 41 24 20 49 4E | . POKE IN A$ IN|
00000570: 46 4F 00 92 21 76 02 43 31 24 B2 22 20 22 20 3A |FO..!v.C1$." " :|
00000580: 20 8F 20 46 49 52 53 54 20 43 48 41 52 41 43 54 | . FIRST CHARACT|
00000590: 45 52 00 B8 21 80 02 43 32 24 B2 22 2F 22 20 3A |ER..!..C2$."/" :|
000005A0: 20 8F 20 43 48 41 52 41 43 54 45 52 20 54 4F 20 | . CHARACTER TO |
000005B0: 53 57 41 50 20 46 4F 52 00 F7 21 8A 02 FE 02 20 |SWAP FOR..!.... |
000005C0: 31 20 3A 20 9E 20 28 53 4D 29 2C 35 2C C6 28 43 |1 : . (SM),5,.(C|
000005D0: 31 24 29 2C C6 28 43 32 24 29 20 3A 20 8F 20 52 |1$),.(C2$) : . R|
000005E0: 45 50 4C 41 43 45 20 41 4C 4C 20 43 31 24 20 57 |EPLACE ALL C1$ W|
000005F0: 49 54 48 20 43 32 24 00 1E 22 94 02 99 20 4C 49 |ITH C2$.."... LI|
00000600: 24 20 52 45 24 20 22 CA 4F 42 20 35 2D 2D D3 57 |$ RE$ ".OB 5--.W|
00000610: 41 50 20 C3 48 41 52 41 43 54 45 52 53 22 00 31 |AP .HARACTERS".1|
00000620: 22 9E 02 99 20 59 45 4C 4C 4F 57 24 3B 41 24 3A |"... YELLOW$;A$:|
00000630: 8E 00 37 22 A8 02 3A 00 59 22 B2 02 8F 20 54 45 |..7"..:.Y"... TE|
00000640: 53 54 20 4A 4F 42 20 23 36 20 28 45 4E 43 4F 44 |ST JOB #6 (ENCOD|
00000650: 45 20 53 54 52 49 4E 47 29 00 66 22 BC 02 41 24 |E STRING).f"..A$|
00000660: B2 54 45 53 54 24 00 6C 22 C6 02 99 00 8A 22 D0 |.TEST$.l".....".|
00000670: 02 8D 20 38 38 30 20 3A 20 8F 20 50 4F 4B 45 20 |.. 880 : . POKE |
00000680: 49 4E 20 41 24 20 49 4E 46 4F 00 B4 22 DA 02 4B |IN A$ INFO.."..K|
00000690: B2 32 34 30 20 3A 20 8F 20 4B 45 59 20 43 41 4E |.240 : . KEY CAN|
000006A0: 20 42 45 20 41 4E 59 20 4E 55 4D 42 45 52 20 31 | BE ANY NUMBER 1|
000006B0: 2D 32 35 35 00 E7 22 E4 02 FE 02 20 31 20 3A 20 |-255..".... 1 : |
000006C0: 9E 20 28 53 4D 29 2C 36 2C 4B 20 3A 20 8F 20 54 |. (SM),6,K : . T|
000006D0: 52 41 4E 53 50 4F 53 45 20 41 24 20 55 53 49 4E |RANSPOSE A$ USIN|
000006E0: 47 20 4B 45 59 20 4B 00 0C 23 EE 02 99 20 4C 49 |G KEY K..#... LI|
000006F0: 24 20 52 45 24 20 22 CA 4F 42 20 36 2D 2D C5 4E |$ RE$ ".OB 6--.N|
00000700: 43 4F 44 45 20 D3 54 52 49 4E 47 22 00 1F 23 F8 |CODE .TRING"..#.|
00000710: 02 99 20 59 45 4C 4C 4F 57 24 3B 41 24 3A 8E 00 |.. YELLOW$;A$:..|
00000720: 25 23 02 03 3A 00 47 23 0C 03 8F 20 54 45 53 54 |%#..:.G#... TEST|
00000730: 20 4A 4F 42 20 23 37 20 28 44 45 43 4F 44 45 20 | JOB #7 (DECODE |
00000740: 53 54 52 49 4E 47 29 00 54 23 16 03 41 24 B2 54 |STRING).T#..A$.T|
00000750: 45 53 54 24 00 72 23 20 03 8D 20 38 38 30 20 3A |EST$.r# .. 880 :|
00000760: 20 8F 20 50 4F 4B 45 20 49 4E 20 41 24 20 49 4E | . POKE IN A$ IN|
00000770: 46 4F 00 9C 23 2A 03 4B B2 32 34 30 20 3A 20 8F |FO..#*.K.240 : .|
00000780: 20 4B 45 59 20 43 41 4E 20 42 45 20 41 4E 59 20 | KEY CAN BE ANY |
00000790: 4E 55 4D 42 45 52 20 31 2D 32 35 35 00 CC 23 34 |NUMBER 1-255..#4|
000007A0: 03 FE 02 20 31 20 3A 20 9E 20 28 53 4D 29 2C 37 |... 1 : . (SM),7|
000007B0: 2C 4B 20 3A 20 8F 20 44 45 43 4F 44 45 20 41 24 |,K : . DECODE A$|
000007C0: 20 55 53 49 4E 47 20 4B 45 59 20 4B 00 F1 23 3E | USING KEY K..#>|
000007D0: 03 99 20 4C 49 24 20 52 45 24 20 22 CA 4F 42 20 |.. LI$ RE$ ".OB |
000007E0: 37 2D 2D C4 45 43 4F 44 45 20 D3 54 52 49 4E 47 |7--.ECODE .TRING|
000007F0: 22 00 04 24 48 03 99 20 59 45 4C 4C 4F 57 24 3B |"..$H.. YELLOW$;|
00000800: 41 24 3A 8E 00 0A 24 5C 03 3A 00 10 24 66 03 3A |A$:...$\.:..$f.:|
00000810: 00 27 24 70 03 8F 20 53 45 54 55 50 20 53 55 42 |.'$p.. SETUP SUB|
00000820: 52 4F 55 54 49 4E 45 00 41 24 7A 03 FE 02 31 20 |ROUTINE.A$z...1 |
00000830: 3A 20 8F 20 56 41 52 49 41 42 4C 45 20 42 41 4E |: . VARIABLE BAN|
00000840: 4B 00 5B 24 84 03 50 54 B2 CE 0A 28 41 24 29 20 |K.[$..PT...(A$) |
00000850: 3A 20 8F 20 46 49 4E 44 20 41 24 00 7D 24 8E 03 |: . FIND A$.}$..|
00000860: 97 20 D1 28 22 46 44 22 29 2C C2 28 50 54 29 20 |. .("FD"),.(PT) |
00000870: 3A 20 8F 20 4C 45 4E 20 4F 46 20 41 24 00 9E 24 |: . LEN OF A$..$|
00000880: 98 03 97 20 D1 28 22 46 42 22 29 2C C2 28 50 54 |... .("FB"),.(PT|
00000890: AA 31 29 20 3A 20 8F 20 4C 4F 42 59 54 45 00 BF |.1) : . LOBYTE..|
000008A0: 24 A2 03 97 20 D1 28 22 46 43 22 29 2C C2 28 50 |$... .("FC"),.(P|
000008B0: 54 AA 32 29 20 3A 20 8F 20 48 49 42 59 54 45 00 |T.2) : . HIBYTE.|
000008C0: C5 24 AC 03 8E 00 EC 24 E8 03 99 22 93 0B 0E 20 |.$.....$..."... |
000008D0: 20 20 20 20 20 20 20 20 20 20 20 1E D3 54 52 49 | ..TRI|
000008E0: 4E 47 20 CD 41 47 41 43 49 41 4E 22 00 0F 25 F2 |NG .AGACIAN"..%.|
000008F0: 03 99 22 20 20 20 20 20 20 20 20 20 20 20 20 42 |.." B|
00000900: 59 20 C2 52 55 43 45 20 CA 45 41 47 45 52 22 00 |Y .RUCE .EAGER".|
00000910: 3F 25 FC 03 99 22 11 20 20 05 30 20 9A 2D 20 CA |?%...". .0 .- .|
00000920: 4F 42 20 30 3A 20 C3 4F 4E 56 45 52 54 20 C1 D3 |OB 0: .ONVERT ..|
00000930: C3 C9 C9 20 54 4F 20 D0 C5 D4 D3 C3 C9 C9 22 00 |... TO .......".|
00000940: 6E 25 06 04 99 22 20 20 05 31 20 9A 2D 20 CA 4F |n%..." .1 .- .O|
00000950: 42 20 31 3A 20 C3 4F 4E 56 45 52 54 20 D0 C5 D4 |B 1: .ONVERT ...|
00000960: D3 C3 C9 C9 20 54 4F 20 C1 D3 C3 C9 C9 22 00 98 |.... TO ....."..|
00000970: 25 10 04 99 22 20 20 05 32 20 9A 2D 20 CA 4F 42 |%..." .2 .- .OB|
00000980: 20 32 3A 20 CD 41 4B 45 20 C1 4C 4C 20 CC 4F 57 | 2: .AKE .LL .OW|
00000990: 45 52 20 C3 41 53 45 22 00 C2 25 1A 04 99 22 20 |ER .ASE"..%..." |
000009A0: 20 05 33 20 9A 2D 20 CA 4F 42 20 33 3A 20 CD 41 | .3 .- .OB 3: .A|
000009B0: 4B 45 20 C1 4C 4C 20 D5 50 50 45 52 20 C3 41 53 |KE .LL .PPER .AS|
000009C0: 45 22 00 F3 25 24 04 99 22 20 20 05 34 20 9A 2D |E"..%$.." .4 .-|
000009D0: 20 CA 4F 42 20 34 3A 20 C3 4F 55 4E 54 20 C1 20 | .OB 4: .OUNT . |
000009E0: D3 45 4C 45 43 54 45 44 20 C3 48 41 52 41 43 54 |.ELECTED .HARACT|
000009F0: 45 52 22 00 1D 26 2E 04 99 22 20 20 05 35 20 9A |ER"..&..." .5 .|
00000A00: 2D 20 CA 4F 42 20 35 3A 20 D3 57 41 50 20 D4 57 |- .OB 5: .WAP .W|
00000A10: 4F 20 C3 48 41 52 41 43 54 45 52 53 22 00 43 26 |O .HARACTERS".C&|
00000A20: 38 04 99 22 20 20 05 36 20 9A 2D 20 CA 4F 42 20 |8.." .6 .- .OB |
00000A30: 36 3A 20 C5 4E 43 4F 44 45 20 C1 20 D3 54 52 49 |6: .NCODE . .TRI|
00000A40: 4E 47 22 00 69 26 42 04 99 22 20 20 05 37 20 9A |NG".i&B.." .7 .|
00000A50: 2D 20 CA 4F 42 20 37 3A 20 C4 45 43 4F 44 45 20 |- .OB 7: .ECODE |
00000A60: C1 20 D3 54 52 49 4E 47 22 00 7F 26 47 04 99 22 |. .TRING"..&G.."|
00000A70: 11 20 20 05 D1 20 9A 2D 20 D1 55 49 54 11 22 00 |. .. .- .UIT.".|
00000A80: A1 26 4C 04 99 22 20 20 D0 52 45 53 53 20 05 30 |.&L.." .RESS .0|
00000A90: 20 9A 2D 20 05 37 9A 2C 20 4F 52 20 05 D1 9A 2E | .- .7., OR ....|
00000AA0: 22 00 C6 26 56 04 A1 F9 41 24 3A 8B 41 24 B2 22 |"..&V...A$:.A$."|
00000AB0: 51 22 B0 41 24 B2 22 D1 22 A7 8D 36 30 30 30 30 |Q".A$."."..60000|
00000AC0: 3A 89 31 31 30 30 00 DE 26 60 04 8B 41 24 B3 22 |:.1100..&`..A$."|
00000AD0: 30 22 B0 41 24 B1 22 37 22 A7 31 31 31 30 00 00 |0".A$."7".1110..|
00000AE0: 27 65 04 99 22 11 9E D3 54 52 49 4E 47 20 55 53 |'e.."...TRING US|
00000AF0: 45 44 20 46 4F 52 20 54 45 53 54 49 4E 47 3A 22 |ED FOR TESTING:"|
00000B00: 00 14 27 66 04 99 57 48 49 54 45 24 54 45 53 54 |..'f..WHITE$TEST|
00000B10: 24 22 11 22 00 43 27 6A 04 91 20 C5 28 41 24 29 |$".".C'j.. .(A$)|
00000B20: AA 31 20 8D 32 35 30 2C 33 32 30 2C 33 38 30 2C |.1 .250,320,380,|
00000B30: 34 35 30 2C 35 32 30 2C 36 31 30 2C 37 30 30 2C |450,520,610,700,|
00000B40: 37 39 30 00 6E 27 74 04 99 22 11 20 20 20 20 20 |790.n't..". |
00000B50: 20 20 9A D0 52 45 53 53 20 05 D3 D0 C1 C3 C5 20 | ..RESS ...... |
00000B60: 9A 54 4F 20 43 4F 4E 54 49 4E 55 45 2E 22 00 83 |.TO CONTINUE."..|
00000B70: 27 7E 04 8B C2 28 32 31 32 29 B3 B1 36 30 A7 31 |'~...(212)..60.1|
00000B80: 31 35 30 00 8D 27 88 04 89 31 30 30 30 00 93 27 |150..'...1000..'|
00000B90: CF 07 90 00 C7 27 60 EA 99 22 91 20 20 9A C1 52 |.....'`..". ..R|
00000BA0: 45 20 59 4F 55 20 53 55 52 45 20 59 4F 55 20 57 |E YOU SURE YOU W|
00000BB0: 41 4E 54 20 54 4F 20 51 55 49 54 3F 20 28 05 D9 |ANT TO QUIT? (..|
00000BC0: 9A 2F 05 CE 9A 29 22 00 E7 27 6A EA 41 B2 C2 28 |./...)"..'j.A..(|
00000BD0: 32 31 32 29 3A 8B 41 B3 B1 32 35 AF 41 B3 B1 33 |212):.A..25.A..3|
00000BE0: 39 A7 36 30 30 31 30 00 1F 28 74 EA 8B 41 B2 33 |9.60010..(t..A.3|
00000BF0: 39 A7 99 22 91 20 20 20 20 20 20 20 20 20 20 20 |9..". |
00000C00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000C10: 20 20 20 20 20 20 20 20 20 20 20 91 22 3A 8E 00 | .":..|
00000C20: 46 28 7E EA F5 22 31 32 38 20 4D 45 4E 55 22 20 |F(~.."128 MENU" |
00000C30: A4 20 22 31 32 38 20 4D 45 4E 55 22 3A 8B 44 53 |. "128 MENU":.DS|
00000C40: B3 B1 36 33 A7 80 00 57 28 88 EA 8A 20 22 31 32 |..63...W(... "12|
00000C50: 38 20 4D 45 4E 55 22 00 6E 28 C4 EA FE 02 31 35 |8 MENU".n(....15|
00000C60: 3A E7 20 30 2C 31 35 3A E7 20 34 2C 31 35 00 A8 |:. 0,15:. 4,15..|
00000C70: 28 CE EA 99 C7 28 31 34 32 29 22 93 0B 0E 05 B0 |(....(142)".....|
00000C80: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000C90: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000CA0: C0 C0 C0 C0 C0 C0 AE 22 00 C3 28 D8 EA 81 41 B2 |......."..(...A.|
00000CB0: 31 A4 32 33 3A 99 22 DD 22 A6 33 38 29 22 DD 22 |1.23:.".".38)"."|
00000CC0: 3B 3A 82 00 F7 28 E2 EA 99 22 AD C0 C0 C0 C0 C0 |;:...(..."......|
00000CD0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000CE0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000CF0: BD 9D 94 C0 13 13 22 00 21 29 EC EA 99 22 13 13 |......".!)..."..|
00000D00: 11 11 1D 20 20 20 20 20 20 20 20 20 20 1F CC CF |... ...|
00000D10: C1 C4 D3 D4 C1 D2 20 D0 52 45 53 45 4E 54 53 3A |...... .RESENTS:|
00000D20: 22 00 52 29 F6 EA 99 22 11 11 11 11 11 11 1D 20 |".R)..."....... |
00000D30: 20 20 20 20 20 20 20 05 12 20 20 20 20 20 20 20 | .. |
00000D40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000D50: 20 22 00 7F 29 00 EB 99 22 1D 20 20 20 20 20 20 | "..)...". |
00000D60: 20 20 05 12 20 20 20 20 D3 54 52 49 4E 47 20 20 | .. .TRING |
00000D70: CD 41 47 49 43 49 41 4E 20 20 20 20 1F 20 22 00 |.AGICIAN . ".|
00000D80: AC 29 0A EB 99 22 1D 20 20 20 20 20 20 20 20 05 |.)...". .|
00000D90: 12 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00000DA0: 20 20 20 20 20 20 20 20 20 1F 20 22 00 D9 29 14 | . "..).|
00000DB0: EB 99 22 1D 20 20 20 20 20 20 20 20 05 12 20 20 |..". .. |
00000DC0: 20 20 C2 59 20 20 C2 52 55 43 45 20 CA 45 41 47 | .Y .RUCE .EAG|
00000DD0: 45 52 20 20 20 20 1F 20 22 00 06 2A 1E EB 99 22 |ER . "..*..."|
00000DE0: 1D 20 20 20 20 20 20 20 20 05 12 20 20 20 20 20 |. .. |
00000DF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000E00: 20 20 20 1F 20 22 00 33 2A 28 EB 99 22 1D 20 20 | . ".3*(..". |
00000E10: 20 20 20 20 20 20 05 12 20 20 20 20 20 C3 4F 50 | .. .OP|
00000E20: 59 52 49 47 48 54 20 31 39 38 37 20 20 20 20 20 |YRIGHT 1987 |
00000E30: 1F 20 22 00 60 2A 32 EB 99 22 1D 20 20 20 20 20 |. ".`*2..". |
00000E40: 20 20 20 05 12 20 20 20 20 20 20 20 20 20 20 20 | .. |
00000E50: 20 20 20 20 20 20 20 20 20 20 20 20 20 1F 20 22 | . "|
00000E60: 00 8B 2A 3C EB 99 22 1D 20 20 20 20 20 20 20 20 |..*<..". |
00000E70: 20 12 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | . |
00000E80: 20 20 20 20 20 20 20 20 20 20 22 00 B8 2A 46 EB | "..*F.|
00000E90: 99 22 11 11 11 11 11 1D 20 20 20 20 20 20 20 20 |."...... |
00000EA0: D0 52 45 53 53 20 D3 D0 C1 C3 C5 20 54 4F 20 43 |.RESS ..... TO C|
00000EB0: 4F 4E 54 49 4E 55 45 22 00 CE 2A 50 EB 8B C2 28 |ONTINUE"..*P...(|
00000EC0: 32 31 32 29 B3 B1 36 30 A7 36 30 32 34 30 00 D4 |212)..60.60240..|
00000ED0: 2A 5A EB 8E 00 00 00 |*Z..... |
..#....."STRING MAGIC.ML",B1,P64512.0...
.60100:..G.D.. START OF PROGRAM.X.N.. IN
ITIALIZE...X.. 57,0 : .58,252 : . : . PR
OTECT ML FROM VARIABLES...... : . 0,1 :
. 4,1.I...YELLOW$.G(158) : REVERSE$.G(18
)... .LOWERCASE$.G(14) : WHITE$.G(5)....
.LIGHTBLUE$.G(154).4...TEST$ . "THIS IS
A TEST. IT IS ONLY A TEST!".U...SM.Q("F
C00") : . SYS ADDRESS.[.H.:.A.R...M....:
.1000.S...:...... TEST JOB #1 (PETASCII
TO ASCII).....A$.TEST$.D.... 880 : . POK
E IN A$ INFO.X..... 1 : . (SM),1...... L
I$ RE$ "JOB 1--PETASCII TO ASCII"..."..
YELLOW$;A$:....,.:.@.6.. TEST JOB #0 (AS
CII TO PETASCII).M.@.A$.TEST$.K.E.. 880
: . POKE IN A$ INFO..J... 1 : . (SM),0.
..T.. LI$ RE$ "JOB 0--ASCII TO PETASCII"
...^.. YELLOW$;A$:..A.H.:...R.. TEST JOB
#2 (MAKE ALL LOWERCASE)...|.A$.TEST$...
... 880 : . POKE IN A$ INFO.'..... 1 : .
(SM),2.Q.... LI$ RE$ "JOB 2--MAKE ALL L
OWERCASE".D.... YELLOW$;A$:..J...:......
TEST JOB #3 (MAKE ALL UPPERCASE)...B.A$
.TEST$...L.. 880 : . POKE IN A$ INFO.P.V
... 1 : . (SM),3...... LI$ RE$ "JOB 3--M
AKE ALL UPPERCASE".. ... YELLOW$;A$:...
..:.9 ... TEST JOB #4 (COUNT A CHARACTER
).F ..A$.TEST$.D ... 880 : . POKE IN A$
INFO.. .... 1 : . (SM),4,F("S"):. COUNT
ALL LETTER S.. &... N : . N NOW HAS # OF
S'S IN A$.. 0.. LI$ RE$ "JOB 4--COUNT C
HARACTER (EXAMPLE: S)..!:.. YELLOW$; "TH
ERE ARE"N"S'S IN:"..!D.. A$:..#!N.:.G!X.
. TEST JOB #5 (SWAP CHARACTERS).T!B.A$.T
EST$.R!L.. 880 : . POKE IN A$ INFO..!V.C
1$." " : . FIRST CHARACTER..!..C2$."/" :
. CHARACTER TO SWAP FOR..!.... 1 : . (S
M),5,F(C1$),F(C2$) : . REPLACE ALL C1$ W
ITH C2$.."... LI$ RE$ "JOB 5--SWAP CHARA
CTERS".1"... YELLOW$;A$:..7"..:.Y"... TE
ST JOB #6 (ENCODE STRING).F"..A$.TEST$.L
"F...."P.. 880 : . POKE IN A$ INFO.."Z.K
.240 : . KEY CAN BE ANY NUMBER 1-255..".
... 1 : . (SM),6,K : . TRANSPOSE A$ USIN
G KEY K..#... LI$ RE$ "JOB 6--ENCODE STR
ING"..#... YELLOW$;A$:..%#..:.G#... TEST
JOB #7 (DECODE STRING).T#..A$.TEST$.R#
.. 880 : . POKE IN A$ INFO..#*.K.240 : .
KEY CAN BE ANY NUMBER 1-255.L#4... 1 :
. (SM),7,K : . DECODE A$ USING KEY K..#>
.. LI$ RE$ "JOB 7--DECODE STRING"..$H..
YELLOW$;A$:...$\.:..$F.:.'$P.. SETUP SUB
ROUTINE.A$Z...1 : . VARIABLE BANK.[$..PT
.N.(A$) : . FIND A$.}$... Q("FD"),B(PT)
: . LEN OF A$..$... Q("FB"),B(PT.1) : .
LOBYTE..$... Q("FC"),B(PT.2) : . HIBYTE.
E$.....$..."... .STRING MAGAC
IAN"..%..." BY BRUCE JEAGER".
?%...". .0 .- JOB 0: CONVERT ASCII TO P
ETSCII".N%..." .1 .- JOB 1: CONVERT PET
SCII TO ASCII"..%..." .2 .- JOB 2: MAKE
ALL LOWER CASE".B%..." .3 .- JOB 3: MA
KE ALL UPPER CASE"..%$.." .4 .- JOB 4:
COUNT A SELECTED CHARACTER"..&..." .5 .
- JOB 5: SWAP TWO CHARACTERS".C&8.." .6
.- JOB 6: ENCODE A STRING".I&B.." .7 .
- JOB 7: DECODE A STRING".&G..". .Q .-
QUIT."..&L.." PRESS .0 .- .7., OR .Q..
".F&V...A$:.A$."Q".A$."Q"..60000:.1100..
&`..A$."0".A$."7".1110..'E.."..STRING US
ED FOR TESTING:"..'F..WHITE$TEST$".".C'J
.. E(A$).1 .250,320,380,450,520,610,700,
790.N'T..". .PRESS .SPACE .TO CONT
INUE."..'~..B(212)..60.1150..'...1000..'
O...G'`..". .ARE YOU SURE YOU WANT TO Q
UIT? (.Y./.N.)"..'J.A.B(212):.A..25.A..3
9.60010..(T..A.39..".
.":..F(~.."128 MENU"
. "128 MENU":.DS..63...W(... "128 MENU".
N(D...15:. 0,15:. 4,15..(N..G(142)".....
......................................."
.C(X..A.1.23:.".".38)".";:...(..."......
......................................".
!)..."..... .LOADSTAR PRESENTS:
".R)..."....... ..
".)...". .. STRING
MAGICIAN . "..)...". ..
. ".Y)...". ..
BY BRUCE JEAGER . "..*...".
.. . ".3*(..".
.. COPYRIGHT 1987 . ".`*2.
.". .. . "
..*<..". .
"..*F.."...... PRESS SPACE TO C
ONTINUE".N*P..B(212)..60.60240.T*Z.....
> CLICK IMAGE PREVIEW FOR FULL MODAL