10 lines
80 B
Text
10 lines
80 B
Text
Proc Main()
|
|
byte A
|
|
|
|
A=0
|
|
Do
|
|
A==+1
|
|
PrintBE(A)
|
|
Until A Mod 6=0
|
|
Od
|
|
Return
|