PC1500 - Calculatrice SHARP - Notice d'utilisation et mode d'emploi gratuit

Marque	Sharp
Modèle	PC1500
Type de produit	Calculatrice programmable
Alimentation	4 piles AA ou adaptateur secteur optionnel
Autonomie des piles	Environ 100 heures d'utilisation continue
Dimensions (L x l x H)	195 x 105 x 25 mm
Poids	350 g (avec piles)
Écran	LCD alphanumérique 26 caractères x 1 ligne
Processeur	8-bit CMOS propriétaire
Mémoire RAM	16 Ko (extensible via module optionnel)
Mémoire ROM	32 Ko (BASIC intégré)
Langage de programmation	BASIC
Fonctions mathématiques	Trigonométriques, logarithmiques, statistiques, calcul matriciel
Connectivité	Interface série (RS-232C) via module optionnel
Support d'extension	Cartouche mémoire / lecteur de cassette
Entretien et nettoyage	Nettoyer avec un chiffon doux sec. Ne pas utiliser de solvants.
Sécurité	Ne pas exposer à l'humidité ou aux températures extrêmes.
Pieces détachées et réparabilité	Piles, adaptateur secteur. Réparation par centre agréé.
Informations générales	Notice d'utilisation disponible en PDF. Fabriqué au Japon.

FOIRE AUX QUESTIONS - PC1500 SHARP

Comment allumer la Sharp PC1500 ?

Utilisez l'interrupteur situé sur le côté gauche de la calculatrice. Assurez-vous que les piles sont installées correctement.

Quel type de piles utilise la PC1500 ?

Elle utilise 4 piles AA (LR6) de 1,5 V. Un adaptateur secteur optionnel (9 V DC) est également compatible.

Comment programmer en BASIC sur la PC1500 ?

Appuyez sur MODE puis sélectionnez PRO. Tapez vos instructions BASIC et utilisez RUN pour exécuter.

Comment transférer des données vers un ordinateur ?

Utilisez le module d'interface série optionnel RS-232C et un câble adapté. La vitesse de transmission est de 1200 bauds.

Que faire si l'écran reste vide ?

Vérifiez les piles (remplacez-les si nécessaire), la polarité, et l'interrupteur. Si le problème persiste, contactez un service après-vente.

Comment réinitialiser la mémoire de la PC1500 ?

Retirez toutes les piles, attendez 30 secondes, puis réinsérez-les. Attention : cela efface tous les programmes et données.

La PC1500 peut-elle effectuer des calculs statistiques ?

Oui, elle dispose de fonctions statistiques intégrées, notamment la moyenne, l'écart type, la régression linéaire, etc.

Où trouver la notice complète de la Sharp PC1500 ?

Vous pouvez télécharger la notice au format PDF gratuitement sur notice-facile.com ou sur le site de Sharp.

Quels accessoires sont disponibles pour la PC1500 ?

Modules mémoire, interface RS-232C, lecteur de cassette, imprimante thermique (ce dernier rare).

Comment nettoyer ma calculatrice PC1500 ?

Utilisez un chiffon doux légèrement humide (pas mouillé). N'utilisez jamais de produits chimiques ou abrasifs.

MODE D'EMPLOI PC1500 SHARP

SHARP

TASCHENCOMPUTER

ANWENDER-HANDBUCH

PC-1500

3

SHARP TASCHENCOMPUTER PC-1500

ANWENDER-HANDBUCH

Nous espérons que vous serez satisfait de votre Sharp Taschencomputer PC-1500. Ce manuel d'utilisation vous fournit des logiciels d'application dans divers domaines. Il se veut une aide et une source d'inspiration pour que vous puissiez créer vos propres logiciels spécifiques. Vous trouverez ci-dessous les explications nécessaires à la compréhension de ce manuel :

• NOM DU PROGRAMME :

Ceci indique le contenu principal du programme.

- N° DE PROGRAMME :

P5 signifie PC-1500 ; A, B, C, D et E indiquent les différents domaines. Les numéros de programme ne sont pas numérotés de manière continue. Certains numéros sont omis.

- Configuration matérielle :

Les périphériques éventuellement nécessaires à l'exécution du programme sont indiqués sous le N° DE PROGRAMME.

CE-150 ; Imprimante graphique couleur / Interface cassette

CE-151 ; module de mémoire

CTR ; magnétophone à cassettes

- Aperçu :

Une brève description (concept) du programme est donnée ici.

• Guide d'utilisation :

Une brève explication du fonctionnement du programme en ce qui concerne la saisie.

- Exemple :

Un exemple est donné pour illustrer l'exécution du programme.

- Contenu (formules) :

Sert à expliquer la logique du programme, par exemple l'utilisation des formules mathématiques.

- Impression :

En utilisant l'exemple, l'impression est donnée avec l'imprimante graphique couleur (CE-150) disponible en option. (L'impression se fait avec 18 caractères par ligne.)

• Touches à presser :

Pour l'exécution du programme de l'exemple, les touches à presser réelles sont présentées étape par étape.

- Listing du programme :

Le programme listé est imprimé via le CE-150 en taille originale (ou réduit pour des raisons de place) avec 18 caractères par ligne.

Saisie du listing du programme dans l'appareil

Les listes de programmes imprimées dans ce manuel d'utilisation sont conçues pour être saisies telles qu'elles sont imprimées ici.

À cet égard, il y a cependant quelques points à noter avant la saisie, à savoir :

1) Le deux-points (:) après le numéro de ligne peut être omis. 2) Il faut appuyer sur ENTER à la fin de chaque ligne. 3) Le chiffre un (1) et la lettre l se ressemblent beaucoup dans la liste de programme ; à cet égard, nous vous prions de procéder avec un soin tout particulier.

Pour plus de détails, voir la page 26 du manuel d'utilisation du PC-1500.

* Les programmes listés dans ce manuel d'utilisation ne devraient être saisis dans le PC-1500 qu'après s'être familiarisé avec l'appareil à l'aide du manuel d'utilisation. * Avant d'utiliser les programmes, nous recommandons de les étudier à l'aide des exemples. * LA SOCIÉTÉ SHARP ET/OU SES FILIALES NE PEUVENT EN AUCUN CAS ÊTRE TENUES RESPONSABLES OU REdevables DES PERTES OU DOMMAGES QUI POURRAIENT RÉSULTER DE L'UTILISATION DE CE MANUEL D'UTILISATION.

- Contenu de la mémoire :

Le contenu de la mémoire pendant l'exécution du programme est indiqué.

* LES CONSTANTES TELLES QUE LES TAUX D'IMPOSITION, ETC. VARIENT SELON LE PAYS OU LA RÉGION. DE PLUS, CES TAUX SONT SUJETS À DES FLUCTUATIONS EN RAISON DE CHANGEMENTS DE LOIS OU D'AUTRES RAISONS. VEUILLEZ EN TENIR COMPTE LORS DE L'UTILISATION DES PROGRAMMES LISTÉS À CET ÉGARD.

* Des modifications des programmes sont réservées à des fins d'amélioration et de complément. * Nous serions heureux de recevoir des suggestions et des commentaires écrits pour améliorer les programmes.

SHARP ORDINATEUR DE POCHE PC-1500

MANUEL D'UTILISATION

TABLE DES MATIÈRES

IMPRESSIONS EN COULEURS....1

P5-A-1 Racine d'une équation.... 5

P5-A-2 Transformation de coordonnées rectangulaires et polaires....8

P5-A-3 Séries de Fourier 12

P5-A-4 Interpolation de Lagrange....15

P5-A-6 Équations du deuxième et du troisième degré.....18

P5-A-7 Équation différentielle du premier ordre....23

P5-A-10 Calcul de déterminants .....26

P5-A-11 Matrice inverse....30

P5-A-12 Produit de matrices....33

P5-B-1 Coefficient de corrélation, régression linéaire et tracé de courbe....36

P5-B-2 Régression exponentielle et tracé de courbe....40

P5-B-3 Courbe exponentielle approchée....43

P5-B-4 Courbe logistique....47

P5-B-6 Moyenne mobile modifiée .....54

P5-B-7 Étude de l'écart des moyennes, rapport de variances....57

P5-B-9 Planification unilatérale....62

P5-B-10 Planification bilatérale sans répétition.....65

P5-B-12 Planification trilatérale sans répétition .....68

P5-B-14 Carte de contrôle X-R....72

P5-C-1 Conversion d'un montage en triangle en montage en étoile et inversement....80

P5-C-5 Cheminement polygonal ouvert et radialement disposé....83

P5-D-1 Calcul du plafond de crédit et du nombre de versements....86

P5-D-4 Calcul des intérêts composés pour les versements annuels.....89

P5-D-5 Calcul du prix de vente 92

P5-D-7 Diagramme à colonnes 96

P5-D-8 Représentation graphique I (diagramme en bandes ou en secteurs)....99

P5-D-9 Représentation graphique II (diagramme à barres ou graphique avec ligne pointillée)....103

P5-D-11 Traitement proportionnel du temps de travail.....106

P5-D-12 Amortissement....109

P5-D-15 Calcul de proportions....113

P5-D-16 Conversion des unités de volume et de poids....116

P5-D-17 Conversion des unités de longueur et de surface 120

P5-D-22 Compte domestique....124

P5-D-23 Contrôle des stocks....134

P5-D-24 Performances scolaires....141

P5-D-25 Agenda de poche....151

P5-D-26 Création d'un livre des créanciers....160

P5-D-27 Livre de comptes et liste....165

P5-E-1 Biorhythme....170

P5-E-2 Course de bateaux à moteur....174

P5-E-3 Labyrinthe....178

P5-E-4 Double rotation....183

P5-E-7 Jeu de la taupe....186

P5-E-9 Space Evader....189

P5-F-1 Exercices d'écriture 192

P5-F-2 Chronomètre, minuterie et réveil....194

P5-F-3 Dessin assisté par ordinateur d'une fleur....198

P5-F-4 Infographie....200

P5-F-5 Horloge universelle....202

P5-F-6 Développement de motifs de points....206

P5-F-7 Mémoire de mots....210

FARBIGE AUSDRUCKE
KORRELATIONS-KOEFFIZIENT,LINEARE REGRES-	LOGISTISCHE KURVE(Siehe Seite 49.)	-R KONTROLLKARTE(Siehe Seite 75.)

Carte de contrôle X-barre - R (Voir page 75.)

Supplément au MANUEL DE L'UTILISATEUR

Le MANUEL DE L'UTILISATEUR fourni est destiné à être utilisé avec le PC-1500 ; il peut cependant également être utilisé avec le calculateur de poche PC-1500A. Lors de l'utilisation avec le PC-1500A, veuillez noter les différences suivantes :

• Le module d'extension de RAM CE-151 n'est pas nécessaire.

- Pour les programmes où l'utilisation du CE-151 n'est pas obligatoire pour l'exécution du programme, en raison de sa plus grande capacité de mémoire, il est possible de saisir plus de données dans le PC-1500A que dans le PC-1500.

(TCADH1656CCZZ) ALLEMAND

FARBIGE AUSDRUCKE
SÄULENDIAGRAMM(Siehe Seite 97.)VARIANZ=6.81STD. ABW.=2.60959767	GRAFISCHE DARSTELLUNG II(BALKENDIAGRAMM BZW. SCHAUBILD MIT PUNKTIERTER LINIE)(Siehe Seite 104.)UMSATZ-SCHAUBILD	UMSATZ-SCHAUBILD

DIAGRAMME DE VENTES DIAGRAMME DE VENTES REPRÉSENTATION GRAPHIQUE I (DIAGRAMME EN BARRES OU EN SECTEURS) (Voir page 100.)

	0bis10	..	9.09%
	11bis20	..	27.27%
	21bis30	..	20.45%
	31bis40	..	15.91%
	41bis50	..	11.36%
	51bis60	..	9.09%
	61bis70	..	6.83%

IMPRESSIONS EN COULEUR

CONTRÔLE DES STOCKS

(Voir page 135.)

** TABLEAU **

1	TISCH
	500	250
2	BETT
	100	200
3	STUHL
	500	350

LISTE ACTUELLE DES STOCKS

2	BETT
	100	200

**LISTE DE DONNÉES**

1	50	40
2	50	10

**TABLEAU PRINCIPAL**

1	TISCH
	500	250
2	BETT
	100	200
3	STUHL
	500	350

** TABLEAU **

1	TISCH
	490	250
2	FAHRRAD
	60	200
3	STUHL
	500	350
4	TABELLE
	150	100

LISTE ACTUELLE DES STOCKS

2	FAHRRAD
	60	200

RÉSULTATS SCOLAIRES

(Voir page 143.)

DSCHN..ALLER=67

VARIANZ 8

DIAGRAMME EN BARRES

FARBIGE AUSDRUCKE
BIORHYTHMUS(Siehe Seite 171.)	COMPUTERZEICHNUNG EINER BLUME(Siehe Seite 198.)
DATUM 1981, 7NAME SHARPGEBURT1952, 1, 28
-- PHYSISCH-- EMOTIONAL-- INTELLEKTUELL(-) (+)
	COMPUTERGRAFIK(Siehe Seite 200.)
	ENTWICKLUNG VON PUNKTMUSTERN(Siehe Seite 207.)

NOM DU PROGRAMME : RACINE D'UNE ÉQUATION

N° DE PROGRAMME P5-A-1

[Aperçu]

Trouver la racine d'une équation est généralement très long. Voici une méthode de calcul de racine selon Newton. Dans la méthode de Newton, le point de départ varie automatiquement en fonction de l'intervalle défini. L'exemple est une équation quadratique :

[Mode d'emploi]

Entrée : point de départ Valeur minimale Intervalle

Sortie : valeur de la racine (appuyer sur la touche ENTER pour trouver la racine dans l'intervalle suivant)

[Exemple]

x³ - 2x² - x + 2 = 0 (racines = -1, 1, 2)

Le calcul est effectué avec le point de départ 0, la valeur minimale 10^-4 et l'intervalle 0,5.

Écrivez une fonction comme sous-programme à partir de la ligne 500.

Pour écrire le sous-programme (dans l'exemple ci-dessus) :

1. Appuyez sur la touche MODE pour régler le mode « PRO ».
2. 500B = ((x - 2) × x - 1) × x + 2 ENTER

510 RETURN ENTER

[Contenu] (Formule)

X _ n + 1 = X _ n - f (X _ n)f ^ (X _ n)

Si la valeur absolue de la différence entre X_n et X_n+1 est inférieure à 10^-8, X_n est considéré comme racine. La valeur différentielle f'(x) est définie comme suit :

f ^ (x) = f (x + h) - f (x)/h (h: valeur minute )

Pour changer 10^-8, modifiez 1E-8 dans la ligne 340.

[ Touche ]

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF A	ANFANGSPUNKT = _
2	0 ENTER	MINUTE = _
3	0.0001 ENTER	INTERVALL = _
4	0.5 ENTER	ERGEBNIS = 2
5	ENTER	ERGEBNIS = 1	Zum Auffinden der nächsten Wurzel nochmals die ENTER Taste drücken.
6	ENTER	ERGEBNIS = -1
	ENTER	ERGEBNIS = 1
	ENTER	ERGEBNIS = -1
	ENTER	ERGEBNIS = -1
	ENTER	ERGEBNIS = -1
	ENTER	ERGEBNIS = 2

PROGRAMMNAME: WURZEL EINER GLEICHUNG

PROGRAMM-NR.P5-A-1

3

[ Liste du programme ]

10:"A":INPUT "ANFANGSPUNKT="";V

20:INPUT "MINUTE=";A

30:INPUT "INTERVALL=";W

40:G=V:F=V:Z=0

50:IF Z=0GOTO 70

60:G=G-W:C=G:GOTO80

70:C=G;Z=1

80:GOSUB 300

90:F=F+W:C=F

10:GOTO 50

20:END

300:X=C:GOSUB 500

310:Y=B:X=A+C

320:GOSUB 500

330:D=C:C=D-A*Y/(B-Y)

340:IF ABS (D-C)>=1E-8GOTO 300

350:BEEP 3:PRINT "ERGEBNIS=";C

360:RETURN

300:B=((X-2)*X-1)*X+2

310:RETURN

STATUS 1

303

[ Contenu de la mémoire ]

A	Minutenwert(Wiegabewert) = h
B	f(x)
C	xo
D	f(x+h)
E
F	√
G	√
H
I
J
K
L
M
N
O
P
Q
R
S
T
U
V	Anfangspunkt(Eingabewert)
W	Intervall(Eingabewert)
X	x
Y	f(x)
Z	Anfangsmarkierung

NOM DU PROGRAMME : TRANSFORMATION DE COORDONNÉES RECTANGULAIRES ET POLAIRES

NUMÉRO DU PROGRAMME : P5-A-2

1

[ Aperçu ]

Dans ce programme, la transformation est effectuée en deux ou en trois dimensions. L'unité de degré des entrées et des sorties correspond au réglage par défaut.

[ Guide d'utilisation ]

Le programme contient les quatre fonctions énumérées ci-dessous :

○ deux dimensions

Rectangulaire vers polaire

Polaire vers rectangulaire

○ trois dimensions

Rectangulaire vers polaire

Polaire vers rectangulaire

[ Exemple ]

1. Deux dimensions

a) Rectangulaire → Polaire

X=-1 amp; ⇒ R=2 Y = √ 3 amp; θ = 1 2 0 ^ °

1. Trois dimensions

a) Rectangulaire → Polaire

X = -1 R = 3.741657387

Y = 2 ⇒ θ = -53.30077479°

Z = -3 = 116.5650512

b) Polaire → Rectangulaire

R = 2 amp; X = -1 θ = 120° amp; Y = 1.732

b) Polaire → Rectangulaire

R = 3.741657387 X = -1

θ = -53.30077479° ⇒ Y = 2

= 116.5650512° Z = -3

[Sommaire] (Formules)

1. Deux dimensions

a) Rectangulaire → Polaire

Si x = y = 0, alors r = 0

donc θ ne peut pas être défini.

\ r = ² + y² \ Si y ≥ 0, alors θ = ^-1(x/r) \ Si y lt; 0, alors θ = -^-1(x/r) .

b) Polaire → Rectangulaire

\ x = r θ \ y = r θ .

PROGRAMMNAME: TRANSFORMATION VON RECHTWINKLIGEN KOORDINATEN UND POLARKOORDINATEN

PROGRAMM-NR.P5-A-2

2

2. Trois dimensions

a) Rectangulaire → Polaire

r = √ x ^ 2 + y ^ 2 + z ^ 2 amp; Si x = y = z = 0, θ = ^ - 1 (z / r) amp; alors r = 0 donc amp; θet ne peuvent amp; plus être définis.

Si x > 0, alors = ^-1(y/x)

Si x = 0 et y ≥ 0, alors φ = 90°.

Si x = 0 et y < 0, alors = -90°

Si x < 0 et y ≥ 0, alors = ^-1(y/x) + 180°

Si x < 0 et y < 0, alors = Tan^-1(y/x) - 180°

b) Polaire → Rectangulaire

\ x = r θ · \ y = r θ · \ z = r θ .

DEF A ; bidimensionnel Rectangulaire en Polaire

DEF B ; bidimensionnel Polaire en Rectangulaire

DEF C ; tridimensionnel Rectangulaire en Polaire

Définition D ; polaire tridimensionnel en coordonnées rectangulaires

[Action sur les touches]

* Choisir d'abord l'unité d'angle souhaitée.

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF A	X = _
2	-1 ENTER	Y = _
3	√3 ENTER	R = 2
4	ENTER	THETA = 120
1	DEF B	R = _
2	2 ENTER	THETA = _
3	120 ENTER	X = -1.000
4	ENTER	Y = 1.732
1	DEF C	X = _
2	-1 ENTER	Y = _
3	2 ENTER	Z = _

PROGRAMMNAME: TRANSFORMATION VON RECHTWINKLIGEN KOORDINATEN UND POLARKOORDINATEN

PROGRAMM-NR.P5-A-2

3

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
4	-3 ENTER	R = 3.741657387
5	ENTER	THETA = -53.30077479
6	ENTER	PHI = 116.5650512
1	DEF D	R = _
2	3.741657387 ENTER	THETA = _
3	-53.30077479 ENTER	PHI = _
4	116.5650512 ENTER	X = -1.000000001
5	ENTER	Y = 2
6	ENTER	Z = -3

PROGRAMMNAME: TRANSFORMATION VON RECHTWINKLIGEN KOORDINATEN UND POLARKOORDINATEN

PROGRAMM-NR.P5-A-2

4

[Liste du programme]

10:"A":GOSUB 50020:R=J(X*X+Y*Y)30:IF R=0WAIT:USING:PRINT"R=0 WINKEL NICHT DEFINIERT";END40:GOSUB 70050:C=ACS (X/R)*A60:WAIT:USING:PRINT "R=";R62:PRINT "THETA=";C64:END70:"B":GOSUB 60075:X=R*COS C:Y=R*SIN C80:USING:PRINT"X=";USING "########.###";X83:USING:PRINT"Y=";USING "########.###";Y85:END90:"C":GOSUB 500100:INPUT "Z=";Z110:R=J(X*X+Y*Y+Z*Z)120:IF R=0GOTO 30130:C=ASN (Z/R)140:IF X>0LET F=ATN (Y/X):GOTO180150:GOSUB 700160:IF X=0LET F=A*ACS 0:GOTO 180170:F=ATN (Y/X)+A*ACS -1175:WAIT180:USING:PRINT"R=";R182:PRINT "THETA=";C184:PRINT "PHI=";F190:END

200:"D":GOSUB 600205:GOSUB 610210:INPUT "PHI=";F220:X=X*COS F:Y=Y*SIN F:Z=R*SINC230:WAIT:USING:PRINT "X=";X232:PRINT "Y=";Y234:PRINT "Z=";Z240:END500:INPUT "X=";X,"Y=";Y510:USING:RETURN600:INPUT "R=";R,"THETA=";C605:RETURN610:USING :X=R*COSC:Y=R*COS C:RETURN700:A=(Y=0)+SGN Y:RETURNSTATUS 1662

[Contenu de la mémoire]

A	√
B
C	θ
D
E
F	φ
G
H
I
J
K
L
M
N
O
P
Q
R	r
S
T
U
V
W
X	x
Y	y
Z	z

PROGRAMMNAME: FOURIER-REIHEN	PROGRAMM-NR.P5-A-3	1
[ Überblick ]Mit diesem Programm wird die Fourier-Entwicklung einer periodischen Funktion f(t) mit f(t+2π)=f(t) ausgeführt.	CE-150 erforderlich
[ Anleitung zum Betrieb ]Eingabe: 1) Anzahl der eingegebenen DivisionenWenn „N=“ in der Anzeige erscheint, gibt man die Anzahl der Divisionen innerhalb der Periode an.2) Funktionswert-EingabeDer Eingabebereich ist (0,2π); wenn die Anzeige „Y(i)=“ erscheint, tastet man den Funktionswert f(2πi/N) ein.Ausgabe: Ausgabe der Fourier-KoeffizientenDie Ausgaben der Fourier-Koeffizienten ai(bis zu N/2) und bi(bis zu N/2-1) der Funktion f(t) sind möglich.Bitte beachten, daß die Anzahl der Divisonen N für die Eingabe 1) eine gerade Zahl sein und max. 176 betragen muß.
[ Beispiel ]Funktionwerte für n=1 bis 10 bei einer Periode (0,2π) einer zusammengesetzten Welle von f(t)=Cos 2t+3 Sin t+7 Sin 3t.f(1)=8.729771f(2)=-2.070344f(3)=-2.070341f(4)=8.729764.f(5)=1f(6)=-8.11173f(7)=0.45231f(8)=0.45231f(9)=-8.111737f(10)=1Auf diese Weise wird die Fourier-Entwicklung ausgeführt.
[ Inhalt ] (Formeln) f(t)=a0/2+n=1∞(an nt+bn nt) ai=2/Nn=1Nyn(2π/N× nj) bi=2/Nn=1Nyn(2π/N× nj)
PROGRAMMNAME: FOURIER-REIHEN	PROGRAMM-NR.P5-A-3	2

[Impression]

A(0)=	0.0000003
A(1)=	-0.000000185
A(2)=	9.999995194E-01
A(3)=	4.9034E-07
A(4)=	1.7992E-07
A(5)=	-0.0000006
B(1)=	3.000000328
B(2)=	2.310925336E-06
B(3)=	6.999998884
B(4)=	2.219255066E-06

[Action sur les touches]

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF A	N = _	Anzahl der Koordinaten-eingaben (Anzahl der Divi-sionen innerhalb der Periode)
2	10 ENTER	Y (1) = ?
3	8.729771 ENTER	Y (2) = ?
4	-2.070344 ENTER	Y (3) = ?
5	-2.070341 ENTER	Y (4) = ?
6	8.729764 ENTER	Y (5) = ?
7	1 ENTER	Y (6) = ?
8	-8.11173 ENTER	Y (7) = ?
9	0.45231 ENTER	Y (8) = ?
10	0.45231 ENTER	Y (9) = ?
11	-8.111737 ENTER	Y (10) = ?
12	1 ENTER	>	Ausdruck

PROGRAMMNAME: FOURIER-REIHEN

PROGRAMM-NR.P5-A-3

3

[Liste du programme]

10:"A":CLEAR:WAIT 0

20:CLS:INPUT "N=";N

30:IF N/2<>INT (N/2)THEN 20

40:DIM Y(N-1)

50:FOR I=0TO N-1

60:A="Y("+STR(I+1)+")="

70:PRINT A;

80:INPUT Y(I):CLS

90:NEXT I

95:RADIAN

00:A=0

10:FOR J=0TO N-1

20:A=A+Y(J):NEXTJ

30:A=A/N:LPRINT"A(0)=",A

40:FOR I=1TO N/2

50:P=2*π*I/N:A=0

60:FOR J=1TO N

70:A=A+Y(J-1)*COS(P*J)

80:NEXT J

90:A=A*2/N

00:A="A("+STRI+")"="

10:LPRINT A,A

20:NEXT I

30:FOR I=1TO N/2-1

40:P=2*π*I/N:B=0

50:FOR J=1TO N

60:B=B+Y(J-1)*SIN(P*J)

70:NEXT J

80:B=B*2/N

90:B="B("+STRI+")"="

00:LPRINT B$,B

10:NEXT I

20:END

[Contenu de la mémoire]

A	Fourier-Koeffizient (a0 bis an/2)
B	Fourier-Koeffizient (b1 bis bn/2-1)
C
D
E
F
G
H
I	√
J	√
K
L
M
N	Eingabe-Meldung
O
P	2πI/N
Q
R
S
T
U
V
W
X
Y
Z
A	Ausgabe-Meldung
B	Anzahl der Divisionen
Y(N)	Eingabedaten(Funktionswert)

STATUT 1

443

PROGRAMMNAME: LAGRANGESCHE INTERPOLATION	PROGRAMM-NR.P5-A-4	1
[ Überblick ]Das Programm führt die Interpolation unter Verwendung des Lagrangeschen Polynoms durch, um die Y-Achse für den interpolierenden Wert zu berechnen.
[ Anleitung zum Betrieb ]Eingabe: 1. Anzahl der Koordinaten (N) (N ≤ 61)2. Koordinaten-EingabeEintasten der Koordinaten X(i) und Y(i). (1 ≤ i ≤ N)3. Nachdem „Z=“ in der Anzeige erscheint, tastet man die X-Koordinate zum Interpolieren ein.Ausgabe: 4. Interpolierter Wert„X=“: eingetastete X-Koordinate zum Interpolieren (=Z)„P=“: interpolierter Wert (Y-Achse)Die obigen Verfahrensschritte 3 und 4 können wiederholt ausgeführt werden.
[ Beispiel ]Anzahl der Koordinaten: 4Koordinaten: (5,3)(8,9)(12,4)(6,1)Zu interpolierender Wert: 7
[ Inhalt ] (Formeln)Um die Interpolation nach dem Lagrangeschen Polynom durchzuführen, bestimmt man den für die Interpolation erforderlichen Wert.Vorausgesetzt die Anzahl der Koordinaten ist n, bestimmt man ein Polynom (n-1)-ten Grades. Pn-1(x) = an-1 xn-1 + an-2 xn-2 + ... + a1 x1 + a0 Da Pn-1(x) = y1 b1(x) + y2 b2(x) + ... + yn bn(x) für k = 1, 2 ... n , bk(x) = (x - x1)(x - x2) ... (x - xk-1)(x - xk+1) ... (x - xn)(xk - x1)(xk - x2) ... (xk - xk-1)(xk - xk+1) ... (xk - xn) = i=1n (x - xj)/(xk - xj) Dies ergibt den benötigten Interpolationswert.

NOM DU PROGRAMME : INTERPOLATION DE LAGRANGE

N° DE PROGRAMME P5-A-4

2

[Impression]

X = 7 \ P = 3.821428571

[Tastenbetätigung]

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF A	N = _	Anzahl der Koordinaten (max. 61)
2	4 ENTER	X (1) = ?
3	5 ENTER	Y (1) = ?
4	3 ENTER	X (2) = ?
5	8 ENTER	Y (2) = ?
6	9 ENTER	X (3) = ?
7	12 ENTER	Y (3) = ?
8	4 ENTER	X (4) = ?
9	6 ENTER	Y (4) = ?
10	1 ENTER	Z = _	Die Programmausführung wird durch Drücken der ENTER Taste beendet.
11	7 ENTER	Z = _	Rückkehr zu Schritt 10.
12	ENTER	>

PROGRAMMNAME: LAGRANGESCHE INTERPOLATION

PROGRAMM-NR.P5-A-4

3

[Programmlisting]

10: "A": CLEAR :WAIT 0

20: INPUT "N="; N

25: N=N-1:DIM X(N), Y(N), B(N)

30: FOR I=0TO N

35: A="X(" + STR(I+1)+ ")="

36: PRINT A;

40: INPUT X(I):GOTO 42

41: N=I: GOTO 55

42: A="Y(" + STR(I+1)+ ")="

43: CLS

45: PRINT A;

46: INPUT Y(I)

47: CLS

50: NEXT I

55: CLS : INPUT "Z="; Z: GOTO 60

56: END

60: P=0: FOR K=0TON

70: B(K)=1

80: FOR J=0TO N

90: IF J=KTHEN 110

100: B(K)=B(K)*(Z-X(J))/(X(K)-X(J))

110: NEXT J

120: P=P+B(K)*Y(K)

130: NEXT K

140: LPRINT "X="; Z

150: LPRINT "P="; P

160: GOTO 55

STATUS 1

362

[Speicherinhalt]

A
B
C
D
E
F
G
H
I	√
J	√
K	√
L
M
N	Anzahl der Daten
O
P	Durch das Interpolieren von Z zu bestimmender Wert
Q
R
S
T
U
V
W
X
Y
Z	Interpolierter Wert
A$	Eingabemeldung
B(N)	Betriebsbereitschaft für die Interpolation
X(N)	Eingabedaten für X-Koordinate
Y(N)	Eingabedaten für Y-Koordinate

SHARP

PROGRAMMNAME: GLEICHUNGEN ZWEITEN UND DRITTEN GRADES	PROGRAMM-NR.P5-A-6	1
[ Überblick ]	CE-150 erforderlich
Dieses Programm dient zur Bestimmung der Wurzeln in Gleichungen zweiten und dritten Grades. Für Gleichungen zweiten bzw. dritten Grades können durch Eintasten der Koeffizienten die Wurzeln ermittelt werden.
[ Anleitung zum Betrieb ]Eingabe: 1. Wahl der GleichungDEF AWurzel einer quadratischen Gleichung....(A)DEF BWurzel einer Gleichung dritter Grades....(B)2. Eingabe der KoeffizientenFür (A), Eingabe der Koeffizienten a, b und cFür (B), Eingabe der Koeffizienten a, b, c und d.Ausgabe: Der Wurzelwert - „REELL“. „X1“ und „X2“ wird für 2 reelle Wurzeln ausgedruckt.,DOPPELT“ und „X1“ wird für eine doppelte Wurzel ausgedruckt.,*** REELL ***, "IMAGINÄER", der Realteil und der Imaginärteil einer Komplexen Zahl wird ausgedruckt.
[ Beispiel ]1. Wurzel einer quadratischen Gleichung: 4X2 - X - 1 = 0 5X2 + 4X + 1 = 0 2. Wurzel einer Gleichung dritten Grades X3 + X2 - 2X - 2 = 0
[ Inhalt ] (Formeln)I) Wurzel einer quadratischen Gleichung: ax2 + bx + c = 0 ( a ≠ 0 ) x = -b ± 2 - 4ac2a (1) Reelle Zahl mit b2 - 4ac > 0 x = -b ± 2 - 4ac2a (2) Reelle Zahl mit b2 - 4ac = 0 x = -b/2a
PROGRAMMNAME: GLEICHUNGEN ZWEITEN UND DRITTEN GRADES	PROGRAMM-NR.P5-A-6	2
(3) Komplexe Zahl mit b2 - 4ac < 0 Realteil: -b/2a Imaginärteil: √4ac - b22a II) Wurzel einer Gleichung dritten Grades:Cardanos Verfahren wird für die Lösung angewendet. AX3 + BX2 + CX + D = 0 (A ≠ 0 und alle anderen Koeffizienten sind reelle Zahlen)Durch Division der Koeffizienten durch A erhält man: x3 + ax2 + bx + c = 0 Durch die Umwandlung von y = x - a/3 , y3 + 3py + q = 0 p = b/3 - 29 q = c - ab/3 + 2a327 Ist Y = u + v, dann folgt: u3 + v3 + 3uv(u + v) + 3P(u + v) + q = 0 Ist u3 + p3 = -q , dann u × v = -p. u3 + v3 = -q u3v3 = -p3 Dies zeigt, daß u3 und v3 die Wurzeln einer quadratischen Gleichung t2 + qt - p3 = 0 sind. Daraus folgt, u3 = 1/2 (-q + 2 + 4p3) v3 = 1/2 (-q - 2 + 4p3) Daraus ergeben sich die Wurzeln α , β und γ von y3 + 3py + q = 0 wie folgt: α = u + v β = 1/2(u + v) + √32i(u - v) γ = 1/2(u + v) - √32i(u - v) Diese werden in Real- und Imaginärteil aufgespalten.(1) Wenn q2 + 4p3 > 0 , so sind u3 und v3 reelle Zahlen.Daher sind u und v die reellen dritten Wurzeln aus u3 und v3 und die obige Formel kann so wie sie ist verwendet werden. Das gilt für den Fall, daß eine reelle und zwei komplexe Zahlen auftreten.
PROGRAMMNAME: GLEICHUNGEN ZWEITEN UND DRITTEN GRADES	PROGRAMM-NR.P5-A-6	3

(2) Si q² + 4p³ > 0, alors u³ et v³ sont des racines imaginaires.

Si u³ = re^iθ, alors v³ = re^-iθ

r = -P³

θ = ^-1 √-q² - 4p³-q donc

u = √-P ( θ/3 + i θ/3)

v = √-P ( θ/3 + i θ/3)

De là, on obtient les racines α, β et γ de Y³ + 3PY + q = 0

comme suit : α = -2 (π/2 - θ/3)

β = - 2 √ - P (π/6 + θ/3)

γ = - 2 √ - P (π/6 - θ/3)

Cela vaut pour le cas où trois nombres réels distincts apparaissent.

(3) Si p² + 4p³ = 0 et p ≠ 0, on obtient u³ = v³ = -q/2

À partir de U = V = √[3]-q/2

α = 2 u

β = γ = - u

Cela vaut pour le cas où une racine double et une autre racine apparaissent.

(4) Si q² + 4p³ = 0 et p = q, on obtient q = 0. Par conséquent, puisque u = v = 0, on obtient le résultat :

α = β = γ = 0

C'est une racine triple.

En ajoutant a/3 à α,β et γ, on trouve les solutions de l'équation.

Veuillez noter : si les valeurs de deux ou trois racines distinctes sont très proches, elles peuvent être considérées comme une racine double ou triple ; la même chose vaut inversement.

[Expression]

REELL6.403882032E-01	REELLE ZAHL1.414213562
REELL-3.903882032E-01	-1.414213562-9.999999995E-01

***RÉEL***

-0.4

IMAGINAER

0.2

PROGRAMMNAME: GLEICHUNGEN ZWEITEN UND DRITTEN GRADES

PROGRAMM-NR.P5-A-6

4

[Tastenbetätigung]

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF A	A = _
2	4 ENTER	B = _
3	-1 ENTER	C = _
4	-1 ENTER	>	Ausdruck

[Tastenbetätigung]

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF A	A = _
2	5 ENTER	B = _
3	4 ENTER	C = _
4	1 ENTER	>	Ausdruck

[Tastenbetätigung]

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF B	A = _
2	1 ENTER	B = _
3	1 ENTER	C = _
4	-2 ENTER	D = _
5	-2 ENTER	>	Ausdruck

PROGRAMMNAME: GLEICHUNGEN ZWEITEN UND DRITTEN GRADES

PROGRAMM-NR.P5-A-6

5

[Programmlisting]

10: "A"; INPUT "A="; A, "B="; B, "C="; C

20: B=-B/2/A: D=B*B-C/A

30: IF D=0GOTO 90

40: IF D>0GOTO 110

50: Y=J(-D)

60: LPRINT "***REE LL**", B

70: LPRINT "IMAGIN AER", Y

80: END

90: LPRINT "DOPPEL T", B

100: END

110: LPRINT "REELL", B+JD

120: LPRINT "REELL", B-JD

130: END

210: "B"; INPUT "A="; D, "B="; F, "C="; G, "D="; H

220: F=F/D: G=G/D: H=H/D

240: F=F/3

250: D=G/3-F*F

260: E=H-F*G+2*F*F*F

270: C=4*D*D*D+E*E

280: IF 10^(-8)>ABS CGOTO 470

290: IF C>0GOTO 400

300: A=2*J(-D)

310: B=ACS (E/(2*D* J(-D)))/3

320: D=ASN 1.E=ASN .5

330: G=A*SIN (D-B); H=-A*SIN (E+B)

340: I=-A*SIN (E-B)

350: G=G-F:H=H-F:I=I-F

370: BEEP 3.LPRINT "REELLE ZAHL", G

380: LPRINT H, I

390: END

400: C=JC:A=.5*(C-E):B=-.5*(C+E):C=1/3

410: A=ABS A^C*SGNA

420: B=ABS B^C*SGNB:C=.5^3

430: BEEP 3:LPRINT"*REELLE ZAHL*",A+B-F

440: LPRINT "*REELL*",~.5*(A+B)-F

450: LPRINT "IMAGINAR",C*ABS (A-B)

460: END

470: BEEP 3:IF 10^(-8)>ABS DLPRTNT "DREIFACHE WURZEL",-F:END

480: A=-ABS (.5*E)^(1/3)*SGNE

490: LPRINT "REELLZAHL",2*A-F

495: LPRINT "DOPPELTE WURZEL",-A-F

500: END

STATUS 1

808

[ Speicherinhalt ]

A	a	√
B	b,-b/(2a)	√
C	c	√
D	d	a
E		√
F		b
G		c
H		d
I		√
J
K
L
M
N
O
P
Q
R
S
T
U
V
W
X
Y	√
Z

PROGRAMMNAME: DIFFERENTIALGLEICHUNG ERSTER ORDNUNG			PROGRAMM-NR.P5-A-7	1
			CE-150 erforderlich
[ Überblick ]
Dieses Programm dient zum Lösen von Differentialgleichungen erster Ordnung nach dem Runge-Kutta-Gill-Verfahren.
[ Anleitung zum Betrieb ]
< Eingabe >	< Ausgabe >	< Tastenbetätigung >
Ausgangsbedingungen x0	x0	Die ENTER -Taste wird zur Progression des x-Wertes verwendet.
y0	y0
	h
Inkrement des x-Wertes	h	x = x1, x2, ---
Lösungs-Intervall	T	y-Wert für x
Man schreibt die Gleichung als Unterprogramm in Zeile 500. In der PRO-Betriebsart wandelt man die Gleichung in Zeile 500 wie erforderlich ab.
Anmerkung: Außer für x = nh + x0 (n = 0, 1, 2, ---) erfolgt eine proportionale Zuordnung für den y-Wert zwischen x0 + (n-1)h et x0 + nh.
[ Beispiel ]
1. Gleichung y' = -xy wird unter der Ausgangsbedingung von x0 = 0, gelöst, vorausgesetzt, daß y0 = 10 ist. Setzt man jedoch voraus, daß h = 0,01 und T = 0,03 ist, erhält man y bei x = 0,03, 0,06 usw.
[ Inhalt ] (Formeln)
Vorausgesetzt ist die Gleichung y' = f(x, y), mit der Ausgangsbedingung (x0, y0). Mit einer Erfassung des x-Wertes in h-Schritten bestimmt man nach-einander yn des y-Wertes für xn = x0 + nh(n = 1, 2, ---). Die Formeln zur Bestimmung von xn+1 und yn+1 von xn und yn werden dem Runge-Kutter-Gill-Verfahren entsprechend wie folgt dargestellt.
k0 = hf(xn, yn)	r1 = (1⁄2)(k0 - 2q0)
y(1) = yn + r1,	q1 = q0 + 3r1 - (1⁄2)k0,	k1 = hf(xn + h/2, y(1))
r2 = (1 - √1⁄2)(k1 - q1),
y(2) = y(1) + r2,	q2 = q1 + 3r2 - (1 - √1⁄2)k1,	k2 = hf(xn + h/2, y(2))
r3 = (1 + √1⁄2)(k2 - q2)
y(3) = y(2) + r3,	q3 = q2 + 3r3 - (1 + √1⁄2)k2,	k3 = hf(xn+1, y(3))
r4 = (1/6)(k3 - 2q3)
yn+1 = y(3) + r4,	q4 = q3 + 3r4 - (1/2)k3
Auf diese Weise wurde yn+1 durch yn bestimmt. In diesem Falle ist n = 0, 1, 2 ----

PROGRAMMNAME: DIFFERENTIALGLEICHUNG ERSTER ORDNUNG

PROGRAMM-NR.P5-A-7

2

Au point initial x₀, la valeur de q₀=0 (zéro) et q₄ est ensuite pris comme nouvelle valeur de q₀.

[Ausdruck]

X=	0.03
Y=	9.995501013
X=	0.06
Y=	9.982016191
X=	0.09
Y=	9.959581904
X=	0.12
Y=	9.928258582
X=	0.15
Y=	9.888130449
X=	0.18
Y=	9.839305144
X=	0.21
Y=	9.781913245

[Tastenbetätigung]

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF A	X0=_
2	0 ENTER	Y0=_
3	10 ENTER	H=_
4	0.01 ENTER	T=_
5	0.03 ENTER	0.03 9.995501013
6	ENTER	0.06 9.982016191
:	:	:

PROGRAMMNAME: DIFFERENTIALGLEICHUNG ERSTER ORDNUNG

PROGRAMM-NR.P5-A-7

3

[Programmlisting]

10: "A": INPUT "X0= "; X, "Y0="; Y, "H ="; H, "T="; T

20:A=1+√.5:B=1-√.

5:USING :Q=0

25: Z=X+T:S=X

30:GOSUB 500

40:K=H*F:R=(K-2*Q)

>2:Y=Y+R

50:Q=0+3*R-K/2

60:X=X+H/2:GOSUB500

70:K=H*F:R=B*(K-Q):Y=Y+R

80:Q=Q+3*R-B*K

90:GOSUB 500

100:K=H*F:R=A*(K-Q):Y=Y+R

110:Q=Q+3*R-A*K

120:X=X+H/2:GOSUB500

130: K=H*F: R=(K-2*Q) /6: Y=Y+R

140:Q=Q+3*R-K/2

150: IF X<ZLET S=X: Y1=Y:GOTO 30

160:IF X=ZGOTO 200

170: Y2=(Z-S)*(Y-Y1) /H+Y1

180: BEEP 3: LPRINT"X="; Z

190:LPRINT "Y=";Y2:GOTO 210

200:BEEP 3:LPRINT"X=";X

205:LPRINT "Y=";Y

210:Z=Z+T:S=X:Y1=Y

215:WAIT :PRINT X, Y

220:GOTO 30

500: F = -X*Y

510:RETURN

STATUS 1

474

[Contenu mémoire]

A	1 + √1/2
B	1 - √1/2
C
D
E
F	f(x, y)
G
H	h
I
J
K	√
L
M
N
O
P
Q	qn
R	rn
S	xn-1
T	Intervall von Lösungen
U
V
W
X	xn
Y	yn
Z	√
Y1	yn-1
Y2	yn+1

PROGRAMMNAME: DETERMINANTENBERECHNUNG	PROGRAMM-NR.P5-A-10	1
[ Überblick ]	CE-150 erforderlich
Auf dem Ausbreitungsverfahren basierend, berechnet dieses Programm die Determinante einer Matrix mit der Anzahl n.In der Verarbeitung sind enthalten:DateneingabeDatenprüfung und KorrekturAusgabe der eingegebenen Daten und Rechenergebnisse nach ProgrammausführungAusgabe der Rechenergebnisse ausschließlich, nach Programmausführung
[ Anleitung zum Betrieb ]Wahl der VerarbeitungA : Dateneingabe (Eingabe von n Matrix-Parametern)B : Datenprüfung und -korrektur (Überprüfung und Korrektur von n Matrix-Parametern)C : Daraufhin Ausführung der Ausgabe eingegebener Daten und Rechenergebnisse (Ausführung der Determinanten)D : Daraufhin Ausführung der Ausgabe von Rechenergebnissen ausschließlich (Ausführung der Determinanten)
Durch C werden die eingegebenen Daten ausgedruckt. Insgesamt ist eine Anzahl von 12 Eingaben möglich.
[ Beispiel ]4 7 1 85 -1 2 -43 12 -5 61 4 7 2 = -3276
[ Inhalt ] (Formeln)Dieses Programm wandelt eine Determinante nach dem Ausbreitungsverfahren in eine Dreiecksmatrix um und berechnet daraufhin das Ergebnis.Vorausgesetzt die Matrix ist [aij] (i,j=1~n)P = amm (m=2~n)q = aim/P (i=1~m-1)aj = aij - q · amj (j=1~m)
Bei der Berechnung erhält man folgendes:aij=0 for i
Daraus folgt: det = a11 · a22 · a33 · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · ·
PROGRAMMNAME: DETERMINANTENBERECHNUNG	PROGRAMM-NR.P5--A--10	2

[Affichage]

A(1,1)=4

A(1,2)=7

A(1,3)=1

A(1,4)=8

A(2,1)=5

A(2,2)=-1

A(2,3)=2

A(2,4)=-4

A(3,1)=3

A(3,2)=12

A(3,3)=-5

A(3,4)=6

A(4,1)=1

A(4,2)=4

A(4,3)=7

A(4,4)=2

det=-3276

[Action sur les touches] : saisie des données

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF A	N = _	Fortlaufende Nummer der Eingabe-Anzahl
2	4 ENTER	A(1, 1) = ?
3	4 ENTER	A(1, 2) = ?
4	7 ENTER	A(1, 3) = ?
5	1 ENTER	A(1, 4) = ?
6	8 ENTER	A(2, 1) = ?
7	5 ENTER	A(2, 2) = ?
8	-1 ENTER	A(2, 3) = ?
9	2 ENTER	A(2, 4) = ?
10	-4 ENTER	A(3, 1) = ?
11	3 ENTER	A(3, 2) = ?
12	2 ENTER	A(3, 3) = ?	Fehlerhafte Dateneingabectes
13	-5 ENTER	A(3, 4) = ?
14	6 ENTER	A(4, 1) = ?
15	1 ENTER	A(4, 2) = ?
16	4 ENTER	A(4, 3) = ?
17	7 ENTER	A(4, 4) = ?
18	2 ENTER	>

[Action sur les touches] : vérification et correction des données

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
19	DEF B	A(1,1)= 4 ?
20	ENTER	A(1,2)= 7 ?
21	ENTER	A(1,3)= 1 ?
22	ENTER	A(1,4)= 8 ?
23	ENTER	A(2,1)= 5 ?
24	ENTER	A(2,2)=-1 ?
25	ENTER	A(2,3)= 2 ?
26	ENTER	A(2,4)=-4 ?
27	ENTER	A(3,1)= 3 ?
28	ENTER	A(3,2)= 2 ?
29	12 ENTER	A(3,3)=-5 ?	Korrekte Dateneingabe
30	ENTER	A(3,4)= 6 ?
31	ENTER	A(4,1)= 1 ?
32	ENTER	A(4,2)= 4 ?
33	ENTER	A(4,3)= 7 ?
34	ENTER	A(4,4)= 2 ?
35	ENTER	>
36	DEF C	>	Ausgabe der eingegebenen Daten
37	DEF D	>	Keine Ausgabe der eingegebenen Daten(nur Ausgabe der Ergebnisse)

PROGRAMMNAME: DETERMINANTENBERECHNUNG

PROGRAMM-NR.P5-A-10

4

[Listing du programme]

10:"A":CLEAR:WAIT 020:CLS:INPUT "N=";N:N=N-130:DIM A(N,N)40:FOR I=0TO N50:FOR J=0TO N60:A="A("+STR(I+1)+", "+STR(J+1)+")="65:PRINT A;70:INPUT A(I,J):CLS80:NEXT J120:NEXT I:END130:"B":FOR I=0TON140:FOR J=0TO N150:A="A("+STR(I+1)+", "+STR(J+1)+")="160:CLS:PRINT A;A(I,J);165:CURSOR 15170:INPUT E:A(I,J)=E180:NEXT J200:NEXT I:END

210:"C".GOSUB 500215:"D":FOR M=NTO1STEP -1220:P=A(M,M)225:IF P=0THEN 900230:FOR J=0TO M-1240:O=A(I,M)/P250:FOR J=0TO M260:A(I,J)=A(I,J)-Q*A(M,J)270:NEXT J.NEXT I:NEXT M275:D=A(0,0)280:FOR I=1TO N290:D=D*A(I,I)300:NEXT I310:BEEP 1:LPRINT"det=";D:END500:FOR J=0TO N510:FOR J=0TO N520:A="A("+STR(I+1)+", "+STR(J+1)+")="530:LPRINT A;A(I,J)540:NEXT J:NEXT I:RETURN900:LPRINT "FEHLER":END

[Contenu mémoire]

A
B
C
D	Determinantenwert
E	Korrekturdaten
F
G
H
I	√
J	√
K
L
M	√
N	Anzahl der Eingabe
O
P	√
Q	√
R
S
T
U
V
W
X
Y
Z
A$	Eingabe/Ausgabe-Meldung
A(N,N)	Eingabedaten

STATUS 1 585

SHARP

PROGRAMMNAME: INVERSE MATRIX		PROGRAMM-NR.P5-A-11	1
[ Überblick ]Mit diesem Programm wird eine inverse Matrix mit der Anzahl n nach dem Ausbreitungsverfahren festgelegt.Die Verarbeitung wird wie folgt aufgeteilt:1. Dateneingabe2. Datenprüfung und -korrektur3. Ausführung[ Anleitung zum Betrieb ]Eingabe: Wahl der VerarbeitungDEF A : Dateneingabe (Eingabe von n Matrix-Elementen)DEF B : Datenprüfung und -korrektur (Überprüfung und Korrektur von n Matrix-Elementen)DEF C : Ausführung (Bestimmung der inversen Matrix)Ausgabe: Ausgabe der eingegebenen Matrix-Elemente. Die Ausgabe erfolgt nach einem Signalton.Eine Anzahl von bis zu 11 Matrix-Elementen ist möglich.[ Beispiel ][ Inhalt ] (Formeln) [ Ausdruck ]Gegeben sei die Matrix A = [aij] (i, j = 1 n) aij = aij + 1 ( i = 1 n ) P = amm - 1 ( m = 1 n ) amj = amj/P ( j = 1 n ) aij = aij - aim amj ( i = 1 n, i ≠ m ) aii = aii - 1 ( i = 1 n ) C(1,1)= 7 Nach der Berechnung ergibt sich, daß ( aij )die inverse Matrix der ursprünglichenMatrix ist. Ist P = 0 ist keine Berechnungmöglich; man erhält eine Fehlermeldung. C(1,2)= 4 C(1,3)=-2 C(2,1)= 3 C(2,2)= 2 C(2,3)=-1 C(3,1)=-1 C(3,2)=-0.5 C(3,3)= 0.5

[Action sur les touches]

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF A	N = _	Fortlaufende Nummer der Eingaben-Anzahl
2	3 ENTER	A(1,1) = ?	Dateneingabe
3	1 ENTER	A(1,2) = ?
4	-2 ENTER	A(1,3) = ?
5	2 ENTER	A(2,1) = ?	Fehlerhafte Daten
6	-1 ENTER	A(2,2) = ?
7	3 ENTER	A(2,3) = ?
8	2 ENTER	A(3,1) = ?
9	! ENTER	A(3,2) = ?
10	-1 ENTER	A(3,3) = ?
11	4 ENTER	>
1	DEF B	A(1,1) = 1 ?
2	ENTER	A(1,2) = -2 ?
3	ENTER	A(1,3) = 2 ?
4	0 ENTER	A(2,1) = -1 ?	Korrektur der Eingabedaten
5	ENTER	A(2,2) = 3 ?
6	ENTER	A(2,3) = 2 ?
7	ENTER	A(3,1) = 1 ?
8	ENTER	A(3,2) = -1 ?
9	ENTER	A(3,3) = 4 ?
10	ENTER	>
11	DEF C	>	Ausdruck

[Listing du programme]

10: "A": CLEAR :WAIT 0

20: CLS : INPUT "N="; N: N=N-1

30: DIM A(N, N)

40: FOR I=0TO N

50: FOR J=0TO N

60: A="A("+STR(I+1)+", "+STR$(J+1)+")="

65: PRINT A$; 70: INPUT A(I, J): CLS 80: NEXT J 120: NEXT I: END 130: "B": FOR I=0 TO N 140: FOR J=0 TO N 150: A="A("+STR(I+1)+", "+STR(J+1)+")=" 160: CLS: PRINT A; A(I,J); 165: CURSOR 15 170: INPUT E: A(I,J)=E 180: NEXT J 200: NEXT I: END 210: "C": GOSUB 500: FOR I=0 TO N 220: A(I, I) = A(I, I) / 1: NEXT I 230: FOR M=0 TO N 240: P=A(M,M)-1 245: IF P=0 THEN 900 250: FOR J=0 TO N 260: A(M, J) = A(M, J) / P: NEXT J 265: FOR I=0 TO N 270: IF I=M THEN 290 275: D=A(I,M) 277: FOR J=0 TO N 280: A(I, J) = A(I, J) - D*A(M, J) 285: NEXT J 290: NEXT I: NEXT M 295: FOR I=0 TO N 300: A(I,I)=A(I,I)-1 310: NEXT I 320: GOSUB 550: END

500: FOR I=0TO N

510: FOR J=0TO N

520: A="A("+STR(I+1) + ", "+STR$(J+1) + ")="

530: LPRINT A$; A(I, J) 540: NEXT J: NEXT I: RETURN 550: BEEP 1: FOR I=0 TO N 560: FOR J=0 TO N 570: A="C("+STR(I+1)+", "+STR(J+1)+")=" 580: LPRINT A; A(I, J) 590: NEXT J: NEXT I: RETURN 900: LPRINT "FEHLER": END

STATUS 1

736

[Contenu de la mémoire]

A
B
C
D
E	Korrekturdaten
F
G
H
I	√
J	√
K
L
M	√
N	Laufende Eingabe-Nr.
O
P	√
Q	√
R
S
T
U
V
W
X
Y
Z
A$	Eingabe-Meldung
A(N,N)	Eingabedaten

PROGRAMMNAME: MATRIXPRODUKT	PROGRAMM-NR.P5-A-12	1
	CE-150 erforderlich

[Aperçu]

Avec ce programme, on peut déterminer le produit matriciel C de la matrice A de type m×ℓ et de la matrice B de type ℓ×n.

[Instructions d'utilisation]

Entrée : 1. Saisie du nombre de lignes m et du nombre de colonnes ℓ pour la matrice A. Saisie des éléments de la matrice A. 2. Saisie du nombre de colonnes n pour la matrice B. Saisie des éléments de la matrice B.

Les limites de ℓ, m et n sont ℓ(m+n) ≤ 170.

Sortie : La sortie des éléments de la matrice produit C.

[Exemple]

Matrice A (type m×ℓ) amp; Matrice B (type ℓ×n) [4 amp; 0 amp; -1 -3 amp; 3 amp; 7 -9 amp; 2 amp; 5 5 amp; -1 amp; 3 ] amp; · [-1 amp; 5 -6 amp; -6 1 amp; 4 ] = amp; [-5 amp; 16 -8 amp; -5 2 amp; -37 4 amp; 43 ]

[Contenu] (Formules)

Le calcul suivant est effectué.

c_ij = _k=1 a_ik · b_kj i = 1, 2, ..., m ; j = 1, 2, ..., n

[a₁₁ amp; a₁₂ amp; ... amp; a₁ a₂₁ amp; a₂₂ amp; ... amp; a₂ amp; amp; amp; a_m1 amp; a_m2 amp; ... amp; a_m ]_m · [b₁₁ amp; b₁₂ amp; ... amp; b_1n b₂₁ amp; b₂₂ amp; ... amp; b_2n amp; amp; amp; b ₁ amp; b ₂ amp; ... amp; b _n ]_n = [c₁₁ amp; c₁₂ amp; ... amp; c_1n c₂₁ amp; c₂₂ amp; ... amp; c_2n amp; amp; amp; c_m1 amp; c_m2 amp; ... amp; c_mn ]

PROGRAMMNAME: MATRIXPRODUKT

PROGRAMM-NR.P5-A-12

2

[Résultat]

c(1,1)=-5 c(1,2)=16 c(2,1)=-8 c(2,2)=-5 c(3,1)=2 c(3,2)=-37 c(4,1)=4 c(4,2)=43

[Tastenbetätigung]

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF A	M=? L=	Eingabe der Anzahl der Zeilen für Matrix A, ml-Typ
2	4 ENTER	M=4 L=?	Eingabe der Anzahl der Spalten für Matrix A, ml-Typ
3	3 ENTER	a(1,1)=?	Eingabe der Elemente für Matrix A
4	4 ENTER	a(1,2)=?
5	0 ENTER	a(1,3)=?
6	-1 ENTER	a(2,1)=?
7	-3 ENTER	a(2,2)=?
	:	:	:
15	3 ENTER	L=3, N=?	Eingabe der Anzahl der Spalten für Matrix B, ln-Typ
16	2 ENTER	b(1,1)=?	Eingabe der Elemente für Matrix B
17	-1 ENTER	b(1,2)=?
18	5 ENTER	b(2,1)=?
19	-6 ENTER	b(2,2)=?
20	-6 ENTER	b(3,1)=?
21	1 ENTER	b(3,2)=?
22	4 ENTER	>	Ausdruck

PROGRAMMNAME: MATRIXPRODUKT

PROGRAMM-NR.P5-A-12

3

[Programmlisting]

10:"A":CLEAR:WAIT 0:CLS

20:PRINT "M=L="

22:CURSOR 3:INPUTM:CURSOR 10:INPUT L

23:M=M-1:L=L-1

25:DIM A(M,L)

30:FOR I=0TO M:FOR J=0TO L

40:A="a("+STR(I+1)+","+STR(J+1)+")="

50:CLS:PRINT A;

60:INPUT A(I,J)

70:NEXT J:NEXT I

80:CLS:PRINT "L=";L+1:CURSOR 8

90:INPUT "N=";N:N=N-1

00:DIM C(M,N)

10:FOR I=0TO L

20:FOR J=0TO N

30:A="b("+STR(I+1)+","+STR(J+1)+")="

40:CLS:PRINT A;

50:INPUT B

60:FOR K=0TO M

70:C(K,J)=C(K,J)+A(K,I)*B

80:NEXT K:NEXT J:NEXT I

90:FOR I=0TO M:FOR J=0TO N

200:A="c("+STR(I+1)+","+STR(J+1)+")="

210:LPRINT A;C(I,J)

220:NEXT J:NEXT I

230:END

STATUS 1

446

[ Speicherinhalt ]

A
B	Elemente von Matrix B (Eingabedaten)
C
D
E
F
G
H
I	√
J	√
K	√
L	Spalten für Matrix A, Zeilen für Matrix B
M	Zeilen von Matrix A
N	Spalten von Matrix B
O
P
Q
R
S
T
U
V
W
X
Y
Z
A$	Eingabemeldung
A(M,L)	Elemente von Matrix A (Eingabedaten)
C(M,N)	Elemente der Produktmatrix

SHARP

PROGRAMMNAME: KORRELATIONSKOEFFIZIENT,LINEARE REGRESSION UND PLOTTEN	PROGRAMM-NR.P5-B-1	1
[ Überblick ] (Statistik)	CE-150 erforderlich

Bestehende Daten für Analyse und Auswertung

Mit diesem Programm werden die Kovarianz zwischen verknüpften Daten (X₁, Y₁) ... (X_n, Y_n) , Korrelationskoeffizient und die linearen Regressionskoeffizienten berechnet. Die gegebenen Daten werden zur Anwendung mit Y = AX + B ausgewertet, wobei die Ergebnisse in grafischer Darstellung ausgedruckt werden.

[ Anleitung zum Betrieb ]

1. Dateneingabe (Xi, Yi) (wobei die Speicherkapazität in der Standardausführung i ≤ 10 beträgt)
2. Kovarianz, Korrelationskoeffizient, linearer Regressionskoeffizient und Mittelwert werden zum Ausdrucken berechnet.
3. Die grafische Darstellung wird generiert, wobei und auf X-Achse und Y-Achse zentriert sind, auf denen Eingabedaten und die Schätzwerte in verschiedenen Farben dargestellt werden.
4. Der Schätzwert wird aus dem Wert X für den Ausdruck der X- und Y-Werte festgelegt.

[ Beispiel ]

X	6.9	7.6	7.6	9.0	8.1	6.5	6.4	6.9
Y	12	10	9	5	6	15	14	12

Kovarianz = -3.060714286

Moyenne X = 7.375, Y = 10.375

Coefficient de corrélation = -9.693968513E-01

Évaluation

Coefficient de régression linéaire

X=7, Y=11.85326587

a = -3.942042318

X=8, Y=7.911223556

b = 39.4475621

X = 7.5, Y = 9.882244715

X=7.3, Y=10.67065318

X=7.4, Y=10.27644895

[Contenu] (Formules)

Sxx = x _ i ^ 2 - n x ^ 2

Sxy = x _ i y _ i - n x y

Syy = y _ i ^ 2 - n y ^ 2

C = Sxy / (n - 1) ... ... Covariance

r = Sxy / · Syy ... Correlation coefficient

. a = Sxy / Sxx \ b = - a \ Regression coefficient (y = ax + b)

PROGRAMMNAME: KORRELATIONSKOEFFIZIENT,LINEARE REGRESSION UND PLOTTEN

PROGRAMM-NR.P5-B-1

2

[Expression]

The actual expression is in color. See page 1.

KOUARIANZ=-3.060714286

KORRELATION=-9.693968513E-01

REGRESS.KOEFF, A=-3.942042318 B=39.4475621

*MITTEL* X=7.375 Y=10.375

*AUSWERTUNG*
X=	7
Y=	11.85326587
X=	8
Y=	7.911223556
X=	7.5
Y=	9.882244715
X=	7.3
Y=	10.67065318
X=	7.4
Y=	10.27644895

[Key operation]

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF A	X = _
2	6.9 ENTER	Y = _
3	12 ENTER	X = _	Die Anzeige wird auf Schritt (1) zurückgestellt. Die ENTER -Taste in Schritt (2) drücken oder den Vorgang wiederholen, bis 10 Datensätze eingetastet sind.
⋮	⋮	⋮
18	ENTER	>
19	DEF S	>	Datenausgabe mit >-Anzeige beendet den Betrieb, bei dem die Varianz und andere Daten ausgedruckt werden.
20	DEF D	AUSWERTUNG = _	Bevor die Anzeige erscheint, wird die grafische Darstellung ausgedruckt.
21	7 ENTER	AUSWERTUNG = _	Die Anzeige kehrt zum Schritt (5) zurück. 10 Daten eintasten bzw. den Vorgang wiederholen, bis nur die ENTER -Taste gedrückt wird.
	⋮	⋮
	ENTER	>

PROGRAMMNAME: KORRELATIONSKOEFFIZIENT,LINEARE REGRESSION UND PLOTTEN

PROGRAMM-NR.P5-B-1

3

[Program listing]

10:"A":CLEAR

20:DIM X(9),Y(9)

30:FOR B=1TO 10

40:X(B-1)=0;Y(B-1)=0

50:NEXT B

60:N=0

70:FOR B=1TO 10

80:INPUT "X=";X(B-1):GOTO 95

90:GOTO 120

95:INPUT "Y=";Y(B-1)

00:N=N+1

10:NEXT B

20:END

30:"S":I=0;J=0;K=0;L=0;M=0

40:P=10^(98);O=-P:R=P;Q=0

50:FOR B=1TO N

55:Z=B-1

60:I=I+X(Z)

70:J=J+Y(Z)

80:K=K+X(Z)*X(Z)

90:L=L+X(Z)*Y(Z)

00:M=M+Y(Z)*Y(Z)

10:IF P>X(Z)LET P=X(Z)

20:IF O(X(Z)LET Q=X(Z)

30:IF R>Y(Z)LET R=Y(Z)

40:IF Q(Y(Z)LET Q=Y(Z)

50:NEXT B

60:I=I/N;J=J/N

70:K=K-N*I*I

80:L=L-N*I*J

90:M=M-N*J*J

05:H=J(K*M)

07:H=L/H

10:COLOR 0:LPRINT"KOVARIANZ=",L/(N-1)

20:LPRINT "KORRELATION=",H

30:LPRINT "REGRESS.KOEFF."

340: S=L/K:T=J-S*1

350: LPRINT "A=";S

360: LPRINT "B=";T

362: LPRINT "*MITTE L*"

364: LPRINT "X=";I

366: LPRINT "Y=";J

370: END

500: "D": GRAPH

510: A=(O-P)/200

520: B=(Q-R)/350

530: C=(I-P)/A

540: D=(R-J)/B

550: GLCURSOR (C,D)

560: SORGN

570: X1=-(I-P)/A: Y1=0

580: X2=(O-I)/A: Y2=0

590: GOSUB 900

600: LINE (X2-10, Y2-10)-(X2, Y2)

605: LINE (X2, Y2)-(X2-10, Y2+10)

610: LPRINT "x"

620: LINE (X2-10, Y2+23)-(X2, Y2+23)

630: X1=0: Y1=-(J-R)/B

640: X2=0: Y2=(Q-J)/B

650: GOSUB 900

660: LINE (X2-10, Y2-10)-(X2, Y2)

665: LINE (X2, Y2)-(X2+10, Y2-10)

670: LPRINT "y"

680: LINE (X2+10, Y2)-(X2+20, Y2)

690: FOR E=ITO N

700: X=(X(E-1)-I)/A; Y=(Y(E-1)-J)/B

710: GOSUB 920

720: NEXT E

730: X1=-(I-P)/A: Y1=(S*X+T)-J)/B

740: X2=(O-I)/A: Y2=((S*X+T)-J)/B

750: COLOR 2

760: GOSUB 900

770: N=1

780: [NPUT "AUSWERTUNG="; X(N-1);GOTO 800

790: GOTO 840

800: Y(N-1)=S*X(N-1)+T

810: X=(X(N-1)-1)/A; Y=(Y(N-1)-J)/B

820: LINE (X-1, Y-1)-(X+2, Y+2), 0, 3,B

830: N=N+1; GOTO 780

840: GLCURSOR(-(I-P)/A, -(J-R)/B-20)

845: TEXT

850: IF N=1END

860: COLOR 0:LPRINT"*AUSWERTUNG*"

870: FOR W=1TO N-1

880: LPRINT "X="; X(W-1)

890: LPRINT "Y="; Y(W-1)

895: NEXT W

896: END

900: LINE (X1, Y1)-(X2, Y2)

910: RETURN

920: LINE (X, Y)-(X+2, Y+2); 0, 1, B

930: RETURN

PROGRAMMNAME: KORRELATIONSKOEFFIZIENT,LINEARE REGRESSION UND PLOTTEN

PROGRAMM-NR.P5-B-1

4

[Memory contents]

A	Grafikkoeffizient (je 1 Punkt) X	A		X(9)	Eingabe, Auswertung (= x) Datentabelle
B	Grafikkoeffizient (je 1 Punkt) Y	B		Y(9)	Eingabe, Auswertung (= y) Datentabelle
C	√	C
D	√	D
E	√	E		X1	Unterprogramm Linien Zeichnen (Start X-Koordinate)
F		F		Y1	Unterprogramm Linien Zeichnen (Start Y-Koordinate)
G		GS		X2	Unterprogramm Linien Zeichnen (Ende X-Koordinate)
H		H		Y2	Unterprogramm Linien Zeichnen (Ende Y-Koordinate)
I	\overline{X}	I
J		J
K	Sxx =\Sigma Xi^{2} - n\overline{X}^{2}	K
L	Sxy = Xi · Yi - n	L
M	Syy =\Sigma Yi^{2} - n\overline{Y}^{2}	M
N	Anzahl (Daten) n	NS
O	X-MAX	OS
P	X-MIN	PS
Q	Y-MAX	QS
R	Y-MIN	RS
S	Regressionskoeffizient a	SS
T	Regressionskoeffizient b	TS
U		US
V		VS
W	√	WS
X	√	XS
Y	√	YS
Z	√	Z$

PROGRAMMNAME: EXPONENTIELLE REGRESSION UND PLOTTEN

PROGRAMM-NR.P5-B-2

1

[Overview]

CE-150 required

With the input of data x and y for the exponential curve y = a · b^x, the coefficients a and b and the correlation coefficient r are determined.

Next, the exponential curve is printed with the printer, and the input data and estimated values are graphically displayed.

[Operating instructions]

DEF A: Data input, printout of coefficients a and b and correlation coefficient r. Up to 39 data points can be entered.

DEF B: Output of the exponential curve and graphical representation of the input data.

Les valeurs estimées sont saisies et représentées graphiquement. Jusqu'à n saisies d'estimations sont possibles.

Pour les données traçables des estimations, la valeur estimée de y doit être inférieure à la valeur maximale des Y_i saisies. Le x estimé saisi et le Y calculé sont imprimés.

[Exemple]

x	0.5	1.2	3.1	7.4
y	7.01	11.72	44.54	936.71

n = 4

On applique les données ci-dessus à y = ab^x et on estime les valeurs, où x = 2, 4, 6 et 6,5.

[Contenu] (Formules)

Déterminez les coefficients a et b afin que la représentation graphique de y = ab^x ... (1) pour un nombre donné (n) de points (x₁, y₁) (x₂, y₂) ... (x_n, y_n) soit optimale.

La méthode des moindres carrés est normalement utilisée pour l'ajustement de courbes. Cependant, pour la fonction exponentielle, il est difficile de procéder selon cette méthode, donc on utilise le logarithme pour la transformation. En prenant le logarithme des deux côtés de l'équation (1) y = ab ^x (logarithme népérien), on obtient :

ny = na + x nb. 2

On obtient alors, en posant Y = ln y, A = ln a, B = ln b, ce qui suit :

Y = A + Bx. 3

Ainsi, A et B peuvent être calculés comme suit :

A = Y - B x, B = x _ i Y _ i - n x Y x _ i ^ 2 - n x ^ 2 ( Y = 1/n _ i = 1 ^ n Y _ i, Y _ i = ny _ i, x = 1/n _ i + 1 ^ n x _ i

Une fois A et B déterminés, on peut obtenir a et b par a = e^A et b = e^B, puisque A = ln a et B = ln b.

PROGRAMMNAME: EXPONENTIELLE REGRESSIONUND PLOTTEN

PROGRAMM-NR.P5-B-2

2

[Impression]

L'impression est en couleur. Voir à ce sujet la page 1.

R = 9,999942365E-01

A = 4,960331916

B = 2,03057723

* ÉVALUATION *

x = 2

Y = 20,45265825

x = 4

Y = 84,3312981

x = 6

Y = 347,7185094

x = 6,5

Y = 495,4930476

[Pression des touches]

Schritt-Nr.	Eingabe		Anzeige	Anmerkung
1	DEF A		N = _
2	4 ENTER		X(1) = ?
3	0.5 ENTER		Y(1) = ?
4	7.01 ENTER		X(2) = ?
5	1.2 ENTER		Y(2) = ?
6	11.72 ENTER		X(3) = ?
7	3.1 ENTER		Y(3) = ?
8	44.54 ENTER		X (4) = ?
9	7.4 ENTER		Y (4) = ?
10	936.71 ENTER		>	A, B und R werden nach Beendigung der Eingabe ausgedruckt.
11	DEF B		AUSWERTUNG = _	Die Anzeige erfolgt nach der Grafikausgabe.
12	2 ENTER		AUSWERTUNG = _
13	4 ENTER		AUSWERTUNG = _
14	6 ENTER		AUSWERTUNG = _
15	6.5 ENTER		>

PROGRAMMNAME: EXPONENTIELLE REGRESSION UND PLOTTEN

PROGRAMM-NR.P5-B-2

3

[Liste du programme]

10:"A":CLEAR:WAIT 0:CLS20:INPUT "N=";N30:DIM X(N-1),Y(N-1):E=10^8:G=E:D=-E:F=040:FOR I=0TO N-150:CLS:A="X("+STR(I+1)+ ")="60:PRINT A;70:INPUT X(I):GOTO 9080:N=I:GOTO 15090:CLS:A="Y("+STR$(I+1)+ ")="

100:PRINT A$;

110: -PUT Y(I):Y= LN Y(I)

112: IF D(X(I)LET D =X(I)

114: IF E>X(I)LET E =X(I)

116: IF F(Y(I)LET F =Y(I)

118: IF G(Y(I)LET G =Y(I)

120: Q=Q+X(I):P=P+Y

130: Q=Q+X(I)*X(I): R=R+Y*Y:S=S+X(I)*Y

140:NEXT I

150:X=Q/N:Y=P/N

160:T=Q-N*X*X

170:U=S-N*X*Y

180:U=R-N*Y*Y

190:C=U/J(T*V)

200:B=U/T

210:A=EXP (Y-B*X)

220:B=EXP B

225:COLOR 0

230:LPRINT "R=";C

240:LPRINT "A=";A

250:LPRINT "B=";B: END

260:"B";M=F/300

270:IF E>=0LET Z=2 5:L=D/175:GOTO 290

280:L=(D+ABS E)/20 0:Z=ABS E/L+5

290:GRAPH : GLCURSOR (Z,-3 50):SORGN

300:LINE(-Z,0)-(200-Z,0)-(200-Z-10,-10)-(200-Z,0)-(200-Z-10,10):LPRINT"x"

310:LINE (0,-50)-(0,350)-(-10,340)-(0,350)-(10,340):LPRINT "y"

320: GLCURSOR (-15,-15): LPRINT "0"

330: COLOR 1: FOR I=0TO N-1

340: J=X(1)/L; K=Y(1) /M

350:LINE (J-3,K-3)

-(J+3,K+3),0,1

,B

360:NEXT 1:COLOR 2

370: J=-Z; K=A*B^(J*L)/M

380: J1=J+2:IF J>200-ZGOTO 400

390: K1=A*B^(J1*L)/M: IF K1>350GOTO:400

395:LINE (J,K)-(J1, K1):J=J1;K=K1;GOTO 380

400:I=0

410:IF I>=NTHEN 47

0

420:CLS : [INPUT "ES

TIMER X=";X(I)

:GOTO 440

430:N=1:GOTO 470

440: J=X(1)/L:Y(I)=A*B^X(I):K=Y(I)/M

445:IF K>350GOTO 460

450:LINE (J-3,K-3)

-(J+3,K+3),0,3

,B

460:I=I+1:GOTO 410

470: GLCURSOR (0,-100): TEXT,COLOR 0

500: LPRINT "* AUSW ERTUNG *"

510:FOR I=0 TO N-1

520:LPRINT "X=";X(1)

[ Contenu mémoire ]

A	a
B	b'·b
C	Korrelationskoeffizient r
D	X-MAX
E	X-MIN
F	Y-MAX
G	Y-MIN
H
I	√
J	√
K	√
L	X-Druck-Koeffizient
M	Y-Druck-Koeffizient
N	Anzahl der Koordinaten
O	Σ Xi
P	Σ Y
Q	Σ X2i
R	Σ Y2
S	Σ XiY
T	Sxx
U	Sxy
V	Syy
W
X
Y	ln yi,
Z	√
A$	√
X(N-1)	X-Daten: geschätztes X
Y(N-1)	Y-Daten: geschätztes Y
J1	√
K1	√

530:LPRINT "Y="; Y(I)

540:NEXT I

550:END

SHARP

PROGRAMMNAME: ANGENÄHERTE EXPONENTIALKURVE	PROGRAMM-NR. P5-B-3	1
[ Überblick ]	CE-150, Kassetten-rekorder erforderlich

Si une courbe exponentielle approchée est écrite comme y = k - ab^x, les facteurs a et b (ainsi que k, s'il est inconnu) sont calculés, où k est connu ou inconnu. Avec ce programme, la valeur de y pour le nouveau x est également estimée.

[ Mode d'emploi ]

DEF A : Si k est connu :

Entrée ( { Nombre de données, valeur de k, (x_i, y_i), estimation de x } ) Sortie : coefficients a, b, estimation de x, y.

Un nombre maximal de 36 données est possible. Nom de fichier cassette : « AEK-DATA (K) ».

Déf. B : Si k est inconnu :

Entrée de données\_i\ x. Sortie a,b,k\ x,y.

Le nombre de données est illimité. Nom de fichier cassette : « AEK-DATA ».

[Exemple]

1. k est connu :

k = 5 5 0

xi	1	2	12	35	60
yi	540.2	540.4	542	545	547

Estimation x = 5 x = 15

1. k est inconnu :

i	1	2	3	4	5
yi	33.8	38.9	37.7	42.5	46.3
i	6	7	8	9	10
yi	50.6	55.2	58.9	58.0	60.5
i	11	12	13	14	15
yi	62.8	63.5	60.4	63.9	68.2

Estimation x = 15 x = 16

PROGRAMMNAME: ANGENÄHERTE EXPONENTIALKURVE

PROGRAMM-NR.P5-B--3

2

[Contenu] (Formules)

1. k est connu :

En prenant les logarithmes des deux côtés pour k - y = ab ^x, qui découle de y = k - ab ^x, on obtient : ln (k - y) = ln a + x ln b.

À partir de Y = n (k - y), A = n a, B = n b, il en résulte que Y = A + Bx.

Selon la méthode des moindres carrés, les résultats sont :

A = x ^ 2 Y - x xYn x ^ 2 - ( x) ^ 2

B = xY - x Yn x² - ( x)² \ a = e^A \ b = e^B .

2. k est inconnu :

On suppose que le nombre de données est 3n (si le nombre de données n'est pas divisible par 3, on ignore le reste) et on le divise en 3 parties : 0 ≤ x < n, n ≤ x < 2n, et 2n ≤ x < 3n, où l'on écrit les sommes des parties respectives comme suit :

₁ y = _i=1ⁿ y_i

₂ y = _i=n+1²ⁿ y_i

₃ y = _i=2n+1³ⁿ y_i

On obtient ce qui suit :

b = (₃ y - ₂ y₂ y - ₁ y)^1/n

a = (₁ y - ₂ y) - 1(bⁿ - 1)²

k = 1/n (₁ y + (ⁿ - 1b - 1) a)

[Expression]

a = 10.0556453 amp; a = 39.91657038 \ b = 9.801181777E-01 amp; b = 8.422366627E-01 \ amp; k = 68.9970248

ESTIMATION* X = 5 amp; ESTIMATION* Y = 540.9050113 \ X = 15 amp; X = 15 \ Y = 542.5597658 amp; Y = 65.95848202 \ amp; X = 16 \ amp; Y = 66.43785267

PROGRAMMNAME: ANGENÄHERTE EXPONENTIALKURVE

PROGRAMM-NR.P5-B-3

3

[Touche] : k est connu :

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF A	DATA CLOAD? (Y/N)_
2	Y ENTER	DATA CASVE? (Y/N)_	Nach Dateneingabe von der Kassette und Datenausdruck geht man nach Schritt 15.
	N ENTER	N = _	Folgt auf Schritt 3.
3	5 ENTER	K = _
4	550 ENTER	X(1) = ?
5	1 ENTER	X(1) = ?
6	540.2 ENTER	X(2) = ?
7	2 ENTER	Y(2) = ?	Wiederholte Dateneingabe.
⋮	⋮	⋮
13	60 ENTER	Y(5) = ?
14	547 ENTER	DATA CSAVE? (Y/N)_	Nach dem Datenausdruck.
15	Y ENTER	X = _	Datenausgabe an Kassette
	N ENTER	X = _
16	5 ENTER	X = _	Eingabe x
17	15 ENTER	X = _	Eingabe x
18	ENTER	>	Ende

[Touche] : k est inconnu :

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF B	DATA CLOAD? (Y/N)_
2	Y ENTER	DATA CASVE? (Y/N)_	Nach der Dateneingabe von der Kassette und dem Daten-ausdruck folgt Schritt 9.
	N ENTER	N = _	Folgt auf Schritt 3.
3	15 ENTER	Y(1) = ?
4	33.8 ENTER	Y(2) = ?
5	38.9 ENTER	Y(3) = ?	Wiederholte Dateneingabe
⋮	⋮	⋮
17	63.9 ENTER	Y(15) = ?
18	68.2 ENTER	DATA CSAVE? (Y/N)_	Anzeige nach Ausdruck
19	Y ENTER	X = _	Anzeige nach Datenausgabe an Kassette
	N ENTER	X = _
20	15 ENTER	X = _	Eingabe x
21	16 ENTER	X = _	Eingabe x
22	ENTER	>	Ende

[Programme listing]

10: "A": CLEAR : WAIT 0

20: INPUT "DATA CLOAD?(Y/N)";A$

30: IF (A="Y") + (A="N") <> 1 GOTO 20

40: IF A$="Y" GOTO 150

50: INPUT "N=";D," K=";C

55: DIM X(D-1),Y(D-1)

60: FOR I=0 TO D-1

70: CLS : A="X(" + STR(I+1)+")=

80: PRINT A$;

90: INPUT X(I): GOTO 110

100: CLS : D=I-1: GOTO 180

110: CLS : A="Y(" + STR(I+1)+")=

120: PRINT A$;

130: INPUT Y(I)

140:NEXT I:GOTO 18 0

150: INPUT "AEK-DA TA(K)"; D, C

160:DIM X(D-1), Y(D -1)

170: INPUT # "AEK-DA TA(K)"; X(*), Y(*)

180:CLS :FOR I=0TO D-1

185:Y=LN(C-Y(I))

190: E=E+X(I):F=F+X (I)*X(I)

200: G = G + Y : H = H + X (I) *Y

210:NEXT I

220:B=D*F-E*E

230:A=(F*G-E*H)/B

240:B=(D×H-E×G)/B

250: A=EXP A:B=EXP B

260: BEEP 3: LPRINT "a=";A

270:LPRINT "b=";B

280: BEEP 5: INPUT "DATA CSAVE?(Y/N)";A$

290: IF (A="Y") + (A="N") <> 1 THEN 280

300: IF A$="N" GOTO 700

310: PRINT # "AEK-DA TAK);D,C

320: PRINT #"AEK-DA TA(K)";X(*),Y(*)

330: GOTO 700

400: "B": CLEAR: WAIT 0: CLS: DIM Y(2)

410: INPUT "DATA CLOAD?(Y/N)";A$

420: IF (A="Y") + (A="N") <> 1 THEN 410

430: IF A$="Y" THEN 530

440: INPUT "N="; N

450: N=INT(N/3)

460: FOR C=1 TO 3

470: FOR X=N*(C-1) TO N*C-1

80: CLS : A="Y(" + STR(X+1)+")=

190:PRINT A\$;

500:INPUT L

510: Y(C-1)=Y(G-1)+L

520:NEXT X:NEXT C: GOTO 540

530: INPUT # "AEK-DA TA"; N, Y(*)

540:CLS ;C=N:B=((Y(2)-Y(1))/(Y(1)-Y(0)))^(1/C)

550: D=B^C-1:A=(Y(0)-Y(1))*B-1)/(D*D)

560: C=(Y(0)+D*A/(B-1))/C

570: BEEP 3: LPRINT "a="; A"

580:LPRINT "b=";B

590:LPRINT "k=";C

600: BEEP 5: INPUT "DATA CSAVE?(Y/N)"; A\$

610: IF (A\="Y") + (A\="N") <> IGOTO 600

620: IF A\$="N"GOTO 700

630:PRINT # "AEK-DA TA";N,Y(*)

700:LF 1:LPRINT "*ESTIMATION *":CLS

710: BIP 1: SAISIR "X="; X: ALLER À 730

720:FIN

230:LPRINT "X=";X

740:LPRINT "Y=";C- A*BOX

750:ALLER À 710

STATUT 1

1266

[ Contenu de la mémoire ]

A	a
B	b
C	k
D	n
E	xi
F	xi2
G	y
H	xi · y
I	√
J
K
L	yi
M
N	n
O
P
Q
R
S
T
U
V
W
X	x
Y	y
Z
A	√
F	xi
G$	yi

SHARP

PROGRAMMNAME: LOGISTISCHE KURVE		PROGRAMM-NR.P5-B-4	1
[Überblick]Mit einer logistischen Kurve werden die Eingangsdaten angenähert, um den Schätzwert von y für den neuen x-Wert zu ermitteln.Allgemeine Form der logistischen Kurve: y = 1 + me-ax [Anleitung zum Betrieb]DEF A : Wird zur Berechnung des Koeffizienten verwendet, wenn k bekannt ist.Eingabe: {n: Anzahl der Datenk:X1~XnY1~YnAusgabe: {Koeffizient aKoeffizient mDEF B : Wird zur Koeffizienten-Berechnung verwendet, wenn k nicht bekannt ist.Eingabe: {n: Anzahl der DatenY1~YnAusgabe: {Koeffizient aKoeffizient mKoeffizient kDie tatsächliche Anzahl der Daten beträgt bis zu einem Mehrfachen von 3. DEF C : Kurve, Daten und Plot-Ausgabe der Schätzwerte.Eingabe: Schätzwert (X). Die Anzahl der eingegebenen Schätzwerte beträgt bis zu der Anzahl der durch DEF Aund DEF B bestimmten Anzahl Daten. DEF D : Ausdrucke der Schätzwerte, X und Y.Anmerkung: Die Dateneingabe bei DEF A und DEF B ist auch vom Kassettenrecorder her möglich.Die eingetasteten Daten können auf Kassette gespeichert werden.[Beispiel]1. k ist bekannt: k = 195 xi yiSchätzwert2 11x = 56 54x = 1210 150

PROGRAMMNAME: LOGISTISCHE KURVE

PROGRAMM-NR.P5-B-4

2

1. k est inconnu :

i	yi	i	yi
1	40	11	388
2	50	12	475
3	67	13	591
4	88	14	713
5	119	15	845
6	146	16	983
7	182	17	1143
8	223	18	1256
9	273	19	1377
10	322	20	1513

Valeur estimée

x = 1 0

x = 1 5

x = 1 8

x = 1 9

[Contenu] (Formules)

1. k est connu :

y = k1 + me ^ - ax

£n : logarithme népérien

k/y - 1 = me ^ - ax

n (k/y - 1) = nm - ax

Avec Y = n ( k/y - 1 ) , A = n m , B = -a, on obtient ce qui suit.

Selon la méthode des moindres carrés, les résultats sont :

A = x ^ 2 Y - x xYn x ^ 2 - ( x) ^ 2

B = n xY - x Yn x ^ 2 - ( x) ^ 2 m = e ^ A a = - B .

1. k est inconnu :

On prend l'inverse des deux côtés d'une formule de courbe et on écrit comme suit :

1/y = 1/k + m/k e ^ - ax

où Y = 1/y , K = 1/k , A = m/k , B = e^-a

Y = K - AB^x

Ceci est déterminé par la méthode de la courbe exponentielle approchée comme suit :

PROGRAMMNAME: LOGISTISCHE KURVE		PROGRAMM-NR.P5-B-4	3
B = (Σ3Y - Σ2Y) 1/nA = (Σ1Y - Σ2Y) B - 1/(Bn - 1)2K = 1/n [Σ1Y + (Bn - 1)/B - 1]a = -ln Bk = 1/Km = -kA
[Ausdruck]Der Ausdruck erfolgt farbig.Siehe hierzu Seite 1.A= 5.026266613E-01 M= 48.10443978		A= 2.507446178E-01M= 50.49168896K= 2115.67291
*SCHAETZUNG *X= 5Y= 39.8192162X= 12Y= 174.8033605		*SCHAETZUNG *X= 10Y= 413.7132289X= 15Y= 973.0535461X= 18Y= 1361.923995X= 19Y= 1478.765671

[Expression]

PROGRAMMNAME:

LOGISTISCHE KURVE

PROGRAMM-NR.P5-B-4

4

[Touche] : k est connu.

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF A	DATA CLOAD? (Y/N)_
2	Y ENTER		Nach der Dateneingabe von der Kassette werden zum Abschluß der Verarbeitung die Ergebnisse ausgedruckt.
	N ENTER	N = _	nach 3
3	3 ENTER	K = _
4	195 ENTER	X(1) = ?
5	2 ENTER	Y(1) = ?
6	11 ENTER	X(2) = ?
7	6 ENTER	Y(2) = ?
8	54 ENTER	X(3) = ?
9	10 ENTER	Y(3) = ?
10	150 ENTER	DATA CSAVE? (Y/N)_
11	Y ENTER	>	Nach der Datenausgabe an die Kassette werden zum Abschluß der Verarbeitung die Ergebnisse ausgedruckt.
	N ENTER	>	Zum Abschluß der Verarbeitung werden die Ergebnisse ausgedruckt.

[Touche] : k est inconnu.

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF B	DATA CLOAD? (Y/N)_
2	Y ENTER		Nach der Dateneingabe von der Kassette werden zum Abschluß der Verarbeitung die Ergebnisse ausgedruckt.
	N ENTER	N = _	nach 3
3	20 ENTER	Y(1) = ?
4	40 ENTER	Y(2) = ?
5	50 ENTER	Y(3) = ?
	⋮	⋮	Wiederholte Eingabe
19	983 ENTER	Y(17) = ?
20	1143 ENTER	Y(18) = ?
21	1256 ENTER	DATA CSAVE? (Y/N)_
22	Y ENTER	>	Nach der Dateneingabe von der Kassette werden zum Abschluß der Verarbeitung die Ergebnisse ausgedruckt.
	N ENTER	>	Zum Abschluß der Verarbeitung werden die Ergebnisse ausgedruckt.

[Touche] : Sortie graphique, tracé de l'estimation et impression des valeurs estimées.

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF C	SCHAETZUNG X = _	Nach der Grafik-Ausgabe wird die Anzeige leer.
2	5 ENTER	SCHAETZUNG X = _
3	12 ENTER	SCHAETZUNG X = _
4	ENTER	>	Ende der Verarbeitung.

PROGRAMMNAME: LOGISTISCHE KURVE		PROGRAMM-NR.P5-B-4	6
[Programmlisting]
10:"A":CLEAR :WAIT 020:INPUT "DATA CLOAD?(Y/N)";A30:IF (A="Y")+(A="N")<>1GOTO2040:IF A="Y"GOTO13050:INPUT "N=";D,"K=";C60:DIM X(D-1),Y(D-1)70:FOR I=0TO D-180:A="X("+STR(I+1)+")=";PRINT A;90:INPUT X(I)100:CLS :A="Y("+STR(I+1)+ ")=";PRINT A;110:INPUT Y(I)120:CLS :NEXT I122:INPUT "DATA CSAVE?(Y/N)";A124:IF (A="Y")+(A="N")<>1GOTO122126:IF A="N"GOTO150127:PRINT #D,C128:PRINT #X(*),Y(*):GOTO 150130:INPUT #D,C140:DIM X(D-1),Y(D-1):INPUT #X(*);Y(*)150:X1=10^8:X2=-X1160:FOR I=0TO D-1170:IF X(I)<X1LET X1=X(I)180:IF X(I)>X2LET X2=X(I)210:Y=LN (C/Y(I)-1):E=E+X(I):F=F+X(I)*X(I)220:G=G+Y:H=H+X(I)*Y:NEXT I230:B=D*F-E*E:A=(F*G-E*H)/B:B=(D*H-E*G)/B240:A=EXP A:B=-B:LPRINT "A=";B:LPRINT "M=";A250:END	260:"B":CLEAR :WAIT 0:USING270:INPUT "DATA CLOAD?(Y/N)";A280:IF (A="Y")+(A="N")<>1GOTO270290:IF A="Y"GOTO420300:INPUT "N=";D:A=INT (D/3)310:DIM X(A*3-1),Y(A*3-1),B(2)320:FOR C=ITO 3330:FOR I=(C-1)*ATO C*A-1340:A="Y("+STR(I+1)+ ")=";PRINT A;350:INPUT Y(I):X(I)=I:CLS360:B(C-1)=B(C-1)+1/Y(I)370:NEXT I:NEXT C:Z=I:D=3*A372:Y1=Y(0):Y2=Y(0)373:FOR I=ITO D-1374:IF Y(I)<YILETY1=Y(I)375:IF Y(I)>Y2LETY2=Y(I)376:NEXT I378:IF A="Y"GOTO410380:INPUT "DATA CSAVE?(Y/N)";A390:IF (A="Y")+(A="N")<>1GOTO380400:IF A="N"GOTO425410:PRINT #D,A:PRINT #X(*),Y(*),B(*):GOTO 425420:INPUT #D,A:DIMX(D-1),Y(D-1),B(2):INPUT #X(*),Y(*),B(*):GOTO 372425:X1=0:X2=I*3*A-1430:C=A:B=((B(2)-B(1))/B(1)-B(0))^(1/C)	440:D1=B*C-1:A=(B(0)-B(1))*B(-1)/(D1*D1)450:C=(B(0)+D1*A/(B-1))/C460:C=1/C:A=-A*C:B=-LN B462:X1=-1/B*LN ((C/Y1-1)/A)464:X2=-1/B*LN ((C/Y2-1)/A)470:LPRINT "A=";B480:LPRINT "M=";A490:LPRINT "K=";C:END500:"C":GRAPH :U=10:W=-250:IF C<0LET U=-20:W=-50505:IF X1>0LET X1=0510:X3=X1:M=X2-X3520:N=M/100:L=C/175530:GLCURSOR (25,W):SORGN540:COLOR 0:GLCURSOR (-10,U):LPRINT "0"550:LINE (-20,0)-(175,0):LINE (165,10)-(175,0)-(165,-10)560:GLCURSOR (170,U):LPRINT "x"570:IF C>=0LINE (0,-25)-(0,225):LINE (-10,215)-(0,225)-(10,215):GOTO 590580:LINE (0,25)-(0,-225):LINE (-10,-215)-(0,-225)-(10,-215)590:LPRINT "y":COLOR 1:T=C/L600:LINE (175,T)-(20,T):LPRINT "k"610:COLOR 2:0=-15:S=0*N:P=(C/(1+A*EXP(-B*S)))/L620:IF 0>=175GOTO650630:S=(0+5)*N:Q=(C/(1+A*EXP(-B*S)))/L

PROGRAMMNAME: LOGISTISCHE KURVE

PROGRAMM-NR.P5-B-4

7

[Liste du programme]

640:LINE (0,P)-(0+5,Q):0=0+5:P=0:GOTO 620

650:FOR I=0TO D-1

660:S=X(I)/N:R=Y(I)

670:LINE (S-2,R-2)

-(S+2,R+2),0,1

,B

680:NEXT I

690:1=0

700:IF I(DINPUT "S

CHAETZWERT X="

;X(1):GOTO 730

710:END

730: Y(I)=C/(I+A*EXP(-B*X(I))) :S=X(I)/N:R=Y(I)/L:I=I+1

740:LINE (S-2,R-2)

-(S+2,R+2),0,3

,B:GOTO 700

800: "D": GLCURSOR (0, 0): GLCURSOR(0, -(300+W))

810:TEXT :COLOR 0:LPRINT "*SCHAETZUNG *"

820:FOR J=0TO I-1

830:LPRINT "X=";X( J)

840:LPRINT "Y=";Y( J)

850:NEXT J

860:END

STATUS 1

2198

[Contenu de la mémoire]

A	m	X(D-1)	Xn Daten
B	a	Y(D-1)	Yn Daten
C	k
D	n	X1	Min. von Xn
E	ΣX	X2	Max. von Xn
F	ΣX2	X3	X min. in der Grafik
G	ΣY	B(2)	B(0): Σ1Y
H	ΣxY		B(1): Σ2Y
I	√		B(2): Σ3Y
J	√	D1	√
K		Y1	Min. von Yn
L	Kurven-Koeffizient y	Y2	Max. von Yn
M	Bereichswert (grafisch)
N	Kurven-Koeffizient x
O	√
P	√
Q	√
R	√
S	√
T	√
U
V	√
W	√
X
Y	X
Z	y, Y
A$	√

SHARP

PROGRAMMNAME: MODIFIZIERTER VERÄNDERLICHER MITTELWERT	PROGRAMM-NR.P5-B-6	1
[ Überblick ]	CE-150 erforderlich
Dieses Programm dient zur Bestimmung des modifizierten veränderlichen Mittelwerts.Zur Regressionsanalyse können die Auswirkungen eventueller geringfügiger zyklischer Abweichungen aufgehoben werden, indem man den Mittelwert der Veränderung auf einem Zyklus basierend nimmt.
[ Anleitung zum Betrieb ]DEF A : Eingabe der Anzahl von Posten zur Durchschnittsbildung (n) nach dem modifizierten veränderlichen Mittelwert.Mit der Dateneingabe erfolgt der Ausdruck der Eingabewerte und der Mittelwerte.
[ Beispiel ]1. Ermitteln Sie den modifizierten veränderlichen Durchschnitt von 4 Posten.Daten: 56, 79, 0, 9720, 23, 99, 6834, 93, 31
[ Inhalt ] (Formeln)Die Verarbeitung richtet sich danach, ob die Anzahl der eingegebenen Posten (n) gerade oder ungerade ist.1. Falls n eine ungerade Zahl ist: i = i=1n Xi/n 2 = i=2n+1 Xi/n 2. Falls n eine gerade Zahl ist: 1 = (12 + n+12 + i=2n Xi)/n 2 = (22 + n+22 + i=3n+1 Xi)/n
PROGRAMMNAME: MODIFIZIERTERVERÄNDERLICHER MITTELWERT	PROGRAMM-NR.P5-B-6	2

[Expression]

** X= 56

** X= 79

** X= 0

** x= 97

** X= 20

MTW.=53.5

** X= 23

MTW.=42

** X= 99

MTW.=47.375

** x= 68

MTW.=56.125

** X= 34

MTW.=54.25

** x= 93

MTW.=64.75

** X= 3!

MTW.=65

[Touche action]

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF A	N = _
2	4 ENTER	X = _
3	56 ENTER	X = _	Ausdruck der Daten
4	79 ENTER	X = _
5	0 ENTER	X = _
6	97 ENTER	X = _
7	20 ENTER	X = _	Ausdruck des Mittelwerts
8	23 ENTER	X = _
⋮	⋮	⋮
13	31 ENTER	X = _
14	ENTER	>

PROGRAMMNAME: MODIFIZIERTER VERÄNDERLICHER MITTELWERT

PROGRAMM-NR.P5-B-6

3

[Listing du programme]

10:"A":CLEAR:INPUT "N=";A

20:E=0:DIM X(A-1)

30:IF A<>INT (A*0.5)*2GOTO 130

40:FOR C=0TO A-1

50:GOSUB 500

60:NEXT C

70:FOR C=0TO A-1

80:INPUT "X=";D:GOTO 90

85:END

90:E=E+D:LPRINT"*X=";D

95:LPRINT "MTW.";(E-.5*(D+X(C)))/A

100: E=E-X(C):X(C)=D

110:NEXT C

120:GOTO 70

130:FOR C=0TO A-2

140:GOSUB 500

150:NEXT C

160:B=A-1:INPUT "X=";X(B).

170:E=E+X(B):

LPRINT "** X=";X(B)

180:LPRINT "MTW.=" ;E/A

190: FOR C=0TO B

200: INPUT "X=";D: GOTO 210

205:END

210:E=E-X(C)+D:X(C) =D

220:LPRINT "** X=";D

225:LPRINT "MTW.=" ;E/A:NEXT C

230: GOTO 190

500: INPUT "X=";D

505:LPRINT "** X=";D

510:E=E+D:X(C)=D:RETURN

STATUS 1

458

[Contenu mémoire]

A	n
B	n-1
C	√
D	x
E	Σx
F
G
H
I
J
K
L
M
N
O
P
Q
R
S
T
U
V
W
X
Y
Z
X(A-1)	Datentabelle

SHARP

PROGRAMMNAME:	UNTERSUCHUNG DER ABWEICHUNG DER MITTELWERTE, VARIANZVERHÄLTNIS	PROGRAMM-NR.P5-B-7	1
		CE-150 erforderlich
[Überblick]Wenn zwei Gesamtheiten normal verteilt und ihre Standardabweichungen gleich sind, ist der Mittelwert normaler Gesamtheiten, deren Werte unbekannt sind, gleich. Mit diesem Programm kann diese Hypothese überprüft werden, desgleichen kann man damit testen, ob zwei Gesamtheiten die gleiche Varianz aufweisen.
[Anleitung zum Betrieb]DEF A : Dient zur Untersuchung der Abweichung der Mittelwerte (verarbeitete Daten)Eingabe: { Anzahl der Daten für Gesamtheit 1Anzahl der Daten für Gesamtheit 2Mittelwert der Gesamtheit 1Mittelwert der Gesamtheit 2Standardabweichung der Gesamtheit 1Standardabweichung der Gesamtheit 2Ausgabe: { Prüfwert (T)Freiheitsgrad
DEF B : Dient zum Überprüfen der Abweichung vom Mittelwert (nicht verarbeitete Daten)Eingabe: { Daten der Gesamtheit 1Daten der Gesamtheit 2Ausgabe: { Mittelwert der Gesamtheit 1Standardabweichung der Gesamtheit 1Mittelwert der Gesamtheit 2Standardabweichung der Gesamtheit 2Prüfwert (T)Freiheitsgrad
DEF X : Dient zum Überprüfen von Varianzverhältnissen (verarbeitete Daten).Eingabe: { Anzahl der Daten für Gesamtheit 1Anzahl der Daten für Gesamtheit 2Standardabweichung der Gesamtheit 1Standardabweichung der Gesamtheit 2Ausgabe: { Prüfwert (F)Freiheitsgrad 1Freiheitsgrad 2

PROGRAMMNAME: UNTERSUCHUNG DER ABWEICHUNG DER MITTELWERTE, VARIANZVERHÄLTNIS								PROGRAMM-NR. P5-B-7	2
DEF Z : Dient zur Überprüfung der Varianzverhältnisse. (nicht verarbeitete Daten) Eingabe: {Daten der Gesamtheit 1 Daten der Gesamtheit 2 Ausgabe: {Mittelwert der Gesamtheit 1 Standardabweichung der Gesamtheit 1 Mittelwert der Gesamtheit 2 Standardabweichung der Gesamtheit 2 Prüfwert (F) Freiheitsgrad 1 Freiheitsgrad 2} [ Beispiel ] Untersuchung der Abweichung der Mittelwerte
1	2.3	1.6	2.1	2.2	2.3	2.0	1.9	2.2	n1=8 x̄1=2.075 σ1=2.375469878E-1 n2=6 x̄2=2.2 σ2=1.788854382E-1 σ: Standardabweichung
2	2.3	2.5	2.0	2.1	2.2	2.1
Anhand dieser Daten kann die T-Untersuchung durchgeführt werden.
Untersuchung des Varianzverhältnisses
1	1.375	1.407	1.068		1.752		1.201		n1=10, σ1=3.261141757E-1 n2=8, σ2=3.564527359E-1
	1.042	1.223	1.633		1.773		0.779
2	1.033	1.217	1.615		0.673		1.252
	0.984	1.693	0.840
Die F-Untersuchung wird auf der Basis dieser Daten durchgeführt.
[ Inhalt ] (Formeln)
Untersuchung der Abweichung der Mittelwerte Wenn zwei normale Gesamtheiten die gleiche Varianz aufweisen und ihre Werte unbekannt bleiben, unternimmt man die Untersuchung mit der Voraussetzung, daß ihre Mittelwerte gleich sind.
t = x̄1 - x̄2 / √(Sxx1 + Sxx2)√(n1n2(n1+n2-2)/n1+n2)
Dies basiert auf der T-Verteilung von φ = n1 + n2 - 2
Untersuchung des Varianzverhältnis Die Untersuchung wird durchgeführt, um herauszufinden, ob die Varianz zweier Gesamtheiten gleich ist. F = V1/V2 basiert auf der F-Verteilung von φ1 = n1 - 1, und φ2 = n2 - 1 Falls V1 < V2, weist dies darauf hin, daß 1 und 2 gegeneinander vertauscht sind.

PROGRAMMNAME:

UNTERSUCHUNG DER ABWEICHUNG DER MITTELWERTE, VARIANZVERHÄLTNIS

PROGRAMM-NR.P5-B-7

3

[Touche action]

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF A	N1 = _	Untersuchung der Abweichung der Mittelwerte (verarbeitete Daten)
2	8 ENTER	N2 = _
3	6 ENTER	MITTEL 1 = _
4	2.075 ENTER	MITTEL 2 = _
5	2.2 ENTER	STANDARDABWEICHUNG 1 = _
6	0.2375469878 ENTER	STANDARDABWEICHUNG 2 = _
7	0.1788854382 ENTER	>
8	DEF B	X = _	Untersuchung der Abweichung der Mittelwerte (nicht verarbeitete Daten)
9	2.3 ENTER	X = _	Sequenzielle Eingaben der Daten von Gesamtheit 1
10	1.6 ENTER	X = _
	:	:	Wiederholte Dateneingabe
17	2.2 ENTER	X = _
18	ENTER	X = _	Ausdruck von Mittelwert und Standardabweichung bei Gesamtheit 1
19	2.3 ENTER	X = _
20	2.5 ENTER	X = _
21	2.0 ENTER	X = _
22	2.1 ENTER	X = _
23	2.2 ENTER	X = _
24	2.1 ENTER	X = _
25	ENTER	>
26	DEF X	N1 = _	Untersuchung des Varianzverhältnis (verarbeitete Daten)
27	10 ENTER	N2 = _
28	8 ENTER	STANDARDABWEICHUNG 1 = _
29	0.3261141757 ENTER	STANDARDABWEICHUNG 2 = _
30	0.3564527359 ENTER	>

PROGRAMMNAME: UNTERSUCHUNG DER ABWEICHUNG DER MITTELWERTE, VARIANZVERHÄLTNIS

PROGRAMM-NR.P5-B-7

4

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
31	DEF Z	X = _	Untersuchung des Varianzverhältnis (nicht verarbeitete Daten)
32	1.375 ENTER	X = _
33	1.407 ENTER	X = _
34	1.068 ENTER	X = _
...	...	...	Nochmalige Dateneingabe
37	1.773 ENTER	X = _
38	0.779 ENTER	X = _
39	ENTER	X = _	Mittelwert und Standard-abweichung der Gesamtheit 1
40	1.033 ENTER	X = _
41	1.217 ENTER	X = _
...	...	...
47	0.840 ENTER	X = _
48	ENTER	>

[Impression]

T=-1.076244005PHI= 12

MITTEL= 2.075STANDARDABWEICHUNG2.375469878E-01

MITTEL= 2.2

STANDARDABWEICHUNG

1.788854382E-01

T=-1.076244005

PHI= 12

F= 1.194715643	MITTEL= 1.3253
PHI1= 7	STANDARDABWEICHUNG
PHI2= 9	3.261141756E-01

MITTEL= 1.163375STANDARDABWEICHUNG3.564527368E-01

F= 1.194715649

PHI1= 7

PHI2= 9

PROGRAMMNAME:

UNTERSUCHUNG DER ABWEICHUNG DER MITTELWERTE, VARIANZVERHÄLTNIS

PROGRAMM-NR.P5-B-7

5

[Listing du programme]

10:"A":CLEAR:	500:N=0:T=0:S=0
INPUT "N1=";M,	510:INPUT "X=";X:
"N2=";N	GOTO 530
20:INPUT "MITTEL	520:GOTO 550
1=";Y,"MITTEL	530:N=N+1:T=T+X
2=";X	540:S=S+XX:X:GOTO 5
30:INPUT "STANDAR	10
DABWEICHUNG 1=	550:X=T/N:S=S-N*X*
",R,"STANDARDA	X
BWEICHUNG 2",S	560:CLS:LPRINT "M
40:R=R*R*(M-1)	ITTEL=";X
50:S=S*S*(N-1):	570:LPRINT "STANDA
GOTO 80	RDABWEICHUNG="
60:"B":GOSUB 500	,√(S/(N-1))
70:M=N:R=S:Y=X:	580:LF 1:RETURN

100: LPRINT "T="; T:

LPRINT "PHI=";

L-2

110:END

120:"X":INPUT "N1=";M,"N2=";N

130:INPUT "STANDAR DABWEICHUNG 1=",R,"STANDARDABWEICHUNG 2=",S

140: R=R*R:S=S*S: GOTO 180

150:"Z":GOSUB 500

160:M=N:R=S:GOSUB 500

170:R=R/(M-1):S=S/(N-1)

180: IF S>RLET Z=M:M=N:N=Z:Z=S:S=R=Z

190:LPRINT "F=";R/S

200:LPRINT "PH11=";M-1

210:LPRINT "PHI2=";N-1

220:END

[Contenu mémoire]

A
B
C
D
E
F
G
H
I
J
K
L	M + N
M	Anzahl der Daten für Gesamtheit 1
N	Anzahl der Daten für Gesamtheit 2
O
P
Q
R	Standardabweichung der Gesamtheit 1
S	Standardabweichung der Gesamtheit 2
T	Prüfwert
U
V
W
X	Mittelwert von Gesamtheit 2
Y	Mittelwert von Gesamtheit 1
Z	√

SHARP

PROGRAMMNAME: EINSEITIGE PLANUNG	PROGRAMM-NR.P5-B-9	1
[Überblick]	CE-150 erforderlich

Avec la méthode de planification unilatérale, ce programme effectue l'analyse de la variance.

[ Mode d'emploi ]

Saisie : 1. Entrer le nombre de niveaux des facteurs.

Lorsque « a= » s'affiche, taper le nombre de niveaux.

1. Entrer le nombre de répétitions.

Lorsque « n= » s'affiche, taper le nombre de répétitions.

1. Saisie des données

i = 1, 2 ... ... a

j = 1, 2 ... n

Lorsque « X(i, j) = » s'affiche, taper les données.

Sortie : résultats de l'analyse de variance

Sortie des sommes des carrés, de la variance non biaisée et du rapport de variances non biaisé intra- ou inter-classes.

[ Exemple ]

Faktor	A1	A2	A3	A4
1	25.5	25.5	27.5	28.0
2	26.5	24.5	25.5	29.5
3	27.0	23.5	26.5	28.5

[Contenu] (Formules)

Nombre de niveaux : a

Nombre de répétitions : n

Données : x_ij

(i = 1 a, j = 1 n)

Nombre de données : an

1. [X]=x²/an
2. S_A = [A] - [X]
3. φ_A = a - 1

[A] = x ^ 2 _ i / n

S _ T = [AS] - [X]

φ_ E = a _ n - a

[AS] = x ^ 2 _ ij

S _ E = [AS] - [A]

φ_ T = a _ n - 1

1. [V] = [S] / [φ]
2. F = V_A / V_E

V_T n'est pas calculé.

PROGRAMMNAME: EINSEITIGE PLANUNG

PROGRAMM-NR.P5-B-9

2

[Expression]

Sa= 26.166667

Se= 6.333333

St= 32.5

DFa= 3

DFe= 8

DFt= 11

Va= 8.722222333

Ve= 0.791666625

Fa= 11.01754458

[Touche]

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF A	a = _	Anzahl der Faktoren
2	4 ENTER	n = _	Anzahl der Wiederholungen
3	3 ENTER	x(1, 1) = ?	Daten
4	25.5 ENTER	x(1, 2) = ?	Die Dateneingabe wiederholen
⋮	⋮	⋮
14	29.5 ENTER	x(4, 3) = ?
15	28.5 ENTER	>	Ausdruck

PROGRAMMNAME: EINSEITIGE PLANUNG

PROGRAMM-NR.P5-B-9

3

[Listing du programme]

10: "A": CLEAR :CLS:WAIT 0

20: INPUT "a=";A;

INPUT "n=";N

70:E=0:L=0

75:B=STR(I+1)+", "+STR$(L+1)

76: A= "×("+B+" )=

77:PRINT A$;

80: INPUT D: CLS

90:E=E+D:Z=Z+D*D

100: IF L<>N-ILET L=L+1:GOTO 75

210:S=S+E*E

220:R=R+E

230: IF I<>A-1LET I=I+1:GOTO 70

240:R=R*R/(A*N)

250:S=S/N

430: S=S-R:LPRINT " Sa=";S

510: Z=Z-R

520:P=Z-S:LPRINT "Se=";P:LPRINT"St=";Z

530: F = A - 1: LPRINT "DFa=";F

540: S=S/F

690:0=A*(N-1):

LPRINT "DFe=";

0

700:P=P/0

710:0=A*N-1:LPRINT"DFt=";0

720:LPRINT "Va=";S

800:LPRINT "Ve=";P

810:F=S/P:LPRINT "Fa=";F

890:END

[Contenu de la mémoire]

A	a (Anzahl der Faktoren)
B
C
D	Eingabe
E	j xij
F	φa, Fa
G
H
I	√
J
K
L	√
M
N	Anzahl der Wiederholungen
O	φe, φt
P	Se, Ve
Q
R
R	( xij)2/(an)
S	j (j xij)2/n, Sa, Va
T
U
V
W
X
Y
Z	x2ij St
A	Eingabemeldung
B	Eingabemeldung

STATUS 1

415

SHARP

PROGRAMMNAME: DOPPELSEITIGE PLANUNG OHNE WIEDERHOLUNG					PROGRAMM-NR.P5-B-10	1
					CE-150 erforderlich
[ Überblick ]
Dieses Programm führt die Analyse von Varianten mit doppelseitiger Planung ohne Wiederholung aus.
[ Anleitung zum Betrieb ]
Eingabe: 1. ProgrammstartDas Programm startet man durch Drücken der Tasten DEF A.2. Eingabe der FaktorendimensionenDie Dimensionen von Faktor A (Anzahl der A-Stufen) mit ,,a=“ eingeben.Die Dimensionen von Faktor B (Anzahl der B-Stufen) mit ,,b=“ eingeben.3. Dateneingabei = 1 ~ a, j = 1 ~ bDie Daten mit ,,x(i,j)=“ eingeben.Ausgabe: Variationen, Freiheitsgrade, unverfälschte Varianzen und unverfälschte Varianzverhältnisse.
[ Beispiel ]
	B	B1	B2	B3	B4
	A1	-15	-11	-29	3
	A2	-11	-9	-3	-7
	A3	-7	-1	7	19
	A4	9	41	21	48
[ Inhalt ] (Formeln)Anzahl der Stufen je Faktor: a, bDaten: xij (i = 1 ~ a, j = 1 ~ b) Anzahl der Daten: ab
1. [X] = x2 . / ab 2. SA=[A] - [X] 3. φA = a - 1[A] = x2j /b SB=[B] - [X] φA = b - 1[B] = x2 . j /a ST=[ABS] - [X] φE = ab - a - b - 1[ABS] = x2 ij SE=[ABS] - [A] - [B] φT = ab - 1
4. {V} = {S} / {φ} 5. {F} = {V} / {VE}VT wird nicht berechnet. FT und FE werden nicht berechnet.

PROGRAMMNAME: DOPPELSEITIGE PLANUNG OHNE WIEDERHOLUNG

PROGRAMM-NR.P5-B-10

2

[Expression]

Sa= 4333.1875

Sb= 1051.1875

Se= 849.5625

St= 6233.9375

DFa= 3

DFb= 3

DFe= 9

DFt= 15

Va= 1444.395833

Ub= 350.3958333

Ve= 94.39583333

Fa= 15.3014787

Fb= 3.711984109

[Touche]

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF A	a = _	Dimensionen von Faktor A
2	4 ENTER	b = _	Dimensionen von Faktor B
3	4 ENTER	x(1, 1) = ?	Daten
4	-15 ENTER	x(1, 2) = ?	Mehrmalige Dateneingabe
⋮	⋮	⋮
18	21 ENTER	x(4,4) = ?
19	48 ENTER	>

PROGRAMMNAME:

DOPPELSEITIGE PLANUNG OHNE WIEDERHOLUNG

PROGRAMM-NR.P5-B-10

3

[Listing du programme]

10:"A":CLEAR:CLS:WAIT 020:INPUT "a=";A:INPUT "b=";B40:DIM O(B-1)50:P=0:J=075:B=STR(I+1)+", "+STR(J+1)76:A="x(" +B+")="77:PRINT A;

700:P=P/0710:O=A*B-1:LPRINT"DFt=";0720:LPRINT "Ua=";S730:LPRINT "Ub=";T800:LPRINT "Ve=";P810:F=S/P:LPRINT"Fa=";F820:F=T/P:LPRINT"Fb=";F890:END

80: INPUT E: CLS 170:Z=Z+E*E 180:0(J)=0(J)+E 190:P=P+E

200: IF J<>B-1LET J STATUS 1=J+1:GOTO 75

575

210:S=S+P*P 220:R=R+P

230: IF I<>A-1LET I=1+1:GOTO 50

240:R=R*R/(A*B) 250:S=S/B 260:FOR I=0TO B-1

270:T=T+O(I)*O(I):NEXT I

300:T=T/A

430: S=S-R:LPRINT "Sa=";S

440:T=T-R:LPRINT "Sb=";T

510:Z=Z-R

520:P=Z-S-T:LPRINT

"Se=";P:LPRINT

"St=";Z

530:F=A-1:LPRINT "DFa=";F

540:S=S/F

550: G=B-1:LPRINT "DFb=";G

560:T=T/G

690; 0=(A-1)*(B-1);

LPRINT "DFe=";

0

[ Contenu de la mémoire ]

A	a (Anz. der Faktoren)
B	b (Anz. der Faktoren)
C
D
E	Für Eingabe
F	φa Fa Fb
G	φb
H
I	√
J	√
K
L
M
N
O	φe φx
P	Σxi. Se Ve
Q
R	Σx2 ../ab
S	Xx2j./b Sa Va
T	ΣO(I)2/a Sb Vb
U
V
W
X
Y
Z	Σx2 ij St
A
B	Eingabe-Meldung
O(B-1)	Berechnung von Σx2 .j

SHARP

PROGRAMMNAME: DREISEITIGE PLANUNG OHNE WIEDERHOLUNG

PROGRAMM-NR.P5--B-12

1

[ Aperçu ]

CE-150 requis

Ce programme permet l'analyse de variances avec planification à trois facteurs sans répétition.

[ Instructions d'utilisation ]

Entrée : 1. Démarrage du programme

Pour démarrer l'exécution du programme, appuyez sur DEF A.

1. Saisie des dimensions des facteurs

Avec « a= », saisir la dimension du facteur A (nombre de niveaux de A).

Avec « b= », saisir la dimension du facteur B (nombre de niveaux de B).

Avec « c= », saisir la dimension du facteur C (nombre de niveaux de C).

1. Saisie des données

i = 1 a, j = 1 b, k = 1 c

(Ces valeurs sont déterminées par les valeurs saisies à l'étape 2).

Saisir les données avec « X(i, j, k)= ».

Sortie : variations, degrés de liberté, variances non biaisées et rapports de variances non biaisés.

[ Exemple ]

Tag	Experimeter	Thermometer				Summe
		C1	C2	C3	C4
A1	B1	2.0	1.0	-0.5	1.5	7.0
	B2	1.0	0.0	-1.0	-1.0
	B3	1.5	1.0	1.0	0.5
A2	B1	1.5	1.5	0.5	1.5	11.5
	B2	1.0	1.0	0.0	0.0
	B3	1.0	1.5	1.0	1.0
	Summe	8.0	6.0	1.0	3.5	18.5

PROGRAMMNAME: DREISEITIGE PLANUNG OHNE WIEDERHOLUNG		PROGRAMM-NR.P5-B-12	2
[Inhalt] (Formeln)Anzahl der Faktorstufen: a, b und cDaten: [Xijk] (i = 1 ~ a, j = 1 ~ b, k = 1 ~ c) Anzahl der Daten: abc
1. [X] = x2 ... /abc	2. SA = [A] - [X]
[A] = x2i ... /bc	SB = [B] - [X]
[B] = x2.j ... /ac	SC = [C] - [X]
[C] = x2 ... k /ab	SAXB = [AB] - [X] - SA - SB
[AB] = x2ij ... /c	SBXC = [BC] - [X] - SB - SC
[BC] = x2.jk /a	SAXC = [AC] - [X] - SA - SC
[AC] = x2i.k /a	ST = [ABCS] - [X]
[ABCS] = x2i.k /b	SE = ST - SA - SB - SC - SAXB - SAXC - SBXC
3. φA = a - 1	4. {V} = {S} / {φ}
φB = b - 1	VT wird nicht berechnet.
φC = c - 1	5. {F} = {V} / VE
φAXB = φA φB	FT und FE werden nicht berechnet.
φAXC = φA φC
φBXC = φB φC
φE = φA φB φC
φT = abc - 1
[Ausdruck]Sa= 0.84375Sb= 5.02083333Sc= 4.61458333Sa*b= 0.4375Sa*c= 1.03125Sb*c= 2.72916667Se= 0.3125St= 14.98958333DFa= 1DFb= 2DFc= 3DFa*b= 2DFa*c= 3DFb*c= 6DFe= 6DFt= 23	Ua= 0.84375Ub= 2.510416665Uc= 1.538194443Ua*b= 0.21875Ua*c= 0.34375Ub*c= 4.548611117E-01Ve= 5.208333333E-02Fa= 16.2Fb= 4B.19999997Fc= 29.53333331Fa*b= 4.2Fa*c= 6.6Fb*c= 8.733333345

PROGRAMMNAME: DREISEITIGE PLANUNG OHNE WIEDERHOLUNG

PROGRAMM-NR.P5-B-12

3

[ Touches à presser ]

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF A	a = _	Dimensionen von Faktor A
2	2 ENTER	b = _	Dimensionen von Faktor B
3	3 ENTER	c = _	Dimensionen von Faktor C
4	4 ENTER	X(1, 1, 1) = ?
5	2.0 ENTER	X(1, 1, 2) = ?	Mehrfache Dateneingabe
	⋮	⋮	⋮
27	1.0 ENTER	X(2, 3, 4) = ?
28	1.0 ENTER	>	Ausdruck

[ Listing du programme ]

10:"A":CLEAR:CLS:WAIT 0

20:INPUT "a=";A::INPUT "b=";B

30:INPUT "c=";C

40:DIM F(B-1,C-1),G(A-1,C-1),Q(C-1),O(B-1)

50:P=0:J=0

60:H=0:K=0

75:B=STR(I+1)+",+STR(J+1)+",+STR(K+1)

76:A="X("+B+")=""

77:PRINT A$;

80:INPUT E:CLS

10:Z=Z+E*E

20:F(J,K)=F(J,K)+E

30:G(I,K)=G(I,K)+E

40:Q(K)=Q(K)+E

50:H=H+E

60:IF K<>C-1LET K=K+1:GOTO 75

70:U=U+H*H

80:O(J)=O(J)+H

90:P=P+H

10:IF J<>B-1LET J=J+1:GOTO 60

10:S=S+P*P

20:R=R+P

30:IF I<>A-1LET I=I+1:GOTO 50

40:R=R*R/(A*B*C)

50:S=S/(B*C)

60:FOR I=0TO B-1

70:T=T+O(I)*O(I):NEXT I

80:FOR I=0TO C-1

90:U=U+Q(I)*Q(I):NEXT I

300: T=T/(A*C): U=U/(A*B)

310: U=U/C

320: FOR I=0TO A-1

330: FOR J=0TO C-1

340: W=W+G(I,J)*G(I,J)

350: NEXT J:NEXT I

360: FOR I=0TO B-1

370: FOR J=0TO C-1

380: X=X+F(I,J)*F(I,J)

390: NEXT J:NEXT I

400: W=W/B:X=X/A

430: S=S-R:LPRINT "Sa=";S

440: T=T-R:LPRINT "Sb=";T

450: U=U-R:LPRINT "Sc=";U

460: U=U-R-S-T:LPRINT "Sa*b=";V

470: W=W-R-S-U:LPRINT "Sa*c=";W

480: X=X-R-T-U:LPRINT "Sb*c=";X

510: Z=Z-R

520: P=Z-S-T-U-V-W-X:LPRINT "Se=";P:LPRINT "St=";Z

530: F=A-1:LPRINT "DFa=";F

540: S=S/F

550: G=B-1:LPRINT "DFb=";G

560: T=T/G

570: H=C-1:LPRINT "DFc=";H

580: U=U/H

590:0=F*G:LPRINT "DFa*b=";0

600:U=U/0

610:0=F*H:LPRINT "DFa*c=";0

620:W=W/0

630:0=G*H:LPRINT "DFb*c=";0

640:X=X/0

690:0=F*G*H:LPRINT"DFe=";0

700:P=P/0

710:0=A*B*C-1:LPRINT "DFt=";0

720:LPRINT "Ua=";S

730:LPRINT "Ub=";T

740:LPRINT "Uc=";U

750:LPRINT "Ua*b=";U

760:LPRINT "Ua*c=";W

770:LPRINT "Ub*c=";X

800:LPRINT "Ue=";P

810:F=S/P:LPRINT "Fa=";F

820:F=T/P:LPRINT "Fb=";F

830:F=U/P:LPRINT "Fc=";F

840:F=U/P:LPRINT "Fa*b=";F

850:F=W/P:LPRINT "Fa*c=";F

860:F=X/P:LPRINT "Fb*c=";F

890:END

PROGRAMMNAME: DREISEITIGE PLANUNG OHNE WIEDERHOLUNG

PROGRAMM-NR.P5-B-12

4

[ Contenu de la mémoire ]

A	a (Anzahl der Faktoren)	AS	Eingabe-Meldung
B	b (Anzahl der Faktoren)	B	Eingabe-Meldung
C	c (Anzahl der Faktoren)	C
D		D
E	Für Eingabe	E
F	φa Fa ~ Fbc	F		F(B-1,C-1)	Berechnung von\Sigma x^2 \cdot jk
G	\phi_b	GS		G(A-1,C-1)	Berechnung von\Sigma x^2 j \cdot k
H	\Sigma x_{ij}\phi_c	HS
I	√	IS
J	√	JS
K	√	KS
L		L
M		MS
N		NS
O	φaxb, φaxc, φbxc, φc, φt	OS		O(B-1)	Berechnung von x2 · jk
P	xi.. Se Ve	PS
Q		QS		Q(C-1)	Berechnung von x2 i · k
R	x2.../(a.b.c)	RS
S	x2j.../(b.c), Sa, Va	SS
T	O(i)2/ac, Sb, Vb	TS
U	Q(i)2/ab, Sc, Vc	US
V	x2ij/c, Saxb, Vaxb	VS
W	G(i,j)2/b, Saxc, Vaxc	WS
X	F(i,j)2/a, Sbxc, Vbxc	XS
Y		YS
Z	x2ijk, St	Z$

SHARP

PROGRAMMNAME: - R KONTROLLKARTE	PROGRAMM-NR.P5-B-14	1
	CE-150, CE-151 und Kassettenrecorder erforderlich
[ Überblick ]Die Vertrauensgrenze (Kontrollgrenze) wird auf Daten basierend festgelegt, um eine -R-Kontrollkarte herzustellen.Mit diesem Programm sind auch die Ausgaben von (Mittelwert) und R (Bereich) für jede Datengruppe möglich.
[ Anleitung zum Betrieb ]DEF A : Für Dateneingabe.DEF B : Dient zum Abändern und Überprüfen der Daten, desgleichen zum Auffinden von (Mittelwert) und R (Bereich).DEF C : Zum Vorgeben von Koeffizienten in einer Tabelle für -R Vertrauensgrenzen-Berechnung, und um die Ausgabe einer Mittellinie, der oberen und der unteren Vertrauensgrenze zu ermöglichen.DEF F : Zur Herstellung der -R-Kontrollkarte.
[ Inhalt ] (Formeln)1. Der Mittelwert jeder einzelnen Gruppe wird berechnet. = Gesamtdaten jeder Gruppe/Anzahl der Daten 2. Der Bereich R wird berechnet.R = Maximalwert jeder Gruppe – Minimalwert jeder Gruppe3. Der gesamte Mittelwert wird berechnet. = Gesamtsumme der Mittelwerte/Anzahl der Gruppen 4. Der gesamte Bereich wird berechnet. = des Bereichs der Gruppen 5. Kontrollinien der -KontrollkarteMittellinie CL = Obere Vertrauensgrenze UCL = + A2 Untere Vertrauensgrenze LCL = - A2 A2 = Koeffizient 6. Kontrollinien der -KontrollkarteMittellinie CL = Obere Vertrauensgrenze UCL = D4 Untere Vertrauensgrenze LCL = D3 (D3= 2 – D4) D3 und D4= Koeffizienten7. Dateiname (auf Kassette): „X–R DATA“.
PROGRAMMNAME: - R KONTROLLKARTE	PROGRAMM-NR.P5-B-14	2

Tableau III-3

GruppeGrößen	A2	D3	D4
2	1.880	0	3.268
3	1.023	0	2.574
4	0.729	0	2.288
5	0.577	0	2.114
6	0.483	0	2.004
7	0.419	0.076	1.924
8	0.373	0.136	1.864
9	0.337	0.184	1.816
10	0.308	0.223	1.777

[ Exemple ]

1. La carte de contrôle X-R est créée à partir de la prochaine fiche technique.

Gruppen-nummer	Gemessene Werte
	x1	x2	x3	x4	x5
1	4	6	6	6	5
2	5	5	5	9	4
3	8	10	13	9	5
4	10	8	2	3	2
5	5	3	4	4	4
6	3	3	4	4	2
7	4	8	11	10	12
8	8	3	12	12	10
9	4	4	5	3	3
10	5	3	4	8	5
11	3	12	12	13	5
12	5	5	13	10	5
13	4	11	4	3	4
14	3	3	3	3	10
15	11	6	10	5	12
16	8	8	5	6	5
17	3	4	4	3	4
18	3	3	3	3	3
19	8	12	8	10	7
20	4	8	4	3	4

PROGRAMMNAME: - R KONTROLLKARTE			PROGRAMM-NR.P5-B-14	3
[Ausdruck]
*GRUPPE= 1	*GRUPPE= 6	*GRUPE= 11	*GRUPPE= 16
1 4	1 3	1 3	1 8
2 6	2 3	2 12	2 8
3 6	3 4	3 12	3 5
4 6	4 4	4 13	4 6
5 5	5 2	5 5	5 5
MITTEL 5.4	MITTEL 3.2	MITTEL 9	MITTEL 6.4
R 2	R 2	R 10	R 3
*GRUPPE= 2	*GRUPPE= 7	*GRUPPE= 12	*GRUPPE= 17
1 5	1 4	1 5	1 3
2 5	2 8	2 5	2 4
3 5	3 11	3 13	3 4
4 9	4 10	4 10	4 3
5 4	5 12	5 5	5 4
MITTEL 5.6	MITTEL 9	MITTEL 7.6	MITTEL 3.6
R 5	R 8	R 8	R 1
*GRUPPE= 3	*GRUPPE= 8	*GRUPPE= 13	*GRUPPE= 18
1 8	1 8	1 4	1 3
2 10	2 3	2 11	2 3
3 13	3 12	3 4	3 3
4 9	4 12	4 3	4 3
5 5	5 10	5 4	5 3
MITTEL 9	MITTEL 9	MITTEL 5.2	MITTEL 3
R 8	R 9	R 8	R 0
*GRUPPE= 4	*GRUPPE= 9	*GRUPPE= 14	*GRUPPE= 19
1 10	1 4	1 3	1 8
2 8	2 4	2 3	2 12
3 2	3 5	3 3	3 8
4 3	4 3	4 3	4 10
5 2	5 3	5 10	5 7
MITTEL 5	MITTEL 3.8	MITTEL 4.4	MITTEL 9
R 8	R 2	R 7	R 5
*GRUPPE= 5	*GRUPPE= 10	*GRUPPE= 15	*GRUPPE= 20
1 5	1 5	1 11	1 4
2 3	2 3	2 6	2 8
3 4	3 4	3 10	3 4
4 4	4 8	4 5	4 3
5 4	5 5	5 12	5 4
MITTEL 4	MITTEL 5	MITTEL 8.8	MITTEL 4.6
R 2	R 5	R 7	R 5

PROGRAMMNAME: - R KONTROLLKARTE

PROGRAMM-NR.P5-B-14

4

[ Impression ]

** × **

LCL = 3,00075

CL = 6,03

UCL = 9,05925

CARTE DE CONTRÔLE X

CARTE DE CONTRÔLE R

LCL CL UCL

** R **

LCL = 0

CL = 5,25

UCL = 11,10375

L'impression est en couleur.

[Touche] : -R

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF A	DATA CLOAD?(Y/N)_
2	Y ENTER	>	Die Verarbeitung endet nach der Dateneingabe von der Kassette.
	N ENTER	ANZAHL DER DATEN=_
3	5 ENTER	ANZAHL DER GRUPPEN=_
4	20 ENTER	GRUPPE=1, DATEN=?
5	4 ENTER	GRUPPE=1, DATEN=?
⋮	⋮	⋮	Wiederholte Dateneingabe

PROGRAMMNAME: - R KONTROLLKARTE

PROGRAMM-NR.P5-B-14

5

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
25	4 ENTER	DATA CSAVE? (Y/N)_
26	Y ENTER	>	Verarbeitung endet nach Datenausgabe an Kassette.
	N ENTER	>	Mit dem Drücken dieser Taste ist die Verarbeitung beendet.

[Touche] : Vérification et correction des données, impression de la valeur de la limite de confiance et impression de la carte de contrôle -R.

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF B	UBERPRUF., KORR.?(U/K)
2	U ENTER	DATA CSAVE? (Y/N)_	→ Schritt 6Nach Ausgabe der Liste zur Überprüfung erscheint diese Anzeige.
	K ENTER	*GRUPPE = _	→ Schritt 3
	ENTER	>	Durch Drücken nur dieser Taste wird die Verarbeitung beendet.
3	1 ENTER	ANZAHL = _	→ Schritt 4
	ENTER	UBERPRUF., KORR.? (U/K)	→ Schritt 2Gesamtberechnung und Anzeige
4	1 ENTER	DATEN = _	→ Schritt 5
	ENTER	*GRUPPE = _	→ Schritt 3
5	4 ENTER	ANZAHL= _	→ Schritt 4
6	Y ENTER	>	Die Verarbeitung endet nach der Datenausgabe an Kassette.
	N ENTER	>	Verarbeitung ist beendet.
7	DEF C	>	Verarbeitung endet mit dem Ausdruck von CL, UCL und LCL.
8	DEF F	>	Die Verarbeitung endet mit dem Ausdruck der X-R-Kontrollkarte.

PROGRAMMNAME: - R KONTROLLKARTE

PROGRAMM-NR.P5-B-14

6

[Liste du programme]

10:"A";CLEAR:WAIT:DIM Y(8,1)

12:INPUT "DATA CLOAD?(Y/N)";A

14:IF (A="Y")+(A="N")<>1GOTO12

15:WAIT 0

16:IF A="Y"GOTO132

20:INPUT "ANZAHLDER DATEN=";M

30:IF (2<=M)+(M<=10)<>2GOTO 20

50:INPUT "ANZAHLDER GRUPPEN=";N:DIM X(M+1,N-1)

60:FOR A=0TO N-1

65:Z1=-10^8:Z2=10^8

70:FQR B=0TO M-1

80:CLS :A="GRUPE="+STR(A+1)+",DATEN="

90:CLS :PRINT A;

100:INPUT X(B,A)

105:X(M,A)=X(M,A)+X(B,A)

107:IF Z1(X(B,A)LET Z1=X(B,A)

108:IF Z2>X(B,A)LET Z2=X(B,A)

110:NEXT B:CLS

115:X(M,A)=X(M,A)/M

117:X(M+1,A)=Z1-Z1

120:NEXT A

122:WAIT :INPUT "DATA CSAVE?(Y/N)";A

123:IF (A="Y")+(A="N")<>1GOTO122

124:WAIT 0:IF A$="N"GOTO 130

126:PRINT #"X-R D TEN";M,N

128:PRINT #"X-R D TEN";X(*)

130:CLS :END

132: CLEAR :WAIT :INPUT #"X-R DATEN";M,N

134:DIM X(M+1,N-1),Y(8,1)

136: INPUT #"X-R DATEN";X(*):END

140:"B":WAIT 0:INPUT "UBERPRUF.,KORR.?(U,K) ";N:GOTO 160

150:END

160:IF (N="U")+(N="K")<>1GOTO140

170:IF N="U"GOTO270

180:INPUT "*GRUPPE=";A:GOTO 200

190:GOTO 250

200:IF (1<=A)+(A<=N)<>2GOTO 180

220:INPUT "ANZAHL=";B:GOTO 240

230:GOTO 180

240:IF (1<=B)+(B<=M)<>2GOTO 220

245:INPUT "DATEN=";X(B-1,A-1):GOTO 220

250:FQR A=0TO N-1

252:X(M,A)=0:Z1=-10^8:Z2=10^8

254:FQR B=0TO M-1

256:IF Z1<X(B,A)LET Z1=X(B,A)

257:IF Z2>X(B,A)LET Z2=X(B,A)

258:X(M,A)=X(M,A)+X(B,A)

259:NEXT B:X(M,A)=X(M,A)/M

260:X(M+1,A)=Z1-Z2:NEXT A:GOTO 140

262:WAIT :INPUT "DATA CSAVE?(Y/N)";A

263:IF (A="Y")+(A$="N")<>1GOTO262

264:WAIT 0:IF A$="N"END

265:PRINT #"X-R DATEN";M,N

266:PRINT #"X-R DATEN";X(*);END

270:FOR A=0TO N-1

280:LF 1:LPRINT "*GRUPPE=";A+1

290:FOR B=0TO M-1

300:LPRINT USING "###";B+1;

305:USING :LPRINTX(B,A)

310:NEXT B

315:LPRINT "MITTEL";X(M,A)

317:LPRINT " R ";X(M+1,A)

320:NEXT A

330:GOTO 262

340:"C":Y(0,0)=1.880:Y(0,1)=3.267

350:Y(1,0)=1.023:Y(1,1)=2.575:Y(2,0)=0.729:Y(2,1)=2.282

360:Y(3,0)=0.577:Y(3,1)=2.115:Y(4,0)=0.483:Y(4,1)=2.004

370:Y(5,0)=0.419:Y(5,1)=1.924:Y(6,0)=0.373:Y(6,1)=1.864

380:Y(7,0)=0.337:Y(7,1)=1.816:Y(8,0)=0.308:Y(8,1)=1.777

390:LF 1

400:H=0:P=0

410:FOR A=0TO N-1

420:G=X(0,A):L=X(0,A):S=X(0,A)

430:FOR B=1TO M-1

440:G=G+X(B,A)

450:IF L(X(B,A)LETL=X(B,A)

460:IF S>X(B,A)LETS=X(B,A)

470:NEXT B

(à suivre)

PROGRAMMNAME: - R KONTROLLKARTE		PROGRAMM-NR.P5-B-14	7
[Programmlisting]
480:R=L-S:G=G/M:H=H+G:P=P+R490:NEXT A500:U=P/N:T=H/N510:LPRINT "** X **"520:D=2-Y(M-2,1):D1=D:IF D<0LET0=0530:XC=T:XL=T-(Y(M-2,0)*U):XU=T+(Y(M-2,0)*U)550:LPRINT "LCL=";XL552:LPRINT "CL=";XC554:LPRINT "UCL=";XU556:LF 1:LPRINT "* R **"560:RC=U:RL=D*U:RU=Y(M-2,1)*U570:LPRINT "LCL=";RL572:LPRINT "CL=";RC574:LPRINT "UCL=";RU580:END590:"F":LF 2:COLOR3:LPRINT "X KO NTROLLKARTE"600:COLOR 2:LPRINT "R KONTROLLKARTE"610:GRAPH620:COLOR 0:ROTATE0630:GLCURSOR (10,-50):LPRINT "LC L"640:GLCURSOR (90,-50):LPRINT "CL"650:GLCURSOR (160,-50):LPRINT "U CL"660:GLCURSOR (100,-80):SORGN670:LINE (-75,0)-(75,0),0,1	690:LINE (75,0)-(75,-480),1,1690:LINE (75,-480)-(-75,-480),0,1700:LINE (-75,-480)-(-75,0),1,1710:LINE (0,0)-(0,-480),0,1720:F=450/N:DX=Y(M-2,0)*U/75:COLOR 3730:X1=X(M,0)770:Y1=-F775:COLOR 3:T1=XC780:FOR B=1TO N790:IF B=NGOTO 840800:X2=X(M,B):Y2=Y1-F840:GOSUB 6000850:X1=X2:Y1=Y2860:NEXT B870:COLOR 2910:X1=X(M+1,0):Y1=-F920:DA=0:IF X1>RCLET DA=(RU-RC)/75:GOTO 940930:IF X1(RCLET DA=(RC-D1)/75940:TI=RC950:FOR B=1TO N960:IF B=NGOTO 101.0970:X2=X(M+1,B):Y2=Y1-F980:DB=0:IF X2>RCLET DB=(RU-RC)/75:GOTO 1010990:IF X2(RCLET DB=(RC-D1)/751010:GOSUB 70001020:X1=X2:Y1=Y2:DA=DB1030:NEXT B1040:GLCURSOR (0,-500):CSIZE2:COLOR 0:TEXT ;END	6000:X3=(X1-T1)/DX:LINE (X3-2,Y1+2)-(X3+2,Y1-2)6010:LINE (X3-2,Y1-2)-(X3+2,Y1+2)6020:CSIZE 1:LPRINT B6030:IF B=NRETURN6040:X4=(X2-T1)/DX:LINE (X3,Y1)-(X4,Y2)6050:RETURN7000:X3=(X1-T1)/DA:LINE (X3-2,Y1+2)-(X3+2,Y1-2)7010:LINE (X3-2,Y1-2)-(X3+2,Y1+2)7020:CSIZE 1:LPRINT B7030:IF B=NRETURN7040:X4=(X2-T1)/DB:LINE (X3,Y1)-(X4,Y2)7050:RETURNSTATUS 13037

[Contenu de la mémoire]

A	Zähler für Anzahl der Gruppen	A	√	X(B,A)	Eingabedaten
B	Zähler für Anzahl der Daten	B		Y(8,1)	Faktorenwert
C		C		XL	X-Mittellinie
D	LCL-Koeffizient von R	D		XC	X-Mittellinie
E		E		XU	X-Mittellinie
F	Y-Koordinate ist Grafik-Faktor	F		RL	R untere Vertrauensgrenze
G	Gruppenmittelwert	G		RC	R Mittellinie
H	Gesamtwert aller Mittelwerte	H		RU	R obere Vertrauensgrenze
I		I		X1	X-Koordinate 1
J		J		X2	X-Koordinate 2
K		K		X3	X-Koordinate 3
L	Gruppen-Maximalwert	L		X4	X-Koordinate 4
M	Anzahl der Daten	M		Y1	Y-Koordinate 1
N	Anzahl der Gruppen	N	√	Y2	Y-Koordinate 2
O		O		DA	X-Koordinate Grafik-Faktor
P	Gesamtbereich	P		DB	“
Q		Q		T1	RC
R	Gruppenbereich	R		D1	D
S	Gruppen-Mindestwert	S		Z1	√
T	Mittelwert, insgesamt	T		Z2	√
U	Gesamtbereich	U		DX	√
V		V
W		W
X		X
Y		Y
Z		Z

PROGRAMMNAME: UMWANDLUNG EINER DREIECKSSCHALTUNG IN EINE STERNSCHALTUNG UND UMGEKEHRT

PROGRAMM-NR.P5-C-1

1

[Aperçu]

Ce programme permet de convertir les impédances d'un circuit en triangle en impédances équivalentes d'un circuit en étoile.

De même, il est possible de convertir les impédances d'un circuit en étoile en impédances équivalentes d'un circuit en triangle.

[Instructions d'utilisation]

Voir sous « Touche ».

[Exemple]

1) Conversion triangle → étoile

R _ 1 = 5 R _ 2 = 6 R _ 3 = 9 Z _ a = 1.76 - 0.13j

x _ 1 = 3 x _ 2 = -2 x _ 3 = 5 Z_b = 3.10 - 0.33j

Z _ c = 2.09 + 1.97j

2) Conversion étoile → triangle

Ra = 8 Rb = 9 Rc = 7 Z _ 1 = 1 4. 9 7 + 1 6. 6 5 j

xa = 3 xb = - 5 xc = 6 Z _ 2 = 2 3. 2 5 - 9. 2 1 j

Z _ 3 = 2 6. 9 7 - 0. 7 4 j

[Contenu] (Formules)

1) Conversion triangle → étoile

Z a = Z _ 1 · Z _ 2 [Ω] = Z _ 1 + Z _ 2 + Z _ 3

Z _ b = Z _ 2 · Z _ 3 [Ω] Z _ i = x _ i + y _ i

Z _ c = Z _ 3 · Z _ 1 [Ω]

PROGRAMMNAME: UMWANDLUNG EINER DREIECKSSCHALTUNG IN EINE STERNSCHALTUNG UND UMGEKEHRT

PROGRAMM-NR. P5-C-I

2

2) Conversion étoile → triangle

Z _ 1 = Δ/Zb [Ω] Δ = Z a · Z b + Z b · Z c + Z c · Z a Z _ 2 = Δ/Zc [Ω] Z _ i = x _ i + y _ i Z _ 3 = Δ/Za [Ω]

[Pression des touches] 1) Conversion triangle → étoile

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF A	Z1 R = _
2	5 ENTER	Z1 X = _
3	3 ENTER	Z2 R = _
4	6 ENTER	Z2 X = _
5	-2 ENTER	Z3 R = _
6	9 ENTER	Z3 X = _
7	5 ENTER	ZA
8	ENTER	1.761 ... -1.284 ... E-01	Ra, Xa
9	ENTER	ZB
10	ENTER	3.100 ... -3.302 ... E-01	Rb, Xb
11	ENTER	ZC
12	ENTER	2.091 ... 1.972 ...	Rc, Xc
13	ENTER	>

[Pression des touches] 2) Conversion étoile → triangle

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF B	ZA R = _
2	8 ENTER	ZA X = _
3	3 ENTER	ZB R = _
4	9 ENTER	ZB X = _
5	-5 ENTER	ZC R = _
6	7 ENTER	ZC X = _
7	6 ENTER	Z1
8	ENTER	14.97 ... 16.65 ...	R1, X1
9	ENTER	Z2 .
10	ENTER	23.24 ... -9.21 ...	R2, X2
11	ENTER	Z3
12	ENTER	26.97 ... -0.73 ...	R3, X3
13	ENTER	>

PROGRAMMNAME: UMWANDLUNG EINER DREIECKSSCHALTUNG IN EINE STERNSCHALTUNG UND UMGEKEHRT

PROGRAMM-NR.P5-C-1

3

[Listing du programme]

10: "A": T=0: S=0:DEGREE20: INPUT "Z1 R=";X30: INPUT "Z1 X=";Y40: GOSUB 40050: GOSUB 35060: B=U: C=V70: INPUT "Z2 R=";X80: INPUT "Z2 X=";Y90: GOSUB 40000: GOSUB 35010: D=U: E=U20: INPUT "Z3 R=";X30: INPUT "Z3 X=";Y40: GOSUB 40050: GOSUB 35060: F=U: G=U70: X=S: Y=T80: GOSUB 35090: H=U: I=U00: X=B*D/H: Y=C+E-I: GOSUB 45010: J=U: K=U20: X=D*F/H: Y=E+G-I30: GOSUB 45040: L=U: M=U50: X=B*F/H: Y=C+G-I50: GOSUB 45070: N=U: O=U30: USING :WAIT:PRINT "ZA":PRINT J, K90: PRINT "ZB":PRINT L, M00: PRINT "ZC ":PRINT N, O10: END50: U=∫(X*X+Y*Y)50: U=ACS (X/U)70: IF 0>YLET U=-U30: RETURN

400: S=X+S: T=Y+T410: RETURN450: U=X*COS Y: U=X*SIN Y460: RETURN505: "B": CLEAR510: DEGREE : INPUT"ZA R=";X520: INPUT "ZA X=";Y530: GOSUB 350540: B=U: C=U550: INPUT "ZB R=";X560: INPUT "ZB X=";Y570: GOSUB 350580: D=U: E=U590: INPUT "ZC R=";X600: INPUT "ZC X=";Y610: GOSUB 350620: F=U: G=U630: X=O: Y=O640: H=B*D: I=C+E650: X=X+H*X COS I660: Y=Y+H*X SIN I670: H=B*F: I=C+G680: X=X+H*X COS I690: Y=Y+H*X SIN I710: H=D*F720: I=E+G730: X=X+H*X COS I740: Y=Y+H*X SIN I750: GOSUB 350760: H=U: I=U770: X=H/B: Y=I-C780: J=X*X COS Y: K=X*SIN Y790: X=H/D: Y=I-E800: L=X*X COS Y: M=X*SIN Y810: X=H/F: Y=I-G820: N=X*X COS Y: O=X*SIN Y860: PRINT "Z1 ":PRINT L, M870: PRINT "Z2 ":PRINT N, O880: PRINT "Z3 ":PRINT J, K890: END

STATUS 1

[ Contenu de la mémoire ]

A
B	. R1/X1 ) 1	a
C
D	. R2/X2 ) 2	b
E
F	. R3/X3 ) 3	c
G
H		Δ
I
J	. Ra/Xa ) a	3
K
L	. Rb/Xb ) b	1
M
N	. Rc/Xc ) c	2
O
P
Q
R
S	√
T	√
U	√	| |
V	√	θ
W
X	√	√
Y	√	√
Z

PROGRAMMNAME: OFFENER UND RADIAL ANGEORDNETER POLYGONZUG

PROGRAMM-NR.P5-C-S

1

CE-150 requis

[ Aperçu ]

Avec ce programme, on peut déterminer l'azimut et les coordonnées de points individuels en entrant l'azimut initial, les coordonnées initiales et tous les angles et distances inclus.

[ Instructions d'utilisation ]

DEF A : Cheminement ouvert

D'abord, entrez l'azimut initial et les coordonnées. Ensuite, saisissez les angles aux points individuels et les distances.

En conséquence, l'azimut et les coordonnées peuvent être déterminés.

DEF B : Cheminement radial

D'abord, entrez l'azimut initial et les coordonnées.

Ensuite, saisissez les angles et les distances à partir des points de départ.

En conséquence, l'azimut et les coordonnées peuvent être déterminés.

[ Exemple ]

(Cheminement ouvert)

(Polygone radial)

X = 100 X₁ = 143.1825 X₂ = 130.0806

Y = 100 Y₁ = 125.4477 Y₂ = 195.4664

X = 200 m

Y = 200 m

[Contenu] (Formules)

A) Polygone ouvert

Azimut α_i=α_i+1+β+180-(360)

Coordonnées X_i=X_i-1+_i·α_i

Y_i = Y_i-1 + _i · α_i

PROGRAMMNAME: OFFENER UND RADIALANGEORDNETER POLYGONZUG

PROGRAMM-NR.P5-C-5

2

[Expression]

OFFEN		RADIAL
*TA=	110.2030	*TA=	110.2030
*TX=	100.0000	*TX=	200.0000
*TY=	100.0000	*TY=	200.0000
--1--		--1--
B=	100.1010	B=	95.1020
L=	50.1230	L=	50.1230
A=	30.3040	A=	25.3050
X=	143.1825	X=	245.2350
Y=	125.4477	Y=	221.5894
--2--		--2--
B=	250.0515	B=	123.4512
L=	71.2340	L=	71.2340
A=	100.3555	A=	54.0542
X=	130.0806	X=	241.7746
Y=	195.4664	Y=	257.6988

[Pression des touches]

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF A	OFFEN	Offener Polygonzug
2		TA = _	Anfangsazimuth
3	110.2030 ENTER	TX = _	Koordinaten
4	100 ENTER	TY = _
5	100 ENTER	B = _	Enthaltene Winkel an allen Punkten
6	100.1010 ENTER	L = _	Entfernung
7	50.123 ENTER	B = _
8	250.0515 ENTER	L = _
9	71.234 ENTER	B = _
10	ENTER	>	Verarbeitung ist beendet
1	DEF B	RADIAL	Radial angeordneter Polygonzug
2		TA = _	Anfangsazimuth
3	110.2030 ENTER	TX = _	Koordinaten
4	200 ENTER	TY = _
5	200 ENTER	B = _	Enthaltene Winkel an allen Punkten
6	95.1020 ENTER	L = _	Entfernung
7	50.123 ENTER	B = _
⋮	⋮
10	ENTER	>	Verarbeitung ist beendet.

PROGRAMMNAME: OFFENER UND RADIALANGEORDNETER POLYGONZUG

PROGRAMM-NR.P5-C-5

3

[Listing du programme]

10:"A": CLEAR

20:PAUSE "OFFEN": I=0

30:LPRINT "OFFEN":GOTO 70

40:"B": CLEAR

50:PAUSE "RADIAL": I=1

60:LPRINT "RADIAL"

70:DEGREE : INPUT "TA="; A, "TX="; B, "TY="; C

75:LPRINT USING "######.######"; "*TA="; A

76:LPRINT "*TX="; B

77:LPRINT "*TY="; C

80:IC=1

90:INPUT "B="; D: GOTO 100

95:END

100:INPUT "L="; E

110:F=DEG A+DEG D+180

120:IF DMS F>=360 LET F=DEG (DMS F-360):GOTO 120

130:G=B+E*COS F:H=C+E*SIN F

140:F=INT (DMS (F+0.00014)*10^4)/10^4

141:FO="--"+STR IC+"--"

142:LPRINT FO$

143:IC=IC+1

150:LPRINT USING "######.######"; "B= "; D

160:LPRINT "L="; E

170:LPRINT "A="; F

180:LPRINT "X="; G

190:LPRINT "Y="; H

200:IF I=OLET A=F; B=G:C=H

210:GOTO 90

STATUS 1

487

[ Contenu de la mémoire ]

A	TA
B	XA
C	YA
D	β
E
F	αi
G	Xi
H	Yi
I	Diskriminante
J
K
L
M
N
O
P
Q
R
S
T
U
V
W
X
Y
Z
FO$	Ausgabe-Meldung

PROGRAMMNAME:

BERECHNUNG VON KREDITHÖCHST-GRENZE UND RATENANZAHL

PROGRAMM-NR.P5-D-1

1

[ Aperçu ] (Domaine financier)

CE-150 requis

Ce programme calcule, sur la base de la capacité de remboursement, le montant maximal du crédit et le nombre de mensualités. Une gestion efficace du remboursement permet de minimiser les coûts.

[ Mode d'emploi ]

« A » : Le calcul du montant maximal du crédit est basé sur la capacité de remboursement (montant de la mensualité et nombre de mensualités). (Les fractions d'unités ne sont pas prises en compte.)

« B » : Le calcul du nombre de mensualités est également basé sur le montant du crédit et la capacité de remboursement.

[ Exemple ]

« A » : Déterminer le montant maximal du crédit avec une capacité de remboursement mensuelle de 150 000 unités monétaires (u.m.) à 12 % d'intérêts et une durée de 8 ans.

Saisie : Remboursement annuel = 150 000 x 12

Nombre de mensualités = 8

Intérêts annuels = 12 %

« B » : En supposant qu'un crédit de 3 millions d'u.m. soit remboursé avec une capacité de remboursement mensuelle de 100 000 u.m. à 12 % d'intérêts annuels, on calcule le nombre de mois nécessaires pour le remboursement.

Saisie : Crédit = 3 000 000

Mensualité = 100 000

Intérêts mensuels = 12/12%

[Contenu] (Formules)

	Berechnung der Kredithöchstgrenze	Berechnung der Ratenanzahl
Eingabe:	Einzelne Rate (Betrag: a)Anzahl der Raten (n mal)Zinsen (r %)	Kredit (Gesamtbetrag: A)Einzelne Rate (Betrag: a)Zinsen (r %)
Ausgabe:	Kredithöchstgrenze	Anzahl der Raten

Montant maximal du crédit = (Rⁿ-1)(R-1)· Rⁿ

Nombre de versements = a - (a - A · (R - 1))/ R

où R = 1 + r/100

PROGRAMMNAME:

BERECHNUNG VON KREDITHÖCHST-GRENZE UND RATENANZAHL

PROGRAMM-NR.P5-D-1

2

[Expression]

RATENANZ. =8.00	HOECHSTGRENZE=3,000,000
RATENHOEHE=1,800,000	RATENHOEHE=100,000
ZINSEN(%)=12.000	ZINSEN(%)=1.000
HOECHSTGRENZE=8,941,751	RATENANZ. =35.84

[Touche à presser]

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF A	RATENANZ. ? _
2	8 ENTER	RATENHOEHE ? _
3	150000 * 12 ENTER	ZINSEN (%) ? _
4	12 ENTER	>
5	DEF B	HOECHSTGRENZE ? _
6	3000000 ENTER	RATENHOEHE ? _
7	100000 ENTER	ZINSEN (%) ? _
8	1 ENTER	>

PROGRAMMNAME: BERECHNUNG VON KREDITHÖCHST-GRENZE UND RATENANZAHL

PROGRAMM-NR.P5-D-1

3

[Liste du programme]

10: "A" CLEAR :LF 2

20: INPUT "RATENAN Z. ? ";A

25:LPRINT "RATENA NZ. =",USING "###.##";A

30:GOSUB 400 35:J=(1+C/100)A 40: D=INT ((J-1)*B /(J*C/100)) 50:LPRINT "MONTANT MAXIMAL=" 55:LPRINT USING "

,

";D

60:LF 3:END 200:"B"CLEAR:LF 2 210: INPUT "MONTANT MAXIMAL? "; D 215:LPRINT "MONTANT MAXIMAL=": LPRINT USING "

,###;D

220:GOSUB 400 230: K=B/(B-D*C/100) 240: A=LOG K/LOG (1 +C/100) 250: LPRINT "NOMBRE DE VERSEMENTS=", USING "# ##, ##"; A 260:LF 3:END 400: INPUT "MONTANT DU VERSEMENT?"; B 405:LPRINT "MONTANT DU VERSEMENT=";LPRINT USING "#########

,###";B

410: INPUT "TAUX D'INTÉRÊT (%)";C 415:LPRINT "TAUX D'INTÉRÊT (%)",USING "#

.###";C

430: RETURN 440: END

STATUS 1

484

[ Contenu de la mémoire ]

AS	Ratenanzahl
B	Ratenhöhe
C	Zinsen (%)
D	Kredithöchstgrenze
E
F
G
H
I
J	Ausführung der Berechnung
K	Ausführung der Berechnung
L
M
N
O
P
Q
R
S
T
U
V
W
X
Y
Z

PROGRAMMNAME: ZINSESZINSBERECHNUNG FÜR JAHRESZAHLUNGEN

PROGRAMM-NR.P5-D-4

1

[ Aperçu ]

Ce programme calcule le taux d'intérêt composé pour des paiements annuels en fin et en début de période, ainsi que le montant impayé à la fin de chaque période.

[ Guide d'utilisation ]

DEF A : 1. Saisie du montant impayé à la fin de la période 2. Saisie du taux d'intérêt 3. Saisie de la période 4. Saisie du nombre de versements 5. Calcul des intérêts 6. Calcul de la période

DEF B : 1. Calcul du prix actuel dû à la fin de la période. 2. Calcul du prix actuel dû au début de la période

DEF D : 1. Montant impayé à la fin de la période

[ Exemple ]

1. Déterminer le taux d'intérêt composé à payer pour une durée de 9 ans sur 90 000 unités monétaires (UM) à la fin d'une période de 6 mois avec un taux d'intérêt de 5 %.
2. Déterminer le taux d'intérêt composé à payer pour une durée de 9 ans sur un montant de 20 000 UM au début de la période de 6 mois avec un taux d'intérêt de 5 %.
3. Un prêt de 5 millions d'UM est contracté à un taux d'intérêt de 8 % (avec deux échéances par an) et remboursé en 5 ans par versements avec intérêts composés semestriels. Quel est le montant du versement à la fin de la période ?
4. Unité d'intérêt : 1 (les fractions sont arrondies)

(Remarque : 1 et 2 sont définis simultanément, de sorte qu'on peut les comparer.)

[Contenu] (Formules)

Taux d'intérêt = Taux d'intérêt ÷ Nombre de versements ÷ 100

Y = 1 - ( Taux d'intérêt + 1) ^ - n n = Période de remboursement

Montant à payer à la fin de la période = Solde impayé × Y ÷ Taux d'intérêt

Montant à payer au début de la période = Solde impayé × Y ÷ Taux d'intérêt × (Taux + 1)

Solde impayé à la fin de la période = Solde impayé × Taux d'intérêt ÷ Y (Les fractions des montants sont arrondies.)

[Touches à presser]

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF A	AUSST. BTG. =	Dateneingabe
2	90000 ENTER	SATZ =
3	5 ENTER	PERIODE =
4	9 ENTER	ANZ. D. RATEN =
5	2 ENTER
6	DEF B	Z. Z. BTG. AM ENDE D. P.	Der am Periodenende zu zahlende Betrag wird angezeigt.
7	ENTER	1291803
8	ENTER	Z. Z. BTG. AM ANF. D. P.	Der am Periodenanfang zu zahlende Betrag wird angezeigt.
9	ENTER	1324098
10	DEF A	AUSST. BTG. =
11	5000000 ENTER	SATZ = _	Dateneingabe
12	8 ENTER	PERIODE = _
13	5 ENTER	ANZ. D. RATEN = _
14	2 ENTER
15	DEF D	AUSST. BTG. AM ENDE D. P.	Ausstehender Betrag am Ende der Periode wird angezeigt.
16	ENTER	616455

PROGRAMMNAME: ZINSESZINSBERECHNUNG FÜR JAHRESZAHLUNGEN

PROGRAMM-NR.P5-D-4

3

[Listing du programme]

10 : "A" : EFFACER

20 : SAISIR "SOLDE IMPAYÉ =" ; R

30 : SAISIR "TAUX =" ;

40 : SAISIR "PÉRIODE =" ; N

50 : SAISIR "NB. DE VERSEMENTS =" ; L

60 : I=(I/L)/100 : N= N*L

70: Y=1-(1+1)^(N)

80:END

100: "B": M=INT (R*Y /I+0.5)

110:WAIT:PRINT "Z Z. BTG. AM EN DE D. P."

115:CLS :PRINT M

120: S=INT (R*Y/I*(I+1)+0.5)

125:WAIT :PRINT "Z Z. BTG. AM AN F. D. P."

130:CLS :PRINT S

135: END

140: "D": A=INT (R*I /Y+0.5)

150: WAIT :PRINT "A USST. BTG. AM ENDE D. P."

155:CLS :PRINT A

160:END

STATUS 1

352

[Contenu de la mémoire]

A	Ausstehender Betrag am Ende der Periode
B
C
D
E
F
G
H
I	Zinssatz
J
K
L	Anzahl der Raten
M	Zu zahlender Betrag am Ende der Periode
N	Periode
O
P
Q
R	Ausstehender Betrag am Ende und am Anfang der Periode
S	Zu zahlender Betrag am Anfang der Periode
T
U
V
W
X
Y
Z

PROGRAMMNAME: VERKAUFSPREISKALKULATION

PROGRAMM-NR.P5-D-5

1

[Aperçu]

CE-150 requis

On commence par saisir et mémoriser les numéros de produits et les prix. Ensuite, on peut établir un devis en entrant uniquement les quantités et les taux de remise ou les montants de remise des produits souhaités. Jusqu'à 35 articles peuvent être enregistrés.

[Instructions d'utilisation]

: Pour mémoriser et modifier. Pour la mémorisation, on saisit les articles à enregistrer. Les désignations de produits et les prix peuvent être modifiés.

: Pour imprimer toutes les désignations de produits et les prix enregistrés.

: On rappelle les désignations de produits nécessaires et on saisit les quantités et les taux de remise ou les montants de remise.

[Exemple]

1. Bestandsliste:	Produktbezeichnung	Preis	Beim Produkt A-15 beträgt der Rabattsatz 10% für die Menge 5.
	A-11	1.000
	A-12	2.000
	A-13	3.000	Bei A-15 beträgt der Rabatt 3000 für die Menge 15.
	A-14	4.000
	A-15	5.000	Zum Ausdruck der Ergebnisse tastet man diese Daten den Hinweisen unter „Tastenbetätigung“ entsprechend ein.
	B-11	1.100
	B-12	2.200
	B-13	3.300
	B-14	4.400
	B-15	5.500

1. Si le nombre total d'articles saisis dépasse celui des articles précédemment enregistrés, le message « REG. NR. ÜBER. » s'affiche. Dans ce cas, saisissez à nouveau les données.
2. Le nombre maximal de caractères pour les désignations de produits est de 16.

[Contenu] (Formules)

A ... 12 ...... (A)			A = Produktbezeichnung
@	2.000 ... (B)		B = Preis
*	10 ... (C)		C = Menge
=	20.000 ... (D)		D = Preis × Menge
	-1.000 ... (E)		E = D × Rabattsatz/100 bzw. Rabattbetrag
	19.000 ... (F)		F = D - E

• Les numéros d'enregistrement dans la liste d'inventaire sont attribués automatiquement.

PROGRAMMNAME: VERKAUFSPREISKALKULATION			PROGRAMM-NR.P5-D-5	2
[Ausdruck]
* BESTANDSLISTE *		* EINZELHEITEN *
1 A-11		A-15
	1,000	Q 5,000
2 A-12		* 5
	2,000	= 25,000
3 A-13			-2,500
	3,000		22,500
4 A-14		A-12
	4,000	Q 2,000
5 A-15		* 15
	5,000	= 30,000
6 B-11			-3,000
	1,100		27,000
7 B-12		A-13
	2,200	Q 3,000
8 B-13		* 10
	3,300	= 30,000
9 B-14			30,000
	4,400	SUMME
10 B-15			79,500
	5,500

PROGRAMMNAME: VERKAUFSPREISKALKULATION

PROGRAMM-NR.P5-D-S

3

[Action sur les touches]

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF A	REG.=I, AEND.=2	Falls 2 eingegeben wird, über-springt man die nächsten Schritte bis Schritt 24 einschließlich.
2	1 ENTER	MAX. ANZ.D.POSTEN=_
3	10 ENTER	PROD. BZ. = _	Der Anzahl der Eingaben entsprechend wiederholen.
4	A-11 ENTER	PREIS = _
5	1000 ENTER	PROX. BZ. = _
23	5500 ENTER	REGISTERENDE
24	2 ENTER	AEND. NR.=_
25	4 ENTER	A-44 = ? _	Falls keine Änderung vor-genommen wird, drückt man nur die ENTER -Taste.
26	A-14 ENTER	4400 = ? _	Für inhaltliche Änderungen drückt man (Inhalt) ENTER
27	4000 ENTER	AEND. NR.=_
28	ENTER	>	Falls weitere Änderungen erforderlich sind, die Register-Nr. eintasten.
29	DEF B	>	Ausdruck der Bestandsliste
30	DEF C	REGISTER NR. = _
31	5 ENTER	MENGE = _
32	5 ENTER	RABATTSATZ = _	Den Rabattsatz in Prozent eintasten.
33	10 ENTER	REGISTER NR. = _
34	2 ENTER	MENGE = _
35	15 ENTER	RABATTSATZ = _
36	ENTER	RABATTBETRAG = _
37	3000 ENTER	REGISTER NR. = _	Wenn der Rabattbetrag eingetastet wird.
38	3 ENTER	MENGE = _
39	10 ENTER	RABATTSATZ = _	Kein Rabatt.
40	ENTER	RABATTBETRAG = _
41	ENTER	REGISTER NR. = _
42	ENTER	>	Nach vollendeter Ausführung Ausdruck der Summe.

[Liste du programme]

10:"A":WAIT 0

20:INPUT "REG.=1, AEND.=2 ";X

30:IF (X="1")+(X ="2")<>!GOTO 20

40:IF X="2"GOTO 150

50:CLEAR :INPUT " MAX. ANZ. D. P OSTEN=";N:DIM A(N-1),A(N-1)

60:FOR I=0TO N-1

70:INPUT "PROD. B Z.=";A(I)

80:INPUT "PREIS=" ;A(I)

100:NEXT I

110:PAUSE "REGISTE RENDE"

120:END

150:CLS :INPUT "AE ND. NR.=";C: GOTO 170

160:END

170:IF C>NPAUSE "R EG. NR. UEBER. ";GOTO 150

180:PRINT A(C-1); ";=";

190:INPUT A(C-1)

200:CLS :PRINT A(C -1); "=";

210:INPUT A(C-1)

215:GOTO 150

220:END

300:"B";WAIT 0

302:LF 2

304:USING :LPRINT "* BESTANDSLIS TE *"

306:FOR I=0TO N-1

310:IF A(1)="" GOTO 330

320:USING :LPRINT USING "#####";I +1;" ";A(I)

325:USING :LPRINT USING "#####",#####";A(I)

330:NEXT I

340:END

400: "C":WAIT 0:Z=0

403:LF 2

405:USING :LPRINT" * EINZELHEITEN *"

410:INPUT "REGISTER NR.=";D:GOTO 417

415:GOTO 620

417:IF D>NPAUSE "REG. NR. UEBER.";GOTO 410

420:INPUT "MENGE=";E

430:INPUT "RABATTS ATZ=";F:GOTO 450

440:INPUT "RABATTB ETRAG=";G

450:J=0-1

475:U=A(J)*E

480:IF F<>0GOTO 510

490:W=-G:GOTO 520

510:W=-(U*F/100)

520:Y=A(J)*E+W

530:USING :LPRINT A$(J)

540:USING :LPRINT "@";USING "### #####, ####";A(J)

541:LPRINT "*";E

542:LPRINT "=";U

550:IF W<>0USING :LPRINT USING "######, ####";W

560:USING :LPRINT USING "######, ####";Y

600:Z=Y+Z;F=0;G=0

610:GOTO 410

620:USING :LPRINT "SUMME"

630:USING :LPRINT USING "######, ####";Z

640:END

[Contenu de la mémoire]

A
B
C	Eingabe Änderungs-Nr.
D	Eingabe Register-Nr.
E	Menge
F	Rabattsatz
G	Rabattbetrag
H
I	√
J	√
K
L
M
N	Anzahl der Register
O
P
Q
R
S
T
U
V	Betrag vor Rabatt
W	Rabattbetrag
X
Y	Gesamtbetrag nach Rabatt
Z	Grand Total-Betrag nach Rabatt
X	Register und Änderung Annahme
A(N-1)	Produktbezeichnung
A(N-1)	Preis

SHARP

PROGRAMMNAME: SÄULENDIAGRAMM	PROGRAMM-NR.P5-D-7	1
[ Überblick ]Säulendiagramme benötigt man oft, um die Häufigkeitsverteilung von Daten bei ihrer Zusammenfassung in größere Gruppierungen zu erhalten. Dieses Programm erzeugt Säulendiagramme, wodurch eine optische Datenauswertung ermöglicht wird.[ Anleitung zum Betrieb ]Parameter-Eingabe (Anzahl der Daten, Klassenanfangswert, Klassenintervall und Anzahl der Klassen).Vorgabe der Dateneingabeweise (Tasteneingabe oder Kassetteneingabe)Tasteneingabe: Die Daten werden eingetastet und daraufhin zum Speichern auf Kassette ausgegeben.Kassetteneingabe: Die Daten werden von der Kassette her eingelesen.Varianz und Standardabweichung werden zur Druckausgabe berechnet.Das Säulendiagramm wird ausgedruckt.[ Beispiel ]Anzahl der Daten = 10, Klassenausgangswert = 0, Klassenintervall = 2, Klassenanzahl = 5.5 2 7 9 8 1 3 4 6 8Varianz: 6.81Standardabweichung: 2.60959767[ Inhalt ] (Formeln) V = 1/n i=1n (xi - )2 (Varianz) S = (Standardabweichung)		CE-150 erforderlich
PROGRAMMNAME: SÄULENDIAGRAMM	PROGRAMM-NR.P5-D-7	2

[Impression]

VARIANCE=

6.81

ÉCART TYPE=

2.60959767

[Action sur les touches]

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF A	ANZAHL DER DATEN=_
2	10 ENTER	ANFANGSWERT=_
3	0 ENTER	INTERVALL PRO ABSCH.= _
4	2 ENTER	ANZAHL DER ABSCH.= _
5	5 ENTER	TASTENEINGABE?(Y/N)_
6	Y ENTER	DATEN=_
7	5 ENTER	DATEN=_	Mit der Y-Eingabe die Daten eintasten.
8	2 ENTER	DATEN=_
⋮	⋮
16	8 ENTER	>	Ausdruck

[Liste du programme]

10:"A":EFFACER : TEXTE:UTILISER

20: SAISIR "NOMBRE DE DONNÉES=";N

30: SAISIR "VALEUR INITIALE="; F

40: SAISIR "INTERVALLE PAR ABSORPTION= ";B

50: INPUT "ANZAHL DER ABSCH.=";M

60: DIM A1(N-1), H(M-1)

70:FOR C=0TO M-1

80:H(C)=0

90:NEXT C

100: INPUT "TASTENE INGABE? (Y/N)" ; A\$

110: IF A\$="N"GOTO 170

115:Z=F+B*M-1:X=0

120:FOR C=0TO N\~1

130: INPUT "DATEN=" ;A1(C):GOTO 15 0

140:GOTO 160

150: IF A1(C) > Z60TO 130

152: [F A1(C) < FGOTO 130

153: X=X+1

155:NEXT C

160:PRINT #X,A1(*)

165:GOTO 180

170: INPUT #X, A1(*)

180:S=0:N=X

190: FOR C=0TO N-1

200: I=INT ((A1(C)-F)/B)

210:H(I)=H(I)+I

220:S=S+A1(C)

230:NEXT C

240:U=S/N:T=0

250:FOR C=0TO N-1

260: T=T+(A1(C)-U)∧ 2

270:NEXT C

280:T=T/N:S=∫T

290: COLOR 0: LPRINT "VARIANZ=", T

300:LPRINT "STD. A BW.=",S

310:N=-10^(98)

320:FOR C=0TO M-1

330: IF H(C) > NLET N = H(C)

340:NEXT C

350:GRAPH

360: GLCURSOR (50, 0): SORGN

370:COLOR 0

380:LINE (0,0)-(15 0,0)

390: LINE (0, 0) - (0, -450)

400: L=450/M:N=N/15

410:W=0:Q=F

420: FOR C=0TO M-1

422: COLOR 2: GLCURSOR (-50, W-15)

424:LPRINT USING "##";Q

430: COULEUR 1

435:G=ENT(H(C)/N)

440:LIGNE (0, W)-(G, W)-(G, W-L)-(0, W-L)

450: W=W-L

470: Q=Q+B

480:SUIVANT C

490: TEXTE : COULEUR 0: LF 5: FIN

STATUT 1

869

[ Contenu mémoire ]

A
B	Intervall pro Absch.
C	√
D
E
F	Anfangswert
G	√
H
I	Klassen-Nr.
J
K
L
M	Anzahl der Abschnitte
N	Datenanzahl
O
P
Q	√
R
S	A1(i),
T	1/N(A1(i)-)2
U
V	Mittelwert
W	√
X	Anzahl der effektiven Daten
Y
Z	Max. Effektivwert
A$	√
A1(N-1)	Datentabelle
H(M-1)	Datentabelle für Klassen

SHARP

PROGRAMMNAME: GRAFISCHE DARSTELLUNG I(BAND- BZW. KREISSCHAUBILD)	PROGRAMM-NR.P5-D-8	1
[ Überblick ]Mit diesem Programm können Sie durch Eingabe statistischer Daten Kreisschaubilder erstellen.[ Anleitung zum Betrieb ]Eingabe: Postenbezeichnung (max. 10 Zeichen) Eingabe von max. 10 PostenPostenwert möglich.Wahl zwischen Bandschaubild und KreisschaubildAusgabe: Postenbezeichnung, Anteil (% der Anzeige)Band- bzw. Kreisschaubild[ Beispiel ]Die statistischen Informationen dem Alter entsprechend wie folgt eintasten:(1) 20 Personen Alter 0 bis 10(2) 60 Personen Alter 11 bis 20(3) 45 Personen Alter 21 bis 30(4) 35 Personen Alter 31 bis 40(5) 25 Personen Alter 41 bis 50(6) 20 Personen Alter 51 bis 60(7) 15 Personen Alter 61 bis 70Ergebnisse siehe unter „Ausdruck“.[ Inhalt ] (Formeln)Das Verhältnis zwischen dem Wert der einzelnen Posten zum Postenwert insgesamt ist prozentmäßig (%) grafisch dargestellt.D = A(J) ÷ H × 100 D: VerhältnisA(J): Wert eines PostensH: Postenwert insgesamtKreisschaubildMit einem von 0° bis 360° mit jeweils 12° Zunahme unterteilten Kreis werden die Punkte „X1“ und „Y1“ auf dem Kreisbogen (Radius von 20 mm) für die abschnittweise Verbindung berechnet.X1 = R × SIN C R: RadiusY1 = R × COS C C: WinkelDas Verhältnis wird mit dem auf zwei Dezimalstellen gerundeten Wert dargestellt.
PROGRAMMNAME: GRAFISCHE DARSTELLUNG I(BAND- BZW. KREISSCHAUBILD)	PROGRAMM-NR.P5-D-8	2

[Expression]

[Touche]

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF A	POST. BEZEIC. (1) ?
2	0 bis 10 ENTER	WERT (1)
3	20 ENTER	POST. BEZEIC. (2) ?
13	60 ENTER	POST. BEZEIC. (7) ?
14	61 bis 70 ENTER	WERT (7)
15	15 ENTER	POST. BEZEIC. (8) ?
	ENTER	KREIS = 1 BAND = 2	Kreisschaubild . . . 1 Bandschaubild . . . 2
16	1 ENTER		Ausdruck der Grafik

PROGRAMMNAME: GRAFISCHE DARSTELLUNG I(BAND- BZW. KREISSCHAUBILD)

PROGRAMM-NR.P5-D-8

3

[Listing du programme]

10: "A":WAIT 0: CLEAR :DEGREE :Q=9:DIM A(Q) *10,B(Q)*1,A(Q)

20:B(0)="A".B(1)="B".B(2)="C":B(3)="D":B(4)="E":B(5)="F"

25:B(6)="G".B(7)="H":B(8)="I":B(9)="J"

30:FOR I=0TO Q

40:C="POST.BEZE1 C."(+STR(I+1)+")":PRINT C;

50:INPUT A(J): GOTO 70

60:CLS :I=I-1: GOTO 100

70:CLS :C="WERT( "+STR(I+1)+")=":PRINT C$;

80:INPUT A(I):CLS :H=H+A(I)

90:NEXT 1

10:I=I+1

10:INPUT "KREIS=1 BAND=2";C

20:IF (C=1)+(C=2) <>1GOTO 110

30:IF C=2GOTO 300

40:GRAPH : GLCURSOR (110,-125):SORGN

50:D=12:Y=100;R=100:L=1:C=0

60:FOR J=1TO 31

70:GOSUB 600:LINE (X,Y)-(X1,Y1): X=X1:Y=Y1:C=C+D

80:NEXT J

90:FOR J=0TO I-1

95:R=100

100:F=360*A(J)/H:F =G+F;IF J=I-1 LET F=360

10:FOR M=1TO 2

215: IF M=1LET C=G+.S: GOTO 225

220: C=F-.5

225: GOSUB 600: IF L>3LET L=1

230: LINE (0,0)-(X1,Y1),0,L.NEXTM

235: R=50: C=(F-G)/2+G: GOSUB 600:X1=X1-3

260: G=F

261: GLCURSOR (X1,Y1): LPRINT B(J);L=L+1:NEXT J

262: GLCURSOR (-110,-150): SORGN

264: Y=0:X=0: COLOR0

265: FOR J=0TO J-1

267: D=A(J)/H*100:D=INT ((D+.005)*100)/100:IF J=I-1LET D=100-N: GOTO 270

268: N=N+D

270: GLCURSOR (X,Y): LPRINT B(J)

275: GLCURSOR (18,Y): LPRINT A$(J)

280: Y=Y-20

282: GLCURSOR (18,Y): LPRINT "...";USING "##,##";D;"%":USING

284: Y=Y-20

285: NEXT J

290: TEXT LF 10:END

300: GRAPH .GLCURSOR (0,0): SORGN :ROTATE1

312: K=1:L=1.S=160:U=215

315: FOR J=0TO J-1

320: D=INT (A(J)/H*100+.5): E=D*3

325: W=T-E: IF J=J-1LET W=-300

327: IF L>3LET L=1:K=K+1

[ Contenu mémoire ]

330:LINE (160,T)-(215,W),0,0,B:GOSUB 650

332:T=W:L=L+1:NEXTJ

335:K=1:L=1;W=-50:T=0

336:FOR 'J=0TO I-1

338:IF L>3LET L=1:K=K+1

340:F=160/I*(I-J-1):LINE (F,0)-(F-5+160/I),-50>,0,0,B

345:S=F:U=F-5+160/1:GOSUB 650

349:COLOR 0:GLCURSOR (F,-80):LPRINT A$(J)

350:GLCURSOR (F,-210):LPRINT ".."

351:D=A(J)/H*100:D=INT ((D+.005)*100)/100

352:IF J=1-1LET D=100-G:GOTO 355

353:G=G+D

355:GLCURSOR (F,-240):LPRINTUSING "###.##";D;"%":USING

368:L=L+1:NEXT J

370:TEXT :LF 10:END

600:X1=R*SIN C:Y1=R*COS C:RETURN

650:IF K>3LET K=1

655:IF K=1GOSUB 700

660:IF K=2GOSUB 750

665:IF K=3GOSUB 700:GOSUB 750

690:RETURN

700:P=T:FOR 0=1TO60

705:P=P-5

710:IF P<=WGOTO 740

(Suite à la page suivante)

PROGRAMMNAME: GRAFISCHE DARSTELLUNG I(BAND- BZW. KREISSCHAUBILD)

PROGRAMM-NR.P5-D-8

4

[Liste des programmes]

715: IF 0-INT (0/2)

*2=0LINE (S,P)

-(U,P),0,L:

GOTO 725

720:LINE (U,P)-(S,P),0,L

725:NEXT 0

740:RETURN

750:P=S:FOR 0=1TO50

755:P=P+5

760: IF P>=UGOTO 79

0

765: IF 0-INT (0/2)

*2=0LINE (P,T)

-(P,W),0,L:

GOTO 775

770:LINE(P,W)-(P,T),0,L

775:NEXT 0

790:RETURN

STATUT 1

1776

[Contenu de la mémoire]

A
B
C	Wahl-Code für Band- und Kreisschaubild
D
E
F	Winkel (1)
G	Winkel (2)
H	Postenwert insgesamt
I	Schleifenzähler
J	Schleifenzähler
K	Wahl des Musters in der Graffk
L	Stiftfarbe-Code
M	Schleifenzähler
N	Verhältnis insgesamt
O	Schleifenzähler
P	√
Q	√
R	√
S	Bandschaubild X-Achse (1)
T	Bandschaubild Y-Achse (1)
U
V	Bandschaubild X-Achse (2)
W	Bandschaubild Y-Achse (2)
X	√
Y	√
Z
DS	Editieren der angezeigten Zeichen
A(Q)*10	10 Postenbezeichnung
B(Q)*1	Alphabet
X1	Postenwert
X1	X-Achse
Y1	Y-Achse

PROGRAMMNAME:

GRAFISCHE DARSTELLUNG II(BALKENDIAGRAMM BZW, SCHAUBILDMIT PUNKTIERTER LINIE)

PROGRAMM-NR.P5-D-9

1

[Aperçu]

CE-150 requis

Avec la saisie de données statistiques, un diagramme à barres ou un graphique avec une ligne pointillée peut être créé.

(Les graphiques verticaux sont créés sur un rouleau de papier.)

[Instructions d'utilisation]

Saisie : titre

Choix de la représentation graphique (diagramme à barres = 1, graphique avec ligne pointillée = 2)

Postes (nombre de postes : max. 8)

Désignation du poste (16 caractères au maximum)

Valeur du poste

Affichage : diagramme à barres ou graphique avec ligne pointillée. Dans le diagramme à barres, les postes n° 1 à 4 sont représentés par des lignes horizontales en 4 couleurs différentes.

Les postes n° 5 à 8 sont représentés par des lignes horizontales pointillées en différentes couleurs.

[Exemple]

(1) Titre : Graphique des ventes

Choix de la représentation : diagramme à barres = 1

Posten:	Postenbezeichnung	Postenwert
(1)	Stift	10
(2)	Heft	20
(3)	Bleistift	30
(4)	Buch	40
(5)	Papier	50

Saisir les postes indiqués à gauche.

Pour l'affichage, voir sous « Impression ».

Dans le graphique avec ligne pointillée, l'ordre des postes est différent.

[Contenu] (Formules)

(1) Direction horizontale dans le graphique

• Diagramme à barres : largeur horizontale d'un poste = largeur totale (40 mm) ÷ nombre de postes – espace (1 mm)
• Ligne pointillée : largeur horizontale d'un poste = largeur totale ÷ (nombre de postes + 1)

PROGRAMMNAME:

GRAFISCHE DARSTELLUNG II(BALKENDIAGRAMM BZW. SCHAUBILDMIT PUNKTIERTER LINIE)

PROGRAMM-NR.P5-D-9

2

(2) Direction verticale dans le graphique

En fixant la longueur verticale de la valeur maximale du poste d'entrée à 45 mm, les longueurs verticales des autres valeurs de poste sont calculées en conséquence. Longueur verticale d'un poste = 45 mm : valeur max. du poste × valeur du poste.

[Impression] GRAPHIQUE DES VENTES

SCHÉMA DE ROTATION

[Action sur les touches]

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF A	UEBERSCHRIFT?_
2	UMSATZ-SCHAUBILD ENTER	BALKEN=1, LINIE=2 ?
3	1 ENTER	POSTEN (1) =	Nachstehendes gilt für die Eingabe zum Schaubild 2 mit punktierter Linie.
4	STIFT ENTER	WERT (1) =
5	10 ENTER	POSTEN (2) =
6	HEFT ENTER	WERT (2) =
7	20 ENTER	POSTEN (3) =
8	BLEISTIFTE ENTER	WERT (3) =
9	30 ENTER	POSTEN (4) =
10	BUCH ENTER	WERT (4) =
11	40 ENTER	POSTEN (5) =
12	PAPIER ENTER	WERT (5) =
13	50 ENTER	POSTEN (6) =
14	ENTER	>	Ausdruck Balkendiagramm

PROGRAMMNAME:

GRAFISCHE DARSTELLUNG II(BALKENDIAGRAMM BZW, SCHAUBILDMIT PUNKTIERTER LINIE)

PROGRAMM-NR.P5-D-9

3

[Liste du programme]

10: "A":WAIT 0: CLEAR :DIM A(8),A(8)

20: INPUT "UEBERSC Hrift?";A(0)

30: INPUT "BALKEN=1, LINIE=2 ?"; C

40: IF (C=1)+(C=2) <>1GOTO 30

50: FOR I=1TO 8

60: B="POSTEN("+STR I+")=";PRINT B;

65: INPUT A(I):CLS :GOTO 80

70: CLS :I=I-1:GOTO 100

80: B="WERT("+STR I+")=";PRINT B;

85: INPUT A(I):CLS

87: IF D(A(I)LET D=A(I)

90: NEXT I

100: LPRINT A(0)

105: D=45/D

110: GRAPH

120: GLCURSOR (0,-250):SORGN

130: IF C=2LET G=2

140: LINE (0,0)-(200,250),0,G,B

150: IF C=2GOTO 400

160: G=5

170: E=(40-I)/I*5

180: FOR J=1TO I

190: H=G+E

200: F=D*A(J)*5

220: GOSUB 600:G=H+5:NEXT J:G=5

230: FOR J=1TO I:H=G+E

235: N=G+E/2-10:GOSUB 800

240: G=H+5:NEXT J

245: GLCURSOR (0,-250)

250: TEXT :LF 5:END

400: E=40/(I+1)*5

410: FOR J=1TO I

420: H=E*J

430: F=D*A(J)*5

440: IF J=1GOTO 460

450: LINE (G, M)-(H,F), 0, 3

460: G=H:M=F

480: NEXT J

483: FOR J=1TO I:H=E*J

485: N=H: GOSUB 800:NEXT J

487: GLCURSOR (0,-250)

490: TEXT :LF 5:END

600: M=M+1:L=L+1

610: IF L=4LET L=0

620: GLCURSOR (G, 0):LINE (G, 0)-(H,F), 0, L, B

630: P=0: IF M>4LETP=2

700: 0=0

705: FOR K=1TO 45

708: 0=0+5

710: IF F<=OGOTO 720

713: IF K-INT (K/2)*2=1LINE (G, 0)-(H, 0), P: GOTO718

715: LINE (H, 0)-(G,0), P

718: NEXT K

720: RETURN

800: ROTATE 1

810: GLCURSOR (N,-15): COLOR 0

820: LPRINT A$(J)

830: ROTATE 0

840: RETURN

STATUT 1

924

[Contenu de la mémoire]

A
B
C	Wahl der Darstellung
D	Max. Postenwert
E	Waagerechte Breite in der Darstellung eines Postens
F	Y-Koordinate
G	X-Koordinate
H	X-Koordinate
I
J
K
L	Stiftfarbe Nr.
M
N	X-Koordinate
O
P
Q
R
S
T
U
V
W
X
Y
Z
BS	Editieren der Zeichen
A(B)	A(0): Überschrift A$(1) bis (8) : Postenbezeich-nung
A(8)	Postenwert

PROGRAMMNAME: ANTEILSMÄSSIGEARBEITSZEITVERARBEITUNG

PROGRAMM-NR.P5--D-11

1

[Aperçu]

En entrant les heures de début et de fin, on peut déterminer le salaire total à partir du salaire horaire.

Le système de 24 heures est utilisé ici.

[Mode d'emploi]

(1) Tout d'abord, on efface les éventuelles entrées précédentes en appuyant sur les touches DEF D. Ensuite, on saisit la valeur horaire avec DEF C. (Ensuite, on utilise DEF D ou DEF C selon les besoins.)

(2) Pour entrer les heures de début et de fin, on appuie sur DEF A. La valeur finale des heures de travail apparaît à l'écran.

(3) On répète plusieurs fois DEF C et DEF A en fonction de la valeur horaire et du nombre de données.

(4) Pour afficher la valeur totale, on utilise les touches DEF B.

[Exemple]

(1) Après DEF C, on saisit la valeur horaire 500 W.E.*. (C'est la valeur horaire pour les heures de travail entre 9h00 et 17h00.)

(2) Les touches DEF D servent à effacer toute la zone mémoire.

(3) Avec les données d'heures de travail 9h30 à 17h00, 14h00 à 16h00 et 17h00 à 23h10, on saisit après DEF A « 9.30 », « 17:00 » et « 14:00 », « 16:00 », puis « 7.30 (T) × 500 = 3750 » et « 2.00 (T) × 500 = 1000 » apparaissent à l'écran. Si la valeur horaire après 17h00 est de 1000 W.E., on saisit 1000 après DEF C, puis « 17.00 », « 23.10 » après DEF A. En conséquence, « 6.10 (T) × 1000 = 6166 » s'affiche.

(4) « SOMME = 10961 » s'affiche après avoir appuyé sur DEF B. (* W.E. = unités monétaires)

[Contenu] (Formules)

« A » Avec la saisie de l'heure de début et de l'heure de fin (minutes en décimal), l'écran affiche « Temps écoulé × valeur horaire = valeur des heures de travail ».

Le nombre de données est illimité. Le traitement se termine en appuyant sur ENTER.

« B » La valeur totale des heures de travail s'affiche.

« C » La valeur horaire est réinitialisée.

« D » Toute la zone mémoire est effacée.

REMARQUE : lors de l'affichage du temps écoulé, « 9.30 (T) » signifie 9 heures et 30 minutes.

PROGRAMMNAME:

ANTEILSMÄSSIGEARBEITSZEITVERARBEITUNG

PROGRAMM-NR.P5-D-11

2

[Action sur les touches]

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF D	GESAMTLOESCHUNG
		>
2	DEF C	ANTM. WERT _
	500 ENTER	>
3	DEF A	ANFANG ? _
4	9.30 ENTER	ENDE ? _	Beenden/Eingabe der Minuten als Dezimalzahl
5	17.00 ENTER	7.30(T) * 500 =
6	ENTER	3750
7	ENTER	ANFANG ? _
8	14.00 ENTER	ENDE ? _
9	16.00 ENTER	2.00(T) * 500 =
10	ENTER	1000
11	ENTER	ANFANG ? _
12	ENTER	>
13	DEF C	ANTM. WERT
	1000 ENTER	>
14	DEF A	ANFANG ? _
15	17.00 ENTER	ENDE ? _
16	23.10 ENTER	6.10(T) * 1000 =
17	ENTER	6166
18	ENTER	ANFANG ? _
19	ENTER	>
20	DEF B	SUMME = 10916
	ENTER	>

PROGRAMMNAME: ANTEILSMÄSSIGEARBEITSZEITVERARBEITUNG		PROGRAMM-NR.P5-D-11	3
[Programmlisting] [Speicherinhalt]
15:"A"WAIT:INPUT"ANFANG?";0:GOTO 2018:END20:GOSUB 500:S=030:INPUT "ENDE?";040:GOSUB 500:E=050:M=060:M=E-S300:F=M*D303:O=M;GOSUB 600:M=0320:T=T+F330:USING:PRINTUSING "###.##";M;"(T)*";USING "######";D;"="335:USING:PRINTUSING "######";F340:GOTO 15350:"B":USING:PRINT "SUMME=";USING "###########";T360:END400:"C":INPUT "ANTM.WERT";D420:END450:"D":T=0460:USING:PAUSE"GESAMTLOESCHUNG"470:END500:K=INT O:I=(O-K)*100510:I=I/60:O=K+1520:RETURN600:K=INT O:I=(O-K)610:I=(I*60)/100:O=K+1620:RETURNSTATUS 1405		A
		B
		C
		D	Stundenwert
		E	Schlußzeit (gemäß Berechnung)
		F	Arbeitsstundenend-wert
		G
		H
		I	√
		J
		K	√
		L
		M	Vergangene Zeit
		N
		O	Anfangszeit/Schlußzeit
		P
		Q
		R
		S	Anfangszeit (gemäß Berechnung)
		T	Summe von F
		U
		V
		W
		X
		Y
		Z

NOM DU PROGRAMME : AMORTISSEMENT

N° DE PROGRAMME P5-D-12

1

[Aperçu]

Ce programme permet de calculer les montants d'amortissement normal et les montants résiduels non amortis selon la méthode du taux fixe ou du montant fixe.

[Mode d'emploi]

Calcul selon la méthode du taux fixe

Pour saisir le coût d'acquisition, la valeur résiduelle et le nombre d'amortissements, appuyez sur DEF A. Cela affiche le nombre d'amortissements défini, les montants d'amortissement et les montants non amortis. Enfin, le montant total d'amortissement est également affiché.

Calcul selon la méthode du montant fixe

Pour saisir le coût d'acquisition, la durée d'utilisation, le mois d'amortissement et la valeur résiduelle, appuyez sur DEF B. Ensuite, le montant d'amortissement et le montant non amorti sont affichés. Enfin, les totaux pour chaque poste sont également affichés.

[Exemple]

(1) Taux fixe

Ici, le montant d'amortissement, le montant non amorti et le montant total d'amortissement sont déterminés pour chaque période définie pour un produit A avec un prix d'achat de 800 000 unités monétaires, une durée de vie de 6 ans et un taux résiduel de 10%. Deux amortissements par an.

(2) Montant fixe

Les montants d'amortissement et les montants résiduels non amortis pour les deux produits A et B sont fixés selon les conditions suivantes.

Produit A : 900 000 unités monétaires de prix d'achat, 5 ans de durée de vie et 6 mois comme période d'amortissement de l'année en cours.

Produit B : 720 000 unités monétaires de prix d'achat, 25 ans de durée de vie et 8 mois comme période d'amortissement de l'année en cours.

Pour les deux produits, le taux résiduel est de 10%.

(Pour les entrées/sorties, voir « Touches ».)

[Contenu] (Formules)

(Méthode du taux fixe)

Montant de l'amortissement = prix d'achat × taux d'amortissement

Valeur résiduelle non amortie = prix d'achat - montant de l'amortissement

PROGRAMMNAME: ABSCHREIBUNG

PROGRAMM-NR.P5-D-12

2

Taux d'amortissement = 1 - ( Taux résiduel (%)/1 0 0) ^ 1/n n = Durée de vie en années

(Méthode du montant fixe)

Montant de l'amortissement = ( Prix d'achat ) × 1 0 0 - Taux résiduel (%)/1 0 0

× 1/ Durée de vie en années × Nombre de mois d'amortissement /1 2

Valeur résiduelle non amortie = (prix d'achat) - (montant de l'amortissement) Le taux résiduel est d'au moins 5%.

[Touches] : Méthode du taux fixe

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF A	PREIS? _
2	800000 ENTER	ANZAHL DERABSCHREIBUNGEN? _
3	12 ENTER	RESTRATE (%)? _
4	10 ENTER	1 ABSCH. = 139680
5	ENTER	1 NICHT ABSCH. = 660320
⋮	⋮	⋮
12	ENTER	5 ABSCH. = 64832
13	ENTER	5 NICHT ABSCH. = 306489
⋮	⋮	⋮
26	ENTER	12 ABSCH. = 16922
27	ENTER	12 NICHT ABSCH. = 79998
28	ENTER	GES. ABSCH. = 720002
29	ENTER	PREIS? _	Die Verarbeitung kann wiederholt werden
30	ENTER	>	Diese Taste drücken, um die Verarbeitung zu beenden.

PROGRAMMNAME: ABSCHREIBUNG

PROGRAMM-NR.P5-D-12

3

[Touches] : Méthode du montant fixe

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF B	PREIS?
2	900000 ENTER	LEBENSDAUER IN JAHREN?_
3	5 ENTER	ABSCH. MONAT?_
4	6 ENTER	RESTRATE (%)?_
5	10 ENTER	ABSCH. = 81000
6	ENTER	NICHT ABSCH. = 819000
7	ENTER	PREIS?
8	720000 ENTER	LEBENSDAUER IN JAHREN?_
9	25 ENTER	ABSCH. MONAT?_
10	8 ENTER	RESTRATE (%)?_
11	10 ENTER	ABSCH. = 17280
12	ENTER	NICHT ABSCH. = 702720
13	ENTER	PREIS?_	Zum Ausdrucken der Gesamt-beträge diese Taste drücken.
14	ENTER	KOSTEN GESAMT=1620000
15	ENTER	GES. ABSCH. = 98280
16	ENTER	GES. NICHT ABSCH. = 1521720
17	ENTER	>

PROGRAMMNAME: ABSCHREIBUNG

PROGRAMM-NR.P5-D-12

4

[Listing du programme]

10:"A":CLEAR:WAIT

20:INPUT "PREIS?";A:GOTO 30

25:END

30:INPUT "ANZAHLDER ABSCHREIBUNGEN",B

40:INPUT "RESTRATE(%)?";0

50:IF (0<5)+(0>99)=1GOTO 40

60:C=1-(0/100)^(1/B)

70:D=INT (C*10^5+ .5)/10^5

80:E=0

90:FOR I=1TO B

10:F=INT (D*A)

10:E=E+F

20:A=A-F

30:PRINT I;"ABSCH.=";F

50:PRINT I;"NICH ABSCH.=";A

60:NEXT I

70:PRINT "TTL DEPR.=";E

80:GOTO 20

90:"B":CLEAR:WAIT

10:INPUT "PREIS?";E:GOTO 520

15:GOTO 610

20:INPUT "LEBENSDAUER IN JAHREN?",F

30:INPUT "ABSCH.MONAT?";G

35:INPUT "RESTRATE(%)?";H

0:IF (H<5)+(H>99)=1GOTO 535

6:H=(100-H)/100

0:D=INT (E*H/F*XG/12)

0:A=A+D:B=E+B

5:PRINT "ABSCH.=";D

0:PRINT "NICHT ABSCH.=";E-D

0:GOTO 510

0:PRINT "KOSTENGESAMT=";B

5:PRINT "GES.ABSCH.=";A

0:PRINT "GES.NICHT ABSCH.=";B-A

279:END

ATUS 1 630

[Contenu de la mémoire]

(Méthode du montant fixe)

A	Abschreibungs-Gesamtbetrag
B	Anschaffungs-Gesamtpreis
C
D	Abschreibungsbetrag
E	Gesamte Abschreibung/Anschaffungspreis
F	Lebensdauer in Jahren
G	Abschreibungsdatum
H	Restrate
I
J
K
L
M
N
O
P
Q
R
S
T
U
V
W
X
Y
Z

(Procédure à taux fixe)

A	Anschaffungspreis
B	Anzahl der Abschreibungen
C	Abschreibungsrate
D
E	Abschreibungs-Gesamtbetrag
F	Abschreibungsbetrag
G
H
I	√
J
K
L
M
N
O	Restrate
P
Q
R
S
T
U
V
W
X
Y
Z

SHARP

PROGRAMMNAME: ANTEILSBERECHNUNG		PROGRAMM-NR.P5-D-15	1
		CE-150 erforderlich
[ Überblick ]Mit diesem Programm kann man sequentiell eingetastete Indizes wertmäßig ins richtige Verhältnis bringen, um die Zuteilung zu ermitteln. Die Endsumme der Indizes wird berechnet, desgleichen der Einheits-Anteilwert.
[ Anleitung zum Betrieb ]Für 8 Datenposten, wobei 10 Indexe schon eingetastet sind, drückt man nur die ENTER -Taste, wenn „Index 9?“ in der Anzeige erscheint. Auf diese Weise werden die 8 Datenposten verarbeitet.(Hinweis) Die maximale Indexzahl beträgt 170.Der Indexausdruck erfolgt bis zur ersten Dezimalstelle.Ferner wird der Anteilwert für jeden Index als gerundete Ganzzahl ausgedruckt.
[ Beispiel ]Eingabe: Aufzuteilender Wert = 5000Anzahl der Indizes = 3Index (1) = 10,5Index (2) = 120Index (3) = 70Für die Rechenergebnisse siehe unter „Ausdruck“.
[ Inhalt ] (Formeln)Eingabe: Aufzuteilender WertAnzahl der Indizes: nIndexAusgabe: Aufzuteilender WertIndexsumme (Index 1 + Index 2 + . . . + Index n)Einheits-Anteilwert(Aufzuteilender Wert ÷ Indexsumme)IndexAufzuteilender Wert(Hinweis) • Bei der Eingabe des aufzuteilenden Wertes ist zu berücksichtigen, daß die Zahl höchstens 6 Stellen vor dem Komma haben darf. Bei der Eingabe von Indizes ist zu berücksichtigen, daß die Zahl höchstens 5 Stellen vor dem Komma haben darf.• Durch Auf- oder Abrunden auf die ganze Zahl entstehende Fehler werden mit Hilfe des zugeteilten Wertes für den letzten Index ausgeglichen.

PROGRAMMNAME: ANTEILSBERECHNUNG

PROGRAMM-NR.P5-D-15

2

[Expression]

VALEUR À RÉPARTIR

5000

INDEX TOTAL ....

200.5

VALEUR UNITAIRE

DE PART

24.93765586

INDEX PART

1 10.5 262

2 120.0 2993

3 70.0 1745

[Tastenbetätigung]

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF A	AUFZUTEILENDER WERT?_
2	5000 ENTER	ANZAHL DER INDIZES?_
3	3 ENTER	INDEX 1
4	10.5 ENTER	INDEX 2
5	120 ENTER	INDEX 3
6	70 ENTER	>

PROGRAMMNAME: ANTEILSBERECHNUNG

PROGRAMM-NR.P5-D-15

3

[Programmlisting]

10:"A":CLEAR

20:INPUT "AUFZUTEILENDER WERT?";A

30:INPUT "ANZAHLDER INDIZES?";B

40:C=B-1:DIM H(C)

50:FOR D=0TO C

60:E=D+1

70:USING :PAUSE "INDEX ";E

80:INPUT H(D):GOTO 150

90:B=E-1:GOTO 200

50:F=H(D)+F

60:NEXT D

200:G=A/F

210:USING:LPRINT"AUFZUTEILENDER","WERT"

220:USING:LPRINTA

230:USING:LPRINT"INDEX GESAMT......"

240:USING:LPRINTF

250:USING:LPRINT"EINHEITS","ANTEILWERT"

260:USING:LPRINTG

270:LF 1

280:USING:LPRINT"INDEX ANTL."

290:C=B-1

300:FOR D=0TO C

310:E=D+1

315:I=INT(G*H(D)+.5)

316:IF D=CLET I=A-J:GOTO 320

317:J=J+I

320:USING:LPRINTUSING "###";E;USING "#######.#";H(D);USING"#######"I

330:NEXT D

340:END

STATUS 1

504

[Contenu de la mémoire]

A	Aufzuteilender Wert
B	Anzahl der Indizes
C
D
E
F	Indexsumme
G	Einheits-Anteilwert
H
I
J
K
L
M
N
O
P
Q
R
S
T
U
V
W
X
Y
Z
H(C)	Index

SHARP

PROGRAMMNAME: UMRECHNUNG VON VOLUMENUND GEWICHTSEINHEITEN

PROGRAMM-NR.P5-D-16

1

[Aperçu]

CE-150 requis

Ce programme sert à convertir des volumes et des poids.

[Instructions d'utilisation]

DEF A : En appuyant sur ces touches, on sélectionne le volume ou le poids, et l'impression d'un « tableau d'unités » est effectuée.

DEF B : En appuyant sur ces touches, la conversion du poids ou du volume est effectuée selon le choix fait avec A.

Entrée : code de l'unité à convertir

Code de l'unité de conversion

Sortie : données converties

[ Exemple ]

Volumen		Gewicht
KUBIKZENTIMETER	100	GRAMM	3750
KUBIKMETER	0.001	TONNEN	0.00375
LITER	1	GRAN	57870.4
GALLONEN	0.26417	UNZE	132.275
KUBIKZOLL	61.0237	PFUND	8.2672
KUBIKFUSS	0.03532	USA-TONNEN	0.00413

(Exemple) Combien de gallons correspondent à 10 litres ?

Combien de mètres cubes correspondent à 1 gallon ?

(Exemple) Combien de grammes correspondent à une once ?

Combien de grammes correspondent à une livre ?

[Contenu] (Formules)

Données après conversion = Données\ avant\ conversion/Valeur\ unitaire\ avant\ conversion × Valeur unitaire après conversion

PROGRAMMNAME: UMRECHNUNG VON VOLUMEN UND GEWICHTSEINHEITEN

PROGRAMM-NR.P5-D-16

2

[Expression]

VOLUMEN
EINHEIT--LFD. NR.	GEWICHT
	EINHEIT--LFD. NR.
KUBIKMETER
(K.M) ----1	GRAMM----1
KUBIKZENTIMETER	TONNE----2
(K.ZM) ----2	GRAN
LITER	(GRN) ----3
(L) ----3	UNZE
GALLONE	(ONC) ----4
(GL) ----4	PFUND
KUBIKZOLL	(PND) ----5
(K.Z) ----5	USA-TONNE
KUBIKFUSS	(U.TN) ----6
(K.F) ----6

L 10

GL 2.6417

ONC 1

GRAMM 28.35002835

GL 1

K.2M 3785.441193

PND 1

[Tastenbetätigung]

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF A	VOLUMEN/GEWICHT?(V/G)
2	V ENTER		Endet nach Ausdruck der Tabelle.
3	DEF B	EINHEIT? - EINHEIT
4	3 ENTER	EINHEIT3 - EINHEIT?
5	4 ENTER	DATEN = -
6	10 ENTER	EINHEIT? - EINHEIT
7	4 ENTER	EINHEIT4 - EINHEIT?
8	2 ENTER	DATEN = -
9	1 ENTER	EINHEIT? - EINHEIT
10	ENTER		Durch Drücken dieser Taste wird die Verarbeitung beendet.

PROGRAMMNAME: UMRECHNUNG VON VOLUMEN UND GEWICHTSEINHEITEN

PROGRAMM-NR.P5-D-16

3

[Tastenbetätigung]

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF A	VOLUMEN/GEWICHT? (V/G)
2	G ENTER		Ausgabe-Tabelle
3	DEF B	EINHEIT? - EINHEIT
4	4 ENTER	EINHEIT4 - EINHEIT?
5	1 ENTER	DATEN = -
6	1 ENTER	EINHEIT? - EINHEIT?
7	5 ENTER	EINHEIT5 - EINHEIT?
8	1 ENTER	DATEN = -
9	1 ENTER	EINHEIT? - EINHEIT
10	ENTER	>	Durch Drücken dieser Taste wird die Programmausführung beendet.

PROGRAMMNAME: UMRECHNUNG VON VOLUMEN UND GEWICHTSEINHEITEN

PROGRAMM-NR.P5-D-16

4

[Programmlisting]

10: "A": CLEAR :DIM

X(5), A$(5): CLS

15; INPUT "VOLUMEN/GEWICHT?(U/G)";N$:GOTO 25

20:GOTO 420

25: IF (N="U")+(N="G")<>1GOTO15

50: IF N$="U"GOTO250

60:GOTO 340

250:LF 1:LPRINT "UOLUMEN"

255:LPRINT "EINHEI T--LFD, NR."

260:LF 1

270:LPRINT "KUBIKMETER ":X(0)=0.001

275:LPRINT " (K.M) ----1"

280:LPRINT "KUBIKZENTIMETER":X(1)=1000

285:LPRINT " (K.Z M) ----2"

290:LPRINT "LITER":X(2)=1

295:LPRINT " (L)

-3"

300:LPRINT "GALLON E":X(3)=0.264 17

305:LPRINT " (GL)

- - - - - - - 4"

310; LPRINT "KUBIKZ

OLL": X(4)=61

.0237

315:LPRINT " (K.2) ----5"

320:LPRINT "KUBIKF USS ";X(5)=0.03532

325:LPRINT " (K.F) ----6"

326:A(0)="K.M":A

(1)="K.ZM":A$

(2)="L"

327: A(3) = "GL "; A(4) = "K.Z "; A$(5) = "K.F"

330:LF 8:END

340:LF 1:LPRINT "G EWICHT"

345:LPRINT "EJNHEI T--LFD. NR."

350:LF 1

360:LPRINT "GRAMM-

----1":X(0)

=3750

370:LPRINT "TONNE-

----2":X(1)

=0.00375

380:LPRINT "GRAN":X(2)=57870.4

385:LPRINT " (GRN) ----3"

390: LPRINT "UNZE"; X(3)=132.275

395:LPRINT " (ONC) ----4"

400: LPRINT "PFUND": X(4)=8.26720

405:LPRINT " (PND) ----5"

410:LPRINT "USA-TO NNE":X(S)=0.00 413

415:LPRINT " (U.T N) ----6"

417: A(0)="GRAMM":

A(1)="TONNE":

A$(2)="GRN"

418:A(3)="ONC":A(4)="PND":A$(5)="U.TN"

420:LF 8:END

470: "B":LF 1:WAIT

0

480:CLS :LF 1:PRINT "EINHEIT-EINHEIT"

500: CURSOR 7: INPUTA: GOTO 510

505:CLS :END

510:IF (A<1)+(A>6)

<>0GOTO 480

520: CURSOR 17: INPUT B

525:IF (B<1)+(B>6)

<>0GOTO 520

530:CLS : INPUT "DA TEN=";S

540: D=S/X(A-1)*X(B-1)

560:LPRINT A$(A-1)

;

570:LPRINT S

580: LPRINT A$(B-1)

;

590:LPRINT D

600:0=0:GOTO 480

STATUS 1

1230

[ Speicherinhalt ]

A	Zahl vor der Ein-heitenumrechnung
B	Zahl nach der Ein-heitenumrechnung
C
D	Wert nach der Ein-heitenumrechnung
E
F
G
H
I
J	Gewicht
K
L
M
N
O
P
Q
R
S	Eingabewert vor derEinheitenumrechnung
T	Volumen
U
V
W
X
Y
Z
N	Einheitsbezeichnungen-Auswahlbereich
X(5)	Verhältniszahl dereinzelnen Einheit
A(5)	Einheitsbezeichnungen

SHARP

PROGRAMMNAME: UMRECHNUNG VON LÄNGENUND FLÄCHENEINHEITEN

PROGRAMM-NR.P5-D-17

1

[Überblick]

CE-150 requis

Ce programme sert à convertir des unités de longueur et de surface.

[ Guide d'utilisation ]

DEF A

: En appuyant sur ces touches, on choisit soit la longueur, soit la surface pour l'affichage du « tableau des unités ».

DEF B

Ainsi, l'unité de longueur ou de surface choisie par A est convertie.

Entrée : code de l'unité vers laquelle convertir, données à convertir

Sortie : données converties

[ Exemple ]

Länge		Fläche
METER	1	QUADRATMETER	1
MILLIMETER	1000	AR	0.01
ZOLL	39.3701	QUADRATZOLL	1550.00
FUSS	3.28084	QUADRATFUSS	10.7639
YARD	1.09361	HEKTAR	0.00025
MEILE	0.00062	TUBO	0.30250

Exemple : Combien de pouces correspondent à 10 yards ?

Exemple : Combien d'hectares correspondent à 7 ares ?

Combien de yards correspondent à 3 m ?

[Contenu] (Formules)

Données après conversion = Données avant conversion/Valeur de l'unité avant conversion × Valeur de l'unité après conversion

Remarque : L'unité de surface « TUBO » n'est utilisée qu'au Japon.

PROGRAMMNAME: UMRECHNUNG VON LÄNGENUND FLÄCHENEINHEITEN

PROGRAMM-NR.P5-D-17

2

[Touches à presser]

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF A	LAENGE/FLAECHE?(L/F)
2	L ENTER		Endet nach Ausdruck der Tabelle
3	DEF B	EINHEIT? - EINHEIT
4	5 ENTER	EINHEIT5 - EINHEIT?
5	3 ENTER	WERT = _
6	10 ENTER	EINHEIT? - EINHEIT	Ausdruck
7	1 ENTER	EINHEIT1 - EINHEIT?
8	5 ENTER	WERT = _
9	3 ENTER	EINHEIT? - EINHEIT	Ausdruck
10	ENTER	>	Durch Drücken dieser Taste wird die Verarbeitung beendet.

[Touches à presser]

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF A	LAENGE/FLAECHE?(L/F)
2	F ENTER		Endet nach Ausgabe der Tabelle
3	DEF B	EINHEIT? - EINHEIT
4	2 ENTER	EINHEIT2 - EINHEIT?
5	5 ENTER	WERT = _
6	7 ENTER	EINHEIT? - EINHEIT
7	6 ENTER	EINHEIT6 - EINHEIT?
	1 ENTER	WERT = _
	40 ENTER	EINHEIT? - EINHEIT	Durch Drücken dieser Taste ist die Verarbeitung beendet.
	ENTER	>

PROGRAMMNAME: UMRECHNUNG VON LÄNGENUND FLÄCHENEINHEITEN		PROGRAMM-NR.P5-D-17	3
[Ausdruck]
LAENGE	FLAECHE
EINHEIT----NUMMER	EINHEIT----NUMMER
METER(M) ----1	QUADRATMETER(Q.M) ----1
MILLIMETER(M.M) ----2	AR ----2
ZOLL ----3	QUADRATZOLL(Q.Z.) ----3
FUSS ----4	QUADRATFUSS(Q.F.) ----4
YARD ----5	HEKTAR ----5
MEILE ----6	TSUBO(TUBO) ----6
YARD 10
ZOLL 360.0012802
M 3	AR 7
YARD 3.28083	HEKTAR 0.175
	TUBO 40Q.M. 132.231405

PROGRAMMNAME: UMRECHNUNG VON LÄNGENUND FLÄCHENEINHEITEN

PROGRAMM-NR.P5-D-17

4

[Listing du programme]

10: "A": CLEAR : DIM X(5), A(5)

15: INPUT "LAENGE/FLAECHE?(L/F)" ; N: GOTO 25

20: END

25: IF (N="L") + (N="F") <> 1GOTO 15

30: IF N="F"GOTO 160

70: LF 1

75: LPRINT "LAENGE"

77: LPRINT "EINHEI T----NUMMER"

80: LF 1

90: LPRINT "METER "; X(0)=1

95: LPRINT " (M) ----1"

100: LPRINT "MILLIM ETER "; X(1)=10 00

105: LPRINT " (M.M ) ----2"

110: A(2)="ZOLL "; LPRINT A(2)+" ----3"; X (2)=39.3701

120: A(3)="FUSS "; LPRINT A(3)+" ----4"; X (3)=3.28084

130: A(4)="YARD "; LPRINT A(4)+" ----5"; X (4)=1.09361

140: A(5)="MEILE "; LPRINT A(5)+" ----6"; X (5)=0.00062

145: A(0)="M "; A(1)="M.M"

150: LF 8:END

160: LF 1:LPRINT "FLAECHE"

165: LPRINT "EINHEI T----NUMMER"

170: LF 1

180: LPRINT "QUADRA TMETER "; X(0)=1

185: LPRINT " (Q.M ) ----1"

190: A(1)="AR "; LPRINT A$(1)+" ----2"; X(1)=0.01

200:LPRINT "QUADRA TZOLL":X(2)=1 550.00

205:LPRINT "(Q.Z.) ----3"

210:LPRINT "QUADRA TFUSS":X(3)=1 0.7639

215:LPRINT "(Q.F.) ----4"

220:A(4)="HEKTAR":LPRINT A(4) +"----5":X(4)=0.00025

230:LPRINT "TSUBO":X(5)=0.30250

235:LPRINT "(TUBO) ----6"

237:A(0)="Q.M.":A(2)="Q.Z.":A(3)="Q.F.":A(5)="TUBO"

240:LF 8:END

470:"B":LF 1:WAIT 0

480:CLS :LF 1:PRINT "EINHEIT -EINHEIT"

500:CURSOR 7:INPUT A:GOTO 510

505:CLS :END

510:IF (A<1)+(A>6) <>OGOTO 480

520:CURSOR 17:INPUT B

525:IF (B<1)+(B>6) <>OGOTO 520

530:CLS :INPUT "WE RT=";Z

540:D=Z/X(A-1)*X(B-1)

560:LPRINT A(A-1);

570:LPRINT Z

580:LPRINT A(B-1);

590:LPRINT D

600:D=0:GOTO 480

STATUS 1

1175

[ Contenu de la mémoire ]

A	Code vor Ein-heitenumrechnung
B	Code nach Ein-heitenumrechnung
C
D	Wert nach Ein-heitenumrechnung
E
F
G
H
I
J
K
L
M	Fläche
N	Länge
O
P
Q
R
S
T
U
V
W
X
Y
Z	Eingegebener Wert vor der Einheitenumrechnung
N	Einheitsbezeichnung-Wahlbereich
X(5)	Verhältniswert für jede Einheit
A(5)	Einheitenbezeichnung

SHARP

PROGRAMMNAME: HAUSHALTKONTO	PROGRAMM-NR.P5-D-22	1
[ Überblick ]	CE-150, CE-151 und Kassettenrecorder erforderlich
Dieses Programm erleichtert den Umgang mit dem monatlichen Budget. Hierzu gibt man täglich die laufenden Ausgaben ein, es erfolgt die Anzeige der gesamten Ausgaben bis zu diesem Tag und das Verhältnis zur Budgetsumme wird errechnet. Die monatlichen Ausgaben des gesamten Jahres werden addiert und eine Liste, nach jährlichen Ausgaben für die einzelnen Posten aufgeschlüsselt, wird ausgedruckt.
[ Anleitung zum Betrieb ]DEF A :Die Gesamtheit der Daten bis zum vorherigen Tag werden von der Kassette in den Computer eingelesen.Eintasten der Daten für die an diesem Tag entstandenen Ausgaben (Lebensmittel, Gas, Wasser, Strom usw.)Ausgedruckt werden die täglichen Ausgaben, die Gesamtsumme bis zu diesem Tag und der Anteil in Verhältnis zum gesamten Budget, daraufhin erfolgt Speicherung auf Kassette.DEF B :Die monatlichen Gesamtsummen werden zur Jahresgesamtsumme zusammengefaßt.Das monatliche Budget und die Gesamtsumme der Ausgaben werden auf der Kassette gelöscht.DEF C :Das Budget für den Monat eintasten.Die Budgetbeträge werden ausgedruckt und auf Kassette gespeichert.DEF D :Die Gesamtsumme für das Jahr wird ausgedruckt.DEF F :Zum Löschen aller Speicher.Vorsichtsmaßnahmen: DEF B und C sollten nur einmal pro Monat ausgeführt werden.Betätigt man DEF A ohne DEF C nach dem Betrieb von DEF B und F wird ein Fehler verursacht.Hinweis: Es stehen 15 Posten für die Ausgabenartikel zur Verfügung. Um die Anzahl der Posten zu ändern, verändert man den Inhalt der DATE-Anweisung in den Zeilen Nr. 800 bis 802 der Programmliste.

PROGRAMMNAME: HAUSHALTKONTO			PROGRAMM-NR.P5-D-22	2
[ Beispiel ]1. Eingabe des Budgets für Oktober 1981 wir folgt:Lebensmittel 50.000 Soziale Ausgaben 5.000Miete 20.000 Transport 5.600Strom, Wasser Gas 2.000 Kommunikationsmittel 2.500Kleidung 1.000 Verschiedenes 10.000Versicherung, Gesundheit 5.000 Abzahlungen 5.000Ausbildung 70.000 Steuern 4.000Unterhaltung 4.000 Sonstiges 5.000Ersparnisse 10.000Die obigen Posten und Beträge gibt man den Hinweisen unter „Tastenbetätigung“ entsprechend ein und speichert sie auf Band.Ausgaben ab. 1 Oktober 1981:Lebensmittel 2.500Strom, Wasser, Gas 1.500Kleidung 500Die obigen Posten eintasten und auf Band speichern, daraufhin folgendes eingeben:Ausgaben am 2. Oktober 1981:Lebensmittel 3.000Miete 15.000AusbildungSoziale AusgabenUm die auf der nächsten Seite abgedruckte Liste zu erhalten, führt manDEFB und DEF D nacheinander aus.2. Falls keine Eingaben in den angezeigten Posten gemacht werden sollten, drückt man nur die ENTER -Taste.3. Wenn „KASSETTE AUSGABE/EINGABE OK (Y/N)“ angezeigt wird:„Y“ eingeben, wobei der Kassettenrecorder zum Speichern bzw. zum Einlesen der Daten eingestellt wird.4. Beim Speichern auf bzw. Einlesen von Kassette sicherstellen, daß das Band auf den Dateianfang eingestellt ist.

PROGRAMMNAME: HAUSHALTKONTO				PROGRAMM-NR.P5-D-22	3
[Ausdruck]
*BUDGET *1981JAH R 11MONATLEBENSMITTEL50,000MIETE20,000STROM, W., GAS2,000KLEIDUNG1,000INS.+SANIT.AUSG.5,000AUSBILDUNG70,000UNTERHALTUNG4,000SOZIALES5,000TRANSPORT5,600KOMMUNIKATION2,500VERSCHIEDENES10,000ABZAHLUNGEN5,000STEUERN4,000WEITERES5,000ERSPARNISSE10,000EINZELH.199,100		* EINZELHEITEN *11MONAT 1TAGLEBENSMITTEL2,500MIETE15,000STROM, W., GAS1,500KLEIDUNG500INS.+SANIT.AUSG.3,000AUSBILDUNG30,000UNTERHALTUNG550SOZIALES4,5004,500TRANSPORT130130KOMMUNIKATION300300VERSCHIEDENES500500	ABZAHLUNGEN4,000STEUERN3,500WEITERES1,200ERSPARNISSE10,000GESAMTSUMME76,98026,980	4,00080.0%3,50087.5%1,00020.0%10,000100.0%76,98038.66%

[ Touches à utiliser ]

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF F	BAND AUS OK (Y/N)_	Die Kassette zum Speichern vorbereiten
2	Y ENTER	>	Speichern der Daten auf Band ist beendet.
3	DEF C	BAND EIN OK (Y/N)_	Die Kassette zum Einlesen vorbereiten.
4	Y ENTER	HAUSHALTKONTO	Nach einem Moment wird der Dateiname angezeigt.
		JAHR = _
5	1981 ENTER	MONAT = _
6	11 ENTER	TAG = _
7	1 ENTER	LEBENSMITTEL = ?	Eingabe des November-Budgets für jeden Posten.
8	50000 ENTER	MIETE = ?
9	20000 ENTER	STROM, W., GAS = ?
10	2000 ENTER	KLEIDUNG = ?
11	1000 ENTER	INS.+SANIT.AUSG. = ?
12	5000 ENTER	AUSBILDUNG = ?
13	70000 ENTER	UNTERHALTUNG = ?
14	4000 ENTER	SOZIALES = ?
15	5000 ENTER	TRANSPORT = ?
16	5600 ENTER	KOMMUNIKATION = ?
17	2500 ENTER	VERSCHIEDENES = ?
18	10000 ENTER	ABZAHLUNGEN = ?
19	5000 ENTER	STEUERN = ?
20	4000 ENTER	WEITERES = ?
21	5000 ENTER	ERSPARNISSE = ?
22	10000 ENTER	BAND AUS OK (Y/N)_	Die Kassette zum Speichern vorbereiten.
23	Y ENTER	>	Speichern auf Kassette ist beendet.

PROGRAMMNAME: HAUSHALTKONTO

PROGRAMM-NR.P5-D-22

5

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
24	DEF A	BAND EIN OK (Y/N) _	Die Kassette zum Einlesen vorbereiten.
25	Y ENTER	HAUSHALTKONTO	Nach einem Moment wird der Dateiname angezeigt.
		JAHR =
26	1981 ENTER	MONAT =
27	11 ENTER	TAG =
28	1 ENTER	LEBENSMITTEL = ?
29	2500 ENTER	MIETE = ?
30	15000 ENTER	STROM, W., GAS = ?
31	1500 ENTER	KLEIDUNG = ?
32	500 ENTER	INS. + SANIT. AUSG. = ?
33	3000 ENTER	AUSBILDUNG = ?
34	30000 ENTER	UNTERHALTUNG = ?
35	550 ENTER	SOZIALES = ?
36	4500 ENTER	TRANSPORT = ?
37	130 ENTER	KOMMUNIKATION = ?
38	300 ENTER	VERSCHIEDENES = ?
39	500 ENTER	ABZAHLUNGEN = ?
40	4000 ENTER	STEUERN = ?
41	3500 ENTER	WEITERES = ?
42	1000 ENTER	ERSPARNISSE = ?
43	10000 ENTER	BAND AUS OK (Y/N) _	Die Kassette zum Speichern vorbereiten.
44	Y ENTER	>	Speichern auf Kassette ist beendet.
45	DEF A	BAND EIN OK (Y/N)–	Das Band zum Einlesen vorbereiten.
46	Y ENTER	HAUSHALTKONTO	Nach einem Moment wird der Dateiname angezeigt.
		JAHR =
47	1981 ENTER	MONAT =
48	11 ENTER	TAG =
49	2 ENTER	LEBENSMITTEL = ?
50	2500 ENTER	MIETE = ?	Falls keine Eingabe erfolgt.
51	ENTER	STROM, W., GAS = ?	Falls keine Eingabe erfolgt.
52	ENTER	KLEIDUNG = ?	Falls keine Eingabe erfolgt.
53	ENTER	INS.+SANIT.AUSG.= ?	Falls keine Eingabe erfolgt.
54	ENTER	AUSBILDUNG = ?	Falls keine Eingabe erfolgt.
55	ENTER	UNTERHALTUNG = ?	Falls keine Eingabe erfolgt.
56	ENTER	SOZIALES = ?	Falls keine Eingabe erfolgt.
57	ENTER	TRANSPORT = ?
58	130 ENTER	KOMMUNIKATION = ?	Falls keine Eingabe erfolgt.
⋮	⋮	⋮	⋮
⋮	⋮	ERSPARNISSE = ?	Falls keine Eingabe erfolgt.
64	ENTER	BAND AUS OK (Y/N) –	Die Kassette zum Speichern vorbereiten.
65	Y ENTER	>	Speichern auf Kassette ist beendet.
66	DEF B	BAND EIN OK (Y/N) –	Die Kassette zum Einlesen vorbereiten.
67	Y ENTER	HAUSHALTKONTO	Nach einem Moment wird der Dateiname angezeigt.
		BAND AUS OK (Y/N) –	Die Kassette zum Speichern vorbereiten.
68	Y ENTER	>	Speichern auf Kassette ist beendet.
69	DEF C	BAND EIN OK (Y/N) _	Die Kassette zum Einlesen vorbereiten.
70	Y ENTER	HAUSHALTKONTO	Nach einem Moment wird der Dateiname angezeigt.
		JAHR =
71	1981 ENTER	MONAT =
72	12 ENTER	TAG =
73	1 ENTER	LEBENSMITTEL = ?
74	50000 ENTER	MIETE = ?	Eingabe des Dezember-Budgets für jeden Posten.
88	10000 ENTER	BAND AUS OK (Y/N) _	Die Kassette zum Speichern einstellen.
89	Y ENTER	>	Speichern auf Kassette ist beendet.
90	DEF A	BAND EIN OK (Y/N) _	Die Kassette zum Einlesen vorbereiten.
91	Y ENTER	HAUSHALTKONTO	Nach einem Moment wird der Dateiname angezeigt.
		JAHR =
92	1981 ENTER	MONAT =
93	12 ENTER	TAG =
94	1 ENTER	LEBENSM. AUSG. = ?	Eingabe der Daten zu den erforderlichen Posten.
95	3000 ENTER
110	10000 ENTER	BAND AUS OK (Y/N) _	Die Kassette zum Speichern vorbereiten.
111	O ENTER	>	Speichern auf Kassette ist beendet.
112	DEF B	BAND EIN OK (Y/N) -	Die Kassette zum Einlesen vorbereiten.
113	Y ENTER	HAUSHALTKONTO	Nach einem Moment wird der Dateiname angezeigt.
		BAND AUS OK (Y/N) -	Die Kassette zum Speichern vorbereiten.
114	Y ENTER	>	Speichern auf Kassette ist beendet.
115	DEF D	BAND EIN OK (Y/N) -	Die Kassette zum Einlesen vorbereiten.
116	Y ENTER	HAUSHALTKONTO >	Nach einem Moment wird der Dateiname angezeigt.Ausdruck der Gesamtsumme für das Jahr.

PROGRAMMNAME: HAUSHALTKONTO

PROGRAMM-NR.P5-D-22

9

[ Listing du programme ]

10:"C":CLEAR:WAIT 0

15:DIM B(50)

20:GOSUB 800

35:RESTORE

37:BEEP 3

39:INPUT "BAND EIN OK (Y/N) ";X

41:IF X(> "Y"GOTO 39

43:INPUT #"HAUSHALTKONTO";B(*)

45:GOSUB 900

47:USING:LPRINT"* BUDGET *"

48:LPRINT B(0);"J AHR";B(1);"MON AT"

50:FOR I=0TO 14

60:READ A

70:PRINT A;"=";

80:INPUT B(I+3):GOTO 90

85:GOTO 110

90:USING:LPRINT A

95:USING:LPRINT USING "#######,######";B(I+3)

00:B(18)=B(18)+B(I+3)

10:CLS:NEXT I

20:USING:LPRINT "EINZELH."

25:USING:LPRINT USING "#######,######";B(18)

26:BEEP 3

27:INPUT "BAND AU S OK (Y/N) ";X

28:IF X$(> "Y"GOTO 127

30:PRINT #"HAUSHALTKONTO";B(*)

40:END

200:"A":CLEAR:WAIT 0

205:DIM B(50)

210:GOSUB 800

225:RESTORE

230:BEEP 3

232:INPUT "BAND EIN OK (Y/N) ";X

236:IF X<>"Y"GOTO 232

250:INPUT #"HAUSHALTKONTO";B(*)

251:GOSUB 900

252:LF 2

253:USING :LPRINT"* EINZELHEITEN *

255:LPRINT B(1);"MONAT";B(2);"TAG"

260:FOR !=OTO 14

270:READ A

280:PRINT A;"=";

290:INPUT R:GOTO 300

295:GOTO 340

300:B(I+19)=B(I+19)+R

310:B(34)=B(34)+R

320:USING :LPRINT A$

325:USING :LPRINTUSING "#######,###";R

328:USING :LPRINTUSING "#######,###";B(I+19);USING "######.#";B(I+19)/B(I+3)*100;"%

330:S=S+R

340:CLS :NEXT I

350:USING :LPRINT "GESAMTSUMME"

351:USING :LPRINTUSING "#######,S

352:USING :LPRINTUSING "#######,B(34);USING "######.#";B(34)/B(18)*100;"%

355: BEEP 3

356: INPUT "BAND AU S OK (Y/N) ";X

358: IF X<>"Y"GOTO 356

360: PRINT # "HAUSHA LTKONTO";B(*)

370: END

500: "B": CLEAR :WAIT 0

505: BEEP 3

506: CLS : INPUT "BA ND EIN OK (Y/N ) ";X

508: IF X<>"Y"GOTO 506

510: DIM B(50)

520: INPUT # "HAUSHA LTKONTO";B(*)

530: FOR I=19TO 34

540: B(I+16)=B(I+16)+B(I)

550: B(I)=0

560: NEXT I

570: FOR I=4TO 18

580: B(I)=0

590: NEXT I

592: BEEP 3

594: INPUT "BAND AU S OK (Y/N) ";X

596: IF X<>"Y"GOTO 594

600: PRINT # "HAUSHA LTKONTO";B(*)

610: END

620: "F": CLEAR :WAIT 0

622: DIM B(50)

641: BEEP 3

642: INPUT "BAND AU S OK (Y/N) ";X

645: IF X<>"Y"GOTO 642

647: PRINT # "HAUSHA LTKONTO";B(*)

650: END

(Suite à la page suivante)

PROGRAMMNAME: HAUSHALTKONTO

PROGRAMM-NR.P5-D-22

10

[ Listing du programme ]

700:"D":CLEAR:WAIT 0

701:DIM B(50)

710:GOSUB 800

720:BEEP 3

722:INPUT "BAND EIN OK(Y/N) ";X

726:IF X<>"Y"GOTO 722

730:INPUT # "HAUSHALTKONTO";B(*)

731:LF 2

732:USING :LPRINT"*GESAMTSUMME", " FUER DASJAHR*"

735:RESTORE

740:FOR I=0TO 14

750:READ A

760:USING :LPRINTA

765:USING :LPRINTUSING "######, ####";B(I+35)

770:NEXT I

780:USING :LPRINT"GESAMTSUMME"

785:USING :LPRINTUSING "######,######";B(50)

788:END

800:DATA "LEBENSMI TTEL", "MIETE", "STROM, W., GA S", "KLEIDUNG"

801:DATA "INS.+SAN IT.AUSG.", "AUS BILDUNG", "UNTE RHALTUNG", "SOZ IALES"

802:DATA "TRANSPOR T", "KOMMUNIKAT ION", "VERSCHIE DENES", "ABZAHL UNGEN", "STEUER N"

810:DATA "WEITERES ", "ERSPARNISSE "

820:RETURN

900:INPUT "JAHR="; B(0)

910:INPUT "MONAT=";B(1)

920:INPUT "TAG=";B (2)

960:RETURN

[ Contenu de la mémoire ]

A
B
C
D
E
F
G
H
I
J	√
K
L
M
N
O
P
Q
R	Einzelposten-Betrag dieses Tages
S	Gesamtbetrag dieses Tages
T
U
V
W
X
Y
Z
A	Postenbezeichnung
X	Quittung auf Band. OK?
B(50)	Einzelposten-Gesamtbetrag

PROGRAMMNAME: LAGERBESTANDSKONTROLLE	PROGRAMM-NR.P5-D-23	1
[ Überblick ]	CE-150, CE-151 und Kassettenrecorder erforderlich

Pour contrôler les stocks, toutes les marchandises sont réparties en blocs (jusqu'à 776 articles par bloc).

Un tableau des marchandises et une liste des articles dont le stock est inférieur au stock minimum sont créés. L'identification des marchandises se fait par 10 caractères. Le stock actuel, le stock minimum et la quantité de stockage/livraison sont prévus sur 6 chiffres.

[ Mode d'emploi ]

(1) DEF F : Pour effacer la mémoire et sauvegarder le fichier principal et le fichier de stock. (2) DEF A : Pour créer et mettre à jour le fichier de stock, et DEF D sert à créer le fichier principal. (3) DEF B : Met à jour le fichier de stock en fonction du fichier principal. (4) DEF C : Pour afficher le contenu du fichier de stock selon le « tableau des marchandises » et la « liste des marchandises », dans la mesure où le stock minimum n'est pas disponible. L'utilisateur a le choix de lire depuis ou de sauvegarder sur cassette.

Cependant, si DEF F n'est pas pressé à nouveau après la première saisie de DEF F, le contenu du fichier de stock et du fichier principal reste inchangé en mémoire.

(5) DEF D : Pour saisir l'entrée et la livraison des marchandises.

[ Exemple ] : Contrôle du stock d'un marchand de meubles

(1)

Code	Artikel	Derzeitiger Bestand	Mindestbestand
1	Tisch	500	250
2	Bett	100	200
3	Stuhl	500	350

Créer un fichier de stock et imprimer le « tableau des articles ».

(2) Ajouter comme code 4 « Table 150, 100 » et modifier le code 1 du fichier de stock en « Vélo ».

(3)

Code	Lieferung Menge	Lager Menge
1	50	40
2	50	10

Après la création d'un fichier et la mise à jour du fichier de stock, le tableau des articles est de nouveau imprimé.

PROGRAMMNAME: LAGERBESTANDSKONTROLLE

PROGRAMM-NR.P5-D-23

2

Les articles en dessous de la quantité minimale de stock sont imprimés en rouge dans le tableau des articles.

[Contenu] (Formules)

(1)	DEF	A	: Zum Erstellen einer Lagerdatei (Waren-Code 1 bis 75, Warenbezeichnung, Lagermenge und Mindestlagermenge) und zum Erneuern (Eingabe des Waren-Codes, dann Warenbezeichnungen, Lagermenge und Mindestlagermenge ergänzen und verändern). Für die Ergänzung unternimmt man die Veränderungen mit Bezug auf die ausgedruckte Haupttabelle.
(2)	DEF	B	: Zum Mischen von Lagerdatei und Hauptdatei anhand des Waren-Codes und zum Berechnen der neuen Lagermenge = alte Lagermenge + Einlagerungsmenge -- Liefermenge, um die Lagerdatei auf den neuesten Stand zu bringen.
(3)	DEF	C	: Zum Ausdruck der Warentabelle und der Warenliste der Artikel unterhalb der Mindestlagermenge.Falls das Ausdrucken gewünscht ist, tastet man 1 ein, und falls nicht, eine 2.
(4)	DEF	D	: Zum Erstellen der Hauptdatei (Waren-Code, Einlagerungsmenge, Liefermenge) und zum Ausdrucken der Datenliste. Desgleichen können bis zu 75 Daten erstellt werden.
(5)	DEF	F	: Zum Löschen des Speichers und Sicherstellen der Dateibereiche für die Lagerdatei und die Hauptdatei.

[Impression]

**	TABELLE	**	**HAUPITABELLE**
1	TISCH		1	TISCH
	500	250		500 250
2	BETT		2	BETT
	100	200		100 200
3	STUHL		3	STUHL
	500	350		500 350
DERZEITIGELAGERLISTE
2	BETT		**	TABELLE **
	100	200		1 TISCH
				490 250
				2 FAHRRAD
				60 200
**DATENLISTE**
1	50	40		3 STUHL
2	50	10		500 350
				4 TABELLE
				150 100
				DERZEITIGELAGERLISTE
				2 FAHRRAD
				60 200

[Touches] (1)

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF F	SPEICHERLOESCHEN>

[Touches] (2)

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF A	REGISTIEREN=1ERNEUERN=2
2	1 ENTER	CODE = _
3	1 ENTER	WARENBEZEICHNUNG =
4	TISHC ENTER	LAGERMENGE =
5	500 ENTER	LAGERMINDESTMENGE =
6	250 ENTER	CODE = _
7	2 ENTER	WARENBEZEICHNUNG =
8	BETT ENTER	LAGERMENGE =
9	100 ENTER	LAGERMINDESTMENGE =
10	200 ENTER	CODE = _
11	3 ENTER	WARENBEZEICHNUNG =
12	STUHL ENTER	LAGERMENGE =
13	500 ENTER	LAGERMINDESTMENGE =
14	350 ENTER	CODE = _
15	ENTER	HAUPTKASSETTE AUS (Y/N)	Durch das Drücken dieser Taste endet die Datenerfas-sung.
16	Y ENTER	>	Zum Speichern der Daten auf Band eine Kassette einlegen.
1	DEF C	HAUPTKASSETTEEIN (Y/N)
2	N ENTER	TABELLE YES =1 NO = 2?	Die Tabelle ausdrucken.
3	1 ENTER	LAGERLISTE YES = 1 NO = 2?	Die Warenliste für Waren unterhalb der Mindestlager- menge ausdrucken.
4	1 ENTER	>

PROGRAMMNAME: LAGERBESTANDSKONTROLLE

PROGRAMM-NR.P5-D-23

4

[Touches] (3)

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF D	CODE =
2	1 ENTER	AUSLIEFERUNG = _
3	50 ENTER	EINLAGERUNG = _
4	40 ENTER	CODE = _
5	2 ENTER	AUSLIEFERUNG = _
6	50 ENTER	EINLAGERUNG = _
7	10 ENTER	CODE = _
8	ENTER	DATENEINLESEN OK = 1 NO = 2	Eine Kassette einlegen, um die Daten auf Band zu speichern.
9	Y ENTER	>
1	DEF A	REGISTRIEREN = 1 ERNEUERN = 2
2	2 ENTER	HAUPTKASSETTEEIN (Y/N)	Die Hauptkassette zum Einlesen in den Kassetten-recorder einlegen.
3	Y ENTER	CODE = _	Die Haupttabelle ausdrucken.
4	4 ENTER	WARENBEZEICHNUNG=_	Neue Daten
5	TABELLE ENTER	LAGERMENGE=_
6	150 ENTER	LAGERMINDESTMENGE=_
7	100 ENTER	CODE = _
8	2 ENTER	WARENBEZEICHNUNG=_	Zu verändernder Code
9	FAHRRAD ENTER	LAGERMENGE = _
10	ENTER	LAGERMINDESTMENGE=_	Durch Drücken nur dieser Taste werden die Daten nicht verändert.
11	ENTER	CODE = _
12	ENTER	HAUPTKASSETEAUS (Y/N)
13	N ENTER	>

[Touches] (4)

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF B	HAUPTKASSETTEEIN (Y/N)
2	N ENTER	DATENSPEICHERN (Y/N)	Zum Speichern der Daten auf Band eine Kassette in den Kassettenrecorder einlegen.
3	Y ENTER	HAUPTKASSETTE AUS (Y/N)	Zum Einlesen der Daten von Kassette die Hauptkassette in den Recorder einlegen.
4	Y ENTER	>

[Touches]

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1		HAUPTKASSETTEEIN (Y/N)
2	N ENTER	TABELLE YES=1 NO=2?	Ausdruck der Tabelle
3	1 ENTER	LAGERLISTE YES=1 NO=2?	Ausdruck der Warenliste für Waren unterhalb der Lagermindestmenge.
4	1 ENTER	>

[Listing du programme]

!0:"A":INPUT "REGISTRIEREN=1 ERNEUERN=2";C

20: IF (C=1)+(C=2)

<>1GOTO 10

30:IF C=1GOTO 110

50: GOSUB 700: LPRINT "**HAUP TTABELLE**"

60: FOR 1=0TO M

70: [F A$(1) <> ""GOSUB 800

90:NEXT 1:GOSUB 9

00

110: INPUT "CODE=";B:GOTO 160

120:GOSUB 750:END

160:IF B<1GOTO 110

163: IF B>M+160TO 1

10

165: INPUT "WARENBE ZEICHNUNG="; B; A(B-1)=B$

170: INPUT "LAGERME NGE=";E:A(0,(B-1))=E

180: INPUT "LAGERMINDESTMENGE=";E:A(1,(B-1))=E:GOTO 110

200: "B":GOSUB 700

210: INPUT "DATENSP EICHERN (Y/N) ";C$

220: IF (C="Y")+(C="N")<>1GOTO210

230: IF C$="N"GOTO

260

250: INPUT # "DATEN" ;D(*)

260:FOR I=0TO N

265: IF D(2, !)=0GOTO 300

270:K=D(2,1)-1.1F

K>MGOTO 300

280: A(0,K)=A(0,K)-D(0,1)+D(1,1)

300:NEXT 1.GOSUB 750:END

400: "C".GOSUB 700

430: INPUT ' TABELLE YES=1 NO=2?";

[

440. IF (C=1)+(C=2)

<>1GOTO 430

450:1F C=260TO 540

460: LPRINT	**	TA
BELLE	**"

470: FOR 1=0TO M

475:1F A$(1)=""GOTO 510

480. IF A(1, 1) >A(0, I) COLOR 3

490: GOSUB 800

500: IF A(1, I) >A(0, I) COLOR 0

510:NEXT I:GOSUB 900

540: INPUT "LAGERL"

STE YES=JNO=2?

";C

550:1F (C=1)+(C=2)

<>160TO 540

560:1F C=2END

570: LPRINT "DERZEJ TIGE", " L AGERLISTE"

580: FOR 1=0TO M

590:1F A(1,1)<=A(0,1)GOT0 610

600:GOSUB 800

610:NEXT 1.GOSUB 9

00:END

630: "D": USING .

LPRINT "**DATE

NLISTE**"

G35: FOR J=0TO N

640: INPUT "CODE=";D(2,1):GOTO 650

645:GOTO 670

650: IF D(2,1)<1GOTO 640

651. IF D(2,1) >M+1GOTO 640

653: INPUT "AUSLIEF ERUNG=";D(0,1)

655: INPUT "EINLAGE RUNG=";D(1,1)

657: USING :LPRINT

USING "###";D(2,1);USING "##

#####";D(0,1);

USING "#####

";D(1,1)

660.NEXT

670.	COSUB	900.
	COSUB	850.	END

680. "F". CLEAR .M=75.N=75.DIM A$(M),A(1,M),D(2,N).PAUSE "SPEI CHERLOESCHEN"END

700: INPUT "HAUPTKA SSETTE EIN (Y/N) ";C$

?10: IF (C="Y")+(C="N")<>1GOTO

?00

715: IF C$="N"RETURN

730: INPUT # "HAUPTK

; A$(*), A(*)

740:RETURN

750: INPUT "HAUPTKA SSETTE AUS (Y/N)", C$

760: IF (C="Y")+(C="N")<>1GOTO

750

765; IF C$="N"RETURN

270:USING .PRINT #

"HAUPTK.";A$(*)

),A(*) ;RETURN

B00:LPRINT USING "##"; I+1; ";USING "&&&&&&&&&";A$(1)

810:USING:LPRINT

";USING"#

#####";A(0,I)

;USING"#####

#";A(1,I):

USING:RETURN

850: INPUT "DATENE]NLESEN OK=1 NO=2";C

860: IF (C=1)+(C=2)

<>1GOTO 850

870: IF C=1PRINT #" DATEN"; D(*)

900:LF 2:RETURN

STATUS 1

1658

PROGRAMMNAME: LAGERBESTANDSKONTROLLE

PROGRAMM-NR.P5-D-23

7

[ Contenu de la mémoire ]

A		A		A(M)	Hauptwaren-bezeichnung
B	Haupt-Codenummer	B	Warenbezeichnung-Eingabebereich	A (1, M)	Hauptlagerbestand Hauptmindest-bestand
C	√	C		D (2, N)	Datenlieferung, Daten-Nr., Dateneinlagerung
D		D
E	Ziffern + Eingabebereich	E
F		F
G		G
H		H
I	Schleifenzähler	I
J	Schleifenzähler	J
K	√	K
L		L
M	Anzahl der Hauptwaren	M
N	Anzahl der Daten	N
O		O
P		P
Q		Q
R		R
S		S
T		T
U		U
V		V
W		W
X		X
Y		Y
Z		Z$

SHARP

PROGRAMMNAME: SCHULISCHE LEISTUNGEN	PROGRAMM-NR.P5-D-24	1
[ Überblick ]Mit diesem Programm werden die Gesamtleistungen und Durchschnittsleistungen einzelner Schüler, Gesamtleistungen und Durchschnittsleistungen von Klassen für fünf Fächer pro Klasse (bis zu 45 Schüler) berechnet. Die Noten werden von den besten bis zu den schlechtesten der Reihe nach geordnet und ausgedruckt. Desgleichen erstellt das Programm eine Häufigkeitstabelle (Säulendiagramm) aller Schüler.[ Anleitung zum Betrieb ]DEF D : Löscht alle Speicher und stellt die Gesamtschulleistung auf 0 zurück. Intervall, Anzahl der Intervalle und Anfangspunkte des Säulendiagramms eingeben.DEF A : Zum Speichern und Erneuern aller Namen.Die Klassentabelle anläßlich der Erneuerung wird ausgedruckt. Anhand der ausgedruckten Codes unternimmt man Änderungen bzw. Namensergänzungen.DEF B : Die Noten für jedes Fach durch Drücken der ENTER -Taste im Anschluß an den angezeigten Code und Namen eintasten.Im Falle von Änderungen gibt man nur die Daten für die erforderlichen Fächer ein. Durch Drücken der ENTER -Taste ausschließlich wird das entsprechende Fach übersprungen.DEF C : Zum Ausdrucken der Rangliste je Klasse, des gesamten Schul-durchschnitts, der Varianz und der Streuung nach Abschluß der Verarbeitung der Noten einer Klasse.[ Beispiel ](1) Mit den Notenergebnissen zweier Klassen in fünf Fächern wird eine Rangliste je Klasse und eine Häufigkeitstabelle erstellt.Klasse AAA 6 SchülerKlasse BBB 4 SchülerMit DEF D wird der gesamte Speicherbereich geräumt. Daraufhin wieder-holt man DEF A , DEF B , DEF C in dieser Folge der Anzahl an Klassen entsprechend.(2) Zum Korrigieren und Hinzufügen von Namen und/oder Noten liest man das im obigen Vorgang (1) hergestellt Band ein. Daraufhin erstellt man wiederum Rangliste und Streuungstabelle je Klasse.Klasse AAA NamensänderungenKlasse BBB Hinzufügen von einem SchülerNun mit DEF D den gesamten Speicherbereich nochmals räumen, darauf-hin wird DEF A , C für Klasse AAA und DEF A , B , C für Klasse BBB zum Korrigieren und Hinzufügen, daraufhin zum Ausdrucken der Rangliste je Klasse verwendet.

[Contenu] (Formules)

(1) • La formule de la variance est la suivante :

_ i = 1 ^ n (x _ i - x) ^ 2n - 1

où n = nombre d'élèves de la classe ou nombre total d'élèves,

i = nombre de matières

= moyenne des notes de la classe ou moyenne générale de l'école et

x_i= notes des matières

* La variance est exprimée arrondie à trois décimales.

- Contenu des impressions

Nom de la classe

Code, nom, notes par matière, performance totale par élève, performance moyenne par élève, performance totale de la classe, performance moyenne de la classe, variance de la classe. Performance totale de toute l'école, performance moyenne et variance de toute l'école. Dispersion (indiquée par les notes moyennes dans cinq matières)

• Les données de jusqu'à 10 classes peuvent être traitées.

(2) • Les éléments de saisie requis pour déterminer la dispersion sont les suivants :

Intervalle = 10

Point de départ = 0

Nombre d'intervalles = 5

Uniquement si le point de départ commence à 0, la différence entre le premier et les points de départ suivants est « intervalle + 1 ».

Le nombre d'intervalles est de 20 au maximum.

广力云

0

11

21

27

61 41

- On crée le fichier pour chaque classe et on le sauvegarde sur cassette. Le nom du fichier est identique au nom de la classe.

- Les noms des élèves doivent comporter moins de 14 caractères.

(3). Les données sont lues dans l'ordinateur à l'aide de DEF A ; B ou C et sauvegardées sur cassette avec DEF A ou B.

- Pour exécuter ce programme, on connecte les magnétophones à cassette comme indiqué sur le schéma ci-dessous.

PROGRAMMNAME: SCHULISCHE LEISTUNGEN			PROGRAMM-NR.P5-D-24	3
[Ausdruck]
** RANGORDNUNG **AAA KLASSENLIST1 CDDEUTSCH 100MATH. 100ENG. 100GESCH. 100NATURW. 100GESAMT 500DSCHN. 1002 GHDEUTSCH 100MATH. 100ENG. 80GESCH. 90NATURW. 60GESAMT 430DSCHN. 863 ABDEUTSCH 80MATH. 90ENG. 40GESCH. 78NATURW. 80GESAMT 368DSCHN. 744 IJDEUTSCH 50MATH. 45ENG. 60GESCH. 70NATURW. 55GESAMT 280DSCHN. 565 EFDEUTSCH 10MATH. 25ENG. 60GESCH. 35NATURW. 22GESAMT 150DSCHN. 30KLASSE GESAMT 1728KLASSENDURCHSCHNITT 69VARIANZ 741.25	** RANGORDNUNG **BBB KLASSENLIST1 MNDEUTSCH 90MATH. 95ENG. 95GESCH. 100NATURW. 95GESAMT 475DSCHN. 952 STDEUTSCH 45MATH. 60ENG. 85GESCH. 75NATURW. 95GESAMT 360DSCHN. 723 QRDEUTSCH 65MATH. 85ENG. 75GESCH. 95NATURW. 35GESAMT 355DSCHN. 714 KLDEUTSCH 50MATH. 50ENG. 55GESCH. 45NATURW. 60GESAMT 260DSCHN. 525 OPDEUTSCH 10MATH. 25ENG. 35GESCH. 50NATURW. 65GESAMT 185DSCHN. 37KLASSE GESAMT 1635KLASSENDURCHSCHNITT 65VARIANZ 484.5	DSCHN..ALLER= 67VARIANZ 8SAULENDIAGRAMM06111621261313614146511561667176818619196	[IMAGE]311111311331111311331111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111

PROGRAMMNAME: SCHULISCHE LEISTUNGEN

PROGRAMM-NR.P5-D-24

4

[Action sur les touches] (1)

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF D	INTERVALL DES DIAGRAMMS?_
2	5 ENTER	STARTPUNKT?_
3	0 ENTER	ANZAHL DER INTERVALLE?_
4	20 ENTER	>

[Action sur les touches] (2)

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF A	SPEICHERN=1/AENDERN=2?
2	1 ENTER	KLASSENNAME = _
3	AAA ENTER	NAME = _
4	AB ENTER	NAME = _
⋮	⋮	⋮ Wiederholen
9	IJ ENTER	NAME = _
10	ENTER	KASSETTE AUS OK=1/NO = 2? _	Durch Drücken dieser Tasteist die Verarbeitung beendet.Falls OK (1), erfolgtSpeichern auf Kassette
11	2 ENTER	>

PROGRAMMNAME: SCHULISCHE LEISTUNGEN

PROGRAMM-NR.P5-D-24

5

[Touche] (3)

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF B	KASSETTE EIN OK = 1/NO = 2? _
2	2 ENTER	1 AB	Wenn ein Name in der Anzeige erscheint, beginnt man die Eingabe der Leistungen je Fach mit dieser Taste.
3	ENTER	DEUTSCH 0?==> _
4	80 ENTER	MATH 0?==> _	Wenn es das erste Mal. ist, wird 0 angezeigt.
5	90 ENTER	ENG. 0?==> _
6	40 ENTER	GESCH. 0?==> _
7	78 ENTER	NATURW 0?==> _
8	80 ENTER	2 CD
9	ENTER	DEUTSCH. 0?==> _
10	100 ENTER	MATH 0?==>
		(Wiederholen):
37	70 ENTER	NATURW. 0?==> _
38	55 ENTER	KASSETTE EIN OK = 1/NO = 2? _	Den Kassettenrecorder zum Speichern vorbereiten stellen.
39	1 ENTER	>

PROGRAMMNAME: SCHULISCHE LEISTUNGEN

PROGRAMM-NR.P5-D-24

6

[Touche] (4)

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF C	KASSETTE EIN OK=1/NO=2? _
2	2 ENTER	GESAMT OK=1/NO=2? _	Ausdruck der Liste je Klasse.
3	2 ENTER	>	Eingabe von 2, solange nicht alle Klassen vorüber sind.
DEF A bis DEF Cso oft wiederholen, wie die Anzahl der Klassen beträgt.
1	DEF C	KASSETTE EIN OK=1/NO=2? _
2	2 ENTER	GESAMT OK=1/NO=2? _	Ausdruck der Liste je Klasse.
3	1 ENTER	>	Nach Fertigstellary aller Klas- sen, 1 eingeben.Die Durchschnittsnote aller Schüler und die Streuung werden ausgedruckt.

[Touche] (5)

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF A	SPEICHERN=1/AENDERN=2?	(Änderungsvorgang)
2	2 ENTER	KASSETTE EIN OK = 1/NO = 2 ? _	Zum Einlesen der Daten in den Computer legt man das Band Klasse BBB in den Kassettenrecorder ein.
3	1 ENTER	KLASSENNAME = _
4	BBB ENTER	CODE = _	Klassenliste wird ausgedruckt.
5	5 ENTER	NAME = _	(Neu)
6	KL ENTER	CODE = _
7	ENTER	KASSETTE AUS OK = 1/NO = 2 ? _	Durch Drücken dieser Taste wird die Verarbeitung beendet.
8	2 ENTER	>
1	DEF B	KASSETTE EIN OK = 1/NO = 2 ? _	(Korrektur der Noten)
2	2 ENTER	1 KL
3	ENTER	DEUTSCH90?===>_	Die Note vor der Korrektur wird angezeigt.
4	ENTER	MATH. 95?===>_	Falls Änderung erforderlich, gibt man die neue Note ein, fails keine Korrektur erforderlich, drückt man diese Taste ohne weitere Eingabe.
5	90 ENTER
		(wiederholen) :
31	75 ENTER	NATURW.0?===> _
32	95 ENTER	KASSETTE AUS OK=1/NO=2?	Die Kassette Klasse BBB zum Speichern in den Kassettenrecorder einlegen.
33	1 ENTER	>

PROGRAMMNAME: SCHULISCHE LEISTUNGEN

PROGRAMM-NR.P5-D-24

8

[Liste des programmes]

10: "A": INPUT, "SPE ICHERN=1/AENDE RN=2?";E

15: IF (E=1)+(E=2) <>1GOTO 10

18: IF E=2GOTO 60

21: A=0: FOR I=0TO P

22: B(I)=""

23: FOR J=0TO Q+1

24: B(J,I)=0

25: NEXT J

26: NEXT I

28: INPUT "KLASSEN NAME=";A

30: FOR I=0TO P

35: INPUT "NAME=";B(I):GOTO 45

40: I=I-1:GOTO 100

45: A=A+1

50: NEXT I:GOTO 100

60: GOSUB 700

65: LPRINT "** KLA SSENLIST **": GOSUB 800

70: INPUT "CODE=";I:GOTO 80

75: GOTO 100

80: IF (I<1)+(I>P+1)=1GOTO 70

88: IF B(I-1)="" LET A=A+1'

90: INPUT "NAME=";B(I-1)

95: GOTO 70

100: GOSUB 750:END

110: "B": GOSUB 700:CLS :WAIT ;FOR I=0TO A-1

120: CLS :Z=STR(I+1)+" "+B(I)

125: PRINT Z

130: WAIT 0: FOR J=0 TO Q

140: CLS :PRINT D(J);" ";

145: PRINT B(J,I);

150: INPUT " ? ==>" ;B(J,I)

170: NEXT J:WAIT :CLS

190: NEXT I

200: GOSUB 750

210: END

220: "C": F=0; D=0+1

230: GOSUB 700: FOR I=0TO A-I: FOR J=0TO Q

235: B(Q+I, I)=B(Q+1, I)+B(J, I): NEXT J

240: F=F+B(Q+1, I): NEXT I

280: GOSUB 600

320: LPRINT "** RAN GORDNUNG **"

323: LPRINT A;" KL ASSENLIST"

325: M=INT (F/A/(Q+I)+.5)

330: G=1: GOSUB 800

335: INPUT "GESAMT OK=1/NO=2?"; E

340: IF (E=1)+(E=2) <>1GOTO 335

345: IF E=2GOTO 365

350: S=INT (C/D+.5): LPRINT "DSCHN ..ALLER=";S:LF 1

352: R=0: FOR I=0TO D-1: R=INT (D(I)-S)2+R:NEXT I

353: IF D=1LF 2: GOTO 360

354: N=R/(D-1): N= INT (N*103+,5)/103

355: LPRINT "VARIAN Z"; N:LF 2

360: GOSUB 900

365: END

400: "D": CLEAR :P=4 4:Q=4:K=9:DIM B(P), B(Q+1,P), D(Q)*3, D(K).

410: D(0)="DEUTSCH ":D(1)="MATH. ":D(2)="ENG." :D(3)="GESCH. ":D(4)="NATUR W."

30: INPUT "INTERUA LL DES DIAGRAM MS?"; T

35: IF (T<1)+(T>10 0)=1GOTO 430

440: INPUT STARTPU NKT?";U

445: IF (U<0)+(U>10 0)=IGOTO 440

450: INPUT "ANZAHL DER INTRRVALLE ?";U

455: IF (U<1)+(U>20 )=IGOTO 450

458:DIM E(U-1),F(U -1)

460: FOR I=0TO U-1: F(1)=U:IF U=0 LET U=U+1

465: U=U+T:NEXT I

470: END

500: FOR Z=0TO U-1

505: IF F(Z)>WGOTO 550

510: IF Z=U-1GOTO 5 25

515: IF F(Z+1)<=W GOTO 550

520: E(Z)=E(Z)+1: GOTO 550

525: IF F(Z)+T>W GOTO 520

550:NEXT 2

555: RETURN

500: FOR I=0TO A-2: L=I+1

510: FOR J=LTO A-1

520: IF B(Q+1,I)>=B (Q+1,J)GOTO 62 7

523:C=B(I):B(I) =B(J):B(J)=C

525: FOR O=0TO Q+1: H=B(0,I):B(0,I )=B(0,J):B(0,J )=H:NEXT 0

527:NEXT J

529:NEXT I

530: RETURN

700: INPUT "KASSETT E EIN. OK=1/NO= 2?";H

705: IF (H=1)+(H=2) <>IGOTO 700

710: IF H=2GOTO 725

715: INPUT "KLASSEN AME?";A

720: INPUT #A;A,B$ (*),B(*)

725: RETURN

(Suite à la page suivante)

PROGRAMMNAME: SCHULISCHE LEISTUNGEN		PROGRAMM-NR.P5-D-24	9
[Programmlisting]
750: INPUT "KASSETTE AUS OK=1/NO=2?";H755: IF (H=1)+(H=2)<1GOTO 750760: IF H=2GOTO 770765: PRINT #-1, A;A,B(*), B()770: RETURN800: FOR 1=0TO A-1805: LPRINT USING "###"; I+1;" ";B(1): USING810: IF G=0GOTO 840815: FOR J=0TO Q820: LPRINT USING "&&&&&&&"; D$(J); USING "###";B(J, I)825: USING : NEXT J830: LPRINT "GESAMT"; B(Q+1, I)833: W=INT (B(Q+1, I)/(Q+1)+.5)835: LPRINT "DSCHN.";W: GOSUB 500:LF 1840: NEXT J845: IF G=0GOTO 860850: LPRINT "KLASSEGESAMT";F855: R=0: LPRINT "KLASSENDURCHSCHNITT"; M: C=C+M:IF K>=D-1LET D(D-1)=M857: FOR Q=0TO A-1:S=INT (B(Q+1,0)/(Q+1)+.5): R=(S-M)^2+R:NEXTQ858: IF A=1GOTO 860859: N=R/(A-1): N=INT (N*10^3+.5)/10^3: LPRINT"VARIANZ";N860: G=0; LF 2:RETURN	900: LPRINT "SAULENDIAGRAMM"903: GRAPH :GLCURSOR (0, 0):SORGN :LINE (50, 0)-(215, 0):LINE (50, 0)-(50,-450)905: S=E(0): FOR I=1TO U-1: IF S908: NEXT 1910: Y=0: FOR 1=0TOU-1: X=115/S*E(I)913: IF X=0GOTO 930915: LINE (50, Y)-(X+50, Y-450/U), 0,2, B920: COLOR 0:GLCURSOR (X+55,Y-20): LPRINT E(I)930: GLCURSOR (0, Y-13): LPRINT F(I)940: Y=Y-450/V:NEXTI: TEXT : COLOR0: LF 2960: RETURNSTATUS 12575

[ Contenu de la mémoire ]

A	Anzahl der Schüler je Klasse	A	Klassenname	B(Q+1,P)	Leistungen
B	√	B		B(P)	Name der Schüler
C	Klassendurchschnitt insgesamt	C	√	D(P)	Name der Fächer
D	Anzahl der Klassen	D		D(K)	Durchschnitt der Klassen
E	√	E		E(V-1)	Zählen der Schüleranzahl bei der Streuung.
F	Klasse insgesamt	F		F(V-1)	Zahl am Anfangspunkt jedes Intervalls.
B	√	G
H	√	H
I	√	I
J	√	J
K	Anzahl der Klassen	K
L	√	L
M	Klassendurchschnittsnote	M
N		N
O	√	O
P	Höchstanzahl der Schüler je Klasse	P
Q	Anzahl der Fächer	Q
R	√	R
S	√	S
T	Intervall	T
U	Startpunkt	U
V	Anzahl der Intervalle	V
W	Durchschnittsnoten je Schüler	W
X	√	X
Y	√	Y
Z	√	Z	√

SHARP

PROGRAMMNAME: TASCHENCOMPUTER-TERMINPLANER	PROGRAMM-NR.P5-D-25	1
[ Überblick ]	CE-150, CE-151 und Kassettenrecorder erforderlich
Durch die Vorgabe von Datum, Zeit, Inhalt und Alarmzeit kann der Computer Sie zur vorgegebenen Alarmzeit darauf aufmerksam machen, was als nächstes anliegt. Zur Alarmzeit ertönt ein Signalton. Von maximal 30 Terminen können pro Posten bis zu 40 Zeichen gespeichert werden.
[ Anleitung zum Betrieb ]DEF N : Dient zum Löschen des gesamten Inhalts.DEF Z : Zum Starten des Terminplaners.Zur Alarmzeit ist ein Alarmton hörbar.Der Alarm dauert eine Minute an und kann durch Drücken der ! -Taste gestoppt werden. Daraufhin wird der für diesen Termin gültige Inhalt ausgedruckt.A : Dient zum Einstellen der Tageszeit.B : Dient zum Speichern der Termine.C : Dient zum Drucken der Termine innerhalb der festgelegten Periode.D : Dient zum Ausdruck aller Termine des Tages.F : Dient zum Ausdruck aller gespeicherten Termine.G : Dient zum Ausdruck des ersten Termins nach der festlegten Periode.H : Dient zum Ausdruck der gesperrten bzw. der nicht gesperrten Termine.K : Dient zum Löschen der Termine vor der festgelegten Periode mit Ausnahme der gesperrten.M : Dient zum Einlesen der Termine von der Kassette.L : Dient zum Speichern der Termine auf die Kassette.
[ Vorsicht ]· Durch Drücken der BREAK -Taste wird das Programm gestoppt.· Die Tasten langsam drücken.· Zur Programmausführung den Netzstromadapter für den CE-150 anschließen.· Die Zeiten für Anfang und Ende im 24-Stundenformat eintasten.· Die Alarmzeit einige Minuten vor der Startzeit eintasten.Ohne Eingabe werden die Minuten 0.· Zum Löschen der gesperrten Termine verwendet man K bzw. DEF N .· Zum Speichern des Termins mit 0 Minuten tastet man 0 ein und drückt ENTER .· Monat, Tag, Stunde und Minute jeweils 2-stellig eintasten.· Wenn keine Speicherfläche mehr für die Terminspeicherung zur Verfügung steht, werden frühere, nicht gesperrte Termine gelöscht, um Raum für neue Eintragungen zu schaffen. Wenn keine löschbaren Termine mehr verbleiben, erscheint die Anzeige „SPEICHER VOLL“, und der Programmablauf wird fortgesetzt.
PROGRAMMNAME: TASCHENCOMPUTER-TERMINPLANER	PROGRAMM-NR.P5-D-25	2

[ Exemple 1 ]

DEF N : Sert à effacer tous les rendez-vous. Attention !

DEF Z : Pour démarrer le programme.

A : Pour régler l'heure à 10 h 35 le 9 novembre.

B : Pour enregistrer tous les rendez-vous.

• Conférence de 9 h 30 le 15 novembre à 12 h 00 le 15 novembre, avec alarme 20 minutes avant. Verrouiller.
• Visiteur à 13 h 00 le 20 novembre jusqu'à 17 h 30 le 20 novembre, alarme 30 minutes avant. Ne pas verrouiller.
• Concert de 15 h 00 le 13 novembre à 16 h 30 le 13 novembre, alarme 30 minutes avant. Verrouiller. ● Gymnastique de 6 h 30 le 30 novembre à 6 h 50 le 30 novembre, avec alarme 0 minute avant. Ne pas verrouiller.

C : Pour imprimer tous les rendez-vous du 15 novembre au 20 novembre à 12h00.

D : Pour imprimer tous les rendez-vous de ce jour (20 novembre).

F : Pour imprimer tous les rendez-vous enregistrés.

S : Pour enregistrer les rendez-vous sur cassette.

[ Exemple 2 ]

1. Pour arrêter le programme, appuyez sur la touche BREAK.
2. Suppression de tous les rendez-vous en appuyant sur DEF N.
3. Pour démarrer le programme, appuyez sur les touches DEF Z.
4. Pour enregistrer les rendez-vous, appuyez sur B.
5. Visiteurs du 10 décembre à 10h00 au 10 décembre à 12h00, alarme 30 minutes avant. Ne pas verrouiller.
6. Fête du 24 décembre à 18h00 au 24 décembre à 23h00, alarme 60 minutes avant. Verrouiller.
7. En appuyant sur la touche G, le premier rendez-vous après le 15 décembre est imprimé.
8. En appuyant sur la touche H, les rendez-vous verrouillés sont imprimés.
9. En appuyant sur la touche H, les rendez-vous non verrouillés sont imprimés.
10. En appuyant sur la touche K, les rendez-vous du 10 décembre avant 10h00 sont imprimés.
11. En appuyant sur la touche S, les rendez-vous sont enregistrés sur cassette.

[Exemple 3]

1. Pour arrêter le programme, appuyez sur la touche BREAK.
2. Pour effacer tous les rendez-vous, appuyez sur les touches DEF N.
3. Pour démarrer le programme, appuyez sur les touches DEF Z.
4. Pour lire les rendez-vous affichés précédemment dans l'exemple 1, appuyez sur la touche L.

NOM DU PROGRAMME : PLANIFICATEUR DE RENDEZ-VOUS POUR ORDINATEUR DE POCHE

N° DE PROGRAMME P5-D-25

3

1. Pour effacer tous les rendez-vous avant le 25 novembre, à l'exception des rendez-vous verrouillés, appuyez sur la touche M.
2. Pour imprimer tous les rendez-vous actuellement en mémoire, appuyez sur la touche F.

[Impression]

VON 11/15BIS 11/20 LISTE	NACH12/15 0:00	LISTE GESAMTE	LISTE GESAMTE
	* PARTY *	* KONFERENZ *	* KONFERENZ *
* KONFERENZ *	START 12/24 18:00	START 11/15 9:30	START 11/15 9:30
START 11/15 9:30	ENDE 12/24 23:00	ENDE 11/15 12:00	ENDE 11/15 12:00
ENDE 11/15 12:00	ALARM 50MIN.VORHER	ALARM 20MIN.VORHER	ALARM 20MIN.VORHER
ALARM 20MIN.VORHER		* BESUCHER *	* KONZERT *
* BESUCHER *		START 11/20 13:00	START 11/13 15:00
START 11/20 13:00	SPERREN-LISTE	ENDE 11/20 17:30	ENDE 11/13 16:30
ENDE 11/20 17:30		ALARM 30MIN.VORHER	ALARM 30MIN.VORHER
ALARM 30MIN.VORHER	* PARTY *
	START 12/24 18:00	* KONZERT *	* GYMNASTIK *
	ENDE 12/24 23:00	START 11/13 15:00	START 11/30 6:30
	ALARM 60MIN.VORHER	ENDE 11/13 16:30	ENDE 11/30 6:50
		ALARM 30MIN.VORHER	ALARM 6MIN.VORHER
		* GYMNASTIK *
	NICHT-SPERRENLISTE	START 11/30 6:30
		ENDE 11/30 5:50
	* BESUCHER *	ALARM 6MIN.VORHER
	START 12/10 10:00
	ENDE 12/10 12:00
	ALARM 30MIN.VORHER

[Action sur les touches] (1)

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF N	LOESCHUNG-ENDE	Löschen aller Termine.
2	DEF Z	11/5 ; 16:03	Programmstart
	A	11/5 ; 16:03	Anzeige der Tageszeit
3		AENDG.=1KE. AENDG.=2	Falls die Zeit korrekt ist,tastet man 2 ein, um dasProgramm fortzusetzen.
4	1 ENTER	? / ; :
5	11 ENTER	11/ ? ; :	Eingabe des Monats
6	09 ENTER	11/09 ; ? :	Eingabe des Tages
7	10 ENTER	11/09 ; 10 : ?	Eingabe der Stunde
	35 ENTER	11/09 ; 10 : 35_	Eingabe der Minuten
8		11/9 ; 10 : 35	Die Anzeige wird zum obigenSchritt 3 zurückgebracht.
9	B	? / ; : START	Terminspeicherung

[Action sur les touches] (1)

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
10	11 ENTER	11/? ; : START	Start der Monatseingabe.Zum Fortsetzen des Programms ENTER drücken.
11	15 ENTER	11-/15 ; ? : START	Start Tageseingabe
12	09 ENTER	11-/15-; 09: START	Start Stundeneingabe
13	30 ENTER	/ ; : ENDE	Start Minuteneingabe
14	11 ENTER	11-/ ; : ENDE	Ende Monatseingabe
15	15 ENTER	11-/15-; : ENDE	Ende Tageseingabe
16	12 ENTER	11-/15-; 12: ENDE	Ende Stundencingabe
17	00 ENTER	INHALT=	Ende Minuteneingabe
18	KONFERENZ ENTER	ALARMZEIT=_	Terminkurzbeschreibung-Eingabe
19	20 ENTER	SPERREN=1 NICHTSPERREN=2? _	Alarmzeit-Eingabe ( ... Minuten vorher)
20	1 ENTER		WahlBringt die Anzeige zu Schritt 9 zurück.
21	C	EINTRAG STARTDATUM=	Monat- und Tageingaben 4-stellig
22	1115 ENTER	EINTRAG ENDDATUM =	Monat- und Tageingaben 4-stellig
23	1120 ENTER		Ausdruck der gespeicherten Termine, dann Fortsetzung des Programms.
24	D	11/10 10:30	Ausdruck der Termine des Tages und Fortsetzung des Programms.
25	F	11/10 10:31	Ausdruck aller gespeicherten Termine und Fortsetzung des Programms.
26	S	KASSETTENAUSGABE(Y/N)_	Speichert die Termine auf Kassette und Fortsetzung des Programms.
27	Y ENTER

[Action sur les touches] (2)

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	BREAK		Stoppt das Programm.
2	DEF N	LOESCHUNG-ENDE	Löscht alle Termine.
3	DEF Z	11/09 ; 11:30	Startet das Programm und Anzeige der Tageszeit.
4	B		Speichern von Terminen.
5
14	60 ENTER	SPERREN = 1/NICHT SPERREN = 2? _	SPERRENNICHT SPERREN Wahl
15	1 ENTER		Bringt die Anzeige zu Schritt 4 zurück.
16	G12150000 ENTER	DATUM, ZEIT = _	Für die 8-stellige Eingabe von Monat, Tag, Stunde und Minute. Je 2 Stellen.Nach Eingabe des Datums werden alle Termine ausgedruckt und Fortsetzung des Programms.
17	H	SPERREN = 1/NICHT SPERREN = 2? _	SPERRENNICHT SPERREN Wahl
18	I ENTER		Druckt alle gesperrten Termine aus und Fortsetzung des Programms.
19	H	SPERREN = 1/NICHT SPERREN = 2? _	SPERRENNICHT SPERREN Wahl
20	2 ENTER		Druckt alle ungesperrten Termine aus und Fortsetzung des Programms.
21	K	DATUM, ZEIT = _	8-stellig Eingabe von Monat, Tag, Stunde und Minuten.
22	12101000 ENTER	LOESCHUNG-ENDE	Nach dem Löschen Fortsetzung des Programms.

NOM DU PROGRAMME : AGENDA DE POCHE POUR ORDINATEUR NUMÉRO DU PROGRAMME : P5-D-25 6

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
23		KASSETTE AUS OK (Y/N)?	Speichert den Inhalt der Termine auf Kassette und nochmaliger Ablauf des Programms.
24	Y ENTER

[Action sur les touches] (3)

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	BREAK		Stoppt das Programm.
2	DEF N		Löscht alle Termine.
3	DEF Z	11/10 ; 9:05	Liest die in Beispiel 1 gespeicherten Termine ein.
4	L	KASSETTE EIN OK (Y/N)?-	Eingabe von Monat, Tag, Stunde und Minute, 8-stellig.
5	Y ENTER	PROGRAMM11/10 ; 9:10	Anzeige des Dateinamens.
6	M	DATUM, ZEIT = _	Eingabe von Monat, Tag, Stunde und Minute, 8-stellig.
7	11250000 ENTER	LOESCHUNG-ENDE	Bewirkt nochmaligen Programmablauf nach Löschen aller ungesperrten Termine, die vor einem bezeichneten Datum liegen.
8	F	11/10 ; 9:12	Druckt alle gespeicherten Termine aus und nochmaliger Ablauf des Programms.

[Listage du programme] 2 : "S" : INPUT "SORTIE CASSETTE (O/N) ? "; Y: IF Y="O" GOTO 5 4 : GOTO 2 5 : PRINT # "RENDEZ-VOUS "; P( ), N$( ) : CLS : RETURN 8 : "L" : INPUT "ENTRÉE CASSETTE (O/N) ? "; Y: IF Y="O" GOTO 11 10 : GOTO 8 11 : INPUT # "RENDEZ-VOUS "; P( ), N$( ) : CLS : RETURN 20 : "A" : A=TIME : GOSUB 950 : CLS : WAIT 130 : PRINT A$ : WAIT 0 50 : INPUT "MODIF. DATE = 1, PAS DE MODIF. DATE = 2 ? "; Z: IF (Z="1")+(Z$="2")<>1 GOTO 50 60 : IF Z$="2" RETURN 63 : PRINT "/ ; : "; GOSUB 925 : A=B*10000+C*100+D+E/100 : TIME=A : GOTO 20 100 : A=B*10000+C*100+D+E/100 105 : TIME=A : GOTO 20

170 : "B" : FOR J=0 TO 28 : IF P(I,0)<>0 GOTO 240 175 : CLS : PRINT " ; : DÉBUT" : GOSUB 925 178 : IF U=1 GOTO 245 180 : X=B*10000+C*100+D+E/100 : IF X<TIME GOTO 175 200 : CLS : PRINT " ; : FIN" : GOSUB 925 : IF U=1 GOTO 200 207 : Y=B*10000+C*100+D+E/100 : IF Y>P(J,1) GOTO 222 218 : Z=1 : J=26 : GOTO 222 220 : IF Y>P(J,0) LET Z=1 : J=26 222 : NEXT J 225 : IF Z=1 LET Z=0 : GOTO 175 226 : P(I,0)=X : P(I,1)=Y : CLS : INPUT "CONTENU="; N$(I) : CLS : INPUT "HEURE D'ALARME="; P(I,2) 235 : CLS : INPUT "VERROUILLER=1, NE PAS VERROUILLER=2", P(I,3) : IF (P(I,3)=1)+(P(I,3)=2)<>1 GOTO 235 240 : NEXT I 245 : IF U=1 LET U=0 : GOTO 290 250 : H=0 : K=0 255 : FOR J=0 TO 25 : IF P(J,3)=1 GOTO 275 265 : IF P(J,3)=1 GOTO 275

267 : IF H=0 LET H=P(J,0) : K=J+1 270 : IF H>P(J,0) LET H=P(J,0) : K=J+1 275 : NEXT J 277 : IF K=0 WAIT 150 : PRINT "MÉMOIRE PLEINE" : WAIT 0 : GOTO 290 280 : I=K-1 : GOSUB 900 : GOTO 170 290 : CLS : RETURN 300 : "C" : WAIT 0 : CLS : INPUT "ENTRER DATE DE DÉBUT=" ; G : GOTO 330 305 : G=0 : H=9999 330 : CLS : INPUT "ENTRER DATE DE FIN=" ; H 350 : IF (G=0)+(H=9999)+(G>H)=1 GOTO 300 365 : A=G*100 : GOSUB 950 : LPRINT "DU"; B; "/"; C 366 : A=H*100 : GOSUB 950 : LPRINT "AU"; B; "/"; C; " LISTE" 370 : FOR I=0 TO 28 : IF P(I,0)=0 GOTO 410 380 : IF G>INT(P(I,0)/100) GOTO 410 390 : IF H<INT(P(I,0)/100) GOTO 410 400 : GOSUB 990 410 : NEXT I : LF 3 : CLS : RETURN

(Suite à la page suivante)

[Listage du programme]

450 : "D" : G=INT(TIME/100) : P=INT(G/100) : LPRINT P; "MOIS"; G-P*100; "JOUR"

450:"D":G=INT (TIME /100):P=INT (G/100):LPRINT P;"MONAT";G-P*100;"TAG"

470: FOR I=0TO 28:IF G<>INT (P(I,0)/100)GOTO 500

490: GOSUB 990 500: NEXT I : LF 3 CLS : RETURN 550: "F" : LPRINT : "LISTE GESAMTE" FOR I = 0 TO 28 IF P(I,0) = 0 GOTO 580 570: GOSUB 990 580: NEXT I : LF 3 CLS : RETURN 600: "G" : G = 0 : H = 0 INPUT "DATUM, ZEIT="; G 608: A = G/100 : GOSUB 950 LPRINT "NACH"; A$ 610: FOR I = 0 TO 28 IF G(INT(P(I,0)*100) GOTO 623 620: GOTO 630 623: IF H = 0 LET H = P(I,0) : K = I 625: IF H > INT(P(I,0)) LET H = INT(P(I,0)) : K = I 630: NEXT I 635: IF H = 0 GOTO 649 640: I = K : GOSUB 990 649: LF 3 : CLS : RETURN 660: "H" : INPUT "SPERREN=1, NICHT SPERREN=2?", T 665: IF (T=1)+(T=2) <> 1 GOTO 660 666: IF T=1 LET B$ = "SPERREN-" : GOTO 668 667: B$ = "NICHT-SPERREN" 668: LPRINT B$; "LISTE"

670: FOR I=0TO 28:IF P(1,0)=0GOTO 680

672: IF P(1,0)=0GOTO 680

675:IF P(I,3)=T

GOSUB 990

680:NEXT 1:LF 3:CLS :RETURN

700: "K": INPUT "DAT

UM, ZEIT="; 6:

FOR I=0TO 28:

715: IF G=INT (P(I,0)*100)LET I=26:NEXT'I:GOSUB900:GOTO 725

720: NEXT I 725: GOSUB 920 : CLS : RETURN

750: "M": G=0: INPUT

"DATUM, ZEIT=";

G: FOR I=0TO 28

; IF G>INT (P(1,0)*100)GOTO 7

75

770: GOTO 780 775: IF P(1,3) = 2 GOSUB 900 780: NEXT 1 : GOSUB 920 : CLS : RETURN

800: "N": CLEAR :DIM P(29,4), N$(29) *40: GOSUB 920: END

830: "Z" : WAIT 0 836: FOR R = 0 TO 28 837: A = TIME : GOSUB 950 PRINT A$

838: B=INKEY : IF(B="B")+(B="C")+(B="D")+(B="F")+(B="G")+(B="H")=1GOTO 842'

839: IF (B="M")+(B="K")+(B="A")+(B="S")+(B$="L")=160TO. 842

840: GOTO 843 842: GOSUB B$

843: IF (P(R, 4)=1)+

(P(R, 0)=0)=1

GOTO 872

845:U=P(R,0)-P(R,2) /100:W=(U-INT) *100:IF INT W>59LET U=P(R,0)+1-0.6

847: IF INT (TIME *100) <INT (U*100)GOTO 872

855:P(R,4)=1:M=

TIME+0.01:N=(M-INT M)*100

859: IF INT N>59LETM=M+1-0.6

861:IF TIME >MGOTO

870

865:B=INKEY :IF

B<>CHR &11

BEEP 2:GOTO 86

1

870: I=R:GOSUB 990:LF 3

872:NEXT R:GOTO 836

900: P(1,0)=0: P(1,1) =0: P('1,2)=0: P(I,3)=0: P(1,4)=0:N$(I)="";RETURN

920:CLS :WAIT 150:PRINT "LOSCHUNG-ENDE":WAIT 0:RETURN

925: CURSOR 0: INPUTB: GOTO 927

926: U = 1 : GOTO 949

927: IF B>12GOTO 925

928: IF B = 0 GOTO 925

929: CURSOR 5: INPUT

C: GOTO 931

930: GOTO 929 931: IF C = 0 GOTO 929

932: 1F (B=4)+(B=6)+(B=9)+(B=11)=1GOT0 938

933: IF B = 2 GOTO 936

934:1F C>31GOTO 92

9

935: GOTO 940

936:1F C>29G0TO 92

9

937: GOTO 940

(Suite à la page suivante)

[Listing du programme]

938: IF C>30GOTO 929

940: CURSOR 10:INPUT D:GOTO 944

941: GOTO 940

944: IF D>23GOTO 940

945: CURSOR 15:INPUT E:GOTO 948

946: GOTO 945

948: IF E>59GOTO 945

949: RETURN

950: B=INT (A/10000):C=INT ((A-B*10000)/100):D=INT (A-B*10000-C*100)

955: E=INT ((A-B*10000-C*100-D)*100)

975: IF E=0LET E="00":GOTO 980

976: E=STRE

980: A=STRB+"/"+STR C+" "+STRD+"; "+E

985: RETURN

990: LF 1:LPRINT ";N(1);"*":A=P(1,0):GOSUB950:LPRINT "START ";A:A=P(1,1)

993: GOSUB 950:LPRINT "ENDE";A$:LPRINT "ALARM";P(1,2);MIN.VORHER";RETURN

STATUS 1

3411

[ Contenu de la mémoire ]

A	Zeit
B	Monat
C	Tag
D	Stunde
E	Minute
F
G	√
H	√
I	√
J	√
K	√
L
M	√
N	√
O
P	√
Q
R	√
S
T
U	√
V	√
W	√
X	√
Y	√
Z	√

A	Monat, Tag, Stunde, Minute
B	√
S	√
Y	√
Z$	√
NS(i)	Inhalt Startzeit
P(i,0)	Startzeit
P(i,1)	Schlußzeit
P(i,2)	Alarmzeit
P(i,3)	Sperren, nicht sperren
P(i,4)	Vor oder nach der gegenwärtigen Zeit

SHARP

PROGRAMMNAME: ERSTELLUNG EINES KREDITORENBUCHES	PROGRAMM-NR. P5-D-26	1
[ Überblick ]	CE-150, CE-151, CE-152 erforderlich

Les numéros de produit, quantités et prix créés pour chaque fournisseur sont saisis sur la base des bons de commande individuels. La liste des achats donne un aperçu de l'ensemble de la livraison de chaque fournisseur et permet ainsi un contrôle efficace des achats.

[ Mode d'emploi ]

DEF A : Ces touches servent à saisir le contenu de chaque achat. Une liste des données saisies est imprimée.

DEF B : Pour lire la liste des produits enregistrés sur bande pour chaque fournisseur, appuyez sur ces touches.

Remarque : Enregistrez les données de chaque fournisseur sur une cassette séparée.

[ Exemple ]

1. Kreditorenbuch (neu): Lieferant	“A-123”
Produktbezeichnung	“A-11”	“C-33”	“D-44”
Preis	1,000	5,000	1,000
Menge	15	5	1

Les données ci-dessus sont saisies conformément aux instructions de la section « Touches à utiliser ». Lorsque FIN (O/N) s'affiche, entrez « O ». Utilisez les touches DEF A pour saisir les données suivantes. Pour cela, remplacez la cassette par une autre.

(Neu):	Lieferant	“J-963”
	Produktbezeichnung	“J-77”
	Preis	6,200
	Menge	3

Saisissez les données ci-dessus dans cet ordre.

Lorsque « FIN (O/N) » s'affiche, entrez « N » et remplacez à nouveau la cassette par la précédente. Ensuite, saisissez les données suivantes pour terminer l'opération des touches.

Lieferant	“A-123”
Produktbezeichnung	“C-33”	“D-44”	“R-55”
Preis	—	—	4.000
Menge	2	1	2

La liste du contenu des deux bandes, l'une après l'autre, donne l'impression présentée à la page suivante.

PROGRAMMNAME: ERSTELLUNG EINES KREDITORENBUCHES

PROGRAMM-NR.P5-D-26

2

1. Pendant l'affichage « BANDE ENTRÉE/SORTIE OK (O/N) », vérifiez conformément à la section « Touches à utiliser » et assurez-vous que le nom du fournisseur est le même que celui sur la cassette. Pour configurer l'écriture sur bande, entrez « O ».

Si vous entrez autre chose que « O », l'affichage « BANDE ENTRÉE/SORTIE OK (O/N) » réapparaît.

1. Pour l'entrée/sortie sur bande, réglez toujours la cassette au début du fichier.

[Contenu] (Formules)

• La liste des comptes fournisseurs ne contient que les saisies effectuées cette fois-ci. - Une liste contient les désignations de produits, les prix et les quantités actuellement enregistrés sur bande.

Les quantités pour les mêmes désignations de produits sont regroupées dans la liste.

- Jusqu'à 140 désignations de produits par fournisseur peuvent être enregistrées.

[Impression]

*KREDITORENBUCH*		*KREDITORENBUCH*		** LISTE **
				* A-123 *
* A-123 *		* J-963 *		A-11
A-11		T-77		@	1,000
@	1,000	@	6,200	*	15
*	15	*	3	=	15,000
=	15,000	=	18,600	C-33
				@	5,000
C-33		SUMME		*	7
@	5,000		18,600	=	35,000
*	5			D-44
=	25,000			@	1,000
		* A-123 *		*	2
D-44		C-33		=	2,000
@	1,000	@	5,000	R-55
*	1	*	2	@	4,000
=	1,000	=	10,000	*	2
				=	8,000
SUMME		D-44		SUMME
	41,000	@	1,000		60,000
		*	1
* GRAND TOTAL *		=	1,000	* J-963 *
	41,000			T-77
		R-55		@	6,200
		@	4,000	*	3
		*	2	=	18,600
		=	8,000	SUMME
					18,600
		SUMME
			19,000	* GRAND TOTAL *
					78,600
		* GRAND TOTAL *
		37,600

PROGRAMMNAME: ERSTELLUNG EINES KREDITORENBUCHES

PROGRAMM-NR.P5-D-26

3

[Action sur les touches]

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF A	ENDE (Y/N)
2	N ENTER	NEU (Y/N)	Für diesen Lieferanten steht noch keine Kassette zur Verfügung.
3	Y ENTER	LIEFERANT=
4	A-123 ENTER	PRODUKTBEZEICHNUNG=	Wiederholen
5	A-11 ENTER	PREIS=
6	1000 ENTER	MENGE=
7	15 ENTER	PRODUKTBEZEICHNUNG=
:	:	:
13	1 ENTER	PRODUKTBEZEICHNUNG=	Für diesen Lieferanten ist die Eingabe abgeschlossen.
14	ENTER	BAND AUS OK (Y/N)	Den Kassettenrecorder zum Speichern einstellen.
15	Y ENTER	ENDE (Y/N)
16	Y ENTER	>	Die Summe je Lieferant wird ausgedruckt.
17	DEF A	ENDE(Y/N)
18	N ENTER	NEU(Y/N)
19	Y ENTER	LIEFERANT=
20	J-963 ENTER	PRODUKTBEZEICHNUNG=
21	T-77 ENTER	PREIS=
22	6200 ENTER	MENGE=
23	3 ENTER	PRODUKTBEZEICHNUNG=
24	ENTER	BAND AUS OK (Y/N)	Den Kassettenrecorder zum Speichern einstellen.
25	Y ENTER	ENDE (Y/N)
26	N ENTER	NEU (Y/N)	Für diesen Lieferanten steht schon eine Kassette zur Verfügung.
27	N ENTER	LIEFERANT=
28	A-123 ENTER	BAND EIN OK (Y/N)	Den Kassettenrecorder zum Einlesen in den Computer einstellen.
29	Y ENTER	A-11	Anzeige Produktbezeichnung.
		MENGE=

PROGRAMMNAME: ERSTELLUNG EINES KREDITORENBUCHES

PROGRAMM-NR. P5-D-26

4

[Action sur les touches]

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
30	ENTER	C-33
		MENGE =
31	2 ENTER	D-44
		MENGE =
32	1 ENTER	PRODUKTBEZEICHNUNG=	Ein neu aufzunehmendes Produkt.
33	R-55 ENTER	PREIS =
34	4000 ENTER	MENGE =
35	2 ENTER	PRODUKTBEZEICHNUNG=
36	ENTER	BAND AUS OK (Y/N)	Den Kassettenrecorder zum Speichern einstellen.
37	Y ENTER	ENDE (Y/N)
38	Y ENTER	>
39	DEF B	LIEFERANT =	Wiederholen
40	A-123 ENTER	BAND EIN OK (Y/N)	Den Kassettenrecorder zum Einlesen in den Computer einstellen.
41	Y ENTER	:
	:	LIEFERANT =
44	ENTER	>	Ende

[Listage du programme]

5: "A" : CLEAR : WAIT 0

10: DIM B$(139), D(139), B(139)

11: LF 2

12: USING : LPRINT "*KREDITORENBUCH*"

13: INPUT "FIN (O/N) "; W$

14: IF W$="O" GOTO 390

15: IF W$<>"N" GOTO 13

16: INPUT "NEU (Y/N) "; Y$

17: IF (Y="Y") + (Y="N") <> 16010 16

20: CLS : INPUT "LIEFERANT="; A$; GOTO 27

25:GOTO 245

27: IF Y$="Y"GOTO 80

30: INPUT "BAND E1 N OK (Y/N) ";X $

40: IF X$<> "Y" GOTO 30

50: INPUT #A; B(* ), D(*), B(*)

80:LF 1

140: USING : LPRINT "* "; A$;" *"

143:FOR I=0TO 139

145: IF Y$="Y"GOTO 150

PROGRAMMNAME: ERSTELLUNG EINES KREDITORENBUCHES

PROGRAMM-NR.P5-D-26

5

146: IF B(I) <>''

LET Z=1:PAUSE

B(I):INPUT "M

ENGE=";S:E=S*D

(I):GOTO 195

147:IF B$(I)="

GOTO 150

148:GOTO 240

150: INPUT "PRODUKTBEZEICHNUNG=";8$(I):Z=0:GOTO165

160:GOTO 245

165:T=0:INPUT "PRE IS=";T

170:S=0:INPUT "MENGE=";S

190:E=S*T

195:LPRINT B$(I)

197: IF Z=1LPRINT "@";USING "###########, ####";0(1):GOTO 210

200:LPRINT "@";USING "#######################,#####";T

210:LPRINT "*";S

215:LPRINT "=";E

216:LF 1

220:F=F+E

225: IF Z=1LET D(I)

=D(I):B(I)=B(I)

)+S:GOTO 240

227:D(I)=T:B(I)=S

240:NEXT I

245: INPUT "BAND AU S OK (Y/N) ";X $

246: IF X$<> "Y"GOTO

245

250:PRINT #A;B(*) ,D(*),B(*)

260:FOR I=0TO 139

265:B$(I)="";D(I)=0:B(I)=0

270:NEXT I

300:GOSUB 900

320: G = G + F

325:F=0

330:GOTO 13

390:GOSUB 950

400:END

500: "B": CLEAR

510:DIM B$(139),D(139),B(139)

515:LF 2

520:LPRINT "** LIS TE **"

538: INPUT "LIEFERA NT="; A$:GOTO 540

535:GOTO 720

540: INPUT "BAND EI N OK (Y,N) ";X$

545: IF X$<>Y"GOTO

540

550: INPUT #A;B(*) ,D(*),B(*)

610:LPRINT " * ";A$

;" *"

630:FOR I=0TO 139

632:IF B$(1)=""GOTO 660

635:E=B(I)*D(I)

640:LPRINT B$(1)

645:LPRINT "@";USING "#####################,#####";D(I)

650:LPRINT " *";B(1)

652:LPRINT "=";E

655:F=F+E

660:NEXT 1

680:GOSUB 900

685: G=G+F:F=0

700:GOTO 530

720:GOSUB 950

750:END

900:LPRINT "SUMME"

910:LPRINT USING "

#####,#####";F

915:LF 1

920:RETURN

950: LPRINT "* "; "GRAND TOTAL";"*

960:LPRINT USING ''

###

###

970:RETURN

1404

[ Contenu de la mémoire ]

A
B
C
D
E	Summe (für dieses Mal)
F	Summe je Lieferant
G	Grand Total
H
I	√
J
K
L
M
N	√
O
P
Q
R
S	Menge (dieses Mal)
T	Preis (dieses Mal)
U
V
W
X
Y
Z	√
A$	Lieferant
WS	√
XS	√
YS	√
BS(N-1)	Produktbezeichnung
B(N-1)	Menge
D(N-1)	Preis

PROGRAMMNAME: RECHNUNGSBUCH UND LISTE	PROGRAMM-NR.P5-D-27	1
[ Überblick ]	CE-150, CE-151 und CE-152 erforderlich

Le numéro de produit, le prix et la quantité doivent être saisis pour chaque client à chaque création de facture. Avec cette création du livre de facturation pour les débiteurs, on obtient une vue d'ensemble de toutes les prestations effectuées pour chaque client, et sur cette base, un contrôle efficace de la facturation est possible. Pour chaque numéro de produit, 16 positions sont disponibles, et jusqu'à 6 positions pour la quantité, le prix, le montant et le total de la facture.

[ Instructions d'utilisation ]

DEF A : Ces touches sont utilisées pour créer le livre de facturation. Une liste des données saisies est imprimée.

DEF B : Pour créer une liste de tous les produits pour chaque client, enregistrée sur bande, appuyez sur ces touches.

Remarque : Utilisez en tout cas une seule cassette par client.

[ Exemple ]

1. Livre de facturation (nouveau client) :

Kunden-Code	,,G-55“
Produktnummer	,,K-33“	,,H-66“
Preis	2,500	1,000
Menge	6	5

Saisissez les données ci-dessus conformément aux instructions indiquées ci-dessous sous « Touches à actionner ». Lorsque « FIN ? (O/N) » s'affiche, saisissez « O ».

Pour saisir les données d'un autre client, utilisez à nouveau les touches DEF A. Pour le nouveau client, utilisez en tout cas une autre cassette.

(Neuer Kunde):	Kunden-Code	„Z–99“
	Produktnummer	„K–33“
	Preis	2,500
	Menge	4

Saisissez les données ci-dessus dans cet ordre.

Lorsque « FIN ? (O/N) » apparaît à l'écran, saisissez « N » et changez la cassette pour celle portant le code client « G–55 ». Pour terminer la saisie au clavier, saisissez ce qui suit.

PROGRAMMNAME: RECHNUNGSBUCH UND LISTE			PROGRAMM-NR.P5-D-27	2
	Kunden-Code	,,G-55"
	Produktnummer	,,H-66"	,,J-77"
	Preis	-	3,500
	Menge	6	2
Die Listenerstellung für jede Transaktion in der Folge entspricht der Darstellung in der Spalte ,,Ausdruck".
2. Wenn ,,BAND EIN/AUS OK? (Y/N)" angezeigt wird, sollte man überprüfen und sicherstellen, daß der Kunden-Code mit dem der Kassette übereinstimmt.
3. Zum Speichern der Daten auf Band bzw. zum Einlesen vom Band auf jeden Fail das Band auf den Dateianfang einstellen.
[Inhalt] (Formeln)
Das Rechnungsbuch zeigt nur die diesmal eingetasteten Eingaben.
Produktnummern, Preise und Mengen sind aus der auf Band gespeicherten Rechnungsliste ersichtlich. Die Teilmengen gleicher Produkte sind in der Liste zusammengefaßt. Bis zu 140 Produkte pro Kunde können verarbeitet werden.
[Ausdruck]
* RECHNUNGSBUCH *	* RECHNUNGSBUCH *	**RECHNUNGSBUCH**
		* G-55 *
* G-55 *	* Z-99 *	K-33
K-33	K-33	@	2,500
@ 2,500	@ 2,500	*	6
* 6	* 4	=	15,000
= 15,000	= 10,000	H-66
		@	1,000
H-66	TOTAL	*	11
@ 1,000		=	11,000
* 5		J-77
= 5,000		@	3,500
		*	2
TOTAL	* G-55 *	=	7,000
	H-66	TOTAL
	@ 1,000		33,000
* GRAND TOTAL	* 6
	= 6,000
	J-77	* Z-99 *
		K-33
	@ 3,500	@	2,500
	* 2	*	4
	= 7,000	=	10,000
		TOTAL
	TOTAL	10,000
	13,000
	* GRAND TOTAL	* GRAND TOTAL
	23,000	43,000

[ Touches à actionner ]

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF A	ENDE? (Y/N)_
2	N ENTER	NEU? (Y/N)_
3	Y ENTER	KUNDENCODE = _	Kein Band für diesen Kunden erhältlich
4	G-55 ENTER	PRODUKTCODE = _
5	K-33 ENTER	PREIS = _	Wiederholen
6	2500 ENTER	MENGE = _
7	6 ENTER	PRODUKTCODE = _
⋮	⋮	⋮
10	5 ENTER	PRODUKTCODE = _	Eingabe für diesen Kunden beendet.
11	ENTER	BAND AUS OK (Y/N)_	Kassette zum Speichern vorbereiten.
12	Y ENTER	ENDE? (Y/N)_	Alle Eingaben sind abgeschlossen.
13	Y ENTER	>	„Ausdruck der Summe je Kunde“.
14	DEF A	ENDE? (Y/N)_
15	N ENTER	NEU? (Y/N)_
16	Y ENTER	KUNDENCODE = _
17	Z-99 ENTER	PRODUKTCODE = _
18	K-33 ENTER	PREIS = _
19	2500 ENTER	MENGE = _
20	4 ENTER	PRODUKTCODE =	Band für diesen Kunden für Eingaben vorhanden.
21	ENTER	BAND AUS OK (Y/N)_	Kassette zum Speichern der DATEN vorbereiten.
22	Y ENTER	ENDE? (Y/N)_
23	N ENTER	NEU? (Y/N)_	Produktcode wird angezeigt.
24	N ENTER	KUNDENCODE = _
25	G-55 ENTER	BAND EIN OK? (Y/N)_	Dieses Mal keine Eingabe.
26	Y ENTER	K-33	Neu zu registrierendes Produkt.
		MENGE = _

[ Touches à actionner ]

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
27	ENTER	H-66	Dieses Mal keine Eingabe
		MENGE = _
28	6 ENTER	PRODUKTCODE = _	Neu zu registrierendes Produkt.
29	J-77 ENTER	PREIS = _
30	3500 ENTER	MENGE = _
31	2 ENTER	PRODUKTCODE = _
32	ENTER	BAND AUS OK? (Y/N) = _	Kassette zum Einlesen der vorbereiten.
33	Y ENTER	ENDE? (Y/N) _
34	Y ENTER	>
35	DEF B	KUNDENCODE = _	Wiederholen
36	G-55 ENTER	BAND EIN OK? (Y/N)= _	Kassette zum Einlesen der Daten vorbereiten.
37	Y ENTER	G-55
:	:	:
40		KUNDENCODE= _
41	ENTER	>	Ende

[Programme]

5:"A": CLEAR :WAIT 0.0:DIM B(139),D(139),B(139)1:LF 22:USING :LPRINT"* RECHNUNGSBU CH *"3:INPUT "ENDE ?(Y/N) ";W4:IF W="Y"GOTO 3905:INPUT "NEU ?(Y/N) ";Y20:INPUT "KUNDENC ODE=";A:GOTO 2725:GOTO 24527:IF Y="Y"GOTO 80

30: INPUT "BAND EIN OK ?(Y/N) ";X

40: IF X<>"Y"GOTO 30

50: INPUT.#A;B(*) ,D(*),B(*)

80:LF 1

40:USING:LPRINT"* ";A;" *

43:FOR I=0TO 139

45:IF Y="Y"GOTO 150

46:IF B(I)<>"LET Z=1:PAUSEB(I):INPUT "MENGE=";S:E=S*D(I):GOTO 195

47:IF B$(I)=""GOTO 150

48:GOTO 240

150: INPUT "PRODUKT CODE=";B(I):Z=0:GOTO 165

160: GOTO 245

165: INPUT "PREIS=";T

170: INPUT "MENGE=";S

190: E=S*T

195:LPRINT B(I)

197: IF Z=1LPRINT "@";USING "###########, ####";D(I):GOTO 210

200:LPRINT "@";USING "###########, ####";T

(Suite à la page suivante)

[Programme]

210:LPRINT " *";S

215:LPRINT "=";E

216:LF 1

220:F=F+E

225:IF Z=1LET D(1) =D(1):B(1)=B(1)+S:GOTO 240

227:D(1)=T:B(1)=S

240:NEXT 1

245:INPUT "BAND AU S OK ?(Y/N) "; X

246:IF X<> "Y"GOTO 245

250:PRINT #A;B(* ),D(*),B(*)

260:FOR I=0TO N-1

265:B(I)="":D(1)= 0:B(1)=0

270:NEXT 1

300:GOSUB 900

320:G=G+F

325:F=0

330:GOTO 13

390:GOSUB 950

400:END

500:"B":CLEAR

510:DIM B(139),D( 139),B(139)

515:LF 2

520:LPRINT "**RECH NUNGSBUCH**

530:INPUT "KUNDENO ODE=";A:GOTO 540

535:GOTO 720

540:INPUT "BAND EI N OK ?(Y/N) "; X

545:IF X<> "Y"GOTO 540

550:INPUT #A;B(* ),D(*),B(*)

610:LPRINT " * ";As ;" *"

630:FOR I=0TO 139

632:IF B(I)="" GOTO 660

635:E=B(1)*D(1)

640:LPRINT B$(1)

645:LPRINT "@";USING "#################,######";D(I)

650:LPRINT "*";B(I)

652:LPRINT "=";E

655:F=F+E

660:NEXT I

680:GOSUB 900

685:G=G+F;F=0

700:GOTO 530

720:GOSUB 950

750:END

900:LPRINT "TOTAL"

910:LPRINT USING "#################",######";F

915:LF 1

920:RETURN

950:LPRINT "* GRAND TOTAL"

960:LPRINT G

970:RETURN

STATUS 1

1322

[Contenu de la mémoire]

A
B
C
D
E	Gesamtsumme(dieses Mal)
F	Gesamtsumme Kunde
G	Grand Total
H
I	√
J
K
L
M
N	√
O
P
Q
R
S	Menge (diesesMal)
T	Preis (dieses Mal)
U
V
W
X
Y
Z	√
A	Kunden-Code
WS	√
X	√
Y	√
B(139)	Produktnummer
B(139)	Menge
D(139)	Preis

PROGRAMMNAME: BIORHYTHMUS	PROGRAMM-NR.P5-E-1	1
[Überblick]	CE-150 erforderlich
Unsere wechselvolle körperliche und geistige Verfassung, die „Meßdaten“ unserer Gesundheit enthält, übt einen beträchtlichen Einfluß auf unseren Tagesablauf aus. Mit diesem Programm können Sie Ihren monatlichen Biorhythmus im voraus ermittlen. Geben Sie Ihren Namen und Geburtstag für den Ausdruck Ihrer Biorhythmus-Grafik eines Monats nach Wunsch ein. Die Kurven für die physische (grün), emotionale (rot) und intellektuelle (blau) Verfassung geben Ihnen Aufschluß über Ihre gesamte Konstitution.
[Anleitung zum Betrieb]Tasten Sie den gewünschten Monat, Ihren Namen (bis zu 16 Zeichen) und Ihr Geburtsdatum ein.Der Biorhythmus für den gewünschten Monat wird mit verschiedenen Farben für die einzelnen Größen ausgedruckt.
[Beispiel]Man tastet folgendes ein:Gewünschter Monat: Juli 1981Name: SHARPGeburtsdatum: 28. Januar 1952
[Inhalt] (Formeln)Eingabe: Gewünschter Monat, Name und GeburtstagAusgabe: Ausdruck der Biorhythmuskurven im gewünschten Monat (1. bis 31.) mit verschiedenen Farben für die einzelnen Größen.Die Berechnung erfolgt für die Werte der X-Achse der Kurven wie folgt:Physisch: X = Sin ( (B + Y) / 23 × 360) × 80Emotional: X = Sin ( (C + Y) / 28 × 360) × 80Intellektuell: X = Sin ( (D + Y) / 33 × 360) × 80Nach der Aufteilung in einzelne Zyklen in der Zeit (Anzahl der Tage) vom Geburtstag bis zum gewünschten Monat stellen die Größen aus B, C und D jeweils den Rest dar.Y ist die Anzahl der Tage (0 bis 31)Die maximale Länge beträgt 16 mm in positiver (+)- und negativer (-)-Richtung.
Zyklus: Physisch: 23 TageEmotional: 28 TageIntellektuell: 33 Tage
PROGRAMMNAME:BIORHYTHMUS	PROGRAMM-NR.P5-E-1	2

[Impression]

L'impression se fait en couleur. Voir page 4.

DATE 1981, 7 NOM SHARP NAISSANCE 1952, 1, 28

-- PHYSIQUE -- ÉMOTIONNEL -- INTELLECTUEL

(-) (+)

[Touches à presser]

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF A	DATUM? JAHR=_
2	1981 ENTER	MONAT=_	4-stellige Eingabe
3	7 ENTER	NAME? _
4	SHARP ENTER	GEBURT? JAHR=_
5	1952 ENTER	MONAT=_	4-stellige Eingabe
6	1 ENTER	TAG=_
7	28 ENTER	>	Ausdruck

PROGRAMMNAME:BIORHYTHMUS		PROGRAMM-NR.P5-E-1	3
[Programmlisting]
10:"A":CLEAR;INPUT "DATUM?JAHR=";L,"MONAT=";M15:TEXT:COLOR 020:LPRINT "DATUM";USING "######";L;",";USING "######";M30:N=035:GOSUB 70040:GOSUB 600:O=A50:INPUT "NAME?";A60:LPRINT "NAME ";A70:INPUT "GEBURT?JAHR=";L,"MONAT=";M,"TAG=";N80:LPRINT "GEBURT":LPRINT "";USING "######";L;",";USING "######";M;",";USING "######";N90:GOSUB 600:P=A100:A=O-P:O=O:P=0110:LF 2120:COLOR 2130:LPRINT "--PHYSISCH"140:COLOR 3150:LPRINT "--EMOTIONAL"160:COLOR 1170:LPRINT "--INTELLEKTUELL"180:LF 1190:COLOR 0200:LPRINT "(-)+(+)"205:GRAPH210:GLCURSOR(100,0):SORGN215:Y=1X2.5*5*(-1)220:LINE(-100,0)-(115,0)230:LINE(0,0)-(0,Y)235:LINE(115,Y)-(115,0)	240:FOR Q=5TO 30STEP 5243:R=Q245:IF Q=30LET R=1250:Y=R*2.5*(-1)*5260:LINE(-90,Y)-(115,Y)270:X=80290:Z=Y+5300:LINE(115,Z)-(X,Z),9310:LPRINT R320:NEXT Q330:B=INT(A/23):B=A-(23*B)340:C=INT(A/28):C=A-(28*C)350:D=INT(A/33):D=A-(33*D)360:FOR J=1TO 3395:COLOR J400:E=0410:FOR Y=0TO I420:IF J=2LET X=SIN((B+Y)/23*360)*80430:IF J=3LET X=SIN((C+Y)/28*360)*80440:IF J=1LET X=SIN((D+Y)/33*360)*80450:Z=Y*(-1)*2.5*5460:F=0470:IF E=0LET F=9:LET E=1480:LINE(0,P)-(X,Z),F490:O=X:P=Z500:NEXT Y510:NEXT J515:TEXT:LF 5:COLOR 0520:END600:IF M-3>=0LET M=M+1:GOTO 620610:L=L-I:M=13+M620:A=INT(365.25*L)+INT(30.6*M)+N625:A=A-INT(L/100)+INT(L/400)630:RETURN640:END	700:IF M=2GOTO 790710:IF M=4GOTO 770720:IF M=6GOTO 770730:IF M=9GOTO 770740:IF M=11GOTO 770750:I=31:GOTO 900770:I=30:GOTO 900790:K=INT(L/4):K=L-K*4800:IF K=0GOTO 840820:I=28:GOTO 900840:K=INT(L/100):K=L-K*100845:IF K=0GOTO 850847:GOTO 890850:K=INT(L/400):K=L-K*400860:IF K=0GOTO 890870:GOTO 820890:I=29900:RETURN910:ENDSTATUS 11347

PROGRAMMNAME: BIORHYTHMUS

PROGRAMM-NR.P5-E-1

4

[Contenu de la mémoire]

A	Gesamtzahl der Tage vom Geburtstag bis zum gewünschten Monat.	O	Anzahl der Tage vom Jahr bis zu der zu ermittelnden Zeit
B	Nach Division der Gesamtzahl der Tage durch die Zyklen wird der Rest festgelegt (physisch)	P	Anzahl der Tage vom Jahr bis zum Geburtstag
		Q	Schleifenzähler
		R	Indexnummer der Tage
C	Nach Division der Gesamtzahl der Tage durch die Zyklen wird der Rest festgelegt (emotional)	S
		T
		U
		V
D	Nach Division der Gesamtzahl der Tage durch die Zyklen wird der Rest festgelegt (intellektuell)	W
		X	Biorhythmuskurve X-Achse
		Y	Zähler für Anzahl der Tage pro Monat
E	Erste Beurteilung
F	Stift-Aufwärts/Abwärts-Code	Z	Biorhythmuskurve Y-Achse
G
H		A$	Name
I	Entsprechender Monat und die Anzahl der Tage
J	Schleifenzähler
K	Berechnung des entsprechenden Jahres.
L	Geburtsjahr/zu ermittelndes Jahr
M	Geburtsmonat/zu ermittelnder Monat
N	Geburtstag

SHARP

PROGRAMMNAME: MOTORBOOTRENNEN	PROGRAMM-NR.P5-E-2	1
[ Überblick ]Es handelt sich hierbei um ein Motorbootrennen, wobei die Mitspieler nach einem doppelten Vorhersagesystem auf die Reihenfolge der Boote bei der Einfahrt ins Ziel Wetten abschließen.
[ Anleitung zum Betrieb ]Der Anzeigeteil stellt die Rennstrecke dar, wobei 7 Boote (dargestellt durch die Spitzen von Punkten) im Rennen sind. Eine Anzahl von N Mitspielern wettet und setzt Beträge (Punkte) nach dem doppelten Vorhersagesystem ein. Jeder Spieler kann seine Punkte auf eine Kombination von max. 5 Booten setzen, mit 1 bis 9 Einsatzpunkten pro Boot. Falls das Spiel von niemandem gewonnen wird, wird der Einsatz gepoolt und im nächsten Spiel dem Gewinner zugeteilt.
[ Beispiel ]1. Bei diesem Spiel gibt es zwei Mitspieler:Der eine heißt JAMES: Bootkombination 1-2 5 PunkteDer andere heißt FRANK: Bootkombination 3-5 7 Punkte
[ Inhalt ] (Formeln)1. Die Boote bewegen sich mittels Zufallszahlen von 1 bis 7 vorwärts.2. Formel zur Gewinnberechnung:Rennenquote = (Summe\ der\ eingesetzten\ Punkte + Übertrag\ der\ Punkte\ vom\ letzten\ Spiel)Gewinnpunkte Gewinn = Rennenquote × Anzahl der Gewinnpunkte– Gewinnpunkte des Siegers
[ Ausdruck ]JAMESGEWINN = -5FRANK * Beide haben verlorenGEWINN = -7

[Touches à presser]

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF A	ANZAHL DER SPIELER=
2	2 ENTER	NAME?_	Die Anzahl der Spieler eingeben.
3	JAMES ENTER	NAME?_	Den Namen eingeben.
4	FRANK ENTER	>
5	DEF B	JAMES	Die Daten pro Spieler eingeben.
		WETTEN SIE? (Y/N) _	Wollen Sie wetten?
6	Y ENTER	KOMBINATION=_
7	12 ENTER	EINSATZPUNKT (1-9)=	Zur Eingabe der Kombination 1-2.
8	5 ENTER	KOMBINATION=_	Falls niemand wettet, drückt man nur ENTER .
9	ENTER	FRANK	Nächster Spieler
		WETTEN SIE? (Y/N) _
10	Y ENTER	KOMBINATION=_
11	35 ENTER	EINSATZPUNKT (1-9)_
12	7 ENTER	KOMBINATION=_
13	ENTER	>	Zum Starten des Spiels
PROGRAMMNAME: MOTORBOOTRENNEN		PROGRAMM-NR.P5-E-2	3
[Programmlisting]
10:"A":CLEAR:DIMZ(1)*1615:U=0:Z(1)="KEINE GEWINNER"20:INPUT "ANZAHLDER SPIELER=";N30:DIM B(N-1),X1(N-1,4),C1(6)40:FOR A=1TO N50:INPUT "NAME?";B(A-1):GOTO 7060:N=A-1:END70:NEXT A75:END90:"B":FOR A=1TO N100:FOR B=1TO 5110:X1(A-1,B-1)=0120:NEXT B130:NEXT A140:FOR A=1TO N150:PAUSE USING "&&&&&&";B(A-1)160:INPUT "WETTENSIE?(Y/N)";A:GOTO 180170:GOTO 280180:IF A="N"GOTO260190:FOR B=1TO 5200:INPUT "KOMBINATION=";D:GOTO220210:GOTO 260220:INPUT "EINSATZPUNKT (1-9)";E230:X1(A-1,B-1)=D+E/10240:NEXT B260:NEXT A280:WAIT 0:CLS285:FOR L=1TO 7290:C1(L-1)=0300:NEXT L320:CCURSOR 80:GPRINT &FF;&03;&01340:X=999350:L=RND 7-1:IF L=XGOTO 350	353:E=2L:P=RND 2+1355:GCURSOR (C1(L)+1)360:FOR I=C1(L)+1TO C1(L)+P:Q1=POINT IOR E:GPRINT Q1::NEXT I365:C1(L)=C1(L)+P390:IF C1(L)<80GOTO 350400:BEEP 1,90,50:BEEP 1,70,50402:BEEP 1,150,90:BEEP 1,150,100404:BEEP 1,50,60:BEEP 1,250,150410:IF X=999LET X=L:GOTO 350420:Y=L+1:X=X+1490:WAIT 100:USING:CURSOR 15:PRINT X;"-");STR Y500:S=10*X+Y:J=10*Y+X510:Z=0:G1=0:D1=0520:FOR A=1TO N530:D=0:G=0540:FOR B=1TO 5550:L=INT (X1(A-1,B-1))560:Q=(X1(A-1,B-1)*10-L*10)570:IF L=SGOTO 610580:IF L=JGOTO 610590:G=G+Q:G1=G1+Q600:GOTO 620610:D1=D1+Q:D=D+Q620:NEXT B630:X1(A-1,1)=G:X1(A-1,2)=D640:Z=Z+G+D650:NEXT A660:IF D1=0GOTO 690670:K=(U+Z)/D1:U=0675:LPRINT "ZUGETEILTE QUOTE":LPRINT ";USING "###";K680:GOTO 710	690:PAUSE USING "&&&&&&&&&&&&&";Z(1)700:K=0:U=U+Z710:FOR F=1TO N720:A=F-1730:D=X1(A,2)*K-X1(A,1)-X1(A,2)740:LPRINT USING "&&&&&&";B(A)750:LPRINT "GEWINN";="";USING "####";D780:NEXT F790:LF 2:ENDSTATUS 11295

[Contenu de la mémoire]

A	√	A		B(N-1)	Namenstabelle
B	√	B
C		C		X1(N-1,4)	Tabelle mit Kombina-tionen und Einsatz-punkten je Spieler
D	Gewinnpunkte pro Spieler	D
E	√	E		C1(6)	Boot-Position
F	√	F
G	Verlustpunkte pro Spieler	G		G1	Verlustpunkte insgesamt
H		H
I	√	I		D1	Gewinnpunkte insgesamt
J	2.-1.-Platzkombination	J
K	Rennenquote	K		Z(1)	Gewinnpunkte insge-samt insgesamt
L	√	L
M	√	M
N	Anzahl der Spieler	N
O		O
P	Bootgeschwindigkeit	P
Q	√	Q
R		R
S	1.-2.-Platzkombination	S
T		T
U	Übertrag von Punkten	U
V	√	V
W		W
X	Bootsnummer Sieger	X
Y	Bootsnummer 2. Platz	Y
Z	Summe Einsatzpunkte	Z

NOM DU PROGRAMME : LABYRINTHE

PROGRAMM-NR. P5-E-3

1

[Aperçu]

CE-151 requis

Il n'y a pas d'issue en allant seulement de l'avant.

Le labyrinthe est d'abord affiché à l'écran, puis recouvert d'une structure de masque. Une issue apparaît lorsque l'on parvient à traverser un passage. Si l'on heurte un mur, une alarme retentit. Il s'agit d'atteindre le but en un minimum de temps. Le temps nécessaire est affiché.

[Instructions d'utilisation]

1. En appuyant sur la touche DEF A, le labyrinthe apparaît à l'écran. Ensuite, il est recouvert d'un masque.
2. La position actuelle est marquée par un point clignotant que l'on déplace en actionnant les touches.
3. Action des touches

Le point clignotant se déplace dans la direction définie.

1. Lorsque l'on a atteint le but, le symbole « cheers » et le temps nécessaire s'affichent à l'écran. Les instructions pour rejouer s'affichent quelques secondes plus tard.

Le temps nécessaire pour la partie en cours et le temps le plus court jusqu'à présent sont affichés.

Pour recommencer le jeu, appuyez sur la touche Y (Oui) et pour terminer le jeu, appuyez sur la touche N (Non).

[Contenu] (Formules)

1. Des nombres aléatoires (1 à 12) sont utilisés pour sélectionner trois motifs de labyrinthe (105 points) à afficher.

Après quelques secondes, l'affichage est recouvert d'une structure de masque (constituée entièrement de & 7F).

1. En suivant le bon chemin, une représentation du chemin en blanc sur noir apparaît. Si l'on heurte un mur, cela déclenche une alarme qui retentit trois fois.
2. Afin de mieux le distinguer du motif du labyrinthe, le point mobile clignote.
3. Lorsque le point atteint la cible, « cheers » s'affiche, ainsi que le temps le plus court jusqu'à présent et le temps mis pour cette partie.

PROGRAMMNAME: LABYRINTH

PROGRAMM-NR.P5-E-3

2

5. Répétition du jeu et fin du programme :

Après l'affichage du temps, « SPIELWIEDERHOLUNG (Y/N) » apparaît à l'écran en attendant la prochaine décision. Si l'on appuie sur Y, la répétition du jeu commence à l'étape 1. En appuyant sur N, le programme se termine.

[Action sur les touches]

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF A	Nach der Anzeige wird das Labyrinth-Muster mit einer Maske überdeckt.	Die Anzeige der Maske erfolgt spaltenweise nacheinander von links nach rechts. Der sich bewegende Punkt blinkt, und der Zeitzähler zeigt die benötigte Zeit an.
	2		Der Punkt wird mit den dafür bestimmten Tasten bewegt.
	4
	6
	8
	...		Der Weiß-auf-Schwarz-Weg, „Cheers“ und die benötigte Zeit werden angezeigt.
		IHRE ZEIT: :	Bleibt 2 bis 3 Sekunden in der Anzeige.
		REKORDZEIT: :	Die kürzeste Zeit wird angezeigt. Bleibt 2 bis 3 Sekunden in der Anzeige.
		SPIELWIEDERHOLUNG (Y/N)_	Spielwiederholung oder Ende?
	Y ENTER		Zum Schritt 2 für Spielwiederholung
	N ENTER	>	Das Spiel ist beendet.

PROGRAMMNAME: LABYRINTH		PROGRAMM-NR.P5-E-3	3
[Programmlisting]
10:"A":CLEAR:RANDOM:M=&FF:S=&FF20:CLS:WAIT 0:DIM T(11)*68,PT(102)30:T(0)="087F42790F7957554C770977555D427F55047F10775545700977525E55655F555B6D"31:T(1)="086F217F027F514C575055457D296D533E455E515D5577097D5556F507F52477A4A"32:T(2)="087F494B714D5F51157554475D4575455D4575457D017F096B217F207F25712F692B"33:T(3)="087B427F482F715D47725D57552D75594F701F70475D457D017F417759087F427B49"34:T(4)="087F4A097F097A477D4157147F207F285F6A27445D117F116F297E246F157D457B2A"35:T(5)="087F047F207F017D5557505F407F486B2A5F52553F517D047F415D7506735E427B4A"40:T(6)="5B6D557D53557D2577485F515577047F10557F215D557748771955754F784F217F08"	41:T(7)="292F71257F057B55555F4877555D453D513E655B4A5F51555D7519457F207F427B08"42:T(8)="6A4B7A47527F027F426B487F405F5157515D71155754457D594769497F08"43:T(9)="496F217F084D77417F405F515D71077C07794D575A55755D27715D477A097F216F08"44:T(10)="2A6F515F547B123F4A7B447F445D11772B7D0A7F027F1475415F712F487F48297F08"45:T(11)="296F213D6730575D417F105F457E55257D2A6B097F017D057555F407F027F107F08"50:A=RND 12:B=RND12:C=RND 1260:IF A=BGOTO 5061:IF A=CGOTO 5062:IF B=CGOTO 5070:CLS :A=A-1:B=B-1:C=C-180:GCURSOR 0:GPRINT T(A);T(B);T(C);81:BEEP 10,10,10100:FOR CP=0TO 101101:BEEP 1,1,1110:A=POINT CP:PT(CP)=A120:GCURSOR CP:GPRINT "7F"130:NEXT CP	140:PT(102)&08150:D=8:CP=0:Z=0160:TIME =0170:WAIT 0:X=POINTCP180:CURSOR 23:PRINT Z:Y=DORX190:GCURSOR CP:GPRINT Y:D1=D200:A=INKEY210:IF A<>"GOTO300220:A=&7F-D:A=AANDX230:GCURSOR CP:GPRINT A240:D=0250:A=INKEY260:IF A<>"GOTO300270:D=01280:Z=Z+1:IF Z>99LET Z=0:CURSOR24:PRINT "0"290:GOTO 180300:BEEP 1,10,10310:IF A="8"LET DW=INT ((D1+1)/2):GOTO 400320:IF A="2"LET DW=DI*2:GOTO 400330:IF A="6"LET PW=CP+1:GOTO 500340:IF A="4"LET PW=CP-1:GOTO 500350:BEEP 2,10,20360:D=01370:GOTO 180400:IF DW>64LET DW=64410:A=PT(CP):A=AND DW(Fortsetzung nächste Seite)
PROGRAMMNAME: LABYRINTH		PROGRAMM-NR.P5-E-3	4
[Programmlisting]
420: IF A=0BEEP 3,10,30:DW=D1:GOTO 440430:A=&7F-D1:X=AND X440:GCURSOR CP:GPRINT X450:D=DW460:GOTO 170500:IF PW<0LET PW=0:BEEP 3,10,30:GOTO 570510:IF PW>101GOTO600520:A=PT(PW):A=AND D1530:IF A=0BEEP 3,10,30:GOTO 570540:A=&7F-D1:X=AND X550:GCURSOR CP:GPRINT X560:CP=PW570:D=D1580:GOTO 170600:A=PT(PW):A=AND D1610:IF A=0BEEP 3,10,30:D=D1:GOTO170620:GCURSOR 105:GPRINT "04087B3F7B0804"621:BEEP 1,90,50622:BEEP 1,70,50623:BEEP 1,150,90624:BEEP 1,150,100625:BEEP 1,60,60626:BEEP 1,200,200630:T=TIME :T=T-INT T:T=T*10000640:MM=INT (T/100):SS=T-(MM*100)645:NP=STR MM+" "+STRSS650:WAIT 150:CURSOR 21:PRINT NP	660:IF M>MLET M=M M:S=SS:GOTO 700670:IF M<>MMGOTO 700680:IF S>SSLET S=SS700:CLS :CURSOR 0:WAIT 0710:PRINT "IHRE ZEIT:"720:WAIT 150:CURSOR 12:PRINT NP730:CLS :CURSOR 0:WAIT 0740:PRINT "REKORDZEIT:"745:HP=STRM+" "+STR S750:WAIT 150:CURSOR 16:PRINT HP760:CLS :WAIT 0:CURSOR 0770:PRINT "SPIELWIEDERHOLUNG (Y/N)"780:CURSOR 24:INPUT A790:IF A="Y"GOTO50800:IF A="N"GOTO850810:GOTO 760850:CLS :CURSOR 0:ENDSTATUS 12422

[Contenu de la mémoire]

A	√	A	Eintasten der Daten	PT(102)	Mustertabelle
B	√	B		CP	Cursor-Punkt
C	√	C		D1	Ihre Punktposition
D	Ihre Punktposition	D		DW	(Arbeit)Vertikalverschiebung-Punktposition
E		E		PW	Horizontalverschiebung-Punktposition
F		F		MM	Verstrichene Zeit (Minuten)
G		G		SS	Verstrichene Zeit (Sekunden)
H		H		NPS	Verstrichene Zeit Editieren der Daten
I		I		HP	Kürzeste Zeit Editieren der Daten
J		J		T(11)	Punktmustertabelle
K		K
L		L
M	Rekordzeit (Minuten)	M
N		N
O		OS
P		P
Q		Q
R		R
S	Rekordzeit (Sekunden)	S
T	Berechneter Zeitwert (Min. Sek.)	T
U		US
V		V
W		W
X	Derzeitiges Punktmuster	X
Y	Derzeitiger Punkt + Ihr Muster	YS
Z	Anzeigezähler	Z$

NOM DU PROGRAMME : DOUBLE ROTATION

N° DU PROGRAMME

P5-E-4

[Aperçu]

Un jeu de réflexion où des lettres disposées au hasard (A à J) doivent être ordonnées. Réussirez-vous du premier coup ? Peut-être pas. Essayez quand même.

[Mode d'emploi]

1) DEF A « DOUBLE ROTATION » s'affiche. Ensuite, les lettres A, B, C . . . J apparaissent dans un ordre aléatoire à l'écran. En entrant des points fixes (1 à 9), les lettres affichées sont « pivotées ». Votre score est déterminé par la fréquence des pressions sur les touches. Moins vous en faites, mieux c'est.

2) DEF B Le même affichage que celui de DEF A apparaît à nouveau. En compétition avec d'autres, vous pouvez mesurer vos capacités à ordonner rapidement et efficacement par ordre alphabétique.

[Exemple]

Si, par exemple, le point fixe 4 est entré dans cette chaîne de caractères, les lettres pivotent comme illustré à gauche. L'affichage suivant est obtenu en appuyant sur le point fixe 1.

Essayez de cette manière de rendre l'ordonnancement aussi efficace que possible.

[Contenu] (Formules)

Votre score dépend de la fréquence des pressions sur les touches. Moins vous en faites, meilleur est le résultat.

(1 ≤ n ≤ 9)

[Pressions sur les touches]

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF A	DOPPELTE ROTATIONA bis J	Dies wird bis zum Speichern des Alphabets angezeigt.(Willkürliche Reihenfolge)
2	1~9	(Wiederholen)	Einen der Fixpunkte 1 bis 9 drücken.
3	ENTER	A bis JSPIEL BEENDETIHRE PUNKTZAHL	(Rotierende Buchstabenanzeige)Wird angezeigt, wenn das Alphabet in die richtige Reihenfolge gebracht ist.Das Punktergebnis wird angezeigt.
	DEF B	A bis J(willkürliche Anzeige)	Der zuerst unter DEF A gezeigte Zeichen-String erscheint, und der Spielablauf kehrt nach Schritt 2 zurück.

PROGRAMMNAME: DOPPELTE ROTATION

PROGRAMM-NR.P5-E-4

3

[Listing du programme]

10:"A":CLEAR:WAIT 0:USJNG

20:PAUSE "DOPPELTE ROTATION"

30:D$="ABCDEFGHIJ"

40: Y\$=" 50:A=0 60:FOR I=1TO 10 70:R=RND 10 80:S=2∩(R-1) 85:B=SAND A 90:IF B<>0GOTO 70 100:A=AOR 5

110: Y=Y+MID(D, R, 1):NEXT I

120:5\=Y\ 130:N=0 140:USING

150:BEEP 1:CLS ;PRINT USING "&&&&&&&&&&";S$;" *PUNKT= "

160:CURSOR 20 165:C=0 170: INPUT C 190: IF C<1GOTO 140 200:IF C>9GOTO 140 210: K\=LEFT\(S\, C) 220: L\=RIGHT\(S\, !0-C) 240:IF C=160TO 260 250: K\=RIGHT\(K\, 1)+LEFT\(K\, C -1) 260: IF C=9GOTO 280 270:L\=RIGHT\(L\, 9-C)+LEFT\(L\, 1) 280; S\=K\+L\290:N=N+1 300: IF S\<>D\$GOTO 140 310: BEEP 5: CLS : USING : PAUSE " SPIEL BEENDET" 320: WAIT : USING : PRINT USING "#

"; "IHRE PUN

KTZAHL"; N 330:END 400: "B": CLS : WAIT 0: GOTO 120

STATUS 1

534

[ Speicherinhalt ]

A	√
B	√
C	Eingabetaste
D
E
F
G
H
I	√
J
K
L
M
N	Punktergebnis
O
P
Q
R	Zufallszahlen
S	√
T
U
V
W
X
Y
Z
DS	ABCDEFGHIJ
KS	Alphabet nach Tasten-betätigung inwillkürlicher Ordnung
LS
SS	Willkürlich geordnetesAlphabet
YS	Willkürlich geordnetesAlphabet (zumSpeichern)

PROGRAMMNAME: MAULWURF-KLOPFEN

PROGRAMM-NR.

P5-E-7

1

[Überblick]

Geben Sie dem flüchtenden Maulwurf einen Schlag auf den Kopf.

Bei diesem Spiel ist die Tastenbetätigung im richtigen Augeblick von entscheidender Bedeutung, um dem aus seinem Loch kommenden Maulwurf einen Schlag auf den Kopf zu geben.

Der Maulwurf hebt den Kopf in drei Stufen. Wenn man es schafft, ihm in der ersten oder in der zweiten Stufe einen Schlag auf den Kopf zu geben, bekommt man einen Punkt. Wenn man den Maulwurf zum vierten Mal vor der letzten Stufe verfehlt, ist das Spiel beendet.

[Mode d'emploi]

1. En appuyant sur DEF et B, la taupe apparaît. On appuie sur la touche logicielle correspondante.
2. Si l'on attrape la taupe au premier niveau, on obtient 2 points, 1 point au deuxième niveau et aucun point au troisième. Si l'on frappe alors qu'aucune taupe n'est présente, on perd 2 points.
3. Au cours du jeu, la vitesse de déplacement de la taupe augmente.
4. Si l'on rate la taupe quatre fois, la partie est terminée.

[Contenu]

Les positions d'affichage de la taupe (1 à 6) changent aléatoirement, avec différents motifs d'affichage (1 à 3) soulevés à intervalles réguliers (avec son). Si l'on appuie sur la bonne touche correspondant à la position, le score augmente. En revanche, si l'on appuie sur une mauvaise touche, des points sont déduits. Une taupe attrapée apparaît à l'écran sur le dos et couine. Si l'on rate la taupe quatre fois, la partie est terminée.

[Utilisation des touches]

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF B	SPIEL START
	!	Anzeige des Maulwurfs in 3 Stellungen	Sobald der Maulwurf gesichtet wird, drückt man die entsprechende Software-Taste.
	"
	#
	$
	%
	&
		Anzeige der Punktzahl
		SPIELENDE, PUNKTE: (Anzeige der Punktzahl)	Das Spiel ist beendet.

[Listing du programme]

10:"B":CLEAR20:WAIT 150:PRINT"SPIEL START"30:WAIT 0:CLS :RANDOM40:PRINT T50:W=4:E=24:F=4060:P=RND 670:FOR R=1TO 380:A=""':A=&FF :GOSUB 200 :GOSUB 30090:IF A=&FFGOTO 120100:IF P=AGOTO 150110:GOSUB 500120:IF R=3LET X=X+1130:NEXT R140:GOTO 160150:GOSUB 400160:WAIT 0:GCURSORC:GPRINT "00000000000000"170:E=E-1:F=F-1172:IF X>3GOTO 600174:IF E=0LET W=1 :GOTO 60176:IF F=0GOTO 600180:GOTO 60200:C=10+((P-1)*24):GCURSOR C210:BEEP 1,10,10220:IF R=1WAIT W :GPRINT "2040607070604020":GOTO 250230:IF R=2WAIT W :GPRINT "0810787C7C781008".GOTO 250240:IF R=3WAIT W :GPRINT "02647E3F3F7E6402"250:RETURN300:A=INKEY340:IF A=CHR&11LET A=1:GOTO 395350:IF A=CHR&12LET A=2:GOTO 395

360:IF A=CHR&13LET A=3:GOTO 395370:IF A=CHR&14LET A=4:GOTO 395380:IF A=CHR&15LET A=5:GOTO 395390:IF A=CHR$ &16LET A=6395:RETURN400:BEEP 1,30,30 :GCURSOR C:WAIT10410:IF R=1GPRINT "2010307070301020":T=T+2:GOTO440420:IF R=2GPRINT "20103C7C7C3C1020":T=T+1:GOTO440430:IF R=3GPRINT "20133F7E7E3F1320"440:PRINT T450:RETURN500:IF R=1LET T=T-2:GOTO 530510:IF R=2LET T=T-1:GOTO 530530:PRINT T540:RETURN600:WAIT 150:PRINT"SPIELENDE, PUNKTE : ";T;610:GCURSOR 0:CLS:ENDSTATUS 1868

[Contenu de la mémoire]

A	√
B
C	Anzeige der Cursor-Stellung
D
E	1. Schleifenzähler
F	2. Schleifenzähler
G
H
I
J
K
L
M
N
O
P	Maulwurf-Anzeige-positionen (1 bis 6)
Q
R	Maulwurf-Anzeige-stufen (1 bis 3)
S
T	Punktzahl
U
V
W	Wartezeit
X	Anzahl der ent-wischten Maulwürfe
Y
Z
A	Bereich für IN KEY

NOM DU PROGRAMME : SPACE EVADER

N° DE PROGRAMME P5-E-9

1

[Aperçu]

Le vaisseau spatial peut-il échapper à l'essaim de météorites ?

Ce programme est un jeu dans lequel un vaisseau spatial doit traverser un champ de météorites affiché à l'écran pour atteindre la cible. Le vaisseau est dirigé à l'aide des touches haut, bas, gauche et droite. Le score maximal pouvant être atteint est de 100.

Pour obtenir un score aussi élevé que possible, il faut éviter les collisions autant que possible.

[ Mode d'emploi ]

1. Utilisation des touches

Le vaisseau spatial se déplace dans la direction correspondant aux touches.

Le vaisseau spatial clignote en permanence.

1. Score

2.1 L'utilisation des touches verticales n'affecte pas le score. 2.2 Reculer le vaisseau vers la gauche entraîne une perte d'un point. 2.3 Avancer le vaisseau vers la droite coûte également un point. 2.4 Pour une collision du vaisseau avec une météorite, 5 points de pénalité sont déduits.

1. Lorsque le vaisseau spatial entre en collision avec une météorite, une explosion est affichée et un signal d'alarme retentit.

Cependant, le jeu est relancé.

[ Contenu ]

1. Les motifs de météorites d'un ou deux points, choisis arbitrairement pour chaque rangée, sont stockés dans le tableau d'affichage des motifs de météorites. Une à 100 rangées y sont incluses, avec un signal sonore pour chacune.
2. Après l'affichage du contenu du tableau des motifs de météorites, le vaisseau spatial apparaît dans la première rangée, et le jeu commence. Le vaisseau se déplace en clignotant.
3. Le vaisseau spatial se déplace à vitesse constante de gauche à droite. Pour éviter la collision avec les météorites, on utilise les touches correspondantes. En cas de collision avec une météorite, une explosion apparaît à l'écran. En même temps, 5 points sont déduits du score.
4. En avançant et en reculant le vaisseau spatial, un point est déduit du score à chaque fois. Les autres changements de direction n'ont aucune influence sur le score.
5. Lorsque le vaisseau spatial atteint la cible, un drapeau d'arrivée apparaît à l'écran.

[Appui sur les touches]

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF A	SPIELSTARTMeteoritenmuster(Punktergebnis)	Der Alarm ertönt, während das Meteoritenmuster erzeugt wird.
	2468	Das Raumschiff bewegt sich und blinkt dabei.	Diese Tasten dienen zum Steuern des Raumschiffs.
		(Punktergebnis)	Wenn das Raumschiff das Ziel erreicht, erscheint eine karierte Flagge in der Anzeige.
		SPILENDE PUNKTE:(Punktergebnis)	Das Spiel ist beendet.

[Listing du programme]

10:"A":CLEAR20:DIM T(101):RANDOM30:WAIT 100:PRINT"SPIELSTART"40:FOR N=1TO 100STEP 250:A=RND 7:B=2^(A-1)60:IF (A=1)+(A=7)<>ILET T(N)=B:BEEP 1,1,1:GOTO 11070:C=RND 780:IF A=CGOTO 7090:C=2^(C-1)100:T(N)=BOR C:BEEP 1,1,1110:NEXT N120:T(0)=&7F:T(1)=0:T(101)=&7F130:WAIT 0:FOR P=0TO 101140:GCURSOR P:GPRINT T(P)150:NEXT P160:CURSOR 22:PRINT S

170:P=0:D=1180:FOR I=1TO 2181:IF P>100GOTO 500190:A="":X=0:WAIT0200:A=T(P):B=AOR D210:GCURSOR P:GPRINT B220:A=INKEY230:IF A<>""GOTO300250:GCURSOR P:GPRINT AG260:A=INKEY270:IF A<>""GOTO300290:NEXT I295:P=P+1:S=S+1:GOTO 350300:GCURSOR P:GPRINT AG305:IF A="8"LET D=INT ((D+1)/2):GOTO 350310:IF A="2"LET D=D*2:IF D>64LET D=64:GOTO350320:IF A="6"LET P=P+1:S=S+1:GOTO 350

(Suite à la page suivante)

PROGRAMMNAME: SPACE EVADER

PROGRAMM-NR.P5-E-9

3

[Listing du programme]

330: IF A$="4"LET P=P-1:S=S-1:IFP<1LET P=1:GOTO 350

340:GOTO 290 350:A=DAND T(P) 351: IF P>100GOTO 5 00 360: IF A=0BEEP 1,3 0, 30: CURSOR 22 :PRINT S:GOTO 180 370: A=P-4: IF A<1 LET A=1 380:BEEP 5,10,10 390:WAIT 70: GCURSOR A: GPRINT "00082A 1C7F1C2A0800" 400:WAIT 0:S=S-6: CURSOR 22: PRINT S 410: FOR E=ATO A+10 415: IF E>101GOTO 4 40 420: GCURSOR E: GPRINT T(E) 430:NEXT E 440:P=P+1:GOTO 180 500: WAIT 150: GCURSOR 105: GPRINT "7F556B 556B556B557F" 501:CLS :WAIT 150 502:S=S-1 510:PRINT "SPIELEN DE, PUNKTE : " ;S; 520:CLS :END

STATUT 1

929

[Contenu de la mémoire]

A	√
B	√
C	√
D	Raumschiff-Punktposition
E	√
F
G
H
I	√
J
K
L
M
N	Schleifenzähler zumSpeichern vonMeteoritenmustern
O
P	Anzeigeposition
Q
R
S	Punktergebnis
T
U
V
W
X
Y
Z
A$	Eingabedaten
T(101)	Speichern vonPunktmustern

NOM DU PROGRAMME : EXERCICES DE FRAPPE

N° DE PROGRAMME P5-F-1

1

[Aperçu]

Une frappe rapide sur les touches permet de gagner un temps considérable.

Pouvez-vous utiliser le clavier rapidement et sans erreur ?

Ce programme est un exercice qui vous permet d'augmenter votre vitesse de frappe. Le résultat est une saisie de programme plus rapide et plus efficace dans l'appareil.

[Mode d'emploi]

Lorsque le buzzer retentit, un exercice de frappe de 3 à 6 lettres s'affiche. À l'aide du clavier, vous saisissez les mêmes lettres dans le temps imparti. En cas de saisie correcte, vous obtenez 10 points, et 5 points si plus de 50 % est correct. Si le temps imparti est dépassé, un autre exercice s'affiche à l'écran.

Le temps défini dépend du nombre de lettres affichées et du niveau de difficulté (1, 2, 3). Au niveau 1, le temps est le plus court et au niveau 3, le plus long. Pour chaque niveau, il y a 10 exercices de frappe. Il s'agit d'atteindre autant que possible 100 points.

[Contenu]

Le nombre de lettres (3 à 6) est déterminé par une fonction génératrice de nombres aléatoires.

Avec la même fonction, la chaîne de caractères (A à Z) est sélectionnée.

[Action sur les touches]

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF Z	GRAD (1, 2, 3)?	Dieser Schritt dient dazu, das Spiel zu starten, oder um den Schwierigkeitsgrad zu ändern.
2	DEF A	HOECHST PUNKTZAHL=	Dieser Schritt ist nicht erforderlich, wenn DEF Z schon ausgeführt ist.
3		(6 Zeichen-String)	3 Alarme
4	Die im linken Teil der Anzeige erscheinenden Buchstaben über die Tastatur eingeben.		Wenn alle Buchstaben geschrieben sind, bzw. wenn die vorgegebene Zeit verstrichen ist, erscheint die nächste Übung.
			Wird 10 Mal wiederholt.
5		IHRE PUNKTZAHL=	Nach 3 Alarmen wird die Punktzahl angezeigt.
6		BESTMOEGLICHE PUNKTZAHL	Dies erscheint nur in der Anzeige, wenn man die höchstmögliche Punktzahl erreicht.

PROGRAMMNAME: SCHREIBÜBUNGEN

PROGRAMM-NR.P5-F-1

2

[Listing du programme]

10:"Z":CLEAR:CLS:DIM A(5),B(5):RANDOM

15:INPUT "GRAD(1,2,3)?";L

17:IF (L=1)+(L=2)+(L=3)<>1THEN

15

20:"A":WAIT 0:P=0:PAUSE "HOECHST PUKTZAHL=";X

30:FOR S=1TO 10

40:B=RND 4+2:Y=""":R=INT (B/2)

50:FOR C=0TO B-1:B(C)=""

60:D=RND 26:A(C)=CHR(D+&40):Y=Y+CHR(D+&40):NEXT C

70:CLS:BEEP 3:PRINT Y:CURSOR 10:E=0

80:FOR W=1TO B*10*L*B(E)=INKEY:IF B(E)=""THEN 100

85:PRINT B(E);90:E=E+1:IF E=BLET W=400

100:NEXT W:Q=0

110:FOR W=0TO B-1:IF A(W)=B(W)LET Q=Q+1

120:NEXT W:IF Q<=R THEN 150

130:IF Q=BLET P=P+10:GOTO 150

140:P=P+5

150:NEXT S:CLS:BEEP 3:PAUSE "IHRE PUNKTZAHL=";P

160:IF P>XLET X=P:PRINT "BESTMOEGLICHE PUNKTZAHL"

170:WAIT:PRINT :END

STATUS 1

519

[Contenu de la mémoire]

A
B	Anzahl der geschriebenen Buchstaben
C
D
E	Anzahl der geschriebenen Buchstaben
F
G
H
I
J
K
L	Grad
M
N
O
P	Punktzahl
Q	Anzahl der richtig geschriebenen Buchstaben
R
S	Anzahl der Übungen
T
U
V
W	Zeit
X	Höchstmögliche Punktzahl
Y	Zeichen-String einer Übung
Z
Y	Zeichen-String einer Übung
A(5)	Buchstaben gemäß Zufallsgenerierung
B$(5)	Geschriebene Buchstaben

PROGRAMMNAME: STOPPUHR, TIMER UND WECKER	PROGRAMM-NR.P5-F-2	1
[ Überblick ]Dieses Programm zeigt, wie praktisch und vielseitig die eingebaute Uhr des PC-1500 ist. Drei Funktionen - Stoppuhr, Timer und Wecker sind enthalten.[ Anleitung zum Betrieb ]DEF S : Zum Eingeben von „Start und Ende“-Anweisungen drückt man die SPACE -Taste. Die verstrichene Zeit wird kontinuierlich angezeigt.DEF D : Die Timerzeit vorgeben und zum Timerstart die SPACE -Taste drücken. Wenn die festgelegte Zeit verstrichen ist, wird dies durch eine Melodie bekanntgegeben.In diesem Falle wird auch die verstrichene Zeit angezeigt.DEF A : Gemäß der Eingabe einer Alarmzeit (0 bis 23 Stunden, 0 bis 59 Minuten und 0 bis 59 Sekunden) ertönt zum festgelegten Zeitpunkt eine Melodie.Desgleichen erfolgt die Zeitanzeige.(Vorsicht) : Vor Gebrauch dieses Programms sicherstellen, daß die eingebaute Uhr (TIME) korrekt eingestellt ist.[ Beispiel ]DEF S : Bei gedrückter SPACE -Taste wird die verstrichene Zeit in der Form von OM OS 2SS angezeigt.Durch nochmaliges Drücken der SPACE -Taste wird die verstrichene Zeit in der Form von STOP 10M 59S 4SS angezeigt,womit der Stoppvorgang beendet ist.DEF D : Zum Einstellen auf 0 Stunden, 30 Minuten, 0 Sekunden tastet man „003000“ ein. Durch Drücken der SPACE -Taste wird die verstrichene Zeit in der Form TIME LAPSE OH OM 1S angezeigt.Wenn die voreingestellte Zeit verstrichen ist, ertönt eine Melodie.DEF A : Zum Einstellen der Alarmzeit auf 10:57:00 tastet man „105700“ ein. Die Tageszeit wird als NOW-TIME 10H 54M 5S angezeigt.Wenn die vorgegebene Alarmzeit erreicht ist, ertönt eine Melodie.[ Inhalt ]DEF S : Funktion StoppuhrDiese wird mit der SPACE -Taste gestartet und gestoppt.Die verstrichene Zeit wird in 1/5-Sekunden-Schritten dargestellt.
PROGRAMMNAME: STOPPUHR, TIMER UND WECKER	PROGRAMM-NR.P5-F-2	2

DEF D : Fonction Minuteur Après avoir saisi le temps du minuteur (heures, minutes et secondes), vous démarrez le fonctionnement avec la touche ESPACE. Lorsque le temps est écoulé, une mélodie retentit. Le temps écoulé est affiché par pas de 1 seconde.

DEF A : Fonction Réveil Après avoir saisi l'heure de l'alarme (heures, minutes et secondes), une mélodie retentit lorsque l'heure prédéfinie est atteinte, et l'heure est également affichée.

[Action sur les touches]

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	TIME=10.5350 ENTER	10.5350	Die Tageszeit eintasten (10:53:50)
2	DEF A	ALARMZEIT?	Die Alarmzeit bestimmen (10:57:00)
3	105700 ENTER	NOW-TIME 10H 53M 56S	Die Tageszeit wird angezeigt.
		⋮
4		NOW-TIME 10H 57M 00S	Der Alarm erklingt 20 Mal.
1	DEF D	TIMER?	Die Zeit festlegen. Die Zeit nach 00:30:00 einstellen.
2	003000 ENTER	TIMER? 003000
3	SPACE	TIME LAPSE 0H 0M 15S
		⋮
4		TIME LAPSE 0H 30M 05S	Der Alarm ertönt 20 Mal.
1	DEF S	STOPPUHR
2	SPACE	OM OS OSS	Die Stoppuhr läuft an.
		⋮
3	SPACE	STOP 1M OS OSS	Eine Minute verstrichen.

10:"A":CLEAR:WAIT 0

20:INPUT "ALARMZEIT?";T

30:0=TIME

40:K=INT (0/100)

50:0=(0-K*100)*10

000

60:N=TIME

70:K=INT (N/100)

80:N=(N-K*100)*10

000

90:IF 0=NGOTO 200

95:GOSUB 900

100:PRINT "NOW-TIME";USING "###";H;"H";USING "###";M;"M";USING "###";S;"S"

120: IF T=NBEEP 20:GOTO 300

200:0=N

210:GOTO 60

300:END

400:"D":CLEAR:WAIT 0.

410: INPUT "TIMER?";N

415:GOSUB 900

420:U=(H*60^2)+(M*60)+S

440: S=0

445:A$=" "

450: A=INKEY

460:1F A$<> "GOTO 445

470:0=TIME :K=INT(0/100):0=(0-K*100)*i0000

480:N=TIME:K=INT(N/100):N=(N-K*100)*10000

490: IF 0=NGOTO 480

500: S = S + 1

505:U=U-1

510:Z=5

520: IF Z<60GOTO 555

530: Y=INT (Z/60): Z =Z~Y*60

540:IF Y<60GOTO 555

550:X=INT(Y/60):Y

=Y-X*60

555:PRINT "TIME LA

PSE";USING "##

";X;"H";USING

"###";Y;"M";

USING "###";Z;

"S"

560:IF U=0GOTO 590

570:0=N:GOTO 480

590:BEEP 20

600:END

650:"S":CLEAR:WAIT 0

655:PRINT "STOPPUH R"

660: H=0: M=0: S=0: U=0

670:A$=" "

680: A=INKEY

690: IF A$<> "GOTO 670

696:U=TIME

730:U=U+2

735:A=0:A=0

740: IF Ü<10LET S=S+0:A=0

750: IF U=10LET S=S+1:U=0

760: IF S<60LET M=M+0:A=0

770: IF S=60LET M=M+1:S=0

810:PRINT M;"M";USING "###";S;"S";USING "##";U;"SS"

815: A$='' ''

820:A=INKEY

830: IF A$<>""GOTO730

840:WAIT ;USING :PRINT "STOP";M;"M";S;"S";U;"SS"

850:END

900:H=INT (N/10000)

910:M=INT (N-H*10000)/100)

920:S=INT (N/100);S=N-S*100

930:RETURN

940:END

STATUS 1

1034

[ Contenu mémoire ] : Fonction minuterie

A
B
C
D
E
F
G
H	Timer-Zeit(Stunde)
I
J
K	Berechnung
L
M	Timer-Zeit(Minute)
N	Timer-Zeit:Verstrichene Zeit(jetzt)
O	Verstrichene Zeit (Stunden)
P
Q
R
S	Timer-Zeit(Sekunde)
T	Timer-Zeitumwandlungin Sekunden
U
V
W
X	Verstrichene Zeit (vorher)
Y	Verstrichene Zeit(Minuten)
Z	Verstrichene Zeit(Sekunden)
A	INKEY

PROGRAMMNAME: STOPPUHR, TIMER UND WECKER

PROGRAMM-NR.P5-F-2

4

[ Contenu mémoire ]

: Fonction réveil

A
B
C
D
E
F
G
H	Uhrzeit (Stunden)
I
J
K	Berechnung
L
M	Uhrzeit (Minuten)
N	Verstrichene Zeit (jetzt)
O	Verstrichene Zeit (vorher)
P
Q
R
S	Uhrzeit (Sekunden)
T	Alarmzeit
U
V
W
X
Y
Z

: Fonction chronomètre

A	Betrieb
B
C
D
E
F
G
H	Verstrichene Zeit (Stunden)
I
J
K
L
M	Verstrichene Zeit (Minuten)
N
O
P
Q
R
S	Verstrichene Zeit (Sekunden)
T
U	Verstrichene Zeit(Zehntelsekunden)
V
W
X
Y
Z
A	INKEY

SHARP

PROGRAMMNAME: COMPUTERZEICHNUNG EINER BLUME

PROGRAMM-NR.P5-F-3

1

[ Aperçu ]

CE-150 requis

Vous pouvez utiliser l'imprimante graphique pour imprimer vos propres dessins. Pour notre exemple, nous prenons le dessin d'une fleur.

[ Mode d'emploi ]

En appuyant sur DEF A, le dessin de la fleur est imprimé.

[ Contenu ] (Formules)

X (i) = (6 × i) × (i + A) × 8 0 Y (i) = (6 × i) × (i + A) × 8 0

Avec une valeur i variant de 1 à 30 pour chaque pétale, 30 coordonnées sont reliées par des lignes. Avec une valeur A variant 12 fois de 0° à 330° par pas de 30°, les coordonnées des 12 pétales sont déterminées.

[Impression]

L'impression finale est en couleur. Voir page 4.

[Touches à presser]

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF A	>	Ausdruck

PROGRAMMNAME: COMPUTERZEICHNUNG EINER BLUME		PROGRAMM-NR.P5-F-3	2
[Programmlisting] [Speicherinhalt]
10:"A":CLEAR:DIM X(30),Y(30):X(0)=0;Y(0)=0 20:GRAPH 30:GLCURSOR (100,-100):SORGN 35:COLOR 3 40:FOR A=0TO 60 STEP 30 50:FOR I=1TO 30 60:X(I)=SIN (6*1) *COS (I+A)*80 70:Y(I)=SIN (6*I) *SIN (I+A)*80 80:NEXT 1 90:GOSUB "Q" 100:NEXT A 105:COLOR 2 110:FOR I=1TO 30 120:X(I)=SIN (6*I) *50 130:Y(I)=-1*5 140:NEXT I 150:GOSUB "P" 155:X=X(30):Y=Y(30) 160:LINE (X+40,Y)-(X-40,Y-10),0,0,B 170:LINE (X-35,Y-10)-(X-25,Y-60)-(X+25,Y-60)-(X+35,Y-10) 180:TEXT :LF 5:END 200:"Q"GOSUB "P" 210:FOR I=OTO 30:X(1)=-X(1):NEXT 1 220:GOSUB "P" 230:FOR I=OTO 30:Y(1)=-Y(1):NEXT 1 240:GOSUB "P" 250:FOR I=OTO 30:X(1)=-X(1):NEXT 1 260:GOSUB "P" 270:RETURN 300:"P"FOR I=OTO 2 7STEP 3	310:LINE (X(1),Y(1))-(X(1+1),Y(1+1))- (X(1+2),Y(1+2))- (X(1+3)) 320:NEXT 1 330:RETURN STATUS 1 589	A	Variablen der FOR-Anweisung
		B
		C
		D
		E
		F
		G
		H
		I	Variablen der FOR-Anweisung
		J
		K
		L
		M
		N
		O
		P
		Q
		R
		S
		T
		U
		V
		W
		X	Austausch von X (30)
		Y	Austausch von Y (30)
		Z
		X(0~30)	X-Koordinate
		Y(0~30)	Y-Koordinate

PROGRAMMNAME: COMPUTERGRAFIK

PROGRAMM-NR.P5-F-4

1

[Aperçu]

CE-150 requis

Il est très intéressant de créer un programme qui analyse l'ampleur des changements dans un motif géométrique. Une formation de triangles évoque un ammonite fossilisé.

[Instructions d'utilisation]

En entrant une variété d'angles, d'incréments et un nombre de triangles, on peut générer des changements de motifs intéressants.

[Exemple]

(Ex. 1) Motif géométrique avec 10 degrés, un incrément de 3,5 et 30 triangles. (Voir sous « Impression ».)

(Ex. 2) Motif avec 20 degrés, l'incrément 3 et 35 triangles.

[Contenu] (Formules)

R = R + K

(R est la somme des incréments avec une valeur initiale de 5. La valeur K est ajoutée à chaque motif.)

T = T + S

(T est la somme des angles avec la valeur initiale S. La valeur S est ajoutée à chaque motif.)

XI = R × t

Y 1 = R × C o s t

X 2 = R × (T + 6 0)

Y 2 = R × (T + 6 0)

(0, 0) - (X1, Y1) - (X2, Y2) - (0, 0) sont reliés par des lignes droites.

Selon le nombre saisi, le motif ci-dessus est répété N fois.

[Affichage]

En réalité, l'affichage est en couleur. Voir page 4.

(Ex. 1)

(Ex. 2)

[Touches à presser]

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF A	ANZAHL DER DREIECKE=_
2	30 ENTER	WINKEL=_
3	10 ENTER	INKREMENT=_
4	3.5 ENTER	>	Ausdruck
1	DEF A	ANZAHL DER DREIECKE=_
2	35 ENTER	WINKEL=_
3	20 ENTER	INKREMENT=_
4	3 ENTER	>	Ausdruck

[Listing du programme]

10: "A": GRAPH : RANDOM 20: GLCURSOR (120, -200): SORGN 30: INPUT "NOMBRE DE TRIANGLES=";N 40: INPUT "ANGLE=";S 50: INPUT "INCREMENT=";K 60:T=-S:R=5 70:FOR I=1TO N 75: COLOR (RND 4-1) 80:R=R+K:T=T+S 90: X1 = R * SIN T; Y1 = R * COS T 100: X2=R*SIN (T+60): Y2=R*COS (T+60) 110:LINE (0,0)-(X1, Y1)-(X2,Y2)-(0,0) 120:NEXT 1 130:END

[Contenu de la mémoire]

A
K	Inkrement (Eingabe)
L
M
N	Anzahl der Dreiecke (Eingabe)
O
P
Q
R	Inkrement(errechneter Wert)
S	Winkel (Eingabe)
T	Winkel(errechneter Wert)
X1	GrafikX-Koordinate 1
Y1	GrafikY-Koordinate 1
X2	GrafikX-Koordinate 2
Y2	GrafikY-Koordinate 2

STATUS 1

250

NOM DU PROGRAMME : HORLOGE UNIVERSELLE

N° DU PROGRAMME

P5—F-5 (standard avec extension)

1

[Aperçu]

CE-151 requis en

cas d'extension

Quelle heure est-il à Londres ? À New York ?

Dans d'autres grandes villes du monde ?

Avec ce programme, plus besoin de faire ces conversions.

Une seule pression sur une touche suffit pour afficher immédiatement l'heure de 30 grandes villes du monde entier.

(La capacité mémoire du PC-1500 en version standard couvre 8 grandes villes du monde.)

[ Mode d'emploi ]

Avant d'exécuter le programme, régler l'ordinateur sur l'heure locale japonaise comme suit :

HEURE =

Mois

Jour

Heure

Minute

Seconde

ENTRÉE

REMARQUE :

L'heure locale japonaise peut être facilement déterminée comme suit :

Supposons que l'utilisateur habite à New York. D'après le tableau de la page suivante, l'heure locale japonaise est en avance de 14 heures sur l'heure locale de New York. En d'autres termes, à 7h00 à New York, il est 21h00 au Japon (7h00 + 14h00 = 21h00).

On prend le décalage horaire valide par rapport à Tokyo, on change le signe et on ajoute ce montant à l'heure locale. Si la somme dépasse 24h00, il faut considérer le jour (la date) suivant(e) au Japon.

DEF A

: En appuyant sur ces touches, l'heure locale japonaise s'affiche.

2 : En appuyant sur cette touche, on change séquentiellement de ville, à savoir n° 1, n° 2, n° 3...

8 : En appuyant sur la touche, on change de ville dans l'ordre inverse, à savoir n° 30, n° 29, n° 28...

Remarque : (1) Voir « Contenu » pour les villes.

(2) Les années bissextiles et les heures d'été locales ne sont pas prises en compte.

[ Exemple ]

TOKYO

11.2.1:46

SINGAPOUR

11.2.0:16

NEW YORK

11.2.11:46

LOS ANGELES

11.2.8:46

[Contenu] (Formules)

Nr.	Name der Stadt	Zeitverschiebung	Nr.	Name der Stadt	Zeitverschiebung	Nr.	Name der Stadt	Zeitverschiebung
0	TOKYO	—	10	MONTREAL	-14	20	ZÜRICH	-8
1	SINGAPUR	-1.30	11	RIO	-12	21	HONG KONG	-1
2	NEW YORK	-14	12	MADRID	-8	22	SEOUL	0
3	LOS ANGELES	-17	13	AMSTERDAM	-8	23	PEKING	-1
4	SIDNEY	+1	14	DELHI	-3.30	24	HONOLULU	-19
5	CHIKAGO	-16	15	NAIROBI	-6	25	ATHEN	-7
6	LONDON	-9	16	AUCKLAND	+4	26	KAPSTADT	-7
7	PARIS	-8	17	MOSKAU	-6	27	BERLIN	-8
8	ROM	-8	18	KAIRO	-7	28	MELBOURNE	+2
9	VANCOUVER	-17	19	TEHERAN	-5	29	ABUDHABI	-5

Remarque : Le programme standard contient 8 villes de n° 0 à n° 7. Le programme étendu comprend ces 30 villes.

Utilisation des touches

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	TIME = 110201.46	TIME = 11 02 01.46	TIME wird auf japanische Ortszeit eingestellt.
2	DEF A	TOKYO 11.2.1:46
3	88	PARIS 11.1.17:46LONDON 11.1.16:46	Beim Standardprogramm
⋮	⋮	⋮
4	822	TOKYO 11.2.1:46SINGAPUR 11.2.0:16NEW YORK 11.1.11:46

Liste du programme : version standard

10:"A":CLEAR:WAIT 020:P=7:DIM A(P):DIM A(P)30:A(0)="TOKYO":A(0)=0.040:A(1)="SINGAPUR":A(1)=-1.350:A(2)="NEW YORK":A(2)=-1460:A(3)="LOSANGELES":A(3)=-1770:A(4)="SIDNEY":A(4)=-180:A(5)="CHIKAGO":A(5)=-1690:A(6)="LONDON":A(6)=-900:A(7)="PARIS":A(7)=-850:I=0:0I=160:GOSUB 50070:GOSUB 65080:B=INKEY90:IF B=""GOTO 37000:IF B=""GOTO 4300:IF B=""2"GOTO 46020:GOTO 37030:0I=1:I=I-140:IF I<0LET I=I+P+150:GOTO 3600:0I=I:I=I+170:IF I>PLET I=I-P-100:GOTO 3600:CLS:USING:PRINT USING "&&&&&&&&";A$(I)0:Y=A(1):IF Y<0LET X=-INT(ABS Y):GOTO 5400:X=INT Y0:Y=(Y-X)*1000:G=TIME0:C=INT (G/10000)0:D=INT (G/100)-C*1000:E=INT G-C*10000-D*1000:F=INT ((G-INTG)*100)0:K=C.L=D

610:M=E+X.N=F+Y:0I:=1:RETURN650:G=TIME660:S=INT ((G-INTG)*100)665:IF 0I=1LET 0I=0:GOTO 690670:IF S=FRETURN680:N=N+1690:IF N>=60LET M=M+1:N=N-60710:IF N<0LET M=M-1:N=N+60730:IF M>=24LET L=L+1:M=M-24750:IF M<0LET L=L-1:M=M+24770:IF L<1GOTO 880780:IF L<=28GOTO 960790:IF (K=1)+(K=3)+(K=5)+(K=7)+(K=8)+(K=10)+(K=12)=1LET Z=31:GOTO 840800:IF K=2LET Z=28:GOTO 840810:Z=30840:IF L>ZLET L=L-Z:K=K+1860:IF K>12LET K=K-12870:GOTO 960880:K=K-1890:IF K<1LET K=K+12910:IF K=2LET L=L+28:GOTO 960920:IF (K=4)+(K=6)+(K=9)+(K=11)=1LET L=L+30:GOTO 960930:L=L+31960:CURSOR 10966:USING :PRINTUSING "###.";K;USING "###.";L;USING "###";M; ";";USING "###";N970:F=S:RETURNSTATUS 11168

Contenu de la mémoire

A
B
C	Monat (Japan)
D	Tag (Japan)
E	Stunde (Japan)
F	Minute (Japan)
G	Tageszeit
H
I	Stadt-Anzeiger
J
K	Monat für jede Stadt
L	Tag für jede Stadt
M	Stunde für jede Stadt
N	Minute für jede Stadt
O
P	√
Q
R
S	√
T
U	Nummer
V	Zeitverschiebung Monat
W	Zeitverschiebung Tag
X	Zeitverschiebung Stunde
Y	Zeitverschiebung Minute
Z	√
A$(29)	Stadtnamen-Tabelle
A(29)	Zeitverschiebungs-Tabelle

Liste du programme : version étendue

10: "A": CLEAR :WAIT 0

20: P=29: DIM A(P):DIM A(P)

30: A(0)=" TOKYO";A(0)=0.0

40: A(1)=" SINGAPUR":A(1)=-1.3

50: A(2)=" NEW YORK":A(2)=-14

60: A(3)=" LOSANGELES":A(3)=-17

70: A(4)=" SIDNEY":A(4)=+1

80: A(5)=" CHIKA60":A(5)=-16

90: A(6)=" LONDON":A(6)=-9

100: A(7)=" PARIS":A(7)=-8

110: A(8)=" ROM":A(8)=-8

120: A(9)=" VANCOUER":A(9)=-17

130: A(10)=" MONTREAL":A(10)=-14

140: A(11)=" RIO":A(11)=-12

150: A(12)=" MADRID":A(12)=-8

160: A(13)=" AMSTERDAM":A(13)=-8

170: A(14)=" DELHI":A(14)=-3.3

180: A(15)=" NAIROB1":A(15)=-6

190: A(16)=" AUCKLAND":A(16)=-4

200: A(17)=" MOSKAL":A(17)=-6

210: A(18)=" KAIRO":A(18)=-7

220: A(19)=" TEHERN":A(19)=-5

230: A(20)=" ZURICN":A(20)=-8

240: A(21)=" HONG DONG":A(21)=-1

250: A(22)=" SEOUL":A(22)=0

260: A(23)=" PEKIN":A(23)=-1

270: A(24)=" HONOLLU":A(24)=-19

280: A$(25)="ATHEN"; A(25)=-7

290: A$(26)="KAPSTA DT": A(26)=-7

300: A$(27)="BERLIN "; A(27)=-8

310: A$(28)="MELBOU RNE": A(28)=+2

320: A$(29)="ABUDHA BJ": A(29)=-5

350: I=0:01=1

360: GOSUB 500

370: GOSUB 650

380: B=INKEY 390: IF B$="GOTO 3 70

400: IF B$="8"GOTO 430

410: IF B$="2"GOTO 460

420: GOTO 370

430: O1=1:1=1-1

440: IF I<0LET 1=1+ P+1

450: GOTO 360

460: O1=1:1=1+1

470: IF 1>PLET 1=1- P-1

490: GOTO 360

500: CLS:USING: PRINT USING "& &&&&&&&&&"; A$(I) 520: Y=A(I); IF Y<0 LET X=-INT ( ABS Y); GOTO 54 0

530: X=INT Y

540: Y=(Y-X)*100

550: G=TIME

560: C=INT (G/10000) 570: D=INT (G/100)-C*100

580: E=INT G-C*1000 0-D*100

590: F=INT ((G-INT G)*100)

600: K=C: L=D

610: M=E+X:N=F+Y:O1 =1;RETURN

650: G=TIME

650: S=INT ((G-1NT G)*100)

665: IF OI=1LET OI= 0:GOTO 690

670: IF S=FRETURN

680: N=N+1

690: IF N>=60LET M= M+1:N=N-60

710: IF N<0LET M=M- 1:N=N+60

730: IF M>=24LET L= L+1:M=M-24

750: IF M<0LET L=L- 1:M=M+24

770: IF L<1GOTO 880

780: IF L<=28GOTO 9 60

790: IF (K=1)+(K=3) +(K=S)+(K=7)+( K=8)+(K=10)+(K =12)=1LET Z=31 :GOTO 840

800: IF K=2LET Z=28 :GOTO 840

810: Z=30

840: IF L>ZLET L=L- Z:K=K+1

860: IF K>12LET K=K -12

870: GOTO 960

880: K=K-1

890: IF K<1LET K=K+ 12

910: IF K=2LET L=L+ 28:GOTO 960

920: IF (K=4)+(K=6) +(K=9)+(K=11)= 1LET L=L+30: GOTO 960

930: L=L+31

960: CURSOR 10

966: USING :PRINT USING "###, ;K ;USING "###. ; L;USING "###"; M; "; ;USING "# ##",N

970: F=S:RETURN

STATUT 1

1800

NOM DU PROGRAMME : DÉVELOPPEMENT DE MOTIFS DE POINTS

N° DU PROGRAMME P5-F-6

1

Aperçu

CE-150 requis

Avec ce programme unique, on peut intervenir activement dans le processus de génération de motifs. Avec les touches 2, 4, 6 et 8 et avec les touches alphabétiques M et T, on peut développer des motifs de points à volonté sur l'écran de l'ordinateur.

Tous les motifs générés peuvent être imprimés en utilisant la touche P.

Instructions d'utilisation

1. Utilisation des touches

Le mouvement est exécuté conformément à la touche enfoncée.

2. Réglage du mode de fonctionnement

M : Pour effacer le point d'affichage. (DÉPLACER) T : Maintient le point à l'écran. (ENREGISTRER) P : Pour envoyer le motif affiché à l'imprimante. E : Pour quitter le programme.

3. Les colonnes 0 à 100 sont disponibles pour les motifs.

4. Remarque :

En fonctionnement normal par touches, un bip sonore confirme la saisie. Si d'autres touches que celles définies sont enfoncées, l'utilisateur est averti par deux bips.

Si la zone de point dépasse la zone définie, trois bips sonores sont émis pour avertir.

[Contenu] (Formules)

1. Le traitement est effectué conformément aux touches numériques et au mode de fonctionnement prédéfini.
2. Le mode de fonctionnement réglé apparaît à droite de l'affichage.
3. En choisissant le mode d'impression avec la touche P, le motif affiché est transmis à l'imprimante, puis le mode de génération de motif (touche M) est rétabli. De cette manière, le motif peut être modifié et amélioré progressivement.

Poids des bits (hexadécimal)

Le motif est codé en hexadécimal. Le carré rouge sur le papier représente un point complet.

1. Pour quitter ce programme, appuyez sur la touche E.

[Action sur les touches]

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF A	PUNKTBEREICH (0 ->100)?_	Hierdurch wird der Punkt-bereich für die Musterge-nerierung festgelegt.
	11 ENTER	(Ein Punkt blinkt am oberen linken Ende.)
	2	Der Punkt bewegt sich abwärts.
	4	Der Punkt bewegt sich aufwärts.
	6	Der Punkt bewegt sich nach rechts.
	8	Der Punkt bewegt sich nach links.
	M	BEWEGEN	Dies ist die festgelegte Taste, um den angezeigten Punkt zu bewegen, während er gelöscht wird.
	T	AUFZEICHNEN	Dies ist die festgelegte Taste, um den Punkt zu bewegen, wobei dieser in der Anzeige verbleibt.
	P E	AUSDRUCKEN	Zum Ausdrucken des Musters Zum Beenden des Programms

[Impression]

L'impression est effectivement en couleur. Voir à ce sujet la page 4.

NOM DU PROGRAMME : DÉVELOPPEMENT DE MOTIFS DE POINTS

N° DE PROGRAMME P5-F-6

[Liste du programme]

10:"A":CLEAR

20:CLS:WAIT 0:

INPUT "PUNKTBE

REICH(0->100)?

";N

30:IF (N)=0)+(N<=

100)<>2GOTQ 20

40:CLS:D=1:P=0

41:CURSOR 17:

PRINT " BEWEG

EN"

50:WAIT 0:A="":X

=POINT P

55:Y=DOR X:A=""

60:GCURSOR P:

GPRINT Y

65:D1=D

70:A=INKEY

80:IF A<>""GOTO

150

90:A=&7F-D:A=AAND

X

90:GCURSOR P:

GPRINT A

05:D=0

10:A=INKEY

20:IF A<>""GOTO

150

30:D=D1:GOTO 55

50:BEEP 1,10,10:

IF A="8"LET D

W=INT ((DI+1)/

2):GOTO 250

60:IF A="2"LET D

W=D1*2:GOTO 25

0

10:IF A="6"LET P

W=P+1:GOTO 260

10:IF A="4"LET P

W=P-1:GOTO 260

0:IF A="M"LET M

ODE=0:CURSOR 1

7:PRINT " BEW

EGEN":GOTO 130

0:IF A="T"LET M

ODE=1:CURSOR 1

7:PRINT "AUFZE

ICH.":GOTO 130

0:IF A$="P"LET M

ODE=2:CURSOR 1

7:PRINT "AUSDR

UCK.":GOTO 300

220: IF A$="E" GRAPH :GOTO 600

230: BEEP 2, 10, 40: D =01: GOTO 55

250: IF DW>64 LET DW =64

251: IF MODE<>0 GOTO 255

252:A=&7F-01:X=A AND X

253: GCURSOR P: GPRINT X: D=DW: GOTO 50

255:A=YOR DW

256: GCURSOR P: GPRINT A:D=DW: GOTO 50

260: IF PW<0 LET PW= 0:BEEP 3,10,20 :GOTO 280

270: IF PW > N LET PW= N: BEEP 3, 10, 30

280: IF MODE=0 GOTO 286

284: GCURSOR P: GPRINT Y: GOTO 290

286: A=&7F-D1: A=A AND X

287: GCURSOR P: GPRINT A

290: P=PW: D=01: GOTO 50

300: GCURSOR P: GPRINT X: D = D1: E = 0

301: T$="123456789ABCDEF"

305: GRAPH: GLCURSOR (0,0)

310: COLOR 1: ROTATE 1: CSIZE 1

320: C=110

330: FOR J=1 TO 7

340: A=2^(J-1)

341: GOSUB 570

350: GLCURSOR (C, 0): LPRINT D$

360: C=C-15

370:NEXT J

380: GLCURSOR (0, -15): SORGN

390:LINE (15,0)-(120,0),0,2

400:FOR I=0TO N

410:A=POINT

412: GLCURSOR (0, E):SORGN

413:E=-16

415:LINE (15,-16)-(120,-16),0,2

420:FOR J=1TO 7

430:B=2^(J-1)

440:B=AAND B

450:C=120-(J*15)

470: IF B=0GOTO 490

480:LINE (C+3,-4)-(C+12,-13),0,3,B

490: GLCURSOR (C, 0): LINE (C, 0) - (C, -15), 1, 2

500:NEXT J

505:GOSUB 570

515: GLCURSOR (2, -4): COLOR I

520:LPRINT D\$

530:NEXT I

540:TEXT :LF 2

550: CURSOR 17: PRINT " BEWEG EN": MODE=0

560:GOTO 50

570:F=INT(A/16):G=A-(F*16)

571: IF F=0LET F\$=" 0":GOTO 574

572:F\=MID\(T\$,F, 1)

574: IF G=0LET G\$="0":GOTO 576

575:G\=MID\(T\$,G, 1)

576: D\=F\+G\$

579:RETURN

600: CSIZE 2: COLOR 0: CLS: ROTATE 0: TEXT

610: END

STATUS 1

1451

[Contenu de la mémoire]

A	√	A	Bereich für INKEYS	D1	Sicherstellung des bewegten Punktes
B	√	B		DW	Sicherstellung der Punktposition während der Bewegung
C	Cursor-Position des Druckers	C		PW	Sicherstellung der Cursor-Position während der Bewegung
D	Bewegung der Punktposition	D	Ausgedruckte Daten	MODE	Sicherstellung der Betriebsart
E	Cursor-Startpunkt des Druckers	E
F		F	Sedezimaler Code (obere Stellen)
G		G	Sedezimaler Code (untere Stellen)
H		H
I	√	I
J	√	JS
K		KS
L		L
M		M
N	Verwendeter Punktbereich	NS
O		OS
P	Cursor-Position	P
Q		Q
R		R
S		SS
T		T	Sedezimale Umrechnungstabelle
U		US
V		VS
W		W
X	Derzeitiges Muster	X
Y	Derzeitiges Muster + bewegter Punkt	YS
Z		Z$

PROGRAMMNAME: WORTSPEICHER		PROGRAMM-NR.P5-F-7	1
		CE-150, CE-151 und Kassettenrecorder erforderlich
[ Überblick ]
Durch die Eingabe von Wörtern aus einer Fremdsprache und die entsprechende Bedeutung in der Muttersprache des Benuzers ist das Programm z.B. nützlich zum Vokabelnlernen.
[ Anleitung zum Betrieb ]
DEF A	Übersetzt Wörter der Fremsprache in die Muttersprache.
DEF B	Ein Wort der eigenen Sprache wird angezeigt, daraufhin gibt man das entsprechende Wort der Fremdsprache ein.
DEF C	Speichert Wörter beider Sprachen (Hinzufügung und Änderung)
DEF D	Druckt die gespeicherten Daten aus.
DEF F	Die Reihenfolge, in der die Wörter unter A und B in der Anzeige erscheinen, kann wahlweise in geordneter oder ungeordneter Form erfolgen.
DEF G	Zum Einlesen von Wörtern beider Sprachen von der Kassette her, desgleichen zur Ausgabe an die Kassette.
1. Datenerfassung/Korrektur: Eingabe von ca. zehn Daten.
2. Übersetzung von Wörtern der Muttersprache in die Fremdsprache (Eintasten der Wörter)
3. Übersetzung von Wörtern der Fremdsprache in die Muttersprache.
4. Änderung der Wortreihenfolge.
5. Speichern der Daten auf Kassette und Lesen der Daten von Kassette.
6. Datenliste und Ausgabe.
[ Beispiel ]In unserem Beispiel gehen wir von der Muttersprache Deutsch und der Fremdsprache Englisch aus.
1. Datenerfassung und Änderunga. Erfassung
1. FESTIVAL	FEST
2. MOON LIGHT	MONDSCHEIN
3. JOINT	TREFFN
4. SPECIALITY	SPEZIALITÄT
5. WEATHER	WETTER
6. QUEEN	KÖNIGIN
7. INDUSTRIAL	INDUSTRIELL
8. GRASS	GRAS
9. INNOVATION	ERNEUERUNG
10. DISTRIBUTE	VERTEILEN
b. ÄnderungZum Beispiel die Änderung der Eingabe, vorausgesetzt, daß „GRASS GRAS“ in Posten 8 bei der Erfassung aus Versehen als „GRAS“ eingegeben wurde.

PROGRAMMNAME: WORTSPEICHER

PROGRAMM-NR.P5-F-7

2

1. Mots allemands en mots anglais

a. « Fest » est affiché. b. Saisie de l'orthographe incorrecte. c. Affichage de l'orthographe anglaise du mot de N caractères à partir de la gauche (N signifie 1 pour le nombre de saisies). d. Saisie des lettres restantes en dehors de celles affichées dans la section c) ci-dessus. e. Si l'orthographe correspond, le mot allemand « Mondschein » est affiché ensuite (dans ce cas, l'affichage se fait dans l'ordre).

1. Mots anglais en mots allemands

a. « FESTIVAL » est affiché. b. On saisit soit Y (si le mot allemand correspondant est connu) soit N (si le mot allemand correspondant n'est pas connu). c. Saisie de Y : le mot anglais suivant, « MOON-LIGHT » pour « Mond-schein », est affiché. Saisie de N : le mot « Fest » pour « FESTIVAL » est affiché.

[Contenu] (Formules)

Avec la capacité standard du PC-1500, des mots d'une longueur maximale de

16 caractères peuvent être enregistrés dans l'une ou l'autre langue.

Au total, un maximum de 143 paires de mots peuvent être enregistrées.

Le nom de fichier pour la cassette est « F-M-SPEICHER ».

Avec la capacité standard du PC-1500, le nombre maximal de N pour l'enregistrement est de 16 paires.

[Impression]

1 FESTIVAL FEST 2 MOON LIGHT MONDSCHEIN 3 JOINT TREFFN 4 SPECIALITY SPEZIALITAET 5 WEATHER WETTER 6 QUEEN KOENIGIN 7 INDUSTRIAL INDUSTRIELL 8 GRASS GRAS 9 INNOVATION ERNEUERUNG 10 DISTRIBUTE VERTEILEN

[Action sur les touches]

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF C	EINGABE/ERNEUERN?(E/ER)
2	E ENTER	N =	→ Nach Schritt 3.
	ER ENTER	ERNEUERUNG NR. =	→ Nach Schritt 9.
3	10 ENTER	FREMDSP. (1) =	Durch Drücken dieser Taste bei Eingabe des englischen Wortes endet der Speichervorgang.
4	FESTIVAL ENTER	MUTTERSP. (1) =
5	FESTIVAL ENTER	FREMDSP. (2) =
6	MOONLIGHT ENTER	MUTTERSP. (2) =
			Eingabe aller Wortpaare.
7	DISTRIBUTE ENTER	MUTTERSP. (10) =
8	VERTEILEN ENTER	E.D.EINGABE	Der Vorgang ist beendet.
		>
9	8 ENTER	GRASSWECHSEL? (Y/N)
10	N ENTER	ERNEUERUNG NR. =	→ Nach Schritt 9.
	Y ENTER	FREMDSP. =	→ Nach Schritt 11.
	ENTER		Die Änderung ist beendet.
11	GRASS ENTER	MUTTERSP. =
	GRAS ENTER	ERNEUERUNG NR. =	→ Nach Schritt 9.

[Action sur les touches]

Schritt-Nr.	Eingabe	Anzeige	Anmerkung
1	DEF B	FEST?
2	HESTIVAL ENTER	FEST F	Falsche Eingabe
3	ESTIVAL ENTER	MONDSCHEIN ?
4	MOONLIGHT ENTER	TREFFEN ?
	ENTER	>	Durch Drücken dieser Taste wird die Verarbeitung beendet.
1	DEF A	FESTIVAL--Y/N?
2	Y ENTER	MOONLIGHT --Y/N?	→ Nach Schritt 2.
OR	N ENTER	FEST	→ Nach Schritt 3.
	ENTER	JOINT--Y/N?	Durch Drücken dieser Taste wird die Verarbeitung beendet.
Schritt-No.	Eingabe	Anzeige	Anmerkung
3	ENTER	>	→2Durch Drücken dieser Taste wird das nächste englische Wort angezeigt.
1	DEF F	GEOR. /UNGEOR.? (G/U)
2	G ENTER		Zur Festlegung auf geordnete Reihenfolge (sequentieller Auszug)
OR	U ENTER		Zur Festlegung auf willkürliche Reihenfolge.
1	DEF G	CLOAD/CSAVE?(L/S)
2	L ENTER		Einlesen der Daten von der Kassette.
OR	S ENTER		Speichern der Daten auf Kassette.
1	DEF D		Ausdruck der in diesem Programm registrierten engli- schen und deutschen Wörter.

[Liste des programmes]

5: "C": WAIT 0: CLS

10: INPUT "ENTREE / ACTUALISER ? (E/ER)"; A\$

20: IF (A\="E") + (A\="ER") <> 160TO 10

30: IF A\$="ER" GOTO 150

40: CLEAR : INPUT " N="; N:DIM E\(N -1), J\(N-1)

50: FOR I=0 TO N-1

60: A\$="FREMDSP, ( +STR\$(1+1)+") ="

70: CLS : PRINT A\$;

80: INPUT E\$(1): GOTO 90

85: CLS : END

90: A= "MUTTERSP. (" + STR(I+1) + ") = "

100: CLS : PRINT A$;

110: INPUT J$(I)

120: NEXT I

130: PAUSE "EINGABE"

140: END

150: INPUT "ERNEUERUNG NR. ="; A: GOTO 170

160: END

170: IF A > N THEN PAUSE "UEBERLAUF DER TABELLE"; END

180: CLS : PRINT E$(A-1);

190: INPUT "WECHSEL?(Y/N)"; A$

200: CLS : IF (A="Y") + (A="N") <> 1 THEN GOTO 180

210: IF A$="N" THEN GOTO 150

220: INPUT "FREMDSP. ="; E$(A-1)

230: INPUT "MUTTERSP. ="; J$(A-1)

240:0010 150

(Suite à la page suivante)

[Liste du programme]

250: "D": FOR I=0T0N-1	510: B=MID (E(I), 1, K)+A
255: IF E(I)="GOTO 280	520: IF E(I)=BGOTO 540
260: LPRINT (STR(I+1)+";E(I)	530: K=K+1: GOTO 480
270: LPRINT ";J(I)	540: K=0: IF S=1GOTO 460
280: NEXT I	550: NEXT I
290: END	560: CLS :WAIT 60:PRINT "ENDE DER TABELLE";END
300: "F": CLS : INPUT"GEOR,/UNGEOR.?(G/U)";A	570: "G": INPUT "CLOAD/CSAVE?(L/S)";A
310: IF (A="G")+(A="U")<>1GOTO 300	580: IF (A="L")+(A="S")<>1GOTO 570
320: S=0: IF A="U"LET S=1	590: IF A="S"GOTO 640
330: END	600: CLEAR
340: "A": WAIT 0	610: INPUT #"F-M-SP EICHER";N:DIME(N-1), J(N-1)
345: IF S=1LET I=RND N:I=I-1;GOTO 360	620: INPUT #"F-M-SP EICHER";E(*), J(*)
350: FOR I=0TO N-1	630: END
360: CLS : PRINT E(I);	640: PRINT #"F-M-SP EICHER";N
370: INPUT "--Y/N?";A:GOTO 390	650: PRINT #"F-M-SP EICHER";E(*), J(*)
380: END	660: END
390: IF (A="Y")+(A="N")<>1GOTO 370
400: IF A$="Y"GOTO

420: WAIT 0 : IF S=1 GOTO 345

440: CLS : WAIT 60 : PRINT "FIN DE LA TABLE". END

450: "B" : WAIT 0 460: IF S=1 LET I= RND N : I=I-1 ; GOTO 475

470: FOR I=0 TO N-1

475: K=0

480: CLS : PRINT J\(I) ; ; MID\(E\$(I), 1, K),

490: INPUT A\$. GOTO 510

500: END

[Contenu de la mémoire]

A	Änderungsummer
B
C
D
E
F
G
H
I	√
J
K	√
L
M
A	Anzahl der zu registrierenden Wortpaare
O
P
Q
R
S	Anzahl der zu registrie- renden Wortpaare
T
U
V
W
X
Y
Z
A$	√
JS(N-1)	Markierung (Flag für sequentiellen/willkür- lichen Auszug)
ES(N-1)	Liste der Wörter in der Fremdsprache.

SHARP CORPORATION

OSAKA, JAPON