作業十:動態海報

做人要一套

就是保險套

有了這一套

安全一把照



Load dbnletters.dbn



Fast

Size 200 200 1

Paper 100



Number keyCheck

{

Set keyValue 0

Repeat a 1 26

{

 Same?  100

 {

   set keyValue a

 }

}

Value keyValue



}





Set ax 2

Set ay 186



Forever

{

Refresh

Same?  100

{

 Set ax ((/12)*12+2)

 Set ay ((/12)*12+2)



 Field ax ay (ax+11) (ay+11) 100

}



Pen  (ax/2) (ay/2)

Pause 15

Set k 

NotSmaller? k 1

{



 Field ax ay (ax+11) (ay+11) 100



 Letter k ax ay





   Set ax (ax+12)

 NotSmaller? ax 188

 {

    Set ay (ay-12)

   Set ax 2

 }

 Smaller? ay 0

 {

   Set ay 186

 }

}

}