10 INPUT"cluster";CL
20 DR=0
30 TR=CL\2
40 SE=((CL*9)MOD18)+1
45 CLS
50 PRINTDSKI$(DR,TR,SE,0);DSKI$(DR,TR,SE,1)
60 GOTO10