Commodore Disc 42/Commodore_Disc_42_19xx_-_de.d64/2.schreibm-kurs

Commodore BASIC | 2022-10-26 | 8KB | 242 lines

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 =========================