2020-09-20 21:49:36 +00:00
|
|
|
%import syslib
|
2020-09-21 16:42:28 +00:00
|
|
|
; %import graphics
|
2020-09-20 21:49:36 +00:00
|
|
|
%import textio
|
2020-09-21 21:39:25 +00:00
|
|
|
%zeropage basicsafe
|
2020-09-05 00:05:28 +00:00
|
|
|
|
2020-08-27 17:47:50 +00:00
|
|
|
|
2020-09-23 20:29:21 +00:00
|
|
|
main $0900{
|
2020-09-05 00:05:28 +00:00
|
|
|
|
2020-09-16 21:04:18 +00:00
|
|
|
sub start() {
|
2020-09-22 19:50:56 +00:00
|
|
|
|
2020-09-23 21:24:32 +00:00
|
|
|
ubyte x= 1
|
2020-09-23 21:01:47 +00:00
|
|
|
do {
|
2020-09-23 21:24:32 +00:00
|
|
|
ubyte v = x
|
|
|
|
x++
|
2020-09-23 21:01:47 +00:00
|
|
|
} until v==0
|
2020-09-22 19:50:56 +00:00
|
|
|
|
|
|
|
; @($c000) *= 99 ; TODO implement
|
|
|
|
|
2020-09-16 21:04:18 +00:00
|
|
|
}
|
2020-08-27 17:47:50 +00:00
|
|
|
}
|