Trevor Merritt
e29ac45c84
scroll left and right work in stdef and hidef adds octo test roms adds schip fonts to memory
31 lines
436 B
Plaintext
31 lines
436 B
Plaintext
###########################################
|
|
#
|
|
# Smile
|
|
#
|
|
# Draw smiley faces on the screen randomly
|
|
# and periodically clear the display.
|
|
#
|
|
###########################################
|
|
|
|
: smile
|
|
0b00100100
|
|
0b00100100
|
|
0b00000000
|
|
0b10000001
|
|
0b01000010
|
|
0b00111100
|
|
|
|
: main
|
|
i := smile
|
|
loop
|
|
v2 := 0
|
|
loop
|
|
v0 := random 0b00111111
|
|
v1 := random 0b00011111
|
|
sprite v0 v1 6
|
|
v2 += 1
|
|
if v2 != 32 then
|
|
again
|
|
clear
|
|
again
|