rem * control D char
d${Cmd}= chr$(4)
pi= 3.14159:ci{circumference in radians}= (2 * pi)

rem * width max, height max for screen (279, 191, 159)
ml%{widthMax}= 279:mw%{widthMax}= ml%:mh%{HeightMax}= 191
if peek(33){mode 80 cols} = 80 then mh%{HeightMax}= 159 

rem * true random number
def fn alea{true random number}(x) = int(rnd(peek(78)+peek(79)*256) * x + 1)

rem * beep and buzz by default
bz%{NbreBuzz}= 3:be%{NbreBeep}= 1


section intro
text:home
gosub @splash
gosub @help
closesection

section global vars
def fn hdigi(x)= int( ( ml%{widthmax} - (x * 7.75) ) / 2 )
def fn ten(x)= int(x / 10) * 10
de%{delay}= 10
sn%{sound}= 0
ry%{radius}= 50:di%{digiEdge}= 10
# size of digit numbers
dg%{digitspace}= int( (di%{digiEdge} * 2) + (di%{digiEdge} / 2) + (di%{digiEdge} / 4) )
xo%{OrigX}= 140:yo%{OrigY}= 80
hh%{hours}= 0:mm%{mins}= 0:ss%{secs}= 0
closesection

section main program
begin
{*** beginning of the main loop ***}
bp%{mainloop}= bp%{mainloop} + 1
# reset to defaut the values
xo%{OrigX}= 140:yo%{OrigY}= 80
hh%{hours}= 0:mm%{mins}= 0:ss%{secs}= 0
hcolor= 3 # white

# every day redraw all
# switch to graphic mode
gosub @hgrscreen
hcolor= 3 # white
# draw the clock
gosub @clockdecoration
gosub @clockcircle

{one day}
# - - - - - - - - - - - - - - - hours
for b1=0 to 23
	gosub @showhour
# - - - - - - - - - - - - - - - minutes
	for b2=0 to 59
		gosub @showminute
		# when minutes erase hour
		if b1 * 5 = mm% - 1 or (b1 - 12) * 5 = mm% - 1 then gosub @showhour
# - - - - - - - - - - - - - - - - seconds	
		for b3=0 to 59
			gosub @showseconde
			if sn%{sound} = 1 then gosub @beep
			
			ki%{keyboardInput}= peek(49152)
			if ki%{keyboardInput}= 209{"Q"} then goto @endprogram
			if ki%{keyboardInput}= 212{"T"} then gosub @setclock
			if ki%{keyboardInput}= 214{"V"} then gosub @setspeed
			if ki%{keyboardInput}= 200{"H"} then gosub @helpbis
			# toggle sound
			if sn%{sound}= 1 and ki%{keyboardInput}= 211{s} then sn%{sound}= 0:goto @soundend
			if ki%{keyboardInput}= 211{"S"} then sn%{sound}= 1
			soundend
			gosub @keyboardcapture
			# rem * delay
			for b4= 0 to de%{delay}
next : next : next : next

# can run one month
if (bp%{mainloop} < 32) then goto @begin

endprogram
	text:home:poke 49168,0
	gosub @credits
	end
closesection

section subscripts
{*** subscripts ***}

section diginumbers
# digit schema
# a---b
# |   |
# c---d
# |   |
# e---f
# coordinates postions
# x1%, y1% are a (origin) coordinates
# di%{digiEdge} equal to width of a -> b
a 
x2%= x1%:y2%= y1%:return
b 
x2%= x1% + di%{digiEdge}:y2%= y1%:return
c 
x2%= x1%:y2%= y1% + di%{digiEdge}:return
d 
x2%= x1% + di%{digiEdge}:y2%= y1% + di%{digiEdge}:return
e 
x2%= x1%:y2%= y1% + (2 * di%{digiEdge}):return
f 
x2%= x1% + di%{digiEdge}:y2%= y1% + (2 * di%{digiEdge}):return

# digit numbers
zero
	x1%= xo%{OrigX}:y1%= yo%{OrigY}
	gosub @a:hplot x2%,y2%
	gosub @b:hplot to x2%,y2%
	gosub @f:hplot to x2%,y2%
	gosub @e:hplot to x2%,y2%
	gosub @a:hplot to x2%,y2%
return

one
	x1%= xo%{OrigX}:y1%= yo%{OrigY}
	gosub @b:hplot x2%,y2%
	gosub @f:hplot to x2%,y2%
return

two
	x1%= xo%{OrigX}:y1%= yo%{OrigY}
	gosub @a:hplot x2%,y2%
	gosub @b:hplot to x2%,y2%
	gosub @d:hplot to x2%,y2%
	gosub @c:hplot to x2%,y2%
	gosub @e:hplot to x2%,y2%
	gosub @f:hplot to x2%,y2%
return

three
	x1%= xo%{OrigX}:y1%= yo%{OrigY}
	gosub @a:hplot x2%,y2%
	gosub @b:hplot to x2%,y2%
	gosub @d:hplot to x2%,y2%
	gosub @c:hplot to x2%,y2%
	gosub @d:hplot to x2%,y2%
	gosub @f:hplot to x2%,y2%
	gosub @e:hplot to x2%,y2%
return

four
	x1%= xo%{OrigX}:y1%= yo%{OrigY}
	gosub @a:hplot x2%,y2%
	gosub @c:hplot to x2%,y2%
	gosub @d:hplot to x2%,y2%
	gosub @f:hplot to x2%,y2%
	gosub @b:hplot to x2%,y2%
return

five
	x1%= xo%{OrigX}:y1%= yo%{OrigY}
	gosub @b:hplot x2%,y2%
	gosub @a:hplot to x2%,y2%
	gosub @c:hplot to x2%,y2%
	gosub @d:hplot to x2%,y2%
	gosub @f:hplot to x2%,y2%
	gosub @e:hplot to x2%,y2%
return

six
	x1%= xo%{OrigX}:y1%= yo%{OrigY}
	gosub @a:hplot x2%,y2%
	gosub @e:hplot to x2%,y2%
	gosub @f:hplot to x2%,y2%
	gosub @d:hplot to x2%,y2%
	gosub @c:hplot to x2%,y2%
return

seven
	x1%= xo%{OrigX}:y1%= yo%{OrigY}
	gosub @a:hplot x2%,y2%
	gosub @b:hplot to x2%,y2%
	gosub @f:hplot to x2%,y2%
return

eight
	x1%= xo%{OrigX}:y1%= yo%{OrigY}
	gosub @a:hplot x2%,y2%
	gosub @e:hplot to x2%,y2%
	gosub @f:hplot to x2%,y2%
	gosub @d:hplot to x2%,y2%
	gosub @c:hplot to x2%,y2%
	gosub @a:hplot to x2%,y2%
	gosub @b:hplot to x2%,y2%
	gosub @d:hplot to x2%,y2%
return

nine
	x1%= xo%{OrigX}:y1%= yo%{OrigY}
	gosub @f:hplot x2%,y2%
	gosub @b:hplot to x2%,y2%
	gosub @a:hplot to x2%,y2%
	gosub @c:hplot to x2%,y2%
	gosub @d:hplot to x2%,y2%
return
closesection

section draw digital clock
digisecs
	if ss%{secs} < 10 then s1%= 1:s2%= ss%{secs} + 1
	if ss%{secs} >= 10 then s1%= int(ss%{secs} / 10) + 1:s2%= ss%{secs} - fn ten(ss%{secs}) + 1
	on s1% gosub @zero, @one, @two, @three, @four, @five, @six, @seven, @eight, @nine
	xo%{OrigX}= xo%{OrigX} + (di%{digiEdge} + int(di%{digiEdge} / 4))
	on s2% gosub @zero, @one, @two, @three, @four, @five, @six, @seven, @eight, @nine
return

digimins
	if mm%{mins} < 10 then m1%= 1:m2%= mm%{mins} + 1
	if mm%{mins} >= 10 then m1%= int(mm%{mins} / 10) + 1:m2%= mm%{mins} - fn ten(mm%{mins}) + 1
	on m1% gosub @zero, @one, @two, @three, @four, @five, @six, @seven, @eight, @nine
	xo%{OrigX}= xo%{OrigX} + (di%{digiEdge} + int(di%{digiEdge} / 4))
	on m2% gosub @zero, @one, @two, @three, @four, @five, @six, @seven, @eight, @nine
