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 >
Wrap
Text File
|
1989-04-06
|
28KB
|
787 lines
07201010206800
1SHARP PC-E220SecondhandbuchBrainwave
2- # -
F0110030
9[.......................................................................]101
ê Ç
ü
BeispielprogrammeÇ
DieaufgeführtenProgrammehabenpraktischkeineFehlerüberwachung(gegenFehl-
eingaben),umdieProgssokurzwiemöglichzuhalten.Siesindnichtunbedingt
freivonRechtenDritter,wasaberderprivatenNutzungkeinenAbbruchtut.
AnwendungenaufeigeneGefahr-playatyourownrisk.
-Zahlensystemkonverter-380Bytes
100 CLS:CLEAR:DIM Z$(0)*32,S$(32)*1:PRINT"Zahlensystemkonverter"
110 INPUT "ZAHL: ";Z$(0)
120INPUT " VON: ";B:LOCATE13,2
130 INPUT "NACH: ";G
140 L=LENZ$(0):FOR I=1 TO L
160 A=ASC(MID$(Z$(0),I,1))
170 A=A-48:IF A>9 LET A=A-7
180 D=D+A*B^(L-I):NEXT:E=D
190 PRINT "GIBT: ";:IFD>1E10PRINT"?";
210 A=INT(E/G):C=E-G*A:E=A:Z=Z+1
230 IF C<=9 LET S$(Z)=STR$C
240 IF C>9 LET S$(Z)=CHR$(C+55)
250 IF A>0 GOTO 210
270 FOR I=ZTO 1 STEP-1:PRINT S$(I);:NEXT
WirdvorderkonvertiertenZahleinFragezeichenausgegeben,übersteigtdas
interneZwischenergebnisdieRechengenauigkeit.EsistvoneinemFehlerin
denletztenStellenauszugehen(zukleinesErgebnis).
ê
Ç
100CLS:CLEAR:PRINT "Bruchrechnen" äca.555BytesÇ
110INPUT "Z1: ";A
120INPUT "N1: ";B
130Z=A:N=B:GOSUB 270:A=Z:B=N
140LOCATE13,1:INPUT "Z2: ";C
150LOCATE13,2:INPUT "N2: ";D
160Z=C:N=D:GOSUB 270:C=Z:D=N
170PRINT "";CHR$ 245;" + - * / ";CHR$ 244;" ";:INPUT S$
180IF S$="/" OR S$="*" GOTO 230
190IF S$="-" LET C=-C
200U=B:V=D:GOSUB 280
210N=B*D/V:Z=N/D*C:Z=Z+N/B*A
220GOTO 250
230IF S$="/" LET O=D:D=C:C=O
240Z=A*C:N=B*D:GOSUB 270
250CLS:PRINT " ";Z:PRINT "----------":PRINT " ";N
260GOSUB 270:GOTO 300
270U=Z:V=N:GOSUB 280:Z=Z/V:N=N/V:RETURN
280Q=U/V:R=U-V*INT Q:IF R<>0 LET U=V:V=R:GOTO 280
290RETURN
300INPUT "Kettenrauchen ?";S$
310IF S$="J" OR S$="j" LET A=Z:B=N:GOTO 140
320GOTO 100
-ProgrammmitINKEY$beenden- Wert I leerhinter7kB/100Zeilen
100I=10000 10000=184228sec
110I=I-1:IFI<1END 20000=368460sec
120J$=INKEY$:IFJ$=""GOTO110 30000=552630sec
130... Daumenregel:1000=20sec
ê Ç
-Biorythmus-ca.940BytesäDerRennerbeiallenVorführungen!Ç
10 CLS:CLEAR:O=254:X=253:PRINT"Biorythmus"
20 PRINT "Geburtsdatum":INPUT " Jahr: ";A:IF A<100 LET A=A+1900
30 INPUT "Monat: ";B:INPUT " Tag: ";C:PRINT "Ausgabedatum"
40INPUT " Jahr: ";D:IFD<30LETD=D+2000
50 T=C:M=B:J=A:GOSUB 170:IF D<100 LET D=D+1900
60 INPUT "Monat: ";E:INPUT " Tag: ";F:Q=S:T=F:M=E:J=D:GOSUB 170
70 U=S:V=W+1:I=U-Q:RADIAN:GOSUB 200
80 L=K:N=G:P=H:Q=W:I=I+1:GOSUB 200
90 CLS:PRINT "Datum: ";MID$("MoDiMiDoFrSaSo",V*2,2);" ";F;E;STR$D
100 USING "####.##":PRINT "K:";L;"%";CHR$ O,"G:";N;"%";CHR$ O
110 PRINT "S:";P;"%";CHR$ O,CHR$ 149;":";Q;"%";CHR$ O:USING
120 IF K>L LOCATE 10,1:PRINT CHR$ X
130 IF G>N LOCATE 22,1:PRINT CHR$ X
140 IF H>P LOCATE 10,2:PRINT CHR$ X
150 IF W>Q LOCATE22,2:PRINT CHR$ X
160 LOCATE1,3:PRINT"Alter";STR$(I-1);"Tage=";STR$INT(I/365.25):
DEGREE:LOCATE0,2:PRINT:END
170 IF M<3 LET J=J-1:M=M+12
180 S=INT(365.25*J)-INT(J/100)+INT(J/400)+31*(M-1)-INT(.4*M+2.3)+T
190 J=S+1721060:W=J-INT(J/7)*7:RETURN
200 K=(SIN(I*2/23*PI)+1)*50
210G=(SIN(I*2/33*PI)+1)*50
220 H=(SIN(I/14*PI)+1)*50:IF I>=0 GOTO260
230 K=100-((SIN(ABSI*2/23*PI)+1)*50)
240G=100-((SIN(ABSI*2/33*PI)+1)*50)
250 H=100-((SIN(ABSI/14*PI)+1)*50)
260W=(K+G+H)/3:RETURN
Beispiel:geborenam29.2.1960|6.12.1968|12.5.1935
Ausgabedatum:Sa29.2.1992|Fr24.12.1993|So18.7.1993
Körperlich94.39%steigend|1.04%steigend|50.00%steigend
Geistig95.48%steigend |0.00%steigend|50.00%steigend
Seelisch71.69%fallend|99.94%fallend|50.00%steigend
Durchschnitt87.10%fallend|33.66%steigend|50.00%steigend
Alter11688Tage=32J.|9149Tage=25J.|21252Tage=58Jahre
Vom6.6.1966...biszum10.7.1995...biszum25.7.2048
SolldieAusgabestattvon0-100%imBereichvon-100...+100%verlaufen,so
mußindenZeilen210-230derAusdruckä*50Çinä*100-100Çumgewandeltwerden.
ê
ÇAnzeigederMondphasestattdesAlters:(130Byteszusätzlich)
alteZeile160ersetzen,USINGinZeile110löschen.KleineGedenkminute.
160Z=I:T=29:M=4:J=1993:GOSUB170:Q=S:T=F:M=E:J=D:GOSUB170
161I=S-Q:GOSUB270:R=Y:I=I+1:GOSUB270
162LOCATE1,3:PRINT"Mond:";R;"%";CHR$O;""STR$Z;"d":USING
163IFY>RLOCATE13,3:PRINTCHR$X
164DEGREE:LOCATE0,2:PRINT:END
270Y=(SIN(I*.212768716)+1)*50
280IFI<0LETY=100-((SIN(ABSI*.212768716)+1)*50)
290RETURN
UmlaufzeitendesMondes:
27d13h18m33.1sanomalistisch,ZeitzwischenzweiPerigäumsdurchgängen
27d7h43m11.5ssiderisch,vonSternzuStern(normaleAngabe)
29d12h44m2.8ssynodisch,allePhasen
Vollmond=100%,Neumond=0%,ErstesViertel=50%steigend,
LetztesViertel=50%fallend(bezogenaufMittag,3.38%=1Tag).
ê Ç
-BiorythmusmitPartnervergelich,2200+270Bytes-
10 CLS :CLEAR :PRINT " *** BIORYTHMUS 2 ***":O=254:X=253
20 INPUT " 1 > Biorythmus einzeln 2 > Partnervergleich 3 > Ende ";Z
30 ON Z GOSUB 50,70:IF Z=3 CLS :PRINT "OK<":USING :END
40 Z=0:GOTO 10
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
60 U=S:V=W+1:I=U-Q:GOSUB 580:Y=I:GOSUB 640:I=I+1:GOSUB 580:GOSUB 300:RETURN
70 CLS :PRINT " * PARTNERVERGLEICH *"
80 INPUT "Name 1: ";N1$:IF LEN N1$>10 LET N1$= LEFT$ (N1$,10)
90 INPUT "Name 2: ";N2$:IF LEN N2$>10 LET N2$= LEFT$ (N2$,10)
100 Z=2:GOSUB 390:T=C1:M=B1:J=A1:GOSUB 610:Q1=S
110 Z=3:GOSUB 390:T=C2:M=B2:J=A2:GOSUB 610:Q2=S
120 Z=4:GOSUB 390:T=F:M=E:J=D:GOSUB 610:U=S:V=W+1
130 PRINT "1> Werte ";N1$:PRINT "2> Werte ";N2$
140 PRINT "3> Differenzwerte":INPUT "4> Neuberechnung >";R
150 IF R=1 LET I=U-Q1:Y=I:GOSUB 580:GOSUB 640:I=I+1:GOSUB 580:GOSUB 300
160 IF R=2 LET I=U-Q2:Y=I:GOSUB 580:GOSUB 640:I=I+1:GOSUB 580:GOSUB 300
170 IF R=3 GOSUB 250
180 IF R=4 GOTO 200
190 R=0:GOTO 130
200 CLS :PRINT "1> Neue Werte ";N1$:PRINT "2> Neue Werte ";N2$
210 PRINT "3> Neues Zieldatum":INPUT "4> Alles neu ";R
220 ON R GOTO 100,110,120
230 IF R=4 RETURN
240 R=0:GOTO 200
250 I=U-Q1:GOSUB 580:GOSUB 640:I=U-Q2:GOSUB 580:Y= ABS (Q2-Q1)
260 D0= ABS (L-K):D1= ABS (N-G):D2= ABS (P-H):D3=(D0+D1+D2)/3
270 I=U-Q1+1:GOSUB 580:GOSUB 640:I=U-Q2+1:GOSUB 580
280 D4= ABS (L-K):D5= ABS (N-G):D6= ABS (P-H):L=100-D0:N=100-D1
290 P=100-D2:Q=D3:K=D4:G=D5:Q=(L+N+P)/3:W=(D4+D5+D6)/3:GOSUB 300:RETURN
300 CLS :PRINT "Datum: "; MID$ (" MoDiMiDoFrSaSo",V*2,2);", ";F;" ";E;" "; STR$ D
310 USING "####.##":PRINT "K:";L;"%"; CHR$ O,"G:";N;"%"; CHR$ O
320 PRINT "S:";P;"%"; CHR$ O, CHR$ 149;":";Q;"%"; CHR$ O:IF R<>3 PRINT "Alter: ";
330 USING :IF R=3 PRINT "Differenz: ";
340 PRINT STR$ Y;" Tage";:R=0:IF K>L LOCATE 10,1:PRINT CHR$ X
350 IF G>N LOCATE 22,1:PRINT CHR$ X
360 IF H>P LOCATE 10,2:PRINT CHR$ X
370 IF W>Q LOCATE 22,2:PRINT CHR$ X
380 LOCATE 21,3:INPUT " ";B$:RETURN
390 CLS :IF Z<4 PRINT "Geburtsdatum ";
400 IF Z=2 PRINT N1$;
410 IF Z=3 PRINT N2$;
420 IF Z=4 PRINT "Ausgabedatum";
430 PRINT :A=0:INPUT " Jahr: ";A:A= INT ABS A:IF A<20 THEN A=A+2000
440 IF A<100 THEN A=A+1900
450 IF A<1583 OR A>2200 BEEP 1:PRINT "Jahr von 1583-2200";:GOTO 430
460 IF Z<3 LET A1=A
470 IF Z=3 THEN A2=A
480 IF Z=4 THEN D=A
490 A=0:INPUT "Monat: ";A:A= INT A:IF A<1 OR A>12 BEEP 1:GOTO 490
500 IF Z<3 THEN B1=A
510 IF Z=3 THEN B2=A
520 IF Z=4 THEN E=A
530 A=0:INPUT " Tag: ";A:A= INT A:IF A<1 OR A>31 BEEP 1:GOTO 530
540 IF Z<3 THEN C1=A
550 IF Z=3 THEN C2=A
560 IF Z=4 THEN F=A
570 RETURN
ê Ç
-FortsetzungBiorythmus-
580 RADIAN :K=( SIN ( ABS I*2/23* PI )+1)*50:H=( SIN ( ABS I/14* PI )+1)*50
590 G=( SIN ( ABS I*2/33* PI )+1)*50:IF I<0 LET K=100-K:G=100-G:H=100-H
600 W=(K+G+H)/3:DEGREE :RETURN
610 IF M<3 THEN J=J-1:M=M+12
620 S= INT (365.25*J)- INT (J/100)+ INT (J/400)+31*(M-1)- INT (.4*M+2.3)+T
630 J=S+1721060:W=J- INT (J/7)*7:RETURN
640 L=K:N=G:P=H:Q=W:RETURN
üBiorythmusÇ
NachderTheoriedesBiorythmusverläuftdasLebenvonGeburtaninfesten,
sichzyklischwiederholendenBahnen.DieZyklensindderkörperlichemiteiner
Längevon23Tagen,derseelischemit28TagenunddergeistigemiteineLänge
von33Tagen.DieZyklenbeginnenamTagderGeburt(alseinembesonderskri-
tischenTag)inderMitteundsteigendannauf.AnTagen,andenendieKurven
hoheWerteerreichen,stehtdiemeisteEnergieundLeistungsfähigkeitzurVer-
fügung.AnTagenmitTiefstwertenwirdRuhezurErholungderLeistungsreserven
benötigt.WährendderMittendurchgängeisthöchsteVorsichtgeboten,diekör-
perlicheLeistungsfähigkeitiststarkeingeschränkt,unddieseelischeund
8003100001\SH_BIO_1.IMG
geistigeVerfassungist
äußerstlabil.
OberesBild:Verlaufder
KurvenamTagderGeburt.
DerKurvenverlaufwieder-
holtsicherstnachca.
58Jahren.
8003100001\SH_BIO_2.IMG
MittleresBild:Kurvenver-
laufwährendeineszufälligen
Monates.Umden5.wirdRuhe
zurRegenerationempfohlen,
umden17.stehtgroßeEner-
giezurVerfügung,dieam
Monatsendewiederaufgefüllt
werdenmuß.
8003100001\SH_BIO_3.IMG
UnteresBild:möglicher
Kurvenverlaufbeieinem
Partnerschaftsvergleich.
VerlaufendieKurvenim
oberenBereich,besteht
größteHarmonie,inder
MittemußschonBereit-
schaftzurPartnerschaft
gebensein.Imunteren
Bereichistgrößte
Toleranzerforderlich.
ê Ç
10 CLS :CLEAR :RADIAN :'geosat c't 1990-9-222
20 K=180/ PI :L= PI /180:M=2* PI
30 PRINT "AZIMUT und ELEVATION f."
40 PRINT "geostat. Sat- Empfang"
50 INPUT "Breite Station: ";C:C=C*L
60 INPUT "Laenge Station: ";D:D=D*L
70 INPUT "Laenge Satellit ";E:E=E*L:G=D-E
80 IF G> PI LET G=G-M
90 IF G<- PI LET G=G+M
100 S= ACS ( COS C* COS G)
110 IF C<>0 GOTO 160
120 IF G>0 LET A= PI *1.5:GOSUB 260
130 IF G<0 LET A= PI /2:GOSUB 260
140 IF G=0 LET A=0:H= PI /2
150 GOTO 200
160 GOSUB 260:IF H<0 LET A=0:GOTO 200
170 A= ATN ( TAN G/ SIN C)
180 IF C>0 LET A=A+ PI :GOTO 200
190 IF G>0 LET A=A+M
200 CLS :USING "####.###"
210 PRINT "Ort:";C*K;" N";D*K;" E"
220 PRINT " Azimut:";A*K; CHR$ 193
230 PRINT "Elevation:";H*K; CHR$ 193
240 IF H<0 PRINT "Satellit nicht sichtbar!"
250 USING :LOCATE 0,0:PRINT :END
260 H= ATN (( COS S-.151269039)/ SQR (1- COS S* COS S)):RETURN
DiesesProgrammberechnetdiePositionierungeinerParabolantennefüreine
Satellitenempfangsanlage,wenndieeigenegeographischePositionunddiegeo⑨
stationärePositiondesSatellitenbekanntsind.DiePositionensindalsDezi-
malbrucheinzugeben,dabeisindOstundNordpositiv,SüdundWestnegativ.
AusgegebenwerdenAzimutundElevationfürdieAntenne.DabeibedeutenAzimut
dieAusrichtung,wobeidieKompaßrosezugrundegelegtwird,d.h.90É0ÇistOst,
180É0ÇSüdund270É0ÇWest.ElevationbedeutetdieAusrichtungvonderWaagerechten
aus,d.h.bei0É0ÇstehtdieAntennewaagerecht,bei90É0Çzeigtsiesenkrechtnach
oben.
PositioneneinigerSatelliten: BeieinerPositionmitmehrals81É0Çzueinem
Kopernikus :23.5É0ÇE PolderErdeisteinEmpfangprakitschnicht
Astra1A :19.2É0ÇE mehrmöglich.EineAntenneamÄquatorkann
EutelsatIIF1:13É0ÇE nochSatellitenempfangen,die81.3É0Çvom
EutelsatIIF2:10É0ÇE eigenenStandortentferntsind.Beieiner
Telecom1C :5É0ÇW Breitevon50É0Ç(Mitteleuropa)kannder
Telecom1A :8É0ÇW Satellitnoch75É0Çentferntsein,vorausge-
IntelsatVF6 :18.5É0ÇW setzt,derAntennenstandortliegtimStrahl-
TDFTV2 :19É0ÇW bereichdesSatelliten,unddieAntenneist
IntelsatVIF4:27.5É0ÇW ausreichendgroß.
PanAmSat :45É0ÇW
PositionenvonSatelliten,derenProgrammnichtfürMitteleuropavorgesehenist:
Gorizon16 :80É0ÇE Gorizon17 :53É0ÇETelecom2A :8É0ÇWIntelsat605:24.5É0ÇW
Intelsat505 :66É0ÇE Gorizon12 :40É0ÇE Gorizon11 :11É0ÇWIntelsat601:27.5É0ÇW
Intelsat602 :63É0ÇE Arabsat1C :30É0ÇE Gorizon15 :14É0ÇWIntelsat603:34.5É0ÇW
Intelsat604 :60É0ÇE Intelsat512 :1É0ÇWIntelsat515:18É0ÇWTDRS-A:41É0ÇW
Intelsat507 :57É0ÇE Telecom2B :5É0ÇWIntelsat502:21.5É0ÇWIntelsat513:53É0ÇW
Kopernikus2:28.5EEutelsatIIF3:16É0ÇEEutelsatIIF4M:7É0ÇETele-X:5É0ÇE
Thor :1É0ÇWHispasat1A:30É0ÇW
ê Ç
-DEMON-LahmerMonitor,funktioniertauchmitPasswort-ca.790Bytes
10 CLS:CLEAR:DIM ZZ$(3)*1,HE$(15)*1:PRINT "DE_MONitor"
20 FOR Q=0 TO 15:READ HE$(Q):NEXT
30 INPUT "STARTADRESSE HEX";AR$:AD=VAL("&H"+AR$)
40IFAD>65532BEEP1:PRINT"BEREICH0-FFF0!":GOTO30
50AD=INT(AD/4)*4
100 CLS:LOCATE 0,0:AX=AD
120BX=INT(AX/4096):PRINTHE$(BX);:AX=AX-BX*4096
130BX=INT(AX/256):PRINTHE$(BX);:AX=AX-BX*256
140BX=INT(AX/16):PRINTHE$(BX);HE$(AX-BX*16)
160 FOR QA=0 TO 3:LOCATE 5,QA
170 FOR QB=0 TO 3:PE=PEEK(AD+QA*4+QB):ZZ$(QB)="."
180 XF=INT(PE/16):IF PE>31 LET ZZ$(QB)=CHR$ PE
190 PE=PE-XF*16:PRINT HE$(XF);HE$(PE);" ";:NEXT
200 FOR QC=0 TO 3:PRINT ZZ$(QC);:NEXT:PRINT:NEXT
210 YA$=INKEY$:IF YA$="" GOTO 210
220TA=ASCYA$
230IFTA=65LETA=A+PI:GOTO100:'TESTONLY
240IFTA=90LETZ=Z+PI:GOTO100:'DIVVARSAENDERN
250 IF TA=4 LET AD=AD-16:IF AD<0 LET AD=65520:'ARWDN
260 IF TA=5 LET AD=AD+16:IF AD>65520 LET AD=0:'ARWUP
270IFTA=14LETAD=AD+4:IFAD>65532LETAD=0:'ARWRE
280IFTA=15LETAD=AD-4:IFAD<0LETAD=65532:'ARWLI
290IFTA=32GOTO30
300 GOTO 100
65000 DATA 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F
1CLS :CLEAR :X$="Benzin ":Y$="Diesel "
2PRINT X$;"vs ";Y$
3PRINT "Hubraum in ccm"
4PRINT X$;:INPUT A
5PRINT Y$;:INPUT B
6PRINT "Steuer pro 100 ccm"
7PRINT X$;:INPUT C
8PRINT Y$;:INPUT D
9PRINT "Treibstoffpreis 1 Liter"
10PRINT X$;:INPUT E
11PRINT Y$;:INPUT F
12PRINT "Verbrauch Liter/100km"
13PRINT X$;:INPUT G
14PRINT Y$;:INPUT H
15PRINT "Anschaffungspreis"
16PRINT X$;:INPUT I
17PRINT Y$;:INPUT J
18PRINT "Nutzungszeit Jahre"
19PRINT X$;:INPUT K
20PRINT Y$;:INPUT L
21PRINT "Restwert nach Nutzung"
22PRINT X$;:INPUT M
23PRINT Y$;:INPUT N
24O=G/100*E:'spritkosten pro km
25P=H/100*F
26Q=(I-M)/K:'Wertverlust p.a.
27R=(J-N)/L:CLS
28S=INT (A/100+.99)*C
29T=INT (B/100+.99)*D:'Steuer p.a.
30PRINT Y$;"wird rentabel ab"
31PRINT STR$ INT ((R-Q)+(S-T)/(P-O)+.5);" km pro Jahr.
ê Ç
-Minisort-A$(N)wirdsortiert,A=Arraygröße
100FORX=1TOA-1:FORY=X+1TOA
110IFA$(X)>A$(Y)LETXX$=A$(X):A$(X)=A$(Y):A$(Y)=XX$
120NEXT:NEXT
XX$mußdieerforderlicheLängebesitzen[...vielleichtA$(0)]
-Bubblesort2-fürvorsortierteFelder,lahmbeiunsortiert
100GR=A-1:FORX=GRTO1STEP-1:FL=0
110FORY=1TOGR
120IFA$(Y)>A$(Y+1)LETXX$=A$(Y):A$(Y)=A$(Y+1):A$(Y+1)=XX$:FL=Y
130NEXT:GR=FL:IFFL=0LETX=A
140NEXT
-STRAIGHTINSERT-passableGeschwindigkeit
100FORX=2TOA:FORY=1TOX
110IFA$(Y)>A$(Y+1)LETXX$=A$(Y):A$(Y)=A$(Y+1):A$(Y+1)=XX$
120NEXT:NEXT
-SHELLSORT-
100M=A
110M=INT(M/2)
120IFM=0RETURN
130N=A-M
140FORQ=1TON:I=Q
150L=I+M
160IFA$(I)>A$(L)LETXX$=A$(I):A$(I)=A$(L):A$(L)=XX$:I=I-M:IFI>0GOTO150
170NEXT:GOTO110
-HEAPSORT-äschnell,fürgroßeDatenmengenÇ
60L=INT(A/2):R=A:'A=ARRAYGROESSE
70IFR<=1GOTO170:'SORTENDE
80IFL<=1GOTO100:'GRENZENLI+RE
90L=L-1:I=L:GOTO110
100Y$=A$(1):A$(1)=A$(R):A$(R)=Y$:R=R-1:I=1
110X$=A$(I):F=0
120IFI*2<=RTHENIFF=0GOTO140
130A$(I)=X$:GOTO70
140J=I*2:IFJ<RTHENIFA$(J)<A$(J+1)LETJ=J+1
150IFX$>=A$(J)LETF=1:GOTO120
160A$(I)=A$(J):I=J:GOTO120
170äWEITERIMPROGRAMM...Ç
ê Ç
-Temperaturumrechnungen-
100INPUT"HITZE:";G
110INPUT"EINHEIT(C-R-F-K):";E$
120IFE$="C"LETA=G
130IFE$="K"LETA=G-273.16
140IFE$="R"LETA=5*G/4
150IFE$="F"LETA=5*(G-32)/9
160G$=CHR$&HF6:USING"#####.##"
170PRINTA;G$;"C",9*A/5+32;G$;"F"
180PRINT4/5*A;G$;"R",A+273.16;"K"
-REFA=ZEITENKATALOG-
100INPUT"Epsilon:";E:E=SQU(E/100):'CHR$165
110INPUT"Periodenl.:";P:'MESSDAUERINSTD
120INPUT"Untergrenze:";U:'UNTGR1.WERT
130A=E*P/2:Z=65
140B=E*P*U
150F=A+SQR(A*A+B)
160F=INT(F*100+.5)/100
170PRINT"Klasse:",CHR$Z
180PRINT"Untergrenze:",F
190PRINT"Mitte:",U+F
200PRINT"Obergrenze:",U+F+F;
210U=U+2*F:Z=Z+1:INPUTX:GOTO140:'ENTER=WEITER
-REFAPLANZEITTABELLE-
10PRINT"Planzeittabelle"
20INPUT"t1min:";T1
30INPUT"t2max:";T2
40INPUT"x1min:";X1
50INPUT"x2max:";X2
60Z=(T2-T1)/(X2-X1):USING"####.###"
70PRINT"f(y)=";Z;"x+";Z*-X1+T1
80INPUT"xunbek:";X
90PRINT"y=";Z*(X-X1)+T1
100GOTO80
-ERATO-175BYTES
100CLS:CLEAR:PRINT"SIEBDESERATOSTHENES"
110INPUT"ENDWERT:";E
120DIMP(E)
130P(1)=1:'1<>PRIM
140FORI=2TOSQRE
150IFP(I)=1GOTO190
160FORJ=I*ITOESTEPI
170P(J)=1
180NEXT
190NEXT:WAIT12
200FORI=3TOE
210IFP(I)=0PRINTI;"";
220NEXT
ê Ç
100 REM STATISTIK 1-DIMENSIONAL
110 R=0:A=0:CLS:INPUT "1. x=";A
120 R=A*A:M=A:N=A:I=2
130 PRINT I;"x=";:INPUT W$
140 IF LEN W$=0 GOTO 130
150 IF ASC W$>64 GOTO 220
160 W= VAL W$:A=A+W:R=R+W*W:'summen
190 IF W<M LET M=W:'minimalwert
200 IF W>N LET N=W:'maximalwert
210 I=I+1:GOTO 130
220 I=I-1:C=R:B=A/I:R=R-(I*B*B)
230 V= SQR(R/(I-1)):U= SQR(R/I)
240 WAIT 190:PRINT "n: ";I
250 PRINT CHR$ &H92;"x: ";A
260 PRINT CHR$ &HBF;": ";B
270 PRINT CHR$ &H92;"x";CHR$ &HC3;": ";C
280 PRINT "s";CHR$ &HC3;": ";V
290 PRINT CHR$ &HB2;": ";U
300 PRINT "s: "; SQR(V):PRINT "R: ";N-M
320 'Buchstabe als Eingabe=Abbruch
100 REM STATISTIK 2-DIMENSIONAL
110 CLS:O=146:INPUT "1. x=";U:INPUT "1. y=";V
120 I=U*U:J=V*V:M=U:N=U:P=V:Q=V:C=2:R=U*V
130 PRINT C;" x=";:INPUT X$
140 IF LEN X$=0 GOTO 130
150 IF ASC X$>64 GOTO 280:'Buchstabe=auswerten
160 PRINT C;" y=";:INPUT Y$
170 IF LEN Y$=0 GOTO 160
180 IF ASC Y$>64 GOTO 280
190 A= VAL X$:B= VAL Y$
210 U=U+A:V=V+B:I=I+A*A:J=J+B*B:R=R+A*B:'Summen
230 IF A<M LET M=A:'min
240 IF B<P LET P=B
250 IF A>N LET N=A:'max
260 IF B>Q LET Q=B
270 C=C+1:GOTO 130
280 C=C-1:D=U/C:E=V/C:'Mittelwerte
290 F=I-U*U/C:G=J-V*V/C:H=R-U*V/C:'Sxx,Syy,Sxy
320 L=H/F:K=E-L*D:WAIT 190:PRINT "n: ";C
340 PRINT CHR$191;":";D:PRINT CHR$187;": ";E
360 PRINT CHR$ O;"x: ";U:PRINT CHR$ O;"y: ";V
380 PRINT CHR$ O;"x";CHR$ 195;": ";I
390 PRINT CHR$ O;"y";CHR$ 195;": ";J
400 PRINT CHR$ O;"xy: ";R
410 PRINT "sx: "; SQR((I-C*D*D)/(C-1))
420 PRINT "sy: "; SQR((J-C*E*E)/(C-1))
430 PRINT CHR$ 178;"x: "; SQR((I-C*D*D)/C)
440 PRINT CHR$ 178;"y: "; SQR((J-C*E*E)/C)
450 PRINT "a: ";K:'y bei x=0
460 PRINT "b: ";L:'Steigung
470 PRINT "r: ";H/SQR(F*G)
480 PRINT "R x: ";N-M:'Spannweite
490 PRINT "R y: ";Q-P:'=Range
500 'Schaetzwert suchen:x'=(y-a)/b | y'=a+b*x
ê Ç
-Bassreflexboxen-575Bytes
100 CLEAR:PRINT "BASSREFLEXBOXEN"
110 PRINT "Gesuchter Wert = NULLAlleAngabenincm":INPUT "Volumen: ";V
120 PRINT "Kanal";CHR$ 149;:INPUT ":";D:INPUT "Kanallaenge: ";L
130 INPUT "Res.freq: ";F:W=V*1E3:C=33E3 äC=SchallgeschwindigkeitÇ
140 IF F=0 LET F=(C*D)/(2*(SQR(PI*W*(8*L+PI*D))))
150 IF L=0 LET L=((C*C*D*D)/(4*PI*F*F*W)-PI*D)/8
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))
170 IF V=0 LET V=(C*C*D*D/(4*PI*F*F*(8*L+PI*D)))/1E3
180 IF D<0 OR L<0 OR V<0 OR F<0 PRINT "Fehleingabe.":END
190 USING "####.##":PRINT "F=";F;"Hz","H=";16.23*CURV;"cm"
200 PRINT "D=";D;"cm","B=";10.14*CURV;"cm"
210PRINT "L=";L;"cm","T=";6.08*CURV;"cm"
220 PRINT "","V=";V;"l":USING:LOCATE 0,2:PRINT:END
Beispiel:
V=40Liter,D=6.3cm,L=12.5cm,F=27Hz,H=55.5cm,B=34.6cm,T=20.8cm
WirdstattKanallängedieWandstärkeangegeben,kannmansichdasRohrsparen.
DasRohr(oderdieAussparung)mußnichtrundsein(aberauchnichtzuschmal).
-ZWEIWEGE=LAUTSPRECHERWEICHEN-
100PRINT"Zweiwegeweichen":PRINT"Filtercharakteristik:
110PRINT"1-Butterworth2-Bessel":INPUT"Wahl:";T
120D=4:IFT=1LETD=5
130PRINT"Ordnung(1-";STR$D;"):";:INPUTG
140PRINT"Nennimpedanz";CHR$152;:INPUT":";R
150INPUT"TrennfrequenzHz:";F
160M=R/(2*PI*F)/1E3
170X=RCP(2*PI*F*R)*1E6
180RESTORE:IFT=2RESTORE320
190IFG>1GOSUB260
200FORQ=1TOG:READE,D
210L=E*M:C=D*X:U$="###.###"
220PRINT"L";STR$Q;"=";:USINGU$:PRINTL;"mH"
230USING:PRINT"C";STR$Q;"=";:USINGU$:PRINTC;CHR$172;"F";
240IFQ<GINPUTI$
250USING:NEXT:END
260L=G-1:D=0:FORC=1TOL:D=D+C:NEXT
270FORQ=1TOD:READE,E:NEXT:RETURN
280DATA1,1,1.414,.7071,1.414,.7071,1.5,.67
290DATA.75,1.33,.5,2,1.531,.65,.63,1.577
300DATA1.082,.92,2.61,.383,1.545,.64,.59
310DATA1.694,1.382,.72,1.12,.894,.309,3.24
320DATA1,1,1.362,.734,2.204,.454,1.463
330DATA.684,1.187,.843,.293,3.417,1.501
340DATA.666,1.022,.978,.613,1.632,4.731,.211
8001600001\SH_WEICH.IMG
ê Ç
8004100001\SH_YAGI.IMG
-YAGI=ANTENNE-225Bytes
10CLS:CLEAR:PRINT"Yagi-Antenne"
20INPUT"FrequenzkHz:";F
30W=3E5/F:USING"###.###":CLS
40PRINT"YagiantenneDir=";.44175*W
50PRINT"Str=";.465*W,"Ref=";.48825*W
60PRINT"Dir-Str=";.12*W;"alles"
70PRINT"Str-Ref=";.15*W;"Meter"
80LOCATE0,2:PRINT:END
-MASTERMIND-365Bytes
100CLEAR:PRINT"MASTERDEPP"
110INPUT"Breite2-7:";B
120PRINT"Symbole";STR$B;"-25:";:INPUTS:IFS<BGOTO120
130DIMA$(B)*1:FORQ=1TOB
140A$(Q)=CHR$(RND(S)+64):FORP=1TOQ
150IFA$(Q)=A$(P)ANDP<>QLETQ=Q-1
160NEXT:NEXT:'HIERSPICKEN
170D=D+1:PRINT"CODE:";D;:INPUTI$
180M=0:N=0:FORQ=1TOB:T$=MID$(I$,Q,1)
190FORP=1TOB:IFT$=A$(P)ANDP<>QLETM=M+1
200NEXT:IFT$=A$(Q)LETN=N+1:'TREFFER
210NEXT:LOCATE18,3:PRINTN;M
220IFN<>BGOTO170
230PRINT"Geschafft:";STR$D;"Versuche"
Sollenmehrals7Zeichenmöglichsein,mußI$mitDIMaufdieerforderliche
Breitegebrachtwerden.DieZeichenA...sindzuraten.
-einfacherGleichungslöser-230Bytes
100PRINT"GLEICHUNG1"
110INPUT"KOEFF.X:";A
120INPUT"KOEFF.Y:";B
130INPUT"KONSTANTE";C
140PRINT"GLEICHUNG2"
150INPUT"KOEFF.X:";E
160INPUT"KOEFF.Y:";F
170INPUT"KONSTANTE";G
180PRINT"LOESUNG:":H=A*F-B*E
190PRINT"X=";(C*F-B*G)/H
200PRINT"Y=";(A*G-C*E)/H
Çê Ç
-Programmsegment,wenndieZeilenzahlnichtausreicht-
10ZZ=10
20DIMT$(ZZ):'ANZAHLZEILEN
30FORQ=1TOZZ:READT$(Q):NEXT
40ZX=4:GOSUB100:'ABHIERSUBPROG
50Z$=INKEY$:IFZ$=""GOTO50:'GGFSMITAUTO-OFF
60IFZ$=CHR$4ANDZX>4LETZX=ZX-1:GOSUB100:'CRSRUP
70IFZ$=CHR$5ANDZX<ZZLETZX=ZX+1:GOSUB100:'CRSRDN
80IFZ$>CHR$31END:'ODERRETURN
90GOTO50
100CLS:FORZQ=ZX-4TOZX-1
110PRINTT$(ZQ+1);":";CHR$(RND(26)+65);RND(10000):'MEHROUTPUT...
120NEXT:IFZX<ZZLOCATE23,3:PRINTCHR$&HFE:'PFEILAB
130IFZX>4LOCATE23,0:PRINTCHR$&HFD;:'PFEILAUF
140RETURN
150DATABHV,CUX,STD,HHL,GLK,HEI,HUS,WST,LST,HEL
100 REM FRANCIS BEAUFORTS GEHEIMSCHRIFT
110 DIMM$(0)*100,N$(0)*100,P$(0)*255,Z$(0)*32
120 FOR J=1 TO 2
130 GOSUB 320:'VERSCHLUESSELN
140 GOSUB 170:'ENTSCHLUESSELN
150 NEXT:END
170 INPUT " MESSAGE";M$(0)
180 FOR Q=1 TO LENM$(0)
190 H$=MID$(M$(0),Q,1)
200 IF H$>"@" AND H$<"[" LET N$(0)=N$(0)+H$
210 NEXT
220 FOR Q=1 TO LENN$(0)
230 A=ASC(MID$(P$(0),Q,1))-65
240 B=ASC(MID$(N$(0),Q,1))-65
250 IF B>A LET B=B-26
260 PRINT CHR$(A-B+65);
270 IF Q/3=INT(Q/3) PRINT " ";
280 NEXT:PRINT
300 N$(0)="":P$(0)="":M$(0)=""
310 RETURN
320 INPUT "PASSWORT";Z$(0)
330 L=255/LENZ$(0)
340 FOR Q=1 TO L:P$=P$+Z$:NEXT
370 P$=P$+LEFT$(Z$,255-LEN(A$))
380 RETURN
Çê Ç
100 REM LORD PLAYFAIRS GITTER
110 F$="XYZ"
120 GOSUB 680
130 INPUT "IHRE MESSAGE";M$(0)
140 L=LENM$(0)
150 FOR Q=1 TO L
160 P$=MID$(M$(0),Q,1)
170 IF P$<>" " LET X$(0)=X$(0)+P$
180 NEXT
190 L=LENX$(0)/4
200 IF L<>INT(L) LET Q=4-(L-INT(L))*4:X$(0)=X$(0)+LEFT$(F$,Q)
240 FOR R=1 TO L-1 STEP 2
250 A$=MID$(X$(0),R,1)
260 B$=MID$(X$(0),R+1,1)
270 FOR P=1 TO 6:FOR Q=1 TO 6
280 IF A$=Q$(Q,P) LET X=Q:Y=P
290 IF B$=Q$(Q,P) LET U=Q:V=P
300 NEXT:NEXT
310 IF X=U LET Y=Y+1:V=V+1
320 IF Y=V LET X=X+1:U=U+1
330 IF X<>U AND Y<>V LETO=X:X=U:U=O
340 C$(0)=C$(0)+Q$(X,Y)+Q$(U,V):NEXT
360 FOR Q=1 TO LENC$(0)
370 PRINT MID$(C$(0),Q,1);
380 IF Q/4=INT(Q/4) PRINT " ";
390 NEXT:PRINT
410 X$="":M$=""
420 INPUT "IHR CODE";C$(0)
430 FOR Q=1 TO LENC$(0)
440 P$=MID$(C$(0),Q,1)
450 IF P$<>" " LET X$(0)=X$(0)+P$
460 NEXT:L=LENX$(0)
480 IF L/2<>INT(L/2) LET X$(0)=X$(0)+"X"
490 FOR R=1 TO LENX$(0)-1 STEP 2
500 A$=MID$(X$(0),R,1)
510 B$=MID$(X$(0),R+1,1)
520 FOR P=1 TO 6:FOR Q=1 TO 6
530 IF A$=Q$(Q,P) LET X=Q:Y=P
540 IF B$=Q$(Q,P) LET U=Q:V=P
550 NEXT:NEXT
560 IF X=U LETY=Y-1:V=V-1
570 IF Y=V LET X=X-1:U=U-1
580 IF X<>U AND Y<>V LET0=X:X=U:U=O
590 M$(0)=M$(0)+Q$(X,Y)+Q$(U,V):NEXT
620 FOR Q=1 TO LENM$(0)
630 PRINT MID$(M$,Q,1);
640 IF Q/4=INT(Q/4)PRINT " ";
650 NEXT:END
680 CLS:DIM Q$(7,7)*1,C$(0)*255,M$(0)*255,X$(0)*255
700 FOR Q=1 TO 6:FOR P=1 TO 6
710 READ Q$(P,Q):NEXT:NEXT
720 FOR Q=1 TO 6
730 Q$(0,Q)=Q$(6,Q):Q$(7,Q)=Q$(1,Q)
740 Q$(Q,0)=Q$(Q,6):Q$(Q,7)=Q$(Q,1)
750 NEXT:Q$(0,0)=".":Q$(7,7)="."
770 Q$(0,7)=".":Q$(7,0)=".":RETURN
790 DATA 1,Q,A,Y,2,W,S,X,3,E,D,C,4,R,F,V,5,T
800 DATA G,B,6,Z,H,N,7,U,J,M,8,I,K,9,O,L,0,P
810 REM ^HIER^EIGENEN^CODE^EINTRAGEN^
Çê Ç
-CREDIT-
100INPUT"SCHULDEN:";S
110INPUT"ZINSSATZ:";Z
120INPUT"MONZAHLUNG:";R
130Z=Z/12:G=S:USING"########.##":WAIT65
140IFS*Z/100>R-.01BEEP1:PRINT"ZINS=";S*Z/100:GOTO120
150IFS<=0GOTO210
160J=J+1:X=S*Z/100
170S=S+X-R
180U=U+X:'X=ZINS/PERIODE
190IFS>0PRINT"MONAT";STR$J:PRINT"SCHULD";S
200GOTO150
210WAIT0:IFJ>11LETA=A+1:J=J-12:GOTO210
220PRINTSTR$A;"JAHRE,";STR$J;"MONATE:"
230PRINT"ZINSEN:";U
240PRINT"GESAMT:";G+U
250USING:END
-RENTE-
100INPUT"KAPITAL:";K
110INPUT"JAHRE:";J
120INPUT"ZINSSATZ%";Z:Z=Z/100
130R=(1+Z)-1:S=((1+Z)^J)-1
140T=K*(1+Z)^J*(R/S)
150PRINT"RENTEPROJAHR:":PRINTT
-ZINSFUSSBEIABGEZINSTENPAIPEREN- -ENDBETRAGBEICONSTKAPITAL-
100INPUT"ANFKAPITAL:";S 100INPUT"ANFKAPITAL:";A
110INPUT"ENDKAPITAL:";E 110INPUT"ZINSFUSS:";Z
120INPUT"LAUFZEIT:";J 120INPUT"LAUFZEIT:";J
130Z=(LOGEK-LOGSK)/J 130K=A*((1+(Z/100))^J)
140PRINT"ZINSEFF.:";Z*100 140PRINT"ENDKAPTIAL";K
-RENTABILITAETLEBENSVERS-
100INPUT"MON.EINZAHL:";D
110INPUT"LAUFZMONATE:";L
120INPUT"ENDKAPITAL:";E
130K=D*L:Z=E-K
140P=(Z*L)/(K*100)
150PRINT"EFFZINS:";P;"%"
-SPARZINSERTRAG-
100INPUT"ANFKAPITAL:";K
110INPUT"EINZ.PJAHR:";A
120INPUT"ANZJAHRE:";N
130INPUT"ZINSFUSS:";Z
140PRINT"EINZAHLUNGAM>A<NFANGODER>E<NDEDESJAHRES:"
150INPUT"A/E:";F$
160C=1+Z/100:IFF$="A"GOTO180
170Q=K*C^N+A*(C^N-1)/(1-C):GOTO190
180Q=(K+A)*C^N+A*(C^N-1)/(1-C)
190PRINT"ENDKAPITAL:";Q