MODIFY INPUT 128
FILE INFORMATION
FILENAME(S): MODIFY INPUT 128
FILE TYPE(S): PRG
FILE SIZE: 1.4K
FIRST SEEN: 2025-12-01 19:06:57
APPEARS ON: 1 disk(s)
FILE HASH
e5342229abe91f5c8a52875513e271cfc97dc9282f972b5f667e84df43c7df28
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ICE | MODIFY INPUT 128 | PRG | Icebreaker | 17 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 29 1C 00 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |..)....*********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 51 1C 01 00 8F 2A |*********.Q....*|
00000030: 20 4D 4F 44 49 46 49 45 44 20 49 4E 50 55 54 20 | MODIFIED INPUT |
00000040: 52 4F 55 54 49 4E 45 20 46 4F 52 20 54 48 45 20 |ROUTINE FOR THE |
00000050: 2A 00 79 1C 02 00 8F 2A 20 31 32 38 20 49 4E 20 |*.y....* 128 IN |
00000060: 34 30 2C 20 4F 52 20 38 30 20 43 4F 4C 55 4D 4E |40, OR 80 COLUMN|
00000070: 20 4D 4F 44 45 53 2E 20 2A 00 A1 1C 03 00 8F 2A | MODES. *......*|
00000080: 20 41 4C 4C 4F 57 53 20 54 4F 54 41 4C 20 43 4F | ALLOWS TOTAL CO|
00000090: 4E 54 52 4F 4C 20 4F 46 20 49 4E 50 55 54 20 20 |NTROL OF INPUT |
000000A0: 2A 00 C9 1C 04 00 8F 2A 20 20 20 41 4E 44 20 49 |*......* AND I|
000000B0: 4E 50 55 54 20 4F 46 20 28 2C 29 20 41 4E 44 20 |NPUT OF (,) AND |
000000C0: 28 3B 29 2E 20 20 20 20 2A 00 F1 1C 05 00 8F 2A |(;). *......*|
000000D0: 20 20 20 20 20 20 20 57 52 49 54 54 45 4E 20 42 | WRITTEN B|
000000E0: 59 20 42 4F 42 20 4B 37 20 20 20 20 20 20 20 20 |Y BOB K7 |
000000F0: 2A 00 19 1D 06 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |*......*********|
00000100: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000110: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 1F 1D 07 00 3A 00 |*********.....:.|
00000120: 43 1D 0A 00 99 22 93 11 45 4E 54 45 52 20 59 4F |C...."..ENTER YO|
00000130: 55 52 20 4E 41 4D 45 22 3A 8D 39 30 3A 4E 41 24 |UR NAME":.90:NA$|
00000140: B2 42 24 00 6B 1D 14 00 99 22 11 45 4E 54 45 52 |.B$.k....".ENTER|
00000150: 20 53 54 52 45 45 54 20 41 44 44 52 45 53 53 22 | STREET ADDRESS"|
00000160: 3A 8D 39 30 3A 41 44 24 B2 42 24 00 A4 1D 1E 00 |:.90:AD$.B$.....|
00000170: 99 22 11 45 4E 54 45 52 20 59 4F 55 52 20 43 49 |.".ENTER YOUR CI|
00000180: 54 59 20 26 20 53 54 41 54 45 20 28 27 2C 27 41 |TY & STATE (','A|
00000190: 43 43 45 50 54 45 44 29 22 3A 8D 39 30 3A 43 53 |CCEPTED)":.90:CS|
000001A0: 24 B2 42 24 00 C6 1D 28 00 99 22 11 45 4E 54 45 |$.B$...(..".ENTE|
000001B0: 52 20 5A 49 50 20 43 4F 44 45 22 3A 8D 39 30 3A |R ZIP CODE":.90:|
000001C0: 5A 49 24 B2 42 24 00 E2 1D 32 00 99 22 11 11 22 |ZI$.B$...2..".."|
000001D0: 4E 41 24 3A 99 41 44 24 3A 99 43 53 24 3A 99 5A |NA$:.AD$:.CS$:.Z|
000001E0: 49 24 00 00 1E 3C 00 80 3A 8F 20 54 45 53 54 20 |I$...<..:. TEST |
000001F0: 50 52 4F 47 20 4C 49 4E 45 53 20 31 30 2D 36 30 |PROG LINES 10-60|
00000200: 00 06 1E 46 00 3A 00 0C 1E 50 00 3A 00 30 1E 5A |...F.:...P.:.0.Z|
00000210: 00 3A 8F 2A 2A 20 53 55 42 2D 52 4F 55 54 49 4E |.:.** SUB-ROUTIN|
00000220: 45 20 53 54 41 52 54 53 20 48 45 52 45 20 2A 2A |E STARTS HERE **|
00000230: 00 36 1E 64 00 3A 00 57 1E 6E 00 4C 4C B2 33 36 |.6.d.:.W.n.LL.36|
00000240: 3A 8F 20 53 45 54 20 4C 49 4E 45 20 4C 45 4E 47 |:. SET LINE LENG|
00000250: 54 48 20 48 45 52 45 00 5D 1E 78 00 3A 00 A7 1E |TH HERE.].x.:...|
00000260: 82 00 9F 39 2C 30 3A 41 24 B2 22 22 3A 42 24 B2 |...9,0:A$."":B$.|
00000270: 22 22 3A 8F 20 4F 50 45 4E 20 4B 45 59 42 4F 41 |"":. OPEN KEYBOA|
00000280: 52 44 20 20 20 28 44 45 56 49 43 45 20 30 29 20 |RD (DEVICE 0) |
00000290: 46 4F 52 20 49 4E 50 55 54 20 26 20 4E 55 4C 20 |FOR INPUT & NUL |
000002A0: 41 24 20 26 20 42 24 00 AD 1E 8C 00 3A 00 CD 1E |A$ & B$.....:...|
000002B0: 96 00 9E 35 32 35 39 31 3A 8F 20 54 55 52 4E 20 |...52591:. TURN |
000002C0: 4F 4E 20 43 52 53 52 20 42 4C 49 4E 4B 00 D3 1E |ON CRSR BLINK...|
000002D0: A0 00 3A 00 01 1F AA 00 A1 23 39 2C 41 24 3A 8B |..:......#9,A$:.|
000002E0: 41 24 B2 22 22 A7 31 37 30 3A 8F 20 47 45 54 20 |A$."".170:. GET |
000002F0: 41 20 20 20 20 20 20 20 43 48 41 52 41 43 54 45 |A CHARACTE|
00000300: 52 00 07 1F B4 00 3A 00 3B 1F BE 00 8B 41 24 B2 |R.....:.;....A$.|
00000310: C7 28 31 33 29 A7 41 24 B2 22 22 3A 9E 35 32 36 |.(13).A$."":.526|
00000320: 33 39 3A 99 22 20 22 3A A0 39 3A 8E 3A 8F 20 4C |39:." ":.9:.:. L|
00000330: 4F 4F 4B 20 46 4F 52 20 43 2F 52 00 88 1F C8 00 |OOK FOR C/R.....|
00000340: 3A 8F 20 49 46 20 46 4F 55 4E 44 20 2D 20 43 4C |:. IF FOUND - CL|
00000350: 4F 53 45 20 43 48 41 4E 4E 45 4C 2D 53 54 4F 50 |OSE CHANNEL-STOP|
00000360: 20 20 20 20 20 20 20 43 52 53 52 20 42 4C 49 4E | CRSR BLIN|
00000370: 4B 2D 52 45 54 55 52 4E 20 54 4F 20 43 41 4C 4C |K-RETURN TO CALL|
00000380: 49 4E 47 20 50 52 4F 47 00 8E 1F D2 00 3A 00 CD |ING PROG.....:..|
00000390: 1F DC 00 8B 41 24 B2 22 1D 22 B0 41 24 B2 22 9D |....A$.".".A$.".|
000003A0: 22 B0 41 24 B2 22 91 22 B0 41 24 B2 22 11 22 A7 |".A$.".".A$.".".|
000003B0: 89 31 37 30 3A 8F 20 44 49 53 41 42 4C 45 20 43 |.170:. DISABLE C|
000003C0: 52 53 52 20 4D 4F 56 45 4D 45 4E 54 53 00 D3 1F |RSR MOVEMENTS...|
000003D0: E6 00 3A 00 0D 20 F0 00 8B 41 24 B2 22 13 22 B0 |..:.. ...A$.".".|
000003E0: 41 24 B2 22 93 22 A7 31 37 30 3A 8F 20 44 49 53 |A$.".".170:. DIS|
000003F0: 41 42 4C 45 20 20 20 20 20 48 4F 4D 45 20 26 20 |ABLE HOME & |
00000400: 43 4C 52 2F 48 4F 4D 45 20 4B 45 59 53 00 13 20 |CLR/HOME KEYS.. |
00000410: FA 00 3A 00 4F 20 04 01 8B C3 28 42 24 29 B2 4C |..:.O ....(B$).L|
00000420: 4C A7 99 22 20 22 3A 99 22 11 20 20 4C 45 4E 47 |L.." ":.". LENG|
00000430: 54 48 20 4C 49 4D 49 54 20 45 58 43 45 44 45 44 |TH LIMIT EXCEDED|
00000440: 22 3A 41 24 B2 C7 28 31 33 29 3A 89 31 39 30 00 |":A$..(13):.190.|
00000450: 72 20 0E 01 3A 8F 20 43 48 45 43 4B 20 46 4F 52 |r ..:. CHECK FOR|
00000460: 20 4C 49 4E 45 20 4C 45 4E 47 54 48 20 4C 49 4D | LINE LENGTH LIM|
00000470: 49 54 00 78 20 18 01 3A 00 B8 20 22 01 8B 42 24 |IT.x ..:.. "..B$|
00000480: B2 22 22 AF 41 24 B2 C7 28 32 30 29 A7 31 37 30 |."".A$..(20).170|
00000490: 3A 8F 20 44 49 53 20 20 20 20 20 41 42 4C 45 20 |:. DIS ABLE |
000004A0: 44 45 4C 20 4B 45 59 20 49 46 20 4E 4F 20 43 48 |DEL KEY IF NO CH|
000004B0: 41 52 41 43 54 45 52 53 00 D1 20 2C 01 3A 8F 20 |ARACTERS.. ,.:. |
000004C0: 48 41 56 45 20 42 45 45 4E 20 45 4E 54 45 52 45 |HAVE BEEN ENTERE|
000004D0: 44 00 D7 20 36 01 3A 00 10 21 40 01 8B 41 24 B2 |D.. 6.:..!@..A$.|
000004E0: C7 28 32 30 29 A7 99 22 20 9D 9D 20 9D 22 3B 3A |.(20).." .. .";:|
000004F0: 42 24 B2 C8 28 42 24 2C C3 28 42 24 29 AB 31 29 |B$..(B$,.(B$).1)|
00000500: 3A 89 31 37 30 3A 8F 20 44 45 4C 45 54 45 20 41 |:.170:. DELETE A|
00000510: 00 48 21 4A 01 3A 8F 20 43 48 41 52 41 43 54 45 |.H!J.:. CHARACTE|
00000520: 52 20 57 48 45 4E 20 44 45 4C 20 4B 45 59 20 49 |R WHEN DEL KEY I|
00000530: 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |S |
00000540: 50 52 45 53 53 45 44 2E 00 4E 21 54 01 3A 00 95 |PRESSED..N!T.:..|
00000550: 21 5E 01 42 24 B2 42 24 AA 41 24 3A 99 41 24 3B |!^.B$.B$.A$:.A$;|
00000560: 3A 89 31 37 30 3A 8F 20 50 55 54 20 20 20 20 20 |:.170:. PUT |
00000570: 20 20 20 43 48 41 52 41 43 54 45 52 20 49 4E 54 | CHARACTER INT|
00000580: 4F 20 42 24 20 26 20 47 45 54 20 4E 45 58 54 20 |O B$ & GET NEXT |
00000590: 43 48 41 52 2E 00 00 00 |CHAR.... |
..)....*********************************
*.Q....* MODIFIED INPUT ROUTINE FOR THE
*.Y....* 128 IN 40, OR 80 COLUMN MODES.
*......* ALLOWS TOTAL CONTROL OF INPUT
*.I....* AND INPUT OF (,) AND (;).
*......* WRITTEN BY BOB K7
*......*********************************
*.....:.C...."..ENTER YOUR NAME":.90:NA$
.B$.K....".ENTER STREET ADDRESS":.90:AD$
.B$......".ENTER YOUR CITY & STATE (','A
CCEPTED)":.90:CS$.B$.F.(..".ENTER ZIP CO
DE":.90:ZI$.B$...2..".."NA$:.AD$:.CS$:.Z
I$...<..:. TEST PROG LINES 10-60...F.:..
.P.:.0.Z.:.** SUB-ROUTINE STARTS HERE **
.6.D.:.W.N.LL.36:. SET LINE LENGTH HERE.
].X.:......9,0:A$."":B$."":. OPEN KEYBOA
RD (DEVICE 0) FOR INPUT & NUL A$ & B$.
....:.M....52591:. TURN ON CRSR BLINK.S.
.:......#9,A$:.A$."".170:. GET A
CHARACTER.....:.;....A$.G(13).A$."":.526
39:." ": 9:.:. LOOK FOR C/R...H.:. IF FO
UND - CLOSE CHANNEL-STOP CRSR BLIN
K-RETURN TO CALLING PROG...R.:.M....A$."
.".A$.".".A$.".".A$."."..170:. DISABLE C
RSR MOVEMENTS.S...:.. ...A$.".".A$.".".1
70:. DISABLE HOME & CLR/HOME KEYS..
..:.O ...C(B$).LL.." ":.". LENGTH LIMIT
EXCEDED":A$.G(13):.190.R ..:. CHECK FOR
LINE LENGTH LIMIT.X ..:.. "..B$."".A$.G
(20).170:. DIS ABLE DEL KEY IF NO CH
ARACTERS.Q ,.:. HAVE BEEN ENTERED.W 6.:.
.!@..A$.G(20).." .. .";:B$.H(B$,C(B$).1)
:.170:. DELETE A.H!J.:. CHARACTER WHEN D
EL KEY IS PRESSED..N!T.:..
!^.B$.B$.A$:.A$;:.170:. PUT CHARA
CTER INTO B$ & GET NEXT CHAR....
> CLICK IMAGE PREVIEW FOR FULL MODAL