return

digihours
	if hh%{hours} < 10 then h1%= 1:h2%= hh%{hours} + 1
	if hh%{hours} >= 10 then h1%= int(hh%{hours} / 10) + 1:h2%= hh%{hours} - fn ten(hh%{hours}) + 1
	on h1% gosub @zero, @one, @two, @three, @four, @five, @six, @seven, @eight, @nine
	xo%{OrigX}= xo%{OrigX} + (di%{digiEdge} + int(di%{digiEdge} / 4))
	on h2% gosub @zero, @one, @two, @three, @four, @five, @six, @seven, @eight, @nine
return
closesection

section draw arrows 
secondsarrows
	ag= (ss%{secs} + 45) * (ci / 60) 
	x2= xo%{OrigX} + ( ry%{radius} * cos(ag) )
	y2= yo%{OrigY} + ( ry%{radius} * sin(ag) )
	x1= xo%{OrigX} + ( (ry%{radius}-6) * cos(ag) )
	y1= yo%{OrigY} + ( (ry%{radius}-6) * sin(ag) )
	hplot x1{OrigX},y1{OrigY} to x2,y2
return 

minutesarrows
	ag= (mm%{mins} + 45) * (ci / 60)
	x2= xo%{OrigX} + ( (ry%{radius}-10) * cos(ag) )
	y2= yo%{OrigY} + ( (ry%{radius}-10) * sin(ag) )
	x1= xo%{OrigX} + ( (ry%{radius}-40) * cos(ag) )
	y1= yo%{OrigY} + ( (ry%{radius}-40) * sin(ag) )
	hplot x1{OrigX},y1{OrigY} to x2,y2
return

hoursarrows
	ag= (hh%{hours} + 9) * (ci / 12) 
	x2= xo%{OrigX} + ( (ry%{radius} - 18) * cos(ag) ) 
	y2= yo%{OrigY} + ( (ry%{radius} - 18) * sin(ag) )
	x1= xo%{OrigX} + ( (ry%{radius}-40) * cos(ag) )
	y1= yo%{OrigY} + ( (ry%{radius}-40) * sin(ag) )
	hplot x1{OrigX},y1{OrigY} to x2,y2
return
closesection

section show the clock time
showseconde
	# erase old second arrow
	hcolor= 0
	xo%{OrigX}= 140:yo%{OrigY}= 80
	gosub @secondsarrows
	xo%{OrigX}= fn hdigi(di%{digiEdge}) :yo%{OrigY}= 160
	xo% = xo% + ( dg%{digitspace} * 2 )
	gosub @digisecs
	# draw new second arrow
	hcolor= 3
	ss%{secs}= b3 # new second arrow = b3
	xo%{OrigX}= 140:yo%{OrigY}= 80
	gosub @secondsarrows
	xo%{OrigX}= fn hdigi(di%{digiEdge}) :yo%{OrigY}= 160
	xo% = xo% + ( dg%{digitspace} * 2 )
	gosub @digisecs
return

showminute
	# erase old minute
	hcolor= 0
	xo%{OrigX}= 140:yo%{OrigY}= 80
	gosub @minutesarrows
	mm%{mins} = 88 # digit erase
	xo%{OrigX}= fn hdigi(di%{digiEdge}) :yo%{OrigY}= 160
	xo% = xo% + dg%{digitspace}
	gosub @digimins
	# new time
	hcolor= 3
	mm%{mins}= b2
	xo%{OrigX}= 140:yo%{OrigY}= 80
	gosub @minutesarrows
	xo%{OrigX}= fn hdigi(di%{digiEdge}) :yo%{OrigY}= 160
	xo% = xo% + dg%{digitspace}
	gosub @digimins
return

showhour
	# erase old hour
	hcolor= 0
	xo%{OrigX}= 140:yo%{OrigY}= 80
	gosub @hoursarrows
	hh%{hours} = 88 # digit erase
	xo%{OrigX}= fn hdigi(di%{digiEdge}) :yo%{OrigY}= 160
	gosub @digihours
	# new time
	hcolor= 3
	hh%{hours}= b1
	xo%{OrigX}= 140:yo%{OrigY}= 80
	gosub @hoursarrows
	xo%{OrigX}= fn hdigi(di%{digiEdge}) :yo%{OrigY}= 160
	gosub @digihours
return
closesection

section clock draw
clockdecoration
	s5 = ci{radiantcircle} / 14
	for b7= 0 to ci{radiantcircle} + 0.1 step s5
		v1= (ry%{radius} + 20) * cos(b7)
		v2= (ry%{radius} + 20) * sin(b7)
		x2%= int( xo%{OrigX} + v1 )
		y2%= int( yo%{OrigY} + v2 )
		if b7 = 0 then hplot x2%,y2%
		if b7 > 0 then hplot to x2%,y2%
	next
	s5 = ci{radiantcircle} / 14
	for b7= 0 to ci{radiantcircle} + 0.1 step s5
		v1= (ry%{radius} - 46) * cos(b7)
		v2= (ry%{radius} - 46) * sin(b7)
		x2%= int( xo%{OrigX} + v1 )
		y2%= int( yo%{OrigY} + v2 )
		if b7 = 0 then hplot x2%,y2%
		if b7 > 0 then hplot to x2%,y2%
	next
return

clockcircle
	s4 = ci{radiantcircle} / 12
	for b6= (s4 * 9) to ( ci{radiantcircle} + 0.1 ) + (s4 * 9) step s4
		v1= (ry%{radius} + 5) * cos(b6)
		v2= (ry%{radius} + 5) * sin(b6)
		x2%= int( xo%{OrigX} + v1 )
		y2%= int( yo%{OrigY} + v2 )
		hplot x2%,y2%
	next
return
closesection

section clock settings
setclock
	poke 49168,0
	text:home
	print
	input "hour 1/23 ? ";b1
	input "minute 1/59 ? ";b2
	input "second 1/59 ? ";b3
	if b1 > 23 then b1= 23
	if b1 < 0 then b1= 0
	if b2 > 59 then b2= 59
	if b2 < 0 then b2= 0
	if b3 > 59 then b3= 59
	if b3 < 0 then b3= 0
	gosub @hgrscreen
	xo%{OrigX}= 140:yo%{OrigY}= 80
	gosub @clockdecoration
	gosub @clockcircle
	gosub @showhour
	gosub @showminute
	gosub @showseconde
return

setspeed
	poke 49168,0
	text:home
	print "actual speed: ";de%{delay}
	input "speed 1/1000 ?";de%{delay}
	if de%{delay} <= 0 then de%{delay}= 1
	gosub @hgrscreen
	xo%{OrigX}= 140:yo%{OrigY}= 80
	gosub @clockdecoration
	gosub @clockcircle
	gosub @showhour
	gosub @showminute
	gosub @showseconde
return

help
	poke 49168,0
	text:home
	vtab(peek(37) + 2):
	s$= "     *** clock  ***    ":gosub @centertext
	print s$
	vtab(peek(37) + 2):
	s$= "     *** by loz ***    ":gosub @centertext
	print s$
	vtab(peek(37) + 2):
	s$= "q-> quit               ":gosub @centertext
	print s$
	vtab(peek(37) + 2):
	s$= "h-> this help          ":gosub @centertext
	print s$
	vtab(peek(37) + 2):
	s$= "t-> set time           ":gosub @centertext
	print s$
	vtab(peek(37) + 2):
	s$= "v-> time speed         ":gosub @centertext
	print s$
	vtab(peek(37) + 2):
	s$= "s-> toggle sound on/off":gosub @centertext
	print s$
	vtab(peek(37) + 2):
	s$= "type enter to continue ":gosub @centertext
	print s$
	get s$
return

helpbis
	gosub @help
	gosub @hgrscreen
	xo%{OrigX}= 140:yo%{OrigY}= 80
	gosub @clockcircle
	gosub @clockdecoration
	gosub @showhour
	gosub @showminute
	gosub @showseconde
return
closesection

closesection

