00000000: 00 40 36 30 20 47 45 54 20 41 24 3A 49 46 20 41 |.@60 GET A$:IF A|
00000010: 24 3D 22 22 20 54 48 45 4E 20 36 30 20 20 20 20 |$="" THEN 60 |
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 37 30 20 4F 4E 20 41 53 43 | 70 ON ASC|
00000040: 28 41 24 29 2D 34 38 20 47 4F 54 4F 20 32 30 30 |(A$)-48 GOTO 200|
00000050: 2C 33 30 30 2C 34 30 30 20 20 20 20 20 20 20 20 |,300,400 |
00000060: 20 20 20 20 20 20 20 20 20 20 20 20 38 30 20 47 | 80 G|
00000070: 4F 54 4F 20 36 30 20 20 20 20 20 20 20 20 20 20 |OTO 60 |
00000080: 20 20 20 20 20 20 20 20 20 20 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000D0: 20 20 20 20 20 20 C8 49 45 52 20 48 41 42 45 4E | .IER HABEN|
000000E0: 20 D3 49 45 20 44 41 4E 4E 20 41 55 43 48 20 45 | .IE DANN AUCH E|
000000F0: 49 4E 20 20 C2 45 49 53 50 49 45 4C 2C 20 20 49 |IN .EISPIEL, I|
00000100: 4E 20 20 44 45 4D 20 20 57 49 52 45 49 4E 45 20 |N DEM WIREINE |
00000110: 20 47 41 4E 5A 45 20 C6 4F 52 4D 45 4C 20 42 45 | GANZE .ORMEL BE|
00000120: 4E 55 54 5A 45 4E 2C 20 44 49 45 20 5A 55 45 52 |NUTZEN, DIE ZUER|
00000130: 53 54 20 42 45 52 45 43 48 4E 45 54 20 55 4E 44 |ST BERECHNET UND|
00000140: 44 41 4E 4E 20 41 55 53 47 45 57 45 52 54 45 54 |DANN AUSGEWERTET|
00000150: 20 57 49 52 44 2E 20 D7 49 52 20 48 41 42 45 4E | WIRD. .IR HABEN|
00000160: 20 44 41 42 45 49 20 44 49 45 2C 20 55 4E 53 20 | DABEI DIE, UNS |
00000170: 4D 49 54 54 2D 4C 45 52 57 45 49 4C 45 20 20 53 |MITT-LERWEILE S|
00000180: 43 48 4F 4E 20 41 4C 54 42 45 4B 41 4E 4E 54 45 |CHON ALTBEKANNTE|
00000190: 2C 20 C1 D3 C3 2D C1 4E 57 45 49 53 55 4E 47 20 |, ...-.NWEISUNG |
000001A0: 41 4E 47 45 57 41 4E 44 54 2C 55 4D 20 44 45 4E |ANGEWANDT,UM DEN|
000001B0: 20 C3 C8 D2 24 2D C3 4F 44 45 20 44 45 52 20 49 | ...$-.ODE DER I|
000001C0: 4E 20 27 41 24 27 20 47 45 53 50 45 49 43 48 45 |N 'A$' GESPEICHE|
000001D0: 52 54 45 4E 20 20 D4 41 53 54 45 20 20 5A 55 45 |RTEN .ASTE ZUE|
000001E0: 52 46 41 48 52 45 4E 2E 20 20 20 20 20 20 20 20 |RFAHREN. |
000001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000240: 20 20 20 20 20 20 20 20 20 D7 49 45 20 45 49 4E | .IE EIN|
00000250: 47 41 4E 47 53 20 53 43 48 4F 4E 20 45 52 57 85 |GANGS SCHON ERW.|
00000260: 48 4E 54 2C 20 4B 86 4E 4E 54 45 4E 20 D3 49 45 |HNT, K.NNTEN .IE|
00000270: 20 48 49 45 52 20 41 55 43 48 20 44 45 4E C7 CF | HIER AUCH DEN..|
00000280: D3 D5 C2 2D C2 45 46 45 48 4C 20 56 45 52 57 45 |...-.EFEHL VERWE|
00000290: 4E 44 45 4E 2C 20 4E 55 52 20 4D 87 53 53 45 4E |NDEN, NUR M.SSEN|
000002A0: 20 D3 49 45 20 44 41 4E 4E 20 C9 48 52 45 20 20 | .IE DANN .HRE |
000002B0: CD 4F 2D 44 55 4C 45 20 41 55 43 48 20 4D 49 54 |.O-DULE AUCH MIT|
000002C0: 20 D2 C5 D4 D5 D2 CE 20 57 49 45 44 45 52 20 41 | ...... WIEDER A|
000002D0: 42 53 43 48 4C 49 45 88 45 4E 2E 20 C4 45 4E 4B |BSCHLIE.EN. .ENK|
000002E0: 42 41 52 20 57 85 52 45 41 55 43 48 2C 20 20 44 |BAR W.REAUCH, D|
000002F0: 41 88 20 4D 41 4E 20 4D 49 54 20 C2 55 43 48 53 |A. MAN MIT .UCHS|
00000300: 54 41 42 45 4E 20 44 49 45 20 D4 41 53 54 45 4E |TABEN DIE .ASTEN|
00000310: 20 41 42 46 52 85 47 54 2C 20 57 4F 2D 42 45 49 | ABFR.GT, WO-BEI|
00000320: 20 4D 41 4E 20 41 4C 50 48 41 42 45 54 49 53 43 | MAN ALPHABETISC|
00000330: 48 20 56 4F 52 47 45 48 54 2E 20 C4 41 20 44 45 |H VORGEHT. .A DE|
00000340: 52 20 20 C1 D3 C3 C9 C9 2D C3 4F 44 45 20 20 44 |R .....-.ODE D|
00000350: 45 53 DA 45 49 43 48 45 4E 53 20 27 41 27 20 44 |ES.EICHENS 'A' D|
00000360: 45 4E 20 D7 45 52 54 20 36 35 20 48 41 54 2C 20 |EN .ERT 65 HAT, |
00000370: 4D 87 88 54 45 4E 20 D3 49 45 20 48 49 45 52 20 |M..TEN .IE HIER |
00000380: 4E 55 52 20 44 45 4E D7 45 52 54 20 20 36 34 20 |NUR DEN.ERT 64 |
00000390: 53 55 42 54 52 41 48 49 45 52 45 4E 2C 20 55 4D |SUBTRAHIEREN, UM|
000003A0: 20 42 52 41 55 43 48 42 41 52 45 20 DA 41 48 4C | BRAUCHBARE .AHL|
000003B0: 57 45 52 54 45 20 46 87 52 20 CF CE 48 45 52 41 |WERTE F.R ..HERA|
000003C0: 55 53 5A 55 42 45 4B 4F 4D 4D 45 4E 2E 20 20 20 |USZUBEKOMMEN. |
000003D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000400: 20 20 20 20 20 20 20 20 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 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 | |
.@60 GET A$:IF A$="" THEN 60
70 ON ASC(A$)-48 GOTO 200
,300,400 80 GOTO 60
HIER HABEN SIE DANN AUCH E
IN BEISPIEL, IN DEM WIREINE GANZE F
ORMEL BENUTZEN, DIE ZUERST BERECHNET UND
DANN AUSGEWERTET WIRD. WIR HABEN DABEI D
IE, UNS MITT-LERWEILE SCHON ALTBEKANNTE
, ASC-ANWEISUNG ANGEWANDT,UM DEN CHR$-CO
DE DER IN 'A$' GESPEICHERTEN TASTE ZUE
RFAHREN.
WIE EINGANGS SC
HON ERW.HNT, K.NNTEN SIE HIER AUCH DENGO
SUB-BEFEHL VERWENDEN, NUR M.SSEN SIE DAN
N IHRE MO-DULE AUCH MIT RETURN WIEDER A
BSCHLIE.EN. DENKBAR W.REAUCH, DA. MAN M
IT BUCHSTABEN DIE TASTEN ABFR.GT, WO-BEI
MAN ALPHABETISCH VORGEHT. DA DER ASCII
-CODE DESZEICHENS 'A' DEN WERT 65 HAT,
M..TEN SIE HIER NUR DENWERT 64 SUBTRAHI
EREN, UM BRAUCHBARE ZAHLWERTE F.R ONHERA
USZUBEKOMMEN.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL