home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 18 / 64er_Magazin_Sonderheft_18_19xx_Markt__Technik_de_Side_B.d64 / umlaut.gen (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  1.2 KB  |  56 lines
  1. 10 printchr$(14):poke657,212:rem kleinschrift
  2. 15 poke53281,0:poke53280,11:poke646,7
  3. 50 print"[147][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  4. 53 print"[221]    [214] [201] [218] [193] - [213] [205] [204] [193] [213] [212] - [199] [197] [206]     [146][158][221]";
  5. 55 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  6. 56 print" (w) 1987 by [204]udger [211]piekermann"
  7. 60 :
  8. 61 rem
  9. 100 :
  10. 110 :
  11. 111 rem einlesen der umlaute
  12. 112 data"klein oe","gross [207][197]","klein ae","gross [193][197]","klein ue","gross [213][197]"
  13. 114 data"sz      "
  14. 120 :
  15. 121 rem eingabe der ascii-codes
  16. 122 print"";
  17. 123 restore
  18. 124 fora=1to7
  19. 125 read c$
  20. 126 print"[195]ode fuer ";c$;" : ";
  21. 127 poke19,1:input u(a):poke19,0:print
  22. 128 nexta
  23. 130 :
  24. 131 rem einlesen der datazeilen
  25. 133 fora=23996to24046:rem 5dbc to 5dea
  26. 134 readb
  27. 135 pokea,b
  28. 136 nexta
  29. 140 :
  30. 141 rem einsetzen der neuen werte
  31. 143 forz=1to7
  32. 144 poke23996+z*5,u(z)
  33. 145 nextz
  34. 150 :
  35. 151 rem bild und frage
  36. 153 print"[194]itte [196]isk einlegen ![146]"
  37. 155 poke198,0
  38. 157 wait198,1
  39. 160 :
  40. 161 rem  absaven
  41. 162 n$="viza-umlaute":rem file-name
  42. 163 sys(57812)n$,8
  43. 165 poke193,188:poke194,93:rem start
  44. 166 poke174,238:poke175,93:rem ende
  45. 168 sys62957
  46. 180 :
  47. 181 rem datas maschinencode
  48. 190 data 83,255,0,0,169,188,141
  49. 191 data 176,117,169,220,141,177
  50. 192 data 117,169,187,141,178
  51. 200 data 117,169,219,141,179
  52. 201 data 117,169,189,141,180
  53. 202 data 117,169,221,141,181,117,169
  54. 300 data 190,141,182,117,32,82,35
  55. 301 data 162,3,32,73,8,76,58,8,0
  56.