10 REM SCHREIBMASCHINENKURS ===C64
20 REM (P) COMMODORE DISC
30 REM ===========================
40 REM (C) BY KLAUS FREITAG
50 REM
60 REM
70 REM VERSION 2.0
80 REM C64
90 REM ===========================
100 CL$=CHR$(147):WH$=CHR$(005)
110 RN$=CHR$(018):RF$=CHR$(146)
120 C4$=CHR$(017):S1$=CHR$(032)
130 A2$=S1$+S1$:A3$=A2$+S1$
140 A4$=A3$+S1$:A5$=A4$+S1$
150 D2$=C4$+C4$:D3$=D2$+C4$
160 D4$=D3$+C4$:D5$=D4$+C4$
170 KA$=CHR$(064):C3$=CHR$(029)
180 W2$=C3$+C3$:W3$=W2$+C3$
190 W4$=W3$+C3$:W5$=W4$+C3$
200 HE$=CHR$(019):S5$=CHR$(101)
250 DIMC(15),D$(40),W$(50),R$(50)
260 AA$=CL$+WH$+RN$+A5$+"C16 SCHREIBMASCHINENKURS"+A5$+A5$+S1$
270 POKE53280,0:POKE53281,0
280 PRINTAA$
290 PRINTD2$RN$"F1"RF$" - FINGERUEBUNG"
300 PRINTC4$RN$"F2"RF$" - SCHREIBUEBUNG"
310 PRINTC4$RN$"F3"RF$" - WORTUEBUNG"
320 PRINTC4$RN$"F4"RF$" - WORTUEBUNG FUER FORTGESCHRITTENE"
330 PRINTC4$RN$"F5"RF$" - SCHWIERIGER TEXT"
340 PRINTC4$RN$"F6"RF$" - ENDE"
350 PRINTD3$RN$"F8"RF$" - ERKLAERUNGEN"
360 GETA$:IFA$=""GOTO360
361 ONASC(A$)-132GOTO450,900,1200,2160,810,1780,1650,2160
440 GOTO360
450 PRINTAA$
460 PRINTC4$"BITTE BUCHSTABENKOMBINATION WAEHLEN"
470 PRINTD2$RN$"1"RF$"  - ASDEJKL"
480 PRINTRN$"2"RF$"  - EIDK"
490 PRINTRN$"3"RF$"  - WOSL"
500 PRINTRN$"4"RF$"  - FGHJ"
510 PRINTRN$"5"RF$"  - FJVM"
520 PRINTRN$"6"RF$"  - FJBN"
530 PRINTRN$"7"RF$"  - TFJ"
540 PRINTRN$"8"RF$"  - DKC"
550 PRINTRN$"9"RF$"  - SLX"
560 PRINTRN$"10"RF$" - QPA"
570 PRINTRN$"11"RF$" - RUFJ"
580 INPUTA:IFA<1ORA>11GOTO580
590 OP=A*10:RU=0:RI=0
600 RESTORE
610 AD=INT(OP*RND(1)+1)
620 FORI=1TOAD:READFI$:NEXT
630 PRINTAA$
640 PRINTHE$D5$D5$W5$W5$FI$
650 PRINTD5$;:INPUTAN$
660 IFFI$=AN$THENRI=RI+1
670 RU=RU+1:IFRU=16THENGOTO690
680 GOTO600
690 M=16:GOTO1700
700 DATA"FSDA","JLK","FDSA","ASDF","LKJ","ASDF","FDSA","JKL","DSA","SDF"
710 DATA"DED","DEF","DES","KIK","KIJ","KIL","DED","KIK","EDE","IKI"
720 DATA"SWS","SWD",SWA","LOL","LOK","LOO","SWS","LOL","WSW","OLO"
730 [131]"FGF","FGD","FGS","JHJ","JKH","JHL","FGF","JHJ","GFG","HJH"
740 [131]"FVF","FVD","FVS","JMJ","JMK","JML","FVA","MJJ","DVS","MLJ"
750 [131]"FBF","FBD","FBS","JNJ","JNK","JNL","FBF","JNJ","FBS"
760 [131]"TTF","TFT","FTG","UJJ","HJH","HJJ","FTF","JTJ","TFT","TFG"
770 [131]"DCD","DCF","DCS","KCK","KCL","CKK","DCF","KCJ","DCV","KCM"
780 [131]"SXS","SXD","SXA","LXL","LXX","LXK","SXS","LXL","XSX",XLX"
790 DATA"AQA","AQS","AQD","QAS","QAF","AQA","PPL","PPK","KPJ","KPL"
800 DATA"FRF","FRD","FRS","JUJ","JUK","JUL","DRF","JUJ","FRD","JUK"
810 PRINTAA$:AN=90
820 FORII=1TO10:PRINTAA$
830 FORI=1TO15
840 C(I)=INT(AN*RND(1)+1)
850 IFC(I)<65GOTO840
860 F$=F$+CHR$(C(I)):NEXTI
870 PRINTHE$D5$D5$W5$W5$F$
880 PRINTD4$:INPUTAN$:IFAN$=F$THENRI=RI+1
890 F$="":NEXTII:M=10:GOTO1700
900 PRINTAA$
910 D$(1)="FAD":D$(2)="ALL":D$(3)="ALS"
920 D$(4)="LAS":D$(5)="DAS":D$(6)="SEID"
930 D$(7)="RIFF":D$(8)="REDE"
940 D$(9)="ERDE":D$(10)="FELGE"
950 D$(11)="HILFE":D$(12)="ORGEL"
960 D$(13)="FUHRE":D$(14)="KLAGE"
970 D$(15)="NARBE":D$(16)="NOBEL"
980 D$(17)="LEBER":D$(18)="SONNE"
990 D$(19)="PAPPE":D$(20)="QUART"
1000 D$(21)="PULVER":D$(22)="YARD"
1010 D$(23)="HYAENE":D$(24)="MYSTIK"
1020 D$(25)="HYPOTHEK":D$(26)="CITY"
1030 D$(27)="LOYAL":D$(28)="TYPHUS"
1040 D$(29)="ANALYSEN":D$(30)="SPULE"
1050 D$(31)="QUARZE":D$(32)="EMPOR"
1060 D$(33)="WISPERN":D$(34)="PAUL"
1070 D$(35)="OLYMP":D$(36)="SYMBOL"
1080 D$(37)="XYLOPHON":D$(38)="EICHT"
1090 D$(39)="WIRKT":D$(40)="WICHTIG"
1100 PRINTD2$"WIEVIELE WORTE MOECHTEN SIE SCHREIBEN"
1110 PRINTD2$:INPUTWI
1120 PRINTAA$:FORI=1TOWI:PRINTAA$
1130 AS=INT(RND(1)*40)+1
1140 PRINTHE$D5$D5$W5$W5$D$(AS)
1150 PRINTD5$
1160 INPUTAN$
1170 IFAN$=D$(AS)THENRI=RI+1
1180 NEXT
1190 M=WI:GOTO1700
1200 W$(1)="WIE EINE":W$(2)="LEBENSTROTZENDE"
1210 W$(3)="GLUCKHENNE":W$(4)="STAND DIE MUTTER"
1220 W$(5)="MITTEN UNTER IHRER"
1230 W$(6)="BLUEHENDEN":W$(7)="KINDERSCHAR."
1240 W$(8)="SIE HATTE EIN BROT"
1250 W$(9)="GEGEN DEN DICKEN LEIB GEPRESST"
1260 W$(10)="UND SCHNITT":W$(11)="MIT EINEM"
1270 W$(12)="SICHELARTIGEN MESSER"
1280 W$(13)="GROSSE SCHEIBEN AB,"
1290 W$(14)="DIE JEDES MAL"
1300 W$(15)="SOFORT"
1310 W$(16)="VON DEN KINDERN"
1320 W$(17)="WEGGESCHNAPPT UND"
1330 W$(18)="IN DIE TASCHEN"
1340 W$(19)="GESTOPFT WURDEN."
1350 W$(20)="HORIENEKEN"
1360 W$(21)="NAHM IHR KOERBCHEN"
1370 W$(22)="MIT DEM STRICKZEUG"
1380 W$(23)="UND DEN SCHULBUECHERN"
1390 W$(24)="-ERST ZOG SIE NOCH"
1400 W$(25)="FONS DIE STRUEMPFE IN DIE HOEH',"
1410 W$(26)="KNUEPFTE SAREL DIE HOSE ZU,"
1420 W$(27)="PUTZTE LUDWIG DIE NASE-"
1430 W$(28)="UND NACHDEM"
1440 W$(29)="DIE MUTTER GEMAHNT HATTE:"
1450 W$(30)="DASS IHR MIR"
1460 W$(31)="SCHNURSTRACKS IN DIE SCHULE GEHT,"
1470 W$(32)="HOERT IHR,"
1480 W$(33)="IHR BENGELS!"
1490 W$(34)="SCHOSS DIE GANZE BANDE"
1500 W$(35)="ZUR TUER HINAUS,"
1510 W$(36)="DURCH DEN BLUMENGARTEN,"
1520 W$(37)="UEBER DEN BREITEN FELDWEG,"
1530 W$(38)="GERADEWEGS AUF DIE GROSSE GOLDIGE SONNE ZU,"
1540 W$(39)="DIE DRUEBEN HINTER DEN ERLENSTAEMMEN"
1550 W$(40)="IN EINEM MAECHTIGEN STRAHLENFEUER"
1560 W$(41)="HERAUFGESTIEGEN KAM."
1570 PRINTAA$:FORI=1TO41:PRINTAA$
1580 PRINTHE$D5$D5$W$(I)
1590 FORII=1TO1000:NEXTII:PRINTAA$
1600 PRINTHE$D5$D5$
1610 INPUTAB$
1620 IFAB$=W$(I)THENRI=RI+1
1630 NEXT
1640 M=41:GOTO1700
1650 PRINTAA$
1660 PRINTD5$C4$W5$W5$"BITTE DARAN DENKEN:"
1670 PRINTD2$W5$"NUR UEBUNG MACHT DEN MEISTER!"
1680 PRINTW5$;:FORI=0TO26:PRINTS5$;:NEXT:PRINTS5$
1690 END
1700 PRINTAA$
1710 PRINTD3$"SIE HABEN";RI
1720 PRINTD3$"VON";M
1730 PRINTD3$"MOEGLICHEN PUNKTEN."
1740 PRINTD5$D5$W5$W5$W3$RN$"MENUE->TASTE"
1750 GETA$:IFA$=""GOTO1750
1760 RI=0
1770 GOTO270
1780 R$(1)="ABBREVIATION":R$(2)="BABYLONIEN"
1790 R$(3)="CABALLERO":R$(4)="DADAISTISCH"
1800 R$(5)="EAU DE COLOGNE":R$(6)="FACETENAUGE"
1810 R$(7)="GABARDINEMANTEL":R$(8)="HABEASKORPUSAKTE"
1820 R$(9)="IBEROAMERIKANISCH":R$(10)="KABINETTFORMAT"
1830 R$(11)="LABIOVELAR":R$(12)="MACHINATION"
1840 R$(13)="NEBUKADNEZAR":R$(14)="OBJEKTIVATION"
1850 R$(14)="PACHULKE":R$(15)="QUADRAGESIMA"
1860 R$(16)="RACHMANINOW":R$(17)="SABBATSTILLE"
1870 R$(18)="TACHYGRAPHIE":R$(19)="ULTIMA RATIO"
1880 R$(20)="VAKUUMVERPACKT":R$(21)="WAFFENSTILLSTANDSLINIE"
1890 R$(22)="XANTHIN":R$(23)="YAMASHITA"
1900 R$(24)="ZAPFENZIEHER":R$(25)="ALLOCHTHON"
1910 R$(26)="BALLYHOO":R$(27)="CHAUFFIEREN"
1920 R$(28)="COUTURE":R$(29)="COUVERT"
1930 R$(30)="DEROGATION":R$(31)="DIALYSIEREN"
1940 R$(32)="DIFFERENZIERTHEIT":R$(33)="DISTRIBUTIONSFORMEL"
1950 R$(34)="DREIVIERTEL":R$(35)="DYSTROPHIKER"
1960 R$(36)="EGOZENTRIKER":R$(37)="ENDOTHEL"
1970 R$(38)="ENZEPHALITIS":R$(39)="EXPLOSIONSSICHER"
1980 R$(40)="FOLGENDERGESTALT":R$(41)="GALANTHOMME"
1990 R$(42)="GARNISONIEREN":R$(43)="GLYPTIK"
2000 R$(44)="GUERILLAKRIEG":R$(45)="HYPOTHESE"
2010 R$(46)="IKONOSTASE":R$(47)="IMPRESSIONABEL"
2020 R$(48)="IN DULCI JUBILO":R$(49)="INTERLINEARGLOSSE"
2030 R$(50)="ISOCHROMASIE"
2040 PRINTAA$:PRINTD2$"WIEVIELE WORTE MOECHTEN SIE SCHREIBEN"
2050 PRINTD2$:INPUTWI
2060 PRINTAA$
2070 FORI=1TOWI:PRINTAA$
2080 AS=INT(RND(1)*40)+1
2090 PRINTHE$D5$D5$W5$W5$R$(AS)
2100 FORII=1TO2500:NEXT:PRINTAA$
2110 PRINTD5$
2120 INPUTAN$
2130 IFAN$=R$(AS)THENRI=RI+1
2140 NEXT
2150 M=WI:GOTO1700
2160 PRINTAA$:PRINT
2170 PRINTRN$"FINGERUEBUNG"RF$" ES IST EINE KOMBINATION"
2180 PRINT"AUS DER VORGEWAEHLTEN BUCHSTABENREIHE"
2190 PRINT"NACHZUSCHREIBEN.DIE UEBUNGEN SIND AUF-"
2200 PRINT"EINANDER AUFGEBAUT,D.H.:WENN SIE Z.B."
2210 PRINT"UEBUNG 5 WAEHLEN,SOLLTEN SIE DIE"
2220 PRINT"UEBUNGEN 1 - 4 BEHERRSCHEN.
2230 [153]D2$RN$"SCHREIBUEBUNG"RF$" ICH ZEIGE IHNEN HIER"
2240 [153]"EINE BUCHSTABENKOMBINATION AUS 15 ZU-"
2250 [153]"FAELLIG AUSGEWAEHLTEN ZEICHEN,DIE SIE"
2260 [153]"NACHSCHREIBEN SOLLEN.
2270 PRINTD3$A5$A5$S1$RN$"BITTE TASTE"RF$
2280 GETP$:IFP$=""GOTO2280
2290 PRINTAA$:PRINT
2300 PRINTRN$"WORTUEBUNG"RF$" ES SIND EINFACHE WORTE"
2310 PRINT"NACHZUSCHREIBEN."
2320 PRINTD2$RN$"WORTUEBUNG FUER FORTGESCHRITTENE"RF$
2330 PRINT"ES SIND SCHWIERIGE WORTE NACHZU-"
2340 PRINT"SCHREIBEN,DIE AUSSERDEM NUR KURZ ZU"
2350 PRINT"SEHEN SIND."
2360 PRINTD2$RN$"SCHWIERIGER TEXT"RF$" WIE WORTUEBUNG "
2370 PRINT"FUER FORTGESCHRITTENE,JEDOCH MIT"
2380 PRINT"ZUSAMMENHAENGENDEM TEXT"
2390 PRINTD3$A5$A4$RN$"BITTE TASTE"RF$
2400 GETP$:IFP$=""GOTO2400
2410 PRINTAA$:PRINT
2420 PRINT"SIE SOLLTE VERSUCHEN,ALLE UEBUNGEN"
2430 PRINT"BLIND NACH DEM 10-FINGER-SYSTEM ZU"
2440 PRINT"SCHREIBEN."
2450 PRINTC4$"ES IST UEBERIGENS BESSER,JEDEN TAG"
2460 PRINT"EIN PAAR MINUTEN ZU UEBEN,ALS EINMAL"
2470 PRINT"IN DER WOCHE EINIGE STUNDEN."
2480 PRINTD5$D3$W5$W5$RN$"BITTE TASTE"
2490 GETP$:IFP$=""GOTO2490
2500 GOTO270
2510 REM =========================