CLICK TO SEE THE GDK SITE MENU

Announcing the show that gets the streets...

Screen Of "Eater man" program

__________________________________________________________

10 PRINT "Your aboard the Lunar Lander about to leave the spacecraft."

20 print "To just coast without burning fuel enter .01"

70 goto 1010

80 goto 2010

90 goto 3005

100 H = H - V

110 V = ((V + G) * 10 - U * 2) / 10

120 F = F - U

130 IF H > 0 THEN goto 80

135 H = 0

140 goto 2010

150 print "Velocity less than 5 your a-ok! else you crashed."

170 goto 5000

180 GOTO 10

1010 V = 70

1020 F = 500

1030 H = 1000

1040 G = 2

1050 goto 80

2010 PRINT " Meter readings"

2015 PRINT " --------------"

2020 PRINT "Fuel (gal):"

2030 PRINT F

2040 goto 2100

2045 print " "

2050 PRINT V

2060 PRINT "Height (m):"

2070 PRINT H

2075 IF H=0 then goto 150

2080 goto 90

2100 PRINT "Landing velocity (m/sec):"

2110 goto 2045

3005 IF F = 0 THEN goto 3070

3010 PRINT "How much fuel will you use?"

3020 INPUT U

3025 IF U < 0 THEN goto 3090

3030 IF U < F THEN goto 3060

3040 PRINT "Sorry, you have not got that much fuel!"

3050 GOTO 3010

3060 goto 100

3070 U = 0

3080 goto 150

3090 PRINT "No cheating please! Fuel must be >= 0."

3100 GOTO 3010

5000 PRINT "Do you want to play again? (0 = no, 1 = yes)"

5010 INPUT Y

5020 IF Y = 0 THEN goto 5040

5030 goto 10

5040 end

_______________________________________________________

Another Lunar Landing Program

10 print "lunar landing:to just coast press enter."

11 let x=1000

12 let v=70

13 let f=500

15 let g=2.3

16 let e=0

45 print "go!!";

50 print "alt.=":print x

60 print "vel.=":print v

70 print "fuel left=":print f

80 if f=0 then goto 110

90 print"burn how much fuel now":input e

110 if e>f then e=f

112 f=f-e

120 if f=0 then goto 180

117 a=(g*e)-e*f/200-2*3.1416

120 if f=0 then v=v+(-1)

121 if a=0 then goto 130

122 v=v+a

123 x=x+v-(a/2)

124 if x>1 then goto 45

130 z=(-100)+v

135 v=(-100)-v

180 print "vel.=":print v

192 print ".5=OK 1.2=bumpy 2.1=crunch"

195 print "4.7=crash 7.7=crater"

197 end

_______________________________________________________________

Moon over head

10 A=0:B=0:C=0:D=0:E=0:F=0:G=0:I=0:J=0:L=0

15 PRINT "HighMoon"

20 input "M. time in";J

25 input "Tot. days";B

35 B=B+J

37 IF J>=16 THEN B=B+3

38 IF J<=15 THEN B=B+2

39 IF J<=8 THEN B=B-1

40 A=B/29.52055

50 C=(A-INT(A))

60 D=C/.0367647058

70 E=(D-INT(D))-1

80 L=(D-E)-1

90 E=(L*52.9411)/60

100 C=(E-INT(E))-1

110 D=E-C

120 D=ABS(D)

121 D=INT(D)

122 IF D>=12 THEN print "PM ";

123 IF D<12 THEN print "AM ";

130 F=ABS(C)

140 G=F/.0189736039

160 G=INT(G)

180 IF D>12 THEN D=D-12

190 IF D>12 THEN goto 180

200 print D;" ";G

210 goto 10

__________________________________________________________

__________________________________________________________