Download (7333kb, 52 pages) - The Sharp MZ-Series

~......,.......,......,
ST
1.
,2.
3.
Das neue SchuIjahr hat fUr die Schuler in alIen Bundealandern wieder
begonnen. Urn eine bessere tlbersicht Uber die eigenen Schulstunden zu
bekommen, habe ich das Programm "STUNDENPLAN" geschrieben. Es druckt
auf dem CE-150 den gesamten Wochenplan aus.
Hier ein Eeispielausdrucks
Dominik A. MUller
Elankeneser HauptstraBe 1~
STUNDENPLAN
2000 Hamburg 55
Tel.: 040 / 86 09 72
UHRZEJT MONTAG DJENSTAG MJTTI.IOCH
8 118 - 84~ UHR DEUTSCH ~EIN ~TE""IC'4T B1OLOG1E
8~- 9J~ UHR MATHEMATIK LATEIN CHEMIE
9~8-10J~ UHR KUNS"r GRIECHlSCH GR1ECH1SCH
DONNERSTAG FREJTAG
GEMEINSCH. ENGLlSCH
GEMEINSCH. ENGLlSCH
PHILOSOPHIE PHYSIK
4. 10~8- 1 p~ UHR KUNST GRIECHlSCH ENGLISCH PHILOSOPHIE PHYSIK
5.1 P8-12 3s UHR BIOLOGIE GESCHICHTE DEUTSCH MATHEMATIK LATEIN
5. 1248-132~ UHR CHEMIE GESCHICHTE DEUTSCH MATHEMATIK LATEIN
"} 134~-142~ UHR MAT"HEMA T 1 K ~EIN UNTE""ICHT ~EIN l.t4TERRICHT ~EIN l.t4TE""ICHT ~EIN ~TU~ICHT
"-­ ---.- . ..- ~.. -.-­
8. 142~-158~ UHR MATHEMATIK ~EIN ~TEIIRIC'4T ..EIN l.t4TE""ICHT )(EIN ~TE""ICHT
9.151~-15~~ UHR ~Elt< ~TE~~ICHT
ENGLISCH SPORT )(Elt< ~T[""ICHT
10. 15~~-15J~ UHR )(Elt< UNTE~R'C"T ENGLISCH SPORT ..Elt< UNTE"",CHT
Bei der Eingabe zeigt der Computer den jeweiligen Wochentag an. Da­
rauf muS dann das jeweilige SchuIfach eingegeben werden. Wenn man in
einem FeId "KErn UNTERRICHT" abgedruckt haben will, muS man ein Mi­
nuazeichen e1ngeben.
Da die Uhrzeiten fUr die Schulstunden nicht immer mit denen Uberein­
atimmen mUssen, die im Programm (Zeile 900-990) abgespeichert sind,
hier ein Hinweis s
Die Uhrzeiten sind in folgender Form abgespeicherts
~ 9xxI DATA "Schulstunde", "Stunde", "Minute", "Stunde" ,"Minute".
'"-'
'"-' Sie mUssen also bei der Eingabe des Programmes lediglich die eigenen
CD Uhrzeiten eingeben und erhalten dann einen vollkommenen individuel­
C/J len Stundenplan.
"'i)
~:
10:GRAPH :CSIZE 2
'1
:ROTATE 1:
RESTORE
m 20:D1M A$(5, 10)
::r 21: A$ (1, 0 )=" MON
Q)
TAG"
'1
'0
22:A$(2,0)=" D1EN
STAG"
23:A$(3,0)=" MITT
o !.lOCH"
3 24:A$(4,0)="DONNE
'0 RSTAG"
~ 25:A$(5,0)=" FRE
rt lTAG"
CD 30:FOR I=lTO 5
'1
35:CLS :WAlT 0:
::r:
PR 1NT A$ :LPRINT Ut;"~. STEP 38
..EIN UNTE~RIC"T
)(EIN UNTER~IC"T
"Elt< UNTERRIC..T
, "50"," 9", "35
920: DATA " 3"," 9"
, "50", "10", "35
930: DATA " 4"," 10"
, "50", "11", "35
940:DATA" 5", "11"
, ,. 50 ", " 12", "35
950:DATA '" 6", "12"
, "40", "13", "25
960:DATA" 7","13"
, "45", "14", "25
"
970:DATA" 8","14"
, "25", "15", "05
"
980: DATA" 9"," 15"
, "15", "15", "55
990: DATA "10"," 15"
, "55", "16", "35
STATUS 1
350:LINE (K+19,-14
3)-(K+19,0)
360:NEXT K
365:COLOR 1
370:FOR K=1TO 3:
GLCURSOR (193,
-10-K):LPRINT
A$(I,0):NEXT K
380:GLCURSOR (193,
-7):SORGN
400: FOR J=ITO 10
410:GLCURSOR (-19,
0):SORGN
415: 1F A$ ( 1, J ) =" -"
CSIZE I:RLINE
-(3,0),9:
LPRINT" KE
IN UNTERRICHT"
:RLlNE -(-3,0)
,9: CSIZE 2:
GOTO 430
420:LPR1NT A$(I,J)
430:NEXT J
440:GLCURSOR (O,-1
37):SORGN
450:GRAPH :ROTATE
1
1-'. 80 NEXT J
rt 90 NEXT 1 340:LINE (K,0)-(K, 460:NEXT I
CD 100 LINE (0,32)-(2 -143) 900: DATA" 1"," 8"
09,-143),0,0,B , "00"," 8", "45
~
~
910: DATA" 2"," 8"
11
1376
f-It-'
--
----
H t-' 0 \,() (X) -.l a.. \J1~VoII\l ........ H
t:r
Ii
~ ~8~enCltf