hgrscreen
	if peek(33) < 41 and mh%{MaxHauteur} > 159 then hg$= "hgr2"
	if peek(33) < 41 and mh%{MaxHauteur} <= 159 then hg$= "hgr"
	rem * mod 80 colonnes
	if peek(33) > 40 then hg$= "hgr"
	if hg$ = "hgr" then hgr
	if hg$ = "hgr2" then hgr2
return

splash
	text:home
	vtab(3):print
	vtab(peek(37) + 2)
	s${sentence}= "applesoft basic code":gosub @centertext
	print s${sentence}
return

credits
	text:home
	gosub @beep
	vtab(3):print
	vtab(peek(37) + 2)
	s${sentence}= "by andres aka loz":gosub @centertext
	print s${sentence}
return

keyboardcapture
	rem * capture last keyboard entered
	ki%{keyboardInput}= peek(49152)
	rem * reset
	poke 49168,0
	rem * actions
	if ki% = 155{Escape} then goto @endprogram
	if chr$(ki%) = "t" then text
return

centertext
	t9%{leftSpace}= int( (peek(33) - len(s${sentence}) ) / 2 ) 
	rem * is result is null
	if (t9% < 1) then t9%= 0
	htab(t9%{leftSpace}+1)
return

beep
if (be%{NbreBeep} < 2) then be%{NbreBeep}= 1
	for b9= 1 to be%{NbreBeep}
		print chr$(7);
	next
return

