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

111 ···..·_··­
r--1
92:GLCURSOR (98,­
Matthias Raik
----
196):GOSU8 "P" Lennershofstr. 31
en
- (11313, -lee)
94:GLCURSOR (44,­
ro 44:GLCURSOR (29,­ 4630 Bochum 1
196): GOSU8 "P" erweitert nach Heft 6/6
-
f-l. lel):GOSU8 "P"
rt 46:LINE (313,-11313) 96:LINE (45,-195)
BY M.STEeK Kol lostr.31
ro -(45,-2813)
..
- (313, -18(3)
48:LINE (213,-1813) 98:LINE (413,-2813) HOLE 46 1:
w : : ..
-(se, -282), 13, 13 4800 Bielefeld 14 von
-(413, -179), 13, 13
o ,8
I\.!;
,8 F.Koel len 5024 Pulheim 2
I 513:LINE (313,-]813) lee:LINE (40,-281)
GOLF
-(45,-]95)-(613 -(513,-281) 10: "A"'ClEAR :CLS
:l> 10:REM GOLF
1~2:LINE (40,-285) : WAlT 0
l-l
~ , -195) 20:REM by M.Raik "--'
..
~ -(5~,-287),e,e
52:LINE (613,-192) FISCHEL Gmbh
15:PAUSE "GRAF1K
ro -(813, -198), 0, ,8 QUADRAT,I
0
Kaiser-Friedrich-Str.54a
30:"GOLF"CLEAR :0
f/J le4:LlNE (40,-286) 20:GRAPH :
rE
,8 =50: S$="1004e3F
54:LINE (813,-195) -(5l1,-28o) GlCURSOR (10,­
"'1)
2B48ee":F$="JF
-SLET 2=5
(1 ROTATE 1 (-213, -198), 13, 13 ~0:N£XT X 713: GCURSOR 51: ~
-34e):LPRINT 11 le: "A"CLEAR : CLS 16:DIM B$(2)*26
o 1e:GLCURSOR (-2,13 ,8
60:TEXT ZL.F 151 GPRINT S$:
3 Ua"jCHR$ 126 : GRAPH : WAIT 0 18: FOR K= ITO 2
) : GOSU8 11 P 1 11 : 62:LINE (-213,-195 2e:GLCURSOR (X,Y) COlOR 0:END GCURSOR 1136:
'0
GL CURSOR (- le, )-(-613,-195) 114:LINE (-35,-3513 :X=18e:y=e
C
)-(-913,-3513),6 12: INPUT "Wievie I :SORGN GPRINT F$ ~
STATUS 1
2):GQSU8 "F2" 64:LINE (-613,-192 ge:A$=]NKEY$ :IF
rt
12:LINE (-15,2)-( )-(-813,-198),13 ,13 Ze i I en : 11; 2 22: INPUT B$(K): 160
A$(>"="GOTO 913 cq]
CD 116:GlCURSOR (-913, 14:IF 2>5LET 2=5
PRINT B$(K)
'"1 -45,2) ,13, B 110:CURSOR e:PRINT
-35e):GOSU8 "F 16:0IM 8$(Z)*26 24:X=-413 10:"A"CL.EAR sCL.S
14:GLCURSOR (-55, 66:LINE (-813,-195 26:FOR S=0TO 155: : WAIT Os INPUT "SHOT! ": A=e
::r:: 5):LPRINT IIUe 'l )-(-11313,-195) 1" 18: FOR K= lTO 2:
120:A=A+l:A$= S
ro 12e:GLCURSOR (-75, INPUT "Colo!"=( P=POINT S:lF P "ART?";B.
jCHR$ 126 68:GLCURSOR (-41, INKEY$ : IF A$=
"'1) -11e):LPRINT " 13-3) ";F:IFF> =0THEN "E" 15sPAUSE "GRAFJK
16:LINE (-65,2)-( -196): GOSU8 "P "="GOTO 1213
rt Re 1" 3L.ET F=3 28:A=64:FOR l=eTO QUADRAT"' ~
-913,2) 13e:B=B+1:C=C+l
122:GLCURSOR (713,- 2e:GLCURSOR 0GOSUB 21
-16)-(5, -18),13 72:LINE (-43,-175 cl" 22: INPUT B$(K):
o
124:GLCURSOR (-le, PRINT B$(K) 2, -2), , , B 25:C=0 ~
,13,8 )-(-37,-155),13 30:A=A/2:NEXT J 30:FOR 1=ITO 91J­ 145:GOTO 2713
2e:LINE (-5,-17)­ ,13,8
-21e):LPRINT " 24:X=-4e
Re 2" 25:FOR S=eTO 155: 32: "E"NEXT S: NEXT 2*I:K-3*1 150:REM
(5,-17) 74:LINE (-413,-155 35sC=C+!: IF CE4 160:FOR I=KTO K-A ~
126:GLCURSOR (-713, P=POINT S:IF P K
22:LINE (-5,-21)­ )-(-413,-513)-(13
lET c=e STEP -1
-21e):LPRINT " =eTHEN "E" 34:TExT :LF 8:END
(5, -23),13,13,8 , -5(3) 4e:CSIZE I: 170: GCURSOR I: r;i]
Re, 2"
24:LINE (-5,-22)­ 76:GLCURSOR (-1,- 28:A=64:FOR 1=eTO
GLCURSOR (10-J GPRINT 54
(5,-22) 5] ) : GOSU8 " P " 128:GLCURSOR (713,- 6:IF PAND A
,-Hi-K): LPRINT 180:NEXT 1
2-10):LPRINT "R GLCURSOR