BYTES
FILE INFORMATION
FILENAME(S): BYTES
FILE TYPE(S): PRG
FILE SIZE: 4.1K
FIRST SEEN: 2025-11-30 18:05:27
APPEARS ON: 1 disk(s)
FILE HASH
236fbada4ca90b272a41195be0489beb5555cc9c99e045024c942a808fd10d3f
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOADSTAR 67 S 1 | BYTES | PRG | Xii | 10 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1F 08 0A 00 97 35 33 32 38 31 2C 30 3A 97 |.......53281,0:.| 00000010: 35 33 32 38 30 2C 30 3A 99 22 93 0E 08 9F 22 00 |53280,0:."....".| 00000020: 55 08 14 00 86 4F 24 28 31 39 29 2C 54 57 45 4E |U....O$(19),TWEN| 00000030: 54 59 24 28 39 29 2C 48 55 4E 44 52 45 44 24 28 |TY$(9),HUNDRED$(| 00000040: 39 29 2C 4D 49 4C 4C 49 4E 53 24 28 36 39 29 2C |9),MILLINS$(69),| 00000050: 41 24 28 32 29 00 77 08 1E 00 41 24 28 31 29 B2 |A$(2).w...A$(1).| 00000060: 22 54 45 4E 20 22 3A 41 24 28 32 29 B2 22 48 55 |"TEN ":A$(2)."HU| 00000070: 4E 44 52 45 44 20 22 00 8C 08 28 00 81 49 B2 30 |NDRED "...(..I.0| 00000080: A4 31 39 3A 87 4F 24 28 49 29 3A 82 00 A5 08 32 |.19:.O$(I):....2| 00000090: 00 81 49 B2 32 A4 39 3A 87 54 57 45 4E 54 59 24 |..I.2.9:.TWENTY$| 000000A0: 28 49 29 3A 82 00 CF 08 3C 00 81 49 B2 31 A4 39 |(I):....<..I.1.9| 000000B0: 3A 48 55 4E 44 52 45 44 24 28 49 29 B2 4F 24 28 |:HUNDRED$(I).O$(| 000000C0: 49 29 AA 22 20 48 55 4E 44 52 45 44 22 3A 82 00 |I)." HUNDRED":..| 000000D0: 0D 09 46 00 81 49 B2 33 A4 36 36 A9 33 3A 87 4D |..F..I.3.66.3:.M| 000000E0: 49 4C 4C 49 4E 24 28 49 29 3A 81 49 49 B2 31 A4 |ILLIN$(I):.II.1.| 000000F0: 32 3A 4D 49 24 28 49 AA 49 49 29 B2 41 24 28 49 |2:MI$(I.II).A$(I| 00000100: 49 29 AA 4D 49 24 28 49 29 3A 82 3A 82 00 2F 09 |I).MI$(I):.:../.| 00000110: 50 00 4D 49 24 28 31 29 B2 22 54 45 4E 22 3A 4D |P.MI$(1)."TEN":M| 00000120: 49 24 28 32 29 B2 22 48 55 4E 44 52 45 44 22 00 |I$(2)."HUNDRED".| 00000130: 57 09 5A 00 8D 39 33 30 3A 97 31 39 38 2C 30 3A |W.Z..930:.198,0:| 00000140: 92 31 39 38 2C 31 3A A1 41 24 3A 8B 41 24 B2 22 |.198,1:.A$:.A$."| 00000150: 51 22 A7 31 31 36 30 00 89 09 64 00 99 22 93 11 |Q".1160...d.."..| 00000160: 9F 20 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 |. ..............| 00000170: B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 |................| 00000180: B9 B9 B9 B9 B9 B9 B9 B9 22 00 B9 09 6E 00 99 22 |........"...n.."| 00000190: 12 1D 1D 9A 20 20 20 20 D4 C8 C5 A0 CD C9 C7 C8 |.... ........| 000001A0: D4 D9 A0 CE D5 CD C2 C5 D2 A0 D4 D2 C1 CE D3 CC |................| 000001B0: C1 D4 CF D2 20 20 20 20 22 00 E9 09 78 00 99 22 |.... "...x.."| 000001C0: 1F 20 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |. ..............| 000001D0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................| 000001E0: B8 B8 B8 B8 B8 B8 B8 B8 22 00 0B 0A 7D 00 99 A6 |........"...}...| 000001F0: 31 30 29 22 11 9F 42 59 20 CA 45 46 46 52 45 59 |10)"..BY .EFFREY| 00000200: 20 CC 2E 20 CA 4F 4E 45 53 9B 22 00 3E 0A 82 00 | .. .ONES.".>...| 00000210: 99 3A 99 22 11 11 20 20 CE 55 4D 42 45 52 3F 20 |.:.".. .UMBER? | 00000220: 22 3B 3A 8D 36 33 30 3A 99 3A 99 3A 4C B2 C3 28 |";:.630:.:.:L..(| 00000230: 4E 55 24 29 3A 8B 4E 55 24 B2 22 22 A7 8A 00 57 |NU$):.NU$.""...W| 00000240: 0A 8C 00 8B CA 28 4E 55 24 2C 31 2C 31 29 B2 22 |.....(NU$,1,1)."| 00000250: 30 22 A7 8D 34 37 30 00 65 0A 96 00 8D 35 38 30 |0"..470.e....580| 00000260: 3A 50 53 B2 30 00 9E 0A A0 00 43 52 24 B2 C7 28 |:PS.0.....CR$..(| 00000270: 31 33 29 3A 4D 41 58 B2 33 39 3A 44 56 B2 33 3A |13):MAX.39:DV.3:| 00000280: A0 34 3A 9F 34 2C 34 2C 37 3A A0 34 3A 8B 53 54 |.4:.4,4,7:.4:.ST| 00000290: B2 30 A7 4D 41 58 B2 36 35 3A 44 56 B2 34 00 D1 |.0.MAX.65:DV.4..| 000002A0: 0A AA 00 A0 33 3A 9F 33 2C 44 56 2C 37 3A 8B 44 |....3:.3,DV,7:.D| 000002B0: 56 B2 34 A7 43 52 24 B2 43 52 24 AA 22 20 20 20 |V.4.CR$.CR$." | 000002C0: 20 20 22 3A 98 33 2C 43 52 24 43 52 24 43 52 24 | ":.3,CR$CR$CR$| 000002D0: 3B 00 E9 0A B4 00 98 33 2C 50 4E 24 22 20 49 53 |;......3,PN$" IS| 000002E0: 3A 22 43 52 24 43 52 24 3B 00 1C 0B BE 00 91 4C |:"CR$CR$;......L| 000002F0: 8D 32 32 30 2C 32 32 30 2C 32 38 30 3A 8B 4C B3 |.220,220,280:.L.| 00000300: 34 A7 8D 34 31 30 3A 98 33 2C 43 52 24 43 52 24 |4..410:.3,CR$CR$| 00000310: 3B 3A 8D 31 31 34 30 3A 89 31 30 30 00 40 0B C8 |;:.1140:.100.@..| 00000320: 00 8D 33 32 30 3A 8D 34 31 30 3A 98 33 2C 43 52 |..320:.410:.3,CR| 00000330: 24 43 52 24 3B 3A 8D 31 31 34 30 3A 89 31 30 30 |$CR$;:.1140:.100| 00000340: 00 5B 0B D2 00 8F 20 54 52 41 4E 53 4C 41 54 45 |.[.... TRANSLATE| 00000350: 20 4E 55 4D 42 45 52 20 3C 32 30 00 8A 0B DC 00 | NUMBER <20.....| 00000360: 8B C5 28 4E 55 24 29 B3 32 30 A7 41 24 B2 4F 24 |..(NU$).20.A$.O$| 00000370: 28 C5 28 4E 55 24 29 29 AA 22 20 22 3A 8D 35 35 |(.(NU$))." ":.55| 00000380: 30 3A 98 33 2C 41 24 3B 3A 8E 00 A7 0B E6 00 8F |0:.3,A$;:.......| 00000390: 20 54 52 41 4E 53 4C 41 54 45 20 4E 55 4D 42 45 | TRANSLATE NUMBE| 000003A0: 52 20 32 30 2D 39 39 00 E3 0B F0 00 41 24 B2 54 |R 20-99.....A$.T| 000003B0: 57 45 4E 54 59 24 28 C5 28 CA 28 4E 55 24 2C 31 |WENTY$(.(.(NU$,1| 000003C0: 2C 31 29 29 29 3A 8B CA 28 4E 55 24 2C 32 29 B3 |,1))):..(NU$,2).| 000003D0: B1 22 30 22 A7 41 24 B2 41 24 AA 22 2D 22 3A 8D |."0".A$.A$."-":.| 000003E0: 35 35 30 00 0E 0C FA 00 98 33 2C 41 24 3B 3A 8B |550......3,A$;:.| 000003F0: CA 28 4E 55 24 2C 32 29 B2 22 30 22 A7 98 33 2C |.(NU$,2)."0"..3,| 00000400: 22 20 22 3B 3A 50 53 B2 50 53 AA 31 3A 8E 00 37 |" ";:PS.PS.1:..7| 00000410: 0C 04 01 41 24 B2 4F 24 28 C5 28 CA 28 4E 55 24 |...A$.O$(.(.(NU$| 00000420: 2C 32 29 29 29 AA 22 20 22 3A 8D 35 35 30 3A 98 |,2)))." ":.550:.| 00000430: 33 2C 41 24 3B 3A 8E 00 56 0C 0E 01 8F 20 54 52 |3,A$;:..V.... TR| 00000440: 41 4E 53 4C 41 54 45 20 4E 55 4D 42 45 52 20 31 |ANSLATE NUMBER 1| 00000450: 30 30 2D 39 39 39 00 80 0C 18 01 41 24 B2 48 55 |00-999.....A$.HU| 00000460: 24 28 C5 28 CA 28 4E 55 24 2C 31 2C 31 29 29 29 |$(.(.(NU$,1,1)))| 00000470: AA 22 20 22 3A 8D 35 35 30 3A 98 33 2C 41 24 3B |." ":.550:.3,A$;| 00000480: 00 95 0C 22 01 8B C5 28 CA 28 4E 55 24 2C 32 29 |..."...(.(NU$,2)| 00000490: 29 B2 30 A7 8E 00 AD 0C 2C 01 4E 55 24 B2 CA 28 |).0.....,.NU$..(| 000004A0: 4E 55 24 2C 32 29 3A 8D 32 32 30 3A 8E 00 CA 0C |NU$,2):.220:....| 000004B0: 36 01 8F 20 54 52 41 4E 53 4C 41 54 45 20 4E 55 |6.. TRANSLATE NU| 000004C0: 4D 42 45 52 20 3E 31 30 30 30 00 E9 0C 40 01 4C |MBER >1000...@.L| 000004D0: B2 C3 28 4E 55 24 29 3A 8B 4C B3 34 A7 8D 32 38 |..(NU$):.L.4..28| 000004E0: 30 3A 4E 24 B2 22 22 3A 8E 00 11 0D 4A 01 4E 24 |0:N$."":....J.N$| 000004F0: B2 4E 55 24 3A 8D 33 38 30 3A 4E 55 24 B2 CA 28 |.NU$:.380:NU$..(| 00000500: 4E 55 24 2C 31 2C 50 29 3A 4C B2 C3 28 4E 55 24 |NU$,1,P):L..(NU$| 00000510: 29 00 33 0D 54 01 8B 4E 55 24 B2 22 30 30 30 22 |).3.T..NU$."000"| 00000520: A7 4E 55 24 B2 CA 28 4E 24 2C 50 AA 31 29 3A 89 |.NU$..(N$,P.1):.| 00000530: 33 32 30 00 4B 0D 5E 01 91 C3 28 4E 55 24 29 8D |320.K.^...(NU$).| 00000540: 32 32 30 2C 32 32 30 2C 32 38 30 00 87 0D 68 01 |220,220,280...h.| 00000550: 41 24 B2 4D 49 24 28 C3 28 CA 28 4E 24 2C 50 AA |A$.MI$(.(.(N$,P.| 00000560: 31 29 29 29 AA 22 20 22 3A 8D 35 35 30 3A 98 33 |1)))." ":.550:.3| 00000570: 2C 41 24 3B 3A 4E 55 24 B2 CA 28 4E 24 2C 50 AA |,A$;:NU$..(N$,P.| 00000580: 31 29 3A 89 33 32 30 00 9E 0D 72 01 8F 20 43 48 |1):.320...r.. CH| 00000590: 45 43 4B 20 46 4F 52 20 50 52 45 46 49 58 00 CA |ECK FOR PREFIX..| 000005A0: 0D 7C 01 58 B2 C3 28 4E 55 24 29 3A 81 49 B2 31 |.|.X..(NU$):.I.1| 000005B0: A4 33 3A 8B 28 58 AB 49 29 AD 33 B2 B5 28 28 58 |.3:.(X.I).3..((X| 000005C0: AB 49 29 AD 33 29 A7 50 B2 49 00 D2 0D 86 01 82 |.I).3).P.I......| 000005D0: 3A 8E 00 E8 0D 90 01 8F 20 54 41 43 4B 20 4F 4E |:....... TACK ON| 000005E0: 20 44 45 43 49 4D 41 4C 00 F3 0D 9A 01 8B 44 B2 | DECIMAL......D.| 000005F0: 30 A7 8E 00 2A 0E A4 01 44 B2 30 3A 98 33 2C 22 |0...*...D.0:.3,"| 00000600: 41 4E 44 20 22 3B 3A 4E 55 24 B2 44 24 3A 44 4C |AND ";:NU$.D$:DL| 00000610: B2 C3 28 4E 55 24 29 3A 4C B2 C3 28 4E 55 24 29 |..(NU$):L..(NU$)| 00000620: 3A 8D 34 37 30 3A 8D 34 37 30 00 54 0E AE 01 91 |:.470:.470.T....| 00000630: 4C 8D 32 32 30 2C 32 32 30 2C 32 38 30 3A 8B 4C |L.220,220,280:.L| 00000640: B3 34 A7 98 33 2C 4D 49 24 28 44 4C 29 22 54 48 |.4..3,MI$(DL)"TH| 00000650: 53 22 3A 8E 00 5D 0E B8 01 8D 33 32 30 00 73 0E |S":..]....320.s.| 00000660: C2 01 98 33 2C 4D 49 24 28 44 4C 29 22 54 48 53 |...3,MI$(DL)"THS| 00000670: 22 3A 8E 00 92 0E CC 01 8F 20 43 48 45 43 4B 20 |":....... CHECK | 00000680: 46 4F 52 20 4C 45 41 44 49 4E 47 20 5A 45 52 4F |FOR LEADING ZERO| 00000690: 45 53 00 9A 0E D6 01 46 B2 30 00 B7 0E E0 01 8B |ES.....F.0......| 000006A0: 4E 55 24 B2 22 30 22 B0 C8 28 4E 55 24 2C 32 29 |NU$."0"..(NU$,2)| 000006B0: B2 22 30 2E 22 A7 8E 00 E0 0E EA 01 81 49 B2 31 |."0."........I.1| 000006C0: A4 4C 3A 4C B2 C3 28 4E 55 24 29 3A 8B CA 28 4E |.L:L..(NU$):..(N| 000006D0: 55 24 2C 49 2C 31 29 B3 B1 22 30 22 A7 46 B2 31 |U$,I,1).."0".F.1| 000006E0: 00 F8 0E F4 01 8B 46 B2 30 A7 4E 55 24 B2 CA 28 |......F.0.NU$..(| 000006F0: 4E 55 24 2C 49 AA 31 29 00 FE 0E FE 01 82 00 14 |NU$,I.1)........| 00000700: 0F 08 02 4C B2 C3 28 4E 55 24 29 3A 8B 46 B2 30 |...L..(NU$):.F.0| 00000710: A7 34 39 30 00 1A 0F 12 02 8E 00 2A 0F 1C 02 8F |.490.......*....| 00000720: 20 57 4F 52 44 20 57 52 41 50 00 57 0F 26 02 50 | WORD WRAP.W.&.P| 00000730: 53 B2 50 53 AA C3 28 41 24 29 AA 31 3A 8B 50 53 |S.PS..(A$).1:.PS| 00000740: B1 4D 41 58 A7 98 33 2C 43 52 24 3B 3A 50 53 B2 |.MAX..3,CR$;:PS.| 00000750: C3 28 41 24 29 AA 31 00 5D 0F 30 02 8E 00 78 0F |.(A$).1.].0...x.| 00000760: 3A 02 8F 20 50 52 45 54 54 59 20 55 50 20 54 48 |:.. PRETTY UP TH| 00000770: 45 20 4E 55 4D 42 45 52 00 B2 0F 44 02 49 49 B2 |E NUMBER...D.II.| 00000780: AB 31 3A 50 4E 24 B2 22 22 3A 81 49 B2 4C A4 31 |.1:PN$."":.I.L.1| 00000790: A9 AB 31 3A 49 49 B2 49 49 AA 31 3A 8B 49 49 B2 |..1:II.II.1:.II.| 000007A0: 33 A7 50 4E 24 B2 22 2C 22 AA 50 4E 24 3A 49 49 |3.PN$.",".PN$:II| 000007B0: B2 30 00 CB 0F 4E 02 50 4E 24 B2 CA 28 4E 55 24 |.0...N.PN$..(NU$| 000007C0: 2C 49 2C 31 29 AA 50 4E 24 3A 82 00 E1 0F 58 02 |,I,1).PN$:....X.| 000007D0: 8B 44 A7 50 4E 24 B2 50 4E 24 AA 22 2E 22 AA 44 |.D.PN$.PN$.".".D| 000007E0: 24 00 E7 0F 62 02 8E 00 F8 0F 6C 02 8F 20 47 45 |$...b.....l.. GE| 000007F0: 54 20 4E 55 4D 42 45 52 00 12 10 76 02 4E 55 24 |T NUMBER...v.NU$| 00000800: B2 22 22 3A 44 24 B2 22 22 3A 44 B2 30 3A 4E 5A |."":D$."":D.0:NZ| 00000810: B2 30 00 2A 10 80 02 A1 41 24 3A 8D 37 39 30 3A |.0.*....A$:.790:| 00000820: 8B 41 24 B2 22 22 A7 36 34 30 00 6A 10 8A 02 41 |.A$."".640.j...A| 00000830: 53 B2 C6 28 41 24 29 3A 8B 28 41 24 B3 22 30 22 |S..(A$):.(A$."0"| 00000840: B0 41 24 B1 22 39 22 29 AF 41 24 B3 B1 22 2E 22 |.A$."9").A$.."."| 00000850: AF 41 24 B3 B1 22 51 22 AF 41 53 B3 B1 32 30 AF |.A$.."Q".AS..20.| 00000860: 41 53 B3 B1 31 33 A7 36 34 30 00 81 10 94 02 4C |AS..13.640.....L| 00000870: B2 C3 28 4E 55 24 29 3A 8B 41 24 B2 22 51 22 A7 |..(NU$):.A$."Q".| 00000880: 8A 00 B3 10 9E 02 8B 41 53 B2 32 30 AF 4C A7 4E |.......AS.20.L.N| 00000890: 55 24 B2 C8 28 4E 55 24 2C 4C AB 31 29 3A 99 C7 |U$..(NU$,L.1):..| 000008A0: 28 32 30 29 3B 3A 54 B2 30 3A 8D 38 30 30 3A 89 |(20);:T.0:.800:.| 000008B0: 36 34 30 00 C2 10 A8 02 8B 41 53 B2 32 30 A7 36 |640......AS.20.6| 000008C0: 34 30 00 DE 10 B2 02 8B 41 53 B2 31 33 A7 54 B2 |40......AS.13.T.| 000008D0: AB 31 3A 8D 38 30 30 3A 8D 38 32 30 3A 8E 00 F2 |.1:.800:.820:...| 000008E0: 10 BC 02 8B 41 24 B2 22 2E 22 AF 4C B2 30 A7 36 |....A$.".".L.0.6| 000008F0: 34 30 00 0C 11 C6 02 8B 4C B2 36 39 AF 44 B2 30 |40......L.69.D.0| 00000900: AF 41 24 B3 B1 22 2E 22 A7 36 34 30 00 22 11 D0 |.A$..".".640."..| 00000910: 02 8B 4C B2 31 34 30 A7 41 53 B2 32 30 3A 89 36 |..L.140.AS.20:.6| 00000920: 37 30 00 35 11 DA 02 8B 44 A7 8B 41 24 B2 22 2E |70.5....D..A$.".| 00000930: 22 A7 36 34 30 00 4D 11 E4 02 8B 4C AF 4E 5A B2 |".640.M....L.NZ.| 00000940: 30 A7 8B 41 24 B2 22 30 22 A7 36 34 30 00 5F 11 |0..A$."0".640._.| 00000950: EE 02 8B 41 24 B2 22 2E 22 A7 44 B2 4C AA 31 00 |...A$.".".D.L.1.| 00000960: 7F 11 F8 02 4E 55 24 B2 4E 55 24 AA 41 24 3A 99 |....NU$.NU$.A$:.| 00000970: 22 92 22 41 24 3B 3A 54 B2 30 3A 8D 38 30 30 00 |"."A$;:T.0:.800.| 00000980: 91 11 02 03 8B 41 24 B3 B1 22 30 22 A7 4E 5A B2 |.....A$.."0".NZ.| 00000990: 31 00 9A 11 0C 03 89 36 34 30 00 A7 11 16 03 8B |1......640......| 000009A0: 54 49 B3 31 35 A7 8E 00 CE 11 20 03 54 B2 A8 54 |TI.15..... .T..T| 000009B0: 3A 97 31 39 39 2C AB 54 3A 99 22 20 9D 22 3B 3A |:.199,.T:." .";:| 000009C0: 54 49 24 B2 22 30 30 30 30 30 30 22 3A 8E 00 E5 |TI$."000000":...| 000009D0: 11 2A 03 8F 20 43 48 4F 50 20 4F 46 46 20 44 45 |.*.. CHOP OFF DE| 000009E0: 43 49 4D 41 4C 00 1E 12 34 03 8B 44 A7 44 24 B2 |CIMAL...4..D.D$.| 000009F0: CA 28 4E 55 24 2C 44 AA 31 29 3A 44 24 B2 C8 28 |.(NU$,D.1):D$..(| 00000A00: 44 24 2C 36 36 29 3A 4E 55 24 B2 C8 28 4E 55 24 |D$,66):NU$..(NU$| 00000A10: 2C 44 AB 31 29 3A 4C B2 C3 28 4E 55 24 29 00 24 |,D.1):L..(NU$).$| 00000A20: 12 3E 03 8E 00 6D 12 48 03 83 5A 45 52 4F 2C 4F |.>...m.H..ZERO,O| 00000A30: 4E 45 2C 54 57 4F 2C 54 48 52 45 45 2C 46 4F 55 |NE,TWO,THREE,FOU| 00000A40: 52 2C 46 49 56 45 2C 53 49 58 2C 53 45 56 45 4E |R,FIVE,SIX,SEVEN| 00000A50: 2C 45 49 47 48 54 2C 4E 49 4E 45 2C 54 45 4E 2C |,EIGHT,NINE,TEN,| 00000A60: 45 4C 45 56 45 4E 2C 54 57 45 4C 56 45 00 B7 12 |ELEVEN,TWELVE...| 00000A70: 52 03 83 54 48 49 52 54 45 45 4E 2C 46 4F 55 52 |R..THIRTEEN,FOUR| 00000A80: 54 45 45 4E 2C 46 49 46 54 45 45 4E 2C 53 49 58 |TEEN,FIFTEEN,SIX| 00000A90: 54 45 45 4E 2C 53 45 56 45 4E 54 45 45 4E 2C 45 |TEEN,SEVENTEEN,E| 00000AA0: 49 47 48 54 45 45 4E 2C 4E 49 4E 45 54 45 45 4E |IGHTEEN,NINETEEN| 00000AB0: 2C 54 57 45 4E 54 59 00 EB 12 5C 03 83 54 48 49 |,TWENTY...\..THI| 00000AC0: 52 54 59 2C 46 4F 52 54 59 2C 46 49 46 54 59 2C |RTY,FORTY,FIFTY,| 00000AD0: 53 49 58 54 59 2C 53 45 56 45 4E 54 59 2C 45 49 |SIXTY,SEVENTY,EI| 00000AE0: 47 48 54 59 2C 4E 49 4E 45 54 59 00 12 13 66 03 |GHTY,NINETY...f.| 00000AF0: 83 54 48 4F 55 53 41 4E 44 2C 4D 49 4C 4C 49 4F |.THOUSAND,MILLIO| 00000B00: 4E 2C 42 49 4C 4C 49 4F 4E 2C 54 52 49 4C 4C 49 |N,BILLION,TRILLI| 00000B10: 4F 4E 00 59 13 70 03 83 51 55 41 44 52 49 4C 4C |ON.Y.p..QUADRILL| 00000B20: 49 4F 4E 2C 51 55 49 4E 54 49 4C 4C 49 4F 4E 2C |ION,QUINTILLION,| 00000B30: 53 45 58 54 49 4C 4C 49 4F 4E 2C 53 45 50 54 49 |SEXTILLION,SEPTI| 00000B40: 4C 4C 49 4F 4E 2C 4F 43 54 49 4C 4C 49 4F 4E 2C |LLION,OCTILLION,| 00000B50: 4E 4F 4E 49 4C 4C 49 4F 4E 00 68 13 7A 03 83 44 |NONILLION.h.z..D| 00000B60: 45 43 49 4C 4C 49 4F 4E 00 B2 13 84 03 83 55 4E |ECILLION......UN| 00000B70: 44 45 43 49 4C 4C 49 4F 4E 2C 44 55 4F 44 45 43 |DECILLION,DUODEC| 00000B80: 49 4C 4C 49 4F 4E 2C 54 52 45 44 45 43 49 4C 4C |ILLION,TREDECILL| 00000B90: 49 4F 4E 2C 51 55 41 54 54 52 4F 44 45 43 49 4C |ION,QUATTRODECIL| 00000BA0: 4C 49 4F 4E 2C 51 55 49 4E 44 45 43 49 4C 4C 49 |LION,QUINDECILLI| 00000BB0: 4F 4E 00 FE 13 8E 03 83 53 45 58 44 45 43 49 4C |ON......SEXDECIL| 00000BC0: 4C 49 4F 4E 2C 53 45 50 54 45 4E 44 45 43 49 4C |LION,SEPTENDECIL| 00000BD0: 4C 49 4F 4E 2C 4F 43 54 4F 44 45 43 49 4C 4C 49 |LION,OCTODECILLI| 00000BE0: 4F 4E 2C 4E 4F 56 45 4D 44 45 43 49 4C 4C 49 4F |ON,NOVEMDECILLIO| 00000BF0: 4E 2C 56 49 47 49 4E 54 49 4C 4C 49 4F 4E 00 0E |N,VIGINTILLION..| 00000C00: 14 98 03 83 53 45 4E 54 49 4C 4C 49 4F 4E 00 2C |....SENTILLION.,| 00000C10: 14 A2 03 97 35 33 32 38 31 2C 30 3A 97 35 33 32 |....53281,0:.532| 00000C20: 38 30 2C 30 3A 99 22 93 0E 08 9E 22 00 69 14 AC |80,0:."....".i..| 00000C30: 03 81 49 B2 31 A4 31 31 3A 99 22 05 A9 A9 A9 A9 |..I.1.11:.".....| 00000C40: A9 A9 A9 A9 A9 A9 A9 A9 A9 A9 A9 A9 A9 A9 A9 A9 |................| 00000C50: 9B DF DF DF DF DF DF DF DF DF DF DF DF DF DF DF |................| 00000C60: DF DF DF DF DF 22 3B 3A 82 00 AC 14 B6 03 81 49 |.....";:.......I| 00000C70: B2 31 A4 31 31 3A 99 22 98 DF DF DF DF DF DF DF |.1.11:."........| 00000C80: DF DF DF DF DF DF DF DF DF DF DF DF DF 97 A9 A9 |................| 00000C90: A9 A9 A9 A9 A9 A9 A9 A9 A9 A9 A9 A9 A9 A9 A9 A9 |................| 00000CA0: A9 A9 22 3B 3A 82 3A 99 22 13 9E 22 00 D0 14 C0 |..";:.:.".."....| 00000CB0: 03 81 49 B2 32 31 37 A4 32 34 32 3A 97 49 2C C2 |..I.217.242:.I,.| 00000CC0: 28 49 29 B0 31 32 38 3A 82 3A 97 32 31 34 2C 35 |(I).128:.:.214,5| 00000CD0: 00 08 15 CA 03 99 3A 81 49 B2 31 A4 31 30 3A 99 |......:.I.1.10:.| 00000CE0: A3 34 29 22 DD 12 98 20 20 20 20 20 20 20 20 20 |.4)"... | 00000CF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000D00: 20 20 20 20 20 92 9E DD 00 23 15 D4 03 82 3A 97 | ....#....:.| 00000D10: 32 31 34 2C 36 3A 97 32 31 31 2C 34 3A 9E 35 38 |214,6:.211,4:.58| 00000D20: 37 33 32 00 4B 15 DE 03 99 22 B0 C0 C0 C0 C0 C0 |732.K...."......| 00000D30: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000D40: C0 C0 C0 C0 C0 C0 C0 C0 C0 AE 22 00 76 15 E8 03 |..........".v...| 00000D50: 99 A3 35 29 22 9B A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 |..5)"...........| 00000D60: A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 |................| 00000D70: A2 A2 A2 A2 9E 22 00 90 15 F2 03 97 32 31 34 2C |....."......214,| 00000D80: 31 36 3A 97 32 31 31 2C 34 3A 9E 35 38 37 33 32 |16:.211,4:.58732| 00000D90: 00 B8 15 FC 03 99 22 AD C0 C0 C0 C0 C0 C0 C0 C0 |......".........| 00000DA0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000DB0: C0 C0 C0 C0 C0 C0 BD 22 00 EE 15 06 04 99 A3 35 |.......".......5| 00000DC0: 29 22 91 91 97 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |)"..............| 00000DD0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................| 00000DE0: B8 B8 B8 9E 22 3A 97 32 31 34 2C 39 3A 99 00 1A |....":.214,9:...| 00000DF0: 16 10 04 41 24 B2 22 D4 C8 C5 A0 CD C9 C7 C8 D4 |...A$.".........| 00000E00: D9 20 CE D5 CD C2 C5 D2 A0 D4 D2 C1 CE D3 CC C1 |. ..............| 00000E10: D4 CF D2 22 3A 8D 31 30 39 30 00 37 16 1A 04 41 |...":.1090.7...A| 00000E20: 24 B2 22 42 59 20 CA 45 46 46 20 CA 4F 4E 45 53 |$."BY .EFF .ONES| 00000E30: 22 3A 8D 31 30 39 30 00 60 16 24 04 41 24 B2 22 |":.1090.`.$.A$."| 00000E40: D0 D5 C2 CC C9 D3 C8 C5 C4 A0 CF CE A0 CC CF C1 |................| 00000E50: C4 D3 D4 C1 D2 A0 23 36 37 22 3A 8D 31 30 39 30 |......#67":.1090| 00000E60: 00 8C 16 2E 04 41 24 B2 22 D3 55 42 53 43 52 49 |.....A$.".UBSCRI| 00000E70: 50 54 49 4F 4E 53 20 31 2D 38 30 30 2D 38 33 31 |PTIONS 1-800-831| 00000E80: 2D 32 36 39 34 22 3A 8D 31 30 39 30 00 C3 16 38 |-2694":.1090...8| 00000E90: 04 97 32 31 34 2C 32 33 3A 99 3A 99 A3 38 29 22 |..214,23:.:..8)"| 00000EA0: 12 05 20 20 D0 20 D2 20 C5 20 D3 20 D3 20 A0 20 |.. . . . . . . | 00000EB0: C1 20 A0 20 CB 20 C5 20 D9 20 20 13 22 3A 89 31 |. . . . . .":.1| 00000EC0: 31 30 30 00 DD 16 42 04 99 A6 32 30 AB C3 28 41 |100...B...20..(A| 00000ED0: 24 29 AD 32 29 22 12 98 22 41 24 3A 8E 00 13 17 |$).2)".."A$:....| 00000EE0: 4C 04 41 24 B2 22 9F B9 9D 11 12 9A 20 9D 11 20 |L.A$."...... .. | 00000EF0: 9D 11 1F 92 B8 22 3A 81 49 B2 34 A4 33 35 3A 97 |.....":.I.4.35:.| 00000F00: 32 31 34 2C 31 38 3A 99 22 91 11 22 A3 49 29 41 |214,18:."..".I)A| 00000F10: 24 3A 82 00 31 17 56 04 97 32 31 34 2C 31 39 3A |$:..1.V..214,19:| 00000F20: 99 22 91 11 22 A3 32 30 29 22 12 9A DD 9D 11 DD |."..".20)"......| 00000F30: 22 00 5F 17 60 04 99 22 91 91 22 A3 35 29 22 12 |"._.`.."..".5)".| 00000F40: C3 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 A3 32 |. TO CONTINUE".2| 00000F50: 32 29 22 D1 20 54 4F 20 51 55 49 54 20 54 4F 00 |2)". TO QUIT TO.| 00000F60: 87 17 6A 04 99 A3 37 29 22 12 57 49 54 48 20 50 |..j...7)".WITH P| 00000F70: 52 4F 47 52 41 4D 22 A3 32 34 29 22 CC CF C1 C4 |ROGRAM".24)"....| 00000F80: D3 D4 C1 D2 22 3A 8E 00 93 17 74 04 8B 44 56 B2 |....":....t..DV.| 00000F90: 34 A7 8E 00 CA 17 7E 04 99 3A 99 A3 31 31 29 22 |4.....~..:..11)"| 00000FA0: 12 9F 20 9A 20 20 D0 D2 C5 D3 D3 20 C1 A0 CB C5 |.. . ..... ....| 00000FB0: D9 20 20 9F 20 22 3A 97 31 39 38 2C 30 3A 92 31 |. . ":.198,0:.1| 00000FC0: 39 38 2C 31 3A A1 41 24 3A 8E 00 05 18 88 04 41 |98,1:.A$:......A| 00000FD0: 24 B2 22 48 45 4C 4C 4F 20 43 4F 4E 4E 45 43 54 |$."HELLO CONNECT| 00000FE0: 22 3A 9F 31 35 2C 38 2C 31 35 2C 22 52 30 3A 22 |":.15,8,15,"R0:"| 00000FF0: AA 41 24 AA 22 3D 22 AA 41 24 3A 84 31 35 2C 45 |.A$."=".A$:.15,E| 00001000: 52 3A A0 31 35 00 1B 18 92 04 8B 20 45 52 B3 B1 |R:.15...... ER..| 00001010: 36 33 20 A7 20 99 22 93 22 3A 80 00 3B 18 9C 04 |63 . .".":..;...| 00001020: 51 24 B2 C7 28 33 34 29 3A 97 36 34 36 2C C2 28 |Q$..(34):.646,.(| 00001030: 35 33 32 38 31 29 3A 99 22 93 22 00 55 18 A6 04 |53281):.".".U...| 00001040: 99 22 13 11 11 11 4C 4F 41 44 22 51 24 41 24 51 |."....LOAD"Q$A$Q| 00001050: 24 22 2C 38 22 00 7E 18 B0 04 99 22 11 11 11 11 |$",8".~...."....| 00001060: 52 55 4E 13 22 3A 97 36 33 31 2C 31 33 3A 97 36 |RUN.":.631,13:.6| 00001070: 33 32 2C 31 33 3A 97 31 39 38 2C 32 3A 80 00 00 |32,13:.198,2:...| 00001080: 00 |. |
.......53281,0:.53280,0:."....".U....O$(
19),TWENTY$(9),HUNDRED$(9),MILLINS$(69),
A$(2).W...A$(1)."TEN ":A$(2)."HUNDRED ".
..(..I.0.19:.O$(I):....2..I.2.9:.TWENTY$
(I):..O.<..I.1.9:HUNDRED$(I).O$(I)." HUN
DRED":....F..I.3.66.3:.MILLIN$(I):.II.1.
2:MI$(I.II).A$(II).MI$(I):.:../.P.MI$(1)
."TEN":MI$(2)."HUNDRED".W.Z..930:.198,0:
.198,1:.A$:.A$."Q".1160...D.."... ......
................................"...N.."
.... THE MIGHTY NUMBER TRANSLATOR
"...X..". ..............................
........"...}...10)"..BY JEFFREY L. JONE
S.".>....:.".. NUMBER? ";:.630:.:.:L.C(
NU$):.NU$.""...W....J(NU$,1,1)."0"..470.
E....580:PS.0... .CR$.G(13):MAX.39:DV.3:
4:.4,4,7: 4:.ST.0.MAX.65:DV.4.Q... 3:.3
,DV,7:.DV.4.CR$.CR$." ":.3,CR$CR$CR$
;......3,PN$" IS:"CR$CR$;......L.220,220
,280:.L.4..410:.3,CR$CR$;:.1140:.100.@.H
..320:.410:.3,CR$CR$;:.1140:.100.[.R.. T
RANSLATE NUMBER <20......E(NU$).20.A$.O$
(E(NU$))." ":.550:.3,A$;:....... TRANSLA
TE NUMBER 20-99.....A$.TWENTY$(E(J(NU$,1
,1))):.J(NU$,2).."0".A$.A$."-":.550.....
.3,A$;:.J(NU$,2)."0"..3," ";:PS.PS.1:..7
...A$.O$(E(J(NU$,2)))." ":.550:.3,A$;:..
V.... TRANSLATE NUMBER 100-999.....A$.HU
$(E(J(NU$,1,1)))." ":.550:.3,A$;..."..E(
J(NU$,2)).0.....,.NU$.J(NU$,2):.220:..J.
6.. TRANSLATE NUMBER >1000...@.L.C(NU$):
.L.4..280:N$."":....J.N$.NU$:.380:NU$.J(
NU$,1,P):L.C(NU$).3.T..NU$."000".NU$.J(N
$,P.1):.320.K.^..C(NU$).220,220,280...H.
A$.MI$(C(J(N$,P.1)))." ":.550:.3,A$;:NU$
.J(N$,P.1):.320...R.. CHECK FOR PREFIX.J
.|.X.C(NU$):.I.1.3:.(X.I).3..((X.I).3).P
.I.R....:....... TACK ON DECIMAL......D.
0...*...D.0:.3,"AND ";:NU$.D$:DL.C(NU$):
L.C(NU$):.470:.470.T....L.220,220,280:.L
.4..3,MI$(DL)"THS":..]....320.S.B..3,MI$
(DL)"THS":....L.. CHECK FOR LEADING ZERO
ES...V.F.0......NU$."0".H(NU$,2)."0."...
.....I.1.L:L.C(NU$):.J(NU$,I,1).."0".F.1
......F.0.NU$.J(NU$,I.1)...........L.C(N
U$):.F.0.490.......*.... WORD WRAP.W.&.P
S.PS.C(A$).1:.PS.MAX..3,CR$;:PS.C(A$).1.
].0...X.:.. PRETTY UP THE NUMBER...D.II.
.1:PN$."":.I.L.1..1:II.II.1:.II.3.PN$.",
".PN$:II.0.K.N.PN$.J(NU$,I,1).PN$:....X.
.D.PN$.PN$.".".D$...B.....L.. GET NUMBER
...V.NU$."":D$."":D.0:NZ.0.*....A$:.790:
.A$."".640.J...AS.F(A$):.(A$."0".A$."9")
.A$..".".A$.."Q".AS..20.AS..13.640.....L
.C(NU$):.A$."Q"........AS.20.L.NU$.H(NU$
,L.1):.G(20);:T.0:.800:.640.B....AS.20.6
40......AS.13.T..1:.800:.820:.......A$."
.".L.0.640...F..L.69.D.0.A$..".".640.".P
..L.140.AS.20:.670.5.Z..D..A$.".".640.M.
...L.NZ.0..A$."0".640._....A$.".".D.L.1.
...NU$.NU$.A$:."."A$;:T.0:.800......A$.
."0".NZ.1......640......TI.15...N. .T..T
:.199,.T:." .";:TI$."000000":....*.. CHO
P OFF DECIMAL...4..D.D$.J(NU$,D.1):D$.H(
D$,66):NU$.H(NU$,D.1):L.C(NU$).$.>...M.H
..ZERO,ONE,TWO,THREE,FOUR,FIVE,SIX,SEVEN
,EIGHT,NINE,TEN,ELEVEN,TWELVE...R..THIRT
EEN,FOURTEEN,FIFTEEN,SIXTEEN,SEVENTEEN,E
IGHTEEN,NINETEEN,TWENTY...\..THIRTY,FORT
Y,FIFTY,SIXTY,SEVENTY,EIGHTY,NINETY...F.
.THOUSAND,MILLION,BILLION,TRILLION.Y.P..
QUADRILLION,QUINTILLION,SEXTILLION,SEPTI
LLION,OCTILLION,NONILLION.H.Z..DECILLION
......UNDECILLION,DUODECILLION,TREDECILL
ION,QUATTRODECILLION,QUINDECILLION......
SEXDECILLION,SEPTENDECILLION,OCTODECILLI
ON,NOVEMDECILLION,VIGINTILLION......SENT
ILLION.,....53281,0:.53280,0:."....".I..
..I.1.11:.".............................
.............";:.......I.1.11:."........
..................................";:.:.
"..".P....I.217.242:.I,B(I).128:.:.214,5
...J..:.I.1.10:..4)"...
....#.T..:.214,6:.211,4:.58
732.K...."..............................
..".V.....5)"...........................
....."......214,16:.211,4:.58732......".
...............................".......5
)"..................................":.2
14,9:......A$."THE MIGHTY NUMBER TRANSLA
TOR":.1090.7...A$."BY JEFF JONES":.1090.
`.$.A$."PUBLISHED ON LOADSTAR #67":.1090
.....A$."SUBSCRIPTIONS 1-800-831-2694":.
1090.C.8..214,23:.:..8)".. P R E S S
A K E Y .":.1100...B...20.C(A$).2)"..
"A$:....L.A$."...... .. .....":.I.4.35:.
214,18:."..".I)A$:..1.V..214,19:."..".20
)"......"._.`.."..".5)".C TO CONTINUE".2
2)"Q TO QUIT TO...J...7)".WITH PROGRAM".
24)"LOADSTAR":....T..DV.4...J.~..:..11)"
.. . PRESS A KEY . ":.198,0:.198,1:.A$
:......A$."HELLO CONNECT":.15,8,15,"R0:"
.A$."=".A$:.15,ER: 15...... ER..63 . .".
":..;...Q$.G(34):.646,B(53281):.".".U...
."....LOAD"Q$A$Q$",8".~...."....RUN.":.6
31,13:.632,13:.198,2:....
> CLICK IMAGE PREVIEW FOR FULL MODAL