NEW
10 REM - CLOCK7.BAS - 14/01/2012 - 08h34 - BY - ANDRES - AKA - LOZ - COPYLEFT
20 D$= CHR$(4)
30 PI= 3.14159:CI= (2 * PI)
40 ML%= 279:MW%= ML%:MH%= 191
50 IF PEEK(33) = 80 THEN MH%= 159 
60 DEF FN ALEA(X) = INT(RND(PEEK(78)+PEEK(79)*256) * X + 1)
70 BZ%= 3:BE%= 1
80 TEXT:HOME
90 GOSUB 3480
100 GOSUB 3020
110 DEF FN HDIGI(X)= INT( ( ML% - (X * 7.75) ) / 2 )
120 DEF FN TEN(X)= INT(X / 10) * 10
130 DE%= 10
140 SN%= 0
150 RY%= 50:DI%= 10
160 DG%= INT( (DI% * 2) + (DI% / 2) + (DI% / 4) )
170 XO%= 140:YO%= 80
180 HH%= 0:MM%= 0:SS%= 0
190 REM->BEGIN
200 BP%= BP% + 1
210 XO%= 140:YO%= 80
220 HH%= 0:MM%= 0:SS%= 0
230 HCOLOR= 3
240 GOSUB 3410
250 HCOLOR= 3
260 GOSUB 2370
270 GOSUB 2570
280 FOR B1=0 TO 23
290 GOSUB 2230
300 FOR B2=0 TO 59
310 GOSUB 2070
320 IF B1 * 5 = MM% - 1 OR (B1 - 12) * 5 = MM% - 1 THEN GOSUB 2230
330 FOR B3=0 TO 59
340 GOSUB 1920
350 IF SN% = 1 THEN GOSUB 3740
360 KI%= PEEK(49152)
370 IF KI%= 209 THEN GOTO 490
380 IF KI%= 212 THEN GOSUB 2670
390 IF KI%= 214 THEN GOSUB 2880
400 IF KI%= 200 THEN GOSUB 3310
410 IF SN%= 1 AND KI%= 211 THEN SN%= 0:GOTO 440
420 IF KI%= 211 THEN SN%= 1
430 REM->SOUNDEND
440 GOSUB 3630
450 FOR B4= 0 TO DE%
460 NEXT : NEXT : NEXT : NEXT
470 IF (BP% < 32) THEN GOTO 200
480 REM->ENDPROGRAM
490 TEXT:HOME:POKE 49168,0
500 GOSUB 3550
510 END
520 REM->A 
530 X2%= X1%:Y2%= Y1%:RETURN
540 REM->B 
550 X2%= X1% + DI%:Y2%= Y1%:RETURN
560 REM->C 
570 X2%= X1%:Y2%= Y1% + DI%:RETURN
580 REM->D 
590 X2%= X1% + DI%:Y2%= Y1% + DI%:RETURN
600 REM->E 
610 X2%= X1%:Y2%= Y1% + (2 * DI%):RETURN
620 REM->F 
630 X2%= X1% + DI%:Y2%= Y1% + (2 * DI%):RETURN
640 REM->ZERO
650 X1%= XO%:Y1%= YO%
660 GOSUB 530:HPLOT X2%,Y2%
670 GOSUB 550:HPLOT TO X2%,Y2%
680 GOSUB 630:HPLOT TO X2%,Y2%
690 GOSUB 610:HPLOT TO X2%,Y2%
700 GOSUB 530:HPLOT TO X2%,Y2%
710 RETURN
720 REM->ONE
730 X1%= XO%:Y1%= YO%
740 GOSUB 550:HPLOT X2%,Y2%
750 GOSUB 630:HPLOT TO X2%,Y2%
760 RETURN
770 REM->TWO
780 X1%= XO%:Y1%= YO%
790 GOSUB 530:HPLOT X2%,Y2%
800 GOSUB 550:HPLOT TO X2%,Y2%
810 GOSUB 590:HPLOT TO X2%,Y2%
820 GOSUB 570:HPLOT TO X2%,Y2%
830 GOSUB 610:HPLOT TO X2%,Y2%
840 GOSUB 630:HPLOT TO X2%,Y2%
850 RETURN
860 REM->THREE
870 X1%= XO%:Y1%= YO%
880 GOSUB 530:HPLOT X2%,Y2%
890 GOSUB 550:HPLOT TO X2%,Y2%
900 GOSUB 590:HPLOT TO X2%,Y2%
910 GOSUB 570:HPLOT TO X2%,Y2%
920 GOSUB 590:HPLOT TO X2%,Y2%
930 GOSUB 630:HPLOT TO X2%,Y2%
940 GOSUB 610:HPLOT TO X2%,Y2%
950 RETURN
960 REM->FOUR
970 X1%= XO%:Y1%= YO%
980 GOSUB 530:HPLOT X2%,Y2%
990 GOSUB 570:HPLOT TO X2%,Y2%
1000 GOSUB 590:HPLOT TO X2%,Y2%
1010 GOSUB 630:HPLOT TO X2%,Y2%
1020 GOSUB 550:HPLOT TO X2%,Y2%
1030 RETURN
1040 REM->FIVE
1050 X1%= XO%:Y1%= YO%
1060 GOSUB 550:HPLOT X2%,Y2%
1070 GOSUB 530:HPLOT TO X2%,Y2%
1080 GOSUB 570:HPLOT TO X2%,Y2%
1090 GOSUB 590:HPLOT TO X2%,Y2%
1100 GOSUB 630:HPLOT TO X2%,Y2%
1110 GOSUB 610:HPLOT TO X2%,Y2%
1120 RETURN
1130 REM->SIX
1140 X1%= XO%:Y1%= YO%
1150 GOSUB 530:HPLOT X2%,Y2%
1160 GOSUB 610:HPLOT TO X2%,Y2%
1170 GOSUB 630:HPLOT TO X2%,Y2%
1180 GOSUB 590:HPLOT TO X2%,Y2%
1190 GOSUB 570:HPLOT TO X2%,Y2%
1200 RETURN
1210 REM->SEVEN
1220 X1%= XO%:Y1%= YO%
1230 GOSUB 530:HPLOT X2%,Y2%
1240 GOSUB 550:HPLOT TO X2%,Y2%
1250 GOSUB 630:HPLOT TO X2%,Y2%
1260 RETURN
1270 REM->EIGHT
1280 X1%= XO%:Y1%= YO%
1290 GOSUB 530:HPLOT X2%,Y2%
1300 GOSUB 610:HPLOT TO X2%,Y2%
1310 GOSUB 630:HPLOT TO X2%,Y2%
1320 GOSUB 590:HPLOT TO X2%,Y2%
1330 GOSUB 570:HPLOT TO X2%,Y2%
1340 GOSUB 530:HPLOT TO X2%,Y2%
1350 GOSUB 550:HPLOT TO X2%,Y2%
1360 GOSUB 590:HPLOT TO X2%,Y2%
1370 RETURN
1380 REM->NINE
1390 X1%= XO%:Y1%= YO%
1400 GOSUB 630:HPLOT X2%,Y2%
1410 GOSUB 550:HPLOT TO X2%,Y2%
1420 GOSUB 530:HPLOT TO X2%,Y2%
1430 GOSUB 570:HPLOT TO X2%,Y2%
1440 GOSUB 590:HPLOT TO X2%,Y2%
1450 RETURN
1460 REM->DIGISECS
1470 IF SS% < 10 THEN S1%= 1:S2%= SS% + 1
1480 IF SS% >= 10 THEN S1%= INT(SS% / 10) + 1:S2%= SS% - FN TEN(SS%) + 1
1490 ON S1% GOSUB 650, 730, 780, 870, 970, 1050, 1140, 1220, 1280, 1390
1500 XO%= XO% + (DI% + INT(DI% / 4))
1510 ON S2% GOSUB 650, 730, 780, 870, 970, 1050, 1140, 1220, 1280, 1390
1520 RETURN
1530 REM->DIGIMINS
1540 IF MM% < 10 THEN M1%= 1:M2%= MM% + 1
1550 IF MM% >= 10 THEN M1%= INT(MM% / 10) + 1:M2%= MM% - FN TEN(MM%) + 1
1560 ON M1% GOSUB 650, 730, 780, 870, 970, 1050, 1140, 1220, 1280, 1390
1570 XO%= XO% + (DI% + INT(DI% / 4))
1580 ON M2% GOSUB 650, 730, 780, 870, 970, 1050, 1140, 1220, 1280, 1390
1590 RETURN
1600 REM->DIGIHOURS
1610 IF HH% < 10 THEN H1%= 1:H2%= HH% + 1
1620 IF HH% >= 10 THEN H1%= INT(HH% / 10) + 1:H2%= HH% - FN TEN(HH%) + 1
1630 ON H1% GOSUB 650, 730, 780, 870, 970, 1050, 1140, 1220, 1280, 1390
1640 XO%= XO% + (DI% + INT(DI% / 4))
1650 ON H2% GOSUB 650, 730, 780, 870, 970, 1050, 1140, 1220, 1280, 1390
1660 RETURN
1670 REM->SECONDSARROWS
1680 AG= (SS% + 45) * (CI / 60) 
1690 X2= XO% + ( RY% * COS(AG) )
1700 Y2= YO% + ( RY% * SIN(AG) )
1710 X1= XO% + ( (RY%-6) * COS(AG) )
1720 Y1= YO% + ( (RY%-6) * SIN(AG) )
1730 HPLOT X1,Y1 TO X2,Y2
1740 RETURN 
1750 REM->MINUTESARROWS
1760 AG= (MM% + 45) * (CI / 60)
1770 X2= XO% + ( (RY%-10) * COS(AG) )
1780 Y2= YO% + ( (RY%-10) * SIN(AG) )
1790 X1= XO% + ( (RY%-40) * COS(AG) )
1800 Y1= YO% + ( (RY%-40) * SIN(AG) )
1810 HPLOT X1,Y1 TO X2,Y2
1820 RETURN
1830 REM->HOURSARROWS
1840 AG= (HH% + 9) * (CI / 12) 
1850 X2= XO% + ( (RY% - 18) * COS(AG) ) 
1860 Y2= YO% + ( (RY% - 18) * SIN(AG) )
1870 X1= XO% + ( (RY%-40) * COS(AG) )
1880 Y1= YO% + ( (RY%-40) * SIN(AG) )
1890 HPLOT X1,Y1 TO X2,Y2
1900 RETURN
1910 REM->SHOWSECONDE
1920 HCOLOR= 0
1930 XO%= 140:YO%= 80
1940 GOSUB 1680
1950 XO%= FN HDIGI(DI%) :YO%= 160
1960 XO% = XO% + ( DG% * 2 )
1970 GOSUB 1470
1980 HCOLOR= 3
1990 SS%= B3
2000 XO%= 140:YO%= 80
2010 GOSUB 1680
2020 XO%= FN HDIGI(DI%) :YO%= 160
2030 XO% = XO% + ( DG% * 2 )
2040 GOSUB 1470
2050 RETURN
2060 REM->SHOWMINUTE
2070 HCOLOR= 0
2080 XO%= 140:YO%= 80
2090 GOSUB 1760
2100 MM% = 88
2110 XO%= FN HDIGI(DI%) :YO%= 160
2120 XO% = XO% + DG%
2130 GOSUB 1540
2140 HCOLOR= 3
2150 MM%= B2
2160 XO%= 140:YO%= 80
2170 GOSUB 1760
2180 XO%= FN HDIGI(DI%) :YO%= 160
2190 XO% = XO% + DG%
2200 GOSUB 1540
2210 RETURN
2220 REM->SHOWHOUR
2230 HCOLOR= 0
2240 XO%= 140:YO%= 80
2250 GOSUB 1840
2260 HH% = 88
2270 XO%= FN HDIGI(DI%) :YO%= 160
2280 GOSUB 1610
2290 HCOLOR= 3
2300 HH%= B1
2310 XO%= 140:YO%= 80
2320 GOSUB 1840
2330 XO%= FN HDIGI(DI%) :YO%= 160
2340 GOSUB 1610
2350 RETURN
2360 REM->CLOCKDECORATION
2370 S5 = CI / 14
2380 FOR B7= 0 TO CI + 0.1 STEP S5
2390 V1= (RY% + 20) * COS(B7)
2400 V2= (RY% + 20) * SIN(B7)
2410 X2%= INT( XO% + V1 )
2420 Y2%= INT( YO% + V2 )
2430 IF B7 = 0 THEN HPLOT X2%,Y2%
2440 IF B7 > 0 THEN HPLOT TO X2%,Y2%
2450 NEXT
2460 S5 = CI / 14
2470 FOR B7= 0 TO CI + 0.1 STEP S5
2480 V1= (RY% - 46) * COS(B7)
2490 V2= (RY% - 46) * SIN(B7)
2500 X2%= INT( XO% + V1 )
2510 Y2%= INT( YO% + V2 )
2520 IF B7 = 0 THEN HPLOT X2%,Y2%
2530 IF B7 > 0 THEN HPLOT TO X2%,Y2%
2540 NEXT
2550 RETURN
2560 REM->CLOCKCIRCLE
2570 S4 = CI / 12
2580 FOR B6= (S4 * 9) TO ( CI + 0.1 ) + (S4 * 9) STEP S4
2590 V1= (RY% + 5) * COS(B6)
2600 V2= (RY% + 5) * SIN(B6)
2610 X2%= INT( XO% + V1 )
2620 Y2%= INT( YO% + V2 )
2630 HPLOT X2%,Y2%
2640 NEXT
2650 RETURN
2660 REM->SETCLOCK
2670 POKE 49168,0
2680 TEXT:HOME
2690 ?
2700 INPUT "HOUR 1/23 ? ";B1
2710 INPUT "MINUTE 1/59 ? ";B2
2720 INPUT "SECOND 1/59 ? ";B3
2730 IF B1 > 23 THEN B1= 23
2740 IF B1 < 0 THEN B1= 0
2750 IF B2 > 59 THEN B2= 59
2760 IF B2 < 0 THEN B2= 0
2770 IF B3 > 59 THEN B3= 59
2780 IF B3 < 0 THEN B3= 0
2790 GOSUB 3410
2800 XO%= 140:YO%= 80
2810 GOSUB 2370
2820 GOSUB 2570
2830 GOSUB 2230
2840 GOSUB 2070
2850 GOSUB 1920
2860 RETURN
2870 REM->SETSPEED
2880 POKE 49168,0
2890 TEXT:HOME
2900 ? "ACTUAL SPEED: ";DE%
2910 INPUT "SPEED 1/1000 ?";DE%
2920 IF DE% <= 0 THEN DE%= 1
2930 GOSUB 3410
2940 XO%= 140:YO%= 80
2950 GOSUB 2370
2960 GOSUB 2570
2970 GOSUB 2230
2980 GOSUB 2070
2990 GOSUB 1920
3000 RETURN
3010 REM->HELP
3020 POKE 49168,0
3030 TEXT:HOME
3040 VTAB(PEEK(37) + 2):
3050 S$= "     *** CLOCK  ***    ":GOSUB 3690
3060 ? S$
3070 VTAB(PEEK(37) + 2):
3080 S$= "     *** BY LOZ ***    ":GOSUB 3690
3090 ? S$
3100 VTAB(PEEK(37) + 2):
3110 S$= "Q-> QUIT               ":GOSUB 3690
3120 ? S$
3130 VTAB(PEEK(37) + 2):
3140 S$= "H-> THIS HELP          ":GOSUB 3690
3150 ? S$
3160 VTAB(PEEK(37) + 2):
3170 S$= "T-> SET TIME           ":GOSUB 3690
3180 ? S$
3190 VTAB(PEEK(37) + 2):
3200 S$= "V-> TIME SPEED         ":GOSUB 3690
3210 ? S$
3220 VTAB(PEEK(37) + 2):
3230 S$= "S-> TOGGLE SOUND ON/OFF":GOSUB 3690
3240 ? S$
3250 VTAB(PEEK(37) + 2):
3260 S$= "TYPE ENTER TO CONTINUE ":GOSUB 3690
3270 ? S$
3280 GET S$
3290 RETURN
3300 REM->HELPBIS
3310 GOSUB 3020
3320 GOSUB 3410
3330 XO%= 140:YO%= 80
3340 GOSUB 2570
3350 GOSUB 2370
3360 GOSUB 2230
3370 GOSUB 2070
3380 GOSUB 1920
3390 RETURN
3400 REM->HGRSCREEN
3410 IF PEEK(33) < 41 AND MH% > 159 THEN HG$= "HGR2"
3420 IF PEEK(33) < 41 AND MH% <= 159 THEN HG$= "HGR"
3430 IF PEEK(33) > 40 THEN HG$= "HGR"
3440 IF HG$ = "HGR" THEN HGR
3450 IF HG$ = "HGR2" THEN HGR2
3460 RETURN
3470 REM->SPLASH
3480 TEXT:HOME
3490 VTAB(3):?
3500 VTAB(PEEK(37) + 2)
3510 S$= "APPLESOFT BASIC CODE":GOSUB 3690
3520 ? S$
3530 RETURN
3540 REM->CREDITS
3550 TEXT:HOME
3560 GOSUB 3740
3570 VTAB(3):?
3580 VTAB(PEEK(37) + 2)
3590 S$= "BY ANDRES AKA LOZ":GOSUB 3690
3600 ? S$
3610 RETURN
3620 REM->KEYBOARDCAPTURE
3630 KI%= PEEK(49152)
3640 POKE 49168,0
3650 IF KI% = 155 THEN GOTO 490
3660 IF CHR$(KI%) = "T" THEN TEXT
3670 RETURN
3680 REM->CENTERTEXT
3690 T9%= INT( (PEEK(33) - LEN(S$) ) / 2 ) 
3700 IF (T9% < 1) THEN T9%= 0
3710 HTAB(T9%+1)
3720 RETURN
3730 REM->BEEP
3740 IF (BE% < 2) THEN BE%= 1
3750 FOR B9= 1 TO BE%
3760 ? CHR$(7);
3770 NEXT
3780 RETURN
RUN

