00000000: 40 7C 13 13 93 9E 12 20 20 20 C4 41 53 20 22 41 |@|..... .AS "A|
00000010: 53 43 28 47 45 54 29 20 2F 20 24 37 46 39 42 22 |SC(GET) / $7F9B"|
00000020: 2D 4D 50 20 49 53 54 20 49 4D 20 C2 41 4E 4B 2D |-MP IST IM .ANK-|
00000030: 30 2D D2 C1 CD 20 56 45 52 53 43 48 49 45 42 42 |0-... VERSCHIEBB|
00000040: 41 52 20 42 49 53 20 24 30 37 46 39 42 20 20 20 |AR BIS $07F9B |
00000050: 20 0D 09 C6 52 45 49 52 BB 55 4D 45 3A 20 24 30 | ...REIR.UME: $0|
00000060: 43 30 30 2D 24 30 46 46 46 2C 20 24 31 33 30 30 |C00-$0FFF, $1300|
00000070: 2D C2 41 53 49 43 53 54 41 52 54 2C 20 C2 41 53 |-.ASICSTART, .AS|
00000080: 49 43 45 4E 44 45 2D 24 37 46 39 42 0D C4 41 53 |ICENDE-$7F9B..AS|
00000090: 20 4D 50 20 48 41 54 20 31 30 31 20 C2 59 54 45 | MP HAT 101 .YTE|
000000A0: 53 3A 20 24 37 46 39 42 2D 24 37 46 46 46 20 A1 |S: $7F9B-$7FFF .|
000000B0: 20 20 0F D3 4F 4C 4C 20 45 53 20 44 4F 52 54 20 | ..OLL ES DORT |
000000C0: 42 4C 45 49 42 45 4E 8F 20 20 20 20 20 20 20 3F |BLEIBEN. ?|
000000D0: 20 24 0D 0D C4 49 45 20 C2 C1 D3 C9 C3 2D D2 4F | $...IE .....-.O|
000000E0: 55 54 49 4E 45 20 4C 41 55 54 45 54 3A 20 20 20 |UTINE LAUTET: |
000000F0: 20 43 48 41 52 31 2C 53 50 2C 5A 45 2C 4B 24 3A | CHAR1,SP,ZE,K$:|
00000100: 42 41 4E 4B 20 30 3A 53 59 53 20 20 20 20 20 20 |BANK 0:SYS |
00000110: 3A 52 52 45 47 58 3A 52 45 54 55 52 4E 0D 09 09 |:RREGX:RETURN...|
00000120: 20 20 20 20 4F 44 45 52 3A 20 20 20 20 2E 2E 2E | ODER: ...|
00000130: 2E 2E 3A 50 52 49 4E 54 4B 24 3B 3A 42 41 4E 4B |..:PRINTK$;:BANK|
00000140: 20 30 3A 53 59 53 20 20 20 20 20 20 3A 52 52 45 | 0:SYS :RRE|
00000150: 47 58 3A 52 45 54 55 52 4E 0D 09 09 09 09 20 20 |GX:RETURN..... |
00000160: 20 20 20 D3 43 48 52 45 49 42 45 4E 20 D3 49 45 | .CHREIBEN .IE|
00000170: 20 53 59 53 20 2E 2E 2E 2E 2E 20 44 45 5A 49 4D | SYS ..... DEZIM|
00000180: 41 4C 0D 0D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 20 |AL..=========== |
00000190: 4B 24 20 3D 20 41 53 43 28 47 45 54 29 2D D3 43 |K$ = ASC(GET)-.C|
000001A0: 48 45 4D 41 20 20 02 4D 55 BE 20 35 20 4F 44 45 |HEMA .MU. 5 ODE|
000001B0: 52 20 33 20 DA 45 49 43 48 45 4E 20 48 41 42 45 |R 3 .EICHEN HABE|
000001C0: 4E 82 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D |N. ============.|
000001D0: 5A C2 2E 20 20 3C 4A 2F 4E 3E 20 20 20 20 46 BD |Z.. <J/N> F.|
000001E0: 52 20 4A 20 4F 44 45 52 20 4E 20 20 20 20 20 20 |R J ODER N |
000001F0: AA 0D 20 20 20 20 20 3C 4A 2D 4E 3E 20 20 20 20 |.. <J-N> |
00000200: 46 BD 52 20 4A 20 42 49 53 20 4E 20 20 20 20 20 |F.R J BIS N |
00000210: 20 20 A1 20 20 20 C4 49 45 20 DA 45 49 43 48 45 | . .IE .EICHE|
00000220: 4E 46 4F 4C 47 45 20 49 4E 20 3C 3E 20 57 49 52 |NFOLGE IN <> WIR|
00000230: 44 0D 20 20 20 20 20 3C 31 2D 35 3E 20 20 20 20 |D. <1-5> |
00000240: 46 BD 52 20 31 20 42 49 53 20 35 20 20 20 20 20 |F.R 1 BIS 5 |
00000250: 20 20 A5 20 20 20 49 4D 20 53 59 53 2D C2 45 46 | . IM SYS-.EF|
00000260: 45 48 4C 20 41 42 47 45 46 52 41 47 54 20 55 4E |EHL ABGEFRAGT UN|
00000270: 44 0D 20 20 20 20 20 3C C1 3E 20 20 20 20 20 20 |D. <.> |
00000280: 27 C1 27 20 45 49 4E 47 45 42 45 4E 20 20 20 20 |'.' EINGEBEN |
00000290: 20 20 A1 20 20 20 44 49 45 20 C5 49 4E 47 41 42 | . DIE .INGAB|
000002A0: 45 20 49 4E 20 58 20 41 55 53 47 45 47 45 42 45 |E IN X AUSGEGEBE|
000002B0: 4E 0D 20 20 20 20 20 3C 20 3E 20 20 20 20 20 20 |N. < > |
000002C0: D3 D0 C1 C3 C5 2D D4 41 53 54 45 20 20 20 20 20 |.....-.ASTE |
000002D0: 20 20 A4 0D 0D 20 20 53 50 20 3D 20 D3 50 41 4C | ... SP = .PAL|
000002E0: 54 45 2C 20 5A 45 20 3D 20 DA 45 49 4C 45 20 20 |TE, ZE = .EILE |
000002F0: 46 BD 52 20 27 4B 24 27 20 49 4D 20 41 55 47 45 |F.R 'K$' IM AUGE|
00000300: 4E 42 4C 49 43 4B 4C 49 43 48 45 4E 20 D7 49 4E |NBLICKLICHEN .IN|
00000310: 44 4F 57 00 00 00 00 00 00 A9 40 A2 7C 85 64 86 |DOW.......@.|.d.|
00000320: 65 AD 00 FF 48 A9 02 8D 00 FF A0 00 F0 09 20 D2 |e...H......... .|
00000330: FF E6 64 D0 02 E6 65 B1 64 D0 F3 68 8D 00 FF 60 |..d...e.d..h...`|
00000340: 85 6A 86 6B A9 9B 85 64 A2 7F 86 65 A9 3F 8D 00 |.j.k...d...e.?..|
00000350: FF A0 00 B1 64 91 6A C8 C0 65 90 F7 60 A9 02 8D |....d.j..e..`...|
00000360: 00 FF A5 1B 29 04 F0 08 A9 3F 20 D2 FF 18 90 05 |....)....? .....|
00000370: A9 9D 20 D2 FF A9 9D 20 D2 FF A4 1B A9 1C 8D AA |.. .... ........|
00000380: 02 A2 7F 20 A2 02 99 6A 00 88 10 F0 20 91 CD 48 |... ...j.... ..H|
00000390: 68 20 E4 FF F0 FB 48 A5 6C C9 3E D0 07 68 C5 6B |h ....H.l.>..h.k|
000003A0: F0 17 D0 ED 68 C5 6B F0 10 90 E6 C5 6D F0 0A B0 |....h.k.....m...|
000003B0: E0 48 A5 6C C9 2F F0 D8 68 20 D2 FF A0 3F 8C 00 |.H.l./..h ...?..|
000003C0: FF 60 |.` |
@|..... DAS "ASC(GET) / $7F9B"-MP IST
IM BANK-0-RAM VERSCHIEBBAR BIS $07F9B
..FREIR.UME: $0C00-$0FFF, $1300-BASICST
ART, BASICENDE-$7F9B.DAS MP HAT 101 BYTE
S: $7F9B-$7FFF . .SOLL ES DORT BLEIBEN.
? $..DIE BASIC-ROUTINE LAUTET:
CHAR1,SP,ZE,K$:BANK 0:SYS :RREGX:R
ETURN... ODER: .....:PRINTK$;:BANK
0:SYS :RREGX:RETURN..... SCHRE
IBEN SIE SYS ..... DEZIMAL..===========
K$ = ASC(GET)-SCHEMA .MU. 5 ODER 3 ZEIC
HEN HABEN. ============.ZB. <J/N> F.
R J ODER N .. <J-N> F.R J BI
S N . DIE ZEICHENFOLGE IN <> WIR
D. <1-5> F.R 1 BIS 5 . IM
SYS-BEFEHL ABGEFRAGT UND. <A>
'A' EINGEBEN . DIE EINGABE IN X A
USGEGEBEN. < > SPACE-TASTE
... SP = SPALTE, ZE = ZEILE F.R 'K$'
IM AUGENBLICKLICHEN WINDOW.......@.|.D.
E...H..... ... R..DP..E.DP.H...`.J.K...D
..E.?... ..D.JH.E..`.......)....? R....
.. R... R......... ...J.... .MHH ....H.
LI>P.HEK..P.HEK....EM....H.LI/.XH R. ?..
.`
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL