FORM.EINGABE
FILE INFORMATION
FILENAME(S): FORM.EINGABE
FILE TYPE(S): PRG
FILE SIZE: 4.6K
FIRST SEEN: 2025-11-02 16:42:25
APPEARS ON: 2 disk(s)
FILE HASH
5dab23c4f2a3facf27e90f53a4e6925165e06a541ebb0b8c177543bce0ac60f8
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FUCHS ANWENDER | FORM.EINGABE | PRG | Treasure Chest - ralf | 4 | 0 | DOWNLOAD FILE |
| MASTER 1 85 | FORM.EINGABE | PRG | C64er | 4 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 29 08 01 00 8F 22 20 CF B7 B7 B7 B7 B7 B7 |..)...." .......| 00000010: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................| 00000020: B7 B7 B7 B7 B7 B7 B7 B7 D0 00 51 08 02 00 8F 22 |..........Q...."| 00000030: 20 B4 20 20 55 50 20 20 2D 20 20 46 4F 52 4D 41 | . UP - FORMA| 00000040: 54 49 45 52 54 45 20 45 49 4E 47 41 42 45 20 20 |TIERTE EINGABE | 00000050: AA 00 79 08 03 00 8F 22 20 CC AF AF AF AF AF AF |..y...." .......| 00000060: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF |................| 00000070: AF AF AF AF AF AF AF AF BA 00 A1 08 04 00 8F 22 |..............."| 00000080: 20 CF B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 | ...............| 00000090: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................| 000000A0: D0 00 C9 08 05 00 8F 22 20 B4 20 20 51 31 20 20 |......." . Q1 | 000000B0: 3D 20 20 5A 45 49 4C 45 20 44 45 52 20 45 49 4E |= ZEILE DER EIN| 000000C0: 47 41 42 45 20 20 20 20 AA 00 F1 08 06 00 8F 22 |GABE ......."| 000000D0: 20 B4 20 20 51 32 20 20 3D 20 20 53 50 41 4C 54 | . Q2 = SPALT| 000000E0: 45 20 44 45 52 20 45 49 4E 47 41 42 45 20 20 20 |E DER EINGABE | 000000F0: AA 00 19 09 07 00 8F 22 20 B4 20 20 51 33 20 20 |......." . Q3 | 00000100: 3D 20 20 4D 41 58 2E 20 4C 41 45 4E 47 45 20 44 |= MAX. LAENGE D| 00000110: 2E 20 45 49 4E 47 2E 20 AA 00 41 09 08 00 8F 22 |. EING. ..A...."| 00000120: 20 B4 20 20 51 34 20 20 3D 20 20 31 20 5F 20 4C | . Q4 = 1 _ L| 00000130: 45 45 52 45 49 4E 47 41 42 45 20 4E 49 43 48 54 |EEREINGABE NICHT| 00000140: AA 00 69 09 09 00 8F 22 20 B4 20 20 20 20 20 20 |..i...." . | 00000150: 20 20 20 20 20 20 20 45 52 4C 41 55 42 54 20 20 | ERLAUBT | 00000160: 20 20 20 20 20 20 20 20 AA 00 90 09 0A 00 8F 22 | ......."| 00000170: B4 20 20 51 35 20 20 3D 20 20 31 20 5F 20 4E 55 |. Q5 = 1 _ NU| 00000180: 52 20 4E 55 4D 45 52 49 53 43 48 45 20 20 20 AA |R NUMERISCHE .| 00000190: 00 B7 09 0B 00 8F 22 B4 20 20 20 20 20 20 20 20 |......". | 000001A0: 20 20 20 20 20 45 49 4E 47 41 42 45 20 45 52 4C | EINGABE ERL| 000001B0: 41 55 42 54 20 20 AA 00 DE 09 0C 00 8F 22 B4 20 |AUBT .......". | 000001C0: 20 51 36 20 20 3D 20 20 31 20 5F 20 42 45 49 20 | Q6 = 1 _ BEI | 000001D0: 4E 55 4D 45 52 49 53 43 48 45 52 20 20 AA 00 05 |NUMERISCHER ...| 000001E0: 0A 0D 00 8F 22 B4 20 20 20 20 20 20 20 20 20 20 |....". | 000001F0: 20 20 20 45 49 4E 47 41 42 45 20 49 53 54 20 45 | EINGABE IST E| 00000200: 49 4E 20 20 AA 00 2C 0A 0E 00 8F 22 B4 20 20 20 |IN ..,....". | 00000210: 20 20 20 20 20 20 20 20 20 20 50 55 4E 4B 54 20 | PUNKT | 00000220: 45 52 4C 41 55 42 54 20 20 20 20 AA 00 53 0A 0F |ERLAUBT ..S..| 00000230: 00 8F 22 B4 20 20 20 20 20 20 20 20 20 20 20 20 |..". | 00000240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000250: 20 20 AA 00 7A 0A 10 00 8F 22 B4 20 20 59 33 24 | ..z....". Y3$| 00000260: 20 3D 20 20 4D 55 53 53 20 45 49 4E 4D 41 4C 20 | = MUSS EINMAL | 00000270: 41 4D 20 41 4E 46 41 4E 47 AA 00 A1 0A 11 00 8F |AM ANFANG.......| 00000280: 22 B4 20 20 20 20 20 20 20 20 20 44 45 53 20 48 |". DES H| 00000290: 41 55 50 54 50 52 4F 47 52 41 4D 4D 45 53 20 20 |AUPTPROGRAMMES | 000002A0: AA 00 C8 0A 12 00 8F 22 B4 20 20 20 20 20 20 20 |.......". | 000002B0: 20 20 44 45 46 49 4E 49 45 52 54 20 57 45 52 44 | DEFINIERT WERD| 000002C0: 45 4E 2E 20 45 49 4E AA 00 EF 0A 13 00 8F 22 B4 |EN. EIN.......".| 000002D0: 20 20 20 20 20 20 20 20 20 50 55 4E 4B 54 45 53 | PUNKTES| 000002E0: 54 52 49 4E 47 2C 20 44 45 52 20 44 49 45 AA 00 |TRING, DER DIE..| 000002F0: 16 0B 14 00 8F 22 B4 20 20 20 20 20 20 20 20 20 |.....". | 00000300: 4C 41 45 4E 47 45 20 44 45 52 20 4C 41 45 4E 47 |LAENGE DER LAENG| 00000310: 53 54 45 4E 20 AA 00 3D 0B 15 00 8F 22 B4 20 20 |STEN ..=....". | 00000320: 20 20 20 20 20 20 20 45 49 4E 47 41 42 45 20 49 | EINGABE I| 00000330: 4D 20 48 41 55 50 54 50 52 4F 47 2E AA 00 64 0B |M HAUPTPROG...d.| 00000340: 16 00 8F 22 B4 20 20 20 20 20 20 20 20 20 48 41 |...". HA| 00000350: 54 2E 20 5A 55 53 41 45 54 5A 4C 49 43 48 20 4D |T. ZUSAETZLICH M| 00000360: 55 53 53 AA 00 8B 0B 17 00 8F 22 B4 20 20 20 20 |USS.......". | 00000370: 20 20 20 20 20 41 4D 20 45 4E 44 45 20 44 45 53 | AM ENDE DES| 00000380: 20 53 54 52 49 4E 47 53 20 20 AA 00 B2 0B 18 00 | STRINGS ......| 00000390: 8F 22 B4 20 20 20 20 20 20 20 20 20 44 41 53 20 |.". DAS | 000003A0: 5A 45 49 43 48 45 4E 20 27 5F 27 20 20 20 20 20 |ZEICHEN '_' | 000003B0: 20 AA 00 D9 0B 19 00 8F 22 B4 20 20 20 20 20 20 | .......". | 000003C0: 20 20 20 53 54 45 48 45 4E 2E 20 42 45 49 53 50 | STEHEN. BEISP| 000003D0: 49 45 4C 20 3A 20 20 20 AA 00 00 0C 1A 00 8F 22 |IEL : ......."| 000003E0: B4 20 20 20 20 20 20 20 20 20 59 33 24 3D 27 27 |. Y3$=''| 000003F0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 5F 27 27 AA |............_''.| 00000400: 00 27 0C 1B 00 8F 22 B4 20 20 20 20 20 20 20 20 |.'....". | 00000410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000420: 20 20 20 20 20 20 AA 00 4E 0C 1C 00 8F 22 B4 20 | ..N....". | 00000430: 20 59 34 24 20 3D 20 20 57 49 45 20 27 59 33 24 | Y4$ = WIE 'Y3$| 00000440: 27 2C 20 4A 45 44 4F 43 48 20 20 20 20 AA 00 75 |', JEDOCH ..u| 00000450: 0C 1D 00 8F 22 B4 20 20 20 20 20 20 20 20 20 57 |....". W| 00000460: 45 52 44 45 4E 20 53 54 41 54 54 20 50 55 4E 4B |ERDEN STATT PUNK| 00000470: 54 45 20 20 AA 00 9C 0C 1E 00 8F 22 B4 20 20 20 |TE .......". | 00000480: 20 20 20 20 20 20 53 50 41 43 45 53 20 47 45 53 | SPACES GES| 00000490: 45 54 5A 54 2E 20 44 41 53 20 20 AA 00 C3 0C 1F |ETZT. DAS .....| 000004A0: 00 8F 22 B4 20 20 20 20 20 20 20 20 20 5A 45 49 |..". ZEI| 000004B0: 43 48 45 4E 20 27 5F 27 20 45 4E 54 46 41 45 4C |CHEN '_' ENTFAEL| 000004C0: 4C 54 AA 00 EA 0C 20 00 8F 22 B4 20 20 20 20 20 |LT.... ..". | 000004D0: 20 20 20 20 42 45 49 53 50 49 45 4C 20 3A 20 20 | BEISPIEL : | 000004E0: 20 20 20 20 20 20 20 20 20 AA 00 11 0D 21 00 8F | ....!..| 000004F0: 22 B4 20 20 20 20 20 20 20 20 20 59 34 24 3D 27 |". Y4$='| 00000500: 27 20 20 20 20 20 20 20 20 20 20 20 20 20 27 27 |' ''| 00000510: AA 00 38 0D 22 00 8F 22 CC AF AF AF AF AF AF AF |..8.".."........| 00000520: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF |................| 00000530: AF AF AF AF AF AF AF BA 00 5F 0D 23 00 8F 22 CF |........._.#..".| 00000540: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................| 00000550: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 D0 00 |................| 00000560: 86 0D 24 00 8F 22 B4 20 20 49 49 20 20 3D 20 20 |..$..". II = | 00000570: 4C 41 55 46 56 41 52 49 41 42 4C 45 20 20 20 20 |LAUFVARIABLE | 00000580: 20 20 20 20 20 AA 00 AD 0D 25 00 8F 22 B4 20 20 | ....%..". | 00000590: 4A 4A 20 20 3D 20 20 4C 41 55 46 56 41 52 49 41 |JJ = LAUFVARIA| 000005A0: 42 4C 45 20 20 20 20 20 20 20 20 20 AA 00 D4 0D |BLE ....| 000005B0: 26 00 8F 22 B4 20 20 51 37 20 20 3D 20 20 5A 41 |&..". Q7 = ZA| 000005C0: 45 48 4C 45 52 2C 20 44 45 52 20 41 4E 47 49 42 |EHLER, DER ANGIB| 000005D0: 54 2C 20 AA 00 FB 0D 27 00 8F 22 B4 20 20 20 20 |T, ....'..". | 000005E0: 20 20 20 20 20 41 4E 20 57 45 4C 43 48 45 52 20 | AN WELCHER | 000005F0: 53 54 45 4C 4C 45 20 45 49 4E AA 00 22 0E 28 00 |STELLE EIN..".(.| 00000600: 8F 22 B4 20 20 20 20 20 20 20 20 20 50 55 4E 4B |.". PUNK| 00000610: 54 20 47 45 53 45 54 5A 54 20 57 55 52 44 45 20 |T GESETZT WURDE | 00000620: 20 AA 00 49 0E 29 00 8F 22 B4 20 20 20 20 20 20 | ..I.)..". | 00000630: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000640: 20 20 20 20 20 20 20 20 AA 00 70 0E 2A 00 8F 22 | ..p.*.."| 00000650: B4 20 20 59 31 24 20 3D 20 20 49 4E 48 41 4C 54 |. Y1$ = INHALT| 00000660: 20 44 45 52 20 45 49 4E 47 41 42 45 20 20 20 AA | DER EINGABE .| 00000670: 00 97 0E 2B 00 8F 22 B4 20 20 20 20 20 20 20 20 |...+..". | 00000680: 20 57 49 52 44 20 56 4F 4D 20 55 4E 54 45 52 50 | WIRD VOM UNTERP| 00000690: 52 4F 47 2E 20 20 AA 00 BE 0E 2C 00 8F 22 B4 20 |ROG. ....,..". | 000006A0: 20 20 20 20 20 20 20 20 41 4E 20 44 41 53 20 48 | AN DAS H| 000006B0: 41 55 50 54 50 52 4F 47 2E 20 20 20 20 AA 00 E5 |AUPTPROG. ...| 000006C0: 0E 2D 00 8F 22 B4 20 20 20 20 20 20 20 20 20 55 |.-..". U| 000006D0: 45 42 45 52 47 45 42 45 4E 2E 20 20 20 20 20 20 |EBERGEBEN. | 000006E0: 20 20 20 20 AA 00 0C 0F 2E 00 8F 22 B4 20 20 20 | .......". | 000006F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000700: 20 20 20 20 20 20 20 20 20 20 20 AA 00 33 0F 2F | ..3./| 00000710: 00 8F 22 B4 20 20 59 32 24 20 3D 20 20 45 4E 54 |..". Y2$ = ENT| 00000720: 48 41 45 4C 54 20 44 41 53 20 4A 45 57 45 49 4C |HAELT DAS JEWEIL| 00000730: 53 20 AA 00 5A 0F 30 00 8F 22 B4 20 20 20 20 20 |S ..Z.0..". | 00000740: 20 20 20 20 45 49 4E 47 45 47 45 42 45 4E 45 20 | EINGEGEBENE | 00000750: 5A 45 49 43 48 45 4E 20 20 AA 00 81 0F 31 00 8F |ZEICHEN ....1..| 00000760: 22 CC AF AF AF AF AF AF AF AF AF AF AF AF AF AF |"...............| 00000770: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF |................| 00000780: BA 00 A8 0F 32 00 8F 22 CF B7 B7 B7 B7 B7 B7 B7 |....2.."........| 00000790: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................| 000007A0: B7 B7 B7 B7 B7 B7 B7 D0 00 CF 0F 33 00 8F 22 B4 |...........3..".| 000007B0: 20 20 46 4F 52 4D 41 54 49 45 52 54 45 20 45 49 | FORMATIERTE EI| 000007C0: 4E 47 41 42 45 2C 20 42 45 49 20 44 45 52 AA 00 |NGABE, BEI DER..| 000007D0: F6 0F 34 00 8F 22 B4 20 20 4A 45 44 45 53 20 45 |..4..". JEDES E| 000007E0: 49 4E 47 45 47 45 42 45 4E 45 20 5A 45 49 43 48 |INGEGEBENE ZEICH| 000007F0: 45 4E 20 20 20 AA 00 1D 10 35 00 8F 22 B4 20 20 |EN ....5..". | 00000800: 55 45 42 45 52 50 52 55 45 46 54 20 55 4E 44 20 |UEBERPRUEFT UND | 00000810: 46 41 4C 4C 53 20 4E 4F 45 54 49 47 AA 00 44 10 |FALLS NOETIG..D.| 00000820: 36 00 8F 22 B4 20 20 5A 55 52 55 45 43 4B 47 45 |6..". ZURUECKGE| 00000830: 57 49 45 53 45 4E 20 57 45 52 44 45 4E 20 4B 41 |WIESEN WERDEN KA| 00000840: 4E 4E 2E AA 00 6B 10 37 00 8F 22 B4 20 20 44 49 |NN...k.7..". DI| 00000850: 45 20 41 4E 47 45 47 45 42 45 4E 45 4E 20 50 41 |E ANGEGEBENEN PA| 00000860: 52 41 4D 45 54 45 52 20 20 20 AA 00 92 10 38 00 |RAMETER ....8.| 00000870: 8F 22 B4 20 20 4D 55 45 53 53 45 4E 20 5A 55 4D |.". MUESSEN ZUM| 00000880: 20 54 45 49 4C 20 28 51 31 2C 51 32 2C 51 33 2C | TEIL (Q1,Q2,Q3,| 00000890: 20 AA 00 B9 10 39 00 8F 22 B4 20 20 59 33 24 2C | ....9..". Y3$,| 000008A0: 59 34 24 29 20 45 49 4E 47 45 47 45 42 45 4E 20 |Y4$) EINGEGEBEN | 000008B0: 57 45 52 44 45 4E 2C 20 AA 00 E0 10 3A 00 8F 22 |WERDEN, ....:.."| 000008C0: B4 20 20 4F 44 45 52 20 4B 4F 45 4E 4E 45 4E 20 |. ODER KOENNEN | 000008D0: 42 45 49 20 42 45 44 41 52 46 20 20 20 20 20 AA |BEI BEDARF .| 000008E0: 00 07 11 3B 00 8F 22 B4 20 20 55 45 42 45 52 47 |...;..". UEBERG| 000008F0: 45 42 45 4E 20 57 45 52 44 45 4E 20 28 51 34 2C |EBEN WERDEN (Q4,| 00000900: 51 35 2C 51 36 29 AA 00 2E 11 3C 00 8F 22 B4 20 |Q5,Q6)....<..". | 00000910: 20 56 4F 52 20 44 45 4D 20 52 55 45 43 4B 53 50 | VOR DEM RUECKSP| 00000920: 52 55 4E 47 20 49 4E 53 20 20 20 20 20 AA 00 55 |RUNG INS ..U| 00000930: 11 3D 00 8F 22 B4 20 20 48 41 55 50 54 50 52 4F |.=..". HAUPTPRO| 00000940: 47 52 41 4D 4D 20 57 45 52 44 45 4E 20 41 4C 4C |GRAMM WERDEN ALL| 00000950: 45 20 20 20 AA 00 7C 11 3E 00 8F 22 B4 20 20 50 |E ..|.>..". P| 00000960: 41 52 41 4D 45 54 45 52 20 41 55 46 20 4E 55 4C |ARAMETER AUF NUL| 00000970: 4C 20 47 45 53 45 54 5A 54 2E 20 AA 00 A3 11 3F |L GESETZT. ....?| 00000980: 00 8F 22 B4 20 20 44 41 53 20 45 52 47 45 42 4E |..". DAS ERGEBN| 00000990: 49 53 20 44 45 52 20 45 49 4E 47 41 42 45 2D 20 |IS DER EINGABE- | 000009A0: 20 20 AA 00 CA 11 40 00 8F 22 B4 20 20 52 4F 55 | ....@..". ROU| 000009B0: 54 49 4E 45 2C 20 44 49 45 20 45 49 4E 47 41 42 |TINE, DIE EINGAB| 000009C0: 45 20 57 49 52 44 20 49 4E AA 00 F1 11 41 00 8F |E WIRD IN....A..| 000009D0: 22 B4 20 20 44 45 52 20 56 41 52 49 41 42 4C 45 |". DER VARIABLE| 000009E0: 4E 20 27 59 31 24 27 20 41 4E 20 44 41 53 20 20 |N 'Y1$' AN DAS | 000009F0: AA 00 18 12 42 00 8F 22 B4 20 20 48 41 55 50 54 |....B..". HAUPT| 00000A00: 50 52 4F 47 52 41 4D 4D 20 55 45 42 45 52 47 45 |PROGRAMM UEBERGE| 00000A10: 42 45 4E 2E 20 20 20 AA 00 3F 12 43 00 8F 22 CC |BEN. ..?.C..".| 00000A20: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF |................| 00000A30: AF AF AF AF AF AF AF AF AF AF AF AF AF AF BA 00 |................| 00000A40: 45 12 44 00 8F 00 4B 12 45 00 8F 00 51 12 46 00 |E.D...K.E...Q.F.| 00000A50: 8F 00 75 12 64 00 8F 20 20 20 2A 2A 2A 2A 2A 2A |..u.d.. ******| 00000A60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000A70: 2A 2A 2A 2A 2A 00 99 12 66 00 8F 20 20 20 2A 2A |*****...f.. **| 00000A80: 2A 20 46 4F 52 4D 41 54 49 45 52 54 45 20 45 49 |* FORMATIERTE EI| 00000A90: 4E 47 41 42 45 20 2A 2A 2A 00 BD 12 68 00 8F 20 |NGABE ***...h.. | 00000AA0: 20 20 2A 2A 2A 20 43 4F 50 59 52 49 47 48 54 20 | *** COPYRIGHT | 00000AB0: 28 43 29 20 31 39 38 34 20 20 2A 2A 2A 00 E1 12 |(C) 1984 ***...| 00000AC0: 6A 00 8F 20 20 20 2A 2A 2A 20 20 20 20 52 4F 4C |j.. *** ROL| 00000AD0: 46 20 48 49 4C 43 48 4E 45 52 20 20 20 20 2A 2A |F HILCHNER **| 00000AE0: 2A 00 05 13 6C 00 8F 20 20 20 2A 2A 2A 20 20 20 |*...l.. *** | 00000AF0: 52 48 45 59 44 54 45 52 20 53 54 52 2E 34 38 20 |RHEYDTER STR.48 | 00000B00: 20 20 2A 2A 2A 00 29 13 6D 00 8F 20 20 20 2A 2A | ***.).m.. **| 00000B10: 2A 20 20 20 20 20 34 30 34 30 20 4E 45 55 53 53 |* 4040 NEUSS| 00000B20: 20 31 20 20 20 20 2A 2A 2A 00 4D 13 6E 00 8F 20 | 1 ***.M.n.. | 00000B30: 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | **************| 00000B40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 89 13 |*************...| 00000B50: 78 00 97 36 35 30 2C 32 35 35 3A 59 31 24 B2 22 |x..650,255:Y1$."| 00000B60: 22 3A 51 32 B2 51 32 AB 31 3A 97 32 31 34 2C 51 |":Q2.Q2.1:.214,Q| 00000B70: 31 3A 97 32 31 31 2C 51 32 3A 99 22 91 A2 22 3B |1:.211,Q2:."..";| 00000B80: C9 28 59 33 24 2C 51 33 29 00 98 13 82 00 81 49 |.(Y3$,Q3)......I| 00000B90: 49 B2 31 A4 51 33 AA 31 00 AD 13 8C 00 A1 59 32 |I.1.Q3.1......Y2| 00000BA0: 24 3A 8B 59 32 24 B2 22 22 A7 31 34 30 00 E2 13 |$:.Y2$."".140...| 00000BB0: 96 00 8B C6 28 59 32 24 29 B2 32 30 AF 49 49 B1 |....(Y2$).20.II.| 00000BC0: 31 A7 59 31 24 B2 C8 28 59 31 24 2C C3 28 59 31 |1.Y1$..(Y1$,.(Y1| 00000BD0: 24 29 AB 31 29 3A 49 49 B2 49 49 AB 32 3A 89 32 |$).1):II.II.2:.2| 00000BE0: 35 30 00 05 14 A0 00 8B C6 28 59 32 24 29 B2 31 |50.......(Y2$).1| 00000BF0: 33 AF 49 49 B2 31 AF 51 34 B2 31 A7 8D 32 38 30 |3.II.1.Q4.1..280| 00000C00: 3A 89 31 34 30 00 27 14 AA 00 8B C6 28 59 32 24 |:.140.'.....(Y2$| 00000C10: 29 B3 B1 31 33 AF 49 49 B2 51 33 AA 31 A7 8D 32 |)..13.II.Q3.1..2| 00000C20: 38 30 3A 89 31 34 30 00 3A 14 B4 00 8B C6 28 59 |80:.140.:.....(Y| 00000C30: 32 24 29 B2 31 33 89 32 36 30 00 5D 14 BE 00 8B |2$).13.260.]....| 00000C40: C6 28 59 32 24 29 B3 33 32 B0 C6 28 59 32 24 29 |.(Y2$).32..(Y2$)| 00000C50: B1 39 33 A7 8D 32 38 30 3A 89 31 34 30 00 7A 14 |.93..280:.140.z.| 00000C60: C8 00 8B 51 35 B2 31 AF C6 28 59 32 24 29 B2 34 |...Q5.1..(Y2$).4| 00000C70: 35 AF 49 49 B2 31 89 32 34 30 00 90 14 D2 00 8B |5.II.1.240......| 00000C80: 49 49 B3 B2 51 37 A7 51 37 B2 30 3A 51 36 B2 31 |II..Q7.Q7.0:Q6.1| 00000C90: 00 BA 14 DC 00 8B 51 35 B2 31 AF C6 28 59 32 24 |......Q5.1..(Y2$| 00000CA0: 29 B2 34 36 AF 51 36 B2 31 A7 51 36 B2 30 3A 3A |).46.Q6.1.Q6.0::| 00000CB0: 51 37 B2 49 49 3A 89 32 34 30 00 E7 14 E6 00 8B |Q7.II:.240......| 00000CC0: 51 35 B2 31 AF C6 28 59 32 24 29 B3 34 38 B0 51 |Q5.1..(Y2$).48.Q| 00000CD0: 35 B2 31 AF C6 28 59 32 24 29 B1 35 37 A7 8D 32 |5.1..(Y2$).57..2| 00000CE0: 38 30 3A 89 31 34 30 00 F7 14 F0 00 59 31 24 B2 |80:.140.....Y1$.| 00000CF0: 59 31 24 AA 59 32 24 00 2B 15 FA 00 97 32 31 34 |Y1$.Y2$.+....214| 00000D00: 2C 51 31 3A 97 32 31 31 2C 51 32 3A 99 22 91 22 |,Q1:.211,Q2:."."| 00000D10: 3B C8 28 59 31 24 AA 22 A2 22 AA 59 33 24 2C 51 |;.(Y1$.".".Y3$,Q| 00000D20: 33 29 AA 22 5F 22 3B 3A 82 49 49 00 5B 15 04 01 |3)."_";:.II.[...| 00000D30: 97 32 31 34 2C 51 31 3A 97 32 31 31 2C 51 32 3A |.214,Q1:.211,Q2:| 00000D40: 99 22 91 22 3B 59 31 24 AA C8 28 59 34 24 2C 51 |.".";Y1$..(Y4$,Q| 00000D50: 33 AB C3 28 59 31 24 29 AA 31 29 00 A0 15 0E 01 |3..(Y1$).1).....| 00000D60: 51 31 B2 30 3A 51 32 B2 30 3A 51 33 B2 30 3A 51 |Q1.0:Q2.0:Q3.0:Q| 00000D70: 34 B2 30 3A 51 35 B2 30 3A 51 36 B2 30 3A 51 37 |4.0:Q5.0:Q6.0:Q7| 00000D80: B2 30 3A 97 36 35 30 2C 30 3A 8E 3A 27 B3 AB AB |.0:.650,0:.:'...| 00000D90: AB 20 41 55 53 47 41 4E 47 20 41 55 53 20 55 50 |. AUSGANG AUS UP| 00000DA0: 00 D2 15 18 01 97 35 34 32 39 36 2C 31 35 3A 97 |......54296,15:.| 00000DB0: 35 34 32 37 37 2C 36 3A 97 35 34 32 37 38 2C 30 |54277,6:.54278,0| 00000DC0: 3A 97 35 34 32 37 35 2C 38 3A 97 35 34 32 37 34 |:.54275,8:.54274| 00000DD0: 2C 30 00 0C 16 22 01 97 35 34 32 37 33 2C 39 32 |,0..."..54273,92| 00000DE0: 3A 97 35 34 32 37 32 2C 32 33 37 3A 97 35 34 32 |:.54272,237:.542| 00000DF0: 37 36 2C 36 35 3A 81 4A 4A B2 31 A4 31 35 30 3A |76,65:.JJ.1.150:| 00000E00: 82 4A 4A 3A 97 35 34 32 37 36 2C 30 00 2C 16 2C |.JJ:.54276,0.,.,| 00000E10: 01 8E 3A 27 B3 AB AB AB 20 41 55 53 47 41 4E 47 |..:'.... AUSGANG| 00000E20: 20 41 55 53 20 50 49 45 50 AB 55 50 00 52 16 36 | AUS PIEP.UP.R.6| 00000E30: 01 8F 22 CF B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |..".............| 00000E40: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................| 00000E50: B7 D0 00 78 16 40 01 8F 22 B4 42 45 49 53 50 49 |...x.@..".BEISPI| 00000E60: 45 4C 20 31 20 46 55 45 52 20 44 45 4E 20 41 55 |EL 1 FUER DEN AU| 00000E70: 46 52 55 46 20 3A 20 AA 00 9E 16 4A 01 8F 22 B4 |FRUF : ....J..".| 00000E80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000E90: 20 20 20 20 20 20 20 20 20 20 20 20 20 AA 00 C4 | ...| 00000EA0: 16 54 01 8F 22 B4 31 30 20 59 33 24 3D 27 27 2E |.T..".10 Y3$=''.| 00000EB0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 5F 27 27 3A 59 34 24 |........._'':Y4$| 00000EC0: 3D 27 27 AA 00 EA 16 5E 01 8F 22 B4 20 20 20 20 |=''....^..". | 00000ED0: 20 20 20 20 20 20 20 20 20 27 27 20 20 20 20 20 | '' | 00000EE0: 20 20 20 20 20 20 20 20 20 AA 00 10 17 68 01 8F | ....h..| 00000EF0: 22 B4 32 30 20 50 52 49 4E 54 27 27 93 27 27 3A |".20 PRINT''.'':| 00000F00: 50 4F 4B 45 32 31 34 2C 35 3A 50 4F 4B 45 20 AA |POKE214,5:POKE .| 00000F10: 00 36 17 72 01 8F 22 B4 20 20 20 32 31 31 2C 31 |.6.r..". 211,1| 00000F20: 35 3A 50 52 49 4E 54 27 27 91 4E 41 4D 45 20 3A |5:PRINT''.NAME :| 00000F30: 27 27 20 20 20 AA 00 5C 17 7C 01 8F 22 B4 33 30 |'' ..\.|..".30| 00000F40: 20 51 31 3D 35 3A 51 32 3D 32 33 3A 51 33 3D 31 | Q1=5:Q2=23:Q3=1| 00000F50: 30 3A 47 4F 53 55 42 20 31 30 30 AA 00 82 17 86 |0:GOSUB 100.....| 00000F60: 01 8F 22 B4 34 30 20 50 52 49 4E 54 3A 50 52 49 |..".40 PRINT:PRI| 00000F70: 4E 54 27 27 53 49 45 20 48 45 49 53 53 45 4E 27 |NT''SIE HEISSEN'| 00000F80: 27 AA 00 A8 17 90 01 8F 22 B4 20 20 20 3B 59 31 |'.......". ;Y1| 00000F90: 24 3A 45 4E 44 20 20 20 20 20 20 20 20 20 20 20 |$:END | 00000FA0: 20 20 20 20 20 20 20 AA 00 CE 17 9A 01 8F 22 B4 | .......".| 00000FB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000FC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 AA 00 F4 | ...| 00000FD0: 17 A4 01 8F 22 B4 42 45 49 53 50 49 45 4C 20 32 |....".BEISPIEL 2| 00000FE0: 20 46 55 45 52 20 44 45 4E 20 41 55 46 52 55 46 | FUER DEN AUFRUF| 00000FF0: 20 3A 20 AA 00 1A 18 AE 01 8F 22 B4 20 20 20 20 | : .......". | 00001000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001010: 20 20 20 20 20 20 20 20 20 AA 00 40 18 B8 01 8F | ..@....| 00001020: 22 B4 31 30 20 59 33 24 3D 27 27 2E 2E 2E 2E 2E |".10 Y3$=''.....| 00001030: 2E 2E 2E 2E 2E 5F 27 27 3A 59 34 24 3D 27 27 AA |....._'':Y4$=''.| 00001040: 00 66 18 CC 01 8F 22 B4 32 30 20 50 52 49 4E 54 |.f....".20 PRINT| 00001050: 27 27 93 27 27 3A 50 4F 4B 45 32 31 34 2C 35 3A |''.'':POKE214,5:| 00001060: 50 4F 4B 45 20 AA 00 8C 18 D6 01 8F 22 B4 20 20 |POKE .......". | 00001070: 20 32 31 31 2C 31 35 3A 50 52 49 4E 54 27 27 91 | 211,15:PRINT''.| 00001080: 41 4C 54 45 52 20 3A 27 27 20 20 AA 00 B2 18 E0 |ALTER :'' .....| 00001090: 01 8F 22 B4 33 30 20 51 31 3D 35 3A 51 32 3D 32 |..".30 Q1=5:Q2=2| 000010A0: 34 3A 51 33 3D 31 30 3A 51 34 3D 31 3A 20 20 20 |4:Q3=10:Q4=1: | 000010B0: 20 AA 00 D8 18 EA 01 8F 22 B4 20 20 20 51 35 3D | .......". Q5=| 000010C0: 31 3A 47 4F 53 55 42 20 31 30 30 20 20 20 20 20 |1:GOSUB 100 | 000010D0: 20 20 20 20 20 20 20 AA 00 FE 18 F4 01 8F 22 B4 | .......".| 000010E0: 34 30 20 50 52 49 4E 54 3A 50 52 49 4E 54 27 27 |40 PRINT:PRINT''| 000010F0: 53 49 45 20 53 49 4E 44 27 27 3B 20 20 AA 00 24 |SIE SIND''; ..$| 00001100: 19 FE 01 8F 22 B4 20 20 20 56 41 4C 28 59 31 24 |....". VAL(Y1$| 00001110: 29 3B 27 27 4A 41 48 52 45 20 41 4C 54 27 27 3A |);''JAHRE ALT'':| 00001120: 45 4E 44 AA 00 4A 19 08 02 8F 22 B4 20 20 20 20 |END..J....". | 00001130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001140: 20 20 20 20 20 20 20 20 20 AA 00 70 19 12 02 8F | ..p....| 00001150: 22 B4 48 49 4E 57 45 49 53 20 3A 20 20 20 20 20 |".HINWEIS : | 00001160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 AA | .| 00001170: 00 96 19 1C 02 8F 22 B4 B7 B7 B7 B7 B7 B7 B7 B7 |......".........| 00001180: B7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 00001190: 20 20 20 20 20 AA 00 BC 19 26 02 8F 22 B4 50 4F | ....&..".PO| 000011A0: 4B 45 20 32 31 34 2C 59 20 42 45 57 49 52 4B 54 |KE 214,Y BEWIRKT| 000011B0: 2C 20 44 41 53 53 20 44 45 52 20 AA 00 E2 19 30 |, DASS DER ....0| 000011C0: 02 8F 22 B4 43 55 52 53 4F 52 20 49 4E 20 44 49 |..".CURSOR IN DI| 000011D0: 45 20 5A 45 49 4C 45 20 59 20 53 50 52 49 4E 47 |E ZEILE Y SPRING| 000011E0: 54 AA 00 08 1A 3A 02 8F 22 B4 20 20 20 20 20 20 |T....:..". | 000011F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001200: 20 20 20 20 20 20 20 AA 00 2E 1A 44 02 8F 22 B4 | ....D..".| 00001210: 50 4F 4B 45 20 32 31 31 2C 58 20 42 45 57 49 52 |POKE 211,X BEWIR| 00001220: 4B 54 2C 20 44 41 53 53 20 44 45 52 20 AA 00 54 |KT, DASS DER ..T| 00001230: 1A 4E 02 8F 22 B4 43 55 52 53 4F 52 20 41 4E 20 |.N..".CURSOR AN | 00001240: 44 2E 20 53 50 41 4C 54 45 20 58 20 53 50 52 49 |D. SPALTE X SPRI| 00001250: 4E 47 54 AA 00 7A 1A 58 02 8F 22 CC AF AF AF AF |NGT..z.X..".....| 00001260: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF |................| 00001270: AF AF AF AF AF AF AF AF AF BA 00 00 00 34 |.............4 |
..)...." O..............................
P.Q...." . UP - FORMATIERTE EINGABE
..Y...." L..............................
......." O..............................
P.I...." . Q1 = ZEILE DER EINGABE
......." . Q2 = SPALTE DER EINGABE
......." . Q3 = MAX. LAENGE D. EING.
..A...." . Q4 = 1 _ LEEREINGABE NICHT
..I...." . ERLAUBT
.......". Q5 = 1 _ NUR NUMERISCHE .
......". EINGABE ERLAUBT ..
.....". Q6 = 1 _ BEI NUMERISCHER ...
....". EINGABE IST EIN ..,.
...". PUNKT ERLAUBT ..S..
..". ..Z...
.". Y3$ = MUSS EINMAL AM ANFANG.......
". DES HAUPTPROGRAMMES ..H...."
. DEFINIERT WERDEN. EIN.......".
PUNKTESTRING, DER DIE.......".
LAENGE DER LAENGSTEN ..=....".
EINGABE IM HAUPTPROG...D....".
HAT. ZUSAETZLICH MUSS.......".
AM ENDE DES STRINGS .......".
DAS ZEICHEN '_' ..Y....".
STEHEN. BEISPIEL : .......".
Y3$=''............_''..'....".
..N....". Y4$ =
WIE 'Y3$', JEDOCH ..U....". W
ERDEN STATT PUNKTE .......". SP
ACES GESETZT. DAS ..C....". ZEI
CHEN '_' ENTFAELLT.... ..". BEIS
PIEL : ....!..". Y4$='
' ''..8.".."L...............
................._.#.."O................
..............P...$..". II = LAUFVARI
ABLE ....%..". JJ = LAUFVARIA
BLE ..T.&..". Q7 = ZAEHLER, D
ER ANGIBT, ....'..". AN WELCHER
STELLE EIN..".(..". PUNKT GESETZ
T WURDE ..I.)..".
..P.*..". Y1$ = INHALT DER EIN
GABE ....+..". WIRD VOM UNTERP
ROG. ....,..". AN DAS HAUPTPROG
. ....-..". UEBERGEBEN.
.......".
..3./..". Y2$ = ENTHAELT DAS JEWEIL
S ..Z.0..". EINGEGEBENE ZEICHEN
....1.."L..............................
....2.."O..............................P
.O.3..". FORMATIERTE EINGABE, BEI DER..
..4..". JEDES EINGEGEBENE ZEICHEN ...
.5..". UEBERPRUEFT UND FALLS NOETIG..D.
6..". ZURUECKGEWIESEN WERDEN KANN...K.7
..". DIE ANGEGEBENEN PARAMETER ....8.
.". MUESSEN ZUM TEIL (Q1,Q2,Q3, ....9..
". Y3$,Y4$) EINGEGEBEN WERDEN, ....:.."
. ODER KOENNEN BEI BEDARF ....;..".
UEBERGEBEN WERDEN (Q4,Q5,Q6)....<..".
VOR DEM RUECKSPRUNG INS ..U.=..".
HAUPTPROGRAMM WERDEN ALLE ..|.>..". P
ARAMETER AUF NULL GESETZT. ....?..". DA
S ERGEBNIS DER EINGABE- ..J.@..". ROU
TINE, DIE EINGABE WIRD IN....A..". DER
VARIABLEN 'Y1$' AN DAS ....B..". HAUPT
PROGRAMM UEBERGEBEN. ..?.C.."L........
........................E.D...K.E...Q.F.
..U.D.. ***************************...
F.. *** FORMATIERTE EINGABE ***...H..
*** COPYRIGHT (C) 1984 ***...J.. **
* ROLF HILCHNER ***...L.. ***
RHEYDTER STR.48 ***.).M.. *** 40
40 NEUSS 1 ***.M.N.. **************
*************...X..650,255:Y1$."":Q2.Q2.
1:.214,Q1:.211,Q2:."..";I(Y3$,Q3)......I
I.1.Q3.1......Y2$:.Y2$."".140......F(Y2$
).20.II.1.Y1$.H(Y1$,C(Y1$).1):II.II.2:.2
50... ..F(Y2$).13.II.1.Q4.1..280:.140.'.
...F(Y2$)..13.II.Q3.1..280:.140.:....F(Y
2$).13.260.]....F(Y2$).32.F(Y2$).93..280
:.140.Z.H..Q5.1.F(Y2$).45.II.1.240...R..
II..Q7.Q7.0:Q6.1......Q5.1.F(Y2$).46.Q6.
1.Q6.0::Q7.II:.240......Q5.1.F(Y2$).48.Q
5.1.F(Y2$).57..280:.140.....Y1$.Y1$.Y2$.
+....214,Q1:.211,Q2:.".";H(Y1$.".".Y3$,Q
3)."_";:.II.[....214,Q1:.211,Q2:.".";Y1$
.H(Y4$,Q3.C(Y1$).1). ...Q1.0:Q2.0:Q3.0:Q
4.0:Q5.0:Q6.0:Q7.0:.650,0:.:'.... AUSGAN
G AUS UP.R....54296,15:.54277,6:.54278,0
:.54275,8:.54274,0..."..54273,92:.54272,
237:.54276,65:.JJ.1.150:.JJ:.54276,0.,.,
..:'.... AUSGANG AUS PIEP.UP.R.6.."O....
.........................P.X.@..".BEISPI
EL 1 FUER DEN AUFRUF : ....J..".
..D.T..".10 Y3$=''.
........._'':Y4$=''....^..".
'' ....H..".20 PRINT''.'':
POKE214,5:POKE ..6.R..". 211,15:PRINT'
'.NAME :'' ..\.|..".30 Q1=5:Q2=23:Q3=1
0:GOSUB 100.......".40 PRINT:PRINT''SIE
HEISSEN''.......". ;Y1$:END
..N....".
.......".BEISPIEL 2 FUER DEN AUFRUF
: .......".
..@....".10 Y3$=''.........._'':Y4$=''.
.F.L..".20 PRINT''.'':POKE214,5:POKE ...
.V..". 211,15:PRINT''.ALTER :'' .....
..".30 Q1=5:Q2=24:Q3=10:Q4=1: ..X....
". Q5=1:GOSUB 100 .......".
40 PRINT:PRINT''SIE SIND''; ..$....".
VAL(Y1$);''JAHRE ALT'':END..J....".
..P....".HINWEI
S : .......".........
. ....&..".POKE 214,Y
BEWIRKT, DASS DER ....0..".CURSOR IN DI
E ZEILE Y SPRINGT....:..".
....D..".POKE 211,X BEWIR
KT, DASS DER ..T.N..".CURSOR AN D. SPALT
E X SPRINGT..Z.X.."L....................
.............4
> CLICK IMAGE PREVIEW FOR FULL MODAL