| Jenis kursor | Penerangan |
| 0 | Tidak dipamirkan |
| 1 | Biasa |
| 2 | Jari tangan |
| 3 | garis bersilang |
| 4 | Hinjak (Pan) |
| 5 | Menunggu |
|
KUR=0
fungsi GelungUtama() CuciSkrin() Tulis "Cuba klik untuk menukar kursor",20,20 jika sentuhan()=1 cetak KUR Kursor(KUR) KUR=KUR+1 BuangSentuhan() dah tamat |