00000000: 00 40 2E 2E 2E 20 20 20 20 20 20 20 20 20 20 20 |.@... |
00000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000030: 20 20 20 20 20 20 20 32 35 20 50 52 49 4E 54 22 | 25 PRINT"|
00000040: C2 49 54 54 45 20 44 52 55 45 43 4B 45 4E 20 D3 |.ITTE DRUECKEN .|
00000050: 49 45 3A 20 22 20 20 20 20 20 20 20 20 20 20 20 |IE: " |
00000060: 20 20 20 20 20 20 20 20 20 20 20 20 32 36 20 50 | 26 P|
00000070: 52 49 4E 54 22 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |RINT"===========|
00000080: 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 20 20 20 20 20 20 |=========" |
00000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000A0: 20 33 30 20 50 52 49 4E 54 22 20 C6 31 20 20 2D | 30 PRINT" .1 -|
000000B0: 20 C1 55 53 47 41 42 45 20 44 45 52 20 CC 49 53 | .USGABE DER .IS|
000000C0: 54 45 20 41 55 46 20 C4 52 55 43 4B 45 52 22 20 |TE AUF .RUCKER" |
000000D0: 20 20 20 20 20 20 34 30 20 50 52 49 4E 54 22 20 | 40 PRINT" |
000000E0: C6 37 20 20 2D 20 C1 55 53 47 41 42 45 20 44 45 |.7 - .USGABE DE|
000000F0: 52 20 CC 49 53 54 45 20 41 55 46 20 C2 49 4C 44 |R .ISTE AUF .ILD|
00000100: 53 43 48 49 52 4D 22 20 20 20 20 35 30 20 50 52 |SCHIRM" 50 PR|
00000110: 49 4E 54 22 20 20 C5 20 20 2D 20 46 87 52 20 D0 |INT" . - F.R .|
00000120: 52 4F 47 52 41 4D 4D 45 4E 44 45 22 20 20 20 20 |ROGRAMMENDE" |
00000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000140: 36 30 20 47 45 54 20 41 24 3A 49 46 20 41 24 3D |60 GET A$:IF A$=|
00000150: 22 22 54 48 45 4E 20 36 30 20 20 20 20 20 20 20 |""THEN 60 |
00000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 C9 | .|
000001E0: 4E 20 20 44 45 4E 20 DA 45 49 4C 45 4E 20 32 35 |N DEN .EILEN 25|
000001F0: 2D 35 30 20 57 49 52 44 20 45 52 53 54 20 45 49 |-50 WIRD ERST EI|
00000200: 4E 4D 41 4C 20 44 45 52 20 D4 45 58 54 20 5A 55 |NMAL DER .EXT ZU|
00000210: 20 55 4E 2D 53 45 52 45 4D 20 CD 45 4E 87 20 41 | UN-SEREM .EN. A|
00000220: 55 46 20 44 45 4D 20 20 C2 49 4C 44 53 43 48 49 |UF DEM .ILDSCHI|
00000230: 52 4D 20 20 41 55 53 47 45 47 45 42 45 4E 2E 20 |RM AUSGEGEBEN. |
00000240: 20 D7 49 45 20 20 44 41 53 44 41 4E 4E 20 41 55 | .IE DASDANN AU|
00000250: 53 53 49 45 48 54 20 48 41 42 45 4E 20 57 49 52 |SSIEHT HABEN WIR|
00000260: 20 4F 42 45 4E 20 4A 41 20 53 43 48 4F 4E 20 45 | OBEN JA SCHON E|
00000270: 49 4E 4D 41 4C 20 47 45 53 45 48 45 4E 2E C9 4E |INMAL GESEHEN..N|
00000280: 20 20 DA 45 49 4C 45 20 20 36 30 20 48 41 42 45 | .EILE 60 HABE|
00000290: 4E 20 57 49 52 20 4A 45 54 5A 54 20 55 4E 53 45 |N WIR JETZT UNSE|
000002A0: 52 45 4E 20 C7 C5 D4 2D C2 45 46 45 48 4C 2E 20 |REN ...-.EFEHL. |
000002B0: D7 49 45 D3 49 45 20 53 45 48 45 4E 2C 20 53 54 |.IE.IE SEHEN, ST|
000002C0: 45 48 54 20 49 48 4D 20 44 49 45 20 D3 54 52 49 |EHT IHM DIE .TRI|
000002D0: 4E 47 2D D6 41 52 49 41 42 4C 45 20 27 41 24 27 |NG-.ARIABLE 'A$'|
000002E0: 20 4E 41 43 48 2E 20 20 20 20 20 20 20 20 20 20 | NACH. |
000002F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000300: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000310: 20 20 20 20 20 20 20 20 20 20 20 20 20 C4 49 45 | .IE|
00000320: 20 20 D4 41 53 54 45 2C 20 20 44 49 45 20 41 4C | .ASTE, DIE AL|
00000330: 53 4F 20 41 55 46 20 44 45 52 20 D4 41 53 54 41 |SO AUF DER .ASTA|
00000340: 54 55 52 20 47 45 44 52 87 43 4B 54 20 57 49 52 |TUR GEDR.CKT WIR|
00000350: 44 2C 57 49 52 44 20 49 4D 20 C1 D3 C3 C9 C9 2D |D,WIRD IM .....-|
00000360: C3 4F 44 45 20 49 4E 20 44 49 45 53 45 52 20 D3 |.ODE IN DIESER .|
00000370: 54 52 49 4E 47 56 41 52 49 41 42 4C 45 4E 20 20 |TRINGVARIABLEN |
00000380: 47 45 53 50 45 49 2D 43 48 45 52 54 2E 20 C8 49 |GESPEI-CHERT. .I|
00000390: 45 52 20 4B 86 4E 4E 54 45 20 4E 41 54 87 52 4C |ER K.NNTE NAT.RL|
000003A0: 49 43 48 20 41 55 43 48 20 4A 45 44 45 20 41 4E |ICH AUCH JEDE AN|
000003B0: 44 45 52 45 20 D3 54 52 49 4E 47 2D 56 41 52 49 |DERE .TRING-VARI|
000003C0: 41 42 4C 45 20 53 54 45 48 45 4E 2C 20 4E 49 43 |ABLE STEHEN, NIC|
000003D0: 48 54 20 20 41 42 45 52 20 20 45 49 4E 45 20 20 |HT ABER EINE |
000003E0: CE 55 4D 45 52 49 53 43 48 45 2C 20 20 4F 44 45 |.UMERISCHE, ODE|
000003F0: 52 45 49 4E 45 20 C9 4E 54 47 45 52 56 41 52 49 |REINE .NTGERVARI|
00000400: 41 42 4C 45 2E 20 20 20 20 20 20 20 20 20 20 20 |ABLE. |
00000410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000440: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000450: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000470: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000480: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000490: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004C0: 20 20 20 20 20 | |
.@...
25 PRINT"BITTE DRUECKEN S
IE: " 26 PRINT"===
================="
30 PRINT" F1 - AUSGABE DER LISTE AUF D
RUCKER" 40 PRINT" F7 - AUSGABE DE
R LISTE AUF BILDSCHIRM" 50 PRINT" E
- F.R PROGRAMMENDE"
60 GET A$:IF A$=""THEN 60
I
N DEN ZEILEN 25-50 WIRD ERST EINMAL DER
TEXT ZU UN-SEREM MEN. AUF DEM BILDSCHI
RM AUSGEGEBEN. WIE DASDANN AUSSIEHT H
ABEN WIR OBEN JA SCHON EINMAL GESEHEN.IN
ZEILE 60 HABEN WIR JETZT UNSEREN GET-
BEFEHL. WIESIE SEHEN, STEHT IHM DIE STRI
NG-VARIABLE 'A$' NACH.
DIE
TASTE, DIE ALSO AUF DER TASTATUR GEDR
.CKT WIRD,WIRD IM ASCII-CODE IN DIESER S
TRINGVARIABLEN GESPEI-CHERT. HIER K.NNT
E NAT.RLICH AUCH JEDE ANDERE STRING-VARI
ABLE STEHEN, NICHT ABER EINE NUMERISC
HE, ODEREINE INTGERVARIABLE.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL