> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 64 00 99 22 93 22 00 3B 08 6E 00 99 |....d..".".;.n..|
00000010: 22 54 48 49 53 20 52 4F 55 54 49 4E 45 20 20 57 |"THIS ROUTINE W|
00000020: 49 4C 4C 20 20 43 4F 4E 56 45 52 54 20 45 58 50 |ILL CONVERT EXP|
00000030: 45 52 54 20 48 49 52 45 53 22 3B 00 6C 08 78 00 |ERT HIRES";.l.x.|
00000040: 99 22 46 49 4C 45 53 20 20 54 4F 20 4B 4F 41 4C |."FILES TO KOAL|
00000050: 41 20 50 41 44 20 46 4F 52 4D 41 54 2C 20 20 53 |A PAD FORMAT, S|
00000060: 4F 20 54 48 45 59 20 43 41 4E 22 3B 00 9D 08 82 |O THEY CAN";....|
00000070: 00 99 22 42 45 20 45 44 49 54 45 44 20 41 4E 44 |.."BE EDITED AND|
00000080: 20 52 45 53 41 56 45 44 20 55 53 49 4E 47 20 41 | RESAVED USING A|
00000090: 20 4B 4F 41 4C 41 20 50 41 44 2E 22 3B 00 CE 08 | KOALA PAD.";...|
000000A0: 8C 00 99 22 4B 4F 41 4C 41 20 50 41 44 20 46 49 |..."KOALA PAD FI|
000000B0: 4C 45 53 20 41 4C 57 41 59 53 20 48 41 56 45 20 |LES ALWAYS HAVE |
000000C0: 41 20 27 12 C1 92 27 50 49 43 20 58 20 22 00 FD |A '...'PIC X "..|
000000D0: 08 96 00 99 22 42 45 46 4F 52 45 20 54 48 45 20 |...."BEFORE THE |
000000E0: 4E 41 4D 45 2E 20 28 58 20 49 53 20 41 20 55 4E |NAME. (X IS A UN|
000000F0: 49 51 55 45 20 4C 45 54 54 45 52 29 22 00 2F 09 |IQUE LETTER)"./.|
00000100: A0 00 99 22 11 59 4F 55 20 4D 41 59 20 20 41 4C |...".YOU MAY AL|
00000110: 53 4F 20 43 4F 4E 56 45 52 54 20 41 20 20 46 49 |SO CONVERT A FI|
00000120: 4C 45 20 46 52 4F 4D 20 4B 4F 41 4C 41 22 3B 00 |LE FROM KOALA";.|
00000130: 60 09 AA 00 99 22 50 41 44 20 20 46 4F 52 4D 41 |`...."PAD FORMA|
00000140: 54 20 42 41 43 4B 20 54 4F 20 4E 4F 52 4D 41 4C |T BACK TO NORMAL|
00000150: 20 42 59 20 55 53 49 4E 47 20 54 48 49 53 22 3B | BY USING THIS";|
00000160: 00 98 09 B4 00 99 22 52 4F 55 54 49 4E 45 2E 20 |......"ROUTINE. |
00000170: 20 54 48 49 53 20 57 49 4C 4C 20 52 45 4D 4F 56 | THIS WILL REMOV|
00000180: 45 20 54 48 45 20 27 12 C1 92 27 50 49 43 20 58 |E THE '...'PIC X|
00000190: 20 46 52 4F 4D 20 22 3B 00 CE 09 BE 00 99 22 54 | FROM ";......"T|
000001A0: 48 45 20 46 49 4C 45 20 4E 41 4D 45 2E 20 20 20 |HE FILE NAME. |
000001B0: 28 59 4F 55 20 4D 55 53 54 20 45 4E 54 45 52 20 |(YOU MUST ENTER |
000001C0: 49 4E 50 49 43 20 58 20 4E 41 4D 45 29 22 00 E7 |INPIC X NAME)"..|
000001D0: 09 C8 00 99 22 11 44 4F 20 59 4F 55 20 57 41 4E |....".DO YOU WAN|
000001E0: 54 20 54 4F 3A 2D 22 00 0F 0A D2 00 99 22 11 31 |T TO:-"......".1|
000001F0: 29 20 43 4F 4E 56 45 52 54 20 46 52 4F 4D 20 45 |) CONVERT FROM E|
00000200: 58 50 45 52 54 20 54 4F 20 4B 4F 41 4C 41 22 00 |XPERT TO KOALA".|
00000210: 37 0A DC 00 99 22 32 29 20 43 4F 4E 56 45 52 54 |7...."2) CONVERT|
00000220: 20 46 52 4F 4D 20 4B 4F 41 4C 41 20 20 54 4F 20 | FROM KOALA TO |
00000230: 45 58 50 45 52 54 22 00 4C 0A E6 00 99 22 11 50 |EXPERT".L....".P|
00000240: 52 45 53 53 20 31 20 4F 52 20 32 22 00 5F 0A F0 |RESS 1 OR 2"._..|
00000250: 00 A1 41 24 3A 8B 41 24 B2 22 22 A7 32 34 30 00 |..A$:.A$."".240.|
00000260: 71 0A FA 00 8B 20 41 24 B2 22 31 22 A7 31 30 30 |q.... A$."1".100|
00000270: 30 00 82 0A 04 01 8B 41 24 B2 22 32 22 A7 35 30 |0......A$."2".50|
00000280: 30 30 00 88 0A 2C 01 8A 00 95 0A E8 03 9F 31 35 |00...,........15|
00000290: 2C 38 2C 31 35 00 BB 0A 4C 04 99 22 45 4E 54 45 |,8,15...L.."ENTE|
000002A0: 52 20 46 49 4C 45 20 4E 41 4D 45 20 26 20 50 52 |R FILE NAME & PR|
000002B0: 45 53 53 20 52 45 54 55 52 4E 22 00 C3 0A D0 07 |ESS RETURN".....|
000002C0: 85 41 24 00 DE 0A D1 07 99 22 45 4E 54 45 52 20 |.A$......"ENTER |
000002D0: 55 4E 49 51 55 45 20 4C 45 54 54 45 52 22 00 E6 |UNIQUE LETTER"..|
000002E0: 0A D2 07 85 5A 24 00 FE 0A D4 07 43 43 24 B2 22 |....Z$.....CC$."|
000002F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 0E | "..|
00000300: 0B D5 07 41 41 24 B2 C8 28 41 24 2C 38 29 00 28 |...AA$..(A$,8).(|
00000310: 0B B8 0B 42 24 B2 22 81 50 49 43 20 22 AA 5A 24 |...B$.".PIC ".Z$|
00000320: AA 22 20 22 AA 41 41 24 00 46 0B 80 0C 43 24 B2 |." ".AA$.F...C$.|
00000330: 42 24 AA C8 28 43 43 24 2C 28 31 35 AB 28 C3 28 |B$..(CC$,(15.(.(|
00000340: 42 24 29 29 29 29 00 5D 0B A0 0F 98 31 35 2C 22 |B$)))).]....15,"|
00000350: 52 3A 22 3B 43 24 3B 22 3D 22 3B 41 24 00 86 0B |R:";C$;"=";A$...|
00000360: F8 11 84 31 35 2C 41 24 2C 42 24 2C 43 24 3A 8B |...15,A$,B$,C$:.|
00000370: 41 24 B2 22 30 30 22 A7 20 99 22 11 22 3B 42 24 |A$."00". .".";B$|
00000380: 3A 89 34 36 35 30 00 94 0B 0C 12 99 41 24 2C 42 |:.4650......A$,B|
00000390: 24 2C 43 24 00 9C 0B 2A 12 A0 31 35 00 A2 0B 2B |$,C$...*..15...+|
000003A0: 12 80 00 AF 0B 88 13 9F 31 35 2C 38 2C 31 35 00 |........15,8,15.|
000003B0: D5 0B 70 17 99 22 45 4E 54 45 52 20 46 49 4C 45 |..p.."ENTER FILE|
000003C0: 20 4E 41 4D 45 20 26 20 50 52 45 53 53 20 52 45 | NAME & PRESS RE|
000003D0: 54 55 52 4E 22 00 DE 0B 58 1B 85 20 42 24 00 F6 |TURN"...X.. B$..|
000003E0: 0B B2 1B 43 43 24 B2 22 20 20 20 20 20 20 20 20 |...CC$." |
000003F0: 20 20 20 20 20 22 00 14 0C BC 1B 43 24 B2 42 24 | ".....C$.B$|
00000400: AA C8 28 43 43 24 2C 28 31 34 AB 28 C3 28 42 24 |..(CC$,(14.(.(B$|
00000410: 29 29 29 29 00 23 0C 20 1C 42 24 B2 C9 28 43 24 |)))).#. .B$..(C$|
00000420: 2C 38 29 00 2F 0C 84 1C 81 50 B2 31 A4 31 36 00 |,8)./....P.1.16.|
00000430: 47 0C 8E 1C 8B CA 28 42 24 2C 50 2C 31 29 B2 22 |G.....(B$,P,1)."|
00000440: 20 22 A7 37 34 30 30 00 4D 0C 98 1C 82 00 5E 0C | ".7400.M.....^.|
00000450: E8 1C 42 24 B2 C8 28 42 24 2C 50 AB 31 29 00 75 |..B$..(B$,P.1).u|
00000460: 0C 40 1F 45 24 B2 22 52 3A 22 AA 42 24 AA 22 3D |.@.E$."R:".B$."=|
00000470: 81 22 AA 43 24 00 80 0C 34 21 98 31 35 2C 45 24 |.".C$...4!.15,E$|
00000480: 00 A9 0C A2 21 84 31 35 2C 41 24 2C 42 24 2C 43 |....!.15,A$,B$,C|
00000490: 24 3A 8B 41 24 B2 22 30 30 22 A7 20 99 22 11 22 |$:.A$."00". ."."|
000004A0: 3B 42 24 3A 89 39 30 30 30 00 B7 0C FC 21 99 41 |;B$:.9000....!.A|
000004B0: 24 2C 42 24 2C 43 24 00 BF 0C 28 23 A0 31 35 00 |$,B$,C$...(#.15.|
000004C0: 00 00 |.. |
....D..".".;.N.."THIS ROUTINE WILL CON
VERT EXPERT HIRES";.L.X.."FILES TO KOAL
A PAD FORMAT, SO THEY CAN";......"BE ED
ITED AND RESAVED USING A KOALA PAD.";.N.
..."KOALA PAD FILES ALWAYS HAVE A '.A.'P
IC X "......"BEFORE THE NAME. (X IS A UN
IQUE LETTER)"./. ..".YOU MAY ALSO CONVE
RT A FILE FROM KOALA";.`...."PAD FORMA
T BACK TO NORMAL BY USING THIS";......"R
OUTINE. THIS WILL REMOVE THE '.A.'PIC X
FROM ";.N...."THE FILE NAME. (YOU MUS
T ENTER INPIC X NAME)"...H..".DO YOU WAN
T TO:-"...R..".1) CONVERT FROM EXPERT TO
KOALA".7...."2) CONVERT FROM KOALA TO
EXPERT".L....".PRESS 1 OR 2"._....A$:.A$
."".240.Q.... A$."1".1000......A$."2".50
00...,........15,8,15...L.."ENTER FILE N
AME & PRESS RETURN".C.P..A$...Q.."ENTER
UNIQUE LETTER"...R..Z$...T.CC$."
"...U.AA$.H(A$,8).(...B$.".PIC ".Z$
." ".AA$.F...C$.B$.H(CC$,(15.(C(B$)))).]
. ..15,"R:";C$;"=";A$......15,A$,B$,C$:.
A$."00". .".";B$:.4650......A$,B$,C$...*
. 15...+........15,8,15.U.P.."ENTER FILE
NAME & PRESS RETURN"...X.. B$.....CC$."
".....C$.B$.H(CC$,(14.(C(B$
)))).#. .B$.I(C$,8)./....P.1.16.G....J(B
$,P,1)." ".7400.M.....^...B$.H(B$,P.1).U
.@.E$."R:".B$."=.".C$...4!.15,E$....!.15
,A$,B$,C$:.A$."00". .".";B$:.9000....!.A
$,B$,C$...(# 15...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL