00000000: 0D 0D 31 30 30 20 50 4F 4B 45 35 33 32 38 30 2C |..100 POKE53280,|
00000010: 30 3A 50 4F 4B 45 35 33 32 38 31 2C 30 0D 31 31 |0:POKE53281,0.11|
00000020: 30 20 50 52 49 4E 54 22 93 0E 05 C4 49 45 53 20 |0 PRINT"....IES |
00000030: 49 53 54 20 45 49 4E 20 C2 41 53 49 43 2D D0 52 |IST EIN .ASIC-.R|
00000040: 4F 47 52 41 4D 4D 2C 22 0D 31 32 30 20 50 52 49 |OGRAMM,".120 PRI|
00000050: 4E 54 22 9B 57 45 4C 43 48 45 53 20 45 49 4E 46 |NT".WELCHES EINF|
00000060: 41 43 48 20 45 49 4E 20 50 41 41 52 22 0D 31 33 |ACH EIN PAAR".13|
00000070: 30 20 50 52 49 4E 54 22 99 D3 54 45 55 45 52 43 |0 PRINT"..TEUERC|
00000080: 4F 44 45 53 1D 56 45 52 57 45 4E 44 45 54 22 0D |ODES.VERWENDET".|
00000090: 31 34 30 20 50 52 49 4E 54 22 98 55 4D 20 5A 55 |140 PRINT".UM ZU|
000000A0: 20 44 45 4D 4F 4E 53 54 52 49 45 52 45 4E 2C 22 | DEMONSTRIEREN,"|
000000B0: 0D 31 35 30 20 50 52 49 4E 54 22 11 91 95 44 41 |.150 PRINT"...DA|
000000C0: 53 53 20 4D 41 4E 20 4D 49 54 20 45 49 4E 45 4D |SS MAN MIT EINEM|
000000D0: 20 20 9D D4 45 58 54 46 49 4C 54 45 52 22 0D 31 | ..EXTFILTER".1|
000000E0: 36 30 20 50 52 49 4E 54 22 81 46 55 45 52 20 C3 |60 PRINT".FUER .|
000000F0: 36 34 2D C1 D3 C3 C9 C9 2D C3 4F 44 45 53 20 47 |64-.....-.ODES G|
00000100: 41 4E 5A 22 0D 31 37 30 20 50 52 49 4E 54 22 9E |ANZ".170 PRINT".|
00000110: 45 49 4E 46 41 43 48 20 45 49 4E 20 C2 41 53 49 |EINFACH EIN .ASI|
00000120: 43 50 52 4F 47 52 41 4D 4D 22 0D 31 38 30 20 50 |CPROGRAMM".180 P|
00000130: 52 49 4E 54 22 1C 4D 49 54 20 CB 4C 41 52 54 45 |RINT".MIT .LARTE|
00000140: 58 54 2D C3 4F 44 45 53 22 0D 31 39 30 20 50 52 |XT-.ODES".190 PR|
00000150: 49 4E 54 22 9C 45 52 5A 45 55 47 45 4E 20 4B 41 |INT".ERZEUGEN KA|
00000160: 4E 4E 2E 22 0D 32 30 30 20 50 52 49 4E 54 22 96 |NN.".200 PRINT".|
00000170: CE 41 54 55 45 52 4C 49 43 48 20 4B 41 4E 4E 20 |.ATUERLICH KANN |
00000180: 4D 41 4E 20 44 45 4E 20 C6 49 4C 54 45 52 22 0D |MAN DEN .ILTER".|
00000190: 32 31 30 20 50 52 49 4E 54 22 9F 42 45 4C 49 45 |210 PRINT".BELIE|
000001A0: 42 49 47 20 53 45 49 4E 45 4E 20 C2 45 44 55 45 |BIG SEINEN .EDUE|
000001B0: 52 46 4E 49 53 53 45 4E 22 20 20 20 22 1F 22 0D |RFNISSEN" ".".|
000001C0: 32 32 30 20 50 52 49 4E 54 22 9A 41 4E 50 41 53 |220 PRINT".ANPAS|
000001D0: 53 45 4E 2E 20 C5 49 4E 20 C2 41 53 49 43 2D D0 |SEN. .IN .ASIC-.|
000001E0: 52 4F 47 52 41 4D 4D 22 0D 32 33 30 20 50 52 49 |ROGRAMM".230 PRI|
000001F0: 4E 54 22 1F 4D 55 53 53 20 41 42 45 52 20 45 52 |NT".MUSS ABER ER|
00000200: 53 54 20 4D 49 54 20 46 4F 4C 47 45 4E 44 45 4E |ST MIT FOLGENDEN|
00000210: 22 0D 32 34 30 20 50 52 49 4E 54 22 1E C2 45 46 |".240 PRINT"..EF|
00000220: 45 48 4C 45 4E 20 41 4C 53 20 D4 45 58 54 20 41 |EHLEN ALS .EXT A|
00000230: 55 46 20 C4 49 53 4B 22 0D 32 35 30 20 50 52 49 |UF .ISK".250 PRI|
00000240: 4E 54 22 9F 55 4D 47 45 4C 45 49 54 45 54 20 57 |NT".UMGELEITET W|
00000250: 45 52 44 45 4E 3A 22 0D 32 36 30 20 50 52 49 4E |ERDEN:".260 PRIN|
00000260: 54 22 12 4F 50 45 4E 20 31 2C 38 2C 31 2C 22 43 |T".OPEN 1,8,1,"C|
00000270: 48 52 24 28 33 34 29 22 4E 41 4D 45 22 43 48 52 |HR$(34)"NAME"CHR|
00000280: 24 28 33 34 29 22 3A 43 4D 44 31 3A 4C 49 53 54 |$(34)":CMD1:LIST|
00000290: 92 22 0D 32 37 30 20 50 52 49 4E 54 22 12 43 4C |.".270 PRINT".CL|
000002A0: 4F 53 45 20 31 92 22 0D 32 38 30 20 50 52 49 4E |OSE 1.".280 PRIN|
000002B0: 54 22 05 CA 45 54 5A 54 20 4B 41 4E 4E 20 4D 41 |T"..ETZT KANN MA|
000002C0: 4E 20 45 53 20 4F 48 4E 45 20 D0 52 4F 42 4C 45 |N ES OHNE .ROBLE|
000002D0: 4D 45 22 0D 32 39 30 20 50 52 49 4E 54 22 9C 4D |ME".290 PRINT".M|
000002E0: 49 54 20 D4 52 41 4E 53 C6 49 4C 45 20 55 45 42 |IT .RANS.ILE UEB|
000002F0: 45 52 54 52 41 47 45 4E 11 1D 91 9D 2E 22 0D 33 |ERTRAGEN.....".3|
00000300: 30 30 20 50 4F 4B 45 31 39 38 2C 30 3A 57 41 49 |00 POKE198,0:WAI|
00000310: 54 31 39 38 2C 31 3A 50 4F 4B 45 31 39 38 2C 30 |T198,1:POKE198,0|
00000320: 3A 50 52 49 4E 54 22 05 93 22 0D 0A 4F 4B 2E 20 |:PRINT".."..OK. |
00000330: 20 20 0D 0A | .. |
..100 POKE53280,0:POKE53281,0.110 PRINT"
...DIES IST EIN BASIC-PROGRAMM,".120 PRI
NT".WELCHES EINFACH EIN PAAR".130 PRINT"
.STEUERCODES.VERWENDET".140 PRINT".UM ZU
DEMONSTRIEREN,".150 PRINT"...DASS MAN M
IT EINEM .TEXTFILTER".160 PRINT".FUER C
64-ASCII-CODES GANZ".170 PRINT".EINFACH
EIN BASICPROGRAMM".180 PRINT".MIT KLARTE
XT-CODES".190 PRINT".ERZEUGEN KANN.".200
PRINT".NATUERLICH KANN MAN DEN FILTER".
210 PRINT".BELIEBIG SEINEN BEDUERFNISSEN
" ".".220 PRINT".ANPASSEN. EIN BASIC-P
ROGRAMM".230 PRINT".MUSS ABER ERST MIT F
OLGENDEN".240 PRINT".BEFEHLEN ALS TEXT A
UF DISK".250 PRINT".UMGELEITET WERDEN:".
260 PRINT".OPEN 1,8,1,"CHR$(34)"NAME"CHR
$(34)":CMD1:LIST.".270 PRINT".CLOSE 1.".
280 PRINT".JETZT KANN MAN ES OHNE PROBLE
ME".290 PRINT".MIT TRANSFILE UEBERTRAGEN
.....".300 POKE198,0:WAIT198,1:POKE198,0
:PRINT".."..OK. ..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL