00000000: 42 41 53 49 43 2D 54 49 50 53 0D 45 49 4E 20 50 |BASIC-TIPS.EIN P|
00000010: 41 41 52 20 56 4F 4E 20 52 4F 42 49 4E 20 48 4F |AAR VON ROBIN HO|
00000020: 4F 44 2E 2E 2E 0D 20 35 20 0D 48 59 20 46 4F 4C |OD.... 5 .HY FOL|
00000030: 58 20 21 20 44 41 4D 49 54 20 44 45 52 20 4C 49 |X ! DAMIT DER LI|
00000040: 45 42 45 20 5A 45 49 54 47 45 49 53 54 0D 45 49 |EBE ZEITGEIST.EI|
00000050: 4E 20 42 49 53 53 43 48 45 4E 20 5A 45 49 54 20 |N BISSCHEN ZEIT |
00000060: 53 50 41 52 54 DC 48 49 45 52 20 41 55 43 48 20 |SPART.HIER AUCH |
00000070: 4E 4F 43 48 0D 27 4E 45 4E 20 50 41 41 52 20 42 |NOCH.'NEN PAAR B|
00000080: 41 53 49 43 2D 54 49 50 53 20 56 4F 4E 20 4D 49 |ASIC-TIPS VON MI|
00000090: 52 20 DB 0D A0 0D 90 A0 49 4E 50 55 54 20 4C 40 |R ......INPUT L@|
000000A0: 4E 47 45 52 20 41 4C 53 20 45 49 4E 20 5A 45 49 |NGER ALS EIN ZEI|
000000B0: 4C 45 0D 98 BD A1 A2 A1 A2 A1 A2 A1 A2 A1 A2 A1 |LE..............|
000000C0: A2 A1 A2 A1 A2 A1 A1 A2 A1 A2 A1 A2 A1 A2 A1 A2 |................|
000000D0: A1 A2 A1 A2 A1 A2 A1 A2 A1 AA 97 0D A0 0D 4E 41 |..............NA|
000000E0: 43 48 20 45 49 4E 45 4D 20 41 4C 54 45 4E 20 52 |CH EINEM ALTEN R|
000000F0: 4F 4D 2D 46 45 48 4C 45 52 20 4B 41 4E 4E 20 45 |OM-FEHLER KANN E|
00000100: 49 4E 45 0D 49 4E 50 55 54 2D 5A 45 49 4C 45 20 |INE.INPUT-ZEILE |
00000110: 4E 49 43 48 54 20 4C 40 4E 47 45 52 20 41 4C 53 |NICHT L@NGER ALS|
00000120: 20 45 49 4E 45 0D 5A 45 49 4C 45 20 28 34 30 20 | EINE.ZEILE (40 |
00000130: 5A 45 49 43 48 45 4E 29 20 53 45 49 4E 2E 48 49 |ZEICHEN) SEIN.HI|
00000140: 45 52 20 4E 55 4E 20 44 49 45 0D 4C 5B 53 55 4E |ER NUN DIE.L[SUN|
00000150: 47 20 44 45 52 20 50 52 4F 42 4C 45 4D 53 20 DB |G DER PROBLEMS .|
00000160: 0D A0 0D AB 98 20 50 4F 4B 45 31 39 DC 36 34 DB |..... POKE19.64.|
00000170: 49 4E 50 55 54 41 24 DB 50 4F 4B 45 31 39 DC 30 |INPUTA$.POKE19.0|
00000180: 97 0D A0 0D 90 44 49 53 4B 45 54 54 45 4E 4E 41 |.....DISKETTENNA|
00000190: 4D 45 4E 20 41 55 53 4C 45 53 45 4E 0D 98 BD A1 |MEN AUSLESEN....|
000001A0: A2 A1 A2 A1 A2 A1 A2 A1 A2 A1 A2 A1 A2 A1 A2 A1 |................|
000001B0: A1 A2 A1 A2 A1 A2 A1 A2 A1 A2 A1 A2 A1 A2 A1 A2 |................|
000001C0: A1 A2 A1 AA 97 0D A0 0D 31 30 20 4F 50 45 4E 31 |........10 OPEN1|
000001D0: DC 38 DC 31 35 DC 22 49 22 0D 32 30 20 4F 50 45 |.8.15."I".20 OPE|
000001E0: 4E 32 DC 38 DC 32 DC 22 23 22 0D 33 30 20 3F 23 |N2.8.2."#".30 ?#|
000001F0: 31 DC 22 4D 2D 52 22 43 48 52 24 28 31 34 34 29 |1."M-R"CHR$(144)|
00000200: 43 48 52 24 28 37 29 43 48 52 24 28 31 36 29 0D |CHR$(7)CHR$(16).|
00000210: 34 30 20 49 4E 50 55 54 23 31 DC 41 24 0D 35 30 |40 INPUT#1.A$.50|
00000220: 20 43 4C 4F 53 45 32 DB 43 4C 4F 53 45 31 0D A0 | CLOSE2.CLOSE1..|
00000230: 0D 90 AF B0 97 20 44 41 53 20 46 52 41 47 45 5A |..... DAS FRAGEZ|
00000240: 45 49 43 48 45 4E 20 49 4E 20 5A 45 49 4C 45 20 |EICHEN IN ZEILE |
00000250: 33 30 20 49 53 54 0D 90 B1 B2 97 20 44 49 45 20 |30 IST..... DIE |
00000260: 41 42 4B 5D 52 5A 55 4E 47 20 44 45 53 20 50 52 |ABK]RZUNG DES PR|
00000270: 49 4E 54 2D 42 45 46 45 48 4C 53 2E 0D A0 0D A0 |INT-BEFEHLS.....|
00000280: 0D A0 0D 90 46 52 45 49 45 20 42 4C 4F 43 4B 53 |....FREIE BLOCKS|
00000290: 20 4C 45 53 45 4E 0D 98 BD A1 A2 A1 A2 A1 A2 A1 | LESEN..........|
000002A0: A2 A1 A2 A1 A2 A1 A2 A1 A2 A1 A1 A2 A1 A2 A1 A2 |................|
000002B0: A1 A2 A1 A2 A1 A2 A1 A2 A1 A2 A1 A2 A1 AA 97 0D |................|
000002C0: A0 0D 31 30 20 4F 50 45 4E 31 DC 38 DC 31 35 DC |..10 OPEN1.8.15.|
000002D0: 22 49 22 0D 32 30 20 3F 23 31 DC 22 4D 2D 52 22 |"I".20 ?#1."M-R"|
000002E0: 43 48 52 24 28 32 35 30 29 43 48 52 24 28 32 29 |CHR$(250)CHR$(2)|
000002F0: 43 48 52 24 28 33 29 0D 33 30 20 47 45 54 23 31 |CHR$(3).30 GET#1|
00000300: DC 41 24 DC 42 24 DC 42 24 0D 34 30 20 41 3D 41 |.A$.B$.B$.40 A=A|
00000310: 53 43 28 41 24 2B 43 48 52 24 28 30 29 2B 32 35 |SC(A$+CHR$(0)+25|
00000320: 36 2A 41 53 43 28 42 24 2B 43 48 52 24 28 30 29 |6*ASC(B$+CHR$(0)|
00000330: 29 0D 35 30 20 43 4C 4F 53 45 31 3A 50 52 49 4E |).50 CLOSE1:PRIN|
00000340: 54 20 41 0D A0 0D 90 AF B0 97 20 41 55 43 48 20 |T A....... AUCH |
00000350: 48 49 45 52 20 57 55 52 44 45 20 4D 49 54 20 44 |HIER WURDE MIT D|
00000360: 45 4D 20 46 52 41 47 45 20 2D 0D 90 B1 B2 97 20 |EM FRAGE -..... |
00000370: 5A 45 49 43 48 45 4E 20 41 4C 53 20 50 52 49 4E |ZEICHEN ALS PRIN|
00000380: 54 2D 41 42 4B 5D 52 5A 55 4E 47 20 47 45 2D 0D |T-ABK]RZUNG GE-.|
00000390: A0 A0 A0 41 52 42 45 49 54 45 54 2E 0D A0 0D A0 |...ARBEITET.....|
000003A0: 0D 90 53 50 45 49 43 48 45 52 4E 2F 4C 41 44 45 |..SPEICHERN/LADE|
000003B0: 4E 20 45 49 4E 45 53 20 42 45 52 45 49 43 48 45 |N EINES BEREICHE|
000003C0: 53 0D 98 BD A1 A2 A1 A2 A1 A2 A1 A2 A1 A2 A1 A2 |S...............|
000003D0: A1 A2 A1 A2 A1 A1 A2 A1 A2 A1 A2 A1 A2 A1 A2 A1 |................|
000003E0: A2 A1 A2 A1 A2 A1 A2 A1 AA 97 0D A0 0D 53 59 53 |.............SYS|
000003F0: 35 37 38 31 32 20 22 CE C1 CD C5 22 20 DC 38 0D |57812 "...." .8.|
00000400: 50 4F 4B 45 31 37 34 DC 20 4C 4F 57 2D 45 4E 44 |POKE174. LOW-END|
00000410: 45 0D 50 4F 4B 45 31 37 35 DC 20 48 49 47 48 2D |E.POKE175. HIGH-|
00000420: 45 4E 44 45 0D 50 4F 4B 45 31 39 33 DC 20 4C 4F |ENDE.POKE193. LO|
00000430: 57 2D 53 54 41 52 54 0D 50 4F 4B 45 31 39 34 DC |W-START.POKE194.|
00000440: 20 48 49 47 48 2D 53 54 41 52 54 0D 53 59 53 36 | HIGH-START.SYS6|
00000450: 32 39 35 37 0D A0 0D 53 59 53 35 37 38 31 32 20 |2957...SYS57812 |
00000460: 22 CE C1 CD C5 22 20 DC 38 0D 50 4F 4B 45 37 38 |"...." .8.POKE78|
00000470: 30 DC 30 DB 50 4F 4B 45 37 38 31 DC 4C 4F 57 2D |0.0.POKE781.LOW-|
00000480: 53 54 41 52 54 0D 50 4F 4B 45 37 38 32 DC 48 49 |START.POKE782.HI|
00000490: 47 48 2D 53 54 41 52 54 0D 53 59 53 35 37 37 31 |GH-START.SYS5771|
000004A0: 37 0D 44 41 53 20 57 41 52 27 53 20 53 4F 57 45 |7.DAS WAR'S SOWE|
000004B0: 49 54 2E 2E 2E 2E 48 49 45 52 20 4E 4F 43 48 20 |IT....HIER NOCH |
000004C0: 45 49 4E 0D 4B 4C 45 49 4E 45 52 20 54 49 50 20 |EIN.KLEINER TIP |
000004D0: 5A 55 52 20 42 45 52 45 43 48 4E 55 4E 47 20 20 |ZUR BERECHNUNG |
000004E0: 56 4F 4E 20 4C 4F 57 2D 0D 55 4E 44 20 48 49 47 |VON LOW-.UND HIG|
000004F0: 48 2D 42 59 54 45 DC 44 45 52 20 45 55 43 48 20 |H-BYTE.DER EUCH |
00000500: 46 5D 52 20 44 41 53 20 4C 41 44 45 4E 0D 4F 44 |F]R DAS LADEN.OD|
00000510: 45 52 20 53 50 45 49 43 48 45 52 4E 20 45 49 4E |ER SPEICHERN EIN|
00000520: 45 53 20 42 45 52 45 49 43 48 45 53 20 4E 5D 54 |ES BEREICHES N]T|
00000530: 5A 45 4E 0D 4B 41 4E 4E 20 DB 0D A0 0D C8 C9 C7 |ZEN.KANN .......|
00000540: C8 20 3D 20 49 4E 54 28 41 44 52 45 53 53 45 2F |. = INT(ADRESSE/|
00000550: 32 35 36 29 0D A0 0D CC CF D7 20 20 3D 20 41 44 |256)...... = AD|
00000560: 52 45 53 53 45 2D 48 49 47 48 2A 32 35 36 0D A0 |RESSE-HIGH*256..|
00000570: 0D A0 0D A0 A0 A0 A0 A0 54 48 41 54 27 53 20 49 |........THAT'S I|
00000580: 54 DC 0D A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 |T...............|
00000590: A0 A0 A0 05 D2 CF C2 C9 CE 20 C8 CF CF C4 0D A0 |......... ......|
000005A0: 0D |. |
BASIC-TIPS.EIN PAAR VON ROBIN HOOD.... 5
.HY FOLX ! DAMIT DER LIEBE ZEITGEIST.EI
N BISSCHEN ZEIT SPART.HIER AUCH NOCH.'NE
N PAAR BASIC-TIPS VON MIR .. .. INPUT L@
NGER ALS EIN ZEILE......................
.................... .NACH EINEM ALTEN R
OM-FEHLER KANN EINE.INPUT-ZEILE NICHT L@
NGER ALS EINE.ZEILE (40 ZEICHEN) SEIN.HI
ER NUN DIE.L[SUNG DER PROBLEMS .. ... PO
KE19.64.INPUTA$.POKE19.0.. ..DISKETTENNA
MEN AUSLESEN............................
.............. .10 OPEN1.8.15."I".20 OPE
N2.8.2."#".30 ?#1."M-R"CHR$(144)CHR$(7)C
HR$(16).40 INPUT#1.A$.50 CLOSE2.CLOSE1.
..... DAS FRAGEZEICHEN IN ZEILE 30 IST..
... DIE ABK]RZUNG DES PRINT-BEFEHLS.. .
. ..FREIE BLOCKS LESEN..................
........................ .10 OPEN1.8.15.
"I".20 ?#1."M-R"CHR$(250)CHR$(2)CHR$(3).
30 GET#1.A$.B$.B$.40 A=ASC(A$+CHR$(0)+25
6*ASC(B$+CHR$(0)).50 CLOSE1:PRINT A. ...
.. AUCH HIER WURDE MIT DEM FRAGE -.....
ZEICHEN ALS PRINT-ABK]RZUNG GE-. ARBEI
TET.. . ..SPEICHERN/LADEN EINES BEREICHE
S.......................................
... .SYS57812 "NAME" .8.POKE174. LOW-END
E.POKE175. HIGH-ENDE.POKE193. LOW-START.
POKE194. HIGH-START.SYS62957. .SYS57812
"NAME" .8.POKE780.0.POKE781.LOW-START.PO
KE782.HIGH-START.SYS57717.DAS WAR'S SOWE
IT....HIER NOCH EIN.KLEINER TIP ZUR BERE
CHNUNG VON LOW-.UND HIGH-BYTE.DER EUCH
F]R DAS LADEN.ODER SPEICHERN EINES BEREI
CHES N]TZEN.KANN .. .HIGH = INT(ADRESSE/
256). .LOW = ADRESSE-HIGH*256. . .
THAT'S IT.. .ROBIN HOOD.
.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL