10  ! This program demonstrates the BPLOT command by displaying a chessboard.
20  !
30  INTEGER ctr,bt,x_count,NCREMENT,Y_1,Y_2,Y_3,Y_4
40  INCREMENT=29 @ Y_1=36 
50  Y_2=Y_1+INCREMENT @ Y_3=Y_1+6*INCREMENT @ Y_4=Y_3+INCREMENT 
60  !
70  DIM black_pawn$[38],black_rook$[38],black_bishop$[38],black_knight$[38]
80  DIM black_king$[38],black_queen$[38]
90  !
100 DIM white_pawn$[38],white_rook$[38],white_bishop$[38],white_knight$[38]
110 DIM white_king$[38],white_queen$[38]
120 !
130 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,24,0,60,0
140 DATA 60,0,24,0,60,0,24,0,24,0,24,0,60,0,126,0,126,0
150 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,90,0,126,0,126,0
160 DATA 60,0,60,0,60,0,60,0,60,0,60,0,126,0,255,0,255,0
170 DATA 0,0,0,0,0,0,0,0,24,0,24,0,60,0,126,0,60,0,24,0
180 DATA 60,0,24,0,24,0,24,0,60,0,60,0,126,0,255,0,255,0
190 DATA 0,0,0,0,0,0,0,0,0,0,24,0,60,0,122,0,255,0,255,0
200 DATA 248,0,240,0,248,0,124,0,62,0,60,0,126,0,255,0,255,0
210 DATA 24,0,60,0,60,0,24,0,126,0,60,0,24,0,60,0,24,0,24,0
220 DATA 24,0,24,0,60,0,60,0,60,0,126,0,126,0,255,0,255,0
230 DATA 0,0,0,0,90,0,60,0,60,0,24,0,24,0,60,0,24,0,24,0
240 DATA 24,0,24,0,60,0,60,0,60,0,126,0,126,0,255,0,255,0
250 !
260 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,24,0,36,0
270 DATA 36,0,24,0,36,0,24,0,24,0,24,0,36,0,66,0,126,0
280 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,90,0,126,0,66,0
290 DATA 36,0,36,0,36,0,36,0,36,0,36,0,66,0,129,0,255,0
300 DATA 0,0,0,0,0,0,0,0,24,0,24,0,36,0,66,0,36,0,24,0
310 DATA 36,0,24,0,24,0,24,0,36,0,36,0,66,0,129,0,255,0
320 DATA 0,0,0,0,0,0,0,0,0,0,24,0,36,0,66,0,129,0,135,0
330 DATA 136,0,144,0,136,0,68,0,34,0,36,0,66,0,129,0,255,0
340 DATA 24,0,36,0,36,0,24,0,126,0,36,0,24,0,36,0,24,0,24,0
350 DATA 24,0,24,0,36,0,36,0,36,0,66,0,66,0,129,0,255,0
360 DATA 0,0,0,0,90,0,60,0,36,0,24,0,24,0,36,0,24,0,24,0
370 DATA 24,0,24,0,36,0,36,0,36,0,66,0,66,0,129,0,255,0
380 !
390 FOR ctr=1 TO 38 @ READ bt @ black_pawn$[ctr,ctr]=CHR$(bt) @ NEXT ctr 
400 FOR ctr=1 TO 38 @ READ bt @ black_rook$[ctr,ctr]=CHR$(bt) @ NEXT ctr 
410 FOR ctr=1 TO 38 @ READ bt @ black_bishop$[ctr,ctr]=CHR$(bt) @ NEXT ctr 
420 FOR ctr=1 TO 38 @ READ bt @ black_knight$[ctr,ctr]=CHR$(bt) @ NEXT ctr 
430 FOR ctr=1 TO 38 @ READ bt @ black_king$[ctr,ctr]=CHR$(bt) @ NEXT ctr 
440 FOR ctr=1 TO 38 @ READ bt @ black_queen$[ctr,ctr]=CHR$(bt) @ NEXT ctr 
450 !
460 FOR ctr=1 TO 38 @ READ bt @ white_pawn$[ctr,ctr]=CHR$(bt) @ NEXT ctr 
470 FOR ctr=1 TO 38 @ READ bt @ white_rook$[ctr,ctr]=CHR$(bt) @ NEXT ctr 
480 FOR ctr=1 TO 38 @ READ bt @ white_bishop$[ctr,ctr]=CHR$(bt) @ NEXT ctr 
490 FOR ctr=1 TO 38 @ READ bt @ white_knight$[ctr,ctr]=CHR$(bt) @ NEXT ctr 
500 FOR ctr=1 TO 38 @ READ bt @ white_king$[ctr,ctr]=CHR$(bt) @ NEXT ctr 
510 FOR ctr=1 TO 38 @ READ bt @ white_queen$[ctr,ctr]=CHR$(bt) @ NEXT ctr 
520 !
530 PEN 1 @ GCLEAR @ LINE TYPE 1 @ LOCATE 0,200,0,100 @ SCALE 0,511,0,254 
540 CLIP 139,371,11,243 @ FRAME @ GRID 29,29,139,11 @ OPTION BASE 1
550 !
560 x_count=150 
570 FOR ctr=1 TO 8 
580    !
590    MOVE x_count,Y_1 
600    IF ctr=1 THEN BPLOT black_rook$,2 
610    IF ctr=2 THEN BPLOT black_knight$,2 
620    IF ctr=3 THEN BPLOT black_bishop$,2 
630    IF ctr=4 THEN BPLOT black_king$,2 
640    IF ctr=5 THEN BPLOT black_queen$,2 
650    IF ctr=6 THEN BPLOT black_bishop$,2 
660    IF ctr=7 THEN BPLOT black_knight$,2 
670    IF ctr=8 THEN BPLOT black_rook$,2 
680    !
690    MOVE x_count,Y_2 @ BPLOT black_pawn$,2 
700    !
710    MOVE x_count,Y_3 @ BPLOT white_pawn$,2 
720    !
730    MOVE x_count,Y_4 
740    IF ctr=1 THEN BPLOT white_rook$,2 
750    IF ctr=2 THEN BPLOT white_knight$,2 
760    IF ctr=3 THEN BPLOT white_bishop$,2 
770    IF ctr=4 THEN BPLOT white_king$,2 
780    IF ctr=5 THEN BPLOT white_queen$,2 
790    IF ctr=6 THEN BPLOT white_bishop$,2 
800    IF ctr=7 THEN BPLOT white_knight$,2 
810    IF ctr=8 THEN BPLOT white_rook$,2 
820    !
830    x_count=x_count+INCREMENT 
840    !
850 NEXT ctr 
860 !
870 END