home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 67 / 64er_Magazin_Sonderheft_67_19xx_Markt__Technik_de_Side_A.d64 / morseoperator (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  19KB  |  590 lines
  1. 1 goto3000 : rem *** siehe 3000- !     *
  2. 2 rem
  3. 3 rem       morseoperator    v2.45
  4. 4 rem       """""""""""""
  5. 5 [143] * (c) 1989 andreas frohme       *
  6. 6 [143] *          dl 8 aaw             *
  7. 7 [143] *          gosslerstr. 77       *
  8. 8 [143] *          3400 goettingen      *
  9. 9 [143] *                               *
  10. 10 [143] * dieses programm darf weiterge-          gegeben werden. da der autor
  11. 11 [143] * ein mittelloser student ist,            bittet er jedoch alle
  12. 12 [143] * zufriedenen benutzer um einen           kleinen anerkennungsbetrag
  13. 13 [143] * (z.b. 10.-dm) per scheck oder           bar an obige adresse.
  14. 14 [143] * herzlicen dank!!
  15. 15 bn[178]0:wn[178]0
  16. 25 [151]53280,6
  17. 30 [151]53281,6
  18. 35 [153]"load                          wait"
  19. 40 [153]"              morsereader wait"
  20. 45 [153]"                          wait"
  21. 50 [153]:[153]
  22. 55 [153]" dieses programm bietet ihnen auch       eine elektr. morsetaste und die"
  23. 60 [153]" moeglichkeit, morsezeichen aufzunehmen  und lesbar zu machen (morsereader)."
  24. 65 z1[178]3:u1[178]6:w1[178]20
  25. 70 [153]" sie koennen zwischen morsetaste und     morsereader  mit \wait umschalten u.
  26. 75 print" das tempo mit ^[146] und _[146] aendern!"
  27. 80 print:print" der morsereader korrigiert das tempo    auch automatisch (mit -[146] abschaltbar)."
  28. 85 print" dabei erscheint ein s[146] fuer schneller    bzw. ein l[146] fuer langsamer";
  29. 90 print" auf dem":print" bildschirm.":print
  30. 95 print" ihre morsetaste bzw. ihren empfaenger   (ueber konverter) schliessen sie"
  31. 100 print" parallel zum joystick-feuerknopf (port  1) an; den sender an userp.pa2(=m)
  32. 105 [129] i[178]1[164] 5000
  33. 110 [161] p$:[139] p$[179][177]"" [167] 125
  34. 115 [130]
  35. 125 [153]"load morsereader":bn[178]0:wn[178]0
  36. 128 z1[178]3:u1[178]6:w1[178]20:j[178]255:s$[178]"":bn[178]0:w[178]0:z[178]0:u[178]0:bn[178]0
  37. 130 [153]" tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(";
  38. 135 [153]" tempo: ^wait/_wait  - statistik: =wait - taste: \wait"
  39. 140 [153]:[153]" automatik:aus -wait ein +wait - moduswechsel:*wait"
  40. 145 [153]" tototototototototototototototototototototototototototototototototototototototo";:[153]
  41. 150 j[178] [194](56321)
  42. 155 [161] q$:[139]q$[178]""[167]190
  43. 160 [139]q$[178]"*"[167] 1000
  44. 162 [139]q$[178]"\"[176]q$[178]"t"[167] [151]53280,5:[151]53281,5:[137] 1465
  45. 165 [139]q$[178][199](94)[167]u1[178]u1[171]1:w1[178]w1[171]5:[153]" ^wait";:[139]u1[179]10[167]z1[178]3:[139]u1[179]3[167]z1[178]2
  46. 170 [139]q$[178][199](95)[167]u1[178]u1[170]1:w1[178]w1[170]5:[153]" _wait";:[139]u1[178][177]3[167]z1[178]3:[139]u1[177][178]10[167]z1[178]4
  47. 180 [139] q$[178]"-" [167] ag[178]7:[153]:[153]" automatik aus!wait"
  48. 185 [139] q$[178]"+" [167] ag[178]0:[153]:[153]" automatik ein!wait"
  49. 187 [139]q$[178]"="[167] 125
  50. 190 [139] j[177]240 [167] 150
  51. 195 tc[178]ti:[137]260
  52. 200 u[178]0:z[178]0:s$[178]"":w[178]0:j[178]0
  53. 205 j[178] [194](56321)
  54. 210 [161] q$:[139]q$[178]""[167]250
  55. 215 [139] j[179]240[167]255
  56. 220 [139]q$[178]"*"[167] 1000
  57. 222 [139]q$[178]"\"[176]q$[178]"t"[167] [151]53280,5:[151]53281,5:[137] 1465
  58. 225 [139]q$[178][199](94)[167]u1[178]u1[171]1:w1[178]w1[171]5:[153]" ^wait";:[139]u1[179]10[167]z1[178]3:[139]u1[179]3[167]z1[178]2
  59. 230 [139]q$[178][199](95)[167]u1[178]u1[170]1:w1[178]w1[170]5:[153]" _wait";:[139]u1[178][177]3[167]z1[178]3:[139]u1[177][178]10[167]z1[178]4
  60. 240 [139] q$[178]"-" [167] ag[178]7:[153]:[153]" automatik aus!wait"
  61. 245 [139] q$[178]"+" [167] ag[178]0:[153]:[153]" automatik ein!wait"
  62. 247 [139]q$[178]"="[167] 655
  63. 250 [139] j[177]240 [167] w[178]w[170]1:[137]205
  64. 255 j[178] [194](56321)
  65. 260 [139] j[179] 240 [167] z[178]z[170]1:[137]255
  66. 265 [139] j[177] 240 [167] 275
  67. 270 [137]255
  68. 275 [139] z[179]z1 [167] s$[178]s$[170]"p"
  69. 280 [139] z[178][177]z1 [167] s$[178]s$[170]"s"
  70. 285 [139] [195](s$)[177]8[167] 640
  71. 290 z[178]0
  72. 295 j[178] [194](56321)
  73. 300 [139] j[177]240 [167] u[178]u[170]1
  74. 305 [139] j[179] 240 [167] u[178]0:[137]260
  75. 310 [139] u[177]u1[167] 320
  76. 315 [137] 295
  77. 320 [139] w[179][178]w1[173]2 [167] 340
  78. 325 [153]"  ";:[139] zs[178]7 [176] ag[178]7 [167] 340
  79. 330 [139] w1[179][178] 50[175] ir[178]0 [175] fd[178]0 [167] fd[178]1:[137]345
  80. 335 [139]w1[179][178]50[175]ir[178]0[167][153]" cmdcmdlwait";:u1[178]u1[170]1:w1[178]w1[170]5:j[178]7:[139]u1[178][177]3[167]z1[178]3:[139]u1[177][178]10[167]z1[178]5
  81. 340 fd[178]0:zs[178]0
  82. 345 ir[178]0
  83. 350 l[178][195](s$)
  84. 355 bn[178]bn[170]1:[139]l[177]4[167]wn[178]wn[170]1
  85. 360 [145] l [137] 370,385,410,455,520,595,620,630,640
  86. 365 [137]640
  87. 370 [139] s$[178]"p"[167] [153]" e";:[137] 200
  88. 375 [139] s$[178]"s"[167] [153]" t";:[137] 200
  89. 380 [153]" spc(";:[137]200
  90. 385 [139] s$[178]"ps"[167] [153]" a";:[137] 200
  91. 390 [139] s$[178]"sp"[167] [153]" n";:[137] 200
  92. 395 [139] s$[178]"pp"[167] [153]" i";:[137] 200
  93. 400 [139] s$[178]"ss"[167] [153]" m";:[137] 200
  94. 405 [153]" spc(";:[137]200
  95. 410 [139] s$[178]"spp"[167] [153]" d";:[137] 200
  96. 415 [139] s$[178]"ssp"[167] [153]" g";:[137] 200
  97. 420 [139] s$[178]"sps"[167] [153]" k";:[137] 200
  98. 425 [139] s$[178]"sss"[167] [153]" o";:[137] 200
  99. 430 [139] s$[178]"psp"[167] [153]" r";:[137] 200
  100. 435 [139] s$[178]"ppp"[167] [153]" s";:[137] 200
  101. 440 [139] s$[178]"pps"[167] [153]" u";:[137] 200
  102. 445 [139] s$[178]"pss"[167] [153]" w";:[137] 200
  103. 450 [153]" spc(";:[137]200
  104. 455 [139] s$[178]"sppp"[167] [153]" b";:[137] 200
  105. 460 [139] s$[178]"spsp"[167] [153]" c";:[137] 200
  106. 465 [139] s$[178]"ppsp"[167] [153]" f";:[137] 200
  107. 470 [139] s$[178]"pppp"[167] [153]" h";:[137] 200
  108. 475 [139] s$[178]"psss"[167] [153]" j";:[137] 200
  109. 480 [139] s$[178]"pspp"[167] [153]" l";:[137] 200
  110. 485 [139] s$[178]"pssp"[167] [153]" p";:[137] 200
  111. 490 [139] s$[178]"ssps"[167] [153]" q";:[137] 200
  112. 495 [139] s$[178]"ppps"[167] [153]" v";:[137] 200
  113. 500 [139] s$[178]"spss"[167] [153]" y";:[137] 200
  114. 505 [139] s$[178]"spps"[167] [153]" x";:[137] 200
  115. 510 [139] s$[178]"sspp"[167] [153]" z";:[137] 200
  116. 515 [153]" spc(";:[137]200
  117. 520 [139] s$[178]"pssss"[167] [153]" 1";:[137]200
  118. 525 [139] s$[178]"ppsss"[167] [153]" 2";:[137] 200
  119. 530 [139] s$[178]"pppss"[167] [153]" 3";:[137] 200
  120. 535 [139] s$[178]"pppps"[167] [153]" 4";:[137] 200
  121. 540 [139] s$[178]"ppppp"[167] [153]" 5";:[137] 200
  122. 545 [139] s$[178]"spppp"[167] [153]" 6";:[137] 200
  123. 550 [139] s$[178]"ssppp"[167] [153]" 7";:[137] 200
  124. 555 [139] s$[178]"pspsp"[167] [153]" +";:bn[178]bn[171]1:wn[178]wn[171]1 : [137] 655
  125. 560 [139] s$[178]"ssspp"[167] [153]" 8";:[137] 200
  126. 565 [139] s$[178]"spsps"[167] [153]" #";:zs[178]7: [137] 200
  127. 570 [139] s$[178]"ssssp"[167] [153]" 9";:[137] 200
  128. 575 [139] s$[178]"sppsp"[167] [153]" /";:zs[178]7: [137] 200
  129. 580 [139] s$[178]"sssss"[167] [153]" 0";:[137] 200
  130. 585 [139] s$[178]"sppps"[167] [153]" =";:zs[178]7: [137] 200
  131. 590 [153]" spc(";:wn[178]wn[171]1:[137]200
  132. 595 [139]s$[178]"pspsps"[167] [153]" .";:zs[178]7: [137]200
  133. 600 [139]s$[178]"ssppss"[167] [153]" ,";:zs[178]7: [137]200
  134. 605 [139]s$[178]"ppsspp"[167] [153]" ?";:zs[178]7: [137]200
  135. 610 [139] s$[178]"ssssss"[167] 640
  136. 615 [153]" spc(";:wn[178]wn[171]1:[137]200
  137. 620 [139] s$[178]"sssssss"[167] 640
  138. 625 [153]" spc(";:wn[178]wn[171]1:[137]200
  139. 630 [139]s$[178]"pppppppp"[175]w[177]w1[173]2[167][153]"cmdcmd";:[139]j[178]7[167]u1[178]u1[171]1:w1[178]w1[171]5
  140. 635 [139] s$[178]"pppppppp"[167] [153]"_irrung!wait";:ir[178]7:bn[178]bn[171]2:im[178]7:[137]200
  141. 640 [139] ag[178]7 [167] [153]" spc(";:[137]200
  142. 645 u1[178]u1[171] 1:w1[178]w1[171] 5:[153]" spc( swait";:bn[178]bn[170]1:fd[178]0:[139]u1[179]10[167]z1[178]3:[139]u1[179]3[167]z1[178]2
  143. 650 [137]200
  144. 655 tx[178]ti[171]tc:[153]:[153]" tototototototototototototototototototototototototototototototototototototototo";
  145. 657 [139] bn [179][178]1 [167] 125
  146. 660 ty[178]tx[173]60:tz[178][181](ty[170].5)
  147. 663 ba7[178]bn[171]wn:gn[178]bn[170]wn
  148. 665 [153]:[153]" das waren"bn"zeichen.":[153]" ("ba7"buchst. und"wn"zahlen/satzz.)
  149. 670 ifim=7thenprint" (irrungs-zeichen nicht mitgezaehlt)"
  150. 675 print:print" dauer:"tz"sec.";
  151. 680 tr=gn/tz*60:tw=int(tr+.5)
  152. 685 print"   tempo:"tw"bpm."
  153. 695 print:print" taste:t[146]   reader:r[146]   moduswechsel:*[146]"
  154. 700 getom$:ifom$=""then700
  155. 705 if om$="r"then z1=3:u1=6:w1=20:goto125
  156. 710 if om$="t"or om$="\"then poke53280,5:poke53281,5:goto1465
  157. 715 if om$="*"thenpoke53280,6:poke53281,6:goto1000
  158. 720 goto700
  159. 725 end
  160. 1000 rem morseoperator fuer c64                  (c) andreas frohme  1989
  161. 1002 x=rnd(-ti)
  162. 1005 poke 53280,5
  163. 1010 poke 53281,5
  164. 1015 si=54272:fl=si:fh=si+1:th=si+3:w2=si+4:h=si+6:l=si+24
  165. 1020 pokel,15
  166. 1025 poke h, 8*16+0
  167. 1030 poke th,8
  168. 1035 poke fh,60:poke fl,150
  169. 1038 poke 56576,147 : poke w2,64
  170. 1040 print"[147][144]                           [146]"
  171. 1045 print"             morseoperator [146]"
  172. 1050 printtab(12)"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][146]"
  173. 1052 printtab(12)" 1989   dl8aaw [146]"
  174. 1055 rem * (c) 1989   andreas frohme    *        (c) andreas frohme  1989
  175. 1060 print" sie haben 4 moeglichkeiten:"
  176. 1065 print" mit dem modus morsekurs[146] koennen sie     die morsezeichen  erlernen."
  177. 1070 print" im modus taste[146] koennen sie den c64 als  elektron. morsetaste nutzen."
  178. 1075 print" mit dem modus reader[146] kann der computer  morsezeichen aufnehmen und auf";
  179. 1080 print" dem      bildschirm lesbar machen."
  180. 1085 print" im modus automatik[146] spielt ihnen der     computer eine waehlbare anzahl
  181. 1090 [153]" von zufallszeichen vor."
  182. 1095 [153]" geben sie nun ein mwait fuer morsekurs,     ein twait fuer taste, ein";
  183. 1100 [153]" rwait fuer reader     oder ein await fuer automatik ein!"
  184. 1105 [161] i$:[139]i$[178]""[167]1105
  185. 1110 [139] i$[178]"t"[167] 1465
  186. 1115 [139] i$[178]"a"[167]1925
  187. 1120 [139] i$[178]"r"[167] 15
  188. 1125 [139] i$[178]"m"[167]2195
  189. 1130 [137]1105
  190. 1135 [143] *** zeichenerzeugung
  191. 1136 [161]v$:[139]v$[178]""[167] 1150
  192. 1137 [139]v$[179][177]"^"[175]v$[179][177]"_"[175]v$[179][177]"="[175]v$[179][177]">"[175]v$[179][177]"<"[167]1150
  193. 1138 [139] v$[178][199](60)[167] g[178]g[170]100:[137]1136
  194. 1140 [139] v$[178][199](62)[167] g[178]g[171]100:[137]1136
  195. 1141 [139] v$[178][199](94)[167] g[178]g[173]2 :pa[178]pa[171] 7:lp[178]lp[171].2:ls[178]ls[171] .6:[137]1136
  196. 1142 [139] v$[178][199](95)[167] g[178]g[172]2 :pa[178]pa[170] 7:lp[178]lp[170].2:ls[178]ls[170] .6:[137]1136
  197. 1143 [139]v$[178]"=" [167] tx[178]ti[171]tc:[153]:[141]2950:[153]:[153]" abbruch!":[153]:[139]w[179]2[167] 1925
  198. 1145 [137]2080
  199. 1147 [137]1140
  200. 1150 [145]x[137]1155,1160,1165,1170,1175,1180,1185,1190,1195,1200,1205,1210,1215,1220
  201. 1152 [145]x[171]14[137]1225,1230,1235,1240,1245,1250,1255,1260,1265,1270,1275,1280,1285
  202. 1153 [145]x[171]27[137]1290,1295,1300,1305,1310,1315,1320,1325,1330,1335,1340,1345,1350
  203. 1154 [145]x[171]40[137]1355,1360,1365,1370
  204. 1155 m$[178]"a":[141]1405:[141]1435:[137] 2150
  205. 1160 m$[178]"b":[141]1435:[141]1405:[141]1405:[141]1405:[137] 2150
  206. 1165 m$[178]"c":[141]1435:[141]1405:[141]1435:[141]1405:[137] 2150
  207. 1170 m$[178]"d":[141]1435:[141]1405:[141]1405:[137] 2150
  208. 1175 m$[178]"e":[141]1405:[137] 2150
  209. 1180 m$[178]"f":[141]1405:[141]1405:[141]1435:[141]1405:[137] 2150
  210. 1185 m$[178]"g":[141]1435:[141]1435:[141]1405:[137] 2150
  211. 1190 m$[178]"h":[141]1405:[141]1405:[141]1405:[141]1405:[141]2150
  212. 1195 m$[178]"i":[141]1405:[141]1405:[137] 2150
  213. 1200 m$[178]"j":[141]1405:[141]1435:[141]1435:[141]1435:[137] 2150
  214. 1205 m$[178]"k":[141]1435:[141]1405:[141]1435:[137] 2150
  215. 1210 m$[178]"l":[141]1405:[141]1435:[141]1405:[141]1405:[137] 2150
  216. 1215 m$ [178]"m":[141]1435:[141]1435:[137] 2150
  217. 1220 m$ [178]"n":[141]1435:[141]1405:[137] 2150
  218. 1225 m$ [178]"o":[141]1435:[141]1435:[141]1435:[137] 2150
  219. 1230 m$[178]"p":[141]1405:[141]1435:[141]1435:[141]1405:[137] 2150
  220. 1235 m$[178]"q":[141]1435:[141]1435:[141]1405:[141]1435:[137] 2150
  221. 1240 m$[178]"r":[141]1405:[141]1435:[141]1405:[137] 2150
  222. 1245 m$[178]"s":[141]1405:[141]1405:[141]1405:[137] 2150
  223. 1250 m$[178]"t":[141]1435:[137] 2150
  224. 1255 m$[178]"u":[141]1405:[141]1405:[141]1435:[137] 2150
  225. 1260 m$[178]"v":[141]1405:[141]1405:[141]1405:[141]1435:[137] 2150
  226. 1265 m$[178]"w":[141]1405:[141]1435:[141]1435:[137] 2150
  227. 1270 m$[178]"x":[141]1435:[141]1405:[141]1405:[141]1435:[137] 2150
  228. 1275 m$[178]"y":[141]1435:[141]1405:[141]1435:[141]1435:[137] 2150
  229. 1280 m$[178]"z":[141]1435:[141]1435:[141]1405:[141]1405:[137] 2150
  230. 1285 m$[178]"1":[141]1405:[141]1435:[141]1435:[141]1435:[141]1435:[137] 2150
  231. 1290 m$[178]"2":[141]1405:[141]1405:[141]1435:[141]1435:[141]1435:[137] 2150
  232. 1295 m$[178]"3":[141]1405:[141]1405:[141]1405:[141]1435:[141]1435:[137] 2150
  233. 1300 m$[178]"4":[141]1405:[141]1405:[141]1405:[141]1405:[141]1435:[137] 2150
  234. 1305 m$[178]"5":[141]1405:[141]1405:[141]1405:[141]1405:[141]1405:[137] 2150
  235. 1310 m$[178]"6":[141]1435:[141]1405:[141]1405:[141]1405:[141]1405:[137] 2150
  236. 1315 m$[178]"7":[141]1435:[141]1435:[141]1405:[141]1405:[141]1405:[137] 2150
  237. 1320 m$[178]"8":[141]1435:[141]1435:[141]1435:[141]1405:[141]1405:[137] 2150
  238. 1325 m$[178]"9":[141]1435:[141]1435:[141]1435:[141]1435:[141]1405:[137] 2150
  239. 1330 m$[178]"0":[141]1435:[141]1435:[141]1435:[141]1435:[141]1435:[137] 2150
  240. 1335 m$[178]".":[141]1405:[141]1435:[141]1405:[141]1435:[141]1405:[141]1435:[137] 2150
  241. 1340 m$[178]",":[141]1435:[141]1435:[141]1405:[141]1405:[141]1435:[141]1435:[137] 2150
  242. 1345 m$[178]"?":[141]1405:[141]1405:[141]1435:[141]1435:[141]1405:[141]1405:[137] 2150
  243. 1350 m$[178]"=":[141]1435:[141]1405:[141]1405:[141]1405:[141]1435:[137]2150
  244. 1355 m$[178]"/":[141]1435:[141]1405:[141]1405:[141]1435:[141]1405:[137] 2150
  245. 1360 m$[178]"#":[141]1435:[141]1405:[141]1435:[141]1405:[141]1435:[137] 2160
  246. 1365 m$[178]"+":[141]2170:[141]1405:[141]1435:[141]1405:[141]1435:[141]1405
  247. 1370 w[178]w[170]1:wn[178]wn[170]1:[139]x[177]26[167]wn[178]wn[170]1
  248. 1375 [139] i$[178]"m"[167] 2745
  249. 1380 [139] i$[178]"t"[167] [129]i[178]1[164]g:[130]:[137]1825
  250. 1385 f2[178]f2[170]1
  251. 1390 f3[178]f3[170]1
  252. 1395 [129] l[178]1[164] g :[130]l
  253. 1400 [137] 2050
  254. 1405 [143] punkterzeugung
  255. 1410 [151] w2,65 : [151] 56576,151
  256. 1415 [129] i[178]1 [164] lp[172]15 : [130]
  257. 1420 [151] w2,64 : [151] 56576,147
  258. 1425 [129] i [178] 1 [164] [181](.7[172]pa) : [130]
  259. 1430 [142]
  260. 1435 [143] stricherzeugung
  261. 1440 [151] w2,65 : [151] 56576,151
  262. 1445 [129] i[178]1 [164] ls[172]15 : [130]
  263. 1450 [151] w2,64 : [151] 56576,147
  264. 1455 [129] i [178] 1 [164] [181](.7[172]pa) : [130]
  265. 1460 [142]
  266. 1465 iv[178]1:lb[178]1:[151]56280,5:[151]65281,5:i$[178]"t"
  267. 1470 [153]"load taste"
  268. 1475 [153]" tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(";
  269. 1480 [153]" langsamer: _wait - schneller: ^wait  pausen:<wait/>wait on"
  270. 1485 [153]:[153]" textspeicherbelegung: inst/delwait-taste":[153]
  271. 1490 [153]" moduswechsel: *wait-taste - morsereader: \wait"
  272. 1495 [141]2950
  273. 1500 [153]
  274. 1505 [161]t$:[139]t$ [178]""[167]1505
  275. 1510 [139] t$[178]"a" [176] t$[178]"atn" [167] x[178]1:[137]1150
  276. 1515 [139] t$[178]"b" [176] t$[178]"peek" [167] x[178]2:[137]1150
  277. 1520 [139] t$[178]"c" [176] t$[178]"len" [167] x[178]3:[137]1150
  278. 1525 [139] t$[178]"d" [176] t$[178]"str$" [167] x[178]4:[137]1150
  279. 1530 [139] t$[178]"e" [176] t$[178]"val" [167] x[178]5:[137]1150
  280. 1535 [139] t$[178]"f" [176] t$[178]"asc" [167] x[178]6:[137]1150
  281. 1540 [139] t$[178]"g" [176] t$[178]"chr$" [167] x[178]7:[137]1150
  282. 1545 [139] t$[178]"h" [176] t$[178]"left$" [167] x[178]8:[137]1150
  283. 1550 [139] t$[178]"i" [176] t$[178]"right$" [167] x[178]9:[137]1150
  284. 1555 [139] t$[178]"j" [176] t$[178]"mid$" [167] x[178]10:[137]1150
  285. 1560 [139] t$[178]"k" [176] t$[178]"(NULL)" [167] x[178]11:[137]1150
  286. 1565 [139] t$[178]"l" [176] t$[178]"(NULL)" [167] x[178]12:[137]1150
  287. 1570 [139] t$[178]"m" [176] t$[178]"(NULL)" [167] x[178]13:[137]1150
  288. 1575 [139] t$[178]"n" [176] t$[178]"(NULL)" [167] x[178]14:[137]1150
  289. 1580 [139] t$[178]"o" [176] t$[178]"(NULL)" [167] x[178]15:[137]1150
  290. 1585 [139] t$[178]"p" [176] t$[178]"(NULL)" [167] x[178]16:[137]1150
  291. 1590 [139] t$[178]"q" [176] t$[178]"(NULL)" [167] x[178]17:[137]1150
  292. 1595 [139] t$[178]"r" [176] t$[178]"(NULL)" [167] x[178]18:[137]1150
  293. 1600 [139] t$[178]"s" [176] t$[178]"(NULL)" [167] x[178]19:[137]1150
  294. 1605 [139] t$[178]"t" [176] t$[178]"(NULL)" [167] x[178]20:[137]1150
  295. 1610 [139] t$[178]"u" [176] t$[178]"(NULL)" [167] x[178]21:[137]1150
  296. 1615 [139] t$[178]"v" [176] t$[178]"(NULL)" [167] x[178]22:[137]1150
  297. 1620 [139] t$[178]"w" [176] t$[178]"(NULL)" [167] x[178]23:[137]1150
  298. 1625 [139] t$[178]"x" [176] t$[178]"(NULL)" [167] x[178]24:[137]1150
  299. 1630 [139] t$[178]"y" [176] t$[178]"(NULL)" [167] x[178]25:[137]1150
  300. 1635 [139] t$[178]"z" [176] t$[178]"(NULL)" [167] x[178]26:[137]1150
  301. 1640 [139] t$[178]"1" [167] x[178]27:[137]1150
  302. 1645 [139] t$[178]"2" [167] x[178]28:[137]1150
  303. 1650 [139] t$[178]"3" [167] x[178]29:[137]1150
  304. 1655 [139] t$[178]"4" [167] x[178]30:[137]1150
  305. 1660 [139] t$[178]"5" [167] x[178]31:[137]1150
  306. 1665 [139] t$[178]"6" [167] x[178]32:[137]1150
  307. 1670 [139] t$[178]"7" [167] x[178]33:[137]1150
  308. 1675 [139] t$[178]"8" [167] x[178]34:[137]1150
  309. 1680 [139] t$[178]"9" [167] x[178]35:[137]1150
  310. 1685 [139] t$[178]"0" [167] x[178]36:[137]1150
  311. 1690 [139] t$[178]"." [167] x[178]37:[137]1150
  312. 1695 [139] t$[178]"," [167] x[178]38:[137]1150
  313. 1700 [139] t$[178]"?" [167] x[178]39:[137]1150
  314. 1705 [139] t$[178]"=" [167] x[178]40:[137]1150
  315. 1710 [139] t$[178]"/" [167] x[178]41:[137]1150
  316. 1715 [139] t$[178]"#" [167] x[178]42:[137]1150
  317. 1720 [139] t$[178]"+" [167] x[178]43:[137]1150
  318. 1725 [139] t$[178]"\" [167] [151]53280,6:[151]53281,6:[137]125
  319. 1730 [139] t$[178]" " [167] [153]"  ";:[129]x[178]1[164]100:[130]x:[139] lb [179][177] 1 [167] 1825
  320. 1735 [139] t$[178][199]( 95)[167] g[178]g[172]1.3:pa[178]pa[170]7:lp[178]lp[170].3:ls[178]ls[170].9: [139]g[177]1000 [167] g[178]1000
  321. 1740 [139] t$[178][199]( 94)[167] g[178]g[173]1.3:pa[178]pa[171]7:lp[178]lp[171].3:ls[178]ls[171].9
  322. 1742 [139] t$[178][199](60) [167] g[178]g[170]100
  323. 1743 [139] t$[178][199](62) [167] g[178]g[171]100
  324. 1745 [139] t$[178][199](42) [167] 1000
  325. 1750 [139] t$[178][199](20)[167][153]"load":[137]1835
  326. 1760 [139] t$[178][199](133) [167] sp[178]1:[137]1805
  327. 1765 [139] t$[178][199](137) [167] sp[178]2:[137]1805
  328. 1770 [139] t$[178][199](134) [167] sp[178]3:[137]1805
  329. 1775 [139] t$[178][199](138) [167] sp[178]4:[137]1805
  330. 1780 [139] t$[178][199](135) [167] sp[178]5:[137]1805
  331. 1785 [139] t$[178][199](139) [167] sp[178]6:[137]1805
  332. 1790 [139] t$[178][199](136) [167] sp[178]7:[137]1805
  333. 1795 [139] t$[178][199](140) [167] sp[178]8:[137]1805
  334. 1800 [137]1505
  335. 1805 lb[178][195](sf$(sp))
  336. 1810 sv$[178]sf$(sp)
  337. 1815 t$[178][202](sv$,iv,1)
  338. 1820 [137] 1510
  339. 1825 [139] iv[179]lb [167] iv[178]iv[170]1 :[137] 1815
  340. 1830 iv[178]1:lb[178]1: [137] 1505
  341. 1835 [153]" speicherinhaltsuebersicht:":[153]
  342. 1840 [129] i[178]1[164]8:[139]sf$(i)[179][177]""[167][153]" f"i": "sf$(i)
  343. 1845 [130]i
  344. 1850 [153]:[153]" welche f-taste soll belegt werden?      (1-8) - keine: 9wait"
  345. 1855 [161] sq$:[139]sq$[178]""[167] 1855
  346. 1857 sp[178][197](sq$)
  347. 1858 [139] sp[178]0 [167] 1855
  348. 1860 [139] sp [178] 9 [167] 1465
  349. 1865 [153]sp:[153]" geben sie nun den abzuspeicherden text  ein! (return)"
  350. 1870 [153]
  351. 1875 [133] sp$
  352. 1880 sf$(sp)[178]sp$
  353. 1885 [153]:[153]" neue inhaltsuebersicht:":[153]
  354. 1890 [129] i[178]1[164]8:[139]sf$(i)[179][177]""[167] [153]" f"i": "sf$(i)
  355. 1895 [130]i
  356. 1900 [153]:[153]" noch eine speicherbelegung? (j/n)
  357. 1905 get ns$ :if ns$="" then 1905
  358. 1910 if ns$="j"then goto 1850
  359. 1915 if ns$="n"or ns$=chr$(13) then 1465
  360. 1920 goto 1905
  361. 1925 w=0:print"[147] wieviel zeichen wollen sie?":print" nach eingabe bitte return[146] ruecken!"
  362. 1930 wn=0: print:print" ";:inputbn
  363. 1935 if bn=0 then 1000
  364. 1940 print:print" auch zahlen? (j/n)
  365. 1945 [161] c$ :[139] c$[178]""[167] 1945
  366. 1950 [139]c$[178]"n"[167] ju[178]26 :[137]1990
  367. 1955 [139]c$[178]"j" [176] c$[178][199](13) [167] ju[178]36 :[137]1965
  368. 1960 [137] 1945
  369. 1965 [153]:[153]" auch satzzeichen? (j/n)
  370. 1970 get c$ :if c$=""then 1970
  371. 1975 ifc$="n"then ju=36 :goto1990
  372. 1980 ifc$="j" or c$=chr$(13) then ju=41 :goto1990
  373. 1985 goto 1970
  374. 1990 print" fuenfergruppen? (j/n)"
  375. 1995 get f$ :iff$=""then 1995
  376. 1997 if f$=chr$(13)then f$="j"
  377. 2000 iff$<>"n"andf$<>"j"then 1995
  378. 2005 print:print" waehlen sie bitte die geschwindigkeit:":print
  379. 2010 print" schnell = s[146]":print
  380. 2015 print" mittel  = m[146]":print
  381. 2020 print" langsam = l[146]":print
  382. 2025 get g$:ifg$=""then2025
  383. 2030 ifg$="s"theng=1:lp=3:ls=9:pa=65:goto2180
  384. 2035 ifg$="m"theng=10 :lp=5:ls=13:pa=110:goto2180
  385. 2040 ifg$="l"theng=500:lp=5:ls=14:pa=110:goto2180
  386. 2045 goto2025
  387. 2050 x=int(rnd(ti)*ju)+1
  388. 2055 if f$="j"thengosub2925
  389. 2060 ifw =bn then tx=ti-tc:gosub 2070:gosub2950:print:goto2080
  390. 2065 goto1135
  391. 2070 fori=1to600:nexti:gosub1405:gosub1435:gosub1405:gosub1435:gosub1405:print:print" +"
  392. 2075 return
  393. 2080 print:print" das waren "w" zeichen."
  394. 2085 ty=tx/60:tz=int(ty+.5):print:print" dauer:"tz"sec."
  395. 2090 tr=wn/tz*60:tw=int(tr+.5):print:print" geschwindigkeit:"tw"bpm.":print
  396. 2095 w=0:f2=0:f3=0:wn=0
  397. 2100 print" wollen sie nocheinmal? (j/n)"
  398. 2105 get u$:ifu$=""then2105
  399. 2110 if u$="j" then 2125
  400. 2115 if u$="n" then 1000
  401. 2120 goto 2105
  402. 2125 print:print" wie eben? (j/n)"
  403. 2130 get u$ :ifu$=""then 2130
  404. 2135 if u$="j"thenw=0:goto2180
  405. 2140 if u$="n"then 1925
  406. 2145 goto 2130
  407. 2150 print" ";:printm$;
  408. 2155 goto 1370
  409. 2160 print" ";:printm$:fori=1to600:nexti
  410. 2165 goto 1370
  411. 2170 fori=1to450:nexti: print"  ";:printm$
  412. 2175 return
  413. 2180 print"[147] es geht los!   (abbruch:=[146] tempo:^_<>[146]) [144]"
  414. 2182 gosub2950:print:for d=1to2000:nextd
  415. 2185 print" #":gosub1435:gosub1405:gosub1435:gosub1405:gosub1435:gosub2910:tc=ti
  416. 2190 goto2050
  417. 2195 lp=4:ls=12:pa=100:sa=120:g=300:i$="m":az=75
  418. 2200 print"[147] morsekurs in 22 lektionen":gosub2950:print
  419. 2205 print " mit welcher lektion wollen sie          beginnen?"
  420. 2210 print" (ueben bestimmter zeichen: 0[146])"
  421. 2230 print"            (return)"
  422. 2235 print"[145][145][145][145] ":input le
  423. 2240 if le>22 or le<0 then print:print" es gibt nur 22 lektionen!":goto 2230
  424. 2245 if int(le)=1 then s$="lv0e"
  425. 2250 if int(le)=2 then s$="lv0easq"
  426. 2255 if le=3 then s$="lv0easqt2"
  427. 2260 if le=4 then s$="lv0easqt2oc"
  428. 2265 if le=5 then s$="lv0easqt2ocd5"
  429. 2270 if le=6 then s$="lv0easqt2ocd5r/"
  430. 2275 if le=7 then s$="lv0easqt2ocd5r/i9"
  431. 2280 if le=8 then s$="lv0easqt2ocd5r/i9gx"
  432. 2285 if le=9 then s$="lv0easqt2ocd5r/i9gxf4"
  433. 2290 if le=0 then 2625
  434. 2295 if le=10then s$="lv0easqt2ocd5r/i9gxf4nj"
  435. 2300 if le=11then s$="lv0easqt2ocd5r/i9gxf4nju7"
  436. 2305 if le=12then s$="lv0easqt2ocd5r/i9gxf4nju7h,"
  437. 2310 if le=13then s$="lv0easqt2ocd5r/i9gxf4nju7h,=."
  438. 2315 if le=14then s$="lv0easqt2ocd5r/i9gxf4nju7h,=.kb"
  439. 2320 if le=15then s$="lv0easqt2ocd5r/i9gxf4nju7h,=.kbp3"
  440. 2325 if le=16then s$="lv0easqt2ocd5r/i9gxf4nju7h,=.kbp3ym"
  441. 2330 if le=17then s$="lv0easqt2ocd5r/i9gxf4nju7h,=.kbp3ymzw"
  442. 2335 if le=18then s$="lv0easqt2ocd5r/i9gxf4nju7h,=.kbp3ymzw16"
  443. 2340 if le> 18then s$="lv0easqt2ocd5r/i9gxf4nju7h,=.kbp3ymzw168?"
  444. 2345 if ue>1 then 2450
  445. 2350 lp=4:ls=12:pa=100:g= 700:az=75
  446. 2355 if le>20 then lp=4:ls=12:pa=100:g=1:az=120
  447. 2360 if le=1 then goto 2730
  448. 2365 if le=2 then goto2840
  449. 2370 ifle>19thenue=1:print"[147] lektion "le:print" fuenfergruppen mit allen zeichen:":goto2450
  450. 2375 print"[147] lektion "le
  451. 2380 n$=right$(s$,2):n1$=left$(n$,1):n2$=right$(n$,1)
  452. 2385 print:print" sie lernen nun 2 neue zeichen:":print:print" "n1$" und "n2$"."
  453. 2390 gosub 2915
  454. 2395 print:print" hier zunaechst "n1$" :":print:t$=n1$:w=0
  455. 2400 for i=1to 800 :nexti
  456. 2405 if t$=n2$ then 2425
  457. 2410 if w<10 then 1510
  458. 2415 print:print:print " und nun "n2$" :":print:t$=n2$:w=0
  459. 2420 gosub2910
  460. 2425 if w<10 then 1510
  461. 2430 for i=1 to 2000:nexti
  462. 2435 print"[147] und nun fuenfergruppen mit den alten    und neuen zeichen:":ue=1
  463. 2440 ue=1
  464. 2445 if le><12 then s$=s$+n1$+n1$+n1$+n1$+n1$+n2$+n2$+n2$+n2$+n2$
  465. 2450 print" [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";:print
  466. 2455 for i=1 to 3000 : next i
  467. 2460 print" #":gosub1435:gosub1405:gosub1435:gosub1405:gosub1435
  468. 2462 for i=1 to 1000 : next i
  469. 2465 w=0:f2=(-1):f3=(-1)
  470. 2470 if le=1 then 2815
  471. 2475 r=int(1+len(s$)*rnd(ti))
  472. 2480 z$=mid$(s$,r,1):f2=f2+1:f3=f3+1:t$=z$
  473. 2485 gosub2925
  474. 2490 if w=> az then 2505
  475. 2495 fori=1to g :nexti
  476. 2500 goto 1510
  477. 2505 fori=1to600:nexti:gosub1405:gosub1435:gosub1405:gosub1435:gosub1405:print:print" +"
  478. 2510 print:print" das war's. bitte vergleichen sie!"
  479. 2515 fori=1to5000:nexti:gosub2950
  480. 2520 az=75 : if le>20 then lp=3:ls=9:pa=75:sa=90:g=1:az=150:goto2535
  481. 2525 if le > 6 and ue > 4 then lp=3:ls=9:pa=80:sa=100:g=150:az=105
  482. 2530 if le > 6 and ue > 7 then pa=75:sa= 90:g=1:az=120
  483. 2532 if le > 6 and ue >10 then pa=100:lp=5:ls=13:g=1:az=105
  484. 2535 if ue=10 and le=22 then goto 2555
  485. 2538 if ue<=12then goto 2550
  486. 2540 if ue >12 thenprint: print" das waren nun"ue"uebungen."
  487. 2545 print" sie koennen jetzt eigentlich mit der    naechsten lektion beginnen!"
  488. 2550 if le=0 then goto2230
  489. 2555 ifue= 10andle>=22thenprint" gratulation! kursende!":end
  490. 2560 print:print" naechste uebung? -druecken sie bitte n[146]!"
  491. 2565 if le>=22 then 2575
  492. 2570 print" naechste lektion - l[146]"
  493. 2575 print:print" ueben bestimmter zeichen - z[146]"
  494. 2580 print" anderer modus - *[146]"
  495. 2585 get nu$:ifnu$=""then2585
  496. 2590 if nu$="n" then ue=ue+1:print"[147]":print" lektion"int(le)" - uebung "ue:goto 2245
  497. 2595 if nu$="*" then 1000
  498. 2600 if nu$="l" and le=22 then 2585
  499. 2605 if nu$="z" then 2625
  500. 2610 if nu$="l" then ue=0:w=0:le=int(le):le=le+1:print"[147]":goto2245
  501. 2615 goto 2585
  502. 2620 goto 2450
  503. 2625 print"[147] ueben bestimmmter zeichen":gosub2950:az=45
  504. 2630 print:print" geben sie die zeichen, die sie ueben    wollen, einfach hintereinander ein"
  505. 2635 print" (z.b.: q2lv ) und druecken sie dann     die return[146]-taste."
  506. 2640 print:input" ";s$
  507. 2643 if s$="" then 2640
  508. 2645 gosub2950:print:goto 2455
  509. 2650 print"[147] am anfang und am ende jeder uebung"
  510. 2655 print" ertoent ein zeichen fuer den >spruch-"
  511. 2660 print" anfang< und das >spruchende<.":gosub 2920
  512. 2665 print" der spruchanfang wird mit einem #[146]"
  513. 2670 print" dargestellt und klingt so:":print:gosub2920
  514. 2675 for ki=1to 3
  515. 2680 gosub1435:gosub1405:gosub1435:gosub1405:gosub1435:print" #";:gosub 2910
  516. 2685 nextki
  517. 2690 gosub2910:print:print:print" das spruchende wird durch ein +[146]"
  518. 2695 print" dargestellt und hoert sich so an:":gosub2920
  519. 2700 forki=1to3
  520. 2705 gosub1405:gosub1435:gosub1405:gosub1435:gosub1405:print" +";:gosub2910
  521. 2710 next ki
  522. 2715 gosub2910:print:print" nun kann es aber losgehen!":print" bitte schreiben sie!"
  523. 2720 gosub2915
  524. 2725 goto 2835
  525. 2730 print"[147] sie lernen heute 4 zeichen: l[146] v[146] e[146] und   die 0[146]."
  526. 2735 fori=1to3500:nexti:print" hier zunaechst das l:":print
  527. 2740 t$="l":w=0
  528. 2745 if le=1 then 2765
  529. 2750 if le=0 then 2475
  530. 2755 if le=2 then 2865
  531. 2760 if ue<1 then 2400
  532. 2765 if le<>1 then 2470
  533. 2770 if zw>0 then 2815
  534. 2775 for i=1 to 1000:nexti
  535. 2780 if w<10 goto 1510
  536. 2785 zw=0
  537. 2790 zw=zw+1
  538. 2795 if zw=1 then nl$="v"
  539. 2800 if zw=2 then nl$="e"
  540. 2805 if zw=3 then nl$="0"
  541. 2810 w=0:t$=nl$:print:print:print" und nun "nl$" :"
  542. 2815 gosub2910
  543. 2820 if w<10 goto 1510
  544. 2825 if zw< 3 goto 2790
  545. 2830 gosub2915:goto 2650
  546. 2835 print"[147] fuenfergruppen:":zw=0:le=1.1:s$="lv0e":goto2440
  547. 2840 zw=0
  548. 2845 print"[147] 2. lektion":gosub2950:print:print" sie lernen nun 3 neue zeichen:"
  549. 2850 print" das a[146], das s[146] und das q[146]."
  550. 2855 print" hier zunaechst das a:":print
  551. 2857 gosub 2915
  552. 2860 t$="a": w=0
  553. 2865 if dl$="q"and w=10then le=2.5:s$="lvqeasq":gosub2910:w=0:       goto 2435
  554. 2870 gosub2910
  555. 2875 if w<10 then1510
  556. 2880 zw=zw+1
  557. 2885 if zw=1 then dl$="s"
  558. 2890 if zw=2 then dl$="q"
  559. 2895 w=0:t$=dl$:print:print:print" und nun "dl$" :":print
  560. 2900 gosub2910
  561. 2905 if w<10 then 1510
  562. 2910 for i=1 to 1000 : next i:return
  563. 2915 for i=1 to 2000 : next i:return
  564. 2920 for i=1 to 3000 : next i:return
  565. 2925 if f2<5then 2945
  566. 2930 print"  ";:fori=1to 30*lp+(abs(g)+g):nexti:f2=0
  567. 2932 ifi$="m"then for i=1to50*lp:nexti
  568. 2935 if f3<15 then return
  569. 2940 if f3=15 thenf3=0:print:f3=0
  570. 2945 return
  571. 2950 printtab(1)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
  572. 2955 return
  573. 3000 lp=3:ls=9:pa=70:g=10:poke56579,255
  574. 3001 rem  *** in diese zeilen koennen                 sie dauertexte fuer den
  575. 3002 rem      modus taste individuell                 eingeben !
  576. 3005 rem
  577. 3010 sf$(1)="cq cq cq "
  578. 3020 sf$(3)=""
  579. 3030 sf$(5)=""
  580. 3040 sf$(7)=""
  581. 3050 sf$(2)=""
  582. 3060 sf$(4)=""
  583. 3070 sf$(6)=""
  584. 3080 sf$(8)=""
  585. 3090 goto 1000
  586. 3100 rem  *** nach eingabe programm neu               abspeichern!
  587. 3110 :
  588. 3120 rem  einen bericht ueber dieses              programm finden sie in der
  589. 3130 rem  cq-dl 7/89, s. 435;                     ein interface auf s. 425.
  590.