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

SHARP PC 1500(A)
C/J xxx fur SHARP PC 1500(A) XXX
BUCHPROJEKT
(J'J bei wieviel Gewinnspielen das Prg. beendet werden solI. (ENTER)
CD
....,­ Nachdem Sie das Listing eingegeben haben, konnen Sie das Prg••it
It OEF A oder RUN starten. Nach .der Vorspannzeremonie erscheint die
CD
Frage "Ihr Vorname 1" eingeben (ENTER). Oanach konnen Sie bestimmen
Nun erscheint das Spielfeld. (siehe Hard-Copy) Oer Sinn des Spieles
liegt nun darin mit den beiden Wurfeln eine hohere Summe zu
:l> erzielen wie die des Computers. Hit den Tasten 1-9 konnen Sie die
f-'
f-'
Anzahl der Wurfeldurchgange bestimmen. (INKEY$-Funktion) Haben
CD Sie oder Computer die Zahl der Gewinnspiele erreicht, so ist das
(fJ Prg. beendet. Viel SpaS beim tippen und spielen. (c) S.N. 85
Hard-Copy Knobel-Becher fur SHARP PC 1500(A)
'"1)
..., c: 1.st Buchstabe Vorname
Punkte Spieler Wurfel Spieler Computer
C/J
::r
Q.l
...,
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Haben Sie Anregunsen oder Probleme, so schreiben Sie an Fischel GmbH
~------- ------- .. -.- --..--. -----_.-
~~
tu
[ID~0g]~ C
B
(')
:t'
~ §
~
~
o
...
CIl
o Betrifft:Buchprojekt fur SHARP PC
I-' Sehr geehrte Damen und Herren,
~
It sehr geehrte PC 1500(A) Besitzer !
::s
Es ist geplant ein Buch fUr den
CIl
.... SHARP PC 1500 zu Veroffentlichen.
(I
Folgende Themen sind geplant:
::s unter Vorbehalt
....
n
:t LCD-Grafik
t+
Aufbau LCD Grafik
....
a LCD-Figuren entwerfen
~ bewegte Grafik
H
:t Menue-Steuerung und Tasten
~
It ubersichtliche Henue's
a
div. Prg.-Beispiele
6 8El
~ ~
~ BB I=­
'0 17a:WAIT a:BEEP 1: 280: "EIN"A=ASC 430:IF P=GWCLS :
1Ia: "A"CLEAR : DIM PRINT "Ihr UOr' INKEY$
~
BEEP 3: WAIT 20
W$(5): P$="1a
name ": CURSOR 1 290:IF ~)48AND An
;UN$jCHR$ g.7F; PRINT X$
1I1i'
INKEY$
8El§JElITl o deutscher Zeichensatz selbst gemacht
112:W$(S)="7F41555
"P." ; P$ 370:GCURSOR 54: 480:IF A=78CLS
~=-
~ g
555417F"
Listing dt. Zeichensatz
220.: GCURSOR 4B: GPR INT W$ (Wl ),
GOTO "ENDE"
~I It
12~:WAIT 0:FOR 1=1 PRINT CHR$ g.7F W$(W2)
0B88 nn GroB- und Kleinschreibung automatisch
4913: IF A=74CLS :
o ::s
55TO 1STEP -1: j :GPRINT W$(Wl 380:GCURSOR 124:
BEEP
GOTO "A"
... a BEEP-Effekte
1, I, 10: ), W$(W2) GPRINT W$(Cl),
Vl'tJ
GCURSOR
500: GOTO "EN 1"
ElITJ~(S]E1 III
oc
I:
231a:GCURSOR 70: W$(C2)
o allgemeines zu BEEP
o~
GPRINT W$(0),W
510: "ENDE"FOR 1=15
>It
PRINT CHR$ g.7F 390:NEXT I III Sound-Effekte
$ ( 1 ), W$ (2), W$ (
STD 24STEP -1:
; ''C'' j CHR$ g.7F j 400: IF (Wl+W2»=(C
[!l~[£][2JOO
~ (')
3), W$(4), W$(5)
BEEP 1, I, sa
:t
Listing Sound-Maker zum Erstellen von
"P. " ; PC$ j CHR$ I+C2)LET P=P+l
~
520:GCURSOR
Melodien (viele Funktionen)
I:
CD
, "0e7F" g.7F :P$=STR$ p:
PRINT .' (c) Sve
....
:32:NC::XT I 241a:GCURSOR 124: BEEP 1,25,255
0­
Tips und Tricks
142:A$="Knobel-Bee
n Ni mS9arn":
lD
GPRINT W$(Cl), 410: IF (Cl+C2»(Wl
her"
NEXT I
::s Zeile ~ implizieren
W$(C2) +W2) LET PC=PC+
150:WAIT 15:FOR B=
53a:WAIT 10:FOR 1=
III
List-Schutz 1/11
250:GCURSOR 140: l:PC$=STR$ PC: ITO 10:GCURSOR
::s PaBwort-Prg.-Schutz
1TO 13:BEEP 1, PRINT CHR$ g.7F BEEP 1,50,255
8+20,10:
3a:PRINT "e":
/ ·-·--· C--- ­
'Z:I NEW programmgesteuert
:GCURSOR 146: 420:GCURSOR 30:
BEEP 1,25, 10
H
GC URSOR 50: CIl
RESERVE-Ebene als Prg.-Speicher
PRINT X$ PRINT Ps;:
PRINT LEFT$ CA
540:WAIT 10:
4i~l-!J~ ~;3~ {~ (') ON ERROR GOTO 111
260:GCURSOR 152: GCURSOR 100:
$, 8 ):NEXT B
GCURSOR 30:
PRINT CHR$ g.7F PRINT PC$
'tl·r.ijD, .ot! r\)j ~" lt ) J == tz:I
PRINT ., ": BEEP
160:WAIT 10: FOR 1=
~ ,,5 1 ~ Ic./i.'~ ~
r< !!!i!!:!!
270: "COMP"RANDOM
1TO 2a:BEEP 1,
1,15,10
ROM Info
RND 255, 10:BW=
550:NEXT I
~
0­
INT CRND (0)*6 STATUS 1
560:END
Drucker
==
):CURSOR 23: 1682
Breitdruck,Telefonnotiz••••••••••••••
GPR.INT W$(BW):
NEXT I (c) S.N. 85