Search found 6 matches

by udo
Fri Jan 31, 2020 1:24 pm
Forum: Finished programs
Topic: Barnsley fern
Replies: 2
Views: 282

Re: Barnsley fern

This is a version after that published by Martin Reiser and Niklaus Wirth in their book "Programmieren in Oberon: Das neue Pascal", published 1994. The English original "Programming in Oberon: Steps beyond Pascal and Module" was published in 1992. See: https://en.wikipedia.org/wiki/Oberon_(programmi...
by udo
Wed Oct 02, 2019 12:53 pm
Forum: Finished programs
Topic: Simple clock
Replies: 9
Views: 445

Re: Simple clock

This is version 2 with changes... ' Clock ' version 2.0 ' U. Rabe, 2019 ' Done with BestBasic ' It's public domain ' seconds added by Ton Nillesen ' adde some proposals by kibernetik ' some optical changes, U. Rabe ' define some constants scr size 600,600 ' def size of graphic screen xm ym = 300,300...
by udo
Tue Oct 01, 2019 7:05 pm
Forum: Finished programs
Topic: Simple clock
Replies: 9
Views: 445

Re: Simple clock

Nice! Thank You!
by udo
Tue Oct 01, 2019 6:45 am
Forum: Finished programs
Topic: Simple clock
Replies: 9
Views: 445

Re: Simple clock

And it works...

Code: Select all

do	'run clock
h m s = now|3
if m <> m1	
	m1 = m		
	draw clear 1,1,1	
	gosub print_clock_face	
	gosub draw_fingers			
	draw update
endif
cpu relax
redo
by udo
Mon Sep 30, 2019 5:54 pm
Forum: Finished programs
Topic: Simple clock
Replies: 9
Views: 445

Re: Simple clock

That would be nice.
BestBasic is a really nice interpreter.
It remembers me of working with a WANG 2200 at about 1975!
https://en.wikipedia.org/wiki/Wang_2200

Regards

Udo
by udo
Mon Sep 30, 2019 5:34 pm
Forum: Finished programs
Topic: Simple clock
Replies: 9
Views: 445

Simple clock

A version of a simple clock in BestBasic... ' Clock ' U. Rabe, 2019 ' Done with BestBasic ' It's public domain ' define some constants scr size 600,600 ' def size of graphic screen xm ym = 300,300 ' center of screen r0 r1 r2 = 250,220,170 ' radius: clock, large finger, small finger m1 = -1 ' reminde...