home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AMOS PD CD
/
amospdcd.iso
/
576-600
/
apd591
/
col_cyc.amos
/
col_cyc.amosSourceCode
Wrap
AMOS Source Code
|
1994-02-02
|
1KB
|
39 lines
Screen Open 0,320,200,16,Lowres
Flash Off
Cls 0
Palette $0,$5,$6,$8,$9,$B,$C,$E,$F,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF
'
For Y=0 To 15
For X=0 To 15
Read SPOT
Ink SPOT
Plot X,Y
Next X
Next Y
'
Get Bob 1,0,0 To 16,16
For Y=0 To 11
For X=0 To 19
Paste Bob X*16,Y*16,1
Next X
Next Y
'
Shift Up 4,1,8,1
'
End
Data $1,$1,$1,$1,$1,$1,$1,$1,$1,$2,$3,$4,$5,$6,$7,$8
Data $1,$2,$2,$2,$2,$2,$2,$2,$1,$2,$3,$4,$5,$6,$7,$7
Data $1,$2,$3,$3,$3,$3,$3,$3,$1,$2,$3,$4,$5,$6,$6,$6
Data $1,$2,$3,$4,$4,$4,$4,$4,$1,$2,$3,$4,$5,$5,$5,$5
Data $1,$2,$3,$4,$5,$5,$5,$5,$1,$2,$3,$4,$4,$4,$4,$4
Data $1,$2,$3,$4,$5,$6,$6,$6,$1,$2,$3,$3,$3,$3,$3,$3
Data $1,$2,$3,$4,$5,$6,$7,$7,$1,$2,$2,$2,$2,$2,$2,$2
Data $1,$2,$3,$4,$5,$6,$7,$8,$1,$1,$1,$1,$1,$1,$1,$1
Data $1,$1,$1,$1,$1,$1,$1,$1,$8,$7,$6,$5,$4,$3,$2,$1
Data $2,$2,$2,$2,$2,$2,$2,$1,$7,$7,$6,$5,$4,$3,$2,$1
Data $3,$3,$3,$3,$3,$3,$2,$1,$6,$6,$6,$5,$4,$3,$2,$1
Data $4,$4,$4,$4,$4,$3,$2,$1,$5,$5,$5,$5,$4,$3,$2,$1
Data $5,$5,$5,$5,$4,$3,$2,$1,$4,$4,$4,$4,$4,$3,$2,$1
Data $6,$6,$6,$5,$4,$3,$2,$1,$3,$3,$3,$3,$3,$3,$2,$1
Data $7,$7,$6,$5,$4,$3,$2,$1,$2,$2,$2,$2,$2,$2,$2,$1
Data $8,$7,$6,$5,$4,$3,$2,$1,$1,$1,$1,$1,$1,$1,$1,$1