home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 Janurary / 64er_Magazin_89-01_1989_Markt__Technik_de_Side_B.d64 / umlaute3 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  930b  |  32 lines
  1. 10 open1,4,0:open15,4,15
  2. 15 rem*** blockmove-parameter senden ***
  3. 18 print#15,"m-w"chr$(42)chr$(0)chr$(6)chr$(0)chr$(234)chr$(0)chr$(239)chr$(0);
  4. 19 print#1,chr$(123)
  5. 25 rem***zeichensatz ins ram kopieren***
  6. 30 print#15,"m-e"chr$(27)chr$(255)
  7. 50 print#15,"m-w"chr$(66)chr$(0)chr$(2)chr$(0)chr$(123)
  8. 60 print#15,"c":rem puffer neu initialisieren
  9. 75 rem ***zeiger auf ram-zeichensatz***
  10. 80 print#15,"m-w"chr$(94)chr$(0)chr$(2)chr$(0)chr$(123)
  11. 85 rem***zeichen immer aus ram holen***
  12. 90 print#15,"m-w"chr$(90)chr$(0)chr$(1)chr$(128)
  13. 100 rem
  14. 110 rem**deutsche umlaute installieren**
  15. 120 rem
  16. 1010 rem deutsche umlaute
  17. 1015 a$=""
  18. 1020 forn=1to24:reada:a$=a$+chr$(a):next
  19. 1025 print#15,"m-w"chr$(216)chr$(124)chr$(24)a$
  20. 1035 a$=""
  21. 1040 forn=1to32:reada:a$=a$+chr$(a):next
  22. 1045 print#15,"m-w"chr$(216)chr$(125)chr$(32)a$
  23. 1100 data190,80,144,144,80,190,0,0
  24. 1110 data 188,66,66,66,66,188,0,0
  25. 1120 data 188,2,2,2,2,188,0,0
  26. 1150 data 4,170,42,170,28,2,0,0
  27. 1160 data 28,162,34,162,28,0,0
  28. 1170 data 60,130,2,132,62,0,0,0
  29. 1180 data 63,64,146,146,146,108,0,0
  30. 1200 gosub2000:print#1,chr$(15)"[219][220][221][255] [\] deutsche umlaute ]berhaupt kein problem
  31. 2010 [129]n[178]32[164]126:[152]1,[199](n):[130]
  32.