rem * control D char
d${Cmd}= chr$(4)
pi= 3.14159:ci{circumference in radians}= (2 * pi)

rem * width max, eight max for screen (279, 191, 159)
ml%{widthMax}= 279:mh%{HeightMax}= 191
if peek(33){mode 80 cols} = 80 then mh%{HeightMax}= 159 

rem * true random number
def fn alea{true random number}(x) = int(rnd(peek(78)+peek(79)*256) * x + 1)

rem * beep and buzz by default
bz%{NbreBuzz}= 3:be%{NbreBeep}= 1

{*** my program flight ***}
section intro
	text:home
	gosub @splash
	vtab(peek(37) + 2):s$= "*** flight ***":gosub @centertext{this subscript is in lib/lib.baz}:print s$:get s$
	
	# global vars
	p2{pi + half}= pi * 1.5
	
	mh%{max height}= 159
	hz{horizon}= 110
	lo{main-loops}= 8
	hl{horizontal-lines}= 279 / lo{main-loops}
	# to reduce top
	vl{vertical-lines}= hl{horizontal-lines} / 3
	vs{h-lines-size}= (mh%{max height} - hz{horizon}) / lo{main-loops}
	
	# rotation
	s{Inc}= (ci{circonference} / 32) {incrementation of circle}

	vtab(22)
closesection
section main program
	begin {*** forever loop ***}
		gosub @hgrscreen
		
		x= ( pdl(0) * 1.094 ) # pdl return 0-255
		y= ( pdl(1) * 0.623 )
		
		# turn right/left
		if x <> x3 then s = s * -1
		if av{angle of plane} > ci then av = 0
		av = av{angle of plane} + s
		
		x3{store x}= x
		y3{store y}= y

		x1= int(x + 27):y1= int(y)
		 
		# plane
x2= (x1+(22.00*sin(2.36+av))):y2= (y1+(22.00*cos(2.36+av))):gosub @checkxy:hplot x2,y2
x2= (x1+(16.28*sin(2.17+av))):y2= (y1+(16.28*cos(2.17+av))):gosub @checkxy:hplot to x2,y2
x2= (x1+(6.00*sin(0.79+av))):y2= (y1+(6.00*cos(0.79+av))):gosub @checkxy:hplot to x2,y2
x2= (x1+(21.02*sin(1.91+av))):y2= (y1+(21.02*cos(1.91+av))):gosub @checkxy:hplot to x2,y2
x2= (x1+(25.06*sin(1.86+av))):y2= (y1+(25.06*cos(1.86+av))):gosub @checkxy:hplot to x2,y2
x2= (x1+(26.57*sin(2.01+av))):y2= (y1+(26.57*cos(2.01+av))):gosub @checkxy:hplot to x2,y2
x2= (x1+(44.41*sin(2.22+av))):y2= (y1+(44.41*cos(2.22+av))):gosub @checkxy:hplot to x2,y2
x2= (x1+(28.16*sin(2.25+av))):y2= (y1+(28.16*cos(2.25+av))):gosub @checkxy:hplot to x2,y2
x2= (x1+(22.00*sin(2.36+av))):y2= (y1+(22.00*cos(2.36+av))):gosub @checkxy:hplot to x2,y2
x2= (x1+(21.02*sin(1.91+av))):y2= (y1+(21.02*cos(1.91+av))):gosub @checkxy:hplot x2,y2
x2= (x1+(19.92*sin(2.05+av))):y2= (y1+(19.92*cos(2.05+av))):gosub @checkxy:hplot to x2,y2
x2= (x1+(22.20*sin(2.22+av))):y2= (y1+(22.20*cos(2.22+av))):gosub @checkxy:hplot to x2,y2
x2= (x1+(25.71*sin(2.12+av))):y2= (y1+(25.71*cos(2.12+av))):gosub @checkxy:hplot to x2,y2
x2= (x1+(26.57*sin(2.01+av))):y2= (y1+(26.57*cos(2.01+av))):gosub @checkxy:hplot to x2,y2
x2= (x1+(6.00*sin(0.79+av))):y2= (y1+(6.00*cos(0.79+av))):gosub @checkxy:hplot x2,y2
x2= (x1+(3.00*sin(2.36+av))):y2= (y1+(3.00*cos(2.36+av))):gosub @checkxy:hplot to x2,y2
x2= (x1+(44.41*sin(2.22+av))):y2= (y1+(44.41*cos(2.22+av))):gosub @checkxy:hplot x2,y2
x2= (x1+(41.00*sin(2.36+av))):y2= (y1+(41.00*cos(2.36+av))):gosub @checkxy:hplot to x2,y2
		
		hplot 1,hz{horizon} to 279,hz{horizon}
		vp{h-lines-progress}= vp{h-lines-progress} + 1 
		if vp{h-lines-progress} > lo{main-loops} then vp{h-lines-progress}= 0
		
		for b1= 0 to lo{main-loops}
			y1= hz{horizon} + (b1 * vs{h-lines-size}) + (b1 + 1 * vp{h-lines-progress})
			y2= hz{horizon} + (b1 * vs{h-lines-size}) + (b1 + 1 * vp{h-lines-progress})
			x1= 1:x2= 279
			gosub @checkxy
			hplot x1,y1 to x2,y2
		next
		
		for b1= 0 to lo{main-loops}
			x1= x + (b1 * vl{vertical-lines})
			x2= b1 * hl{horizontal-lines}
			y1 = hz{horizon}
			y2 = 159
			gosub @checkxy
			hplot x1,y1 to x2,y2
		next
		
	gosub @longdowntime 
	gosub @keyboardcapture {this subscript is in lib/lib.baz}
	goto @begin {forever loop}
	
	endprogram
	text:home:poke 49168,0
	gosub @credits
	end
