6-20
FILE INFORMATION
FILENAME(S): 6-20
FILE TYPE(S): PRG
FILE SIZE: 1.9K
FIRST SEEN: 2025-11-30 21:12:26
APPEARS ON: 2 disk(s)
FILE HASH
d7351bd9f5070767c1a1a73048b359df566238d3c2ad64f28e2eb6f915c843e7
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOTUS SOFT | 6-20 | PRG | DuncanTwain | 14 | 7 | DOWNLOAD FILE |
| PROG 64 WEST | 6-20 | PRG | DuncanTwain | 14 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 4D 08 00 00 83 20 31 2C 31 30 2C 32 2C 33 |..M.... 1,10,2,3| 00000010: 32 2C 31 36 32 2C 30 2C 32 32 31 2C 30 2C 31 2C |2,162,0,221,0,1,| 00000020: 32 34 30 2C 36 2C 32 33 32 2C 32 32 34 2C 31 32 |240,6,232,224,12| 00000030: 2C 32 30 38 2C 32 34 36 2C 32 34 2C 39 36 2C 31 |,208,246,24,96,1| 00000040: 36 39 2C 36 39 2C 33 32 2C 2D 31 36 32 00 95 08 |69,69,32,-162...| 00000050: 01 00 83 20 31 37 36 2C 39 30 2C 31 37 33 2C 2D |... 176,90,173,-| 00000060: 31 36 36 2C 32 34 30 2C 39 34 2C 31 37 33 2C 32 |166,240,94,173,2| 00000070: 2C 31 2C 32 30 38 2C 31 31 2C 31 37 32 2C 2D 31 |,1,208,11,172,-1| 00000080: 36 35 2C 31 36 39 2C 34 38 2C 31 35 33 2C 32 2C |65,169,48,153,2,| 00000090: 31 2C 31 33 36 00 E1 08 02 00 83 20 32 30 38 2C |1,136...... 208,| 000000A0: 32 35 30 2C 31 36 39 2C 34 36 2C 33 32 2C 2D 31 |250,169,46,32,-1| 000000B0: 36 32 2C 31 36 38 2C 31 34 34 2C 32 2C 31 36 30 |62,168,144,2,160| 000000C0: 2C 34 38 2C 31 36 39 2C 30 2C 33 32 2C 2D 31 36 |,48,169,0,32,-16| 000000D0: 32 2C 31 35 32 2C 31 35 37 2C 30 2C 31 2C 31 36 |2,152,157,0,1,16| 000000E0: 39 00 2A 09 03 00 83 20 34 36 2C 33 32 2C 2D 31 |9.*.... 46,32,-1| 000000F0: 36 32 2C 31 37 32 2C 2D 31 36 34 2C 32 33 32 2C |62,172,-164,232,| 00000100: 31 33 36 2C 32 30 38 2C 32 35 32 2C 32 33 36 2C |136,208,252,236,| 00000110: 2D 31 36 35 2C 31 37 36 2C 33 33 2C 31 37 32 2C |-165,176,33,172,| 00000120: 2D 31 36 35 2C 31 36 39 2C 30 00 76 09 04 00 83 |-165,169,0.v....| 00000130: 20 31 35 33 2C 31 2C 31 2C 31 38 39 2C 30 2C 31 | 153,1,1,189,0,1| 00000140: 2C 32 30 31 2C 33 32 2C 32 30 38 2C 33 2C 31 36 |,201,32,208,3,16| 00000150: 39 2C 33 32 2C 32 33 34 2C 31 35 33 2C 30 2C 31 |9,32,234,153,0,1| 00000160: 2C 32 30 32 2C 31 36 2C 36 2C 31 37 33 2C 2D 31 |,202,16,6,173,-1| 00000170: 36 33 2C 31 33 36 00 C1 09 05 00 83 20 31 36 2C |63,136...... 16,| 00000180: 32 34 34 2C 31 33 36 2C 31 36 2C 32 33 31 2C 31 |244,136,16,231,1| 00000190: 36 39 2C 30 2C 31 33 33 2C 39 37 2C 31 36 30 2C |69,0,133,97,160,| 000001A0: 31 2C 31 33 32 2C 39 38 2C 39 36 2C 31 36 39 2C |1,132,98,96,169,| 000001B0: 30 2C 33 32 2C 2D 31 36 32 2C 31 34 34 2C 32 34 |0,32,-162,144,24| 000001C0: 30 00 0D 0A 06 00 83 20 31 33 38 2C 31 36 38 2C |0...... 138,168,| 000001D0: 31 37 33 2C 32 2C 31 2C 32 34 30 2C 39 2C 31 36 |173,2,1,240,9,16| 000001E0: 39 2C 34 36 2C 33 32 2C 2D 31 36 32 2C 31 34 34 |9,46,32,-162,144| 000001F0: 2C 32 2C 31 33 38 2C 31 36 38 2C 31 35 32 2C 31 |,2,138,168,152,1| 00000200: 37 30 2C 32 30 32 2C 31 36 2C 31 38 31 00 40 0A |70,202,16,181.@.| 00000210: 07 00 83 20 30 2C 33 32 2C 31 35 38 2C 31 37 33 |... 0,32,158,173| 00000220: 2C 33 32 2C 32 32 31 2C 31 38 39 2C 33 32 2C 2D |,32,221,189,32,-| 00000230: 31 34 38 2C 33 32 2C 33 30 2C 31 37 31 2C 39 36 |148,32,30,171,96| 00000240: 00 67 0A 09 00 8F 20 20 2A 2A 2A 2A 2A 2A 2A 2A |.g.... ********| 00000250: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000260: 2A 2A 2A 2A 2A 2A 2A 00 8D 0A 0A 00 8F 20 2A 2A |*******...... **| 00000270: 20 20 50 52 49 4E 54 20 55 53 49 4E 47 20 46 4F | PRINT USING FO| 00000280: 52 20 54 48 45 20 36 34 20 20 20 2A 2A 00 B3 0A |R THE 64 **...| 00000290: 0B 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |... ************| 000002A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000002B0: 2A 2A 2A 00 BD 0A 0C 00 8F 20 20 2A 2A 00 FF 0A |***...... **...| 000002C0: 0D 00 8F 20 20 2A 2A 20 4D 41 59 20 42 45 20 50 |... ** MAY BE P| 000002D0: 55 54 20 49 4E 54 4F 20 54 4F 50 20 4F 46 20 42 |UT INTO TOP OF B| 000002E0: 41 53 49 43 20 54 4F 20 4B 45 45 50 20 24 43 30 |ASIC TO KEEP $C0| 000002F0: 30 30 20 52 41 4D 20 43 4C 45 41 52 20 2A 2A 00 |00 RAM CLEAR **.| 00000300: 09 0B 0E 00 8F 20 20 2A 2A 00 35 0B 14 00 99 20 |..... **.5.... | 00000310: 22 93 12 36 34 20 50 52 49 4E 54 20 55 53 49 4E |"..64 PRINT USIN| 00000320: 47 20 28 43 29 20 52 41 45 54 4F 20 57 45 53 54 |G (C) RAETO WEST| 00000330: 20 31 39 38 34 00 7C 0B 1E 00 54 B2 34 39 33 31 | 1984.|...T.4931| 00000340: 38 20 20 20 20 20 20 3A 8F 20 54 3D 54 4F 50 20 |8 :. T=TOP | 00000350: 4F 46 20 42 41 53 49 43 20 52 41 4D 20 28 43 4F |OF BASIC RAM (CO| 00000360: 55 4C 44 20 42 45 20 50 45 45 4B 28 35 35 29 2B |ULD BE PEEK(55)+| 00000370: 32 35 36 2A 50 45 45 4B 28 35 36 29 00 BC 0B 28 |256*PEEK(56)...(| 00000380: 00 4C B2 54 AB 31 36 36 20 20 20 20 20 20 20 20 |.L.T.166 | 00000390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000003A0: 20 20 20 20 20 3A 8F 20 50 52 4F 47 52 41 4D 20 | :. PROGRAM | 000003B0: 49 53 20 31 36 36 20 42 59 54 45 53 00 00 0C 32 |IS 166 BYTES...2| 000003C0: 00 81 4A B2 4C 20 A4 20 54 AB 31 20 20 20 20 20 |..J.L . T.1 | 000003D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000003E0: 20 20 3A 8F 20 52 45 4C 4F 43 41 54 45 20 4D 4C | :. RELOCATE ML| 000003F0: 20 49 4E 54 4F 20 54 4F 50 20 4F 46 20 52 41 4D | INTO TOP OF RAM| 00000400: 00 3E 0C 3C 00 87 20 58 25 3A 20 8B 20 58 25 B3 |.>.<.. X%: . X%.| 00000410: 30 20 A7 20 59 B2 58 25 AA 54 3A 20 58 25 B2 59 |0 . Y.X%.T: X%.Y| 00000420: AD 32 35 36 3A 20 5A B2 59 AB 58 25 AC 32 35 36 |.256: Z.Y.X%.256| 00000430: 3A 20 97 20 4A 2C 5A 3A 20 4A B2 4A AA 31 00 4C |: . J,Z: J.J.1.L| 00000440: 0C 46 00 97 20 4A 2C 58 25 3A 20 82 00 56 0C 50 |.F.. J,X%: ..V.P| 00000450: 00 89 20 31 33 30 00 91 0C 63 00 8F 20 20 2A 20 |.. 130...c.. * | 00000460: 31 30 30 2D 31 32 30 20 4E 45 45 44 45 44 20 4F |100-120 NEEDED O| 00000470: 4E 4C 59 20 57 48 45 4E 20 4C 4F 57 45 52 49 4E |NLY WHEN LOWERIN| 00000480: 47 20 54 4F 50 20 4F 46 20 42 41 53 49 43 20 20 |G TOP OF BASIC | 00000490: 2A 00 D7 0C 64 00 58 25 B2 4C AD 32 35 36 3A 20 |*...d.X%.L.256: | 000004A0: 5A B2 4C AB 58 25 AC 32 35 36 20 20 20 20 20 20 |Z.L.X%.256 | 000004B0: 20 20 20 20 20 20 20 20 20 3A 8F 20 48 49 2C 20 | :. HI, | 000004C0: 4C 4F 20 42 59 54 45 53 20 4F 46 20 4E 45 57 20 |LO BYTES OF NEW | 000004D0: 52 41 4D 20 54 4F 50 00 0B 0D 6E 00 97 20 35 35 |RAM TOP...n.. 55| 000004E0: 2C 5A 3A 20 20 97 20 35 33 2C 5A 3A 20 20 97 20 |,Z: . 53,Z: . | 000004F0: 35 31 2C 5A 20 20 3A 8F 20 53 45 54 20 4E 45 57 |51,Z :. SET NEW| 00000500: 20 54 4F 50 20 4F 46 20 52 41 4D 00 3E 0D 78 00 | TOP OF RAM.>.x.| 00000510: 97 20 35 36 2C 58 25 3A 20 97 20 35 34 2C 58 25 |. 56,X%: . 54,X%| 00000520: 3A 20 97 20 35 32 2C 58 25 20 3A 8F 20 57 49 54 |: . 52,X% :. WIT| 00000530: 48 4F 55 54 20 55 53 49 4E 47 20 43 4C 52 00 7D |HOUT USING CLR.}| 00000540: 0D 7D 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 50 |.}.. ********* P| 00000550: 52 49 4E 54 20 49 4E 53 54 52 55 43 54 49 4F 4E |RINT INSTRUCTION| 00000560: 53 20 46 4F 52 20 55 53 45 20 4F 4E 20 53 43 52 |S FOR USE ON SCR| 00000570: 45 45 4E 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 AB 0D |EEN *********...| 00000580: 82 00 99 20 22 11 53 59 53 20 22 20 4C AA 31 35 |... ".SYS " L.15| 00000590: 33 20 22 20 46 4F 4C 4C 4F 57 45 44 20 42 59 20 |3 " FOLLOWED BY | 000005A0: 41 4E 59 20 4E 55 4D 45 52 49 43 00 C9 0D 83 00 |ANY NUMERIC.....| 000005B0: 99 20 22 45 58 50 52 45 53 53 49 4F 4E 20 49 4E |. "EXPRESSION IN| 000005C0: 20 42 52 41 43 4B 45 54 53 00 E8 0D 84 00 99 20 | BRACKETS...... | 000005D0: 22 50 52 49 4E 54 53 20 46 4F 52 4D 41 54 54 45 |"PRINTS FORMATTE| 000005E0: 44 20 56 41 4C 55 45 2E 00 EE 0D 86 00 99 00 08 |D VALUE.........| 000005F0: 0E 8C 00 99 20 4C 20 20 20 22 3D 44 45 43 2F 49 |.... L "=DEC/I| 00000600: 4E 54 20 46 4C 41 47 22 00 23 0E 96 00 99 20 4C |NT FLAG".#.... L| 00000610: AA 31 20 22 3D 4F 55 54 50 55 54 20 4C 45 4E 47 |.1 "=OUTPUT LENG| 00000620: 54 48 22 00 3C 0E A0 00 99 20 4C AA 32 20 22 3D |TH".<.... L.2 "=| 00000630: 44 45 43 2E 20 50 4C 41 43 45 53 22 00 56 0E AA |DEC. PLACES".V..| 00000640: 00 99 20 4C AA 33 20 22 3D 4C 45 41 44 49 4E 47 |.. L.3 "=LEADING| 00000650: 20 43 48 52 53 22 00 71 0E B4 00 99 20 4C AA 39 | CHRS".q.... L.9| 00000660: 38 20 22 3D 2B 56 45 20 4C 45 41 44 20 43 48 52 |8 "=+VE LEAD CHR| 00000670: 22 00 A5 0E BE 00 99 20 22 11 45 47 20 53 59 53 |"...... ".EG SYS| 00000680: 22 20 4C AA 31 35 33 20 22 28 2D 31 32 33 34 2E |" L.153 "(-1234.| 00000690: 35 36 37 29 20 50 52 49 4E 54 53 20 2D 31 32 33 |567) PRINTS -123| 000006A0: 34 2E 35 36 22 00 EA 0E C8 00 99 20 22 11 53 45 |4.56"...... ".SE| 000006B0: 54 20 55 50 20 4E 4F 57 20 57 49 54 48 20 4C 45 |T UP NOW WITH LE| 000006C0: 4E 47 54 48 20 31 31 2C 20 32 20 44 45 43 2E 20 |NGTH 11, 2 DEC. | 000006D0: 50 4C 41 43 45 53 2C 20 26 20 4C 45 41 44 49 4E |PLACES, & LEADIN| 000006E0: 47 20 53 50 41 43 45 53 2E 22 00 09 0F D2 00 99 |G SPACES."......| 000006F0: 20 22 11 53 41 56 45 20 46 52 4F 4D 22 20 4C 20 | ".SAVE FROM" L | 00000700: 22 54 4F 22 20 54 AB 31 3B 00 3D 0F DC 00 99 20 |"TO" T.1;.=.... | 00000710: 22 28 24 22 3B 3A 20 8D 20 35 30 30 3A 20 99 20 |"($";: . 500: . | 00000720: 22 20 54 4F 20 24 22 3B 3A 20 4C B2 54 AB 31 3A |" TO $";: L.T.1:| 00000730: 20 8D 20 35 30 30 3A 20 99 20 22 29 22 00 43 0F | . 500: . ")".C.| 00000740: E6 00 80 00 73 0F F3 01 8F 20 2A 2A 2A 20 4F 4E |....s.... *** ON| 00000750: 45 20 4C 49 4E 45 20 44 45 43 49 4D 41 4C 20 54 |E LINE DECIMAL T| 00000760: 4F 20 48 45 58 20 43 4F 4E 56 45 52 54 45 52 20 |O HEX CONVERTER | 00000770: 2A 2A 2A 00 B6 0F F4 01 4C B2 4C AD 34 30 39 36 |***.....L.L.4096| 00000780: 3A 81 4A B2 31 A4 34 3A 4C 25 B2 4C 3A 4C 24 B2 |:.J.1.4:L%.L:L$.| 00000790: C7 28 34 38 AA 4C 25 AB 28 4C 25 B1 39 29 AC 37 |.(48.L%.(L%.9).7| 000007A0: 29 3A 99 4C 24 3B 3A 4C B2 31 36 AC 28 4C AB 4C |):.L$;:L.16.(L.L| 000007B0: 25 29 3A 82 3A 8E 00 00 00 |%):.:.... |
..M.... 1,10,2,32,162,0,221,0,1,240,6,23
2,224,12,208,246,24,96,169,69,32,-162...
... 176,90,173,-166,240,94,173,2,1,208,1
1,172,-165,169,48,153,2,1,136...... 208,
250,169,46,32,-162,168,144,2,160,48,169,
0,32,-162,152,157,0,1,169.*.... 46,32,-1
62,172,-164,232,136,208,252,236,-165,176
,33,172,-165,169,0.V.... 153,1,1,189,0,1
,201,32,208,3,169,32,234,153,0,1,202,16,
6,173,-163,136.A.... 16,244,136,16,231,1
69,0,133,97,160,1,132,98,96,169,0,32,-16
2,144,240...... 138,168,173,2,1,240,9,16
9,46,32,-162,144,2,138,168,152,170,202,1
6,181.@.... 0,32,158,173,32,221,189,32,-
148,32,30,171,96.G.... ****************
***************...... ** PRINT USING FO
R THE 64 **...... ********************
***********...... **...... ** MAY BE P
UT INTO TOP OF BASIC TO KEEP $C000 RAM C
LEAR **...... **.5.... "..64 PRINT USIN
G (C) RAETO WEST 1984.|...T.49318 :
. T=TOP OF BASIC RAM (COULD BE PEEK(55)+
256*PEEK(56)...(.L.T.166
:. PROGRAM IS 166 BYTES...2
..J.L . T.1 :. REL
OCATE ML INTO TOP OF RAM.>.<.. X%: . X%.
0 . Y.X%.T: X%.Y.256: Z.Y.X%.256: . J,Z:
J.J.1.L.F.. J,X%: ..V.P.. 130...C.. *
100-120 NEEDED ONLY WHEN LOWERING TOP OF
BASIC *.W.D.X%.L.256: Z.L.X%.256
:. HI, LO BYTES OF NEW RAM TOP.
..N.. 55,Z: . 53,Z: . 51,Z :. SET NEW
TOP OF RAM.>.X.. 56,X%: . 54,X%: . 52,X
% :. WITHOUT USING CLR.}.}.. ********* P
RINT INSTRUCTIONS FOR USE ON SCREEN ****
*****...... ".SYS " L.153 " FOLLOWED BY
ANY NUMERIC.I.... "EXPRESSION IN BRACKET
S...... "PRINTS FORMATTED VALUE.........
.... L "=DEC/INT FLAG".#.... L.1 "=OUT
PUT LENGTH".<. .. L.2 "=DEC. PLACES".V..
.. L.3 "=LEADING CHRS".Q.... L.98 "=+VE
LEAD CHR"...... ".EG SYS" L.153 "(-1234.
567) PRINTS -1234.56"...H.. ".SET UP NOW
WITH LENGTH 11, 2 DEC. PLACES, & LEADIN
G SPACES."...R.. ".SAVE FROM" L "TO" T.1
;.=.... "($";: . 500: . " TO $";: L.T.1:
. 500: . ")".C.....S.... *** ONE LINE D
ECIMAL TO HEX CONVERTER ***.....L.L.4096
:.J.1.4:L%.L:L$.G(48.L%.(L%.9).7):.L$;:L
.16.(L.L%):.:....
> CLICK IMAGE PREVIEW FOR FULL MODAL