home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_90-09_1990_-_de_Side_B.d64 / tage.init2 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  97 lines
  1. 100 ifpeek(44)<>96thenload"tage.init",8
  2. 105 poke 53280,0:print "[147][158]";
  3. 110 print "[196]as [208]rogramm '[212]agebuch' benutzt einen"
  4. 115 print "veraenderten [218]eichensatz. [213]m besonders"
  5. 120 print "den [195]-128 zu unterstuetzen, habe ich"
  6. 125 print "einen [218]eichensatz geschrieben, der die"
  7. 130 print "beim [203]eyboard des [195]-128 bereits grau"
  8. 135 print "vorgedruckten [218]eichen unterstuetzt."
  9. 140 print "[200]ierbei wird groesstenteils eine [196][201][206]-"
  10. 145 print "[212]astatur erreicht, die alle [196]eutschen"
  11. 150 print "[211]onderlaute enthaelt."
  12. 155 print "[193]uf dem [195]-64 ist dies jedoch aeusserst"
  13. 160 print "stoerend, da u.a. auch z und y mit-"
  14. 165 print "einander vertauscht werden."
  15. 170 print
  16. 175 print "[196]amit die [195]-64 [194]esitzer jedoch weder"
  17. 180 print "auf die [196]eutschen [211]onderlaute ver-"
  18. 185 print "zichten muessen (wer moechte in sei-"
  19. 190 print "nem [212]agebuch schon dauernd ae ect."
  20. 195 print "stehen haben?), noch auf die unter-"
  21. 200 print "strichenen, laesst sich das '[212]agebuch'"
  22. 205 print "anpassen."
  23. 210 print:print:printspc(10)"taste"
  24. 215 poke 198,0:wait 198,1
  25. 220 print "[147][193]enderungen im [218]eichensatz :"
  26. 225 print"[207]riginal [221][195]128-[214]ers.[221][195] 64-[214]ers."
  27. 230 print"[192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][192]
  28. 235 [153]"   :     (NULL)   oe     (NULL)   oe
  29. 240 print"   ;     [221]   ae     [221]   ae
  30. 245 [153]"   @     (NULL)   ue     (NULL)   ue
  31. 250 print"   ^     [221]   --     [221]   sz
  32. 255 [153]"   *     (NULL)   +      (NULL)   --
  33. 260 print" shift * [221]   *      [221]   --
  34. 265 [153]"   +     (NULL)   sz     (NULL)   --
  35. 270 print"   <     [221]   ;      [221]   ;
  36. 275 [153]"   >     (NULL)   :      (NULL)   :
  37. 280 print" c= + a  [221]   <      [221]   <
  38. 285 [153]" c= + s  (NULL)   >      (NULL)   >
  39. 290 print" c= + z  [221]   [      [221]   --
  40. 295 [153]" c= + x  (NULL)   ]      (NULL)   --
  41. 300 print"   y     [221]   z      [221]   --
  42. 305 [153]"   z     (NULL)   y      (NULL)   --
  43. 310 print:print"c= : commodore-taste"
  44. 315 print"-- : keine aenderung"
  45. 320 print:printspc(10)"taste"
  46. 325 poke 198,0:wait 198,1
  47. 330 print "[147][194]itte waehlen [211]ie jetzt..."
  48. 335 print"[194]esitzen [211]ie einen.."
  49. 340 print"1) [195]ommodore 128/128d"
  50. 345 print "2) [195]ommodore 64"
  51. 350 input " [215]aehlen [211]ie 1 oder 2";ve:ifve<>1andve<>2then330
  52. 355 print "[194]itte warten...":re=1
  53. 360 sys 57812"tagebuch",8
  54. 365 poke780,0:poke781,1:poke782,8
  55. 370 sys 65493:goto 530
  56. 375 if ve=1 then 395
  57. 380 re=2:sys 57812"texte.com",8
  58. 385 poke780,0:poke781,8:poke782,41
  59. 390 sys 65493:goto 530
  60. 395 a$="char128":if ve=2 then a$="char064":poke 9488,43
  61. 400 re=3:sys 57812(a$),8,1
  62. 405 poke 780,0
  63. 410 sys 65493:goto 530
  64. 415 lo=peek(174)+2:hi=peek(175):iflo>255thenlo=lo-256:hi=hi+1
  65. 420 print:print"[194]itte legen [211]ie die [218]ieldiskette ein."
  66. 425 print""spc(10)"taste"
  67. 430 poke 198,0:wait 198,1:re=4
  68. 435 n$="tagebuch 128":if ve=2 then n$="tagebuch 64"
  69. 440 sys 57812(n$),8,1
  70. 445 poke2,1:poke3,8:poke780,2:poke781,225:poke782,44
  71. 450 sys 65496:goto 530
  72. 455 re=5:n$="chargen":sys57812(n$),8,1
  73. 460 poke2,0:poke3,192:poke780,2:poke781,lo:poke782,hi
  74. 465 sys 65496:goto 530
  75. 470 print "[196]as [208]rogramm '[212]agebuch' wurde"
  76. 475 print "ordnungsgemaess gespeichert.
  77. 480 [153] "(NULL)iel (NULL)pass mit dem '(NULL)agebuch' wuenscht"
  78. 485 [153] ""[166]5)"ascrank (NULL)ilhofer"
  79. 490 [153] ""[166]8)"right$ch gruesse"
  80. 495 [153] ""[166]10)"(NULL)elanie mid$ansen!":[153]""
  81. 500 [153]"(NULL)ie koennen das (NULL)rogramm jetzt"
  82. 505 [139]ve[178]1[167][153]"im 64'er (NULL)oduswait"
  83. 510 [153]"mit":a$[178]"tagebuch 64":[139]ve[178]1[167]a$[178]"tagebuch 128"
  84. 515 [153]"(NULL)(NULL)atnstr$"[199](34);a$;[199](34)",8,1","laden"
  85. 520 [153]"und dann mit (NULL)(NULL)(NULL) starten."
  86. 525 [129]i[178]1[164]7:[135]a:[151]630[170]i,a:[130]:[151]198,7:[162]:[131]80,111,52,52,44,56,13
  87. 530 [159] 1,8,15:[132]1,fe,fe$,tr,se
  88. 535 [139] fe[179]20 [167] [160] 1:[137] 575
  89. 540 [153]:[153] "str$iskettenfehler :":[153]fe;fe$;tr;se
  90. 545 [139] re[179]4 [167] [153] "peekitte (NULL)uelldiskette einlegen":[137] 555
  91. 550 [153] "peekitte (NULL)ieldiskette einlegen"
  92. 555 [151] 198,0:[146] 198,1
  93. 560 [139] re[177]3 [167] [152]1,"s:"[170]n$
  94. 565 [160]1
  95. 570 [139] fe[177]20 [167] [145] re [137] 360,380,400,440,455
  96. 575 [145] re [137] 375,395,415,455,470
  97.