> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 28 08 00 00 8F 20 2D 2D 20 46 49 4C 45 4E |..(.... -- FILEN|
00000010: 41 4D 45 3A 20 22 41 55 53 54 52 4F 2D 43 4F 4E |AME: "AUSTRO-CON|
00000020: 56 45 52 54 45 52 22 2E 00 5A 08 0A 00 9C 3A 9E |VERTER"..Z....:.|
00000030: 35 38 37 39 32 3A 99 22 93 11 9E 41 55 53 54 52 |58792:."...AUSTR|
00000040: 4F 2D 43 4F 4E 56 45 52 54 45 52 20 50 52 4F 47 |O-CONVERTER PROG|
00000050: 52 41 4D 2E 2E 2E 9A 22 3A 99 00 88 08 14 00 99 |RAM....":.......|
00000060: 22 43 48 41 4E 47 45 53 20 53 54 41 4E 44 41 52 |"CHANGES STANDAR|
00000070: 44 20 41 55 53 54 52 4F 53 50 45 45 44 20 50 52 |D AUSTROSPEED PR|
00000080: 4F 47 52 41 4D 53 2C 22 00 B6 08 1E 00 99 22 47 |OGRAMS,"......"G|
00000090: 49 56 49 4E 47 20 54 48 45 4D 20 41 20 4C 49 4E |IVING THEM A LIN|
000000A0: 45 20 4E 55 4D 42 45 52 20 4F 46 20 5A 45 52 4F |E NUMBER OF ZERO|
000000B0: 2C 20 41 4E 44 22 00 DE 08 28 00 99 22 41 20 50 |, AND"...(.."A P|
000000C0: 52 4F 50 45 52 4C 59 20 44 45 43 52 49 50 54 49 |ROPERLY DECRIPTI|
000000D0: 56 45 20 54 49 54 4C 45 2E 2E 2E 22 3A 99 00 05 |VE TITLE...":...|
000000E0: 09 32 00 85 22 20 49 4E 50 55 54 20 46 49 4C 45 |.2.." INPUT FILE|
000000F0: 4E 41 4D 45 22 3B 46 31 24 3A 8B 46 31 24 B2 22 |NAME";F1$:.F1$."|
00000100: 22 A7 33 33 30 00 26 09 3C 00 85 22 20 20 20 49 |".330.&.<.." I|
00000110: 4E 50 55 54 20 44 45 56 49 43 45 22 3B 44 31 3A |NPUT DEVICE";D1:|
00000120: 99 3A 8D 31 36 30 00 4D 09 46 00 85 22 4F 55 54 |.:.160.M.F.."OUT|
00000130: 50 55 54 20 46 49 4C 45 4E 41 4D 45 22 3B 46 32 |PUT FILENAME";F2|
00000140: 24 3A 8B 46 32 24 B2 22 22 A7 33 33 30 00 6E 09 |$:.F2$."".330.n.|
00000150: 50 00 85 22 20 20 4F 55 54 50 55 54 20 44 45 56 |P.." OUTPUT DEV|
00000160: 49 43 45 22 3B 44 32 3A 99 3A 8D 32 35 30 00 B2 |ICE";D2:.:.250..|
00000170: 09 5A 00 99 22 54 49 54 4C 45 20 54 4F 20 47 49 |.Z.."TITLE TO GI|
00000180: 56 45 20 50 52 4F 47 52 41 4D 20 28 46 4F 55 52 |VE PROGRAM (FOUR|
00000190: 54 45 45 4E 20 4C 45 54 54 45 52 53 22 3A 99 22 |TEEN LETTERS":."|
000001A0: 4F 52 20 46 45 57 45 52 20 4F 4E 4C 59 29 3A 22 |OR FEWER ONLY):"|
000001B0: 3A 99 00 CA 09 64 00 85 22 3E 3E 22 3B 4E 24 3A |:....d..">>";N$:|
000001C0: 8B 4E 24 B2 22 22 A7 33 33 30 00 E2 09 6E 00 8B |.N$."".330...n..|
000001D0: C3 28 4E 24 29 B1 31 32 A7 4E 51 B2 31 3A 89 33 |.(N$).12.NQ.1:.3|
000001E0: 35 30 00 1B 0A 78 00 99 3A 85 22 4F 2E 4B 2E 20 |50...x..:."O.K. |
000001F0: 54 4F 20 51 55 4F 54 45 20 54 48 49 53 20 54 49 |TO QUOTE THIS TI|
00000200: 54 4C 45 20 28 59 2F 4E 29 22 3B 59 4E 24 3A 59 |TLE (Y/N)";YN$:Y|
00000210: 4E 24 B2 C8 28 59 4E 24 2C 31 29 00 2D 0A 82 00 |N$..(YN$,1).-...|
00000220: 8B 59 4E 24 B2 22 4E 22 A7 4E 51 B2 31 00 36 0A |.YN$."N".NQ.1.6.|
00000230: 8C 00 89 33 35 30 00 3C 0A 96 00 90 00 77 0A A0 |...350.<.....w..|
00000240: 00 5A 24 B2 C7 28 30 29 3A 41 43 24 B2 22 01 08 |.Z$..(0):AC$."..|
00000250: 1A 08 01 22 AA 5A 24 AA 22 9E 32 30 37 36 20 41 |...".Z$.".2076 A|
00000260: 55 53 54 52 4F 53 50 45 45 44 20 31 45 22 AA 5A |USTROSPEED 1E".Z|
00000270: 24 AA 5A 24 AA 5A 24 00 A6 0A AA 00 A0 31 35 3A |$.Z$.Z$......15:|
00000280: 9F 31 35 2C 44 31 2C 31 35 2C 22 49 30 22 3A 9F |.15,D1,15,"I0":.|
00000290: 35 2C 44 31 2C 35 2C 22 30 3A 22 AA 46 31 24 AA |5,D1,5,"0:".F1$.|
000002A0: 22 2C 50 2C 52 22 00 CC 0A B4 00 84 31 35 2C 4E |",P,R"......15,N|
000002B0: 31 24 2C 45 31 24 2C 54 31 24 2C 53 31 24 3A 8B |1$,E1$,T1$,S1$:.|
000002C0: 4E 31 24 B2 22 30 30 22 A7 32 30 30 00 07 0B BE |N1$."00".200....|
000002D0: 00 99 22 93 11 22 AA 4E 31 24 AA 22 20 22 AA 45 |.."..".N1$." ".E|
000002E0: 31 24 AA 22 20 22 AA 54 31 24 AA 22 20 22 AA 53 |1$." ".T1$." ".S|
000002F0: 31 24 3A 99 3A 99 22 96 41 42 4F 52 54 45 44 21 |1$:.:.".ABORTED!|
00000300: 9A 22 3B 3A 9C 3A 80 00 33 0B C8 00 59 24 B2 22 |.";:.:..3...Y$."|
00000310: 22 3A 58 24 B2 22 22 3A 81 58 B2 31 A4 32 39 3A |":X$."":.X.1.29:|
00000320: A1 23 35 2C 58 24 3A 8B 58 24 B2 22 22 A7 58 24 |.#5,X$:.X$."".X$|
00000330: B2 5A 24 00 5D 0B D2 00 59 24 B2 59 24 AA 58 24 |.Z$.]...Y$.Y$.X$|
00000340: 3A 82 58 3A A0 35 3A 98 31 35 2C 22 49 30 22 3A |:.X:.5:.15,"I0":|
00000350: A0 31 35 3A 8B 41 43 24 B2 59 24 A7 8E 00 8E 0B |.15:.AC$.Y$.....|
00000360: DC 00 99 22 93 11 9F 53 50 45 43 49 46 49 45 44 |..."...SPECIFIED|
00000370: 20 49 4E 50 55 54 20 46 49 4C 45 20 49 53 20 4E | INPUT FILE IS N|
00000380: 4F 54 20 41 20 53 54 41 4E 44 41 52 44 22 00 BB |OT A STANDARD"..|
00000390: 0B E6 00 99 22 41 55 53 54 52 4F 53 50 45 45 44 |...."AUSTROSPEED|
000003A0: 20 46 49 4C 45 21 9A 22 3A 99 3A 99 22 96 41 42 | FILE!.":.:.".AB|
000003B0: 4F 52 54 45 44 21 9A 22 3B 3A 80 00 C1 0B F0 00 |ORTED!.";:......|
000003C0: 90 00 FF 0B FA 00 A0 31 35 3A 9F 31 35 2C 44 32 |.......15:.15,D2|
000003D0: 2C 31 35 2C 22 52 30 3A 22 AA 46 32 24 AA 22 3D |,15,"R0:".F2$."=|
000003E0: 30 3A 22 AA 46 32 24 3A 84 31 35 2C 4E 32 24 2C |0:".F2$:.15,N2$,|
000003F0: 45 32 24 2C 54 32 24 2C 53 32 24 3A A0 31 35 00 |E2$,T2$,S2$:.15.|
00000400: 11 0C 04 01 8B 4E 32 24 B2 22 36 32 22 A7 99 3A |.....N2$."62"..:|
00000410: 8E 00 23 0C 0E 01 8B 4E 32 24 B2 22 36 33 22 A7 |..#....N2$."63".|
00000420: 32 39 30 00 5E 0C 18 01 99 22 93 11 22 AA 4E 32 |290.^...."..".N2|
00000430: 24 AA 22 20 22 AA 45 32 24 AA 22 20 22 AA 54 32 |$." ".E2$." ".T2|
00000440: 24 AA 22 20 22 AA 53 32 24 3A 99 3A 99 22 96 41 |$." ".S2$:.:.".A|
00000450: 42 4F 52 54 45 44 21 9A 22 3B 3A 9C 3A 80 00 98 |BORTED!.";:.:...|
00000460: 0C 22 01 85 22 46 49 4C 45 20 45 58 49 53 54 53 |.".."FILE EXISTS|
00000470: 21 20 4F 56 45 52 57 52 49 54 45 20 49 54 20 28 |! OVERWRITE IT (|
00000480: 59 2F 4E 29 22 3B 59 4E 24 3A 99 3A 59 4E 24 B2 |Y/N)";YN$:.:YN$.|
00000490: C8 28 59 4E 24 2C 31 29 00 A7 0C 2C 01 8B 59 4E |.(YN$,1)...,..YN|
000004A0: 24 B2 22 59 22 A7 8E 00 BE 0C 36 01 99 22 96 41 |$."Y".....6..".A|
000004B0: 42 4F 52 54 45 44 21 9A 22 3B 3A 9C 3A 80 00 C4 |BORTED!.";:.:...|
000004C0: 0C 40 01 90 00 FA 0C 4A 01 9C 3A 97 36 33 31 2C |.@.....J..:.631,|
000004D0: 31 33 3A 97 31 39 38 2C 31 3A 99 22 93 22 3B 3A |13:.198,1:.".";:|
000004E0: 9E 35 38 37 39 32 3A 99 22 93 11 96 41 4C 4C 20 |.58792:."...ALL |
000004F0: 44 4F 4E 45 21 9A 22 3B 3A 80 00 00 0D 54 01 90 |DONE!.";:....T..|
00000500: 00 3F 0D 5E 01 97 35 33 32 38 30 2C 36 3A 51 24 |.?.^..53280,6:Q$|
00000510: B2 C7 28 33 34 29 3A 99 22 93 11 11 1F 46 CF 58 |..(34):."....F.X|
00000520: 3D 36 33 31 54 4F 36 33 35 3A 50 CF 58 2C 31 33 |=631TO635:P.X,13|
00000530: 3A 4E C5 58 3A 50 CF 31 39 38 2C 35 3A 22 3B 00 |:N.X:P.198,5:";.|
00000540: 6B 0D 68 01 99 22 4C CF 22 AA 51 24 AA 22 30 3A |k.h.."L.".Q$."0:|
00000550: 22 AA 46 31 24 AA 22 2C 50 2C 52 22 AA 51 24 AA |".F1$.",P,R".Q$.|
00000560: 22 2C 22 3B 44 31 3B 22 2C 31 22 00 8F 0D 72 01 |",";D1;",1"...r.|
00000570: 5A 5A 24 B2 22 4E 24 3D 51 24 2B 4E 24 2B 51 24 |ZZ$."N$=Q$+N$+Q$|
00000580: 3A 22 3A 8B 4E 51 B2 31 A7 5A 5A 24 B2 22 22 00 |:":.NQ.1.ZZ$."".|
00000590: BC 0D 7C 01 99 22 11 11 11 11 51 24 3D 43 48 52 |..|.."....Q$=CHR|
000005A0: 24 28 33 34 29 3A 4E 24 3D 22 AA 51 24 AA 4E 24 |$(34):N$=".Q$.N$|
000005B0: AA 51 24 AA 22 3A 22 AA 5A 5A 24 3B 00 F1 0D 86 |.Q$.":".ZZ$;....|
000005C0: 01 99 22 4E 24 3D 4C 45 46 54 24 28 4E 24 22 AA |.."N$=LEFT$(N$".|
000005D0: 22 2B 22 AA 51 24 AA 22 20 20 20 20 20 20 20 20 |"+".Q$." |
000005E0: 20 20 20 20 20 20 22 AA 51 24 AA 22 2C 31 34 29 | ".Q$.",14)|
000005F0: 22 00 1A 0E 90 01 99 3A 99 A3 39 29 3B 22 9E 57 |"......:..9);".W|
00000600: 4F 52 4B 49 4E 47 2E 2E 2E 20 50 4C 45 41 53 45 |ORKING... PLEASE|
00000610: 20 57 41 49 54 2E 2E 2E 1F 22 00 5E 0E 9A 01 99 | WAIT....".^....|
00000620: 22 4C 3D 4C 45 4E 28 4E 24 29 3A 50 CF 32 30 35 |"L=LEN(N$):P.205|
00000630: 31 2C 30 3A 46 CF 58 3D 31 54 4F 4C 3A 50 CF 32 |1,0:F.X=1TOL:P.2|
00000640: 30 35 38 2B 58 2C 41 53 43 28 4D 49 44 24 28 4E |058+X,ASC(MID$(N|
00000650: 24 2C 58 2C 31 29 29 3A 4E C5 58 3A 22 3B 00 78 |$,X,1)):N.X:";.x|
00000660: 0E A4 01 99 22 3F 22 AA 51 24 AA 22 9F 22 AA 51 |...."?".Q$.".".Q|
00000670: 24 AA 22 3B 3A 4C C9 22 00 BD 0E AE 01 99 22 11 |$.";:L."......".|
00000680: 11 11 46 32 24 3D 22 AA 51 24 AA 46 32 24 AA 51 |..F2$=".Q$.F2$.Q|
00000690: 24 AA 22 3A 43 4C CF 31 3A 4F D0 31 2C 22 3B 44 |$.":CL.1:O.1,";D|
000006A0: 32 3B 22 2C 31 35 2C 22 AA 51 24 AA 22 53 30 3A |2;",15,".Q$."S0:|
000006B0: 22 AA 51 24 AA 22 2B 46 32 24 3A 22 3B 00 FB 0E |".Q$."+F2$:";...|
000006C0: B8 01 99 22 43 4C CF 31 3A 50 CF 36 34 36 2C 36 |..."CL.1:P.646,6|
000006D0: 3A 53 C1 22 AA 51 24 AA 22 30 3A 22 AA 51 24 AA |:S.".Q$."0:".Q$.|
000006E0: 22 2B 46 32 24 2B 22 AA 51 24 AA 22 2C 50 2C 57 |"+F2$+".Q$.",P,W|
000006F0: 22 AA 51 24 AA 22 2C 22 3B 44 32 00 3E 0F C2 01 |".Q$.",";D2.>...|
00000700: 99 22 11 11 11 3F 22 AA 51 24 AA 22 93 11 22 AA |."...?".Q$."..".|
00000710: 51 24 AA 22 3B 3A 53 D9 35 38 37 39 32 3A 3F 22 |Q$.";:S.58792:?"|
00000720: AA 51 24 AA 22 96 41 4C 4C 20 44 4F 4E 45 21 9A |.Q$.".ALL DONE!.|
00000730: 22 AA 51 24 AA 22 3B 3A 4E 45 57 13 22 3B 00 53 |".Q$.";:NEW.";.S|
00000740: 0F CC 01 97 36 33 31 2C 31 33 3A 97 31 39 38 2C |....631,13:.198,|
00000750: 31 3A 80 00 59 0F D6 01 90 00 5F 0F E0 01 80 00 |1:..Y....._.....|
00000760: 00 00 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................|
00000770: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................|
..(.... -- FILENAME: "AUSTRO-CONVERTER".
.Z....:.58792:."...AUSTRO-CONVERTER PROG
RAM....":......."CHANGES STANDARD AUSTRO
SPEED PROGRAMS,"......"GIVING THEM A LIN
E NUMBER OF ZERO, AND"...(.."A PROPERLY
DECRIPTIVE TITLE...":....2.." INPUT FILE
NAME";F1$:.F1$."".330.&.<.." INPUT DEV
ICE";D1:.:.160.M.F.."OUTPUT FILENAME";F2
$:.F2$."".330.N.P.." OUTPUT DEVICE";D2:
.:.250...Z.."TITLE TO GIVE PROGRAM (FOUR
TEEN LETTERS":."OR FEWER ONLY):":..J.D..
">>";N$:.N$."".330...N..C(N$).12.NQ.1:.3
50...X..:."O.K. TO QUOTE THIS TITLE (Y/N
)";YN$:YN$.H(YN$,1).-....YN$."N".NQ.1.6.
...350.<.....W. .Z$.G(0):AC$.".....".Z$.
".2076 AUSTROSPEED 1E".Z$.Z$.Z$..... 15:
.15,D1,15,"I0":.5,D1,5,"0:".F1$.",P,R".L
....15,N1$,E1$,T1$,S1$:.N1$."00".200....
.."..".N1$." ".E1$." ".T1$." ".S1$:.:.".
ABORTED!.";:.:..3.H.Y$."":X$."":.X.1.29:
.#5,X$:.X$."".X$.Z$.].R.Y$.Y$.X$:.X: 5:.
15,"I0": 15:.AC$.Y$........"...SPECIFIED
INPUT FILE IS NOT A STANDARD"......"AUS
TROSPEED FILE!.":.:.".ABORTED!.";:..A...
...... 15:.15,D2,15,"R0:".F2$."=0:".F2$:
.15,N2$,E2$,T2$,S2$: 15......N2$."62"..:
..#....N2$."63".290.^...."..".N2$." ".E2
$." ".T2$." ".S2$:.:.".ABORTED!.";:.:...
.".."FILE EXISTS! OVERWRITE IT (Y/N)";YN
$:.:YN$.H(YN$,1)...,..YN$."Y".....6..".A
BORTED!.";:.:..D.@.....J..:.631,13:.198,
1:.".";:.58792:."...ALL DONE!.";:....T..
.?.^..53280,6:Q$.G(34):."....FOX=631TO63
5:POX,13:NEX:PO198,5:";.K.H.."LO".Q$."0:
".F1$.",P,R".Q$.",";D1;",1"...R.ZZ$."N$=
Q$+N$+Q$:":.NQ.1.ZZ$.""...|.."....Q$=CHR
$(34):N$=".Q$.N$.Q$.":".ZZ$;......"N$=LE
FT$(N$"."+".Q$." ".Q$.",14)
"......:..9);".WORKING... PLEASE WAIT...
.".^...."L=LEN(N$):PO2051,0:FOX=1TOL:PO2
058+X,ASC(MID$(N$,X,1)):NEX:";.X...."?".
Q$.".".Q$.";:LI"......"...F2$=".Q$.F2$.Q
$.":CLO1:OP1,";D2;",15,".Q$."S0:".Q$."+F
2$:";......"CLO1:PO646,6:SA".Q$."0:".Q$.
"+F2$+".Q$.",P,W".Q$.",";D2.>.B.."...?".
Q$."..".Q$.";:SY58792:?".Q$.".ALL DONE!.
".Q$.";:NEW.";.S.L..631,13:.198,1:..Y.V.
.._.....................................
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL