作業十: 應用 Key 整合判斷結構式 配合其它的指令--> 創作具有主題性的動態海報設計

亞特蘭提斯

load dbnletters.dbn
size 150 250 2
fastpaper 100 100 0
number keycheck{ set keyvalue 0 repeat X 1 26 { same? 100 { set keyvalue X } } value (keyvalue)}
set k 0
forever{
pen 0 5
set k letter k ((/12)*12+2) ((/12)*12+2) notsmaller? k 26 { set k 0 }}