2019-08-02 23:51:12 +00:00
|
|
|
%import c64utils
|
|
|
|
%import c64flt
|
2019-07-01 21:41:30 +00:00
|
|
|
%zeropage basicsafe
|
2019-08-04 13:33:00 +00:00
|
|
|
%option enable_floats
|
2019-03-29 01:13:28 +00:00
|
|
|
|
2019-07-29 21:11:13 +00:00
|
|
|
main {
|
2019-04-21 01:04:13 +00:00
|
|
|
|
2019-07-15 21:05:04 +00:00
|
|
|
sub start() {
|
2019-08-04 14:05:50 +00:00
|
|
|
ubyte ub=0
|
|
|
|
while ub<30 {
|
|
|
|
ub++
|
|
|
|
if ub < 5
|
|
|
|
continue
|
|
|
|
c64scr.print_ub(ub)
|
|
|
|
c64.CHROUT(',')
|
|
|
|
if ub >= 10
|
|
|
|
break
|
|
|
|
}
|
|
|
|
c64.CHROUT('\n')
|
2019-08-03 11:21:38 +00:00
|
|
|
|
2019-08-04 14:05:50 +00:00
|
|
|
ub=0
|
|
|
|
repeat {
|
|
|
|
ub++
|
|
|
|
if ub < 5
|
|
|
|
continue
|
|
|
|
c64scr.print_ub(ub)
|
|
|
|
c64.CHROUT(',')
|
|
|
|
if ub>=10
|
|
|
|
break
|
|
|
|
} until ub>30
|
|
|
|
c64.CHROUT('\n')
|
2019-08-04 13:33:00 +00:00
|
|
|
|
2019-08-04 14:05:50 +00:00
|
|
|
for ub in 1 to 30 {
|
|
|
|
if ub < 5
|
|
|
|
continue
|
|
|
|
c64scr.print_ub(ub)
|
|
|
|
c64.CHROUT(',')
|
|
|
|
if ub >=10
|
|
|
|
break
|
|
|
|
}
|
|
|
|
c64.CHROUT('\n')
|
2019-08-04 13:33:00 +00:00
|
|
|
}
|
2019-04-11 22:04:15 +00:00
|
|
|
}
|