closesection
section subscripts

closesection
hgrscreen
	if peek(33) < 41 and mh%{MaxHauteur} > 159 then hg$= "hgr2"
	if peek(33) < 41 and mh%{MaxHauteur} <= 159 then hg$= "hgr"
	rem * mod 80 colonnes
	if peek(33) > 40 then hg$= "hgr"
	if hg$ = "hgr" then hgr
	if hg$ = "hgr2" then hgr2
return

checkxy
	rem * check x,y to prevent overflow
	x1= int(x1):x2= int(x2):y1= int(y1):y2= int(y2)
	if x1 >= 1 and x1 < ml% and x2 >= 1 and x2 < ml% and y1 >= 1 and y1 < mh% and y2 >= 1 and y2 < mh% then return
	if x1 > ml%{widthMax} then x1= ml%{widthMax}
	if x2 > ml%{widthMax} then x2= ml%{widthMax}
	if y1 > mh%{HeightMax} then y1= mh%{HeightMax}
	if y2 > mh%{HeightMax} then y2= mh%{HeightMax}
	if x1 < 1 then x1= 1
	if x2 < 1 then x2= 1
	if y1 < 1 then y1= 1
	if y2 < 1 then y2= 1
return

splash
	text:home
	vtab(3):print
	vtab(peek(37) + 2)
	s${sentence}= "applesoft basic code":gosub @centertext
	print s${sentence}
return

credits
	text:home
	gosub @beep
	vtab(3):print
	vtab(peek(37) + 2)
	s${sentence}= "by andres aka loz":gosub @centertext
	print s${sentence}
return

keyboardcapture
	rem * capture last keyboard entered
	ki%{keyboardInput}= peek(49152)
	rem * reset
	poke 49168,0
	rem * actions
	if ki% = 155{Escape} then goto @endprogram
	if chr$(ki%) = "t" then text
return

centertext
	t9%{leftSpace}= int( (peek(33) - len(s${sentence}) ) / 2 ) 
	rem * is result is null
	if (t9% < 1) then t9%= 0
	htab(t9%{leftSpace}+1)
return

beep
if (be%{NbreBeep} < 2) then be%{NbreBeep}= 1
	for b9= 1 to be%{NbreBeep}
		print chr$(7);
	next
return

longdowntime
	for b9= 1 to 2000:next b9
return

shortdowntime
	for b9= 1 to 800:next b9
return

NEW
10 REM - PLANE-ROT.BAS - 15/04/2011 - 14h44 - BY - ANDRES - AKA - LOZ - COPYLEFT
20 D$= CHR$(4)
30 PI= 3.14159:CI= (2 * PI)
40 ML%= 279:MH%= 191
50 IF PEEK(33) = 80 THEN MH%= 159 
60 DEF FN ALEA(X) = INT(RND(PEEK(78)+PEEK(79)*256) * X + 1)
70 BZ%= 3:BE%= 1
80 TEXT:HOME
90 GOSUB 930
100 VTAB(PEEK(37) + 2):S$= "*** FLIGHT ***":GOSUB 1140:? S$:GET S$
110 P2= PI * 1.5
120 MH%= 159
130 HZ= 110
140 LO= 8
150 HL= 279 / LO
160 VL= HL / 3
170 VS= (MH% - HZ) / LO
180 S= (CI / 32) 
190 VTAB(22)
200 REM->BEGIN 
210 GOSUB 740
220 X= ( PDL(0) * 1.094 )
230 Y= ( PDL(1) * 0.623 )
240 IF X <> X3 THEN S = S * -1
250 IF AV > CI THEN AV = 0
260 AV = AV + S
270 X3= X
280 Y3= Y
290 X1= INT(X + 27):Y1= INT(Y)
300 X2= (X1+(22.00*SIN(2.36+AV))):Y2= (Y1+(22.00*COS(2.36+AV))):GOSUB 810:HPLOT X2,Y2
310 X2= (X1+(16.28*SIN(2.17+AV))):Y2= (Y1+(16.28*COS(2.17+AV))):GOSUB 810:HPLOT TO X2,Y2
320 X2= (X1+(6.00*SIN(0.79+AV))):Y2= (Y1+(6.00*COS(0.79+AV))):GOSUB 810:HPLOT TO X2,Y2
330 X2= (X1+(21.02*SIN(1.91+AV))):Y2= (Y1+(21.02*COS(1.91+AV))):GOSUB 810:HPLOT TO X2,Y2
340 X2= (X1+(25.06*SIN(1.86+AV))):Y2= (Y1+(25.06*COS(1.86+AV))):GOSUB 810:HPLOT TO X2,Y2
350 X2= (X1+(26.57*SIN(2.01+AV))):Y2= (Y1+(26.57*COS(2.01+AV))):GOSUB 810:HPLOT TO X2,Y2
360 X2= (X1+(44.41*SIN(2.22+AV))):Y2= (Y1+(44.41*COS(2.22+AV))):GOSUB 810:HPLOT TO X2,Y2
370 X2= (X1+(28.16*SIN(2.25+AV))):Y2= (Y1+(28.16*COS(2.25+AV))):GOSUB 810:HPLOT TO X2,Y2
380 X2= (X1+(22.00*SIN(2.36+AV))):Y2= (Y1+(22.00*COS(2.36+AV))):GOSUB 810:HPLOT TO X2,Y2
390 X2= (X1+(21.02*SIN(1.91+AV))):Y2= (Y1+(21.02*COS(1.91+AV))):GOSUB 810:HPLOT X2,Y2
400 X2= (X1+(19.92*SIN(2.05+AV))):Y2= (Y1+(19.92*COS(2.05+AV))):GOSUB 810:HPLOT TO X2,Y2
410 X2= (X1+(22.20*SIN(2.22+AV))):Y2= (Y1+(22.20*COS(2.22+AV))):GOSUB 810:HPLOT TO X2,Y2
420 X2= (X1+(25.71*SIN(2.12+AV))):Y2= (Y1+(25.71*COS(2.12+AV))):GOSUB 810:HPLOT TO X2,Y2
430 X2= (X1+(26.57*SIN(2.01+AV))):Y2= (Y1+(26.57*COS(2.01+AV))):GOSUB 810:HPLOT TO X2,Y2
440 X2= (X1+(6.00*SIN(0.79+AV))):Y2= (Y1+(6.00*COS(0.79+AV))):GOSUB 810:HPLOT X2,Y2
450 X2= (X1+(3.00*SIN(2.36+AV))):Y2= (Y1+(3.00*COS(2.36+AV))):GOSUB 810:HPLOT TO X2,Y2
460 X2= (X1+(44.41*SIN(2.22+AV))):Y2= (Y1+(44.41*COS(2.22+AV))):GOSUB 810:HPLOT X2,Y2
470 X2= (X1+(41.00*SIN(2.36+AV))):Y2= (Y1+(41.00*COS(2.36+AV))):GOSUB 810:HPLOT TO X2,Y2
480 HPLOT 1,HZ TO 279,HZ
490 VP= VP + 1 
500 IF VP > LO THEN VP= 0
510 FOR B1= 0 TO LO
520 Y1= HZ + (B1 * VS) + (B1 + 1 * VP)
530 Y2= HZ + (B1 * VS) + (B1 + 1 * VP)
540 X1= 1:X2= 279
550 GOSUB 810
560 HPLOT X1,Y1 TO X2,Y2
570 NEXT
580 FOR B1= 0 TO LO
590 X1= X + (B1 * VL)
600 X2= B1 * HL
610 Y1 = HZ
620 Y2 = 159
630 GOSUB 810
640 HPLOT X1,Y1 TO X2,Y2
650 NEXT
660 GOSUB 1250
670 GOSUB 1080
680 GOTO 210
690 REM->ENDPROGRAM
700 TEXT:HOME:POKE 49168,0
710 GOSUB 1000
720 END
730 REM->HGRSCREEN
740 IF PEEK(33) < 41 AND MH% > 159 THEN HG$= "HGR2"
750 IF PEEK(33) < 41 AND MH% <= 159 THEN HG$= "HGR"
760 IF PEEK(33) > 40 THEN HG$= "HGR"
770 IF HG$ = "HGR" THEN HGR
780 IF HG$ = "HGR2" THEN HGR2
790 RETURN
800 REM->CHECKXY
810 X1= INT(X1):X2= INT(X2):Y1= INT(Y1):Y2= INT(Y2)
820 IF X1 >= 1 AND X1 < ML% AND X2 >= 1 AND X2 < ML% AND Y1 >= 1 AND Y1 < MH% AND Y2 >= 1 AND Y2 < MH% THEN RETURN
830 IF X1 > ML% THEN X1= ML%
840 IF X2 > ML% THEN X2= ML%
850 IF Y1 > MH% THEN Y1= MH%
860 IF Y2 > MH% THEN Y2= MH%
870 IF X1 < 1 THEN X1= 1
880 IF X2 < 1 THEN X2= 1
890 IF Y1 < 1 THEN Y1= 1
900 IF Y2 < 1 THEN Y2= 1
910 RETURN
920 REM->SPLASH
930 TEXT:HOME
940 VTAB(3):?
950 VTAB(PEEK(37) + 2)
960 S$= "APPLESOFT BASIC CODE":GOSUB 1140
970 ? S$
980 RETURN
990 REM->CREDITS
1000 TEXT:HOME
1010 GOSUB 1190
1020 VTAB(3):?
1030 VTAB(PEEK(37) + 2)
1040 S$= "BY ANDRES AKA LOZ":GOSUB 1140
1050 ? S$
1060 RETURN
1070 REM->KEYBOARDCAPTURE
1080 KI%= PEEK(49152)
1090 POKE 49168,0
1100 IF KI% = 155 THEN GOTO 700
1110 IF CHR$(KI%) = "T" THEN TEXT
1120 RETURN
1130 REM->CENTERTEXT
1140 T9%= INT( (PEEK(33) - LEN(S$) ) / 2 ) 
1150 IF (T9% < 1) THEN T9%= 0
1160 HTAB(T9%+1)
1170 RETURN
1180 REM->BEEP
1190 IF (BE% < 2) THEN BE%= 1
1200 FOR B9= 1 TO BE%
1210 ? CHR$(7);
1220 NEXT
1230 RETURN
1240 REM->LONGDOWNTIME
1250 FOR B9= 1 TO 2000:NEXT B9
1260 RETURN
1270 REM->SHORTDOWNTIME
1280 FOR B9= 1 TO 800:NEXT B9
1290 RETURN
RUN

