※タイル模様を定義するプログラムリスト部分（背景白版“CAMDP.BAS”より）

7550 '========================================
7560 *ACOL
7570 '========================================
7580 ACOL=3
7590 IF N(I)=0 THEN ACOL=7
7600 IF N(I)=1 THEN ACOL=5
7610 IF N(I)=6 THEN ACOL=4
7620 IF N(I)=7 THEN ACOL=1
7630 IF N(I)=8 THEN ACOL=2
7640 IF N(I)=16 THEN ACOL=6
7650 RETURN

　　　……………

14750 '==========タイルストリング============================
14760 *ATIL
14770 '======================================================
14780 ATIL$=CHR$(&HFF)+CHR$(&HFF)+CHR$(&HEE)+CHR$(&HFF) +CHR$(&HFF)+CHR$(&HFF)+CHR$(&HFF)+CHR$(&HFF)+CHR$(&HFF)+CHR$(&HFF) +CHR$(&HFF)+CHR$(&HFF)
14790 IF N(I)=1 THEN ATIL$=CHR$(&HFF)+CHR$(&H77)+CHR$(&HFF) +CHR$(&HFF)+CHR$(&HDD)+CHR$(&HFF)
14800 IF N(I)=6 THEN ATIL$=CHR$(&H77)+CHR$(&H77)+CHR$(&HFF)+CHR$(&HFF) +CHR$(&HFF)+CHR$(&HFF)+CHR$(&HDD)+CHR$(&HDD)+CHR$(&HFF)+CHR$(&HFF) +CHR$(&HFF)+CHR$(&HFF)
14810 IF N(I)=7 THEN ATIL$=CHR$(&HFF)+CHR$(&H0)+CHR$(&H0) +CHR$(&HFF)+CHR$(&HFF)+CHR$(&HFF)
14820 IF N(I)=8 THEN ATIL$=CHR$(&H55)+CHR$(&HFF)+CHR$(&H55) +CHR$(&HAA)+CHR$(&HFF)+CHR$(&HAA)
14830 IF N(I)=9 THEN ATIL$=CHR$(&HFF)+CHR$(&HFF)+CHR$(&H77)+CHR$(&HFF) +CHR$(&HFF)+CHR$(&HEE)+CHR$(&HFF)+CHR$(&HFF)+CHR$(&HDD)+CHR$(&HFF) +CHR$(&HFF)+CHR$(&HBB)
14840 IF N(I)=11 THEN ATIL$=CHR$(&HFF)+CHR$(&HFF)+CHR$(&H0) +CHR$(&HFF)+CHR$(&HFF)+CHR$(&HAA)
14850 IF N(I)=15 THEN ATIL$=CHR$(&HFF)+CHR$(&HFF)+CHR$(&H0)+CHR$(&HFF) +CHR$(&HFF)+CHR$(&H0)+CHR$(&HFF)+CHR$(&HFF)+CHR$(&HFF)
14860 IF N(I)=16 THEN ATIL$=CHR$(&H77)+CHR$(&HFF)+CHR$(&HFF)+CHR$(&HAA) +CHR$(&HFF)+CHR$(&HFF)+CHR$(&HDD)+CHR$(&HFF)+CHR$(&HFF)+CHR$(&HAA) +CHR$(&HFF)+CHR$(&HFF)
14870 IF N(I)=17 THEN ATIL$=CHR$(&HFF)+CHR$(&HFF)+CHR$(&H33)+CHR$(&HFF) +CHR$(&HFF)+CHR$(&H66)+CHR$(&HFF)+CHR$(&HFF)+CHR$(&HCC)+CHR$(&HFF) +CHR$(&HFF)+CHR$(&H99)