prog8/examples/test.p8

72 lines
1.4 KiB
Plaintext
Raw Normal View History

2019-07-15 01:57:51 +00:00
%import c64flt
2019-07-01 21:41:30 +00:00
%zeropage basicsafe
2019-07-15 01:57:51 +00:00
%option enable_floats
2019-03-29 01:13:28 +00:00
2019-07-29 21:11:13 +00:00
main {
sub start() {
byte bvar
ubyte var2
for A in "hello" {
c64scr.print_ub(A)
c64.CHROUT(',')
}
c64.CHROUT('\n')
2019-07-30 22:54:04 +00:00
for A in [1,3,5,99] {
c64scr.print_ub(A)
c64.CHROUT(',')
}
c64.CHROUT('\n')
2019-07-31 19:31:44 +00:00
for A in 10 to 20 {
c64scr.print_ub(A)
c64.CHROUT(',')
}
c64.CHROUT('\n')
for A in 20 to 10 step -1 {
c64scr.print_ub(A)
c64.CHROUT(',')
}
c64.CHROUT('\n')
for A in 10 to 21 step 3 {
c64scr.print_ub(A)
c64.CHROUT(',')
}
c64.CHROUT('\n')
for A in 24 to 10 step -3 {
c64scr.print_ub(A)
c64.CHROUT(',')
}
c64.CHROUT('\n')
2019-07-30 21:35:25 +00:00
; for var2 in 10 to 20 {
; c64scr.print_ub(var2)
; c64.CHROUT(',')
; }
; c64.CHROUT('\n')
;
; for ubyte var3 in 10 to 20 {
; c64scr.print_ub(var3)
; c64.CHROUT(',')
; }
; c64.CHROUT('\n')
;
; for bvar in -5 to 5 {
; c64scr.print_b(bvar)
; c64.CHROUT(',')
; }
; c64.CHROUT('\n')
; for float fl in [1.1, 2.2, 5.5, 99.99] {
; c64flt.print_f(fl)
; c64.CHROUT(',')
; }
2019-07-30 21:35:25 +00:00
; c64.CHROUT('\n')
2019-07-22 16:58:55 +00:00
}
}