rem * control D char
d${Cmd}= chr$(4)
pi= 3.14159:ci{circumference in radians}= (2 * pi)

rem * width max, eight max for screen (279, 191, 159)
ml%{widthMax}= 279:mh%{HeightMax}= 191
if peek(33){mode 80 cols} = 80 then mh%{HeightMax}= 159 

rem * true random number
def fn alea{true random number}(x) = int(rnd(peek(78)+peek(79)*256) * x + 1)

rem * beep and buzz by default
bz%{NbreBuzz}= 3:be%{NbreBeep}= 1

{*** my program draw ***}
section intro
	text:home
	gosub @splash
	vtab(peek(37) + 2):s$= "*** draw ***":gosub @centertext:print s$:get s$
	
	# global vars
	mh%= 159
	lo{loops}= 1000
	x = ml% / 2
	y = mh% / 2
	cs{circle step}= 12
	
	# rem * best colors order 1 green, 5 orange, 2 violet, 6 blue 3 white, 0 black
	rem color list for random
	dim cl(6)
	cl(1)= 3:cl(2)= 1:cl(3)= 5:cl(4)= 6:cl(5)= 2:cl(6)= 0
	rc{randcolors}= 6
	
	gosub @hgrscreen
	hcolor= 3 {defaul color}
	vtab(22):rem choice
	print "d->ot s->quare c->ircle e->star f->grid ";
	print "b->dotcircle a->rand n->normal          ";
	print "g->grow r->reduce colors:0,1,2,3,5,6    ";
	print "z->reset p->save q->uit                ";
	gw{growfactor}= 5
	# trace
closesection
section main program
	begin {*** main loop ***}
		# bp%= bp%{mainLoop} + 1

		for b1= 1 to lo{loops}
			s1{size} = 1 * gw
			s2{size} = 1 * gw
			
			if rd = 1 then gosub @randomvalues
			
			x= ( pdl(0) * 1.094 ) # pdl return 0-255
			y= ( pdl(1) * 0.623 )
			
			rem * capture last keyboard entered
			# wait 49152,128
			ki%{keyboardInput}= peek(49152)
			# poke 49168,0
			rem * menu actions
			
			if chr$(ki%){keyboardInput} = "a" then rd= 1
			if chr$(ki%){keyboardInput} = "0" then hcolor= 0
			if chr$(ki%){keyboardInput} = "1" then hcolor= 1
			if chr$(ki%){keyboardInput} = "2" then hcolor= 2
			if chr$(ki%){keyboardInput} = "3" then hcolor= 3
			if chr$(ki%){keyboardInput} = "5" then hcolor= 5
			if chr$(ki%){keyboardInput} = "6" then hcolor= 6
			if chr$(ki%){keyboardInput} = "z" then rd= 0:gosub @hgrscreen
			if chr$(ki%){keyboardInput} = "n" then rd= 0
			if chr$(ki%){keyboardInput} = "g" then gosub @grow
			if chr$(ki%){keyboardInput} = "r" then gosub @reduce
			if chr$(ki%){keyboardInput} = "s" then gosub @square
			if chr$(ki%){keyboardInput} = "e" then gosub @star
			if chr$(ki%){keyboardInput} = "d" then gosub @dot
			if chr$(ki%){keyboardInput} = "c" then gosub @circle
			if chr$(ki%){keyboardInput} = "b" then gosub @circleDot
			if chr$(ki%){keyboardInput} = "f" then gosub @grid
			if chr$(ki%){keyboardInput} = "p" then gosub @picturecapture
			if chr$(ki%){keyboardInput} = "w" then gosub @changeRandColor
			if chr$(ki%){keyboardInput} = "q" then gosub @quit
			
			gosub @keyboardcapture {this subscript is in lib/lib.baz}
		next 

		# if (bp%{mainLoop} < 100) then goto @begin
		goto @begin {forever loop}
	endprogram
	text:home
	gosub @credits
	end
