INPUT SUBROUTINE
FILE INFORMATION
FILENAME(S): INPUT SUBROUTINE
FILE TYPE(S): PRG
FILE SIZE: 1.9K
FIRST SEEN: 2025-12-02 00:16:43
APPEARS ON: 1 disk(s)
FILE HASH
b5deea03047820df1410f12949ada855254504eee040f955060751b8fe45182d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| COMPUNET DEMOS | INPUT SUBROUTINE | PRG | Maestro | 14 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 29 08 0A 00 8F 20 22 14 14 14 14 14 14 14 |..).... ".......| 00000010: 14 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 14 00 8F 20 |*********.Q.... | 00000030: 22 14 14 14 14 14 14 14 14 2A 2A 2A 2A 2A 2A 2A |"........*******| 00000040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000050: 2A 00 79 08 1E 00 8F 20 22 14 14 14 14 14 14 14 |*.y.... ".......| 00000060: 14 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 |.** | 00000070: 20 20 20 20 20 20 20 2A 2A 00 A1 08 28 00 8F 20 | **...(.. | 00000080: 22 14 14 14 14 14 14 14 14 2A 2A 20 57 52 49 54 |"........** WRIT| 00000090: 54 45 4E 20 42 59 20 44 41 56 45 27 38 38 20 2A |TEN BY DAVE'88 *| 000000A0: 2A 00 C9 08 32 00 8F 20 22 14 14 14 14 14 14 14 |*...2.. ".......| 000000B0: 14 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 |.** | 000000C0: 20 20 20 20 20 20 20 2A 2A 00 F1 08 3C 00 8F 20 | **...<.. | 000000D0: 22 14 14 14 14 14 14 14 14 2A 2A 20 28 43 29 31 |"........** (C)1| 000000E0: 39 38 38 20 42 49 4C 26 44 41 56 45 20 20 20 2A |988 BIL&DAVE *| 000000F0: 2A 00 19 09 46 00 8F 20 22 14 14 14 14 14 14 14 |*...F.. ".......| 00000100: 14 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 |.** | 00000110: 20 20 20 20 20 20 20 2A 2A 00 41 09 50 00 8F 20 | **.A.P.. | 00000120: 22 14 14 14 14 14 14 14 14 2A 2A 2A 2A 2A 2A 2A |"........*******| 00000130: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000140: 2A 00 69 09 5A 00 8F 20 22 14 14 14 14 14 14 14 |*.i.Z.. ".......| 00000150: 14 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************| 00000160: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 7A 09 64 00 8F 20 |*********.z.d.. | 00000170: 22 14 14 14 14 14 14 14 14 14 00 91 09 6E 00 99 |"............n..| 00000180: 22 93 49 4E 50 55 54 20 44 45 4D 4F 2E 2E 2E 2E |".INPUT DEMO....| 00000190: 22 00 CB 09 78 00 99 22 11 11 45 4E 54 45 52 20 |"...x.."..ENTER | 000001A0: 59 4F 55 52 20 4E 41 4D 45 20 3A 22 3B 3A 4D B2 |YOUR NAME :";:M.| 000001B0: 32 30 3A 53 B2 31 3A 54 B2 31 3A 53 24 B2 22 44 |20:S.1:T.1:S$."D| 000001C0: 41 56 45 21 22 3A 8D 39 30 30 30 00 0B 0A 82 00 |AVE!":.9000.....| 000001D0: 99 C7 28 31 33 29 22 11 11 48 4F 57 20 4F 4C 44 |..(13)"..HOW OLD| 000001E0: 20 41 52 45 20 59 4F 55 20 22 3B 53 24 3B 22 20 | ARE YOU ";S$;" | 000001F0: 3F 22 3B 3A 4D B2 32 3A 53 B2 31 3A 54 B2 30 3A |?";:M.2:S.1:T.0:| 00000200: 53 24 B2 22 22 3A 8D 39 30 30 30 00 30 0A 8C 00 |S$."":.9000.0...| 00000210: 99 C7 28 31 33 29 22 11 47 4F 4F 44 20 54 48 49 |..(13)".GOOD THI| 00000220: 53 20 49 4E 27 54 20 49 54 21 22 3A 9B AB 39 30 |S IN'T IT!":..90| 00000230: 00 36 0A 96 00 8F 00 3C 0A A0 00 8F 00 42 0A AA |.6.....<.....B..| 00000240: 00 8F 00 59 0A B4 00 8F 20 42 45 46 4F 52 45 20 |...Y.... BEFORE | 00000250: 47 4F 53 55 42 20 53 45 54 00 5F 0A BE 00 8F 00 |GOSUB SET._.....| 00000260: 76 0A C8 00 8F 20 54 20 20 54 4F 20 49 4E 50 55 |v.... T TO INPU| 00000270: 54 20 54 59 50 45 00 99 0A D2 00 8F 20 4D 20 20 |T TYPE...... M | 00000280: 4D 41 58 20 4E 4F 2E 20 4F 46 20 43 48 41 52 53 |MAX NO. OF CHARS| 00000290: 20 54 4F 20 49 4E 50 55 54 00 B5 0A DC 00 8F 20 | TO INPUT...... | 000002A0: 53 20 20 4C 45 41 53 54 20 4E 4F 2E 20 4F 46 20 |S LEAST NO. OF | 000002B0: 43 48 41 52 53 00 D5 0A E6 00 8F 20 53 24 20 54 |CHARS...... S$ T| 000002C0: 4F 20 22 22 20 4F 52 20 44 45 46 41 55 4C 54 20 |O "" OR DEFAULT | 000002D0: 49 4E 50 55 54 00 DB 0A F0 00 8F 00 E1 0A FA 00 |INPUT...........| 000002E0: 8F 00 E7 0A 04 01 8F 00 0C 0B 0E 01 8F 20 54 4F |............. TO| 000002F0: 20 53 41 56 45 20 41 53 20 53 45 50 45 52 41 54 | SAVE AS SEPERAT| 00000300: 45 20 53 55 42 52 4F 55 54 49 4E 45 00 29 0B 18 |E SUBROUTINE.)..| 00000310: 01 8F 20 52 45 4D 4F 56 45 20 4C 49 4E 45 53 20 |.. REMOVE LINES | 00000320: 31 30 20 54 4F 20 33 30 30 00 2F 0B 22 01 8F 00 |10 TO 300./."...| 00000330: 40 0B 2C 01 8F 20 22 14 14 14 14 14 14 14 14 14 |@.,.. ".........| 00000340: 00 86 0B 28 23 59 B2 C2 28 32 31 34 29 3A 58 B2 |...(#Y..(214):X.| 00000350: B9 28 30 29 3A 50 B2 30 3A 8F 20 20 20 20 20 20 |.(0):P.0:. | 00000360: 20 4D 3D 4D 41 58 20 53 3D 4C 45 41 53 54 20 54 | M=MAX S=LEAST T| 00000370: 3D 31 20 41 4C 50 48 41 20 30 20 4E 4F 53 2E 20 |=1 ALPHA 0 NOS. | 00000380: 32 20 46 49 4C 45 00 A2 0B 32 23 8F 20 20 20 20 |2 FILE...2#. | 00000390: 20 20 53 24 3D 44 45 46 41 55 4C 54 20 49 4E 50 | S$=DEFAULT INP| 000003A0: 55 54 00 B4 0B 3C 23 8B 50 B2 C3 28 53 24 29 A7 |UT...<#.P..(S$).| 000003B0: 39 30 37 30 00 CD 0B 46 23 97 37 38 31 2C 59 3A |9070...F#.781,Y:| 000003C0: 97 37 38 32 2C 58 3A 9E 35 38 36 33 36 00 FF 0B |.782,X:.58636...| 000003D0: 50 23 99 C8 28 53 24 2C 50 29 22 12 22 CA 28 53 |P#..(S$,P)".".(S| 000003E0: 24 2C 50 AA 31 2C 31 29 22 92 22 CA 28 53 24 2C |$,P.1,1)".".(S$,| 000003F0: 50 AA 32 2C C3 28 53 24 29 AB 50 AB 31 29 3B 00 |P.2,.(S$).P.1);.| 00000400: 13 0C 5A 23 8B C3 28 53 24 29 B3 B1 4D A7 99 22 |..Z#..(S$)..M.."| 00000410: 20 22 3B 00 1D 0C 64 23 89 39 30 39 30 00 32 0C | ";...d#.9090.2.| 00000420: 6E 23 8B 50 B2 4D A7 50 B2 50 AB 31 3A 89 39 30 |n#.P.M.P.P.1:.90| 00000430: 33 30 00 57 0C 78 23 97 37 38 31 2C 59 3A 97 37 |30.W.x#.781,Y:.7| 00000440: 38 32 2C 58 3A 9E 35 38 36 33 36 3A 99 53 24 3B |82,X:.58636:.S$;| 00000450: 22 12 20 92 9D 22 3B 00 84 0C 82 23 A1 41 24 3A |". ..";....#.A$:| 00000460: 8B 41 24 B1 B2 22 20 22 AF 41 24 B3 B2 22 5F 22 |.A$.." ".A$.."_"| 00000470: AF 41 24 B3 B1 C7 28 33 34 29 AF 54 B3 B1 30 A7 |.A$...(34).T..0.| 00000480: 39 31 35 30 00 9E 0C 8C 23 8B 41 24 B1 B2 22 30 |9150....#.A$.."0| 00000490: 22 AF 41 24 B3 B2 22 39 22 A7 39 31 35 30 00 BF |".A$.."9".9150..| 000004A0: 0C 96 23 8B 41 24 B2 C7 28 32 30 29 B0 41 24 B2 |..#.A$..(20).A$.| 000004B0: 22 9D 22 B0 41 24 B2 22 1D 22 A7 39 32 31 30 00 |".".A$.".".9210.| 000004C0: DE 0C A0 23 8B 41 24 B2 22 93 22 B0 41 24 B2 22 |...#.A$.".".A$."| 000004D0: 13 22 B0 41 24 B2 22 94 22 A7 39 32 31 30 00 F1 |.".A$.".".9210..| 000004E0: 0C AA 23 8B 41 24 B2 C7 28 31 33 29 A7 39 33 31 |..#.A$..(13).931| 000004F0: 30 00 FB 0C B4 23 89 39 30 39 30 00 0A 0D BE 23 |0....#.9090....#| 00000500: 8B 54 B3 B1 32 A7 39 31 37 30 00 37 0D C8 23 8B |.T..2.9170.7..#.| 00000510: 41 24 B2 22 24 22 B0 41 24 B2 22 2A 22 B0 41 24 |A$."$".A$."*".A$| 00000520: B2 22 2C 22 B0 41 24 B2 22 3F 22 B0 41 24 B2 22 |.",".A$."?".A$."| 00000530: 3A 22 A7 39 30 32 30 00 4D 0D D2 23 8B C3 28 53 |:".9020.M..#..(S| 00000540: 24 29 B2 4D AF 50 B2 4D A7 39 30 32 30 00 78 0D |$).M.P.M.9020.x.| 00000550: DC 23 8B 50 B3 C3 28 53 24 29 A7 53 24 B2 C8 28 |.#.P..(S$).S$..(| 00000560: 53 24 2C 50 29 AA 41 24 AA C9 28 53 24 2C C3 28 |S$,P).A$..(S$,.(| 00000570: 53 24 29 AB 50 AB 31 29 00 8E 0D E6 23 8B 50 B2 |S$).P.1)....#.P.| 00000580: C3 28 53 24 29 A7 53 24 B2 53 24 AA 41 24 00 9E |.(S$).S$.S$.A$..| 00000590: 0D F0 23 50 B2 50 AA 31 3A 89 39 30 32 30 00 BB |..#P.P.1:.9020..| 000005A0: 0D FA 23 8B 41 24 B2 22 9D 22 AF 50 B3 B1 30 A7 |..#.A$.".".P..0.| 000005B0: 50 B2 50 AB 31 3A 89 39 30 32 30 00 E0 0D 04 24 |P.P.1:.9020....$| 000005C0: 4C B2 C3 28 53 24 29 3A 8B 41 24 B2 22 1D 22 AF |L..(S$):.A$.".".| 000005D0: 50 B3 B1 4C A7 50 B2 50 AA 31 3A 89 39 30 32 30 |P..L.P.P.1:.9020| 000005E0: 00 1C 0E 0E 24 8B 41 24 B2 22 94 22 AF 4C B3 4D |....$.A$.".".L.M| 000005F0: AF 4C B3 B1 30 AF 50 B3 B1 4C AF 50 B3 B1 30 A7 |.L..0.P..L.P..0.| 00000600: 53 24 B2 C8 28 53 24 2C 50 29 AA 22 20 22 AA CA |S$..(S$,P)." "..| 00000610: 28 53 24 2C 50 AA 31 2C 4C AB 31 29 00 44 0E 18 |(S$,P.1,L.1).D..| 00000620: 24 8B 41 24 B2 22 94 22 AF 50 B2 30 AF 4C B3 B1 |$.A$.".".P.0.L..| 00000630: 4D AF 4C B3 B1 50 AF 4C B3 4D A7 53 24 B2 22 20 |M.L..P.L.M.S$." | 00000640: 22 AA 53 24 00 5A 0E 22 24 8B 41 24 B2 22 13 22 |".S$.Z."$.A$."."| 00000650: A7 50 B2 30 3A 89 39 30 32 30 00 95 0E 2C 24 8B |.P.0:.9020...,$.| 00000660: 41 24 B2 22 93 22 A7 3A 53 24 B2 22 22 3A 50 B2 |A$.".".:S$."":P.| 00000670: 30 3A 97 37 38 31 2C 59 3A 97 37 38 32 2C 58 3A |0:.781,Y:.782,X:| 00000680: 9E 35 38 36 33 36 3A 81 41 B2 31 A4 4D 3A 99 22 |.58636:.A.1.M:."| 00000690: 20 22 3B 3A 82 00 A3 0E 36 24 8B 50 B2 30 A7 39 | ";:....6$.P.0.9| 000006A0: 30 32 30 00 D3 0E 40 24 8B 41 24 B2 C7 28 32 30 |020...@$.A$..(20| 000006B0: 29 AF 50 B2 4C A7 99 22 20 22 3A 50 B2 50 AB 31 |).P.L.." ":P.P.1| 000006C0: 3A 53 24 B2 C8 28 53 24 2C 4C AB 31 29 3A 89 39 |:S$..(S$,L.1):.9| 000006D0: 30 32 30 00 02 0F 4A 24 8B 41 24 B2 C7 28 32 30 |020...J$.A$..(20| 000006E0: 29 A7 53 24 B2 C8 28 53 24 2C 50 AB 31 29 AA C9 |).S$..(S$,P.1)..| 000006F0: 28 53 24 2C C3 28 53 24 29 AB 50 29 3A 50 B2 50 |(S$,.(S$).P):P.P| 00000700: AB 31 00 0C 0F 54 24 89 39 30 32 30 00 1E 0F 5E |.1...T$.9020...^| 00000710: 24 8B C3 28 53 24 29 B3 53 A7 39 30 32 30 00 2D |$..(S$).S.9020.-| 00000720: 0F 68 24 8B 4E 58 B1 31 A7 39 30 32 30 00 5B 0F |.h$.NX.1.9020.[.| 00000730: 72 24 97 37 38 31 2C 59 3A 97 37 38 32 2C 58 3A |r$.781,Y:.782,X:| 00000740: 9E 35 38 36 33 36 3A 99 53 24 3B 3A 8B C3 28 53 |.58636:.S$;:..(S| 00000750: 24 29 B3 B1 4D A7 99 22 20 22 3B 00 69 0F 7C 24 |$)..M.." ";.i.|$| 00000760: 53 B2 C5 28 53 24 29 3A 8E 00 00 00 |S..(S$):.... |
..).... "........*********************** *.Q.... "........*********************** *.Y.... "........** * *...(.. "........** WRITTEN BY DAVE'88 * *.I.2.. "........** * *...<.. "........** (C)1988 BIL&DAVE * *...F.. "........** * *.A.P.. "........*********************** *.I.Z.. "........*********************** *.Z.D.. "............N..".INPUT DEMO.... ".K.X.."..ENTER YOUR NAME :";:M.20:S.1:T .1:S$."DAVE!":.9000......G(13)"..HOW OLD ARE YOU ";S$;" ?";:M.2:S.1:T.0:S$."":.9 000.0....G(13)".GOOD THIS IN'T IT!":..90 .6.....<. ...B.....Y.... BEFORE GOSUB SE T._.....V.H.. T TO INPUT TYPE...R.. M MAX NO. OF CHARS TO INPUT...... S LEAST NO. OF CHARS.U.... S$ TO "" OR DEFAULT INPUT........................ TO SAVE AS SEPERATE SUBROUTINE.).... REMOVE LINES 10 TO 300./."...@.,.. "............(#Y.B (214):X..(0):P.0:. M=MAX S=LEAST T =1 ALPHA 0 NOS. 2 FILE...2#. S$=DEF AULT INPUT...<#.P.C(S$).9070.M.F#.781,Y: .782,X:.58636...P#.H(S$,P)"."J(S$,P.1,1) "."J(S$,P.2,C(S$).P.1);...Z#.C(S$)..M.." ";...D#.9090.2.N#.P.M.P.P.1:.9030.W.X#. 781,Y:.782,X:.58636:.S$;". ..";....#.A$: .A$.." ".A$.."_".A$..G(34).T..0.9150.... #.A$.."0".A$.."9".9150....#.A$.G(20).A$. ".".A$.".".9210... #.A$.".".A$.".".A$.". ".9210....#.A$.G(13).9310....#.9090....# .T..2.9170.7.H#.A$."$".A$."*".A$.",".A$. "?".A$.":".9020.M.R#.C(S$).M.P.M.9020.X. .#.P.C(S$).S$.H(S$,P).A$.I(S$,C(S$).P.1) ....#.P.C(S$).S$.S$.A$....#P.P.1:.9020.. ..#.A$.".".P..0.P.P.1:.9020....$L.C(S$): .A$.".".P..L.P.P.1:.9020....$.A$.".".L.M .L..0.P..L.P..0.S$.H(S$,P)." ".J(S$,P.1, L.1).D..$.A$.".".P.0.L..M.L..P.L.M.S$." ".S$.Z."$.A$.".".P.0:.9020...,$.A$.".".: S$."":P.0:.781,Y:.782,X:.58636:.A.1.M:." ";:....6$.P.0.9020.S.@$.A$.G(20).P.L.." ":P.P.1:S$.H(S$,L.1):.9020...J$.A$.G(20 ).S$.H(S$,P.1).I(S$,C(S$).P):P.P.1...T$. 9020...^$.C(S$).S.9020.-.H$.NX.1.9020.[. R$.781,Y:.782,X:.58636:.S$;:.C(S$)..M.." ";.I.|$S.E(S$):....
> CLICK IMAGE PREVIEW FOR FULL MODAL