T.BIT.3
FILE INFORMATION
FILENAME(S): T.BIT.3
FILE TYPE(S): PRG
FILE SIZE: 3.7K
FIRST SEEN: 2025-11-30 18:12:20
APPEARS ON: 1 disk(s)
FILE HASH
5251bfce2e3acaaf648096ee1b1e132e7ad7e6f005dea08bb9998b235666a033
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOADSTAR 41 S 2 | T.BIT.3 | PRG | Sailor, Ganheden | 3 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 80 5E 55 3A 5A 45 52 4F 0D 0D 0D 20 20 20 20 |..^U:ZERO... | 00000010: 20 20 20 20 20 20 20 20 20 C2 49 54 20 C2 59 20 | .IT .Y | 00000020: C2 49 54 0D 20 20 20 20 20 20 20 20 20 20 20 20 |.IT. | 00000030: 20 20 20 D0 41 52 54 20 33 0D 0D 20 20 20 20 20 | .ART 3.. | 00000040: 20 20 20 20 20 C2 59 20 CD 49 4B 45 20 CD 41 59 | .Y .IKE .AY| 00000050: 4E 41 52 44 0D 20 20 20 20 20 20 20 20 20 20 20 |NARD. | 00000060: 20 20 26 20 CA 49 4D 20 D2 4F 57 0D 0D 20 20 D4 | & .IM .OW.. .| 00000070: 52 41 4E 53 46 45 52 20 54 48 45 20 54 45 58 54 |RANSFER THE TEXT| 00000080: 20 46 52 4F 4D 20 D3 D4 D2 C9 CE C7 20 54 4F 0D | FROM ...... TO.| 00000090: 54 48 45 20 42 4F 54 54 4F 4D 20 4F 46 20 53 54 |THE BOTTOM OF ST| 000000A0: 52 49 4E 47 20 53 54 4F 52 41 47 45 20 41 52 45 |RING STORAGE ARE| 000000B0: 41 2E 0D 0D 20 20 20 20 20 20 20 20 20 CC C4 D9 |A... ...| 000000C0: 20 23 30 30 0D CC CF CF D0 C5 D2 20 20 20 CC C4 | #00....... ..| 000000D0: C1 20 D3 D4 D2 C9 CE C7 2C D8 0D 20 20 20 20 20 |. ......,.. | 000000E0: 20 20 20 20 D3 D4 C1 20 28 C2 D9 D4 C5 29 2C D9 | ... (....),.| 000000F0: 0D 20 20 20 20 20 20 20 20 20 C3 D0 D8 20 23 30 |. ... #0| 00000100: 30 0D 20 20 20 20 20 20 20 20 20 C2 C5 D1 20 CD |0. ... .| 00000110: CF D6 D0 D4 D2 0D 20 20 20 20 20 20 20 20 20 C4 |...... .| 00000120: C5 D8 0D 20 20 20 20 20 20 20 20 20 D3 C5 C3 0D |... ....| 00000130: 20 20 20 20 20 20 20 20 20 CC C4 C1 20 C2 D9 D4 | ... ...| 00000140: C5 0D 20 20 20 20 20 20 20 20 20 D3 C2 C3 20 23 |.. ... #| 00000150: 30 31 0D 20 20 20 20 20 20 20 20 20 D3 D4 C1 20 |01. ... | 00000160: C2 D9 D4 C5 0D 20 20 20 20 20 20 20 20 20 CC C4 |..... ..| 00000170: C1 20 C2 D9 D4 C5 2B 31 0D 20 20 20 20 20 20 20 |. ....+1. | 00000180: 20 20 D3 C2 C3 20 23 30 30 0D 20 20 20 20 20 20 | ... #00. | 00000190: 20 20 20 D3 D4 C1 20 C2 D9 D4 C5 2B 31 0D 20 20 | ... ....+1. | 000001A0: 20 20 20 20 20 20 20 CA CD D0 20 CC CF CF D0 C5 | ... .....| 000001B0: D2 0D 0D 20 20 D5 50 44 41 54 45 20 54 48 45 20 |... .PDATE THE | 000001C0: 42 4F 54 54 4F 4D 20 4F 46 20 53 54 52 49 4E 47 |BOTTOM OF STRING| 000001D0: 20 53 54 4F 52 41 47 45 0D 41 52 45 41 2E 20 20 | STORAGE.AREA. | 000001E0: D4 48 45 4E 20 50 52 49 4E 54 20 C3 C8 D2 24 28 |.HEN PRINT ...$(| 000001F0: 31 33 29 20 41 4E 44 20 45 58 49 54 0D 54 4F 20 |13) AND EXIT.TO | 00000200: C2 C1 D3 C9 C3 2E 0D 0D CD CF D6 D0 D4 D2 20 20 |.............. | 00000210: 20 D3 C5 C3 0D 20 20 20 20 20 20 20 20 20 CC C4 | .... ..| 00000220: C1 20 35 31 0D 20 20 20 20 20 20 20 20 20 D3 C2 |. 51. ..| 00000230: C3 20 D0 CF C9 CE D4 C5 D2 0D 20 20 20 20 20 20 |. ........ | 00000240: 20 20 20 D3 D4 C1 20 35 31 0D 20 20 20 20 20 20 | ... 51. | 00000250: 20 20 20 CC C4 C1 20 35 32 0D 20 20 20 20 20 20 | ... 52. | 00000260: 20 20 20 D3 C2 C3 20 23 30 30 0D 20 20 20 20 20 | ... #00. | 00000270: 20 20 20 20 D3 D4 C1 20 35 32 0D 20 20 20 20 20 | ... 52. | 00000280: 20 20 20 20 CC C4 C1 20 23 33 32 0D 20 20 20 20 | ... #32. | 00000290: 20 20 20 20 20 CC C4 D9 20 32 31 31 0D 20 20 20 | ... 211. | 000002A0: 20 20 20 20 20 20 D3 D4 C1 20 28 32 30 39 29 2C | ... (209),| 000002B0: D9 0D 20 20 20 20 20 20 20 20 20 CC C4 C1 20 23 |.. ... #| 000002C0: 31 33 20 20 20 20 20 20 20 20 3B 20 5B D2 C5 D4 |13 ; [...| 000002D0: D5 D2 CE 5D 0D 20 20 20 20 20 20 20 20 20 CA D3 |...]. ..| 000002E0: D2 20 D0 D2 C9 CE D4 0D 0D C5 CE C4 20 20 20 20 |. .......... | 000002F0: 20 20 D2 D4 D3 0D 0D 20 20 C4 41 54 41 20 53 54 | ..... .ATA ST| 00000300: 4F 52 41 47 45 20 41 52 45 41 20 46 4F 52 20 CD |ORAGE AREA FOR .| 00000310: CC C5 CE 2C 0D D0 CF C9 CE D4 C5 D2 2C 20 C6 D5 |...,........, ..| 00000320: CE C3 D4 C9 CF CE 20 41 4E 44 20 C3 C8 C1 D2 3A |...... AND ....:| 00000330: 0D 0D CD CC C5 CE 20 20 20 20 20 C4 C6 C2 20 30 |...... ... 0| 00000340: 30 0D D0 CF C9 CE D4 C5 D2 20 20 C4 C6 C2 20 30 |0........ ... 0| 00000350: 30 0D C6 D5 CE C3 D4 C9 CF CE 20 C4 C6 C2 20 30 |0......... ... 0| 00000360: 30 0D C3 C8 C1 D2 20 20 20 20 20 C4 C6 C2 20 30 |0..... ... 0| 00000370: 30 0D 0D 20 20 D4 48 45 20 C3 C8 D2 24 20 56 41 |0.. .HE ...$ VA| 00000380: 4C 55 45 53 20 55 53 45 44 20 46 4F 52 20 54 48 |LUES USED FOR TH| 00000390: 45 20 43 55 53 54 4F 4D 0D 43 55 52 53 4F 52 3A |E CUSTOM.CURSOR:| 000003A0: 0D 0D C3 D2 D3 D2 C3 C8 D2 20 20 C4 C6 C2 20 31 |......... ... 1| 000003B0: 30 30 2C 31 31 31 2C 31 32 31 2C 39 38 2C 32 34 |00,111,121,98,24| 000003C0: 38 0D 20 20 20 20 20 20 20 20 20 C4 C6 C2 20 32 |8. ... 2| 000003D0: 34 37 2C 32 32 37 2C 31 36 30 2C 32 32 38 2C 32 |47,227,160,228,2| 000003E0: 33 39 0D 20 20 20 20 20 20 20 20 20 C4 C6 C2 20 |39. ... | 000003F0: 32 34 39 2C 32 32 36 2C 31 32 30 2C 31 31 39 2C |249,226,120,119,| 00000400: 39 39 2C 33 32 0D 20 20 20 20 20 20 20 20 20 C4 |99,32. .| 00000410: C6 C2 20 31 31 39 2C 31 32 30 2C 32 32 36 2C 32 |.. 119,120,226,2| 00000420: 34 39 2C 32 33 39 2C 33 32 0D 20 20 20 20 20 20 |49,239,32. | 00000430: 20 20 20 C4 C6 C2 20 32 32 38 2C 31 36 30 2C 32 | ... 228,160,2| 00000440: 32 37 2C 32 34 37 2C 32 34 38 0D 20 20 20 20 20 |27,247,248. | 00000450: 20 20 20 20 C4 C6 C2 20 39 38 2C 31 32 31 2C 31 | ... 98,121,1| 00000460: 31 31 2C 31 30 30 0D 0D 20 20 D4 48 45 20 43 4F |11,100.. .HE CO| 00000470: 4C 4F 52 53 20 55 53 45 44 20 46 4F 52 20 54 48 |LORS USED FOR TH| 00000480: 45 20 43 55 53 54 4F 4D 0D 43 55 52 53 4F 52 3A |E CUSTOM.CURSOR:| 00000490: 0D 0D C3 D2 D3 D2 C3 CC D2 20 20 C4 C6 C2 20 32 |......... ... 2| 000004A0: 2C 32 2C 32 2C 32 2C 32 2C 32 2C 38 2C 38 0D 20 |,2,2,2,2,2,8,8. | 000004B0: 20 20 20 20 20 20 20 20 C4 C6 C2 20 38 2C 38 2C | ... 8,8,| 000004C0: 38 2C 38 2C 37 2C 37 2C 37 2C 37 0D 20 20 20 20 |8,8,7,7,7,7. | 000004D0: 20 20 20 20 20 C4 C6 C2 20 37 2C 37 2C 35 2C 35 | ... 7,7,5,5| 000004E0: 2C 35 2C 35 2C 35 2C 35 0D 20 20 20 20 20 20 20 |,5,5,5,5. | 000004F0: 20 20 C4 C6 C2 20 36 2C 36 2C 36 2C 36 2C 36 2C | ... 6,6,6,6,6,| 00000500: 36 2C 32 0D 0D 20 20 C4 41 54 41 20 53 54 4F 52 |6,2.. .ATA STOR| 00000510: 41 47 45 20 41 52 45 41 20 46 4F 52 20 C3 D2 D3 |AGE AREA FOR ...| 00000520: D2 D0 D4 D2 2C 0D CC CF C4 C5 CC C1 D9 2C 20 C8 |....,........, .| 00000530: C9 C4 C5 CC C1 D9 20 41 4E 44 20 D4 C5 CD D0 3A |...... AND ....:| 00000540: 0D 0D 0D C3 D2 D3 D2 D0 D4 D2 20 20 C4 C6 C2 20 |.......... ... | 00000550: 30 30 0D CC CF C4 C5 CC C1 D9 20 20 C4 C6 C2 20 |00........ ... | 00000560: 30 30 0D C8 C9 C4 C5 CC C1 D9 20 20 C4 C6 C2 20 |00........ ... | 00000570: 30 30 0D D4 C5 CD D0 20 20 20 20 20 C4 C6 C2 20 |00..... ... | 00000580: 30 30 0D 0D 0D 20 20 D4 48 45 20 49 44 45 41 4C |00... .HE IDEAL| 00000590: 20 55 53 45 20 4F 46 20 54 48 49 53 20 50 52 4F | USE OF THIS PRO| 000005A0: 47 52 41 4D 20 57 4F 55 4C 44 0D 42 45 20 46 4F |GRAM WOULD.BE FO| 000005B0: 52 20 41 4E 59 20 4B 49 4E 44 20 4F 46 20 44 41 |R ANY KIND OF DA| 000005C0: 54 41 20 45 4E 54 52 59 20 57 48 45 52 45 0D 59 |TA ENTRY WHERE.Y| 000005D0: 4F 55 20 57 49 53 48 20 54 4F 20 4D 41 4B 45 20 |OU WISH TO MAKE | 000005E0: 49 54 20 41 42 53 4F 4C 55 54 45 4C 59 20 46 4F |IT ABSOLUTELY FO| 000005F0: 4F 4C 2D 0D 50 52 4F 4F 46 2E 20 20 D4 48 45 20 |OL-.PROOF. .HE | 00000600: 49 44 45 41 4C 20 55 53 45 20 57 4F 55 4C 44 20 |IDEAL USE WOULD | 00000610: 42 45 20 46 4F 52 0D 41 44 56 45 4E 54 55 52 45 |BE FOR.ADVENTURE| 00000620: 20 47 41 4D 45 53 20 4F 52 20 4F 54 48 45 52 20 | GAMES OR OTHER | 00000630: 54 59 50 45 53 20 4F 46 0D 54 45 58 54 20 45 4E |TYPES OF.TEXT EN| 00000640: 54 52 59 2E 0D 0D 20 20 CE 4F 57 2C 20 48 4F 57 |TRY... .OW, HOW| 00000650: 20 54 4F 20 55 53 45 20 49 54 2E 2E 2E 0D 0D C6 | TO USE IT......| 00000660: 49 52 53 54 2C 20 59 4F 55 27 4C 4C 20 4E 45 45 |IRST, YOU'LL NEE| 00000670: 44 20 54 4F 20 4C 4F 41 44 20 49 54 20 49 4E 20 |D TO LOAD IT IN | 00000680: 59 4F 55 52 0D 36 34 27 53 20 4D 45 4D 4F 52 59 |YOUR.64'S MEMORY| 00000690: 2E 20 D4 48 49 53 20 43 41 4E 20 42 45 20 44 4F |. .HIS CAN BE DO| 000006A0: 4E 45 20 49 4E 0D 49 4D 4D 45 44 49 41 54 45 20 |NE IN.IMMEDIATE | 000006B0: 4D 4F 44 45 20 42 59 20 45 4E 54 45 52 49 4E 47 |MODE BY ENTERING| 000006C0: 3A 0D 0D CC CF C1 C4 20 22 C7 C5 D4 27 CE 20 D3 |:...... "...'. .| 000006D0: D4 CF D2 C5 34 39 2E CF 22 2C 38 2C 31 0D 0D 4F |....49..",8,1..O| 000006E0: 52 20 49 4E 20 41 20 50 52 4F 47 52 41 4D 20 42 |R IN A PROGRAM B| 000006F0: 59 3A 0D 0D 31 20 C9 C6 20 C1 3D 30 20 D4 C8 C5 |Y:..1 .. .=0 ...| 00000700: CE 20 C1 3D 31 3A CC CF C1 C4 22 C7 C5 D4 27 CE |. .=1:...."...'.| 00000710: 20 D3 D4 CF D2 C5 0D 20 20 34 39 2E CF 22 2C 38 | ...... 49..",8| 00000720: 2C 31 0D 0D 20 20 D4 4F 20 55 53 45 20 54 48 45 |,1.. .O USE THE| 00000730: 20 52 4F 55 54 49 4E 45 2C 20 59 4F 55 27 4C 4C | ROUTINE, YOU'LL| 00000740: 20 4E 45 45 44 0D 54 4F 20 55 53 45 20 54 48 45 | NEED.TO USE THE| 00000750: 20 46 4F 4C 4C 4F 57 49 4E 47 20 46 4F 52 4D 41 | FOLLOWING FORMA| 00000760: 54 3A 0D 0D D3 D9 D3 20 33 32 37 36 38 2C 5B 4D |T:..... 32768,[M| 00000770: 41 58 4C 45 4E 5D 2C 5B 46 55 4E 43 54 49 4F 4E |AXLEN],[FUNCTION| 00000780: 5D 2C 5B 53 54 52 49 4E 47 5D 0D 0D CD C1 D8 CC |],[STRING]......| 00000790: C5 CE 20 49 53 20 54 48 45 20 4D 41 58 49 4D 55 |.. IS THE MAXIMU| 000007A0: 4D 20 4C 45 4E 47 54 48 20 4F 46 20 54 48 45 0D |M LENGTH OF THE.| 000007B0: 54 45 58 54 20 59 4F 55 20 57 49 53 48 20 54 4F |TEXT YOU WISH TO| 000007C0: 20 42 45 20 45 4E 54 45 52 45 44 2E 20 20 D4 48 | BE ENTERED. .H| 000007D0: 49 53 0D 53 48 4F 55 4C 44 20 42 45 20 41 4E 20 |IS.SHOULD BE AN | 000007E0: 49 4E 54 45 47 45 52 20 4E 55 4D 42 45 52 20 46 |INTEGER NUMBER F| 000007F0: 52 4F 4D 20 31 0D 54 4F 20 32 35 35 2E 0D 0D C6 |ROM 1.TO 255....| 00000800: D5 CE C3 D4 C9 CF CE 20 49 53 20 54 48 45 20 46 |....... IS THE F| 00000810: 49 4C 54 45 52 20 59 4F 55 20 57 49 4C 4C 20 55 |ILTER YOU WILL U| 00000820: 53 45 0D 54 4F 20 43 4F 4E 54 52 4F 4C 20 54 48 |SE.TO CONTROL TH| 00000830: 45 20 49 4E 43 4F 4D 49 4E 47 20 44 41 54 41 2E |E INCOMING DATA.| 00000840: 20 20 D4 48 45 0D 46 49 4C 54 45 52 20 49 53 20 | .HE.FILTER IS | 00000850: 53 45 54 20 55 50 20 4F 4E 20 42 49 54 20 56 41 |SET UP ON BIT VA| 00000860: 4C 55 45 2E 20 20 D4 48 45 0D 46 4F 4C 4C 4F 57 |LUE. .HE.FOLLOW| 00000870: 49 4E 47 20 43 48 41 52 54 20 49 53 20 54 48 45 |ING CHART IS THE| 00000880: 20 42 49 54 20 23 2C 20 49 54 53 0D 56 41 4C 55 | BIT #, ITS.VALU| 00000890: 45 20 41 4E 44 20 49 54 53 20 46 55 4E 43 54 49 |E AND ITS FUNCTI| 000008A0: 4F 4E 2E 0D 0D D6 C1 CC 20 20 20 20 C2 C9 D4 23 |ON...... ...#| 000008B0: 20 20 20 20 20 20 20 C6 D5 CE C3 D4 C9 CF CE 0D | .........| 000008C0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 000008D0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 000008E0: 3D 3D 3D 3D 3D 0D 20 30 20 20 20 3A 20 28 C1 4C |=====. 0 : (.L| 000008F0: 4C 29 20 3A 20 20 20 C1 4E 59 54 48 49 4E 47 0D |L) : .NYTHING.| 00000900: 20 20 20 20 20 3A 20 28 CF 46 46 29 20 3A 20 20 | : (.FF) : | 00000910: 20 C3 C8 D2 24 28 31 29 20 2D 20 C3 C8 D2 24 28 | ...$(1) - ...$(| 00000920: 32 35 35 29 0D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |255).-----------| 00000930: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000940: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 20 31 20 20 20 |----------. 1 | 00000950: 3A 20 20 20 30 20 20 20 3A 20 20 20 D5 50 50 45 |: 0 : .PPE| 00000960: 52 20 C3 41 53 45 20 CF CE CC D9 0D 2D 2D 2D 2D |R .ASE .....----| 00000970: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000980: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000990: 2D 0D 20 32 20 20 20 3A 20 20 20 31 20 20 20 3A |-. 2 : 1 :| 000009A0: 20 20 20 CC 4F 57 45 52 20 C3 41 53 45 20 CF CE | .OWER .ASE ..| 000009B0: CC D9 0D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |...-------------| 000009C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000009D0: 2D 2D 2D 2D 2D 2D 2D 2D 0D 20 34 20 20 20 3A 20 |--------. 4 : | 000009E0: 20 20 32 20 20 20 3A 20 20 20 CE 55 4D 42 45 52 | 2 : .UMBER| 000009F0: 53 0D 20 20 20 20 20 3A 20 20 20 20 20 20 20 3A |S. : :| 00000A00: 20 20 20 C3 C8 D2 24 28 34 38 29 20 2D 20 C3 C8 | ...$(48) - ..| 00000A10: D2 24 28 35 37 29 0D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.$(57).---------| 00000A20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000A30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 20 38 20 |------------. 8 | 00000A40: 20 20 3A 20 20 20 33 20 20 20 3A 20 20 20 D3 59 | : 3 : .Y| 00000A50: 4D 42 4F 4C 53 0D 20 20 20 20 20 3A 20 20 20 20 |MBOLS. : | 00000A60: 20 20 20 3A 20 20 20 C3 C8 D2 24 28 33 33 29 20 | : ...$(33) | 00000A70: 2D 20 C3 C8 D2 24 28 34 37 29 0D 2D 2D 2D 2D 2D |- ...$(47).-----| 00000A80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000A90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000AA0: 0D 20 31 36 20 20 3A 20 20 20 34 20 20 20 3A 20 |. 16 : 4 : | 00000AB0: 20 20 20 D5 CE D5 D3 C5 C4 20 2D 20 C1 56 41 49 | ...... - .VAI| 00000AC0: 4C 41 42 4C 45 0D 20 20 20 20 20 3A 20 20 20 20 |LABLE. : | 00000AD0: 20 20 20 3A 20 20 20 20 46 4F 52 20 4D 4F 44 49 | : FOR MODI| 00000AE0: 46 49 43 41 54 49 4F 4E 0D 2D 2D 2D 2D 2D 2D 2D |FICATION.-------| 00000AF0: 2D 2D 2D 2D 2D 2D 2D 20 20 20 20 20 22 20 20 20 |------- " | 00000B00: 20 20 20 20 20 20 20 20 22 0D 20 33 32 20 20 3A | ". 32 :| 00000B10: 20 20 20 35 20 20 20 3A 20 20 20 20 20 22 20 20 | 5 : " | 00000B20: 20 20 20 20 20 20 20 20 20 22 0D 2D 2D 2D 2D 2D | ".-----| 00000B30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 20 20 20 20 22 20 |--------- " | 00000B40: 20 20 20 20 20 20 20 20 20 20 22 0D 20 36 34 20 | ". 64 | 00000B50: 20 3A 20 20 20 36 20 20 20 3A 0D 2D 2D 2D 2D 2D | : 6 :.-----| 00000B60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000B70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000B80: 0D 20 31 32 38 20 3A 20 20 20 37 20 20 20 3A 20 |. 128 : 7 : | 00000B90: 20 20 D3 49 4E 47 4C 45 20 43 48 41 52 20 47 45 | .INGLE CHAR GE| 00000BA0: 54 0D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |T.==============| 00000BB0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 00000BC0: 3D 3D 3D 3D 3D 3D 3D 0D 0D 20 CE 4F 54 45 20 3A |=======.. .OTE :| 00000BD0: 20 20 C3 C8 D2 24 28 33 32 29 20 28 D3 D0 C1 C3 | ...$(32) (....| 00000BE0: C5 29 20 49 53 20 41 4C 57 41 59 53 0D 20 41 43 |.) IS ALWAYS. AC| 00000BF0: 43 45 50 54 45 44 2E 0D 0D D3 D4 D2 C9 CE C7 20 |CEPTED......... | 00000C00: 49 53 20 41 4E 59 20 53 54 52 49 4E 47 20 59 4F |IS ANY STRING YO| 00000C10: 55 20 57 49 53 48 2C 20 C1 24 2C 0D C2 C2 24 2C |U WISH, .$,...$,| 00000C20: 20 D8 28 31 32 29 24 2C 20 45 54 43 2E 2E 2E 20 | .(12)$, ETC... | 00000C30: 20 D4 48 49 53 20 49 53 20 54 48 45 0D 53 54 52 | .HIS IS THE.STR| 00000C40: 49 4E 47 20 49 4E 20 57 48 49 43 48 20 54 48 45 |ING IN WHICH THE| 00000C50: 20 45 4E 54 45 52 45 44 20 54 45 58 54 20 57 49 | ENTERED TEXT WI| 00000C60: 4C 4C 0D 42 45 20 53 54 4F 52 45 44 2E 0D 0D D3 |LL.BE STORED....| 00000C70: 4F 4D 45 20 45 58 41 4D 50 4C 45 53 20 41 52 45 |OME EXAMPLES ARE| 00000C80: 3A 0D 0D 20 20 20 20 20 20 20 20 D3 D9 D3 20 33 |:.. ... 3| 00000C90: 32 37 36 38 2C 31 32 2C 31 2C C1 24 0D 0D 20 20 |2768,12,1,.$.. | 00000CA0: D4 48 49 53 20 41 43 43 45 50 54 53 20 31 32 20 |.HIS ACCEPTS 12 | 00000CB0: 55 50 50 45 52 43 41 53 45 20 43 48 41 52 41 43 |UPPERCASE CHARAC| 00000CC0: 54 45 52 53 0D 41 4E 44 20 53 54 4F 52 45 53 20 |TERS.AND STORES | 00000CD0: 54 48 45 4D 20 49 4E 20 C1 24 2E 20 C1 4E 59 20 |THEM IN .$. .NY | 00000CE0: 4C 4F 57 45 52 43 41 53 45 0D 43 48 41 52 41 43 |LOWERCASE.CHARAC| 00000CF0: 54 45 52 53 20 45 4E 54 45 52 45 44 20 41 52 45 |TERS ENTERED ARE| 00000D00: 20 54 52 41 4E 53 4C 41 54 45 44 20 54 4F 0D 55 | TRANSLATED TO.U| 00000D10: 50 50 45 52 43 41 53 45 2E 0D 0D 20 20 20 20 20 |PPERCASE... | 00000D20: 20 20 20 D3 D9 D3 20 33 32 37 36 38 2C 31 32 2C | ... 32768,12,| 00000D30: 31 2B 34 2C C1 24 0D 0D 20 20 D4 48 49 53 20 41 |1+4,.$.. .HIS A| 00000D40: 43 43 45 50 54 53 20 31 32 20 55 50 50 45 52 43 |CCEPTS 12 UPPERC| 00000D50: 41 53 45 20 41 4E 44 0D 4C 4F 57 45 52 43 41 53 |ASE AND.LOWERCAS| 00000D60: 45 20 43 48 41 52 41 43 54 45 52 53 20 41 4E 44 |E CHARACTERS AND| 00000D70: 20 53 54 4F 52 45 53 20 54 48 45 4D 0D 49 4E 20 | STORES THEM.IN | 00000D80: C1 24 2E 0D 0D 20 20 20 20 20 20 20 20 D3 D9 D3 |.$... ...| 00000D90: 20 33 32 37 36 38 2C 31 32 2C 31 2B 31 32 38 2C | 32768,12,1+128,| 00000DA0: C1 24 0D 0D 20 20 C1 4C 54 48 4F 55 47 48 20 41 |.$.. .LTHOUGH A| 00000DB0: 20 31 32 20 49 53 20 53 50 45 43 49 46 49 45 44 | 12 IS SPECIFIED| 00000DC0: 20 41 53 20 54 48 45 0D 4C 45 4E 47 54 48 2C 20 | AS THE.LENGTH, | 00000DD0: 53 49 4E 43 45 20 54 48 45 20 46 55 4E 43 54 49 |SINCE THE FUNCTI| 00000DE0: 4F 4E 20 49 53 20 47 52 45 41 54 45 52 0D 54 48 |ON IS GREATER.TH| 00000DF0: 41 4E 20 31 32 38 20 28 48 49 47 48 20 42 49 54 |AN 128 (HIGH BIT| 00000E00: 20 53 45 54 29 2C 20 4F 4E 4C 59 20 4F 4E 45 0D | SET), ONLY ONE.| 00000E10: 55 50 50 45 52 43 41 53 45 20 43 48 41 52 41 43 |UPPERCASE CHARAC| 00000E20: 54 45 52 20 49 53 20 41 43 43 45 50 54 45 44 2E |TER IS ACCEPTED.| 00000E30: 0D D4 48 49 53 20 49 53 20 45 51 55 49 56 41 4C |..HIS IS EQUIVAL| 00000E40: 45 4E 54 20 54 4F 20 C2 C1 D3 C9 C3 27 53 20 C7 |ENT TO .....'S .| 00000E50: C5 D4 0D 53 54 41 54 45 4D 45 4E 54 2E 0D 0D 20 |...STATEMENT... | 00000E60: 20 C1 53 20 53 54 41 54 45 44 20 45 41 52 4C 49 | .S STATED EARLI| 00000E70: 45 52 2C 20 42 4F 54 48 20 54 48 45 20 53 4F 55 |ER, BOTH THE SOU| 00000E80: 52 43 45 0D 43 4F 44 45 20 41 4E 44 20 4F 42 4A |RCE.CODE AND OBJ| 00000E90: 45 43 54 20 43 4F 44 45 20 28 D3 D9 D3 41 42 4C |ECT CODE (...ABL| 00000EA0: 45 29 20 41 52 45 0D 49 4E 43 4C 55 44 45 44 20 |E) ARE.INCLUDED | 00000EB0: 4F 4E 20 53 49 44 45 20 32 20 4F 46 20 54 48 49 |ON SIDE 2 OF THI| 00000EC0: 53 20 49 53 53 55 45 2E 0D 0D 20 20 20 20 20 20 |S ISSUE... | 00000ED0: 20 20 2A 2A 2A 2A 20 C5 4E 44 20 CF 46 20 D4 45 | **** .ND .F .E| 00000EE0: 58 54 20 2A 2A 2A 2A 0D |XT ****. |
..^U:ZERO... BIT BY BIT.
PART 3.. BY MIKE MAY
NARD. & JIM ROW.. TRANSFER
THE TEXT FROM STRING TO.THE BOTTOM OF ST
RING STORAGE AREA... LDY #00.LOO
PER LDA STRING,X. STA (BYTE),Y
. CPX #00. BEQ MOVPTR.
DEX. SEC. LDA BYT
E. SBC #01. STA BYTE.
LDA BYTE+1. SBC #00.
STA BYTE+1. JMP LOOPER.. UPD
ATE THE BOTTOM OF STRING STORAGE.AREA.
THEN PRINT CHR$(13) AND EXIT.TO BASIC...
MOVPTR SEC. LDA 51. SB
C POINTER. STA 51. LDA 5
2. SBC #00. STA 52.
LDA #32. LDY 211. ST
A (209),Y. LDA #13 ; [RET
URN]. JSR PRINT..END RTS..
DATA STORAGE AREA FOR MLEN,.POINTER, FU
NCTION AND CHAR:..MLEN DFB 00.POINTE
R DFB 00.FUNCTION DFB 00.CHAR DFB 0
0.. THE CHR$ VALUES USED FOR THE CUSTOM
.CURSOR:..CRSRCHR DFB 100,111,121,98,24
8. DFB 247,227,160,228,239.
DFB 249,226,120,119,99,32. D
FB 119,120,226,249,239,32. DFB 2
28,160,227,247,248. DFB 98,121,1
11,100.. THE COLORS USED FOR THE CUSTOM
.CURSOR:..CRSRCLR DFB 2,2,2,2,2,2,8,8.
DFB 8,8,8,8,7,7,7,7. DFB
7,7,5,5,5,5,5,5. DFB 6,6,6,6,6,
6,2.. DATA STORAGE AREA FOR CRSRPTR,.LO
DELAY, HIDELAY AND TEMP:...CRSRPTR DFB
00.LODELAY DFB 00.HIDELAY DFB 00.TEMP
DFB 00... THE IDEAL USE OF THIS PRO
GRAM WOULD.BE FOR ANY KIND OF DATA ENTRY
WHERE.YOU WISH TO MAKE IT ABSOLUTELY FO
OL-.PROOF. THE IDEAL USE WOULD BE FOR.A
DVENTURE GAMES OR OTHER TYPES OF.TEXT EN
TRY... NOW, HOW TO USE IT.....FIRST, YO
U'LL NEED TO LOAD IT IN YOUR.64'S MEMORY
. THIS CAN BE DONE IN.IMMEDIATE MODE BY
ENTERING:..LOAD "GET'N STORE49.O",8,1..O
R IN A PROGRAM BY:..1 IF A=0 THEN A=1:LO
AD"GET'N STORE. 49.O",8,1.. TO USE THE
ROUTINE, YOU'LL NEED.TO USE THE FOLLOWI
NG FORMAT:..SYS 32768,[MAXLEN],[FUNCTION
],[STRING]..MAXLEN IS THE MAXIMUM LENGTH
OF THE.TEXT YOU WISH TO BE ENTERED. TH
IS.SHOULD BE AN INTEGER NUMBER FROM 1.TO
255...FUNCTION IS THE FILTER YOU WILL U
SE.TO CONTROL THE INCOMING DATA. THE.FI
LTER IS SET UP ON BIT VALUE. THE.FOLLOW
ING CHART IS THE BIT #, ITS.VALUE AND IT
S FUNCTION...VAL BIT# FUNCTION.
=====================================. 0
: (ALL) : ANYTHING. : (OFF) :
CHR$(1) - CHR$(255).-------------------
------------------. 1 : 0 : UPPE
R CASE ONLY.----------------------------
---------. 2 : 1 : LOWER CASE ON
LY.-------------------------------------
. 4 : 2 : NUMBERS. : :
CHR$(48) - CHR$(57).-----------------
--------------------. 8 : 3 : SY
MBOLS. : : CHR$(33) - CHR$(4
7).-------------------------------------
. 16 : 4 : UNUSED - AVAILABLE.
: : FOR MODIFICATION.-------
------- " ". 32 : 5 :
" ".-------------- "
". 64 : 6 :.-------------
------------------------. 128 : 7 :
SINGLE CHAR GET.======================
===============.. NOTE : CHR$(32) (SPAC
E) IS ALWAYS. ACCEPTED...STRING IS ANY S
TRING YOU WISH, A$,.BB$, X(12)$, ETC...
THIS IS THE.STRING IN WHICH THE ENTERED
TEXT WILL.BE STORED...SOME EXAMPLES ARE
:.. SYS 32768,12,1,A$.. THIS ACC
EPTS 12 UPPERCASE CHARACTERS.AND STORES
THEM IN A$. ANY LOWERCASE.CHARACTERS ENT
ERED ARE TRANSLATED TO.UPPERCASE...
SYS 32768,12,1+4,A$.. THIS ACCEPTS 1
2 UPPERCASE AND.LOWERCASE CHARACTERS AND
STORES THEM.IN A$... SYS 32768,1
2,1+128,A$.. ALTHOUGH A 12 IS SPECIFIED
AS THE.LENGTH, SINCE THE FUNCTION IS GR
EATER.THAN 128 (HIGH BIT SET), ONLY ONE.
UPPERCASE CHARACTER IS ACCEPTED..THIS IS
EQUIVALENT TO BASIC'S GET.STATEMENT...
AS STATED EARLIER, BOTH THE SOURCE.CODE
AND OBJECT CODE (SYSABLE) ARE.INCLUDED
ON SIDE 2 OF THIS ISSUE... **** E
ND OF TEXT ****.
> CLICK IMAGE PREVIEW FOR FULL MODAL