home *** CD-ROM | disk | FTP | other *** search
/ Computer Club Elmshorn Atari PD / CCE_PD.iso / pc / 0600 / CCE_0671.ZIP / CCE_0671.PD / SHARP / HANDBUCH / PROGS.DOC < prev    next >
Text File  |  1989-04-06  |  28KB  |  787 lines
  1. 07201010206800
  2. 1SHARP PC-E220SecondhandbuchBrainwave
  3. 2- # -  
  4. F0110030
  5. 9[.......................................................................]101
  6. ê  Ç
  7. ü
  8. BeispielprogrammeÇ
  9. DieaufgeführtenProgrammehabenpraktischkeineFehlerüberwachung(gegenFehl-
  10. eingaben),umdieProgssokurzwiemöglichzuhalten.Siesindnichtunbedingt
  11. freivonRechtenDritter,wasaberderprivatenNutzungkeinenAbbruchtut.
  12. AnwendungenaufeigeneGefahr-playatyourownrisk.
  13.  
  14. -Zahlensystemkonverter-380Bytes
  15. 100 CLS:CLEAR:DIM Z$(0)*32,S$(32)*1:PRINT"Zahlensystemkonverter"
  16. 110 INPUT "ZAHL: ";Z$(0)
  17. 120INPUT " VON: ";B:LOCATE13,2
  18. 130 INPUT "NACH: ";G
  19. 140 L=LENZ$(0):FOR I=1 TO L
  20. 160 A=ASC(MID$(Z$(0),I,1))
  21. 170 A=A-48:IF A>9 LET A=A-7
  22. 180 D=D+A*B^(L-I):NEXT:E=D
  23. 190 PRINT "GIBT: ";:IFD>1E10PRINT"?";
  24. 210 A=INT(E/G):C=E-G*A:E=A:Z=Z+1
  25. 230 IF C<=9 LET S$(Z)=STR$C
  26. 240 IF C>9 LET S$(Z)=CHR$(C+55)
  27. 250 IF A>0 GOTO 210
  28. 270 FOR I=ZTO 1 STEP-1:PRINT S$(I);:NEXT
  29. WirdvorderkonvertiertenZahleinFragezeichenausgegeben,übersteigtdas
  30. interneZwischenergebnisdieRechengenauigkeit.EsistvoneinemFehlerin
  31. denletztenStellenauszugehen(zukleinesErgebnis).
  32. ê
  33. Ç
  34. 100CLS:CLEAR:PRINT "Bruchrechnen"              äca.555BytesÇ
  35. 110INPUT "Z1: ";A
  36. 120INPUT "N1: ";B
  37. 130Z=A:N=B:GOSUB 270:A=Z:B=N
  38. 140LOCATE13,1:INPUT "Z2: ";C
  39. 150LOCATE13,2:INPUT "N2: ";D
  40. 160Z=C:N=D:GOSUB 270:C=Z:D=N
  41. 170PRINT "";CHR$ 245;" + - * / ";CHR$ 244;" ";:INPUT S$
  42. 180IF S$="/" OR S$="*" GOTO 230
  43. 190IF S$="-" LET C=-C
  44. 200U=B:V=D:GOSUB 280
  45. 210N=B*D/V:Z=N/D*C:Z=Z+N/B*A
  46. 220GOTO 250
  47. 230IF S$="/" LET O=D:D=C:C=O
  48. 240Z=A*C:N=B*D:GOSUB 270
  49. 250CLS:PRINT " ";Z:PRINT "----------":PRINT " ";N
  50. 260GOSUB 270:GOTO 300
  51. 270U=Z:V=N:GOSUB 280:Z=Z/V:N=N/V:RETURN
  52. 280Q=U/V:R=U-V*INT Q:IF R<>0 LET U=V:V=R:GOTO 280
  53. 290RETURN
  54. 300INPUT "Kettenrauchen ?";S$
  55. 310IF S$="J" OR S$="j" LET A=Z:B=N:GOTO 140
  56. 320GOTO 100
  57.  
  58.  
  59.  
  60. -ProgrammmitINKEY$beenden-      Wert I leerhinter7kB/100Zeilen
  61. 100I=10000                        10000=184228sec
  62. 110I=I-1:IFI<1END               20000=368460sec
  63. 120J$=INKEY$:IFJ$=""GOTO110    30000=552630sec
  64. 130...                            Daumenregel:1000=20sec
  65.  
  66. ê  Ç
  67.  
  68. -Biorythmus-ca.940BytesäDerRennerbeiallenVorführungen!Ç
  69. 10 CLS:CLEAR:O=254:X=253:PRINT"Biorythmus"
  70. 20 PRINT "Geburtsdatum":INPUT " Jahr: ";A:IF A<100 LET A=A+1900
  71. 30 INPUT "Monat: ";B:INPUT "  Tag: ";C:PRINT "Ausgabedatum"
  72. 40INPUT " Jahr: ";D:IFD<30LETD=D+2000
  73. 50 T=C:M=B:J=A:GOSUB 170:IF D<100 LET D=D+1900
  74. 60 INPUT "Monat: ";E:INPUT "  Tag: ";F:Q=S:T=F:M=E:J=D:GOSUB 170
  75. 70 U=S:V=W+1:I=U-Q:RADIAN:GOSUB 200
  76. 80 L=K:N=G:P=H:Q=W:I=I+1:GOSUB 200
  77. 90 CLS:PRINT "Datum: ";MID$("MoDiMiDoFrSaSo",V*2,2);" ";F;E;STR$D
  78. 100 USING "####.##":PRINT "K:";L;"%";CHR$ O,"G:";N;"%";CHR$ O
  79. 110 PRINT "S:";P;"%";CHR$ O,CHR$ 149;":";Q;"%";CHR$ O:USING
  80. 120 IF K>L LOCATE 10,1:PRINT CHR$ X
  81. 130 IF G>N LOCATE 22,1:PRINT CHR$ X
  82. 140 IF H>P LOCATE 10,2:PRINT CHR$ X
  83. 150 IF W>Q LOCATE22,2:PRINT CHR$ X
  84. 160 LOCATE1,3:PRINT"Alter";STR$(I-1);"Tage=";STR$INT(I/365.25):
  85. DEGREE:LOCATE0,2:PRINT:END
  86. 170 IF M<3 LET J=J-1:M=M+12
  87. 180 S=INT(365.25*J)-INT(J/100)+INT(J/400)+31*(M-1)-INT(.4*M+2.3)+T
  88. 190 J=S+1721060:W=J-INT(J/7)*7:RETURN
  89. 200 K=(SIN(I*2/23*PI)+1)*50
  90. 210G=(SIN(I*2/33*PI)+1)*50
  91. 220 H=(SIN(I/14*PI)+1)*50:IF I>=0 GOTO260
  92. 230 K=100-((SIN(ABSI*2/23*PI)+1)*50)
  93. 240G=100-((SIN(ABSI*2/33*PI)+1)*50)
  94. 250 H=100-((SIN(ABSI/14*PI)+1)*50)
  95. 260W=(K+G+H)/3:RETURN
  96.  
  97. Beispiel:geborenam29.2.1960|6.12.1968|12.5.1935
  98. Ausgabedatum:Sa29.2.1992|Fr24.12.1993|So18.7.1993
  99. Körperlich94.39%steigend|1.04%steigend|50.00%steigend
  100. Geistig95.48%steigend  |0.00%steigend|50.00%steigend
  101. Seelisch71.69%fallend|99.94%fallend|50.00%steigend
  102. Durchschnitt87.10%fallend|33.66%steigend|50.00%steigend
  103. Alter11688Tage=32J.|9149Tage=25J.|21252Tage=58Jahre
  104. Vom6.6.1966...biszum10.7.1995...biszum25.7.2048
  105.  
  106. SolldieAusgabestattvon0-100%imBereichvon-100...+100%verlaufen,so
  107. mußindenZeilen210-230derAusdruckä*50Çinä*100-100Çumgewandeltwerden.
  108. ê
  109. ÇAnzeigederMondphasestattdesAlters:(130Byteszusätzlich)
  110. alteZeile160ersetzen,USINGinZeile110löschen.KleineGedenkminute.
  111.  
  112. 160Z=I:T=29:M=4:J=1993:GOSUB170:Q=S:T=F:M=E:J=D:GOSUB170
  113. 161I=S-Q:GOSUB270:R=Y:I=I+1:GOSUB270
  114. 162LOCATE1,3:PRINT"Mond:";R;"%";CHR$O;""STR$Z;"d":USING
  115. 163IFY>RLOCATE13,3:PRINTCHR$X
  116. 164DEGREE:LOCATE0,2:PRINT:END
  117. 270Y=(SIN(I*.212768716)+1)*50
  118. 280IFI<0LETY=100-((SIN(ABSI*.212768716)+1)*50)
  119. 290RETURN
  120.  
  121. UmlaufzeitendesMondes:
  122. 27d13h18m33.1sanomalistisch,ZeitzwischenzweiPerigäumsdurchgängen
  123. 27d7h43m11.5ssiderisch,vonSternzuStern(normaleAngabe)
  124. 29d12h44m2.8ssynodisch,allePhasen
  125. Vollmond=100%,Neumond=0%,ErstesViertel=50%steigend,
  126. LetztesViertel=50%fallend(bezogenaufMittag,3.38%=1Tag).
  127. ê  Ç
  128.  
  129. -BiorythmusmitPartnervergelich,2200+270Bytes-
  130.  
  131. 10 CLS :CLEAR :PRINT "  *** BIORYTHMUS 2 ***":O=254:X=253
  132. 20 INPUT " 1 > Biorythmus einzeln  2 > Partnervergleich    3 > Ende ";Z
  133. 30 ON Z GOSUB 50,70:IF Z=3 CLS :PRINT "OK<":USING :END
  134. 40 Z=0:GOTO 10
  135. 50 GOSUB 390:T=C1:M=B1:J=A1:GOSUB 610:Z=4:GOSUB 390:Q=S:T=F:M=E:J=D:GOSUB 610
  136. 60 U=S:V=W+1:I=U-Q:GOSUB 580:Y=I:GOSUB 640:I=I+1:GOSUB 580:GOSUB 300:RETURN
  137. 70 CLS :PRINT "  * PARTNERVERGLEICH *"
  138. 80 INPUT "Name 1: ";N1$:IF LEN N1$>10 LET N1$= LEFT$ (N1$,10)
  139. 90 INPUT "Name 2: ";N2$:IF LEN N2$>10 LET N2$= LEFT$ (N2$,10)
  140. 100 Z=2:GOSUB 390:T=C1:M=B1:J=A1:GOSUB 610:Q1=S
  141. 110 Z=3:GOSUB 390:T=C2:M=B2:J=A2:GOSUB 610:Q2=S
  142. 120 Z=4:GOSUB 390:T=F:M=E:J=D:GOSUB 610:U=S:V=W+1
  143. 130 PRINT "1> Werte ";N1$:PRINT "2> Werte ";N2$
  144. 140 PRINT "3> Differenzwerte":INPUT "4> Neuberechnung  >";R
  145. 150 IF R=1 LET I=U-Q1:Y=I:GOSUB 580:GOSUB 640:I=I+1:GOSUB 580:GOSUB 300
  146. 160 IF R=2 LET I=U-Q2:Y=I:GOSUB 580:GOSUB 640:I=I+1:GOSUB 580:GOSUB 300
  147. 170 IF R=3 GOSUB 250
  148. 180 IF R=4 GOTO 200
  149. 190 R=0:GOTO 130
  150. 200 CLS :PRINT "1> Neue Werte ";N1$:PRINT "2> Neue Werte ";N2$
  151. 210 PRINT "3> Neues Zieldatum":INPUT "4> Alles neu ";R
  152. 220 ON R GOTO 100,110,120
  153. 230 IF R=4 RETURN
  154. 240 R=0:GOTO 200
  155. 250 I=U-Q1:GOSUB 580:GOSUB 640:I=U-Q2:GOSUB 580:Y= ABS (Q2-Q1)
  156. 260 D0= ABS (L-K):D1= ABS (N-G):D2= ABS (P-H):D3=(D0+D1+D2)/3
  157. 270 I=U-Q1+1:GOSUB 580:GOSUB 640:I=U-Q2+1:GOSUB 580
  158. 280 D4= ABS (L-K):D5= ABS (N-G):D6= ABS (P-H):L=100-D0:N=100-D1
  159. 290 P=100-D2:Q=D3:K=D4:G=D5:Q=(L+N+P)/3:W=(D4+D5+D6)/3:GOSUB 300:RETURN
  160. 300 CLS :PRINT "Datum: "; MID$ (" MoDiMiDoFrSaSo",V*2,2);", ";F;" ";E;" "; STR$ D
  161. 310 USING "####.##":PRINT "K:";L;"%"; CHR$ O,"G:";N;"%"; CHR$ O
  162. 320 PRINT "S:";P;"%"; CHR$ O, CHR$ 149;":";Q;"%"; CHR$ O:IF R<>3 PRINT "Alter: ";
  163. 330 USING :IF R=3 PRINT "Differenz: ";
  164. 340 PRINT STR$ Y;" Tage";:R=0:IF K>L LOCATE 10,1:PRINT CHR$ X
  165. 350 IF G>N LOCATE 22,1:PRINT CHR$ X
  166. 360 IF H>P LOCATE 10,2:PRINT CHR$ X
  167. 370 IF W>Q LOCATE 22,2:PRINT CHR$ X
  168. 380 LOCATE 21,3:INPUT " ";B$:RETURN
  169. 390 CLS :IF Z<4 PRINT "Geburtsdatum ";
  170. 400 IF Z=2 PRINT N1$;
  171. 410 IF Z=3 PRINT N2$;
  172. 420 IF Z=4 PRINT "Ausgabedatum";
  173. 430 PRINT :A=0:INPUT " Jahr: ";A:A= INT ABS A:IF A<20 THEN A=A+2000
  174. 440 IF A<100 THEN A=A+1900
  175. 450 IF A<1583 OR A>2200 BEEP 1:PRINT "Jahr von 1583-2200";:GOTO 430
  176. 460 IF Z<3 LET A1=A
  177. 470 IF Z=3 THEN A2=A
  178. 480 IF Z=4 THEN D=A
  179. 490 A=0:INPUT "Monat: ";A:A= INT A:IF A<1 OR A>12 BEEP 1:GOTO 490
  180. 500 IF Z<3 THEN B1=A
  181. 510 IF Z=3 THEN B2=A
  182. 520 IF Z=4 THEN E=A
  183. 530 A=0:INPUT "  Tag: ";A:A= INT A:IF A<1 OR A>31 BEEP 1:GOTO 530
  184. 540 IF Z<3 THEN C1=A
  185. 550 IF Z=3 THEN C2=A
  186. 560 IF Z=4 THEN F=A
  187. 570 RETURN
  188. ê  Ç
  189.  
  190. -FortsetzungBiorythmus-
  191.  
  192. 580 RADIAN :K=( SIN ( ABS I*2/23* PI )+1)*50:H=( SIN ( ABS I/14* PI )+1)*50
  193. 590 G=( SIN ( ABS I*2/33* PI )+1)*50:IF I<0 LET K=100-K:G=100-G:H=100-H
  194. 600 W=(K+G+H)/3:DEGREE :RETURN
  195. 610 IF M<3 THEN J=J-1:M=M+12
  196. 620 S= INT (365.25*J)- INT (J/100)+ INT (J/400)+31*(M-1)- INT (.4*M+2.3)+T
  197. 630 J=S+1721060:W=J- INT (J/7)*7:RETURN
  198. 640 L=K:N=G:P=H:Q=W:RETURN
  199.  
  200. üBiorythmusÇ
  201. NachderTheoriedesBiorythmusverläuftdasLebenvonGeburtaninfesten,
  202. sichzyklischwiederholendenBahnen.DieZyklensindderkörperlichemiteiner
  203. Längevon23Tagen,derseelischemit28TagenunddergeistigemiteineLänge
  204. von33Tagen.DieZyklenbeginnenamTagderGeburt(alseinembesonderskri-
  205. tischenTag)inderMitteundsteigendannauf.AnTagen,andenendieKurven
  206. hoheWerteerreichen,stehtdiemeisteEnergieundLeistungsfähigkeitzurVer-
  207. fügung.AnTagenmitTiefstwertenwirdRuhezurErholungderLeistungsreserven
  208. benötigt.WährendderMittendurchgängeisthöchsteVorsichtgeboten,diekör-
  209. perlicheLeistungsfähigkeitiststarkeingeschränkt,unddieseelischeund
  210. 8003100001\SH_BIO_1.IMG
  211. geistigeVerfassungist
  212. äußerstlabil.
  213.  
  214. OberesBild:Verlaufder
  215. KurvenamTagderGeburt.
  216. DerKurvenverlaufwieder-
  217. holtsicherstnachca.
  218. 58Jahren.
  219.  
  220.  
  221.  
  222.  
  223.  
  224. 8003100001\SH_BIO_2.IMG
  225. MittleresBild:Kurvenver-
  226. laufwährendeineszufälligen
  227. Monates.Umden5.wirdRuhe
  228. zurRegenerationempfohlen,
  229. umden17.stehtgroßeEner-
  230. giezurVerfügung,dieam
  231. Monatsendewiederaufgefüllt
  232. werdenmuß.
  233.  
  234.  
  235.  
  236.  
  237. 8003100001\SH_BIO_3.IMG
  238. UnteresBild:möglicher
  239. Kurvenverlaufbeieinem
  240. Partnerschaftsvergleich.
  241. VerlaufendieKurvenim
  242. oberenBereich,besteht
  243. größteHarmonie,inder
  244. MittemußschonBereit-
  245. schaftzurPartnerschaft
  246. gebensein.Imunteren
  247. Bereichistgrößte
  248. Toleranzerforderlich.
  249.  
  250. ê  Ç
  251.  
  252. 10 CLS :CLEAR :RADIAN :'geosat c't 1990-9-222
  253. 20 K=180/ PI :L= PI /180:M=2* PI
  254. 30 PRINT "AZIMUT und ELEVATION f."
  255. 40 PRINT "geostat. Sat- Empfang"
  256. 50 INPUT "Breite Station: ";C:C=C*L
  257. 60 INPUT "Laenge Station: ";D:D=D*L
  258. 70 INPUT "Laenge Satellit ";E:E=E*L:G=D-E
  259. 80 IF G> PI LET G=G-M
  260. 90 IF G<- PI LET G=G+M
  261. 100 S= ACS ( COS C* COS G)
  262. 110 IF C<>0 GOTO 160
  263. 120 IF G>0 LET A= PI *1.5:GOSUB 260
  264. 130 IF G<0 LET A= PI /2:GOSUB 260
  265. 140 IF G=0 LET A=0:H= PI /2
  266. 150 GOTO 200
  267. 160 GOSUB 260:IF H<0 LET A=0:GOTO 200
  268. 170 A= ATN ( TAN G/ SIN C)
  269. 180 IF C>0 LET A=A+ PI :GOTO 200
  270. 190 IF G>0 LET A=A+M
  271. 200 CLS :USING "####.###"
  272. 210 PRINT "Ort:";C*K;" N";D*K;" E"
  273. 220 PRINT "   Azimut:";A*K; CHR$ 193
  274. 230 PRINT "Elevation:";H*K; CHR$ 193
  275. 240 IF H<0 PRINT "Satellit nicht sichtbar!"
  276. 250 USING :LOCATE 0,0:PRINT :END
  277. 260 H= ATN (( COS S-.151269039)/ SQR (1- COS S* COS S)):RETURN
  278.  
  279. DiesesProgrammberechnetdiePositionierungeinerParabolantennefüreine
  280. Satellitenempfangsanlage,wenndieeigenegeographischePositionunddiegeo⑨
  281. stationärePositiondesSatellitenbekanntsind.DiePositionensindalsDezi-
  282. malbrucheinzugeben,dabeisindOstundNordpositiv,SüdundWestnegativ.
  283. AusgegebenwerdenAzimutundElevationfürdieAntenne.DabeibedeutenAzimut
  284. dieAusrichtung,wobeidieKompaßrosezugrundegelegtwird,d.h.90É0ÇistOst,
  285. 180É0ÇSüdund270É0ÇWest.ElevationbedeutetdieAusrichtungvonderWaagerechten
  286. aus,d.h.bei0É0ÇstehtdieAntennewaagerecht,bei90É0Çzeigtsiesenkrechtnach
  287. oben.
  288.  
  289. PositioneneinigerSatelliten:     BeieinerPositionmitmehrals81É0Çzueinem
  290. Kopernikus   :23.5É0ÇE            PolderErdeisteinEmpfangprakitschnicht
  291. Astra1A    :19.2É0ÇE            mehrmöglich.EineAntenneamÄquatorkann
  292. EutelsatIIF1:13É0ÇE            nochSatellitenempfangen,die81.3É0Çvom
  293. EutelsatIIF2:10É0ÇE            eigenenStandortentferntsind.Beieiner
  294. Telecom1C    :5É0ÇW            Breitevon50É0Ç(Mitteleuropa)kannder
  295. Telecom1A    :8É0ÇW            Satellitnoch75É0Çentferntsein,vorausge-
  296. IntelsatVF6  :18.5É0ÇW            setzt,derAntennenstandortliegtimStrahl-
  297. TDFTV2       :19É0ÇW            bereichdesSatelliten,unddieAntenneist
  298. IntelsatVIF4:27.5É0ÇW            ausreichendgroß.
  299. PanAmSat      :45É0ÇW
  300. PositionenvonSatelliten,derenProgrammnichtfürMitteleuropavorgesehenist:
  301. Gorizon16   :80É0ÇE  Gorizon17  :53É0ÇETelecom2A  :8É0ÇWIntelsat605:24.5É0ÇW
  302. Intelsat505 :66É0ÇE Gorizon12  :40É0ÇE  Gorizon11  :11É0ÇWIntelsat601:27.5É0ÇW
  303. Intelsat602 :63É0ÇE Arabsat1C  :30É0ÇE Gorizon15  :14É0ÇWIntelsat603:34.5É0ÇW
  304. Intelsat604 :60É0ÇE Intelsat512 :1É0ÇWIntelsat515:18É0ÇWTDRS-A:41É0ÇW
  305. Intelsat507 :57É0ÇE Telecom2B  :5É0ÇWIntelsat502:21.5É0ÇWIntelsat513:53É0ÇW
  306. Kopernikus2:28.5EEutelsatIIF3:16É0ÇEEutelsatIIF4M:7É0ÇETele-X:5É0ÇE
  307. Thor      :1É0ÇWHispasat1A:30É0ÇW
  308. ê  Ç
  309.  
  310. -DEMON-LahmerMonitor,funktioniertauchmitPasswort-ca.790Bytes
  311. 10 CLS:CLEAR:DIM ZZ$(3)*1,HE$(15)*1:PRINT "DE_MONitor"
  312. 20 FOR Q=0 TO 15:READ HE$(Q):NEXT
  313. 30 INPUT "STARTADRESSE HEX";AR$:AD=VAL("&H"+AR$)
  314. 40IFAD>65532BEEP1:PRINT"BEREICH0-FFF0!":GOTO30
  315. 50AD=INT(AD/4)*4
  316. 100 CLS:LOCATE 0,0:AX=AD
  317. 120BX=INT(AX/4096):PRINTHE$(BX);:AX=AX-BX*4096
  318. 130BX=INT(AX/256):PRINTHE$(BX);:AX=AX-BX*256
  319. 140BX=INT(AX/16):PRINTHE$(BX);HE$(AX-BX*16)
  320. 160 FOR QA=0 TO 3:LOCATE 5,QA
  321. 170 FOR QB=0 TO 3:PE=PEEK(AD+QA*4+QB):ZZ$(QB)="."
  322. 180 XF=INT(PE/16):IF PE>31 LET ZZ$(QB)=CHR$ PE
  323. 190 PE=PE-XF*16:PRINT HE$(XF);HE$(PE);" ";:NEXT
  324. 200 FOR QC=0 TO 3:PRINT ZZ$(QC);:NEXT:PRINT:NEXT
  325. 210 YA$=INKEY$:IF YA$="" GOTO 210
  326. 220TA=ASCYA$
  327. 230IFTA=65LETA=A+PI:GOTO100:'TESTONLY
  328. 240IFTA=90LETZ=Z+PI:GOTO100:'DIVVARSAENDERN
  329. 250 IF TA=4 LET AD=AD-16:IF AD<0 LET AD=65520:'ARWDN
  330. 260 IF TA=5 LET AD=AD+16:IF AD>65520 LET AD=0:'ARWUP
  331. 270IFTA=14LETAD=AD+4:IFAD>65532LETAD=0:'ARWRE
  332. 280IFTA=15LETAD=AD-4:IFAD<0LETAD=65532:'ARWLI
  333. 290IFTA=32GOTO30
  334. 300 GOTO 100
  335. 65000 DATA 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F
  336.  
  337. 1CLS :CLEAR :X$="Benzin ":Y$="Diesel "
  338. 2PRINT X$;"vs ";Y$
  339. 3PRINT "Hubraum in ccm"
  340. 4PRINT X$;:INPUT A
  341. 5PRINT Y$;:INPUT B
  342. 6PRINT "Steuer pro 100 ccm"
  343. 7PRINT X$;:INPUT C
  344. 8PRINT Y$;:INPUT D
  345. 9PRINT "Treibstoffpreis 1 Liter"
  346. 10PRINT X$;:INPUT E
  347. 11PRINT Y$;:INPUT F
  348. 12PRINT "Verbrauch Liter/100km"
  349. 13PRINT X$;:INPUT G
  350. 14PRINT Y$;:INPUT H
  351. 15PRINT "Anschaffungspreis"
  352. 16PRINT X$;:INPUT I
  353. 17PRINT Y$;:INPUT J
  354. 18PRINT "Nutzungszeit Jahre"
  355. 19PRINT X$;:INPUT K
  356. 20PRINT Y$;:INPUT L
  357. 21PRINT "Restwert nach Nutzung"
  358. 22PRINT X$;:INPUT M
  359. 23PRINT Y$;:INPUT N
  360. 24O=G/100*E:'spritkosten pro km
  361. 25P=H/100*F
  362. 26Q=(I-M)/K:'Wertverlust p.a.
  363. 27R=(J-N)/L:CLS
  364. 28S=INT (A/100+.99)*C
  365. 29T=INT (B/100+.99)*D:'Steuer p.a.
  366. 30PRINT Y$;"wird rentabel ab"
  367. 31PRINT STR$ INT ((R-Q)+(S-T)/(P-O)+.5);" km pro Jahr.
  368. ê  Ç
  369.  
  370. -Minisort-A$(N)wirdsortiert,A=Arraygröße
  371. 100FORX=1TOA-1:FORY=X+1TOA
  372. 110IFA$(X)>A$(Y)LETXX$=A$(X):A$(X)=A$(Y):A$(Y)=XX$
  373. 120NEXT:NEXT
  374. XX$mußdieerforderlicheLängebesitzen[...vielleichtA$(0)]
  375.  
  376. -Bubblesort2-fürvorsortierteFelder,lahmbeiunsortiert
  377. 100GR=A-1:FORX=GRTO1STEP-1:FL=0
  378. 110FORY=1TOGR
  379. 120IFA$(Y)>A$(Y+1)LETXX$=A$(Y):A$(Y)=A$(Y+1):A$(Y+1)=XX$:FL=Y
  380. 130NEXT:GR=FL:IFFL=0LETX=A
  381. 140NEXT
  382.  
  383. -STRAIGHTINSERT-passableGeschwindigkeit
  384. 100FORX=2TOA:FORY=1TOX
  385. 110IFA$(Y)>A$(Y+1)LETXX$=A$(Y):A$(Y)=A$(Y+1):A$(Y+1)=XX$
  386. 120NEXT:NEXT
  387.  
  388. -SHELLSORT-
  389. 100M=A
  390. 110M=INT(M/2)
  391. 120IFM=0RETURN
  392. 130N=A-M
  393. 140FORQ=1TON:I=Q
  394. 150L=I+M
  395. 160IFA$(I)>A$(L)LETXX$=A$(I):A$(I)=A$(L):A$(L)=XX$:I=I-M:IFI>0GOTO150
  396. 170NEXT:GOTO110
  397.  
  398. -HEAPSORT-äschnell,fürgroßeDatenmengenÇ
  399. 60L=INT(A/2):R=A:'A=ARRAYGROESSE
  400. 70IFR<=1GOTO170:'SORTENDE
  401. 80IFL<=1GOTO100:'GRENZENLI+RE
  402. 90L=L-1:I=L:GOTO110
  403. 100Y$=A$(1):A$(1)=A$(R):A$(R)=Y$:R=R-1:I=1
  404. 110X$=A$(I):F=0
  405. 120IFI*2<=RTHENIFF=0GOTO140
  406. 130A$(I)=X$:GOTO70
  407. 140J=I*2:IFJ<RTHENIFA$(J)<A$(J+1)LETJ=J+1
  408. 150IFX$>=A$(J)LETF=1:GOTO120
  409. 160A$(I)=A$(J):I=J:GOTO120
  410. 170äWEITERIMPROGRAMM...Ç
  411. ê  Ç
  412.  
  413. -Temperaturumrechnungen-
  414. 100INPUT"HITZE:";G
  415. 110INPUT"EINHEIT(C-R-F-K):";E$
  416. 120IFE$="C"LETA=G
  417. 130IFE$="K"LETA=G-273.16
  418. 140IFE$="R"LETA=5*G/4
  419. 150IFE$="F"LETA=5*(G-32)/9
  420. 160G$=CHR$&HF6:USING"#####.##"
  421. 170PRINTA;G$;"C",9*A/5+32;G$;"F"
  422. 180PRINT4/5*A;G$;"R",A+273.16;"K"
  423.  
  424. -REFA=ZEITENKATALOG-
  425. 100INPUT"Epsilon:";E:E=SQU(E/100):'CHR$165
  426. 110INPUT"Periodenl.:";P:'MESSDAUERINSTD
  427. 120INPUT"Untergrenze:";U:'UNTGR1.WERT
  428. 130A=E*P/2:Z=65
  429. 140B=E*P*U
  430. 150F=A+SQR(A*A+B)
  431. 160F=INT(F*100+.5)/100
  432. 170PRINT"Klasse:",CHR$Z
  433. 180PRINT"Untergrenze:",F
  434. 190PRINT"Mitte:",U+F
  435. 200PRINT"Obergrenze:",U+F+F;
  436. 210U=U+2*F:Z=Z+1:INPUTX:GOTO140:'ENTER=WEITER
  437.  
  438.  
  439. -REFAPLANZEITTABELLE-
  440. 10PRINT"Planzeittabelle"
  441. 20INPUT"t1min:";T1
  442. 30INPUT"t2max:";T2
  443. 40INPUT"x1min:";X1
  444. 50INPUT"x2max:";X2
  445. 60Z=(T2-T1)/(X2-X1):USING"####.###"
  446. 70PRINT"f(y)=";Z;"x+";Z*-X1+T1
  447. 80INPUT"xunbek:";X
  448. 90PRINT"y=";Z*(X-X1)+T1
  449. 100GOTO80
  450.  
  451. -ERATO-175BYTES
  452. 100CLS:CLEAR:PRINT"SIEBDESERATOSTHENES"
  453. 110INPUT"ENDWERT:";E
  454. 120DIMP(E)
  455. 130P(1)=1:'1<>PRIM
  456. 140FORI=2TOSQRE
  457. 150IFP(I)=1GOTO190
  458. 160FORJ=I*ITOESTEPI
  459. 170P(J)=1
  460. 180NEXT
  461. 190NEXT:WAIT12
  462. 200FORI=3TOE
  463. 210IFP(I)=0PRINTI;"";
  464. 220NEXT
  465. ê  Ç
  466.  
  467. 100 REM STATISTIK 1-DIMENSIONAL
  468. 110 R=0:A=0:CLS:INPUT "1. x=";A
  469. 120 R=A*A:M=A:N=A:I=2
  470. 130 PRINT I;"x=";:INPUT W$
  471. 140 IF LEN W$=0 GOTO 130
  472. 150 IF ASC W$>64 GOTO 220
  473. 160 W= VAL W$:A=A+W:R=R+W*W:'summen
  474. 190 IF W<M LET M=W:'minimalwert
  475. 200 IF W>N LET N=W:'maximalwert
  476. 210 I=I+1:GOTO 130
  477. 220 I=I-1:C=R:B=A/I:R=R-(I*B*B)
  478. 230 V= SQR(R/(I-1)):U= SQR(R/I)
  479. 240 WAIT 190:PRINT "n: ";I
  480. 250 PRINT CHR$ &H92;"x: ";A
  481. 260 PRINT CHR$ &HBF;": ";B
  482. 270 PRINT CHR$ &H92;"x";CHR$ &HC3;": ";C
  483. 280 PRINT "s";CHR$ &HC3;": ";V
  484. 290 PRINT CHR$ &HB2;": ";U
  485. 300 PRINT "s: "; SQR(V):PRINT "R: ";N-M
  486. 320 'Buchstabe als Eingabe=Abbruch
  487.  
  488. 100 REM STATISTIK 2-DIMENSIONAL
  489. 110 CLS:O=146:INPUT "1. x=";U:INPUT "1. y=";V
  490. 120 I=U*U:J=V*V:M=U:N=U:P=V:Q=V:C=2:R=U*V
  491. 130 PRINT C;" x=";:INPUT X$
  492. 140 IF LEN X$=0 GOTO 130
  493. 150 IF ASC X$>64 GOTO 280:'Buchstabe=auswerten
  494. 160 PRINT C;" y=";:INPUT Y$
  495. 170 IF LEN Y$=0 GOTO 160
  496. 180 IF ASC Y$>64 GOTO 280
  497. 190 A= VAL X$:B= VAL Y$
  498. 210 U=U+A:V=V+B:I=I+A*A:J=J+B*B:R=R+A*B:'Summen
  499. 230 IF A<M LET M=A:'min
  500. 240 IF B<P LET P=B
  501. 250 IF A>N LET N=A:'max
  502. 260 IF B>Q LET Q=B
  503. 270 C=C+1:GOTO 130
  504. 280 C=C-1:D=U/C:E=V/C:'Mittelwerte
  505. 290 F=I-U*U/C:G=J-V*V/C:H=R-U*V/C:'Sxx,Syy,Sxy
  506. 320 L=H/F:K=E-L*D:WAIT 190:PRINT "n: ";C
  507. 340 PRINT CHR$191;":";D:PRINT CHR$187;": ";E
  508. 360 PRINT CHR$ O;"x: ";U:PRINT CHR$ O;"y: ";V
  509. 380 PRINT CHR$ O;"x";CHR$ 195;": ";I
  510. 390 PRINT CHR$ O;"y";CHR$ 195;": ";J
  511. 400 PRINT CHR$ O;"xy: ";R
  512. 410 PRINT "sx: "; SQR((I-C*D*D)/(C-1))
  513. 420 PRINT "sy: "; SQR((J-C*E*E)/(C-1))
  514. 430 PRINT CHR$ 178;"x: "; SQR((I-C*D*D)/C)
  515. 440 PRINT CHR$ 178;"y: "; SQR((J-C*E*E)/C)
  516. 450 PRINT "a: ";K:'y bei x=0
  517. 460 PRINT "b: ";L:'Steigung
  518. 470 PRINT "r: ";H/SQR(F*G)
  519. 480 PRINT "R x: ";N-M:'Spannweite
  520. 490 PRINT "R y: ";Q-P:'=Range
  521. 500 'Schaetzwert suchen:x'=(y-a)/b | y'=a+b*x
  522. ê  Ç
  523.  
  524. -Bassreflexboxen-575Bytes
  525. 100 CLEAR:PRINT "BASSREFLEXBOXEN"
  526. 110 PRINT "Gesuchter Wert = NULLAlleAngabenincm":INPUT "Volumen: ";V
  527. 120 PRINT "Kanal";CHR$ 149;:INPUT ":";D:INPUT "Kanallaenge: ";L
  528. 130 INPUT "Res.freq: ";F:W=V*1E3:C=33E3          äC=SchallgeschwindigkeitÇ
  529. 140 IF F=0 LET F=(C*D)/(2*(SQR(PI*W*(8*L+PI*D))))
  530. 150 IF L=0 LET L=((C*C*D*D)/(4*PI*F*F*W)-PI*D)/8
  531. 160 IF D=0 LET D=2*F/(C*C)*(PI*PI*F*W+SQR(PI^4*F*F*W*W+8*PI*C*C*W*L))
  532. 170 IF V=0 LET V=(C*C*D*D/(4*PI*F*F*(8*L+PI*D)))/1E3
  533. 180 IF D<0 OR L<0 OR V<0 OR F<0 PRINT "Fehleingabe.":END
  534. 190 USING "####.##":PRINT "F=";F;"Hz","H=";16.23*CURV;"cm"
  535. 200 PRINT "D=";D;"cm","B=";10.14*CURV;"cm"
  536. 210PRINT "L=";L;"cm","T=";6.08*CURV;"cm"
  537. 220 PRINT "","V=";V;"l":USING:LOCATE 0,2:PRINT:END
  538.  
  539. Beispiel:
  540. V=40Liter,D=6.3cm,L=12.5cm,F=27Hz,H=55.5cm,B=34.6cm,T=20.8cm
  541. WirdstattKanallängedieWandstärkeangegeben,kannmansichdasRohrsparen.
  542. DasRohr(oderdieAussparung)mußnichtrundsein(aberauchnichtzuschmal).
  543.  
  544. -ZWEIWEGE=LAUTSPRECHERWEICHEN-
  545. 100PRINT"Zweiwegeweichen":PRINT"Filtercharakteristik:
  546. 110PRINT"1-Butterworth2-Bessel":INPUT"Wahl:";T
  547. 120D=4:IFT=1LETD=5
  548. 130PRINT"Ordnung(1-";STR$D;"):";:INPUTG
  549. 140PRINT"Nennimpedanz";CHR$152;:INPUT":";R
  550. 150INPUT"TrennfrequenzHz:";F
  551. 160M=R/(2*PI*F)/1E3
  552. 170X=RCP(2*PI*F*R)*1E6
  553. 180RESTORE:IFT=2RESTORE320
  554. 190IFG>1GOSUB260
  555. 200FORQ=1TOG:READE,D
  556. 210L=E*M:C=D*X:U$="###.###"
  557. 220PRINT"L";STR$Q;"=";:USINGU$:PRINTL;"mH"
  558. 230USING:PRINT"C";STR$Q;"=";:USINGU$:PRINTC;CHR$172;"F";
  559. 240IFQ<GINPUTI$
  560. 250USING:NEXT:END
  561. 260L=G-1:D=0:FORC=1TOL:D=D+C:NEXT
  562. 270FORQ=1TOD:READE,E:NEXT:RETURN
  563. 280DATA1,1,1.414,.7071,1.414,.7071,1.5,.67
  564. 290DATA.75,1.33,.5,2,1.531,.65,.63,1.577
  565. 300DATA1.082,.92,2.61,.383,1.545,.64,.59
  566. 310DATA1.694,1.382,.72,1.12,.894,.309,3.24
  567. 320DATA1,1,1.362,.734,2.204,.454,1.463
  568. 330DATA.684,1.187,.843,.293,3.417,1.501
  569. 340DATA.666,1.022,.978,.613,1.632,4.731,.211
  570.  
  571. 8001600001\SH_WEICH.IMG
  572.  
  573.  
  574.  
  575.  
  576.  
  577.  
  578.  
  579.  
  580.  
  581.  
  582.  
  583.  
  584. ê  Ç
  585.  
  586. 8004100001\SH_YAGI.IMG
  587. -YAGI=ANTENNE-225Bytes
  588. 10CLS:CLEAR:PRINT"Yagi-Antenne"
  589. 20INPUT"FrequenzkHz:";F
  590. 30W=3E5/F:USING"###.###":CLS
  591. 40PRINT"YagiantenneDir=";.44175*W
  592. 50PRINT"Str=";.465*W,"Ref=";.48825*W
  593. 60PRINT"Dir-Str=";.12*W;"alles"
  594. 70PRINT"Str-Ref=";.15*W;"Meter"
  595. 80LOCATE0,2:PRINT:END
  596.  
  597. -MASTERMIND-365Bytes
  598. 100CLEAR:PRINT"MASTERDEPP"
  599. 110INPUT"Breite2-7:";B
  600. 120PRINT"Symbole";STR$B;"-25:";:INPUTS:IFS<BGOTO120
  601. 130DIMA$(B)*1:FORQ=1TOB
  602. 140A$(Q)=CHR$(RND(S)+64):FORP=1TOQ
  603. 150IFA$(Q)=A$(P)ANDP<>QLETQ=Q-1
  604. 160NEXT:NEXT:'HIERSPICKEN
  605. 170D=D+1:PRINT"CODE:";D;:INPUTI$
  606. 180M=0:N=0:FORQ=1TOB:T$=MID$(I$,Q,1)
  607. 190FORP=1TOB:IFT$=A$(P)ANDP<>QLETM=M+1
  608. 200NEXT:IFT$=A$(Q)LETN=N+1:'TREFFER
  609. 210NEXT:LOCATE18,3:PRINTN;M
  610. 220IFN<>BGOTO170
  611. 230PRINT"Geschafft:";STR$D;"Versuche"
  612. Sollenmehrals7Zeichenmöglichsein,mußI$mitDIMaufdieerforderliche
  613. Breitegebrachtwerden.DieZeichenA...sindzuraten.
  614.  
  615. -einfacherGleichungslöser-230Bytes
  616. 100PRINT"GLEICHUNG1"
  617. 110INPUT"KOEFF.X:";A
  618. 120INPUT"KOEFF.Y:";B
  619. 130INPUT"KONSTANTE";C
  620. 140PRINT"GLEICHUNG2"
  621. 150INPUT"KOEFF.X:";E
  622. 160INPUT"KOEFF.Y:";F
  623. 170INPUT"KONSTANTE";G
  624. 180PRINT"LOESUNG:":H=A*F-B*E
  625. 190PRINT"X=";(C*F-B*G)/H
  626. 200PRINT"Y=";(A*G-C*E)/H
  627.  
  628. Çê  Ç
  629.  
  630. -Programmsegment,wenndieZeilenzahlnichtausreicht-
  631. 10ZZ=10
  632. 20DIMT$(ZZ):'ANZAHLZEILEN
  633. 30FORQ=1TOZZ:READT$(Q):NEXT
  634. 40ZX=4:GOSUB100:'ABHIERSUBPROG
  635. 50Z$=INKEY$:IFZ$=""GOTO50:'GGFSMITAUTO-OFF
  636. 60IFZ$=CHR$4ANDZX>4LETZX=ZX-1:GOSUB100:'CRSRUP
  637. 70IFZ$=CHR$5ANDZX<ZZLETZX=ZX+1:GOSUB100:'CRSRDN
  638. 80IFZ$>CHR$31END:'ODERRETURN
  639. 90GOTO50
  640. 100CLS:FORZQ=ZX-4TOZX-1
  641. 110PRINTT$(ZQ+1);":";CHR$(RND(26)+65);RND(10000):'MEHROUTPUT...
  642. 120NEXT:IFZX<ZZLOCATE23,3:PRINTCHR$&HFE:'PFEILAB
  643. 130IFZX>4LOCATE23,0:PRINTCHR$&HFD;:'PFEILAUF
  644. 140RETURN
  645. 150DATABHV,CUX,STD,HHL,GLK,HEI,HUS,WST,LST,HEL
  646.  
  647. 100 REM FRANCIS BEAUFORTS GEHEIMSCHRIFT
  648. 110 DIMM$(0)*100,N$(0)*100,P$(0)*255,Z$(0)*32
  649. 120 FOR J=1 TO 2
  650. 130 GOSUB 320:'VERSCHLUESSELN
  651. 140 GOSUB 170:'ENTSCHLUESSELN
  652. 150 NEXT:END
  653. 170 INPUT " MESSAGE";M$(0)
  654. 180 FOR Q=1 TO LENM$(0)
  655. 190 H$=MID$(M$(0),Q,1)
  656. 200 IF H$>"@" AND H$<"[" LET N$(0)=N$(0)+H$
  657. 210 NEXT
  658. 220 FOR Q=1 TO LENN$(0)
  659. 230 A=ASC(MID$(P$(0),Q,1))-65
  660. 240 B=ASC(MID$(N$(0),Q,1))-65
  661. 250 IF B>A LET B=B-26
  662. 260 PRINT CHR$(A-B+65);
  663. 270 IF Q/3=INT(Q/3) PRINT " ";
  664. 280 NEXT:PRINT
  665. 300 N$(0)="":P$(0)="":M$(0)=""
  666. 310 RETURN
  667. 320 INPUT "PASSWORT";Z$(0)
  668. 330 L=255/LENZ$(0)
  669. 340 FOR Q=1 TO L:P$=P$+Z$:NEXT
  670. 370 P$=P$+LEFT$(Z$,255-LEN(A$))
  671. 380 RETURN
  672. Çê  Ç
  673.  
  674. 100 REM LORD PLAYFAIRS GITTER
  675. 110 F$="XYZ"
  676. 120 GOSUB 680
  677. 130 INPUT "IHRE MESSAGE";M$(0)
  678. 140 L=LENM$(0)
  679. 150 FOR Q=1 TO L
  680. 160 P$=MID$(M$(0),Q,1)
  681. 170 IF P$<>" " LET X$(0)=X$(0)+P$
  682. 180 NEXT
  683. 190 L=LENX$(0)/4
  684. 200 IF L<>INT(L) LET Q=4-(L-INT(L))*4:X$(0)=X$(0)+LEFT$(F$,Q)
  685. 240 FOR R=1 TO L-1 STEP 2
  686. 250 A$=MID$(X$(0),R,1)
  687. 260 B$=MID$(X$(0),R+1,1)
  688. 270 FOR P=1 TO 6:FOR Q=1 TO 6
  689. 280 IF A$=Q$(Q,P) LET X=Q:Y=P
  690. 290 IF B$=Q$(Q,P) LET U=Q:V=P
  691. 300 NEXT:NEXT
  692. 310 IF X=U LET Y=Y+1:V=V+1
  693. 320 IF Y=V LET X=X+1:U=U+1
  694. 330 IF X<>U AND Y<>V LETO=X:X=U:U=O
  695. 340 C$(0)=C$(0)+Q$(X,Y)+Q$(U,V):NEXT
  696. 360 FOR Q=1 TO LENC$(0)
  697. 370 PRINT MID$(C$(0),Q,1);
  698. 380 IF Q/4=INT(Q/4) PRINT " ";
  699. 390 NEXT:PRINT
  700. 410 X$="":M$=""
  701. 420 INPUT "IHR CODE";C$(0)
  702. 430 FOR Q=1 TO LENC$(0)
  703. 440 P$=MID$(C$(0),Q,1)
  704. 450 IF P$<>" " LET X$(0)=X$(0)+P$
  705. 460 NEXT:L=LENX$(0)
  706. 480 IF L/2<>INT(L/2) LET X$(0)=X$(0)+"X"
  707. 490 FOR R=1 TO LENX$(0)-1 STEP 2
  708. 500 A$=MID$(X$(0),R,1)
  709. 510 B$=MID$(X$(0),R+1,1)
  710. 520 FOR P=1 TO 6:FOR Q=1 TO 6
  711. 530 IF A$=Q$(Q,P) LET X=Q:Y=P
  712. 540 IF B$=Q$(Q,P) LET U=Q:V=P
  713. 550 NEXT:NEXT
  714. 560 IF X=U LETY=Y-1:V=V-1
  715. 570 IF Y=V LET X=X-1:U=U-1
  716. 580 IF X<>U AND Y<>V LET0=X:X=U:U=O
  717. 590 M$(0)=M$(0)+Q$(X,Y)+Q$(U,V):NEXT
  718. 620 FOR Q=1 TO LENM$(0)
  719. 630 PRINT MID$(M$,Q,1);
  720. 640 IF Q/4=INT(Q/4)PRINT " ";
  721. 650 NEXT:END
  722. 680 CLS:DIM Q$(7,7)*1,C$(0)*255,M$(0)*255,X$(0)*255
  723. 700 FOR Q=1 TO 6:FOR P=1 TO 6
  724. 710 READ Q$(P,Q):NEXT:NEXT
  725. 720 FOR Q=1 TO 6
  726. 730 Q$(0,Q)=Q$(6,Q):Q$(7,Q)=Q$(1,Q)
  727. 740 Q$(Q,0)=Q$(Q,6):Q$(Q,7)=Q$(Q,1)
  728. 750 NEXT:Q$(0,0)=".":Q$(7,7)="."
  729. 770 Q$(0,7)=".":Q$(7,0)=".":RETURN
  730. 790 DATA 1,Q,A,Y,2,W,S,X,3,E,D,C,4,R,F,V,5,T
  731. 800 DATA G,B,6,Z,H,N,7,U,J,M,8,I,K,9,O,L,0,P
  732. 810 REM  ^HIER^EIGENEN^CODE^EINTRAGEN^
  733. Çê  Ç
  734.  
  735. -CREDIT-
  736. 100INPUT"SCHULDEN:";S
  737. 110INPUT"ZINSSATZ:";Z
  738. 120INPUT"MONZAHLUNG:";R
  739. 130Z=Z/12:G=S:USING"########.##":WAIT65
  740. 140IFS*Z/100>R-.01BEEP1:PRINT"ZINS=";S*Z/100:GOTO120
  741. 150IFS<=0GOTO210
  742. 160J=J+1:X=S*Z/100
  743. 170S=S+X-R
  744. 180U=U+X:'X=ZINS/PERIODE
  745. 190IFS>0PRINT"MONAT";STR$J:PRINT"SCHULD";S
  746. 200GOTO150
  747. 210WAIT0:IFJ>11LETA=A+1:J=J-12:GOTO210
  748. 220PRINTSTR$A;"JAHRE,";STR$J;"MONATE:"
  749. 230PRINT"ZINSEN:";U
  750. 240PRINT"GESAMT:";G+U
  751. 250USING:END
  752.  
  753. -RENTE-
  754. 100INPUT"KAPITAL:";K
  755. 110INPUT"JAHRE:";J
  756. 120INPUT"ZINSSATZ%";Z:Z=Z/100
  757. 130R=(1+Z)-1:S=((1+Z)^J)-1
  758. 140T=K*(1+Z)^J*(R/S)
  759. 150PRINT"RENTEPROJAHR:":PRINTT
  760.  
  761. -ZINSFUSSBEIABGEZINSTENPAIPEREN-    -ENDBETRAGBEICONSTKAPITAL-
  762. 100INPUT"ANFKAPITAL:";S             100INPUT"ANFKAPITAL:";A
  763. 110INPUT"ENDKAPITAL:";E             110INPUT"ZINSFUSS:";Z
  764. 120INPUT"LAUFZEIT:";J               120INPUT"LAUFZEIT:";J
  765. 130Z=(LOGEK-LOGSK)/J               130K=A*((1+(Z/100))^J)
  766. 140PRINT"ZINSEFF.:";Z*100          140PRINT"ENDKAPTIAL";K
  767.  
  768. -RENTABILITAETLEBENSVERS-
  769. 100INPUT"MON.EINZAHL:";D
  770. 110INPUT"LAUFZMONATE:";L
  771. 120INPUT"ENDKAPITAL:";E
  772. 130K=D*L:Z=E-K
  773. 140P=(Z*L)/(K*100)
  774. 150PRINT"EFFZINS:";P;"%"
  775.  
  776. -SPARZINSERTRAG-
  777. 100INPUT"ANFKAPITAL:";K
  778. 110INPUT"EINZ.PJAHR:";A
  779. 120INPUT"ANZJAHRE:";N
  780. 130INPUT"ZINSFUSS:";Z
  781. 140PRINT"EINZAHLUNGAM>A<NFANGODER>E<NDEDESJAHRES:"
  782. 150INPUT"A/E:";F$
  783. 160C=1+Z/100:IFF$="A"GOTO180
  784. 170Q=K*C^N+A*(C^N-1)/(1-C):GOTO190
  785. 180Q=(K+A)*C^N+A*(C^N-1)/(1-C)
  786. 190PRINT"ENDKAPITAL:";Q
  787.