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

--' ---­
..
: :. .
~.
:
I - -,~ -­
STATUS 1
1969
CC=>TRANSISTOR<
. \
:> ;
;;
if
!" \"
:>
; i
~~---
Ii '\ I'
~ ;
: ; ~ \ ..
~ .. , ..
Cl • \
~! ! : \\.~
~~I • ~ I ~ , • ~ ~ •
STATUS
1094
CC=>LADEKURUE(
li
Dies ist ain neues Textverarbei tungsprooraam fu.... den PC-1401 und den
(fJ
Drucker CE-126P. Das besendere an di.... Programm ist, da.s man die Texte
CD
"""', auch in Kleinschrift drucken kann. Oeutsch. Umlaut. Bind auch .oeglich.
r+ Aufl.den und Absp.ichern ven Texten kann man .benfalls, sowi. rechter
CD Randau.oleich ist aoeolich !
Wenn man nun z.B. di ••en Satz druck.n willl Ich •••• • in. Banan••
W muss man ihn so eingaben I AICH ESSE EINE ABANANE.
N Das Zeichen bedeutet, dass der naechste Buchstabe gross-geschrieben
werden solI.
:l> Gibt man CSAVE ein, wird der Text auf Band abORSpeichert. Mit CLOAO ladet
to-­ man ihn wiader in d.n Rechner. BLOCK bewirkt, da.. die folgendan Saetze
to-- .it rechtem Randausgleich (Blocksatz) gedruckt werden. 1st dies nicht
CD erwuenscht, gibt man NO BLOCK ein. Es kDennen max. 30 Saetze eingegeben
W warden. Vcr dem 29. erfolgt ein Warn-Beep, das jetzt der letzte Satz
kommt. Die 30. Eingabe kann nicht mehr zum Brief gehoeren, sie ist
'""1")
C: reserviert fuer die Eingabe VDn CLOAO / CSAVE oder fuer PRINT, welches
"1 bewirkt, dass der Brief ausgedruckt wird.
Fuer den Ausdruck braucht man etwas Geduld. Wird versucht, bei der Eingabe
(fj mehr als 23 leichen (Die leichen A werden nicht angerechnet) einzugeben,
::r erfolgt ein Beep und man kann die leile noch einmal eingeben (kuerzer
0)
natuerlich). Wie man deutsche Umlaute oder Spezialzeichen auf daB Papier
"1
'0
bringt, entnehmen Sie der Tabelle 1.
(1 ---Es folgt nun die Beschreibung maines neuesten Progra.... PAC-SON--­
o
3 Wie man schon dem Namen entnimmt, hat as etwas mit PAC-MAN zu tun. Der
'0 Spieler lenkt sein Moenst....chen durch ein Labyrinth. liel das Spieles ist
C
r+ mit moeglichst wenig Bewegungen alle Punkte "aufzufressen-.
CD .rfolgt ueber die Zehnertastaturl rBJ
aufwaerts
"1
::t Thomas Jeger
[6J rechts
CO Hauptstrasse 142
'""1")
[4] links
r+ CH-32B6 Muntelier Cfrb.)
[2J abwaerts
~
~
C!)
~~ ~ ~-.
~ . ~ 1- -'
1; ~
c.:;' r­
~ "'or ~~
~~ ~
~ c-.' s:> '"'
~ ... ~
~ -e.­
,~ ......
Steuerung
~
0 ,
12S:IF B'(I)="CLOAD"
~
~
0
~
----TEXTVERARBEITUNG---­
1: REM ........•.••.••.
IB:PRINT "TEXTVERARBEIT
UNG"
2B:PRINT "KLEINSCHRIFT
VON"
30:PRINT YHERRN DIETZEY
40:PRINT "SYSTEMHANDBUC
H"
S0:PRINT YSEITE 76/77"
60:PRINT YFUER GR. LETT
ER"
7B:PRINT YEIN ~ EINGEBE
N: "
80:PRINT YBSP. DAS ~HAU
SY
90:PRINT "H=GR. REST KL
EIN·
100:CLEAR :DIM B'(3e)*48
:DIM L1I(1)*24,L2S(1
>*24,LA(24)
110:POKE &380S,16,70,21S
,214,36,40,3,235,2139
,16,96,186,132,27,12
1,128,69
111:POKE &3816,2,32,121,
167, 2se, 13,0
115: 1=1
120:INPUT BS(I):IF LEN B
'(1)(23 THEN 12S
121:HO=0:FOR H=l TO LEN
U( I)
122:IF MIDS (B'(I),H,l)=
.~" THEN LET HO=HO+l
123:NEXT H
124:1F LEN BS(I)-HO>23
THEN BEEP l:GOTO 1213
THEN INPUT IB,(*):
GOTO 120
130:IF B'(I)="CSAVE·
THEN PRINT IBS(*):
GOTO 1213
13S:IF BS(I)=YPRINT·
THEN LET P=I:GOTO IS
o
14e:IF 1=29 THEN BEEP 1
141:IF 1=30 THEN BEEP 2:
GOTO 1213
145:I=I+l:GOTO 1213
lse:C-l
160:1F B'(C)="BLOCK·
THEN LET BL=1:C=C+1:
GOTO 160
17e:IF BI(C)="NO BLOCK"
THEN LET BL=e:C=C+l:
GOTO 160
1se:IF C=P THEN GOTO le
1ge:HO=0:FOR H=l TO LEN
BS(C)
192:IF MIDI (BI(C),H,l)=
Y~" THEN ~£T HO=HO+1
193:NEXT H
2213: IF BL=1 THEN GOSUB 3
90
230:CALL &3805
240:J=B:I=1:GOTO 260
2S0:A=ASC (MIDI (BS(C),I
, 1) ) : RETURN
26B:GOSUB 2S0
270:IF A=94 THEN LET IzI
+1:GOSUB 250:POKE &3
817,A:CALL &3816:J=J
+l:GOTO 350
28B:IF A=36 THEN POKE &3
817,224:CALL &3816:
GO TO 350
290:IF A=37 THEN POKE &3
817,228:CALL &3816:
GO TO 3se
30e:IF A=38 THEN POKE &3
817,226:CALL &3816:
GOTO 3S0
3135: IF A=35 THEN POKE &3
817,239:CALL &3816:
GOTO 3se
31e:IF A=252 THEN POKE &
3817, 127:CALL &3816:
GOTO 3S0
320:IF A=64 THEN POKE &3
817,141:CALL &3816:
GOTO 3se
3313: IF A)=32 AND A(64
THEN POKE &3817,A:
CALL &3816:GOTO 3se
34e:POKE &3817,A+32:CALL
&3816
3se:IF I()LEN BS(C) THEN
LET I=I+l:GOTO 260
36e:FOR K=I TO 23+J:POKE
&3817,32:CALL &3816:
NEXT K
37e:CALL &A984
38B:C=C+I:GOTO 160
3ge:Y=1:FOR ' Z=1 TO LEN B
S(C)
4ee:IF MIDS (B'(C),Z,l)=
" • THEN LET LA(V)=Z
:Y=V+l
410:NEXT Z
420:IF Y=l THEN RETURN
430:X=1:Y=V-l
440:IF LEN BI(C»=23+HO
THEN RETURN
4se:LlS(1)=LEFTS (BS(C),
LA(X»:L2S(1)-RIGHTS
(BS(C),LEN BS(C)-LA(
X»
4613: IF V-I THEN 4813
47e:FOR QaX TO V:LA(Q)=L
A(Q)+t:NEXT Q
48e:BS(C)=L1S(1)+" "+L2'
(1)
4ge:IF X=V THEN LET X=l:
GOTO 440
see:X=X+l:GOTO 4413
----TEXTVERARBEITUNG---­
TABELLE
A ,
0 %
, U &
1%
I' = 41
I =or
f =,....;'
4' =,,-.