> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 27 08 0A 00 8F 20 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 00 4D 08 14 00 8F 20 2A 2A |*******.M.... **|
00000030: 2A 2A 2A 2A 20 4E 45 55 45 20 49 4E 50 55 54 52 |**** NEUE INPUTR|
00000040: 4F 55 54 49 4E 45 20 2A 2A 2A 2A 2A 2A 00 73 08 |OUTINE ******.s.|
00000050: 1E 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |... ************|
00000060: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000070: 2A 2A 2A 00 99 08 28 00 8F 20 2A 2A 2A 20 28 4B |***...(.. *** (K|
00000080: 29 20 42 45 49 20 58 4F 52 52 4F 4E 20 53 4F 46 |) BEI XORRON SOF|
00000090: 54 57 41 52 45 20 2A 2A 2A 00 BF 08 32 00 8F 20 |TWARE ***...2.. |
000000A0: 2A 2A 20 3C 53 3E 20 20 56 4F 4E 20 47 45 52 48 |** <S> VON GERH|
000000B0: 41 52 44 20 4C 45 49 42 52 4F 43 4B 20 2A 2A 00 |ARD LEIBROCK **.|
000000C0: E5 08 3C 00 8F 20 2A 2A 2A 2A 2A 20 20 32 31 2F |..<.. ***** 21/|
000000D0: 30 36 2F 31 39 38 35 20 49 4E 20 44 45 52 20 20 |06/1985 IN DER |
000000E0: 2A 2A 2A 2A 2A 00 0B 09 46 00 8F 20 2A 2A 2A 2A |*****...F.. ****|
000000F0: 2A 20 46 52 41 4E 5A 4F 45 53 49 53 43 48 2D 53 |* FRANZOESISCH-S|
00000100: 54 55 4E 44 45 20 2A 2A 2A 2A 2A 00 31 09 50 00 |TUNDE *****.1.P.|
00000110: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00000120: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000130: 2A 00 66 09 5A 00 97 35 33 32 38 31 2C 31 32 3A |*.f.Z..53281,12:|
00000140: 97 35 33 32 38 30 2C 31 31 3A 97 36 34 36 2C 30 |.53280,11:.646,0|
00000150: 3A 99 22 93 22 3B A6 31 35 29 22 49 4E 50 55 54 |:.".";.15)"INPUT|
00000160: 20 31 39 38 35 22 00 91 09 6E 00 99 22 11 4D 49 | 1985"...n..".MI|
00000170: 54 20 48 49 4C 46 45 20 44 49 45 53 45 52 20 53 |T HILFE DIESER S|
00000180: 45 48 52 20 4B 4F 4D 46 4F 52 54 41 42 4C 45 4E |EHR KOMFORTABLEN|
00000190: 22 00 BE 09 78 00 99 22 55 4E 54 45 52 52 4F 55 |"...x.."UNTERROU|
000001A0: 54 49 4E 45 20 49 53 54 20 45 53 20 44 45 4D 20 |TINE IST ES DEM |
000001B0: 50 52 4F 47 52 41 4D 4D 49 45 52 45 52 22 00 ED |PROGRAMMIERER"..|
000001C0: 09 82 00 99 22 4D 4F 45 47 4C 49 43 48 2C 45 4E |...."MOEGLICH,EN|
000001D0: 54 57 45 44 45 52 20 4E 55 52 20 5A 41 48 4C 45 |TWEDER NUR ZAHLE|
000001E0: 4E 20 4F 44 45 52 20 42 55 43 48 2D 22 00 07 0A |N ODER BUCH-"...|
000001F0: 8C 00 99 22 53 54 41 42 45 4E 20 45 49 4E 5A 55 |..."STABEN EINZU|
00000200: 47 45 42 45 4E 2E 22 00 2F 0A 96 00 99 22 12 2D |GEBEN."./....".-|
00000210: 2D 3E 20 4B 45 49 4E 45 20 4D 49 53 43 48 55 4E |-> KEINE MISCHUN|
00000220: 47 20 4D 4F 45 47 4C 49 43 48 20 3C 2D 2D 22 00 |G MOEGLICH <--".|
00000230: 5D 0A A0 00 99 22 44 49 45 20 4C 41 45 4E 47 45 |]...."DIE LAENGE|
00000240: 20 44 45 53 20 45 49 4E 47 41 42 45 53 54 52 49 | DES EINGABESTRI|
00000250: 4E 47 53 20 57 49 52 44 20 56 4F 4D 22 00 86 0A |NGS WIRD VOM"...|
00000260: AA 00 99 22 11 50 52 4F 47 52 41 4D 4D 49 45 52 |...".PROGRAMMIER|
00000270: 45 52 20 53 45 4C 42 53 54 20 46 45 53 54 47 45 |ER SELBST FESTGE|
00000280: 4C 45 47 54 2E 22 00 B0 0A B4 00 99 22 11 44 49 |LEGT."......".DI|
00000290: 45 20 45 49 4E 47 41 42 45 20 4C 49 45 47 54 20 |E EINGABE LIEGT |
000002A0: 44 41 4E 4E 20 49 4E 20 42 24 20 56 4F 52 2E 22 |DANN IN B$ VOR."|
000002B0: 00 DE 0A BE 00 99 22 11 53 49 45 20 4B 4F 45 4E |......".SIE KOEN|
000002C0: 4E 45 4E 20 44 49 45 20 52 4F 55 54 49 4E 45 20 |NEN DIE ROUTINE |
000002D0: 4F 48 4E 45 20 57 45 49 54 45 52 45 53 22 00 0B |OHNE WEITERES"..|
000002E0: 0B C8 00 99 22 11 49 4E 20 49 48 52 45 4E 20 50 |....".IN IHREN P|
000002F0: 52 4F 47 52 41 4D 4D 45 4E 20 56 45 52 57 45 4E |ROGRAMMEN VERWEN|
00000300: 44 45 4E 2C 4A 45 44 4F 43 48 22 00 3A 0B D2 00 |DEN,JEDOCH".:...|
00000310: 99 22 11 4D 55 53 53 20 49 4D 20 50 52 4F 47 52 |.".MUSS IM PROGR|
00000320: 41 4D 4D 20 5A 55 20 45 52 4B 45 4E 4E 45 4E 20 |AMM ZU ERKENNEN |
00000330: 53 45 49 4E 2C 44 41 53 53 22 00 73 0B DC 00 99 |SEIN,DASS".s....|
00000340: 22 11 44 49 45 20 55 4E 54 45 52 52 4F 55 54 49 |".DIE UNTERROUTI|
00000350: 4E 45 20 56 4F 4E 20 47 45 52 48 41 52 44 20 4C |NE VON GERHARD L|
00000360: 45 49 42 52 4F 43 4B 20 11 1D 1D 53 54 41 4D 4D |EIBROCK ...STAMM|
00000370: 54 2E 22 00 8B 0B E6 00 99 22 11 2A 2A 2D 3E 20 |T."......".**-> |
00000380: 54 41 53 54 45 20 3C 2D 2A 2A 22 00 9E 0B F0 00 |TASTE <-**".....|
00000390: A1 41 24 3A 8B 41 24 B2 22 22 A7 32 34 30 00 B8 |.A$:.A$."".240..|
000003A0: 0B FA 00 99 22 93 22 3B A6 31 35 29 22 49 4E 50 |....".";.15)"INP|
000003B0: 55 54 20 31 39 38 35 22 00 C7 0B 04 01 99 22 11 |UT 1985"......".|
000003C0: 11 44 45 4D 4F 20 22 00 DF 0B 0E 01 99 22 11 12 |.DEMO "......"..|
000003D0: 31 92 20 4E 55 52 20 5A 41 48 4C 45 4E 2E 22 00 |1. NUR ZAHLEN.".|
000003E0: F5 0B 18 01 99 22 11 49 4E 24 3D 22 5A 22 3A 4D |.....".IN$="Z":M|
000003F0: 41 58 3D 34 22 00 3C 0C 22 01 99 22 11 2D 2D 3E |AX=4".<."..".-->|
00000400: 12 49 4E 92 49 54 49 41 4C 49 45 53 49 45 52 54 |.IN.ITIALIESIERT|
00000410: 20 44 49 45 20 5A 41 48 4C 45 4E 45 49 4E 47 41 | DIE ZAHLENEINGA|
00000420: 42 45 2C 20 20 20 20 12 4D 41 58 92 49 4D 41 4C |BE, .MAX.IMAL|
00000430: 20 34 20 53 54 45 4C 4C 49 47 2E 22 00 53 0C 2C | 4 STELLIG.".S.,|
00000440: 01 49 4E 24 B2 22 5A 22 3A 4D 41 58 B2 34 3A 8D |.IN$."Z":MAX.4:.|
00000450: 34 30 30 00 70 0C 36 01 99 3A 99 22 11 53 49 45 |400.p.6..:.".SIE|
00000460: 20 47 41 42 45 4E 20 22 42 24 22 45 49 4E 2E 22 | GABEN "B$"EIN."|
00000470: 00 89 0C 40 01 99 22 11 12 32 92 20 4E 55 52 20 |...@.."..2. NUR |
00000480: 4C 45 54 54 45 52 4E 2E 22 00 A0 0C 4A 01 99 22 |LETTERN."...J.."|
00000490: 11 49 4E 24 3D 22 42 22 3A 4D 41 58 3D 31 30 22 |.IN$="B":MAX=10"|
000004A0: 00 E9 0C 54 01 99 22 11 2D 2D 3E 12 49 4E 92 49 |...T..".-->.IN.I|
000004B0: 54 49 41 4C 49 45 53 49 45 52 54 20 44 49 45 20 |TIALIESIERT DIE |
000004C0: 4C 45 54 54 45 52 4E 45 49 4E 47 41 42 45 2C 20 |LETTERNEINGABE, |
000004D0: 20 20 20 12 4D 41 58 92 49 4D 41 4C 20 31 30 20 | .MAX.IMAL 10 |
000004E0: 53 54 45 4C 4C 49 47 2E 22 00 06 0D 5E 01 49 4E |STELLIG."...^.IN|
000004F0: 24 B2 22 22 3A 4D 41 58 B2 31 30 3A 42 24 B2 22 |$."":MAX.10:B$."|
00000500: 22 3A 8D 34 30 30 00 1D 0D 68 01 99 22 11 11 45 |":.400...h.."..E|
00000510: 49 4E 47 41 42 45 3A 20 22 42 24 3A 80 00 34 0D |INGABE: "B$:..4.|
00000520: 90 01 8F 20 2A 2A 20 49 4E 50 55 54 20 31 39 38 |... ** INPUT 198|
00000530: 35 20 2A 2A 00 59 0D 9A 01 8B 20 49 4E 24 B2 22 |5 **.Y.... IN$."|
00000540: 5A 22 A7 4D 49 4E 24 B2 22 30 22 3A 4D 41 58 24 |Z".MIN$."0":MAX$|
00000550: B2 22 39 22 3A 89 34 33 30 00 6F 0D A4 01 4D 49 |."9":.430.o...MI|
00000560: 4E 24 B2 22 41 22 3A 4D 41 58 24 B2 22 5A 22 00 |N$."A":MAX$."Z".|
00000570: 89 0D AE 01 97 32 30 34 2C 30 3A A1 41 24 3A 8B |.....204,0:.A$:.|
00000580: 41 24 B2 22 22 A7 34 33 30 00 BF 0D B8 01 8B 20 |A$."".430...... |
00000590: 41 24 20 B3 20 4D 49 4E 24 20 B0 20 41 24 20 B1 |A$ . MIN$ . A$ .|
000005A0: 20 4D 41 58 24 20 A7 8B 41 24 B3 B1 C7 28 32 30 | MAX$ ..A$...(20|
000005B0: 29 AF 41 24 B3 B1 C7 28 31 33 29 A7 34 33 30 00 |).A$...(13).430.|
000005C0: D2 0D C2 01 8B 41 24 B3 B1 C7 28 32 30 29 A7 34 |.....A$...(20).4|
000005D0: 39 30 00 E3 0D CC 01 8B C3 28 42 24 29 B1 30 A7 |90.......(B$).0.|
000005E0: 34 38 30 00 EC 0D D6 01 89 34 33 30 00 10 0E E0 |480......430....|
000005F0: 01 42 24 B2 C8 28 42 24 2C C3 28 42 24 29 AB 31 |.B$..(B$,.(B$).1|
00000600: 29 3A 99 22 9D 20 20 9D 9D 22 3B 3A 89 34 33 30 |):.". ..";:.430|
00000610: 00 23 0E EA 01 8B 41 24 B3 B1 C7 28 31 33 29 A7 |.#....A$...(13).|
00000620: 35 32 30 00 33 0E F4 01 8B C2 28 32 30 37 29 A7 |520.3.....(207).|
00000630: 35 30 30 00 39 0E FE 01 8E 00 4C 0E 08 02 8B C3 |500.9.....L.....|
00000640: 28 42 24 29 B2 4D 41 58 A7 34 33 30 00 63 0E 12 |(B$).MAX.430.c..|
00000650: 02 42 24 B2 42 24 AA 41 24 3A 99 41 24 3B 3A 89 |.B$.B$.A$:.A$;:.|
00000660: 34 33 30 00 00 00 |430... |
..'.... *******************************.
M.... ****** NEUE INPUTROUTINE ******.S.
... *******************************...(.
. *** (K) BEI XORRON SOFTWARE ***...2..
** <S> VON GERHARD LEIBROCK **...<.. **
*** 21/06/1985 IN DER *****...F.. ****
* FRANZOESISCH-STUNDE *****.1.P.. ******
*************************.F.Z..53281,12:
.53280,11:.646,0:.".";.15)"INPUT 1985"..
.N..".MIT HILFE DIESER SEHR KOMFORTABLEN
"...X.."UNTERROUTINE IST ES DEM PROGRAMM
IERER"......"MOEGLICH,ENTWEDER NUR ZAHLE
N ODER BUCH-"......"STABEN EINZUGEBEN.".
/....".--> KEINE MISCHUNG MOEGLICH <--".
]. .."DIE LAENGE DES EINGABESTRINGS WIRD
VOM"......".PROGRAMMIERER SELBST FESTGE
LEGT."......".DIE EINGABE LIEGT DANN IN
B$ VOR."......".SIE KOENNEN DIE ROUTINE
OHNE WEITERES"...H..".IN IHREN PROGRAMME
N VERWENDEN,JEDOCH".:.R..".MUSS IM PROGR
AMM ZU ERKENNEN SEIN,DASS".S....".DIE UN
TERROUTINE VON GERHARD LEIBROCK ...STAMM
T."......".**-> TASTE <-**"......A$:.A$.
"".240......".";.15)"INPUT 1985".G....".
.DEMO "......"..1. NUR ZAHLEN."......".I
N$="Z":MAX=4".<."..".-->.IN.ITIALIESIERT
DIE ZAHLENEINGABE, .MAX.IMAL 4 STELL
IG.".S.,.IN$."Z":MAX.4:.400.P.6..:.".SIE
GABEN "B$"EIN."...@.."..2. NUR LETTERN.
". .J..".IN$="B":MAX=10"...T..".-->.IN.I
TIALIESIERT DIE LETTERNEINGABE, .MAX.
IMAL 10 STELLIG."...^.IN$."":MAX.10:B$."
":.400...H.."..EINGABE: "B$:..4.... ** I
NPUT 1985 **.Y.... IN$."Z".MIN$."0":MAX$
."9":.430.O...MIN$."A":MAX$."Z"......204
,0:.A$:.A$."".430...... A$ . MIN$ . A$ .
MAX$ ..A$..G(20).A$..G(13).430.R.B..A$.
.G(20).490...L..C(B$).0.480...V..430....
.B$.H(B$,C(B$).1):.". ..";:.430.#....A$
..G(13).520.3....B(207).500.9.....L....C
(B$).MAX.430.C...B$.B$.A$:.A$;:.430...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL