home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / lern / lern451.d64 / schreibmaschine (.txt) < prev    next >
Commodore BASIC  |  1995-08-09  |  18KB  |  379 lines
  1. 7 DEFFNR(X)=INT(RND(1)*X)
  2. 8 DEFFNS(X)=S+B%(X):DEFFNC(X)=C+B%(X):GOTO4800
  3. 9 E=E+O1:GOTO21
  4. 10 FORJ=1TOX:NEXT:RETURN
  5. 11 FORJ=1TOX:PRINT" ";:NEXT:PRINT:RETURN
  6. 12 PRINT"";:FORJ=1TOX:PRINT"";:NEXT:RETURN
  7. 13 GETY$:IFY$=""THEN13
  8. 14 Y=VAL(Y$):RETURN
  9. 15 PRINT"   WAHL ?[146] ";:RETURN
  10. 16 GOSUB13:Y=VAL(Y$):IFY=0THEN16
  11. 17 IFY>2THEN16
  12. 18 RETURN
  13. 19 POKE198,0:FORJ=1TOLL
  14. 20 TF$=TI$:PRINTCHR$(CO);" ";MID$(TF$,3,2);":";RIGHT$(TF$,2)
  15. 21 GETY$:IFY$=""THEN20
  16. 22 T=T+O1:Y=ASC(Y$):IF(Y=13ANDJ<LL)ORY=20ORY=34ORY=29ORY=157ORY=19THEN9
  17. 23 IFY$=CHR$(13)THEN561
  18. 24 IFY$=CHR$(136)THENT=T-O1:GOTO562
  19. 25 POKEH,0:POKELW,0:PRINTCHR$(CC);
  20. 26 IFMID$(P$,J,1)<>Y$THENE=E+O1:POKEH,34:POKELW,75:PRINTCHR$(CO);
  21. 27 PRINT""TAB(J+O1);Y$;"[146]":NEXTJ:PRINTCHR$(CC):IFY$=CHR$(13)THEN561
  22. 28 GOTO559
  23. 29 FORII=0TO4:FORI=0TO3:R2=.:GOSUB100:IFR2THEN150
  24. 30 NEXT:FORI=6TO9:R2=.:GOSUB100:IFR2THEN150
  25. 31 NEXT:NEXT:GOTO150
  26. 32 M=5:N=0:R=0:Q=0:GOTO50
  27. 33 M=5:N=5:R=0:Q=0:GOTO50
  28. 34 M=10:N=0:R=0:Q=0:GOTO50
  29. 35 M=5:N=10:R=5:Q=0:GOTO50
  30. 36 M=5:N=15:R=5:Q=5:GOTO50
  31. 37 M=10:N=10:R=10:Q=0:GOTO50
  32. 38 M=5:N=20:R=5:Q=0:GOTO50
  33. 39 M=5:N=25:R=5:Q=5:GOTO50
  34. 40 M=10:N=20:R=10:Q=0:GOTO50
  35. 41 M=5:N=30:R=5:Q=0:GOTO50
  36. 42 M=5:N=35:R=5:Q=5:GOTO50
  37. 43 M=10:N=30:R=10:Q=0:GOTO50
  38. 44 M=5:N=40:R=5:Q=0:GOTO50
  39. 45 M=7:N=45:R=5:Q=5:GOTO50
  40. 46 M=12:N=40:R=10:Q=0:GOTO50
  41. 47 M=20:N=0:R=0:Q=0:GOTO50
  42. 48 M=30:N=0:R=0:Q=0:GOTO50
  43. 49 M=52:N=0:R=0:Q=0:GOTO50
  44. 50 I=FNR(M)+N:IFI=LITHEN50
  45. 55 LI=I:R2=.:GOSUB100:IFR2THEN149
  46. 56 IFR=0ANDQ=0THEN65
  47. 60 II=II+O1:I=FNR(R)+Q:R2=.:GOSUB100:IFR2THEN149
  48. 65 NEXTII:GOTO149
  49. 100 X=23:GOSUB12:PRINT"           [192][192]> ";:IFA%(I)>64THENP=A%(I)+64:GOTO107
  50. 105 P=A%(I)+128
  51. 107 X$=CHR$(A%(I)):IFA%(I)=34THENPOKE1959,34:POKE56231,0:GOTO114
  52. 110 PRINTX$
  53. 114 POKE198,0:Z=B%(I)
  54. 115 IFIN=O1THEN125
  55. 116 IFZ<335THENPOKES3,160:POKES4,160:POKEC3,0:POKEC4,0:GOTO120
  56. 117 IFZ=752ORZ>336ANDZ<347THENPOKES1,160:POKES2,160:POKEC1,0:POKEC2,0
  57. 120 POKEFNS(I),P:POKEFNC(I),2:X=200:GOSUB10:POKEFNS(I),P-128
  58. 125 GETY$:IFY$=""THEN115
  59. 126 IFY$=CHR$(3)THEN115
  60. 127 IFZ<335THENPOKEC,15:POKEC4,15:POKES3,32:POKES4,32:GOTO130
  61. 128 IFZ=752ORZ>336ANDZ<347THENPOKEC2,15:POKEC1,15:POKES1,32:POKES2,32
  62. 130 POKEFNS(I),P-128:POKEFNC(I),0:IFY$=CHR$(136)THENR2=O1:RETURN
  63. 135 T=T+O1:POKEH,0:POKELW,0:IFY$=X$THENRETURN
  64. 136 POKEH,34:POKELW,75
  65. 140 E=E+1:PRINT"[145]  FEHLER  [146]":X=500:GOSUB10:PRINT"[145]";:X=10:GOSUB11
  66. 145 PRINT"[145]":GOTO125
  67. 149 POKEH,0:POKELW,0
  68. 150 IFTTHENX=23:GOSUB12:PRINT" "INT((T-E)*100/T);"% RICHTIG RETURN[144][146]";:GOTO155
  69. 152 PRINT"[145]KEIN VERSUCHRETURN[146][144]";
  70. 155 GOSUB13
  71. 157 IFY$<>CHR$(13)THEN155
  72. 160 PRINT"[145]";:X=40:GOSUB11:E=.:T=.
  73. 170 INPUT"    LEKTION(0 STOP)[145][157][157][157][157][157][157](1-19)";LS$:LS=VAL(LS$)
  74. 175 IFLS>19THENPRINT"  UNGUELTIG          ":X=1000:GOSUB10:GOTO170
  75. 180 PRINT:PRINT"[144]             LEKTION";LS:IFLS=0THEN5000
  76. 185 FORII=O1TO49
  77. 190 ONLSGOTO29,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49
  78. 200 FORJ=0TOI:E%(K)=X:K=K+1:NEXT:RETURN
  79. 205 X=1000:GOSUB10:RETURN
  80. 210 PRINTCHR$(CO);"  ************************************";CHR$(CC):RETURN
  81. 215 PRINTCHR$(CO);"  ***********************************";CHR$(CC):RETURN
  82. 300 TM=.:EP=E:E=.:S2=.:Q1=.:PRINT"[147] KEIN RETURN[146] AM ZEILENENDE. F7 = STOP"
  83. 310 FORM=0TO4:R%(0)=2:R%(1)=3:R%(2)=5:R%(3)=6:R%(4)=7:R%(5)=8:S1=.:TS=.:T2=.
  84. 311 POKEH,0:POKELW,0:P$="":IFCH=1THENGOSUB215:NC=175:GOTO313
  85. 312 NC=180:GOSUB210
  86. 313 IFCH=1THENFORK1=0TO5:FORK=0TO4:GOTO355
  87. 315 FORG=0TO5:X=6-G
  88. 317 Y=FNR(6-G):M%(G)=R%(Y):IFY=XTHEN340
  89. 330 FORJ1=YTO5:R%(J1)=R%(J1+1):NEXTJ1
  90. 340 NEXTG
  91. 350 FORK1=0TO5:FORK=1TOM%(K1)
  92. 355 IFEPTHENX$=CHR$(D%(S2)):S2=S2+O1:EP=EP-O1:GOTO370
  93. 360 I=FNR(CR):IFX$="Q"THENX$="U":GOTO370
  94. 365 X$=CHR$(E%(I))
  95. 370 C%(S1)=ASC(X$):S1=S1+O1:P$=P$+X$:NEXTK:P$=P$+" ":C%(S1)=32
  96. 375 S1=S1+O1:NEXTK1
  97. 380 PRINT"  ";P$:TI$="000000":PRINT"  ";:POKE198,0:FORJ1=0TO33+CH
  98. 381 GOSUB13
  99. 382 POKEH,0:POKELW,0:Z=ASC(Y$):IFZ=136THEN5000
  100. 383 IFZ=3ORZ=34ORZ=13ORZ=19ORZ=20ORZ=29ORZ=157THEN381
  101. 385 IFC%(J1)=ZTHEN405
  102. 390 D%(E)=C%(J1):E=E+1:POKEH,34:POKELW,75:PRINTCHR$(CO);
  103. 405 PRINT"";Y$;"[146]";CHR$(CC);
  104. 410 NEXTJ1:PRINT:PRINT"[145]":TM=TM+TI:NEXTM:X=INT(108000/TM):POKEH,0:POKELW,0
  105. 417 PC=INT((NC-E)*100/NC+.5):IFE=NCTHENPRINT"  ALLES FALSCH";X;"[193]PM":GOTO440
  106. 430 PRINT:PRINTCHR$(CO);PC;"% RICHTIG";X;"[193]PM"
  107. 440 PRINT"                [198]EHLER ANZEIGEN [J/N]? ";
  108. 450 GOSUB13:IFY$="N"THEN300
  109. 455 IFY$<>"J"THEN450
  110. 460 IFE=0THENPRINT"[147] KEINE [198]EHLER, DAS WAR SPITZE !":GOTO480
  111. 462 PRINTTCHR$(CO);"[147]     [198]EHLER:"
  112. 465 FORI=0TOE-1:IFD%(I)=32THENPRINTCHR$(CC);"  [146] ";:GOTO475
  113. 470 PRINTCHR$(CC);" ";CHR$(D%(I));
  114. 475 NEXT
  115. 480 PRINT:PRINTCHR$(CO);"   WOLLEN [211]IE WEITER UEBEN ? (J/N)"
  116. 485 GOSUB13:IFY$="J"THEN300
  117. 490 IFY$="N"THEN5000
  118. 495 GOTO485
  119. 500 E=.:TM=.:T=.:TF$="000000"
  120. 510 PRINTCHR$(CO);"[147]";TAB(17);"DRUECKE F7 ZUM STOPPEN"
  121. 511 I=FNR(QQ-8)+O1:IFI=LITHEN511
  122. 512 LI=I:P$="":L=LEN(TX$(I)):X$=RIGHT$(TX$(I),L-1):GOTO515
  123. 514 X$=TX$(I)
  124. 515 IFLEN(P$)+LEN(X$)<36THENI=I+O1:P$=P$+X$:GOTO514
  125. 520 PRINTCHR$(CO);"  ";:FORJ=1TOLEN(P$):PRINT"*";:NEXT:PRINT
  126. 545 X=5:GOSUB12:PRINTCHR$(CC);"  ";P$:PRINT"";
  127. 547 TI$=TF$:LL=LEN(P$)+01:GOTO19
  128. 559 X=10:GOSUB12:PRINTCHR$(CO);"  DRUECKE  RETURN[146]";CHR$(CC)
  129. 560 GOSUB13:IFY$<>CHR$(13)THEN560
  130. 561 POKEH,0:POKELW,0:TM=VAL(TF$):GOTO510
  131. 562 IFT=.THENPRINT"[147] [211]IE HABEN KEINE [213]EBUNG IM [212]EXTSCHREIBEN !":GOTO575
  132. 564 TM=TM+TI:POKEH,0:POKELW,0
  133. 565 IFE<=TTHENPRINT"[147]    ";INT((T-E)*100/T);"% RICHTIG":GOTO570
  134. 566 PRINT"[147]  MEHR [198]EHLER ALS [194]UCHSTABEN !"
  135. 570 PRINT" ";INT(T*600/TM);"[215]ORTE PRO [205]INUTE"
  136. 575 PRINT"  WEITERE [212]EXTUEBUNGEN (J/N)?"
  137. 580 GOSUB13:IFY$="J"THENE=.:GOTO500
  138. 585 IFY$="N"THEN5000
  139. 595 GOTO580
  140. 1005 PRINT"[147]     [144]LINKS     [221]    RECHTS"
  141. 1006 PRINT"  [156]4  3  2   1  [144][221]  1    2  3   [156]4"
  142. 1008 FORI=1TO38:PRINT"[144][192]";:NEXT:PRINT
  143. 1010 PRINT" [156][213][192][201][213][192][201][213][192][201][213][192][201][213][192][201][213][192][201][213][192][201][213][192][201][213][192][201][156][213][192][201][213][192][201][213][192][201]"
  144. 1020 PRINT" [156][194][144]![156][194][194] [194][194][144]#[194][194][144]$[194][194][144]%[194][194][144]&[194][194][144]'[194][194][144]([194][194][144])[194][156][194] [194][194] [194][194] [194]"
  145. 1025 POKE1349,34:POKE55621,0
  146. 1030 PRINT" [156][194][144]1[156][194][194][144]2[194][194][144]3[194][194][144]4[194][194][144]5[194][194][144]6[194][194][144]7[194][194][144]8[194][194][144]9[194][156][194][144]0[156][194][194][144]+[156][194][194]";
  147. 1040 PRINT"[144]-[156][194]"
  148. 1050 PRINT" [156][202][192][203][202][192][203][202][192][203][202][192][203][202][192][203][202][192][203][202][192][203][202][192][203][202][192][203][156][202][192][203][202][192][203][202][192][203]"
  149. 1060 PRINT"  [156][213][192][201][213][192][201][213][192][201][213][192][201][213][192][201][213][192][201][213][192][201][213][192][201][213][192][201][156][213][192][201]"
  150. 1070 PRINT" [156][194][144]Q[156][194][194][144]W[194][194][144]E[194][194][144]R[194][194][144]T[194][194][144]Y[194][194][144]U[194][194][144]I[194][194][144]O[194][156][194][144]P[156][194]"
  151. 1080 PRINT"  [156][202][192][203][202][192][203][202][192][203][202][192][203][202][192][203][202][192][203][202][192][203][202][192][203][202][192][203][156][202][192][203]"
  152. 1090 PRINT"   [156][213][192][201][213][192][201][213][192][201][213][192][201][213][192][201][213][192][201][213][192][201][213][192][201][213][192][201][156][213][192][201][213][192][201]"
  153. 1100 PRINT"  [156][194][144]A[156][194][194][144]S[194][194][144]D[194][194][144]F[194][194][144]G[194][194][144]H[194][194][144]J[194][194][144]K[194][194][144]L[194][156][194][144]:[156][194][194];[194]"
  154. 1110 PRINT"   [156][202][192][203][202][192][203][202][192][203][202][192][203][202][192][203][202][192][203][202][192][203][202][192][203][202][192][203][156][202][192][203][202][192][203]"
  155. 1120 PRINT"[144][213][192][192][201][156][213][192][201][213][192][201][213][192][201][213][192][201][213][192][201][213][192][201][213][192][201][213][192][201][213][192][201][156][213][192][201][144][213][192][195][201]"
  156. 1130 PRINT"[144][194]  [19