Download (7333kb, 52 pages) - The Sharp MZ-Series
Download (7333kb, 52 pages) - The Sharp MZ-Series
Download (7333kb, 52 pages) - The Sharp MZ-Series
Sie wollen auch ein ePaper? Erhöhen Sie die Reichweite Ihrer Titel.
YUMPU macht aus Druck-PDFs automatisch weboptimierte ePaper, die Google liebt.
"• o<br />
a<br />
•<br />
[JJ<br />
ro<br />
~.<br />
LETA$ Befehl Letter<br />
rt<br />
ro<br />
Parameter: A$= neues Zeichen oder dez. ASCII-Code<br />
Es kann ein neues Zeichen eingegeben und damit editiert <br />
1-1. werden. <br />
~ OLD Befehl : OLD LETTER Parameter: keine <br />
Das am Anfang oder unter LET eingegebene Zeichen wird auf<br />
die Editierstelle gebracht.<br />
:l><br />
I-' DTA Befehl : DATA Parameter: keine<br />
I-' Der Hex-Code des GPRINT-Musters eines auf der Editierstelle<br />
ro vorhandenen Zeichens wird ausgegeben. Nach Druck auf Enter<br />
rJl faehrt das Programm fort.<br />
'"'h<br />
c:<br />
Listing:<br />
"1<br />
10:"="CLEAR :CLS :DIM P(254):INPUT "Zeichen ":I$:IF LEN I$lLET 1$<br />
[JJ =CHR$ VAL 1$ .,<br />
::r 11:" "WAIT I2I:CLS :PRINT I$:GCURSOR 84:PRINT CHR$ 124;I$;CHR$ 124:<br />
Cl)<br />
"1<br />
ON ERROR GOTO "12I1":DA$="12I123456789ABCDEF"<br />
'0 12 "01"GOSUB "CLR":CURSOR 19:INPUT IP$<br />
13 Il$=LEFT$ (IP$,3): I2$=MID$ 9AND 11< 51> :<br />
I"$=MID$(I2$,3,1):IF I2$=""LET I2$="N"<br />
30 FOR E=0TO 4:GOTO "RCL"+I2$<br />
31 "RCLN"GPRINT P(5*I1+E);:NEXT E:RETURN<br />
32 "RCLO"GPRINT P(5*I1+E)OR POINT E;:NEXT E:RETURN<br />
33 "RCLA"GPRINT P(5*I1+E)AND POINT E;:NEXT E:RETURN<br />
34 "TLO"I"=VAL I2$+1:I2=I2*(I2(9):CURSOR 0:FOR E=I2ITO 4:GPRINT POINT<br />
E OR P(5*I2+E);:NEXT E:RETURN<br />
35 "TLA"I"=VAL 12$+1: 12=12*02