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

Weitere Magazine

Empfehlungen

Info

--' --- .. : :. . ~. : 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=2<strong>52</strong> 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' =,,-.
PC-1401 ............................................................... +++++ PC-1401 +++++ PC-1401 +++++ PC-1401 +++++ PC-1401 *** S ENS 0 *** Nach DEF S wird zuerst eine Zu 1~~ : " S" :P..AN DOM :CLEAR: WA I T ~ 1.01 :DIM Z(14) , yt~14) * 1 : USING "~UUttUUUUt" fallszahl (1-9) angezeigt. Geben 1~2:PAUSE "DAS SENSO-SPIEL:II Sie diese Zahl ein (INKEY$). 1~3:FOR I=~ TO 14:Z(I)=RND 9 1~4:FOR J=~ Haben Sie richtig gedrlickt, wird TO I:PAUSE" ";Z(J):NE:M J 1.05:FOR K=.0 TO I:PRINT K+1;".ZAHL ?":CALL 1442 wieder die erste und eine nachs 1~6:Y~(K)=INKEY.3:0N Y$(K)=1I11 GOTO 1.06 te Zufallszahl angezeigt. Geben 1.07:IF VAL Y$(K)Z(K) THEN BEEP1:USING:WAIT 15.0: PRINT "FEHLER! (" Z(K);")":END Sie beide Zahlen der Reihe nacb '1.08 :NEXT K:NEXT I :WAIT BEEP 1:CALL 1444 :BEEP 1: ein. PRINT "* GEWONNEN! *" : END Es kommt jedesmal eine Zahl hin (266 BYTES) zu, bis 15 Zahlen erreicht sind. Haben Sie immer in richtiger Reihenfolge die wachsende Zahlenkombi nation eingegeben, haben Sie gewonnen.Wenn nicht, wird Ihnen die richtige Zahl angegeben. In beiden Fallen ist das Spiel beendet. +++FELIX SCHMIDT-KOEHL++IM KONIGSFELD 6++6604 SAARBRUCKEN GODINGEN +++ *** TELEFON - UHR MIT GRAPHIK *** • i • •• • i Mein zweites Programm wird mit 5:"A II : REM TELEFONUHR * FELIX SCHMI.uT - KOEHL DEF A gestartet Drlickt man l,0:WAIT ~:PRINT "":CLEAR:POKE 21~,0.0,2,1,229,164,55 • ':USING "tUUt" sobald das Gesprach begonnen 2,0:PRINT".0d .0.0":POKE 24665 9 99.123,121 9 79,73,73, hat)'eine beliebige Taste 79,121,123,99:CALL 21.0.0.0:FOR I=l TO 2.0:NEXT I (INKEY,3), so lauft die Zei t ~~:~g~I~!~Yg~o~ ~~i;"-~~~gR 2~=59 TO .0 STEP -1: .(8 Minuten) ab. Die Sekunden PRINT IjJ:POKE 24662,99,127,.0,96,12.0,12.0,78,72, . d k" t d Q h 72,78,12.0,12.0,96 Sl.n so ver urz, aJill noc 35:CALL 21.0.0.0:FOR K=1 TO 51 :NEXT K:NEXT J:NEXT I: Zei t fur eine ca. 10 seklindi- BEEP 1 ' h d k t' h 4.0:PRIN'I' "AUFLEGEN !!!":FOR 1=1 TO 6 ge op t lSC e un, a us lSC e 45:POKE 24659,.0,~,.0,99,127,.0t96,12.0,12.0,78,72,72,78, Endwarnung blelbt. 12.0,12~,96:CALL 21.0.0~:FOR J=l TO 3.0:NEXT J ********** ** ****************** 5.0 :POKE 2466.0,28,127,62,28,8,99,123,121,79,73,73,79, : F I' S h 'dt K hI : 121,123,99:CALL 21.0.0.0:FOR J=1 TO 3.0':NEXT J:NEXT I e IX c ml. - oe 6.0:.aEEP 2:CALL 1444:BEEP 2:GOTO 1.0 * Im Konigsfeld 6 * I 7.0:END : 6604 Saarbrlicken - Glidingen!~--~(~5~~i~B~Y~TE~S~)__________________________~ ****************************** fq;1491 .ttttt.~q:1~9J.ttttt.?q:J491 ............................ +++++ PC-1401 +++++ PC-1401 Harry Toms Oft1ptedastr. 27c 3000 Hannover 1 PC-1251 E • Z ~ ~ • UJ 11 a: UJ 11.... Z 11 UJ "~j:IQ~ ~ N 11 UJ~ ~ Z ~ ~ ~ ~ UJ ~ ~ .... UJ ~ a: UJ a: :z: •••• N '-" UJ ~Z :z: 11 ~ E> >- ...... :z: > >- a: •• a: :z: E ~ UJ :z: ~ ~ ........... a: :z: ~ ~ Z U ~ Cl. UJ. U NUJ. Cl. U •• > ~ en U Cl. .« + U Z UJ a: UJ ••• CS)Q: .. UJ" .~(I) LIJ ..... .. U'J" W"" 11 n ~ .11 " LJJ .. L&J ~Cl. ~ 1111 ~j:IQ". a: 11 CSlen 11 •• a: 11. UJ ~ a: 11 If ~~ - a: If ~ UJ ~N E * UJUJZ* 0 •• Cl. ~~ ~~Z ~ ~ ~~UJ ~ ~ ~~ ~ ~ ~ ~CSI ~ ~ ~ UJ~ Z UJ ~ ~ Z E UJ~ ~ UJ~ ZCSI:Z: ~ ~ ~ ZCSlUJ~~ ~ .... a: ~ ~ ~. ~ ~o UJ~ . ~a: .... j:IQ~ :Z:ZE a: a: .... j:lQU :z:* ~ ~a: .... CSlU * ~ a: .... ~:z: .... %~1f + a: a: UJ UJ~ ~ z:z: a:~ .... UJ .... +~UJ :z: a:~~ UJ~ UJ z:z: a:~a: ~ UJ r a: UJUJUJCl.~ ~ UJ :z: ~ ~ ~Cl.~O a:z Cl.enUJ Qa:.*j:IQ Z Cl.en~ o~ ~ a:z Cl. ~ ...... ~~ Z Cl.~oa:a: _ ~ Z Z .... Z UJ •• ~~ E .... ~ Qen :Z:Cl.*EO .... CSI O~ :z:* o E .... CSI ~~ *.~O .... CSI ~:z:~~" ...... ~ 0 .... CSlUJ.~ .... Z. ~ .... N •• C)>> .. ->~~z .... a:a: UJzo. ~~Qa:N~ ~~oa: a: Na:~ ~ ~ a:*~E ~ ~ oUJ-~ o·a:·~ ~~~~~~~N~ClUJ _0 ~UJ~CSI enx~'~CSI ~:z:~ j:IQ '~~CSI ~~ ~~~~~ ~~ :z:ena:N *~ ~o L&J ::Z.. ('loo W z: .... z:.. .. .. .. .. .. .. .. .. .... .. E 0 &I") •• 0.. .. .......... N •• (J)"" .. ........ .. N.. ==* .. V" .. N.. => .. .... 0.." ~UJ ~UJ~ :z: N a:l!). ~ r ~ 0 U •• ~ en •• , ~ en 1=1 t
Seite 1 und 2: § of tLU or f llhlperu.rare Nr.11
Seite 3 und 4: Nie mehr Thea.ter durch Jetzt ist
Seite 5 und 6: ~----------'i * MZ 700 * univers.32
Seite 7 und 8: :I;> ~ ~ SHARP PC 1500(A) Betrifft
Seite 9 und 10: ==:HAF-:P PC 15121121·:: A:) :-; H
Seite 11 und 12: ~......,.......,......, ST 1. ,2. 3
Seite 13 und 14: Programme fuer Sharp Pc 15~~ A Die
Seite 15 und 16: ::r>. Cl :::x:: --i c Z G) ,-... V
Seite 17 und 18: 1Il+.rt"H III a.< 0.. DO rt"::l+'(/
Seite 19 und 20: Numerische Losung_gewohnlicher Difr
Seite 21 und 22: 20:"TRI"B(0)=B(I):C=8 22:IF B(1)+1(
Seite 23 und 24: " J a.!! I ch bin a.bgel"utscht." 5
Seite 25 und 26: lIlfi ?ilcl', · ~'cJ ~ r J.'l~~ -.
Seite 27 und 28: F[ 1 ............. (........ :1699)
Seite 29 und 30: Friedrich Koellen Geschw.Scholl-Str
Seite 31: 'S~ .,;:\~ ~.~ ~ ~ ~ ~~ \.1.+- ~ ~p
Seite 35 und 36: Betr.: Listing HA WAR I" -- Ein LCD
Seite 37 und 38: ~ ~ . ~ ~. ~ ~ ~ ~ Q w~ t1 Q Q
Seite 39 und 40: w.,1D'I 11 EJgJ!it 292 ~ 189 III,ID
Seite 41 und 42: Hi~r ~ind ~i~=Di~ pr~~~~~i~n~11~n P
Seite 43 und 44: Pascal-System AlIgemeines: Das K &
Seite 45 und 46: DFD 700 Doppel Floppy Station 560 K
Seite 47 und 48: € ........~........ ~~~~ ~ ......
Seite 49 und 50: MATHEMATIK UTILITY Ml Liste.Zahlen,
Seite 51 und 52: ABO N N E MEN T Wenn cs Ihnen SpaB

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

Erfolgreiche ePaper selbst erstellen

Template löschen?

Als Template speichern?