Computerclub Deutschland e.V. • Postfach 11 0411 • D-6000 ...

Schnittstelle werden gewahlt und der
48SX beginnt automatisch mit der
Ubertragung.
Vorsicht: GroBen, die nicht von Flags
gesteuert werden (z.B. Baud in der
Liste IOPAR) verandert SPRG nicht.
Die Arbeit auf dem PC ist viel aufwendiger,
daher ein Beispiel:
Das Programm SPRG soil sich selbst
als GROB an den PC schicken. Dazu
geben wir folgendes auf dem HP-48
ein:
'SPRG' ENTER SPRG
dann starten wir auf dem PC das
Ubertragungsprogramm mil K [EN
TER] (die oben erstellte Batch-Datei).
Der Kermit-Befehl SERVER veranlaBt
den PC das Ohr auf das Kabel zu
legen um dem 48SX zu lauschen.
Jetzt kann man eine Pause machen
um ein paar Brotchen zu vertilgen, es
dauert halt ein biBchen, vereinzelt
piept der PC, aber das sollte kein
Grund zur Beunruhigung sein. Wenn
der 48SX fertig ist, kann man durch
gleichzeitiges Drucken von Strg und C
eine weitere Empfangnis des PC verhiiten.
Wer nur ein Programm ubertra
gen mochte, kann statt SERVER auch
RECEIVE oder kurz R eingeben, dann
kommt es sofort nach der Ubertra
gung zum temporaren "Kermitus",
dem Ableben der Verbindung zwi
schen 48SX und PC.
Egal ob man sich fiir R oder SERVER
entschieden hat, verlaBt man Kermit
endgiiltig mit:
EXIT (ENTER)
ein. Wie man sich leicht mit dem Be
fehl DIR (diesen DOS-Befehl versteht
auch Kermit) uberzeugen kann ist auf
dem PC eine neue Datei mil dem Na
men SPRG.GRO entstanden (sofern
der Name nicht bereits existiert hat).
Die weitere Bearbeitung der GROBs
auf dem PC geht dann so weiter:
GROB2TIF.EXE < SPRG.GRO >
SPRG.TIF (ENTER)
Das Programm GROB2TIF.EXE
braucht zwei versehiedene Namen,
der eine (SPRG.GRO) ist die Quelle
und SPRG.TIF das Ziel, in welchem
die TIFF-Datei SPRG steht. Die En
dung TIF sollte man immer verwen
den, damit sowohl Benutzer als auch
Software diese Datei als brauchbare
Grafikdatei erkennen. Das Verfahren
48 SX
scheint zwar ein wenig umstandlich,
aber wer die Listings mit dem Infrarotdrucker
erzeugt und nachtraglich in
den Text einklebt erhalt trotz groBerem
Zeitaufwand eine schlechtere
Qualitat.
Hier allerdings noch ein paar Nachteile:
GROB2TIF.EXE stellt TIFF-Dateien
nur in einer GroBe her. Wer also
Listings verkleinern oder vergroBern
mochte, braucht dafiir also ein cleveres
Text-, DTP oder Grafikprogramm.
AuBerdem erzeugt SPRG im 48SX
sehr groBe Grafikobjekte, die ohne
ausreichenden Platz zum Abbruch
wegen Speichermangel fuhren, so
braucht SPRG als GROB im 48SX ca.
10 kBytes, und zur einwandfreien
Ubertragung braucht man etwa den
doppelte Platz. Damit SPRG im ge
samten RAM wirken kann, sollte es im
HOME-Verzeichnis stehen.
Der besondere Trick bei den Programmen
PRP und SPRG war der, daB
man ein Programm auf zwei Arten in
einen String verwandelt werden kann:
Entweder mil dem Befehl -»STR oder
indem man einen String addiert (hier
ist es ein leerer String, d.h. ohne Zei
chen, aber er kann beliebige Zeichen
enthalten), also durch:
"" + (der String muB kein Zeichen
enthalten)
Bei Programmen bewirkt die letztere
Methode die bekannte Darstellung
durch PRP und SPRG. Die Funktion
-+STR hingegen erzeugt eine ganz
andere Darstellung. AuBerdem ver
wandelt diese Funktion alle Objekte in
Strings (Strings, die mit -+STR behan
delt werden, bleiben unverandert).
Hier eine kleine Tabelle der unter
schiedlichen Wirkungen:
Objekttyp
"" +
->STR
Programm, Zeilenumbruch Zeilenumbruch
Verzeichnis nach max. 19 nur vor
Zeichen strukturieren
(ausgenommen Befehlen
Strings) (FOR, DO,
END, STEP,
THEN, «...)
'Namen' werden ohne' 'auch im
in String String
verwandelt enthalten
Vektoren Umwandlung Umwandlung
mit
ohne
Zeilenumbruche Zeilenumbruche
n
Besonders reiaZvoll finde ich dabei die
Umwandlung von Feldern (Arrays) in
PRISMA 1/92 Computerclub Deutschland e.V.
Strings, da hier der 48SX die gewohnten
Formen der Felder erhalt, und sie
nicht wie beim Ausdruck mit dem IR-
Drucker zerpf liickt.
PFEIFER
48SX
002
004
006
008
010
012
014
016
018
020
022
024
026
028
030
032
WED 15.01.9Z 11:03:53
TXTGROB
«{ 69 11 } OVER
GET * n h
« +STR 10 CHR + 0
C } ROT
DO DUP 18 CHR
POS 1 SWAP 1 - SUB
LASTARG + 1 + OVER
SIZE SUB 4 ROLLD
DUP ROT + 4 ROLLD
SIZE MAX ROT ROT
UNTIL DUP SIZE
NOT
END DROP LIST+
DUP h * SWAP 2 +
ROLL 6*1+ R+B
OVER 1 + R+B BLANK
0 R+B SWAP 1 4 ROLL
FOR j ROT n
+GR0B ROT OVER SIZE
DROP > LASTARG IFTE
ROT ROT # lh j R+B
2 +LIST SWAP REPL h
STEP 0 R+B DUP
2 +LIST ROT
IF n 1 SAME
THEN 3 PICK
SIZE SWAP DROP 2
+LIST SUB
ELSE DR0P2
END
» Bytes : 373
Checksum : tt 113Dh
Strings in Grobs
Das Programm TXTGROB verhalt
sich ahnlieh wie die eingebaute Funk
tion -+GROB und erwartet folgende
Eingaben: Ein beliebiges Objekt in
Ebene 2 und eine 1,2 oder 3 in Ebene
1, um die ZeichengroBe festzulegen.
Im Unterschied zu -»GROB verwan
delt es mil ->STR das Objekt in einen
String (Strings bleiben unverandert)
und bricht es an den Newline-Befehlen
(10 CHR) um, auBerdem ist die
ZeichengroBe 0 in Ebene 1 unzulas
sig. Das Programm baut den Text so
ins GROB ein, daB der Rand rundher
um ein Pixel breit ist. Fiir die (propor
tionate) ZeichengroBe 1 reduziert das
Programm anschlieBend nocheinmal
die GroBe des GROBs.
Dieses Programm kann man naturlich
auch verwenden, wenn man mit dem
PC gar nichts zu tun haben will, son
dern nur im LCD einen Text invers
darstellen mochte, zum Beispiel fol
genden Zweizeiler:
"Kriegt der Rechner einen Schock,
singt Heinz Schenk im Blauen Bock"
1 TXTGROB NEG ->LCD