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