home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1996 June
/
64er_Magazin_96-06_1996_Markt__Technik_de_Side_B.d64
/
ausprobieren
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
49 lines
1000 ifa=3then1290
1010 ifa=2then1280
1020 ifa=1then1270
1030 poke52,32:poke56,32:clr
1040 print"[147][196]ieses [208]rogramm erzeugt eine [193]usprobier
1050 [153]"(NULL)ersion von (NULL)(NULL)(NULL)(NULL)atn str$(NULL)(NULL) im len64. (right$n der
1060 print"[198]loppy ist dies leider nicht moeglich).
1070 [153]"vals laedt peekasic right$nterpreter, (NULL)upra str$os-
1080 print"-[203]ernal und -[218]eichensatz ins [210][193][205] und
1090 [153]"schaltet anschliessend aufs (NULL)atn(NULL) um.
1100 print"[215]enn [211]ie bereits einen [198]loppy [211]peeder
1110 [153]"eingebaut haben, deaktivieren (NULL)ie ihn
1120 print"vor dem [213]mschalten aufs [210][193][205], damit die
1130 [153]"peekasic- und (NULL)ernal-(NULL)ectoren stimmen,
1140 print"und geben [211]ie nach dem [213]mschalten
1150 [153]"'&(NULL) <return>' ein.
1160 print"[196]er [218]eichensatz beginnt bei der [193]uspro-
1170 [153]"bierversion bei $2000 = #8192; achten
1180 print"[211]ie darauf keine langen [194]asic-[208]rogramme
1190 [153]"zu laden. str$ie atnusgabe der deutschen
1200 print"[211]onderzeichen auf serielle und parallele
1210 [153]"onstr$rucker geht ebenfalls.
1220 print"poke1,53 [213]mschalten auf [211]upra-[196]os
1230 [153]"poke53272,23 (NULL)(NULL)-(NULL)eichensatz+(NULL)(NULL)-(NULL)astatur
1240 print"poke53272,31 [213][211]-[218]eichensatz+deutsch [212]ast
1250 [153]"onpoke53272,27 deutsch (NULL)ei-sa+deutsch (NULL)ast
1260 a=1:load"sup-do charset??",8,1
1270 a=2:load"basic interprete",8,1
1280 a=3:load"suprados kernal?",8,1
1290 fori=49152to49179:reada:pokei,a:next:sys49152
1300 fori=61276to61294:reada:pokei,a:next
1310 poke64982,229:poke816,187:poke817,228:poke60625,25
1320 poke1,53
1330 print"[147]welcher zeichensatz?"
1340 fori=1024to1024+255:pokei,iand255:next
1350 print"1 = us-zeichensatz + us-tastatur
1360 [153]"2 = us-zeichensatz + deutsche tast.
1370 print"3 = deutscher zeisa. + deutsche tast.
1380 [153]"e = ende
1390 geta$
1400 ifa$="1"thenpoke53272,peek(53272)and243or4
1410 ifa$="2"thenpoke53272,peek(53272)and243or12
1420 ifa$="3"thenpoke53272,peek(53272)and243or8
1430 ifa$<>"e"then1390
1440 sys64738
1450 data160,0,132,251,132,253,169,32,133,252,169,80,133,254,177,253,145,251
1460 data200,208,249,230,252,230,254,16,243,96
1470 data173,24,208,41,12,201,4,240,14,234,234,234,234,234,234,234,234,234,234