Kello joka piirtää ympyröitä. Se tikittää, piirtää ympyrää, joka suurenee ja siihen on mahdollista valita eri värivaihtoehtoja. Exeä ei ole laittaa, koska kotisivuilleni ei voi tunkea mitään ladattavaa, mutta kenties uudet kotisivut valmistuvat pian...
Nuo oudot muuttujanimet ovat sisäpiirin vitsi.
SCREEN 12 DIM aika AS STRING 'määrittää ajan & päivämäärän merkkijonoiksi DIM paiva AS STRING lavi = 1 'ympyrän lävistäjän alkumitta PRINT "Valitse ulkoasun väri. 1: Punainen 2: Keltainen 3: Valkoinen 4: Vihreä" INPUT vari IF vari = 1 THEN COLOR 12 'ulkoasun vaihtoa IF vari = 2 THEN COLOR 14 'katso print-lauseesta ylhäältä, minkä väristä tulee IF vari = 3 THEN COLOR 15 IF vari = 4 THEN COLOR 10 CLS DO UNTIL INKEY$ = CHR$(27) 'tehdään, kunnes painetaan esc LOCATE 1, 2 aika = TIME$ paiva = DATE$ dui$ = LEFT$(paiva, 2) 'päivämäärien muutto qb:n kk-pp-vvvv chico$ = LEFT$(paiva, 5) 'meille paremmin ymmärrettävään pp-kk-vvvv muotoon hugger$ = RIGHT$(chico$, 2) atsmu$ = RIGHT$(paiva, 4) PRINT aika 'näytetään aika LOCATE 3, 2 PRINT hugger$; "."; dui$; "."; atsmu$ 'näytetään päiväys SOUND 55, 2 'soitetaan tick-tyylinen ääni joka sekunti SLEEP 1 CIRCLE (315, 250), lavi 'kasvatetaan pientä ympyrää suuremmaksi joka sekunti lavi = lavi + 1 'lisätään ympyrän lävistäjään 1 LOOP
Aihe on jo aika vanha, joten et voi enää vastata siihen.