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.
::r>.<br />
Cl<br />
:::x::<br />
--i<br />
c<br />
Z<br />
G)<br />
,-... <br />
Vl rn 3<br />
-0 X 3:<br />
--i <<br />
........ rn rn<br />
::u ;0<br />
Cl Z (/')<br />
rn rn<br />
I :;:0 0<br />
V1 :z<br />
~<br />
en t::::I ;0 rn<br />
-0 c ;0<br />
"'--" Cl r<br />
r;: l><br />
rn c<br />
;0 tt1<br />
-I<br />
t:l<br />
rn<br />
:t><br />
I-'<br />
Nachtrag zum Programm 'Scrollen einez Textes' aus Heft 9'85 S. 16<br />
In der Soubroutine hat sich bei mir in Zeile 30 leider ein Fehler<br />
eingeschlichen.<br />
Es muss naemlich dort heissen: PRINT LEFT$ (A$(0),26)<br />
Weiterhin moechte ich noch eine Ergaenzung bekannt geben, die es<br />
erlaubt, den Text Punktweise nach links zu verschieben.<br />
Aendern Sie dazu Zeile 40 in der Soubroutine folgendermassen ab:<br />
40:FOR T=1TO LEN A$(0)-25:FOR Y=6TO 0STEP -1:GCURSOR Y:PRINT<br />
MID$ (A$(0);T,26):NEXT Y<br />
Das Scrollen erfolgt jetzt Punktweise, jedoch etwas langsamer.<br />
Anmerkung zum Programm Quickkey aus Heft 9'85 Seite 15<br />
Das Programm Quickkey ist meiner Meinung nach eine grosse Hilfe<br />
fuer den Anwender, jedoch stoert der Ton auf die Dauer ein wenig.<br />
Abhilfe schafft folgende Aenderung des Hex-Listings:<br />
7C3D:20 BA 7C 41<br />
Bei Bedarf kann man ja in dann die entsprechenden Werte in die<br />
Adressen POKEn, so dass ein Ton erzeugt wird oder nicht.<br />
I-'<br />
CD<br />
Listing: Zahlenraten<br />
rJl<br />
Bei dem Spiel Zahlenraten werden nacheinander eine bestimmte Anzahl<br />
"'"h von Zahlen, Anzahl und Level werden vorher festgelegt, angezeigt.<br />
C: 1st der Vorgang abgeschlossen, so muss man die Zahlen in ihrer<br />
"1 richtigen Reihenfolge ueber die Tastatur eingeben, webei bei einer<br />
Runde, also ven Level zu Level, 3 Fehler erlaubt sind.<br />
UJ.<br />
::r<br />
Beendet wird das Spiel bei erreichen der heechsten Level-Stufe oder<br />
Po) bei mehr als 3 Fehlern. Viel Glueck<br />
"1<br />
'0 10: "A"CLEAR : WAIT 0: CLS : W= rH<br />
11:L=-1:INPUT "Laenge 3-20 ";L<br />
(1<br />
o<br />
12:IF L200R L< >INT L GOTO 11<br />
:3 14:LE=I:INPUT "Level 2-9 ";LE<br />
'0 15:IF LELGOTO "NL"<br />
CD 18:X=RND LE:A$(0)=A$(0)+STR$ X:FOR Y=1TO T:WAIT W:CURSOR Y-1<br />
"1<br />
19:PRINT MID$ (A$(0),Y,1):WAIT 0:CURSOR Y-1:PRINT " ":NEXT Y<br />
~ 20: "NM"FOR Y=lTO T:CURSOR 22:PRINT "?"<br />
CD 21:A$=INKEY$ :IF A$("0"OR A$>"9"THEN 21<br />
"'"h 22:AA$=INKEY$ :IF AA$""GOTO 22<br />
("'i'"<br />
23:CURSOR 22:PRINT A$:IF A$MID$ (A$(0),Y,1)GOTO "ER"<br />
..... 24:BEEP 1,10,80:BEEP 1,100,20:SC=SC+l:NEXT Y:GOTO "NE"<br />
..... 25:"ER"BEEP 1,100,500:F=F+l:CLS :PAUSE F;" Fehler !! !":CLS :IF F)3<br />
GOTO "OF"<br />
26: GOTO"NM"<br />
UJ. 27:"NL"CLS :PAUSE "Naechster Level !":CLS :IF W
Change language