home *** CD-ROM | disk | FTP | other *** search
/ M.u.C.S. Disc 2000 / MUCS2000.iso / sigisoft / tippsy / tippsy.bas < prev    next >
BASIC Source File  |  1997-10-09  |  19KB  |  399 lines
  1. 10   REM **************************
  2. 20   REM PROGRAMM:
  3. 30   REM TIPPSY
  4. 40   REM FUNKTION:
  5. 50   REM Tipp-Trainer
  6. 60   REM PROGRAMMIERSPRACHE:
  7. 70   REM HISOFT Basic
  8. 80   REM GRAFIK-KARTEN:
  9. 90   REM SW Monitor
  10. 100  REM SYSTEM:
  11. 110  REM Atari ST
  12. 120  REM **************************
  13. 200 REM
  14. 210 GOSUB 290:
  15. 220 :
  16. 230 ANSWER$=INKEY$: IF ANSWER$="" THEN GOTO 230
  17. 240 IF ANSWER$="A" OR ANSWER$="a" THEN GOTO 440
  18. 250 IF ANSWER$="L" OR ANSWER$="l" THEN goto 1160
  19. 260 IF ANSWER$="E" OR ANSWER$="e" THEN CLS:END
  20. 270 GOTO 230
  21. 280 END
  22. 290 :
  23. 300 CLS
  24. 310 PRINT:PRINT:PRINT:PRINT
  25. 320 :
  26. 330 PRINT"************************************************************************"
  27. 340 PRINT"****************************** TIPPSY **********************************"
  28. 350 PRINT"****************** Zehnfinger-Blindschreib-Lernystem *******************"
  29. 360 PRINT"***************************** Atari ST *********************************"
  30. 370 PRINT"************************************************************************"
  31. 371 print"PD Version 1.0   by Siegfried Hübner, Obere Vorstadt 21, 8812 Windsbach"
  32. 380 :
  33.  
  34. 390 LOCATE 13,25:PRINT "Bitte eingeben:"
  35. 400 LOCATE 16,25:PRINT "'A' für Anweisungen"
  36. 410 LOCATE 18,25:PRINT "'L' für Lektionen"
  37. 420 LOCATE 20,25:PRINT "'E' für Ende"
  38. 430 RETURN
  39. 440 CLS
  40. 450 PRINT:PRINT
  41. 460 PRINT"         G E B R A U C H S A N W E I S U N G"
  42. 470 PRINT
  43. 480 PRINT"Die Finger jeder Hand liegen locker und unverkrampft auf"
  44. 490 PRINT"sogenannten ' Grundtasten '. Wichtig ist, diese Ausgangs-"
  45. 500 PRINT"stellung konsequent beizubehalten und nach jeder Tasten-. "
  46. 510 PRINT"bedienung auf die 'Grundtasten' zurückzukehren."
  47. 520 PRINT"Die Grundtasten sind ' A-S-D-F ' für die Finger der linken"
  48. 530 PRINT"Hand und ' J-K-L-Ö ' für die Finger der rechten Hand."
  49. 540 PRINT
  50. 550 PRINT"       Linke Hand                      Rechte Hand":
  51. 560 PRINT"       4 3 2 1/1                       1/1 2 3 4/4"
  52. 570 PRINT"       ----------                      -----------"
  53. 580 PRINT"       A S D F G                       H J K L Ö Ä"
  54. 590 PRINT
  55. 600 PRINT"Die Tasten über oder unter den ' Grundtasten ' werden von den"
  56. 610 PRINT"entsprechenden Fingern diagonal bedient. "
  57. 620 PRINT
  58. 630 INPUT "WEITER MIT 'RETURN'";X$
  59. 640 CLS
  60. 650 PRINT:PRINT:PRINT TAB(10)"Weitere Anweisungen"
  61. 660 PRINT:PRINT
  62. 670 PRINT "    Linke Hand                           Rechte Hand"
  63. 680 PRINT "(4) (3) (2) (1) [1]                 [1] (1) (2) (3) (4) [4]"
  64. 690 PRINT " 1   2   3   4   5                   6   7   8   9   0  ß"
  65. 700 PRINT "  Q   W   E   R   T                   Z   U   I   O   P  Ü"
  66. 710 PRINT "   A   S   D   F   G                   H   J   K   L   Ö  Ä"
  67. 720 PRINT "    Y   X   C   V   B                   N   M   ;   :  -"
  68. 730 PRINT "                   -- LEERTASTE --"
  69. 740 PRINT
  70. 750 PRINT"Die Leertaste wird mit einem Daumen bedient."
  71. 760 PRINT
  72. 770 PRINT "Die Zeige- und kleinen Finger jeder Hand bedienen zusätzlich"
  73. 780 PRINT "Tasten. Der linke Zeigefinger bedient auf der Grundlinie das "
  74. 790 PRINT "' F ' und ' G ', der rechte Zeigefinger ' J ' und das ' H '."
  75. 800 PRINT "Aus der Grundhaltung der Finger wird die Bedienung der an-  "
  76. 810 PRINT "deren Tasten deutlich."
  77. 820 PRINT "' RETURN ' wird mit dem rechten kleinen Finger bedient."
  78. 830 PRINT
  79. 840 INPUT"WEITER MIT 'RETURN'";X$
  80. 850 CLS
  81. 860 PRINT
  82. 870 PRINT "ZU DEN LEKTIONEN"
  83. 880 PRINT
  84. 890 PRINT "Die erste Übung beginnt mit den ' Grundtasten '. Hier soll"
  85. 900 PRINT "die richtige Fingerstellung und der Gebrauch aller Finger "
  86. 910 PRINT "trainiert werden. Mit jeder weiteren Lektion kommen andere"
  87. 920 PRINT "Tasten hinzu, bis der gesamte Tastaturbereich erfaßt ist. "
  88. 930 PRINT "Die Kontrollübungen dienen der Wiederholung."
  89. 940 PRINT
  90. 950 PRINT "Das Programm achtet auf Fehler. Bei fehlerhafter Eingabe"
  91. 960 PRINT "verharrt der Cursor auf dem falsch eingegebenen Buchstaben"
  92. 970 PRINT "und wartet auf die korrekte Eingabe. Fehler werden gezählt."
  93. 980 PRINT "Damit wird schluderhaftes Arbeiten unmöglich."
  94. 990 PRINT
  95. 1000 PRINT "Nach dem Ende der letzten Reihe und nach dem letzten ' Return '"
  96. 1010 PRINT "wird die Fehlerquote in Prozent angezeigt. Es besteht dann die"
  97. 1020 PRINT "Möglichkeit, die Lektion zu wiederholen oder zur nächst folgenden"
  98. 1030 PRINT "Lektion weiterzuschalten. Mit ' Enter ' wird das Menue aufgerufen"
  99. 1040 PRINT "und auf dem Bildschirm angezeigt."
  100. 1050 PRINT
  101. 1060 INPUT"WEITER MIT 'RETURN'";X$
  102. 1070 CLS
  103. 1080 PRINT
  104. 1090 PRINT " Die Augen konzentrieren sich auf den Monitor und verfolgen das"
  105. 1100 PRINT " Geschriebene. Nicht auf die Tasten blicken!",""
  106. 1110 PRINT " Eine Lektion solange wiederholen, bis sie sitzt. Das ist der"
  107. 1120 PRINT " Fall, wenn die Genauigkeit 98% bei 2 Tasten/Sek. beträgt."
  108. 1130 PRINT
  109. 1140 INPUT"WEITER MIT 'RETURN'";X$
  110. 1150 GOTO 1160
  111. 1160 GOSUB 1440
  112. 1170 GOSUB 1470:
  113. 1180 GOSUB 1590:
  114. 1190 GOSUB 1650:
  115. 1200 GOSUB 1770:
  116. 1210 GOSUB 1880:
  117. 1220 IF LETTER$=CHR$(27) THEN LETTER$="": GOTO 1250:
  118. 1230 GOSUB 2250:
  119. 1240 :
  120. 1250 :
  121. 1260 FOR I=22 TO 23: LOCATE I,1:PRINT SPACE$(70):NEXT I
  122. 1270 LOCATE 22,5:PRINT "(J=Wiederholung, N=folgende Lektion, M=Return zum Menue)   ";
  123. 1280 LOCATE 23,5:PRINT "  Wollen Sie diese Übungen wiederholen (J/N) ?   "
  124. 1290 ANSWER$=INKEY$: IF ANSWER$="" THEN GOTO 1290
  125. 1300 IF ANSWER$=CHR$(27) THEN RUN:
  126. 1310 IF ANSWER$="J" OR ANSWER$="j" THEN GOTO 1200
  127. 1320 :
  128. 1330 IF EXERCISE <> 25 THEN GOTO 1360
  129. 1340 IF ANSWER$="N" OR ANSWER$="n" THEN GOTO 2350:
  130. 1350 :
  131. 1360 IF ANSWER$<>"N" AND ANSWER$<>"n" THEN GOTO 1400
  132. 1370 EXERCISE=EXERCISE+1:
  133. 1380 GOSUB 1710: GOTO 1200:
  134. 1390 :
  135. 1400 IF ANSWER$="M" OR ANSWER$="m" THEN GOTO 1170
  136. 1410 GOTO 1290
  137. 1420 END
  138. 1430 :
  139. 1440 DIM EXERCISEZL$(64)
  140. 1450 RETURN
  141. 1460 :
  142. 1470 CLS
  143. 1480 TITLE$="*************** Lektionen - Menue **************":GOSUB 3930
  144. 1490 PRINT
  145. 1500 RESTORE 2420
  146. 1510 FOR EXERCISE=1 TO 25:
  147. 1520 GOSUB 1710:
  148. 1530 COL=1+26*INT((EXERCISE-1)/9)
  149. 1540 ROW=3+(EXERCISE-9*INT((EXERCISE-1)/9))
  150. 1550 LOCATE ROW+2,COL:PRINT TITLE$;
  151. 1560 NEXT EXERCISE
  152. 1570 RETURN
  153. 1580 :
  154. 1590 LOCATE 23,5:PRINT "Mit 'RETURN ' zu den Anleitungen oder"
  155. 1600 LOCATE 24,5
  156. 1610 INPUT ;"mit Ziffer (1-25) Lektion wählen, dann RETURN";EXERCISE
  157. 1620 IF EXERCISE<1 OR EXERCISE>25 THEN RUN:
  158. 1630 RETURN
  159. 1640 :
  160. 1650 RESTORE 2420
  161. 1660 FOR EXERCISEDATA=1 TO EXERCISE
  162. 1670 GOSUB 1710:
  163. 1680 NEXT EXERCISEDATA
  164. 1690 RETURN
  165. 1700 :
  166. 1710 READ TITLE$
  167. 1720 FOR N=1 TO 5
  168. 1730 READ EXERCISEZL$(N)
  169. 1740 NEXT N
  170. 1750 RETURN
  171. 1760 :
  172. 1770 A$="Jede Linie exakt nachschreiben und nicht auf die Tastatur sehen!"
  173. 1780 B$="Am Ende jeder Reihe ' Return ' eingeben."
  174. 1790 CLS
  175. 1800 GOSUB 3930:
  176. 1810 FOR ZLNUMBER=1 TO 5
  177. 1820 LOCATE 4+3*ZLNUMBER,5:PRINT EXERCISEZL$(ZLNUMBER)
  178. 1830 NEXT ZLNUMBER
  179. 1840 LOCATE 22,5:PRINT A$
  180. 1850 LOCATE 23,5:PRINT TAB(16) B$
  181. 1860 RETURN
  182. 1870 :
  183. 1880 ERRORS=0: REM set error counter
  184. 1890 CHARACTERS=0: REM set character counter
  185. 1900 FOR ZLNUMBER=1 TO 5
  186. 1910 ZL$=EXERCISEZL$(ZLNUMBER)
  187. 1920 :
  188. 1930 IF RIGHT$(ZL$,1)=" " THEN ZL$=LEFT$(ZL$,LEN(ZL$)-1): GOTO 1930
  189. 1940 :
  190. 1950 COLOR 0,7:LOCATE 5+3*ZLNUMBER,5:PRINT " ";
  191. 1960 :
  192. 1970 FOR LETTER=1 TO LEN(ZL$)
  193. 1980 LETTER$=INKEY$: IF LETTER$="" THEN GOTO 1980
  194. 1990 CHARACTERS=CHARACTERS+1
  195. 2000 IF LETTER$=CHR$(27) THEN GOSUB 2210: GOTO 2040:
  196. 2010 LOCATE 5+3*ZLNUMBER,4+LETTER:PRINT LETTER$;
  197. 2020 ANSWER$=INKEY$: IF ANSWER$<>"" THEN GOTO 2020
  198. 2030 IF LETTER$<>MID$(ZL$,LETTER,1) THEN GOSUB 2160: GOTO 1980:
  199. 2040 NEXT LETTER
  200. 2050 COLOR 7,0
  201. 2060 IF LETTER$=CHR$(27) THEN GOTO 2130:
  202. 2070 :
  203. 2080 LETTER$=INKEY$: IF LETTER$="" THEN GOTO 2080
  204. 2090 IF LETTER$<> CHR$(13) THEN 2080
  205. 2100 CHARACTERS=CHARACTERS+1
  206. 2110 IF LETTER$=CHR$(27) THEN ZLNUMBER=5: GOTO 2130:
  207. 2120 IF LETTER$<>CHR$(13) THEN GOSUB 2410: GOTO 2080:
  208. 2130 NEXT ZLNUMBER
  209. 2140 RETURN
  210. 2150 :
  211. 2160 ERRORS=ERRORS+1
  212. 2170 CHARACTERS=CHARACTERS+1
  213. 2180 LOCATE 5+3*ZLNUMBER,4+LETTER:PRINT "";
  214. 2190 RETURN
  215. 2200 :
  216. 2210 LETTER=LEN(ZL$)
  217. 2220 ZLNUMBER=5
  218. 2230 RETURN
  219. 2240 :
  220. 2250 CLS
  221. 2260 PROCEED$="Ihre Geschwindigkeit liegt über 2 Tasten/s.: nächste Lektion!"
  222. 2270 REPEAT$="Wiederhole die Lektion bis die Fehlerquote auf 2% sinkt."
  223. 2280 PERCENTACCURACY=INT((CHARACTERS-ERRORS)/CHARACTERS*100)
  224. 2290 PERCENTACCURACY$="Ergebnis: "+STR$(PERCENTACCURACY)+"%"
  225. 2300 LOCATE 18,5:PRINT PERCENTACCURACY$
  226. 2310 IF PERCENTACCURACY>=98 THEN LOCATE 18,5:PRINT PROCEED$
  227. 2320 IF PERCENTACCURACY<98 THEN LOCATE 20,5:PRINT REPEAT$
  228. 2330 RETURN
  229. 2340 :
  230. 2350 CLS
  231. 2360 IF PERCENTACCURACY>=98 THEN LOCATE 6,22:PRINT  "Gratulation, Sie haben den Kurs erfolgreich absolviert!":END
  232. 2370 IF PERCENTACCURACY<98 THEN LOCATE 10,8:PRINT  "Warum wollen Sie die Lektion nicht wiederholen?";
  233. 2380 PRINT "Sie schreiben noch zu langsam!"
  234. 2390 GOSUB 3970:
  235. 2400 RUN: REM Neustart
  236. 2410 :
  237. 2420 DATA "1 - Grundtasten"
  238. 2430 DATA "asdf ölkj asdf ölkj fdsa jklö fdsa jklö fla jaf kas dal föd"
  239. 2440 DATA "ja ad öd als all lös fad las das falls allda ja das söd als"
  240. 2450 DATA "ja allda da falls öd das als las all fad lös falls ja öd ja"
  241. 2460 DATA "ja da öd als allda falls das lad fad lös öd da sad as allda"
  242. 2470 DATA "kö alk sölk föla köl klada kals laks klaks dalk flak alf af"
  243. 2480 DATA "2 - G + H"
  244. 2490 DATA "das half sag ja das lag da als das half lag das öd da kagas"
  245. 2500 DATA "fg jh gf hj fg jh gf hj fgf jhj fgf jhj gfg hjh gfg hjh ghj"
  246. 2510 DATA "ag öh sg lh dg kh fg jh ag öh sg lh dg kh fg jh gf hj gd hk"
  247. 2520 DATA "falls jag hag gas sag ölkjhö fag ahf gla föh göf fg öjh gfg"
  248. 2530 DATA "hagö lagö dashö jagö ladsö fagö halfö fallö hallö flaskö ja"
  249. 2540 DATA "3 - R,T,Z + U"
  250. 2550 DATA "frf juj frf juj frf juj ftf jzj ftf jzj ftf jzj frf juj frf"
  251. 2560 DATA "frf gtg juj hzh gtg frf hzh juj frf ftf juj jzj gtg hzh juj"
  252. 2570 DATA "graf gruft trad zur kur trau zaudö hörza jurta kruz satz tz"
  253. 2580 DATA "lustö farö hurrzö dallzö gullzö dutzö daftö dastardlzö stzö"
  254. 2590 DATA "trust dalk just hark jug saug slz saul tasök lust trz trutz"
  255. 2600 DATA "4 - E + I"
  256. 2610 DATA "ded kik ded kik ded kik ded frf kik fki ded frf kik jih ded"
  257. 2620 DATA "der kiu der kiu der kiu edr iku edr iku edr iku kik ded kik"
  258. 2630 DATA "dir kille fell jahr seil jetzt adigs silur  feier lure lira"
  259. 2640 DATA "guileö fearö hugeö erz tz tiredö fistö kissedö drarizö herö"
  260. 2650 DATA "hauf ill heiter kzle drust gilz frau geist just tarif fahrt"
  261. 2660 DATA "5 - V + M"
  262. 2670 DATA "fvf jmj fvf jmj fvf jmj frf fvf juj jmj frm fvf jij jmj fvf"
  263. 2680 DATA "fgf fvf jhj jmj juj jmj frf fvf fgf fvf jhj jmj fvf jhj jmj"
  264. 2690 DATA "verz mast  drum hieve viele merk live dauver traum jave dam"
  265. 2700 DATA "avöst tramö grat ist heiss mightö verilz i sazö gauve timeö"
  266. 2710 DATA "mauritius malve vest trivial mast malaria vague vivat szmie"
  267. 2720 DATA "6 - B + N"
  268. 2730 DATA "fvf jmn fvb jmn fvb jmn ftf fbf jzj jnj fgf fbf jhj jnj gbg"
  269. 2740 DATA "fvb jmn fvb jmn fvb jmn ftf fbf jzj jnj fgf fbf jhj jnj gbg"
  270. 2750 DATA "bast nutz jeans balg braun narenta bad banal braver van bug"
  271. 2760 DATA "tee mainz man ist in tier uzö ith isa bester tor buz brauer"
  272. 2770 DATA "in neural herz zerasö band boerne naubtö hering bin nigeria"
  273. 2780 DATA "7 - Übung"
  274. 2790 DATA "er las leiser sie darf das er sah alles klar er rief lauter"
  275. 2800 DATA "rufe sie leiser hör auf sie er fuhr eiligst hierher sage es"
  276. 2810 DATA "löse alls auf rufe sie her sei ruhig er rief alle kaufe das"
  277. 2820 DATA "er half die freudig seid ruhig sage es frei heraus sage ihr"
  278. 2830 DATA "fahre geradeaus es ergriff sie alle sehr erledige dieses ja"
  279. 2840 DATA "8 - C + ,"
  280. 2850 DATA "dcd k,k dcd k,k dcd k,k dcd fvf k,k jmj dcd fvf k,k jmj dcd"
  281. 2860 DATA "ded dcd kik k,k ded dcd kik k,k ded dcd kik k,k dcd kik k,k"
  282. 2870 DATA "ach ach ich auch euch noch nicht stecken eckige decken nach"
  283. 2880 DATA "zug tuch wach reichtum welche recht an mich schreiben echte"
  284. 2890 DATA "das ist sehr schade, es wird, wenn es reicht, nicht wachsen"
  285. 2900 DATA "9 - W + O"
  286. 2910 DATA "sws lol sws lol sws lol sws ded lol kik sws ded lol kik sws"
  287. 2920 DATA "swe loi swe loi swe loi wse oli wse oli wse oli sws ded lol"
  288. 2930 DATA "rot tot wort wert wozu roh was wasser wogen voll ostern rom"
  289. 2940 DATA "er wurde pensioniert, sie verspotteten ihn, waren wochentag"
  290. 2950 DATA "wir kommen oft privat zusammen, es wurde uns empfohlen, gut"
  291. 2960 DATA "10 - X + ."
  292. 2970 DATA "sxs l.l sxs l.l sxs l.l sxs dcd l.l k,k sxs dcd l.l k,k sxs"
  293. 2980 DATA "sws sxs lol l.l sws sxs lol l.l sxc l., sxc l., sws sxs l.l"
  294. 2990 DATA "fix mixen boxen extrem explosiv exportieren maximal sex hex"
  295. 3000 DATA "was ma aussagt, wird fixiert. wenn alles maximal exakt ist."
  296. 3010 DATA "wir exportieren mehr., als wir importieren. exakt arbeiten."
  297. 3020 DATA "11 - Q  +  P"
  298. 3030 DATA "aqa öpö aqa öpö aqa öpö aqa sws öpö lol aqa sws öpö lol aqa"
  299. 3040 DATA "aqw öpo aqw öpo aqw öpo qaw pöo qaw pöo qaw pöo aqa sws öpö"
  300. 3050 DATA "unbequeme quallen preisgeben. spritzen, poppig quirlig plan"
  301. 3060 DATA "es qualmte ein paarmal disziplinwidrig. quitten quittieren."
  302. 3070 DATA "qualvoll privat zusammenpassen. probiere ja privatquartier."
  303. 3080 DATA "12 - Y + -"
  304. 3090 DATA "aya ö-ö aya ö-ö aya ö-ö aya sxs ö-ö l.l aya sxs ö-ö l.l aya"
  305. 3100 DATA "aqa aya öpö ö-ö aqa aya öpö ö-ö ayx l., ayx l., aqa aya ö-ö"
  306. 3110 DATA "zylindrisch symbolisch systematisch rhythmisch ty-pisch hy-"
  307. 3120 DATA "vieles wird synthetisch - also chemisch - rein hergestellt."
  308. 3130 DATA "wer sympathisch ist, wirkt zum x-ten mal symbolisch typisch"
  309. 3140 DATA "13 - Übung"
  310. 3150 DATA "wir lernen maschineschreiben, weil wir rationell schreibend"
  311. 3160 DATA "unsere arbeit verrichten wollen. typisch ist die mixtur des"
  312. 3170 DATA "kursus. wir schreiben blind - d. h. tastend, ohne Blick auf"
  313. 3180 DATA "die tastatur - und versuchen, rhythmisch zu schreiben, weil"
  314. 3190 DATA "dadurch das fehlerlose schreiben erleichtert wird."
  315. 3200 DATA "14 - Ä, Ü + ß"
  316. 3210 DATA "öäö öäö jöä käö fäö öäj fäö jöä öäj öäö jäö fäö däö söä öä"
  317. 3220 DATA "öüj öüj öäü üöü füö fäü jüö jäü füö üöü öüö öäj jöü füö öü"
  318. 3230 DATA "ößö üßü jßö jöß föß ßöß jaß äßö jßö föß ößj jßö ßöß ößö üß"
  319. 3240 DATA "verläßlich dürfen schließlich wahlerische heiße träume süß"
  320. 3250 DATA "extra bedeutet auch zusätzlich.  extrem heißt übertrieben."
  321. 3260 DATA "15 - Großschreibung"
  322. 3270 DATA "Mit den kleinen Fingern betätigen wir die Shifttasten und"
  323. 3280 DATA "schalten auf Großschreibung um. Von jetzt an wollen wir in"
  324. 3290 DATA "korrekter Rechtschreibung fehlerlos schreiben und zu einer"
  325. 3300 DATA "Perfektion ohne gleichen kommen. Umgeschaltet wird von der"
  326. 3310 DATA "Hand, die nicht den Buchstaben anschlägt. "
  327. 3320 DATA "16 - Übungen"
  328. 3330 DATA "wWw FXf qQq Quo Tre Xen Tie Tor Bra Chi Bor Ben bBb Qua Da"
  329. 3340 DATA "Berlin Aachen Coburg Dessau Erfurt Füssen Gera Plön Lauban"
  330. 3350 DATA "Erfüllungsort und Gerichtsstand für beide Teile ist Bozen."
  331. 3360 DATA "Vor mehreren Jahren wurden Tomaten und Zwiebeln verseucht."
  332. 3370 DATA "Gemüse macht leider dick. Nach dem Gesetz ist Dicksein in."
  333. 3380 DATA "17 - Ziffer 1,  $"
  334. 3390 DATA "a1a f1a a1a f1a fa1 a1f fa1 af1 1a1 ja1 a1j j1j a1p a1u 1a"
  335. 3400 DATA "ö$ö j$ö ö$ö J$ö f$ö $öä ö$ö a$ö a1r a1u a1t a1w j$ö ö1$ 1$"
  336. 3410 DATA "Die Rechnung über $ 1.111,10 wurde schon am 1. April .... "
  337. 3420 DATA "überwiesen. Am 11. Mai habe ich Geburtstag. Mein Freund in"
  338. 3430 DATA "Amerika schickte mir $ 11. Wir schließen am 1. September."
  339. 3440 DATA "18 - Ziffern 2, 3, 0"
  340. 3450 DATA "a2a f2a j2a a2a j2a j3a a3a s3s f3s s30 j3ö k3a s2ö f3s 23"
  341. 3460 DATA "a0a j0j j0ö a0ö 02ö 230 320 032 023 s30 s2ö j3ö f0k k0a 32"
  342. 3470 DATA "20 bis 30 Minuten Verspätung. 2 - 3 DM Preissteigerung ist"
  343. 3480 DATA "nicht zu vermeiden. 230 Besucher kamen und 32 blieben bis"
  344. 3490 DATA "zum Schluß. 120,30 DM habe ich ausgegeben. 1.32032,12 DM."
  345. 3500 DATA "19 - Ziffern 4, 9"
  346. 3510 DATA "d4d a4d d4a d4d 4d4 d4r j4d d4j ad4 da4 d4p od4 hd4 h4d 4"
  347. 3520 DATA "k9k ö9k k9k ö9k k9ö gk9 jk9 xk9 9xk qk9 e9k ek9 k9i h9a 9"
  348. 3530 DATA "4 Stück, 4 Std., 9 Dtzd., 9 Pkws, 99 g, 94 kg, 1994, 2194"
  349. 3540 DATA "Vom 4. April bis 9. Mai bleibt unser Büro geschlossen. Am"
  350. 3550 DATA "10. Mai befinden wir uns auf der 4. Etage. $ 149.3021,40."
  351. 3560 DATA "20 - Ziffern 6, 7"
  352. 3570 DATA "f6f a6f f6f a6f af6 f6a 6f6 jf6 6jf 6f6 xf6 yf6 c6f bf6 6"
  353. 3580 DATA "j7j ö7j j7j ö7j öj7 j7ö b7j yj7 7öj aj7 j7f rj7 a7j v76 7"
  354. 3590 DATA "6 Minuten lang. 67 Jahre alt. Eine 6stellige Zahl 667 DM."
  355. 3600 DATA "Der Zug aus Hagen hatte 77 Minuten Verspätung. Der Kurort"
  356. 3610 DATA "liegt 70 Meter über dem Meersspiegel. Es kostet 67672 DM."
  357. 3620 DATA "21 - Ziffern 5, 8"
  358. 3630 DATA "f5f a5f f5f a5f af5 fa5 5f5 j5f f5j f5a f5j ö5a f5o f5u 5"
  359. 3640 DATA "j8j ö8j j8j ö8j jö8 öj8 8j8 j8s j8e j8w j8q x8l h8k j8a 8"
  360. 3650 DATA "5 Tage lang mußte ich 8fach kleben. Ein 8karätiger Stein."
  361. 3660 DATA "88 t, 588 g, 8-Wochen-Lehrgänge, 5stellig, 5eckig, 585 km"
  362. 3670 DATA "12 23 34 45 56 67 78 89 90 13 24 35 46 57 68 79 80 63 890"
  363. 3680 DATA "22 - Zeichen ? ! '"
  364. 3690 DATA "k?k f!f k?k f!f jö? fa! k?k f!f j'j f'f ök? lj? fa! af! ?"
  365. 3700 DATA "ö'ö a!f ö?j ö!h a?g q'! ü?! yay öpö 'ö' a'a yay lü? öö' '"
  366. 3710 DATA "Wo? Warum? Weshalb? Seit wann? Was ist das Für und Wider?"
  367. 3720 DATA "Achtung! Zurück! Mein liebes Mädchen! Vorsicht! Anhalten!"
  368. 3730 DATA "Was hör' ich Heil'ger? 's war vorüber, eh' ich's gedacht."
  369. 3740 DATA "23 - Übungen"
  370. 3750 DATA "Aq! Öp' Sw2 LoÄ De Ki( Fr$ Ju/ Gt% Hz% Fr$ Ju/ De, Ki( Sw2 lo)"
  371. 3760 DATA "aQ1 Aq! öP0 Öp0 sW2 Sw2 lO9 Lo) dE3 De kI8 Ki( fR4 Fr$ jU7 Ju/"
  372. 3770 DATA "fg fT f5 fG ft g% jh jz j6 jH jz j& gT Gt% hZ6 Hz& A!a Ö=ö S2s"
  373. 3780 DATA "öOö ößö öOö ö^ö öOö ö)ö öOö ö^ö ö0ö ößö ö=ö ö`ö ö=ö ÖßÖ Ö`Ö -0"
  374. 3790 DATA "ö-ö Ö_Ö ö-ö ö=ö Ö_Ö Ö>Ö ö-ö ö_ö ö_ö ö>ö ö-ö ö=ö Ö-Ö Ö=Ö ö-ö $-"
  375. 3800 DATA "24 - Übungen"
  376. 3810 DATA "12+5=17: 6*9=54: 49/7=7: 103-79=24: (43-65)*2=-44: (3+6)/5+2=3"
  377. 3820 DATA "ist 9+2=13? Nein, 9+2=11! Was ist 4> $5.20? @20.80. 9)/10= 95%"
  378. 3830 DATA "Wer sicher maschineschreiben will, muß  t ä g l i c h  ueben."
  379. 3840 DATA "Wer ein guter Programmierer werden will, übt  t ä g l i c h. "
  380. 3850 DATA "Buchstaben und Ziffern müssen fein im Takt geschrieben werden!"
  381. 3860 DATA "25 - Übungen"
  382. 3870 DATA "Mit einem sauberen Anschlag von 2 Tasten/sek gehört der Übende"
  383. 3880 DATA "zu den routinierten Zehn-Finger-Blindschreibern. Durch Erhöhen"
  384. 3890 DATA "der Schreibgeschwindigkeit und ständiges Proben läßt sich die "
  385. 3900 DATA "Fingerfertigkeit bis in Rekordnähe steigern. Wer den Kurs bis "
  386. 3910 DATA "zum Ende durchgearbeitet hat, kann stolz auf sich sein. "
  387. 3920 :
  388. 3930 PRINT:PRINT:PRINT TAB(5)TITLE$
  389. 3940 PRINT
  390. 3950 RETURN
  391. 3960 :
  392. 3970 LOCATE 24,5:PRINT "Weiter mit Leertaste ";
  393. 3980 I$=INKEY$: IF I$="" THEN GOTO 3980
  394. 3990 IF I$=CHR$(27) THEN RUN: REM EXIT
  395. 4000 IF I$<>" " THEN GOTO 3980
  396. 4010 RETURN
  397. 4020 :
  398.  
  399.