closesection
section subscripts
	grow
		gw{growfactor}= gw + 1
		wait 49152,128
		poke 49168,0
	return
	reduce
		gw{growfactor}= gw - 1
		wait 49152,128
		poke 49168,0
	return
	dot
		x1= x:y1= y
		gosub @checkxy
		hplot x1,y1
	return
	square
		rem * s1{size} s2{size}
		x= x - (s1 / 2):y= y - (s2 / 2)
		x1= x:y1= y
		gosub @checkxy
		hplot x1,y1
		x1= x+s1:y1= y
		gosub @checkxy
		hplot to x1,y1
		x1= x+s1:y1= y+s2
		gosub @checkxy
		hplot to x1,y1
		x1= x:y1= y+s2
		gosub @checkxy
		hplot to x1,y1
		x1= x:y1= y
		gosub @checkxy
		hplot to x1,y1
	return
	circle
		ry{radius}= s1 / 2
		s{step}= ci{circle in radiants} / cs{circle step}
		for b2{varloop}= 0.1 to ( ci{circle in radiants}  + 0.5) step s
			v1= ry{radius} * cos(b2)
			v2= ry{radius} * sin(b2)
			x2= x{OrigX} + v1
			y2= y{OrigY} + v2
			if b2 = 0.1 then gosub @checkxy:hplot x2,y2
			if b2 > 0.1 then gosub @checkxy:hplot to x2,y2
		next 
	return
	circleDot
		ry{radius}= s1 / 2
		s{step}= ci{circle in radiants} / cs{circle step}
		for b2{varloop}= 0.1 to ( ci{circle in radiants}  + 0.5) step s
			v1= ry{radius} * cos(b2)
			v2= ry{radius} * sin(b2)
			x2= x{OrigX} + v1
			y2= y{OrigY} + v2
			gosub @checkxy:hplot x2,y2
		next 
	return
	star
		ry{radius}= s1 / 2
		s{step}= ci{circle in radiants} / (cs{circle step} * 2)
		for b2{varloop}= 0.1 to ( ci{circle in radiants}  + 0.5) step s
			st= st + 1
			if st > 1 then st= 0
			if st = 1 then st= ry
			v1= (ry{radius} + st) * cos(b2)
			v2= (ry{radius} + st) * sin(b2)
			x2= x{OrigX} + v1
			y2= y{OrigY} + v2
			if b2 = 0.1 then gosub @checkxy:hplot x2,y2
			if b2 > 0.1 then gosub @checkxy:hplot to x2,y2
		next 
	return
	grid
		g2= gw / 2
		x1= x + (g2 * (fn alea(3) - 1) ) - g2
		y1= y + (g2 * (fn alea(3) - 1) ) - g2
		x2= x + (g2 * (fn alea(3) - 1) ) - g2
		y2= y + (g2 * (fn alea(3) - 1) ) - g2
		gosub @checkxy
		hplot x1,y1 to x2,y2
	return
	randomvalues
		rem random values
		s1{size}= fn alea(gw)
		s2{size}= fn alea(gw)
		hcolor = cl(fn alea(rc{randcolor}))
		cs{circle step}= fn alea(10) + 6
	return
	changeRandColor
		rc= rc + 1
		if rc > 6 then rc = 2
		wait 49152,128
		poke 49168,0
	return
	quit
		goto @endprogram
closesection
hgrscreen
	if peek(33) < 41 and mh%{MaxHauteur} > 159 then hg$= "hgr2"
	if peek(33) < 41 and mh%{MaxHauteur} <= 159 then hg$= "hgr"
	rem * mod 80 colonnes
	if peek(33) > 40 then hg$= "hgr"
	if hg$ = "hgr" then hgr
	if hg$ = "hgr2" then hgr2
return

checkxy
	rem * check x,y to prevent overflow
	x1= int(x1):x2= int(x2):y1= int(y1):y2= int(y2)
	if x1 >= 1 and x1 < ml% and x2 >= 1 and x2 < ml% and y1 >= 1 and y1 < mh% and y2 >= 1 and y2 < mh% then return
	if x1 > ml%{widthMax} then x1= ml%{widthMax}
	if x2 > ml%{widthMax} then x2= ml%{widthMax}
	if y1 > mh%{HeightMax} then y1= mh%{HeightMax}
	if y2 > mh%{HeightMax} then y2= mh%{HeightMax}
	if x1 < 1 then x1= 1
	if x2 < 1 then x2= 1
	if y1 < 1 then y1= 1
	if y2 < 1 then y2= 1
return

splash
	text:home
	vtab(3):print
	vtab(peek(37) + 2)
	s${sentence}= "applesoft basic code":gosub @centertext
	print s${sentence}
return

credits
	text:home
	gosub @beep
	vtab(3):print
	vtab(peek(37) + 2)
	s${sentence}= "by andres aka loz":gosub @centertext
	print s${sentence}
return

keyboardcapture
	rem * capture last keyboard entered
	ki%{keyboardInput}= peek(49152)
	rem * reset
	poke 49168,0
	rem * actions
	if ki% = 155{Escape} then goto @endprogram
return

picturecapture
	rem * to capture screen type "s"
	t9%= fn alea(10000):t9$= "fic"+str$(t9%):print d$;"create cap/";t9$;",tbin"
	rem * hgr screen
	if (mh%{HeightMax} < 160) then t9$= t9$ + ",a$2000,l$1ff8"
	rem * hgr2
	if (mh%{HeightMax} > 159) then t9$= t9$ + ",a$4000,l$1ff8"
	print d$;"bsave cap/";t9$
	wait 49152,128
	poke 49168,0
return

centertext
	t9%{leftSpace}= int( (peek(33) - len(s${sentence}) ) / 2 ) 
	rem * is result is null
	if (t9% < 1) then t9%= 0
	htab(t9%{leftSpace}+1)
return

beep
if (be%{NbreBeep} < 2) then be%{NbreBeep}= 1
	for b9= 1 to be%{NbreBeep}
		print chr$(7);
	next
return

longdowntime
	for b9= 1 to 2000:next b9
return

shortdowntime
	for b9= 1 to 800:next b9
return

NEW
10 REM - DRAW.BAS - 26/03/2011 - 10h01 - BY - ANDRES - AKA - LOZ - COPYLEFT
20 D$= CHR$(4)
30 PI= 3.14159:CI= (2 * PI)
40 ML%= 279:MH%= 191
50 IF PEEK(33) = 80 THEN MH%= 159 
60 DEF FN ALEA(X) = INT(RND(PEEK(78)+PEEK(79)*256) * X + 1)
70 BZ%= 3:BE%= 1
80 TEXT:HOME
90 GOSUB 1780
100 VTAB(PEEK(37) + 2):S$= "*** DRAW ***":GOSUB 2060:? S$:GET S$
110 MH%= 159
120 LO= 1000
130 X = ML% / 2
140 Y = MH% / 2
150 CS= 12
160 REM COLOR LIST FOR RANDOM
170 DIM CL(6)
180 CL(1)= 3:CL(2)= 1:CL(3)= 5:CL(4)= 6:CL(5)= 2:CL(6)= 0
190 RC= 6
200 GOSUB 1590
210 HCOLOR= 3 
220 VTAB(22):REM CHOICE
230 ? "D->OT S->QUARE C->IRCLE E->STAR F->GRID ";
240 ? "B->DOTCIRCLE A->RAND N->NORMAL          ";
250 ? "G->GROW R->REDUCE COLORS:0,1,2,3,5,6    ";
260 ? "Z->RESET P->SAVE Q->UIT                ";
270 GW= 5
280 REM->BEGIN 
290 FOR B1= 1 TO LO
300 S1 = 1 * GW
310 S2 = 1 * GW
320 IF RD = 1 THEN GOSUB 1440
330 X= ( PDL(0) * 1.094 )
340 Y= ( PDL(1) * 0.623 )
350 KI%= PEEK(49152)
360 IF CHR$(KI%) = "A" THEN RD= 1
370 IF CHR$(KI%) = "0" THEN HCOLOR= 0
380 IF CHR$(KI%) = "1" THEN HCOLOR= 1
390 IF CHR$(KI%) = "2" THEN HCOLOR= 2
400 IF CHR$(KI%) = "3" THEN HCOLOR= 3
410 IF CHR$(KI%) = "5" THEN HCOLOR= 5
420 IF CHR$(KI%) = "6" THEN HCOLOR= 6
430 IF CHR$(KI%) = "Z" THEN RD= 0:GOSUB 1590
440 IF CHR$(KI%) = "N" THEN RD= 0
450 IF CHR$(KI%) = "G" THEN GOSUB 640
460 IF CHR$(KI%) = "R" THEN GOSUB 690
470 IF CHR$(KI%) = "S" THEN GOSUB 790
480 IF CHR$(KI%) = "E" THEN GOSUB 1200
490 IF CHR$(KI%) = "D" THEN GOSUB 740
500 IF CHR$(KI%) = "C" THEN GOSUB 970
510 IF CHR$(KI%) = "B" THEN GOSUB 1090
520 IF CHR$(KI%) = "F" THEN GOSUB 1350
530 IF CHR$(KI%) = "P" THEN GOSUB 1980
540 IF CHR$(KI%) = "W" THEN GOSUB 1510
550 IF CHR$(KI%) = "Q" THEN GOSUB 1570
560 GOSUB 1930
570 NEXT 
580 GOTO 290
590 REM->ENDPROGRAM
600 TEXT:HOME
610 GOSUB 1850
620 END
630 REM->GROW
640 GW= GW + 1
650 WAIT 49152,128
660 POKE 49168,0
670 RETURN
680 REM->REDUCE
690 GW= GW - 1
700 WAIT 49152,128
710 POKE 49168,0
720 RETURN
730 REM->DOT
740 X1= X:Y1= Y
750 GOS