INPUT-ROUTINE
FILE INFORMATION
FILENAME(S): INPUT-ROUTINE
FILE TYPE(S): PRG
FILE SIZE: 4K
FIRST SEEN: 2025-11-30 21:07:01
APPEARS ON: 1 disk(s)
FILE HASH
788747007b055057b0344ac768cde80d46b1cc413ff61e62659021978c1617e6
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| EDUCATIEF 64 | INPUT-ROUTINE | PRG | DuncanTwain | 21 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1A 08 00 00 8F 20 20 20 20 20 20 20 49 4E |....... IN|
00000010: 50 55 54 20 28 44 45 4D 4F 29 00 38 08 01 00 8F |PUT (DEMO).8....|
00000020: 20 49 4E 50 55 54 2D 52 4F 55 54 49 4E 45 20 46 | INPUT-ROUTINE F|
00000030: 55 52 20 56 43 20 36 34 00 3E 08 02 00 8F 00 51 |UR VC 64.>.....Q|
00000040: 08 03 00 8F 20 43 4F 50 59 52 49 47 48 54 20 42 |.... COPYRIGHT B|
00000050: 59 00 66 08 04 00 8F 20 4B 41 52 4C 48 45 49 4E |Y.f.... KARLHEIN|
00000060: 5A 20 42 4F 53 53 00 85 08 05 00 8F 20 53 59 4C |Z BOSS...... SYL|
00000070: 56 45 53 54 45 52 2D 4A 4F 52 44 41 4E 2D 53 54 |VESTER-JORDAN-ST|
00000080: 52 2E 20 31 31 00 98 08 06 00 8F 20 33 35 35 30 |R. 11...... 3550|
00000090: 20 4D 41 52 42 55 52 47 00 AA 08 07 00 8F 20 30 | MARBURG...... 0|
000000A0: 36 34 32 31 2F 31 33 35 30 39 00 CA 08 08 00 97 |6421/13509......|
000000B0: 35 33 32 38 31 2C 30 39 3A 97 35 33 32 38 30 2C |53281,09:.53280,|
000000C0: 30 39 3A 97 36 34 36 2C 30 37 00 D6 08 09 00 99 |09:.646,07......|
000000D0: 20 C7 28 31 34 29 00 EA 08 0A 00 8F 20 49 4E 50 | .(14)...... INP|
000000E0: 55 54 2D 52 4F 55 54 49 4E 45 00 F0 08 14 00 8F |UT-ROUTINE......|
000000F0: 00 13 09 1E 00 8F 20 50 41 24 20 49 53 54 20 41 |...... PA$ IST A|
00000100: 55 46 47 45 42 41 55 54 20 57 49 45 20 46 4F 4C |UFGEBAUT WIE FOL|
00000110: 47 54 3A 00 33 09 28 00 8F 20 50 41 24 20 3D 20 |GT:.3.(.. PA$ = |
00000120: 5A 45 53 50 4D 49 4D 41 43 20 20 20 20 20 57 4F |ZESPMIMAC WO|
00000130: 42 45 49 00 4A 09 32 00 8F 20 20 20 20 20 20 20 |BEI.J.2.. |
00000140: 5A 45 20 3D 20 5A 45 49 4C 45 00 62 09 3C 00 8F |ZE = ZEILE.b.<..|
00000150: 20 20 20 20 20 20 20 53 50 20 3D 20 53 50 41 4C | SP = SPAL|
00000160: 54 45 00 81 09 46 00 8F 20 20 20 20 20 20 20 4D |TE...F.. M|
00000170: 49 20 3D 20 4D 49 4E 44 45 53 54 4C 41 45 4E 47 |I = MINDESTLAENG|
00000180: 45 00 A2 09 50 00 8F 20 20 20 20 20 20 20 4D 41 |E...P.. MA|
00000190: 20 3D 20 4D 41 58 49 4D 41 4C 45 20 4C 41 45 4E | = MAXIMALE LAEN|
000001A0: 47 45 00 BF 09 5A 00 8F 20 20 20 20 20 20 20 20 |GE...Z.. |
000001B0: 43 20 3D 20 43 4F 44 45 20 20 57 4F 42 45 49 00 |C = CODE WOBEI.|
000001C0: DC 09 64 00 8F 20 20 20 20 20 20 20 20 20 31 20 |..d.. 1 |
000001D0: 3D 20 4E 55 52 20 5A 41 48 4C 45 4E 00 FD 09 6E |= NUR ZAHLEN...n|
000001E0: 00 8F 20 20 20 20 20 20 20 20 20 32 20 3D 20 4E |.. 2 = N|
000001F0: 55 52 20 42 55 43 48 53 54 41 42 45 4E 00 15 0A |UR BUCHSTABEN...|
00000200: 78 00 8F 20 20 20 20 20 20 20 20 20 33 20 3D 20 |x.. 3 = |
00000210: 41 4C 4C 45 53 00 38 0A 7D 00 8F 20 20 20 20 20 |ALLES.8.}.. |
00000220: 20 20 20 20 34 20 3D 20 4E 55 52 20 4B 4C 45 49 | 4 = NUR KLEI|
00000230: 4E 42 55 43 48 53 54 2E 00 5E 0A 82 00 8F 20 20 |NBUCHST..^.... |
00000240: 20 20 20 20 20 35 2D 36 20 3D 20 46 52 45 49 20 | 5-6 = FREI |
00000250: 50 52 4F 47 52 41 4D 4D 49 45 52 42 41 52 00 82 |PROGRAMMIERBAR..|
00000260: 0A 84 00 8F 20 20 20 20 20 20 20 20 20 20 20 20 |.... |
00000270: 20 20 20 28 20 5A 45 49 4C 45 20 36 30 34 39 30 | ( ZEILE 60490|
00000280: 20 29 00 A6 0A 8C 00 8F 20 50 41 24 20 4D 55 53 | )...... PA$ MUS|
00000290: 53 20 44 49 45 20 5A 45 49 4C 45 20 55 4E 44 20 |S DIE ZEILE UND |
000002A0: 53 50 41 4C 54 45 00 C9 0A 96 00 8F 20 42 45 49 |SPALTE...... BEI|
000002B0: 4E 48 41 4C 54 45 4E 2C 44 45 52 20 52 45 53 54 |NHALTEN,DER REST|
000002C0: 20 49 53 54 20 48 49 4E 2D 00 EB 0A A0 00 8F 20 | IST HIN-...... |
000002D0: 52 45 49 43 48 45 4E 44 2E 45 53 20 57 45 52 44 |REICHEND.ES WERD|
000002E0: 45 4E 20 44 41 4E 4E 20 44 49 45 00 0C 0B AA 00 |EN DANN DIE.....|
000002F0: 8F 20 53 54 41 4E 44 41 52 44 50 41 52 41 4D 45 |. STANDARDPARAME|
00000300: 54 45 52 20 49 4E 20 5A 45 49 4C 45 00 23 0B B4 |TER IN ZEILE.#..|
00000310: 00 8F 20 36 30 32 30 30 20 41 4E 47 45 4E 4F 4D |.. 60200 ANGENOM|
00000320: 4D 45 4E 00 39 0B BE 00 8F 20 5A 2E 42 2E 20 50 |MEN.9.... Z.B. P|
00000330: 41 24 3D 22 30 35 31 30 22 00 3F 0B C8 00 3A 00 |A$="0510".?...:.|
00000340: 49 0B E8 03 99 22 93 22 3B 00 7B 0B F2 03 99 22 |I....".";.{...."|
00000350: 12 20 20 C9 4E 50 55 54 2D D2 4F 55 54 49 4E 45 |. .NPUT-.OUTINE|
00000360: 20 20 20 43 4F 50 59 52 49 47 48 54 20 42 59 20 | COPYRIGHT BY |
00000370: CB 2E C2 4F 53 53 20 20 20 92 22 00 AB 0B FC 03 |...OSS .".....|
00000380: 99 20 22 D5 45 42 45 52 20 47 45 54 20 57 49 52 |. ".EBER GET WIR|
00000390: 44 20 45 49 4E 45 20 C9 4E 50 55 54 2D D2 4F 55 |D EINE .NPUT-.OU|
000003A0: 54 49 4E 45 20 53 49 4D 55 2D 22 00 DD 0B 06 04 |TINE SIMU-".....|
000003B0: 99 20 22 4C 49 45 52 54 2C 20 57 4F 42 45 49 20 |. "LIERT, WOBEI |
000003C0: 53 41 45 4D 54 4C 49 43 48 45 20 D3 4F 4E 44 45 |SAEMTLICHE .ONDE|
000003D0: 52 46 55 4E 4B 54 49 4F 4E 53 2D 22 3B 00 0C 0C |RFUNKTIONS-";...|
000003E0: 10 04 99 20 22 54 41 53 54 45 4E 20 28 49 4E 53 |... "TASTEN (INS|
000003F0: 54 2C 44 45 4C 2C 48 4F 4D 45 2C 43 4C 52 2C 43 |T,DEL,HOME,CLR,C|
00000400: 52 2C 43 4C 29 20 4E 4F 43 48 20 22 00 3C 0C 1A |R,CL) NOCH ".<..|
00000410: 04 99 20 22 46 55 4E 4B 54 49 4F 4E 49 45 52 45 |.. "FUNKTIONIERE|
00000420: 4E 2C 20 4D 41 4E 20 41 42 45 52 20 44 41 53 20 |N, MAN ABER DAS |
00000430: C5 49 4E 47 41 42 45 46 45 4C 44 22 00 6E 0C 24 |.INGABEFELD".n.$|
00000440: 04 99 20 22 4E 49 43 48 54 20 56 45 52 4C 41 53 |.. "NICHT VERLAS|
00000450: 53 45 4E 20 4B 41 4E 4E 2E 20 C1 55 53 53 45 52 |SEN KANN. .USSER|
00000460: 44 45 4D 20 4B 41 4E 4E 20 4D 41 4E 22 3B 00 A0 |DEM KANN MAN";..|
00000470: 0C 2E 04 99 20 22 42 45 49 4D 20 C1 55 46 52 55 |.... "BEIM .UFRU|
00000480: 46 20 44 45 52 20 D2 4F 55 54 49 4E 45 20 47 4C |F DER .OUTINE GL|
00000490: 45 49 43 48 20 CF 52 54 2C 20 4D 49 4E 2E 22 3B |EICH .RT, MIN.";|
000004A0: 00 D2 0C 38 04 99 20 22 55 4E 44 20 4D 41 58 2E |...8.. "UND MAX.|
000004B0: 20 CC 41 45 4E 47 45 20 55 4E 44 20 44 49 45 20 | .AENGE UND DIE |
000004C0: 5A 55 4C 41 45 53 53 49 47 45 4E 20 DA 45 49 2D |ZULAESSIGEN .EI-|
000004D0: 22 3B 00 F4 0C 42 04 99 20 22 43 48 45 4E 20 44 |";...B.. "CHEN D|
000004E0: 45 52 20 C5 49 4E 47 41 42 45 20 41 4E 47 45 42 |ER .INGABE ANGEB|
000004F0: 45 4E 2E 22 00 28 0D 4C 04 99 20 22 12 98 20 C2 |EN.".(.L.. ".. .|
00000500: 45 49 53 50 2E 3A 20 20 20 20 20 20 20 20 20 20 |EISP.: |
00000510: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000520: 20 20 20 20 20 20 22 3B 00 5A 0D 51 04 99 20 22 | ";.Z.Q.. "|
00000530: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000540: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000550: 20 20 20 20 20 20 20 20 22 3B 00 8C 0D 56 04 99 | ";...V..|
00000560: 20 22 C4 41 54 55 4D 20 28 D4 D4 CD CD CA CA 29 | ".ATUM (......)|
00000570: 20 3A 20 20 1D 1D 1D 1D 1D 1D 20 20 20 20 20 20 | : ...... |
00000580: 20 20 20 20 20 20 20 20 20 20 22 3B 00 BE 0D 60 | ";...`|
00000590: 04 99 20 22 20 20 20 20 20 20 20 20 20 20 20 20 |.. " |
000005A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005B0: 20 20 20 20 20 20 20 20 20 20 20 20 22 3B 00 F0 | ";..|
000005C0: 0D 6A 04 99 20 22 CE 41 4D 45 20 3A 20 20 1D 1D |.j.. ".AME : ..|
000005D0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000005E0: 1D 1D 20 20 20 20 20 20 20 20 20 20 20 20 22 3B |.. ";|
000005F0: 00 22 0E 74 04 99 20 22 20 20 20 20 20 20 20 20 |.".t.. " |
00000600: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000610: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000620: 22 3B 00 54 0E 7E 04 99 20 22 CB 55 45 52 5A 45 |";.T.~.. ".UERZE|
00000630: 4C 20 28 4D 49 4E 44 20 32 20 4B 4C 2E 20 C2 55 |L (MIND 2 KL. .U|
00000640: 43 48 53 54 2E 29 20 3A 20 20 1D 1D 1D 20 20 20 |CHST.) : ... |
00000650: 20 20 22 3B 00 86 0E 88 04 99 20 22 20 20 20 20 | ";...... " |
00000660: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000670: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000680: 20 20 20 20 22 3B 00 B8 0E 92 04 99 20 22 C3 4F | ";...... ".O|
00000690: 4D 50 55 54 45 52 20 3A 20 20 1D 1D 1D 1D 1D 1D |MPUTER : ......|
000006A0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 20 20 20 20 20 20 20 |......... |
000006B0: 20 20 20 20 20 20 22 3B 00 EC 0E 9C 04 99 20 22 | ";...... "|
000006C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000006D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000006E0: 20 20 20 20 20 20 20 20 92 9E 22 3B 00 0D 0F 6C | ..";...l|
000006F0: 07 8F 20 48 49 45 52 20 4E 55 4E 20 44 49 45 20 |.. HIER NUN DIE |
00000700: 34 20 41 55 46 52 55 46 45 20 41 55 53 00 2A 0F |4 AUFRUFE AUS.*.|
00000710: 76 07 8F 20 56 4F 52 41 4E 47 45 47 41 4E 47 45 |v.. VORANGEGANGE|
00000720: 4E 20 42 45 49 53 50 49 45 4C 00 30 0F 80 07 8F |N BEISPIEL.0....|
00000730: 00 52 0F D0 07 50 41 24 B2 22 31 32 31 38 30 36 |.R...PA$."121806|
00000740: 30 36 31 22 3A 8D 36 30 30 30 30 3A 41 24 B2 49 |061":.60000:A$.I|
00000750: 4E 24 00 74 0F DA 07 50 41 24 B2 22 31 34 30 38 |N$.t...PA$."1408|
00000760: 30 30 32 30 32 22 3A 8D 36 30 30 30 30 3A 42 24 |00202":.60000:B$|
00000770: B2 49 4E 24 00 96 0F E4 07 50 41 24 B2 22 31 36 |.IN$.....PA$."16|
00000780: 33 32 30 32 30 33 34 22 3A 8D 36 30 30 30 30 3A |3202034":.60000:|
00000790: 43 24 B2 49 4E 24 00 B3 0F EE 07 50 41 24 B2 22 |C$.IN$.....PA$."|
000007A0: 31 38 31 32 22 3A 8D 36 30 30 30 30 3A 44 24 B2 |1812":.60000:D$.|
000007B0: 49 4E 24 00 B9 0F F8 07 8F 00 CD 0F 34 08 8F 20 |IN$.........4.. |
000007C0: 20 20 20 20 44 41 53 20 57 41 52 27 53 00 D3 0F | DAS WAR'S...|
000007D0: 3E 08 8F 00 F5 0F 48 08 8F 20 50 53 3A 20 44 49 |>.....H.. PS: DI|
000007E0: 45 20 52 45 49 4E 45 20 49 4E 50 55 54 2D 52 4F |E REINE INPUT-RO|
000007F0: 55 54 49 4E 45 00 11 10 52 08 8F 20 49 4E 20 4B |UTINE...R.. IN K|
00000800: 4F 4D 50 52 2E 20 46 4F 52 4D 20 48 45 49 53 53 |OMPR. FORM HEISS|
00000810: 54 00 2B 10 5C 08 8F 20 20 20 20 20 20 20 20 49 |T.+.\.. I|
00000820: 4E 50 55 54 20 28 4B 55 52 5A 29 00 4E 10 B8 0B |NPUT (KURZ).N...|
00000830: 99 3A 99 20 22 C4 49 45 20 C5 49 4E 47 41 42 45 |.:. ".IE .INGABE|
00000840: 4E 20 57 41 52 45 4E 20 3A 20 22 3B 41 24 00 57 |N WAREN : ";A$.W|
00000850: 10 C2 0B 99 20 42 24 00 60 10 CC 0B 99 20 43 24 |.... B$.`.... C$|
00000860: 00 69 10 D6 0B 99 20 44 24 00 91 10 E0 0B 99 20 |.i.... D$...... |
00000870: 22 20 20 20 20 20 20 20 20 20 20 20 20 12 20 D4 |" . .|
00000880: 41 53 54 45 20 44 52 55 45 43 4B 45 4E 20 92 22 |ASTE DRUECKEN ."|
00000890: 3B 00 AD 10 EA 0B A1 20 4E 4A 24 20 3A 20 8B 20 |;...... NJ$ : . |
000008A0: 4E 4A 24 B2 22 22 20 A7 20 33 30 35 30 00 B6 10 |NJ$."" . 3050...|
000008B0: 9B 0F 99 22 93 22 00 D2 10 A0 0F 97 20 32 31 31 |..."."...... 211|
000008C0: 2C 30 3A 97 20 32 31 34 2C 32 34 3A 9E 35 38 36 |,0:. 214,24:.586|
000008D0: 34 30 00 F1 10 AA 0F 99 22 4C 49 53 54 31 39 30 |40......"LIST190|
000008E0: 30 2D 32 31 34 30 20 20 20 20 20 20 20 20 20 20 |0-2140 |
000008F0: 22 00 FA 10 AF 0F 99 22 13 22 00 06 11 B4 0F 9B |"......"."......|
00000900: 33 30 AB 31 39 30 00 0C 11 2F 75 80 00 12 11 30 |30.190.../u....0|
00000910: 75 3A 00 18 11 18 79 3A 00 1E 11 00 7D 3A 00 24 |u:....y:....}:.$|
00000920: 11 E8 80 3A 00 2A 11 D0 84 3A 00 5D 11 60 EA 42 |...:.*...:.].`.B|
00000930: 4C 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 |L$." |
00000940: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000950: 20 20 20 20 20 20 20 20 20 20 20 20 22 00 68 11 | ".h.|
00000960: 6A EA 49 4E 24 B2 22 22 00 6E 11 C3 EA 3A 00 83 |j.IN$."".n...:..|
00000970: 11 C4 EA 5A 45 B2 C5 28 CA 28 50 41 24 2C 31 2C |...ZE..(.(PA$,1,|
00000980: 32 29 29 00 98 11 CE EA 53 50 B2 C5 28 CA 28 50 |2)).....SP..(.(P|
00000990: 41 24 2C 33 2C 32 29 29 00 AF 11 D8 EA 8B 20 C3 |A$,3,2))...... .|
000009A0: 28 50 41 24 29 B2 34 20 A7 20 36 30 32 30 30 00 |(PA$).4 . 60200.|
000009B0: C4 11 E2 EA 4D 49 B2 C5 28 CA 28 50 41 24 2C 35 |....MI..(.(PA$,5|
000009C0: 2C 32 29 29 00 D9 11 EC EA 4D 41 B2 C5 28 CA 28 |,2)).....MA..(.(|
000009D0: 50 41 24 2C 37 2C 32 29 29 00 EE 11 F6 EA 43 4F |PA$,7,2)).....CO|
000009E0: B2 C5 28 CA 28 50 41 24 2C 39 2C 31 29 29 00 FA |..(.(PA$,9,1))..|
000009F0: 11 00 EB 89 20 36 30 33 30 30 00 1E 12 1E EB 8F |.... 60300......|
00000A00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000A10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 32 |**************.2|
00000A20: 12 28 EB 4D 49 B2 30 3A 4D 41 B2 31 35 3A 43 4F |.(.MI.0:MA.15:CO|
00000A30: B2 33 00 56 12 32 EB 8F 2A 2A 2A 2A 2A 2A 2A 2A |.3.V.2..********|
00000A40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000A50: 2A 2A 2A 2A 2A 2A 00 5C 12 3C EB 3A 00 68 12 8C |******.\.<.:.h..|
00000A60: EB 8D 20 36 30 39 35 30 00 74 12 96 EB 97 20 32 |.. 60950.t.... 2|
00000A70: 30 34 2C 30 00 8F 12 A0 EB A1 20 4E 24 20 3A 20 |04,0...... N$ : |
00000A80: 8B 20 4E 24 B2 22 22 20 A7 20 36 30 33 32 30 00 |. N$."" . 60320.|
00000A90: 9D 12 AA EB 53 53 B2 C2 28 32 31 31 29 00 CF 12 |....SS..(211)...|
00000AA0: B4 EB 8B 20 C6 28 4E 24 29 B2 31 33 20 AF 20 C3 |... .(N$).13 . .|
00000AB0: 28 49 4E 24 29 B1 B2 4D 49 20 A7 20 97 20 32 30 |(IN$)..MI . . 20|
00000AC0: 34 2C 31 20 3A 20 8D 20 36 33 38 39 30 3A 8E 00 |4,1 : . 63890:..|
00000AD0: F3 12 BE EB 8B 20 C6 28 4E 24 29 B2 31 34 37 20 |..... .(N$).147 |
00000AE0: A7 20 8D 20 36 31 30 30 30 20 3A 20 89 20 36 30 |. . 61000 : . 60|
00000AF0: 33 32 30 00 1E 13 C8 EB 8B 20 C6 28 4E 24 29 B2 |320...... .(N$).|
00000B00: 31 39 20 A7 20 8D 20 36 33 38 39 30 20 3A 20 8D |19 . . 63890 : .|
00000B10: 20 36 30 39 35 30 3A 89 20 36 30 33 32 30 00 4D | 60950:. 60320.M|
00000B20: 13 D2 EB 8B 20 C6 28 4E 24 29 B2 32 30 20 AF 20 |.... .(N$).20 . |
00000B30: C2 28 32 31 31 29 B1 53 50 20 A7 20 8D 20 36 31 |.(211).SP . . 61|
00000B40: 34 31 30 20 3A 20 89 20 36 30 33 32 30 00 6F 13 |410 : . 60320.o.|
00000B50: DC EB 8B 20 C6 28 4E 24 29 B2 31 35 37 20 A7 20 |... .(N$).157 . |
00000B60: 8D 20 36 31 33 31 30 3A 89 20 36 30 33 32 30 00 |. 61310:. 60320.|
00000B70: 9D 13 E6 EB 8B 20 C6 28 4E 24 29 B2 31 34 38 20 |..... .(N$).148 |
00000B80: AF 20 C3 28 49 4E 24 29 B3 4D 41 20 A7 20 8D 20 |. .(IN$).MA . . |
00000B90: 36 31 35 30 35 3A 89 20 36 30 33 32 30 00 BE 13 |61505:. 60320...|
00000BA0: F0 EB 8B 20 C6 28 4E 24 29 B2 32 39 20 A7 20 8D |... .(N$).29 . .|
00000BB0: 20 36 31 32 31 30 3A 89 20 36 30 33 32 30 00 E3 | 61210:. 60320..|
00000BC0: 13 FA EB 8B 20 C6 28 4E 24 29 B2 31 37 20 B0 20 |.... .(N$).17 . |
00000BD0: C6 28 4E 24 29 B2 31 34 35 20 A7 20 20 20 36 30 |.(N$).145 . 60|
00000BE0: 33 32 30 00 13 14 04 EC 8B 20 C6 28 4E 24 29 B2 |320...... .(N$).|
00000BF0: 31 34 38 20 B0 20 C6 28 4E 24 29 B2 32 30 20 B0 |148 . .(N$).20 .|
00000C00: 20 C6 28 4E 24 29 B2 31 33 20 A7 20 89 20 36 30 | .(N$).13 . . 60|
00000C10: 33 32 30 00 19 14 0E EC 3A 00 22 14 45 EC 46 4C |320.....:.".E.FL|
00000C20: B2 30 00 52 14 4A EC 91 20 43 4F 20 8D 20 20 36 |.0.R.J.. CO . 6|
00000C30: 33 39 30 30 2C 36 33 39 31 30 2C 36 33 39 32 30 |3900,63910,63920|
00000C40: 2C 36 33 39 33 30 2C 36 33 39 34 30 2C 36 33 39 |,63930,63940,639|
00000C50: 35 30 00 65 14 4F EC 8B 20 46 4C B2 31 20 89 20 |50.e.O.. FL.1 . |
00000C60: 36 30 33 32 30 00 6B 14 54 EC 3A 00 93 14 59 EC |60320.k.T.:...Y.|
00000C70: 8B 20 C3 28 49 4E 24 29 B2 53 53 AB 53 50 20 A7 |. .(IN$).SS.SP .|
00000C80: 20 49 4E 24 B2 49 4E 24 AA 4E 24 3A 89 20 36 30 | IN$.IN$.N$:. 60|
00000C90: 35 31 35 00 C9 14 5E EC 49 4E 24 B2 C8 28 49 4E |515...^.IN$..(IN|
00000CA0: 24 2C 53 53 AB 53 50 29 AA 4E 24 AA CA 28 49 4E |$,SS.SP).N$..(IN|
00000CB0: 24 2C 53 53 AB 53 50 AA 32 2C C3 28 49 4E 24 29 |$,SS.SP.2,.(IN$)|
00000CC0: AB 53 53 AA 53 50 AB 31 29 00 D3 14 63 EC 99 20 |.SS.SP.1)...c.. |
00000CD0: 4E 24 3B 00 F0 14 68 EC 8B 20 53 53 B2 53 50 AA |N$;...h.. SS.SP.|
00000CE0: 4D 41 AB 31 20 A7 20 99 20 C7 28 31 35 37 29 3B |MA.1 . . .(157);|
00000CF0: 00 FC 14 72 EC 89 20 36 30 33 32 30 00 02 15 E5 |...r.. 60320....|
00000D00: ED 3A 00 08 15 E6 ED 3A 00 0E 15 E7 ED 3A 00 2B |.:.....:.....:.+|
00000D10: 15 16 EE 97 32 31 31 2C 53 50 3A 97 32 31 34 2C |....211,SP:.214,|
00000D20: 5A 45 3A 9E 35 38 36 34 30 3A 8E 00 31 15 47 EE |ZE:.58640:..1.G.|
00000D30: 3A 00 3D 15 48 EE 8D 20 36 30 39 35 30 00 4E 15 |:.=.H.. 60950.N.|
00000D40: 52 EE 99 20 C8 28 42 4C 24 2C 4D 41 29 3B 00 5A |R.. .(BL$,MA);.Z|
00000D50: 15 5C EE 8D 20 36 30 39 35 30 00 65 15 66 EE 49 |.\.. 60950.e.f.I|
00000D60: 4E 24 B2 22 22 00 6B 15 70 EE 8E 00 71 15 AB EE |N$."".k.p...q...|
00000D70: 3A 00 99 15 1A EF 8B 20 53 53 B3 53 50 AA C3 28 |:...... SS.SP..(|
00000D80: 49 4E 24 29 AF 20 53 53 B3 53 50 AA 4D 41 AB 31 |IN$). SS.SP.MA.1|
00000D90: A7 20 53 53 B2 53 53 AA 31 00 A5 15 24 EF 8D 20 |. SS.SS.1...$.. |
00000DA0: 36 33 38 39 30 00 B9 15 2E EF 97 20 32 31 31 2C |63890...... 211,|
00000DB0: 53 53 3A 9E 35 38 36 34 30 00 BF 15 38 EF 8E 00 |SS:.58640...8...|
00000DC0: C5 15 42 EF 3A 00 DB 15 7E EF 8B 20 53 53 B1 53 |..B.:...~.. SS.S|
00000DD0: 50 20 A7 20 53 53 B2 53 53 AB 31 00 E7 15 88 EF |P . SS.SS.1.....|
00000DE0: 8D 20 36 33 38 39 30 00 FE 15 92 EF 97 20 32 31 |. 63890...... 21|
00000DF0: 31 2C 53 53 20 3A 20 9E 20 35 38 36 34 30 00 04 |1,SS : . 58640..|
00000E00: 16 9C EF 8E 00 0A 16 A6 EF 3A 00 3D 16 E2 EF 49 |.........:.=...I|
00000E10: 4E 24 B2 C8 28 49 4E 24 2C 53 53 AB 53 50 AB 31 |N$..(IN$,SS.SP.1|
00000E20: 29 AA CA 28 49 4E 24 2C 53 53 AB 53 50 AA 31 2C |)..(IN$,SS.SP.1,|
00000E30: C3 28 49 4E 24 29 AB 53 53 AA 53 50 29 00 49 16 |.(IN$).SS.SP).I.|
00000E40: EC EF 8D 20 36 33 38 39 30 00 63 16 F1 EF 8B 20 |... 63890.c.... |
00000E50: C3 28 49 4E 24 29 B3 4D 41 AB 31 20 A7 20 99 22 |.(IN$).MA.1 . ."|
00000E60: 20 22 3B 00 7C 16 F6 EF 97 20 32 31 31 2C 53 53 | ";.|.... 211,SS|
00000E70: AB 31 20 3A 20 9E 20 35 38 36 34 30 00 82 16 00 |.1 : . 58640....|
00000E80: F0 8E 00 88 16 32 F0 3A 00 A5 16 41 F0 8B 20 53 |.....2.:...A.. S|
00000E90: 53 B2 53 50 AA C3 28 49 4E 24 29 20 A7 20 89 20 |S.SP..(IN$) . . |
00000EA0: 36 31 35 34 30 00 DA 16 46 F0 49 4E 24 B2 C8 28 |61540...F.IN$..(|
00000EB0: 49 4E 24 2C 53 53 AB 53 50 29 AA 22 20 22 AA CA |IN$,SS.SP)." "..|
00000EC0: 28 49 4E 24 2C 53 53 AB 53 50 AA 31 2C C3 28 49 |(IN$,SS.SP.1,.(I|
00000ED0: 4E 24 29 AB 53 53 AA 53 50 29 00 E6 16 50 F0 8D |N$).SS.SP)...P..|
00000EE0: 20 36 33 38 39 30 00 FD 16 5A F0 97 20 32 31 31 | 63890...Z.. 211|
00000EF0: 2C 53 53 20 3A 20 9E 20 35 38 36 34 30 00 03 17 |,SS : . 58640...|
00000F00: 64 F0 8E 00 09 17 96 F0 3A 00 15 17 92 F9 8D 20 |d.......:...... |
00000F10: 36 30 39 35 30 00 35 17 94 F9 99 20 49 4E 24 3B |60950.5.... IN$;|
00000F20: 3A 8B 20 C3 28 49 4E 24 29 B3 4D 41 20 A7 20 99 |:. .(IN$).MA . .|
00000F30: 20 22 20 22 3B 00 3B 17 9A F9 8E 00 41 17 9B F9 | " ";.;.....A...|
00000F40: 3A 00 60 17 9C F9 8B 20 C6 28 4E 24 29 B3 34 38 |:.`.... .(N$).48|
00000F50: B0 C6 28 4E 24 29 B1 35 37 20 A7 20 46 4C B2 31 |..(N$).57 . FL.1|
00000F60: 00 66 17 A5 F9 8E 00 79 17 A6 F9 8B 20 C6 28 4E |.f.....y.... .(N|
00000F70: 24 29 B2 33 32 20 A7 20 8E 00 AF 17 A7 F9 8B 28 |$).32 . .......(|
00000F80: C6 28 4E 24 29 B3 36 35 B0 C6 28 4E 24 29 B1 39 |.(N$).65..(N$).9|
00000F90: 30 29 AF 28 C6 28 4E 24 29 B3 31 39 33 B0 C6 28 |0).(.(N$).193..(|
00000FA0: 4E 24 29 B1 32 31 38 29 20 A7 20 46 4C B2 31 00 |N$).218) . FL.1.|
00000FB0: B5 17 AF F9 8E 00 BB 17 B0 F9 8F 00 C1 17 B9 F9 |................|
00000FC0: 8E 00 D4 17 BA F9 8B 20 C6 28 4E 24 29 B2 33 32 |....... .(N$).32|
00000FD0: 20 A7 20 8E 00 F4 17 BB F9 8B 28 C6 28 4E 24 29 | . .......(.(N$)|
00000FE0: B3 36 35 B0 C6 28 4E 24 29 B1 39 30 29 20 A7 20 |.65..(N$).90) . |
00000FF0: 46 4C B2 31 00 FA 17 C3 F9 8E 00 00 18 C4 F9 8F |FL.1............|
00001000: 00 06 18 CD F9 8E 00 0C 18 CE F9 8F 00 12 18 D7 |................|
00001010: F9 8E 00 00 00 A2 |...... |
....... INPUT (DEMO).8.... INPUT-R
OUTINE FUR VC 64.>.....Q.... COPYRIGHT B
Y.F.... KARLHEINZ BOSS...... SYLVESTER-J
ORDAN-STR. 11...... 3550 MARBURG...... 0
6421/13509.J....53281,09:.53280,09:.646,
07.V.... G(14)...... INPUT-ROUTINE......
...... PA$ IST AUFGEBAUT WIE FOLGT:.3.(.
. PA$ = ZESPMIMAC WOBEI.J.2..
ZE = ZEILE.B.<.. SP = SPALTE...F..
MI = MINDESTLAENGE...P.. MA
= MAXIMALE LAENGE...Z.. C = CODE
WOBEI...D.. 1 = NUR ZAHLEN...N
.. 2 = NUR BUCHSTABEN...X..
3 = ALLES.8.}.. 4 = NUR KLEI
NBUCHST..^.... 5-6 = FREI PROGRAMM
IERBAR...... ( ZEILE 60490
)...... PA$ MUSS DIE ZEILE UND SPALTE.I
.... BEINHALTEN,DER REST IST HIN-... ..
REICHEND.ES WERDEN DANN DIE...... STANDA
RDPARAMETER IN ZEILE.#.... 60200 ANGENOM
MEN.9.... Z.B. PA$="0510".?.H.:.I...."."
;.{....". INPUT-ROUTINE COPYRIGHT BY
K.BOSS ."...... "UEBER GET WIRD EINE I
NPUT-ROUTINE SIMU-"...... "LIERT, WOBEI
SAEMTLICHE SONDERFUNKTIONS-";...... "TAS
TEN (INST,DEL,HOME,CLR,CR,CL) NOCH ".<..
.. "FUNKTIONIEREN, MAN ABER DAS EINGABEF
ELD".N.$.. "NICHT VERLASSEN KANN. AUSSER
DEM KANN MAN";. .... "BEIM AUFRUF DER RO
UTINE GLEICH ORT, MIN.";.R.8.. "UND MAX.
LAENGE UND DIE ZULAESSIGEN ZEI-";...B..
"CHEN DER EINGABE ANGEBEN.".(.L.. ".. B
EISP.: ";
.Z.Q.. "
";...V.. "DATUM (TTMMJJ) : ....
.. ";...`.. "
";...J.. "NA
ME : .................... ";
.".T.. "
";.T.~.. "KUERZEL (MIND 2 KL. BU
CHST.) : ... ";...... "
";...... "CO
MPUTER : ............... ";
...... "
..";...L.. HIER NUN DIE 4 AUFRUF
E AUS.*.V.. VORANGEGANGEN BEISPIEL.0....
.R.P.PA$."121806061":.60000:A$.IN$.T.Z.P
A$."140800202":.60000:B$.IN$.....PA$."16
3202034":.60000:C$.IN$.....PA$."1812":.6
0000:D$.IN$.......M.4.. DAS WAR'S.S.
>.....H.. PS: DIE REINE INPUT-ROUTINE...
R.. IN KOMPR. FORM HEISST.+.\.. I
NPUT (KURZ).N....:. "DIE EINGABEN WAREN
: ";A$.W.B.. B$.`.L.. C$.I.V.. D$......
" . TASTE DRUECKEN .";......
NJ$ : . NJ$."" . 3050......".".R. .. 211
,0:. 214,24:.58640......"LIST1900-2140
"......"."......30.190.../U....0
U:....Y:....}:.$...:.*.P.:.].`.BL$."
".H.
J.IN$."".N.C.:...D.ZE.E(J(PA$,1,2))...N.
SP.E(J(PA$,3,2))...X.. C(PA$).4 . 60200.
D...MI.E(J(PA$,5,2)).Y...MA.E(J(PA$,7,2)
).....CO.E(J(PA$,9,1))...... 60300......
******************************.2.(.MI.0:
MA.15:CO.3.V.2..************************
******.\.<.:.H.... 60950.T.... 204,0...
.. N$ : . N$."" . 60320.....SS.B(211).O.
... F(N$).13 . C(IN$)..MI . . 204,1 : .
63890:....... F(N$).147 . . 61000 : . 60
320...H.. F(N$).19 . . 63890 : . 60950:.
60320.M.R.. F(N$).20 . B(211).SP . . 61
410 : . 60320.O.... F(N$).157 . . 61310:
. 60320...... F(N$).148 . C(IN$).MA . .
61505:. 60320...... F(N$).29 . . 61210:.
60320...... F(N$).17 . F(N$).145 . 60
320...... F(N$).148 . F(N$).20 . F(N$).1
3 . . 60320.....:.".E.FL.0.R.J.. CO . 6
3900,63910,63920,63930,63940,63950.E.O..
FL.1 . 60320.K.T.:...Y.. C(IN$).SS.SP .
IN$.IN$.N$:. 60515.I.^.IN$.H(IN$,SS.SP)
.N$.J(IN$,SS.SP.2,C(IN$).SS.SP.1).S.C..
N$;...H.. SS.SP.MA.1 . . G(157);...R.. 6
0320.....:.....:.....:.+....211,SP:.214,
ZE:.58640:..1.G.:.=.H.. 60950.N.R.. H(BL
$,MA);.Z.\.. 60950.E.F.IN$."".K.P...Q...
:...... SS.SP.C(IN$). SS.SP.MA.1. SS.SS.
1...$.. 63890...... 211,SS:.58640...8...
E.B.:...~.. SS.SP . SS.SS.1...... 63890.
..... 211,SS : . 58640...........:.=...I
N$.H(IN$,SS.SP.1).J(IN$,SS.SP.1,C(IN$).S
S.SP).I.... 63890.C.... C(IN$).MA.1 . ."
";.|.... 211,SS.1 : . 58640.........2.:
...A.. SS.SP.C(IN$) . . 61540.Z.F.IN$.H(
IN$,SS.SP)." ".J(IN$,SS.SP.1,C(IN$).SS.S
P)...P.. 63890...Z.. 211,SS : . 58640...
D.......:...... 60950.5.... IN$;:. C(IN$
).MA . . " ";.;.....A...:.`.... F(N$).48
.F(N$).57 . FL.1.F.....Y.... F(N$).32 .
.......(F(N$).65.F(N$).90).(F(N$).193.F(
N$).218) . FL.1.............A.....T....
F(N$).32 . .......(F(N$).65.F(N$).90) .
FL.1...C.....D.....M.....N.....W......
> CLICK IMAGE PREVIEW FOR FULL MODAL