INPUT-ROUTINE
FILE INFORMATION
FILENAME(S): INPUT-ROUTINE
FILE TYPE(S): PRG
FILE SIZE: 2.8K
FIRST SEEN: 2025-11-30 18:06:10
APPEARS ON: 1 disk(s)
FILE HASH
634fba6abf7fe8b200d51752623bc7f98b8618f6ea4b7550d354404fc949b8b7
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TIGERDISK NUMMER | INPUT-ROUTINE | PRG | Xii | 17 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 21 08 0A 00 97 35 33 32 38 31 2C 31 31 3A |..!....53281,11:|
00000010: 97 35 33 32 38 30 2C 31 31 3A 97 36 34 36 2C 31 |.53280,11:.646,1|
00000020: 35 00 44 08 14 00 99 22 93 11 20 20 20 20 20 20 |5.D....".. |
00000030: 20 20 20 20 20 20 49 4E 50 55 54 2D 52 4F 55 54 | INPUT-ROUT|
00000040: 49 4E 45 22 00 67 08 1E 00 99 22 11 20 20 20 20 |INE".g....". |
00000050: 20 20 20 20 20 20 56 4F 4E 20 20 20 54 49 4C 4C | VON TILL|
00000060: 20 5A 49 45 47 45 52 00 7C 08 28 00 81 54 B2 31 | ZIEGER.|.(..T.1|
00000070: A4 32 30 30 30 3A 82 3A 89 38 38 30 00 86 08 32 |.2000:.:.880...2|
00000080: 00 89 20 34 35 30 00 8C 08 3C 00 3A 00 A0 08 46 |.. 450...<.:...F|
00000090: 00 8F 20 49 4E 50 55 54 2D 52 4F 55 54 49 4E 45 |.. INPUT-ROUTINE|
000000A0: 00 B4 08 50 00 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D |...P.. ---------|
000000B0: 2D 2D 2D 2D 00 BA 08 5A 00 3A 00 D6 08 64 00 97 |----...Z.:...d..|
000000C0: 20 31 39 38 2C 30 3A 59 53 B2 C2 28 32 31 31 29 | 198,0:YS..(211)|
000000D0: 3A 59 43 B2 59 53 00 EE 08 6E 00 8B 20 C3 28 59 |:YC.YS...n.. .(Y|
000000E0: 24 29 B1 B2 59 4C 20 A7 20 89 20 31 33 30 00 02 |$)..YL . . 130..|
000000F0: 09 78 00 59 24 B2 59 24 AA 22 20 22 3A 89 20 31 |.x.Y$.Y$." ":. 1|
00000100: 31 30 00 1E 09 82 00 97 20 32 31 31 2C 59 53 3A |10...... 211,YS:|
00000110: 99 20 59 24 3B 3A 97 20 32 31 31 2C 59 43 00 2A |. Y$;:. 211,YC.*|
00000120: 09 8C 00 97 20 32 30 34 2C 30 00 44 09 96 00 A1 |.... 204,0.D....|
00000130: 20 59 54 24 3A 8B 20 59 54 24 B2 22 22 A7 20 89 | YT$:. YT$."". .|
00000140: 20 31 35 30 00 50 09 A0 00 97 20 32 30 34 2C 31 | 150.P.... 204,1|
00000150: 00 68 09 AA 00 59 54 B2 C6 28 59 54 24 29 3A 59 |.h...YT..(YT$):Y|
00000160: 43 B2 C2 28 32 31 31 29 00 86 09 B4 00 8B 20 59 |C..(211)...... Y|
00000170: 54 B2 31 33 20 A7 20 97 20 32 31 31 2C 59 53 3A |T.13 . . 211,YS:|
00000180: 99 20 59 24 3A 8E 00 9A 09 BE 00 8B 20 59 54 B2 |. Y$:....... YT.|
00000190: 32 39 20 A7 20 89 20 33 35 30 00 AF 09 C8 00 8B |29 . . 350......|
000001A0: 20 59 54 B2 31 35 37 20 A7 20 89 20 33 37 30 00 | YT.157 . . 370.|
000001B0: DA 09 D2 00 8B 20 59 54 B2 31 34 37 20 A7 20 97 |..... YT.147 . .|
000001C0: 20 32 31 31 2C 59 53 3A 59 24 B2 22 20 22 3A 59 | 211,YS:Y$." ":Y|
000001D0: 43 B2 59 53 3A 89 20 31 31 30 00 EF 09 DC 00 8B |C.YS:. 110......|
000001E0: 20 59 54 B2 31 34 38 20 A7 20 89 20 33 39 30 00 | YT.148 . . 390.|
000001F0: 03 0A E6 00 8B 20 59 54 B2 32 30 20 A7 20 89 20 |..... YT.20 . . |
00000200: 34 32 30 00 1D 0A F0 00 8B 20 59 54 B2 31 39 20 |420...... YT.19 |
00000210: A7 20 59 43 B2 59 53 3A 89 20 31 33 30 00 34 0A |. YC.YS:. 130.4.|
00000220: FA 00 91 20 59 46 20 89 20 32 39 30 2C 33 31 30 |... YF . 290,310|
00000230: 2C 33 33 30 00 63 0A 04 01 59 24 B2 C8 28 59 24 |,330.c...Y$..(Y$|
00000240: 2C 59 43 AB 59 53 29 AA 59 54 24 AA C9 28 59 24 |,YC.YS).YT$..(Y$|
00000250: 2C 59 53 AA 59 4C AB 59 43 AB 31 29 3A 99 20 59 |,YS.YL.YC.1):. Y|
00000260: 54 24 3B 00 84 0A 0E 01 8B 20 C2 28 32 31 31 29 |T$;...... .(211)|
00000270: B1 59 53 AB 31 AA 59 4C 20 A7 20 99 20 C7 28 31 |.YS.1.YL . . .(1|
00000280: 35 37 29 3B 00 8E 0A 18 01 89 20 31 34 30 00 AA |57);...... 140..|
00000290: 0A 22 01 8B 20 59 54 B3 34 38 20 B0 20 59 54 B1 |.".. YT.48 . YT.|
000002A0: 35 37 20 A7 20 89 20 31 34 30 00 B4 0A 2C 01 89 |57 . . 140...,..|
000002B0: 20 32 36 30 00 E0 0A 36 01 8B 20 59 54 B3 33 32 | 260...6.. YT.32|
000002C0: 20 B0 28 59 54 B1 33 32 20 AF 20 59 54 B3 34 30 | .(YT.32 . YT.40|
000002D0: 29 B0 20 59 54 B1 35 37 20 A7 20 89 20 31 34 30 |). YT.57 . . 140|
000002E0: 00 EA 0A 40 01 89 20 32 36 30 00 18 0B 4A 01 8B |...@.. 260...J..|
000002F0: 20 59 54 B3 33 32 20 B0 28 59 54 B1 39 35 20 AF | YT.32 .(YT.95 .|
00000300: 20 59 54 B3 31 39 33 29 B0 20 59 54 B1 32 31 38 | YT.193). YT.218|
00000310: 20 A7 20 89 20 31 34 30 00 22 0B 54 01 89 20 32 | . . 140.".T.. 2|
00000320: 36 30 00 3F 0B 5E 01 8B 20 C2 28 32 31 31 29 B1 |60.?.^.. .(211).|
00000330: 59 53 AB 32 AA 59 4C 20 A7 20 89 20 31 34 30 00 |YS.2.YL . . 140.|
00000340: 51 0B 68 01 59 43 B2 59 43 AA 31 3A 89 20 31 33 |Q.h.YC.YC.1:. 13|
00000350: 30 00 69 0B 72 01 8B 20 C2 28 32 31 31 29 B2 59 |0.i.r.. .(211).Y|
00000360: 53 20 A7 20 89 20 31 34 30 00 7B 0B 7C 01 59 43 |S . . 140.{.|.YC|
00000370: B2 59 43 AB 31 3A 89 20 31 33 30 00 8E 0B 86 01 |.YC.1:. 130.....|
00000380: 8B 20 59 46 B2 31 20 A7 20 89 20 31 34 30 00 C8 |. YF.1 . . 140..|
00000390: 0B 90 01 59 43 B2 C2 28 32 31 31 29 3A 59 24 B2 |...YC..(211):Y$.|
000003A0: C8 28 59 24 2C 59 43 AB 59 53 29 AA 22 20 22 AA |.(Y$,YC.YS)." ".|
000003B0: CA 28 59 24 2C 59 43 AB 59 53 AA 31 2C 59 53 AA |.(Y$,YC.YS.1,YS.|
000003C0: 59 4C AB 59 43 AB 31 29 00 EA 0B 9A 01 97 20 32 |YL.YC.1)...... 2|
000003D0: 31 31 2C 59 53 3A 99 20 59 24 3B 3A 97 20 32 31 |11,YS:. Y$;:. 21|
000003E0: 31 2C 59 43 3A 89 20 31 34 30 00 1C 0C A4 01 59 |1,YC:. 140.....Y|
000003F0: 43 B2 C2 28 32 31 31 29 3A 59 24 B2 C8 28 59 24 |C..(211):Y$..(Y$|
00000400: 2C 59 43 AB 59 53 29 AA C9 28 59 24 2C 59 53 AA |,YC.YS)..(Y$,YS.|
00000410: 59 4C AB 59 43 AB 31 29 AA 22 20 22 00 3E 0C AE |YL.YC.1)." ".>..|
00000420: 01 97 20 32 31 31 2C 59 53 3A 99 20 59 24 3B 3A |.. 211,YS:. Y$;:|
00000430: 97 20 32 31 31 2C 59 43 3A 89 20 31 34 30 00 44 |. 211,YC:. 140.D|
00000440: 0C B8 01 3A 00 58 0C C2 01 8F 20 48 41 55 50 54 |...:.X.... HAUPT|
00000450: 50 52 4F 47 52 41 4D 4D 00 6C 0C CC 01 8F 20 2D |PROGRAMM.l.... -|
00000460: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 72 0C D6 |------------.r..|
00000470: 01 3A 00 85 0C E0 01 99 20 C7 28 31 34 37 29 3B |.:...... .(147);|
00000480: C7 28 31 34 29 00 A4 0C EA 01 99 22 20 20 20 20 |.(14)......" |
00000490: 20 20 20 20 20 C9 4E 50 55 54 2D C2 45 49 53 50 | .NPUT-.EISP|
000004A0: 49 45 4C 22 00 C5 0C F4 01 99 22 20 20 20 20 20 |IEL"......" |
000004B0: 20 20 20 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D | ============|
000004C0: 3D 3D 22 3A 99 00 D5 0C FE 01 99 22 C5 49 4E 47 |==":.......".ING|
000004D0: 41 42 45 4E 22 00 E7 0C 08 02 99 22 2D 2D 2D 2D |ABEN"......"----|
000004E0: 2D 2D 2D 2D 22 3A 99 00 18 0D 12 02 99 22 4E 55 |----":......."NU|
000004F0: 4D 45 52 49 53 43 48 3A 20 22 3B 3A 59 4C B2 35 |MERISCH: ";:YL.5|
00000500: 3A 59 46 B2 31 3A 59 24 B2 4E 55 24 3A 8D 20 36 |:YF.1:Y$.NU$:. 6|
00000510: 30 3A 4E 55 24 B2 59 24 00 1E 0D 1C 02 99 00 54 |0:NU$.Y$.......T|
00000520: 0D 26 02 99 22 4B 41 55 46 4D 41 45 4E 4E 49 53 |.&.."KAUFMAENNIS|
00000530: 43 48 3A 20 22 3B 3A 59 4C B2 31 30 3A 59 46 B2 |CH: ";:YL.10:YF.|
00000540: 32 3A 59 24 B2 4B 41 24 3A 8D 20 36 30 3A 4B 41 |2:Y$.KA$:. 60:KA|
00000550: 24 B2 59 24 00 5A 0D 30 02 99 00 91 0D 3A 02 99 |$.Y$.Z.0.....:..|
00000560: 22 41 4C 50 48 41 4E 55 4D 45 52 49 53 43 48 3A |"ALPHANUMERISCH:|
00000570: 20 22 3B 3A 59 4C B2 31 35 3A 59 46 B2 33 3A 59 | ";:YL.15:YF.3:Y|
00000580: 24 B2 41 4C 24 3A 8D 20 36 30 3A 41 4C 24 B2 59 |$.AL$:. 60:AL$.Y|
00000590: 24 00 99 0D 44 02 99 3A 99 00 A9 0D 4E 02 99 22 |$...D..:....N.."|
000005A0: C1 55 53 47 41 42 45 4E 22 00 B9 0D 58 02 99 22 |.USGABEN"...X.."|
000005B0: 2D 2D 2D 2D 2D 2D 2D 2D 22 00 C3 0D 62 02 99 20 |--------"...b.. |
000005C0: 4E 55 24 00 CD 0D 6C 02 99 20 4B 41 24 00 D7 0D |NU$...l.. KA$...|
000005D0: 76 02 99 20 41 4C 24 00 F0 0D 80 02 99 22 11 4E |v.. AL$......".N|
000005E0: 4F 43 48 4D 41 4C 20 5A 45 49 47 45 4E 20 3F 22 |OCHMAL ZEIGEN ?"|
000005F0: 00 05 0E 8A 02 A1 58 58 24 3A 8B 58 58 24 B2 22 |......XX$:.XX$."|
00000600: 22 A7 36 35 30 00 18 0E 94 02 8B 58 58 24 B2 22 |".650......XX$."|
00000610: 4A 22 20 89 20 34 35 30 00 1E 0E 9E 02 80 00 24 |J" . 450.......$|
00000620: 0E A8 02 3A 00 41 0E B2 02 99 22 93 11 11 11 11 |...:.A....".....|
00000630: 45 58 54 45 52 4E 45 20 56 41 52 49 41 42 4C 45 |EXTERNE VARIABLE|
00000640: 4E 00 59 0E BC 02 99 22 2D 2D 2D 2D 2D 2D 2D 2D |N.Y...."--------|
00000650: 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 81 0E C6 02 99 22 |---------......"|
00000660: 11 11 59 4C 20 3D 20 4D 41 58 49 4D 41 4C 4C 41 |..YL = MAXIMALLA|
00000670: 45 4E 47 45 20 44 45 52 20 56 41 52 49 41 42 4C |ENGE DER VARIABL|
00000680: 45 00 97 0E D0 02 99 22 20 20 20 20 20 28 31 20 |E......" (1 |
00000690: 42 49 53 20 34 30 29 00 B3 0E DA 02 99 22 59 46 |BIS 40)......"YF|
000006A0: 20 3D 20 41 52 54 20 44 45 52 20 45 49 4E 47 41 | = ART DER EINGA|
000006B0: 42 45 3A 00 DA 0E E4 02 99 22 20 31 20 2D 20 4E |BE:......" 1 - N|
000006C0: 55 4D 45 52 49 53 43 48 20 28 5A 49 46 46 45 52 |UMERISCH (ZIFFER|
000006D0: 4E 20 30 20 42 49 53 20 39 29 00 FD 0E EE 02 99 |N 0 BIS 9)......|
000006E0: 22 20 32 20 2D 20 4B 41 55 46 4D 41 45 4E 4E 49 |" 2 - KAUFMAENNI|
000006F0: 53 43 48 20 28 5A 49 46 46 45 52 4E 2C 00 24 0F |SCH (ZIFFERN,.$.|
00000700: F8 02 99 22 20 20 20 20 20 4D 41 54 48 2E 20 5A |..." MATH. Z|
00000710: 45 49 43 48 45 4E 2C 20 4C 45 45 52 5A 45 49 43 |EICHEN, LEERZEIC|
00000720: 48 45 4E 29 00 4D 0F 02 03 99 22 20 33 20 2D 20 |HEN).M...." 3 - |
00000730: 41 4C 50 48 41 4E 55 4D 45 52 49 53 43 48 20 28 |ALPHANUMERISCH (|
00000740: 57 49 45 20 32 20 2B 20 42 55 43 48 2D 00 72 0F |WIE 2 + BUCH-.r.|
00000750: 0C 03 99 22 20 20 20 20 20 53 54 41 42 45 4E 20 |..." STABEN |
00000760: 55 4E 44 20 53 4F 4E 44 45 52 5A 45 49 43 48 45 |UND SONDERZEICHE|
00000770: 4E 29 00 93 0F 16 03 99 22 59 24 20 3D 20 45 49 |N)......"Y$ = EI|
00000780: 4E 2D 2F 41 55 53 47 41 42 45 2D 56 41 52 49 41 |N-/AUSGABE-VARIA|
00000790: 42 4C 45 00 AC 0F 20 03 97 31 39 38 2C 30 3A 92 |BLE... ..198,0:.|
000007A0: 31 39 38 2C 31 3A 97 31 39 38 2C 30 00 CB 0F 2A |198,1:.198,0...*|
000007B0: 03 99 22 93 11 11 11 11 11 11 49 4E 54 45 52 4E |..".......INTERN|
000007C0: 45 20 56 41 52 49 41 42 4C 45 4E 00 E3 0F 34 03 |E VARIABLEN...4.|
000007D0: 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |."--------------|
000007E0: 2D 2D 2D 00 08 10 3E 03 99 22 11 11 11 59 53 20 |---...>.."...YS |
000007F0: 3D 20 41 4E 46 41 4E 47 53 50 4F 53 49 54 49 4F |= ANFANGSPOSITIO|
00000800: 4E 20 43 55 52 53 4F 52 00 2B 10 48 03 99 22 59 |N CURSOR.+.H.."Y|
00000810: 43 20 3D 20 41 4B 54 55 45 4C 4C 45 20 43 55 52 |C = AKTUELLE CUR|
00000820: 53 4F 52 50 4F 53 49 54 49 4F 4E 00 47 10 52 03 |SORPOSITION.G.R.|
00000830: 99 22 59 54 24 3D 20 47 45 44 52 55 45 43 4B 54 |."YT$= GEDRUECKT|
00000840: 45 20 54 41 53 54 45 00 6E 10 5C 03 99 22 59 54 |E TASTE.n.\.."YT|
00000850: 20 3D 20 41 53 43 49 49 20 44 45 52 20 47 45 44 | = ASCII DER GED|
00000860: 52 55 45 43 4B 54 45 4E 20 54 41 53 54 45 00 8B |RUECKTEN TASTE..|
00000870: 10 66 03 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 |.f..198,0:.198,1|
00000880: 3A 97 31 39 38 2C 30 3A 89 35 30 00 A3 10 70 03 |:.198,0:.50...p.|
00000890: 99 22 93 11 11 45 52 4C 41 45 55 54 45 52 55 4E |."...ERLAEUTERUN|
000008A0: 47 45 4E 00 B8 10 7A 03 99 22 2D 2D 2D 2D 2D 2D |GEN...z.."------|
000008B0: 2D 2D 2D 2D 2D 2D 2D 2D 00 E1 10 84 03 99 22 44 |--------......"D|
000008C0: 49 45 20 49 4E 50 55 54 2D 52 4F 55 54 49 4E 45 |IE INPUT-ROUTINE|
000008D0: 20 45 52 4D 4F 45 47 4C 49 43 48 54 20 45 49 4E | ERMOEGLICHT EIN|
000008E0: 45 00 07 11 8E 03 99 22 46 45 48 4C 45 52 46 52 |E......"FEHLERFR|
000008F0: 45 49 45 20 45 49 4E 47 41 42 45 20 4F 48 4E 45 |EIE EINGABE OHNE|
00000900: 20 47 45 46 41 48 52 00 2E 11 98 03 99 22 44 45 | GEFAHR......"DE|
00000910: 52 20 4D 41 53 4B 45 4E 5A 45 52 53 54 4F 45 52 |R MASKENZERSTOER|
00000920: 55 4E 47 2C 20 49 4E 44 45 4D 20 45 49 4E 00 56 |UNG, INDEM EIN.V|
00000930: 11 A2 03 99 22 45 49 4E 47 41 42 45 46 45 4E 53 |...."EINGABEFENS|
00000940: 54 45 52 20 4D 49 54 20 44 45 52 20 4C 41 45 4E |TER MIT DER LAEN|
00000950: 47 45 20 20 59 4C 00 78 11 AC 03 99 22 4D 49 54 |GE YL.x...."MIT|
00000960: 20 46 4F 4C 47 45 4E 44 45 4E 20 45 49 47 45 4E | FOLGENDEN EIGEN|
00000970: 53 43 48 41 46 54 45 4E 00 8C 11 B6 03 99 22 45 |SCHAFTEN......"E|
00000980: 52 5A 45 55 47 54 20 57 49 52 44 3A 00 93 11 C0 |RZEUGT WIRD:....|
00000990: 03 99 22 00 BA 11 CA 03 99 22 2D 20 53 4F 46 4F |.."......"- SOFO|
000009A0: 52 54 49 47 45 20 50 52 55 45 46 55 4E 47 20 41 |RTIGE PRUEFUNG A|
000009B0: 55 46 20 5A 55 4C 41 45 53 2D 00 E0 11 D4 03 99 |UF ZULAES-......|
000009C0: 22 20 20 53 49 47 4B 45 49 54 20 44 45 52 20 47 |" SIGKEIT DER G|
000009D0: 45 44 52 55 45 43 4B 54 45 4E 20 54 41 53 54 45 |EDRUECKTEN TASTE|
000009E0: 00 02 12 DE 03 99 22 20 20 49 4E 20 41 42 48 41 |......" IN ABHA|
000009F0: 45 4E 47 49 47 4B 45 49 54 20 56 4F 4E 20 20 59 |ENGIGKEIT VON Y|
00000A00: 46 2E 00 2B 12 E8 03 99 22 2D 20 46 52 45 49 45 |F..+...."- FREIE|
00000A10: 20 43 55 52 53 4F 52 42 45 57 45 47 55 4E 47 45 | CURSORBEWEGUNGE|
00000A20: 4E 20 49 4E 4E 45 52 48 41 4C 42 00 41 12 F2 03 |N INNERHALB.A...|
00000A30: 99 22 20 20 44 45 53 20 46 45 4E 53 54 45 52 53 |." DES FENSTERS|
00000A40: 2E 00 65 12 FC 03 99 22 2D 20 48 4F 4D 45 3A 20 |..e...."- HOME: |
00000A50: 43 55 52 53 4F 52 20 41 4E 20 4C 49 4E 4B 45 4E |CURSOR AN LINKEN|
00000A60: 20 52 41 4E 44 00 75 12 06 04 99 22 20 20 53 45 | RAND.u...." SE|
00000A70: 54 5A 45 4E 2E 00 98 12 10 04 99 22 2D 20 43 4C |TZEN......."- CL|
00000A80: 52 3A 20 4C 4F 45 53 43 48 45 4E 20 44 45 53 20 |R: LOESCHEN DES |
00000A90: 47 45 53 41 4D 54 45 4E 00 AA 12 1A 04 99 22 20 |GESAMTEN......" |
00000AA0: 20 46 45 4E 53 54 45 52 53 2E 00 D3 12 24 04 99 | FENSTERS....$..|
00000AB0: 22 2D 20 44 45 4C 3A 20 4C 4F 45 53 43 48 45 4E |"- DEL: LOESCHEN|
00000AC0: 20 41 42 20 43 55 52 53 4F 52 50 4F 53 49 54 49 | AB CURSORPOSITI|
00000AD0: 4F 4E 2E 00 FB 12 2E 04 99 22 2D 20 49 4E 53 54 |ON......."- INST|
00000AE0: 3A 20 45 49 4E 46 55 45 47 45 4E 20 56 4F 4E 20 |: EINFUEGEN VON |
00000AF0: 4C 45 45 52 5A 45 49 43 48 45 4E 00 20 13 38 04 |LEERZEICHEN. .8.|
00000B00: 99 22 20 20 41 42 20 43 55 52 53 4F 52 50 4F 53 |." AB CURSORPOS|
00000B10: 49 54 49 4F 4E 20 28 4E 49 43 48 54 20 42 45 49 |ITION (NICHT BEI|
00000B20: 00 3E 13 42 04 99 22 20 20 4E 55 4D 45 52 49 53 |.>.B.." NUMERIS|
00000B30: 43 48 45 52 20 45 49 4E 47 41 42 45 29 2E 00 5C |CHER EINGABE)..\|
00000B40: 13 4C 04 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 |.L..198,0:.198,1|
00000B50: 3A 97 31 39 38 2C 30 3A 89 36 39 30 00 00 00 |:.198,0:.690... |
..!....53281,11:.53280,11:.646,15.D...."
.. INPUT-ROUTINE".G....".
VON TILL ZIEGER.|.(..T.1.2000:.:
.880...2.. 450...<.:. .F.. INPUT-ROUTINE
...P.. -------------...Z.:.V.D.. 198,0:Y
S.B(211):YC.YS...N.. C(Y$)..YL . . 130..
.X.Y$.Y$." ":. 110...... 211,YS:. Y$;:.
211,YC.*.... 204,0.D.... YT$:. YT$."". .
150.P. .. 204,1.H...YT.F(YT$):YC.B(211)
...... YT.13 . . 211,YS:. Y$:....... YT.
29 . . 350...H.. YT.157 . . 370.Z.R.. YT
.147 . . 211,YS:Y$." ":YC.YS:. 110......
YT.148 . . 390...... YT.20 . . 420.....
. YT.19 . YC.YS:. 130.4.... YF . 290,310
,330.C...Y$.H(Y$,YC.YS).YT$.I(Y$,YS.YL.Y
C.1):. YT$;...... B(211).YS.1.YL . . G(1
57);...... 140...".. YT.48 . YT.57 . . 1
40...,.. 260...6.. YT.32 .(YT.32 . YT.40
). YT.57 . . 140...@.. 260...J.. YT.32 .
(YT.95 . YT.193). YT.218 . . 140.".T.. 2
60.?.^.. B(211).YS.2.YL . . 140.Q.H.YC.Y
C.1:. 130.I.R.. B(211).YS . . 140.{.|.YC
.YC.1:. 130...... YF.1 . . 140.H...YC.B(
211):Y$.H(Y$,YC.YS)." ".J(Y$,YC.YS.1,YS.
YL.YC.1)...... 211,YS:. Y$;:. 211,YC:. 1
40.....YC.B(211):Y$.H(Y$,YC.YS).I(Y$,YS.
YL.YC.1)." ".>.... 211,YS:. Y$;:. 211,YC
:. 140.D...:.X.B.. HAUPTPROGRAMM.L.L.. -
------------.R.V.:...... G(147);G(14)...
..." INPUT-BEISPIEL".E...."
==============":..U...."EINGABEN"...
..."--------":......."NUMERISCH: ";:YL.5
:YF.1:Y$.NU$:. 60:NU$.Y$.......T.&.."KAU
FMAENNISCH: ";:YL.10:YF.2:Y$.KA$:. 60:KA
$.Y$.Z.0.....:.."ALPHANUMERISCH: ";:YL.1
5:YF.3:Y$.AL$:. 60:AL$.Y$...D..:....N.."
AUSGABEN"...X.."--------".C.B.. NU$.M.L.
. KA$.W.V.. AL$......".NOCHMAL ZEIGEN ?"
......XX$:.XX$."".650......XX$."J" . 450
.......$...:.A....".....EXTERNE VARIABLE
N.Y...."-----------------...F.."..YL = M
AXIMALLAENGE DER VARIABLE...P.." (1
BIS 40)...Z.."YF = ART DER EINGABE:.Z...
." 1 - NUMERISCH (ZIFFERN 0 BIS 9)......
" 2 - KAUFMAENNISCH (ZIFFERN,.$...."
MATH. ZEICHEN, LEERZEICHEN).M...." 3 -
ALPHANUMERISCH (WIE 2 + BUCH-.R...."
STABEN UND SONDERZEICHEN)......"Y$ = EI
N-/AUSGABE-VARIABLE... ..198,0:.198,1:.1
98,0.K.*..".......INTERNE VARIABLEN...4.
."-----------------...>.."...YS = ANFANG
SPOSITION CURSOR.+.H.."YC = AKTUELLE CUR
SORPOSITION.G.R.."YT$= GEDRUECKTE TASTE.
N.\.."YT = ASCII DER GEDRUECKTEN TASTE..
.F..198,0:.198,1:.198,0:.50...P.."...ERL
AEUTERUNGEN...Z.."--------------......"D
IE INPUT-ROUTINE ERMOEGLICHT EINE......"
FEHLERFREIE EINGABE OHNE GEFAHR......"DE
R MASKENZERSTOERUNG, INDEM EIN.V...."EIN
GABEFENSTER MIT DER LAENGE YL.X...."MIT
FOLGENDEN EIGENSCHAFTEN......"ERZEUGT W
IRD:......"...J.."- SOFORTIGE PRUEFUNG A
UF ZULAES-...T.." SIGKEIT DER GEDRUECKT
EN TASTE......" IN ABHAENGIGKEIT VON Y
F..+...."- FREIE CURSORBEWEGUNGEN INNERH
ALB.A...." DES FENSTERS..E...."- HOME:
CURSOR AN LINKEN RAND.U...." SETZEN....
..."- CLR: LOESCHEN DES GESAMTEN......"
FENSTERS..S.$.."- DEL: LOESCHEN AB CURS
ORPOSITION......."- INST: EINFUEGEN VON
LEERZEICHEN. .8.." AB CURSORPOSITION (N
ICHT BEI.>.B.." NUMERISCHER EINGABE)..\
.L..198,0:.198,1:.198,0:.690...
> CLICK IMAGE PREVIEW FOR FULL MODAL