Procedure writexy(x,y:Integer;beta:String);
Begin
     gotoxy(x,y);
     write(beta)
End;

本段為程式初始化指令，整個程式分為一個個子程式（Procedure）和主程式（Main Program）。每一個子程式以Procedure作開頭，以end作結，結尾用分號；而主程式則以句號作結尾。
Gotoxy（x,y）用于在某一特定位置顯示字句或圖案，x,y內的值可以為任意數，但要注意儘量不要超出螢幕範圍。
Write用于顯示字句，括號內的內容要以『‘’』包含，方可正常顯示，已定義的變量名稱除外。

{view the start}
Procedure start;
Begin
  gotoxy(20,6);
   WriteLn('111111111111111111111111111111111111111');
  gotoxy(20,7);
   WriteLn('110110110110111111111111011111101111111');
  gotoxy(20,8);
   WriteLn('111010101101111111111011011111101111111');
  gotoxy(20,9);
   WriteLn('110000000100000000111100111111101111111');
  gotoxy(20,10);
   WriteLn('111100011010111011111110011100000001111');
  gotoxy(20,11);
   WriteLn('111010101110111011111101101001101101111');
  gotoxy(20,12);
   WriteLn('110110110110111011111011100101101101111');
  gotoxy(20,13);
   WriteLn('111101011111011011111111001101101101111');
  gotoxy(20,14);
   WriteLn('100000000011011011111100101100000001111');
  gotoxy(20,15);
   WriteLn('111011011111100111111011101111101111111');
  gotoxy(20,16);
   WriteLn('111100111111010111111111101111101110111');
  gotoxy(20,17);
   WriteLn('111010011110111011111101011111000000011');
  gotoxy(20,18);
   WriteLn('110111101101111101111110111000001111011');
  gotoxy(20,19);
   WriteLn('111111111111111111111111111111111111111');
   Repeat
    Until KeyPressed;
  ClrScr
End;

本段為進入遊戲顯示第一版面的子程式。
每一行的0和1組成的字串已被gotoxy限定位置，隨著縱坐標數值的遞增，每一行的文字顯示完畢後都將自動移到下一行（橫坐標不變）。但若只用writeln的話，每一行文字顯示完後都將自動跳至下一行，但以橫坐標首格作開頭。
倒數第四和第五行的repeat…until是重複性指令。Keypressed是任意鍵輸入指令；
再下一行的Clrscr是Clear screen的縮寫，也就是清除螢幕上的任何文字和圖案，後四句連起來表達就是：『重複直到按下任意鍵，然後便清洗螢幕，結束』 。


{view the title first}
Procedure title;
Begin;    
  gotoxy(25,13);
    writeln('Welcome to the SuDoKu challenge!');
    TextColor(YELLOW);
    
    gotoxy(53,20);
    writeln('Designer  Jerry Crystal Yu');
    
    gotoxy(60,21);
    writeln('Beta3.3.4');

    gotoxy(60,22);
    writeln('2006.10.20');
    
    gotoxy(30,23);
    write('All rights reserved');
      readln;
    Repeat
    Until KeyPressed;
  ClrScr
End;

本段為進入遊戲的第二個版面。
該版面純粹顯示作者、版本和日期，當然還有歡迎辭。為了保證顯示正常，需要加一個readln。而第一行語句由於沒有說明文本顏色，因此呈白色；而第二行語句前加了一行TextColor(YELLOW)，那麼改語句則為黃色，依此類推。


{Enter the user's name}
Procedure enter;
Begin
  gotoxy(25,13);
  TextColor(WHITE);
  write('[s:9]lease enter your name:');
  read(Name);
  gotoxy(25,15);
  TextColor(YELLOW);
  writeln('Have fun with the game!');
      readln;
    Repeat
     Until KeyPressed;
  ClrScr
End;

本段為進入遊戲第三個版面，該版面的功能是讓用戶鍵入姓名並顯示語句。
其中變量NAME用于記憶用戶姓名，在第一行語句前面使用WRITE，可以使游標不會在顯示完此字句後跳至下一行，以使用戶輸入姓名。在程式下一行加上read來讀取名字NAME    ，然後按下回車鍵即可關閉此版面。


{View the map}
Procedure mapview;
Begin
TextColor(COL1);
writexy(1,1,'Sudoku Challenge');
writexy(left,up,  '@=@=@==@=@==@=@=@==@=@');
writexy(left,up+1, '|   |   |   |   |   |   |   |   |   |');
writexy(left,up+2, '@---+---+---+---+---+---+---+---+---@');
writexy(left,up+3, '|   |   |   |   |   |   |   |   |   |');
writexy(left,up+4, '@---+---+---+---+---+---+---+---+---@');
writexy(left,up+5, '|   |   |   |   |   |   |   |   |   |');
writexy(left,up+6, '@---+---+---+---+---+---+---+---+---@');
writexy(left,up+7, '|   |   |   |   |   |   |   |   |   |');
writexy(left,up+8, '@---+---+---+---+---+---+---+---+---@');
writexy(left,up+9, '|   |   |   |   |   |   |   |   |   |');
writexy(left,up+10,'@---+---+---+---+---+---+---+---+---@');
writexy(left,up+11,'|   |   |   |   |   |   |   |   |   |');
writexy(left,up+12,'@---+---+---+---+---+---+---+---+---@');
writexy(left,up+13,'|   |   |   |   |   |   |   |   |   |');
writexy(left,up+14,'@---+---+---+---+---+---+---+---+---@');
writexy(left,up+15,'|   |   |   |   |   |   |   |   |   |');
writexy(left,up+16,'@---+---+---+---+---+---+---+---+---@');
writexy(left,up+17,'|   |   |   |   |   |   |   |   |   |');
writexy(left,up+18,'@=@=@=@==@=@=@==@=@=@');
writeln;
writeln;
writeln;
textColor(COL2);
     TextBackground(COLBG);
End;

此版面用于顯示數獨遊戲佈局圖。
由第五行起至倒數第七行為止為本子程式的本體部分。這裡與第一個版面的顯示方法略有不同，但最終效果是一樣的。由於一開始在常量部分已經限定了LEFT和UP的初始位置，因此只需再在這兩個常量後面加進數字，便可以逐行顯示所要顯示的文字了。這裡有一個保留字WRITEXY，直接便可以顯示所需顯示的字句，舉一個例子：在本段中，writexy(left,up+1)也可以寫成gotoxy(left,up+1);
[換行]writeln(••••••)。倒數第二行的TextBackground即背景顏色，它只會將文字的背景轉變成另外一種顏色，而不會改變文字本身。