mirror of
https://github.com/irmen/prog8.git
synced 2024-10-16 18:23:59 +00:00
49 lines
1.2 KiB
Lua
49 lines
1.2 KiB
Lua
%import test_stack
|
|
%import textio
|
|
%import floats
|
|
%zeropage basicsafe
|
|
%option no_sysinit
|
|
|
|
main {
|
|
|
|
sub start () {
|
|
uword current_time
|
|
|
|
repeat {
|
|
current_time = c64.RDTIM16()
|
|
txt.print_uw(current_time)
|
|
txt.chrout('\n')
|
|
repeat 20000 {
|
|
current_time++
|
|
}
|
|
}
|
|
|
|
|
|
; found = strfind("irmen de jong", ' ')
|
|
; txt.print_uwhex(found, 1)
|
|
; txt.chrout('\n')
|
|
; found = strfind(" irmen-de-jong", ' ')
|
|
; txt.print_uwhex(found, 1)
|
|
; txt.chrout('\n')
|
|
; found = strfind("irmen-de-jong ", ' ')
|
|
; txt.print_uwhex(found, 1)
|
|
; txt.chrout('\n')
|
|
; found = strfind("irmen-de-jong", ' ')
|
|
; txt.print_uwhex(found, 1)
|
|
; txt.chrout('\n')
|
|
|
|
; found = strfinds("irmen de jong", "de")
|
|
; txt.print_uwhex(found, 1)
|
|
; txt.chrout('\n')
|
|
; found = strfinds("irmen de jong", "irmen")
|
|
; txt.print_uwhex(found, 1)
|
|
; txt.chrout('\n')
|
|
; found = strfinds("irmen de jong", "jong")
|
|
; txt.print_uwhex(found, 1)
|
|
; txt.chrout('\n')
|
|
; found = strfinds("irmen de jong", "de456")
|
|
; txt.print_uwhex(found, 1)
|
|
; txt.chrout('\n')
|
|
}
|
|
}
|