INPUT-ROUTINE
FILE INFORMATION
FILENAME(S): INPUT-ROUTINE
FILE TYPE(S): PRG
FILE SIZE: 1.3K
FIRST SEEN: 2025-11-30 21:06:44
APPEARS ON: 1 disk(s)
FILE HASH
c52812f61c8361897e4e6565459d0de1ef3d680eb037f30ece80dd7cfb4fa126
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HULP PRG 8A | INPUT-ROUTINE | PRG | DuncanTwain | 11 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 29 08 04 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 08 05 00 8F 20 |*********.Q.... | 00000030: 20 20 20 20 20 20 20 20 20 49 4E 50 55 54 20 52 | INPUT R| 00000040: 4F 55 54 49 4E 45 20 20 20 20 20 20 20 20 20 20 |OUTINE | 00000050: 2A 00 79 08 06 00 8F 20 20 20 20 20 20 20 20 55 |*.y.... U| 00000060: 49 54 3A 20 36 34 45 52 20 32 2F 39 30 20 50 34 |IT: 64ER 2/90 P4| 00000070: 33 20 20 20 20 20 20 20 2A 00 A1 08 07 00 8F 20 |3 *...... | 00000080: 20 20 20 20 49 45 54 53 4A 45 20 56 45 52 42 45 | IETSJE VERBE| 00000090: 54 45 52 44 45 20 56 45 52 53 49 45 20 20 20 20 |TERDE VERSIE | 000000A0: 2A 00 C9 08 08 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |*......*********| 000000B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000000C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 CF 08 09 00 3A 00 |*********.....:.| 000000D0: D9 08 0A 00 89 31 30 30 30 00 FE 08 8C 00 8F 20 |.....1000...... | 000000E0: 5A 49 45 20 56 4F 4F 52 20 56 41 52 49 41 42 45 |ZIE VOOR VARIABE| 000000F0: 4C 45 4E 20 52 45 47 45 4C 20 31 30 32 30 00 20 |LEN REGEL 1020. | 00000100: 09 96 00 8F 20 45 49 24 3A 20 42 45 47 49 4E 2D |.... EI$: BEGIN-| 00000110: 20 45 4E 20 49 4E 50 55 54 2D 53 54 52 49 4E 47 | EN INPUT-STRING| 00000120: 00 4D 09 A0 00 8F 20 47 4C 20 3A 20 4D 41 58 49 |.M.... GL : MAXI| 00000130: 4D 41 41 4C 20 54 4F 45 47 45 53 54 41 4E 45 20 |MAAL TOEGESTANE | 00000140: 49 4E 50 55 54 2D 20 4C 45 4E 47 54 45 00 6A 09 |INPUT- LENGTE.j.| 00000150: AA 00 8F 20 46 4C 20 3A 20 4C 45 4E 47 54 45 20 |... FL : LENGTE | 00000160: 49 4E 50 55 54 2D 56 45 4C 44 00 98 09 BE 00 8F |INPUT-VELD......| 00000170: 20 53 50 24 3A 20 4D 4F 45 54 20 4D 49 4E 53 54 | SP$: MOET MINST| 00000180: 45 4E 53 20 47 4C 20 53 50 41 54 49 45 53 20 42 |ENS GL SPATIES B| 00000190: 45 56 41 54 54 45 4E 21 00 9E 09 C3 00 3A 00 B4 |EVATTEN!.....:..| 000001A0: 09 C8 00 45 49 24 B2 C8 28 45 49 24 AA 53 50 24 |...EI$..(EI$.SP$| 000001B0: 2C 47 4C 29 00 C8 09 D2 00 43 53 B2 B9 28 30 29 |,GL).....CS..(0)| 000001C0: 3A 51 51 B2 46 4C AA 32 00 D3 09 DC 00 97 31 39 |:QQ.FL.2......19| 000001D0: 38 2C 30 00 E0 09 E6 00 50 B2 31 3A 50 5A B2 31 |8,0.....P.1:PZ.1| 000001E0: 00 02 0A F0 00 97 32 31 31 2C 43 53 AA 41 20 3A |......211,CS.A :| 000001F0: 8F 20 50 4C 41 41 54 53 20 4F 50 20 53 43 48 45 |. PLAATS OP SCHE| 00000200: 52 4D 00 0C 0A F5 00 99 22 9F 22 3B 00 4C 0A FA |RM......".";.L..| 00000210: 00 99 22 DD 22 AA CA 28 C8 28 45 49 24 2C 50 AB |.."."..(.(EI$,P.| 00000220: 31 29 AA 22 12 22 AA CA 28 45 49 24 2C 50 2C 31 |1)."."..(EI$,P,1| 00000230: 29 AA 22 92 22 AA CA 28 45 49 24 2C 50 AA 31 29 |)."."..(EI$,P.1)| 00000240: 2C 50 5A 2C 51 51 29 AA 22 DD 22 3B 00 56 0A FF |,PZ,QQ).".";.V..| 00000250: 00 99 22 9A 22 3B 00 7A 0A 04 01 92 31 39 38 2C |..".";.z....198,| 00000260: 32 35 35 3A A1 41 24 3A 8F 20 4F 50 20 54 4F 45 |255:.A$:. OP TOE| 00000270: 54 53 20 57 41 43 48 54 45 4E 00 A4 0A 0E 01 8B |TS WACHTEN......| 00000280: 41 24 B2 C7 28 31 33 29 A7 97 32 31 31 2C 43 53 |A$..(13)..211,CS| 00000290: AA 41 3A 99 C8 28 45 49 24 2C 46 4C 29 AA 22 20 |.A:..(EI$,FL)." | 000002A0: 20 22 3A 8E 00 B4 0A 18 01 8B 41 24 B2 22 13 22 | ":.......A$."."| 000002B0: 89 32 33 30 00 D3 0A 22 01 8B 41 24 B2 22 93 22 |.230..."..A$."."| 000002C0: A7 45 49 24 B2 C8 28 53 50 24 2C 47 4C 29 3A 89 |.EI$..(SP$,GL):.| 000002D0: 32 34 30 00 E3 0A 2C 01 8B 41 24 B2 22 1D 22 89 |240...,..A$.".".| 000002E0: 34 34 30 00 F3 0A 36 01 8B 41 24 B2 22 9D 22 89 |440...6..A$.".".| 000002F0: 33 36 30 00 06 0B 40 01 8B 41 24 B3 B1 C7 28 32 |360...@..A$...(2| 00000300: 30 29 89 33 37 30 00 13 0B 4A 01 8B 50 B2 31 A7 |0).370...J..P.1.| 00000310: 32 36 30 00 32 0B 54 01 8B 50 B2 32 A7 45 49 24 |260.2.T..P.2.EI$| 00000320: B2 CA 28 45 49 24 2C 32 29 AA 22 20 22 3A 89 32 |..(EI$,2)." ":.2| 00000330: 34 30 00 52 0B 5E 01 45 49 24 B2 C8 28 45 49 24 |40.R.^.EI$..(EI$| 00000340: 2C 50 AB 32 29 AA CA 28 45 49 24 2C 50 29 AA 22 |,P.2)..(EI$,P)."| 00000350: 20 22 00 77 0B 68 01 50 B2 50 AB 31 AB 28 50 B2 | ".w.h.P.P.1.(P.| 00000360: 31 29 3A 50 5A B2 50 5A AB 31 AB 28 50 B2 B1 50 |1):PZ.PZ.1.(P..P| 00000370: 5A 29 3A 89 32 34 30 00 8B 0B 72 01 8B 41 24 B3 |Z):.240...r..A$.| 00000380: B1 C7 28 31 34 38 29 89 34 30 30 00 A2 0B 7C 01 |..(148).400...|.| 00000390: 8B C9 28 45 49 24 2C 31 29 B3 B1 22 20 22 89 32 |..(EI$,1).." ".2| 000003A0: 36 30 00 CC 0B 86 01 45 49 24 B2 C8 28 45 49 24 |60.....EI$..(EI$| 000003B0: 2C 50 AB 31 29 AA 22 20 22 AA CA 28 45 49 24 2C |,P.1)." "..(EI$,| 000003C0: 50 2C 47 4C AB 50 29 3A 89 32 34 30 00 DC 0B 90 |P,GL.P):.240....| 000003D0: 01 8B 41 24 B3 22 20 22 89 32 36 30 00 EF 0B 9A |..A$." ".260....| 000003E0: 01 8B 41 24 B3 C7 28 31 32 38 29 89 34 33 30 00 |..A$..(128).430.| 000003F0: 02 0C A4 01 8B 41 24 B3 C7 28 31 36 30 29 89 32 |.....A$..(160).2| 00000400: 36 30 00 23 0C AE 01 45 49 24 B2 C8 28 45 49 24 |60.#...EI$..(EI$| 00000410: 2C 50 AB 31 29 AA 41 24 AA CA 28 45 49 24 2C 50 |,P.1).A$..(EI$,P| 00000420: AA 31 29 00 4B 0C B8 01 50 B2 50 AA 31 AA 28 50 |.1).K...P.P.1.(P| 00000430: B2 47 4C 29 3A 50 5A B2 50 5A AA 31 AA 28 50 AB |.GL):PZ.PZ.1.(P.| 00000440: 50 5A B3 46 4C 29 3A 89 32 34 30 00 61 0C E8 03 |PZ.FL):.240.a...| 00000450: 8F 20 53 54 55 55 52 2D 50 52 4F 47 52 41 4D 4D |. STUUR-PROGRAMM| 00000460: 41 00 6C 0C ED 03 99 C7 28 31 34 29 00 9F 0C F2 |A.l.....(14)....| 00000470: 03 53 50 24 B2 22 20 20 20 20 20 20 20 20 20 20 |.SP$." | 00000480: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000490: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".| 000004A0: E8 0C FC 03 45 49 24 B2 22 56 55 4C 20 41 41 4E |....EI$."VUL AAN| 000004B0: 3B 49 4E 53 45 52 54 3B 44 52 55 4B 20 4F 50 27 |;INSERT;DRUK OP'| 000004C0: 48 4F 4D 45 27 3B 4F 50 27 43 4C 52 27 3B 45 4E |HOME';OP'CLR';EN| 000004D0: 5A 2E 22 3A 47 4C B2 35 30 3A 46 4C B2 32 30 3A |Z.":GL.50:FL.20:| 000004E0: 41 B2 35 3A 8D 32 30 30 00 00 0D 06 04 99 22 11 |A.5:.200......".| 000004F0: 11 D5 57 20 54 45 4B 53 54 20 57 41 53 20 3A 22 |..W TEKST WAS :"| 00000500: 00 09 0D 10 04 99 45 49 24 00 0F 0D 1A 04 80 00 |......EI$.......| 00000510: 00 00 |.. |
..)....*********************************
*.Q.... INPUT ROUTINE
*.Y.... UIT: 64ER 2/90 P43
*...... IETSJE VERBETERDE VERSIE
*.I....*********************************
*.O...:.Y....1000...... ZIE VOOR VARIABE
LEN REGEL 1020. .... EI$: BEGIN- EN INPU
T-STRING.M. .. GL : MAXIMAAL TOEGESTANE
INPUT- LENGTE.J.... FL : LENGTE INPUT-VE
LD...... SP$: MOET MINSTENS GL SPATIES B
EVATTEN!...C.:...H.EI$.H(EI$.SP$,GL).H.R
.CS..(0):QQ.FL.2.S....198,0.....P.1:PZ.1
......211,CS.A :. PLAATS OP SCHERM......
".";.L....".".J(H(EI$,P.1).".".J(EI$,P,1
).".".J(EI$,P.1),PZ,QQ).".";.V....".";.Z
....198,255:.A$:. OP TOETS WACHTEN......
A$.G(13)..211,CS.A:.H(EI$,FL)." ":.....
..A$.".".230.S."..A$.".".EI$.H(SP$,GL):.
240...,..A$.".".440...6..A$.".".360...@.
.A$..G(20).370...J..P.1.260.2.T..P.2.EI$
.J(EI$,2)." ":.240.R.^.EI$.H(EI$,P.2).J(
EI$,P)." ".W.H.P.P.1.(P.1):PZ.PZ.1.(P..P
Z):.240...R..A$..G(148).400...|..I(EI$,1
).." ".260.L...EI$.H(EI$,P.1)." ".J(EI$,
P,GL.P):.240......A$." ".260......A$.G(1
28).430......A$.G(160).260.#...EI$.H(EI$
,P.1).A$.J(EI$,P.1).K...P.P.1.(P.GL):PZ.
PZ.1.(P.PZ.FL):.240.A.... STUUR-PROGRAMM
A.L....G(14).....SP$."
".....EI$."VUL AAN
;INSERT;DRUK OP'HOME';OP'CLR';ENZ.":GL.5
0:FL.20:A.5:.200......"..UW TEKST WAS :"
......EI$.........
> CLICK IMAGE PREVIEW FOR FULL MODAL