SetTick 1000,myint,1
Timer =0
Do
 If Timer>10000 Then
   If T Then
     SetTick 0,0,1
     SetTick 1000,MYINT,1
   Else
     SetTick 0,0,1
     SetTick 2000,MYINT,1
   EndIf
   T= Not T
   Timer =0
 EndIf
Loop
'
Sub myint
 If i Then
   CLS RGB(red)
 Else
   CLS RGB(green)
 EndIf
 Text 0,0,Str$(Timer)
 i=Not i
End Sub

V%=25
start:
Do While Inkey$="":Loop
SetTick 20,bing,1
Do While Inkey$<>"":Loop
GoTo start

Sub bing
 Play sound 4,"B","S",2700,V%
 Inc v%,-1
 If v%<=0 Then
   SetTick 0,0,1:V%=25
   Play stop
 EndIf
End Sub

' Program:      pulser.bas
' Author:       Pete WIllard
' Version:      0.1
' Target:       picomite
' Date:         2022/08/08
' Time:         09:26:41
' Notes:
' Reference:  Borrowed VT100 Sequences from M. Herhaus code for SOKOBAN
' microprocessor development clock
' 1)  free running fast clock
' 2)  free running slow clock
' 3)  single step
' 4) Exit
'=================================
'
'  Goal - using a VT100 Menu
'         -- Allow selection of clock rates for the Ben Eater 6502 project
'         -- Using a Chainsaw to cut butter, but it's cheaper to implement.
'         -- Quick and dirty test... so lazy coding techniques used
 OPTION EXPLICIT
'=====[ CONST ]==================================================================
 CONST el$=CHR$(27)+"["
 CONST slow = 1000 ' 1000 ms trigger
 CONST fast = 10   ' 10 ms trigger
'=====[ VARIABLES ]==============================================================
 DIM STRING lastmode$ = "slow"  ' Not really using this yet...
 DIM STRING USER$, SW$
'=====[ PINS ]===================================================================
 SETPIN GP2,DOUT
 
'=====[ SETUP ]==================================================================
 PIN(GP2) = 1
 SETTICK slow,clktoggle,1
 
startup:
'=====[ MAIN CODE ]==============================================================
 tcls
 at 2,30
 PRINT "Clock Test"
 at 3,30
 PRINT "=========="
 at 5,30: PRINT "1. Astable fast clock"
 at 6,30: PRINT "2. Astable slow clock"
 at 7,30: PRINT "3. Single step clock"
 at 8,30: PRINT "4. Exit"
 
 at 10,30
 
 user$ = ""
 DO WHILE user$ = ""
   user$ = INKEY$
 LOOP
 at 11,30
 
 SELECT CASE user$
   CASE "1"
     'SETTICK 0,0,1    ' Didn't seem to let the next line work
     SETTICK fast,clktoggle,1
   CASE "2"
     ' SETTICK 0,0,1   ' Didn't seem to let the next line work
     SETTICK slow,clktoggle,1
   CASE "3"
     PRINT " "
     SETTICK 0,0,1  '  But workes here... \_('')_/
     PIN(GP2) = 0
     PRINT "Single Step Mode - Press `s` to Toggle, `q` to Cancel"
           DO
             sw$ = ""
             DO WHILE sw$ = ""
               sw$ = INKEY$
             LOOP
             sw$ = LCASE$(sw$)
             IF sw$ = "s" THEN
                 clktoggle
                 PAUSE (250)
                 clktoggle
             ENDIF
           LOOP UNTIL sw$ = "q"
           lastmode$="Single"
   CASE "4"
     GOTO theend
   CASE ELSE
         lastmode$ = ""
 END SELECT
 
 GOTO startup
 
'================================================================================
theend:
' Bye
 
'=====[ SUBROUTINES ]============================================================
 
SUB clktoggle
 LOCAL status
 status = NOT PIN(gp2)
 PIN(gp2) = status
END SUB
 
 
SUB tcls
' clear terminal screen
 PRINT el$;"2j";
 home
END SUB
 
SUB home
' cursor top left
 PRINT el$;"h";
END SUB
 
SUB at row,col
 PRINT el$;;STR$(row);"h";el$;STR$(col);"g";
END SUB
 

' Reference:  Borrowed VT100 Sequences from M. Herhaus code for SOKOBAN