下面是一个制造点数为1-10的纸牌的程序，虽然界面没有真实的纸牌那么好看，但是已经非常像了。

如果你们谁想编个纸牌游戏就可以拿我这个程序来制造纸牌。

CLS
RANDOMIZE TIMER
SCREEN 12
LINE (1, 1)-(130, 160), 14, BF                  '画牌面
poi = INT(RND * 10) + 1                         '随机点数
IF poi = 1 THEN p$ = " A " ELSE p$ = STR$(poi) + " "
LOCATE 10, 13: PRINT p$                         '输出点数 
LOCATE 1, 1: PRINT p$
zl = INT(RND * 4) + 1      
k = zl + 2: k$ = CHR$(k)             '随机的花色，花色的ASCII码是3-6
IF poi = 10 THEN i = 15 ELSE i = 14
LOCATE 2, 1: PRINT " "; k$: LOCATE 9, i: PRINT " "; k$  '输出两个角的花色
DRAW "l130u160r130d160"
ON poi GOSUB 1, 2, 3, 4, 5, 6, 7, 8, 9, 10   '按点数输出中间的花色
END
1 LOCATE 5, 8: PRINT k$: RETURN
2 LOCATE 4, 8: PRINT k$: LOCATE 6, 8: PRINT k$: RETURN
3 LOCATE 3, 8: PRINT k$: LOCATE 5, 8: PRINT k$
  LOCATE 7, 8: PRINT k$: RETURN
4 LOCATE 4, 6: PRINT k$: LOCATE 4, 10: PRINT k$
  LOCATE 6, 6: PRINT k$: LOCATE 6, 10: PRINT k$: RETURN
5 LOCATE 3, 6: PRINT k$: LOCATE 3, 10: PRINT k$
  LOCATE 5, 8: PRINT k$: LOCATE 7, 6: PRINT k$
  LOCATE 7, 10: PRINT k$: RETURN
6 LOCATE 3, 6: PRINT k$: LOCATE 3, 10: PRINT k$
  LOCATE 5, 6: PRINT k$: LOCATE 5, 10: PRINT k$
  LOCATE 7, 6: PRINT k$: LOCATE 7, 10: PRINT k$: RETURN
7 LOCATE 2, 6: PRINT k$: LOCATE 2, 10: PRINT k$
  LOCATE 4, 8: PRINT k$: LOCATE 6, 6: PRINT k$
  LOCATE 6, 10: PRINT k$: LOCATE 8, 6: PRINT k$
  LOCATE 8, 10: PRINT k$: RETURN
8 LOCATE 2, 6: PRINT k$: LOCATE 2, 10: PRINT k$
  LOCATE 4, 6: PRINT k$: LOCATE 4, 10: PRINT k$
  LOCATE 6, 6: PRINT k$: LOCATE 6, 10: PRINT k$
  LOCATE 8, 6: PRINT k$: LOCATE 8, 10: PRINT k$: RETURN
9 LOCATE 3, 6: PRINT k$: LOCATE 3, 10: PRINT k$
  LOCATE 4, 8: PRINT k$: LOCATE 5, 6: PRINT k$
  LOCATE 5, 10: PRINT k$: LOCATE 6, 6: PRINT k$
  LOCATE 6, 10: PRINT k$: LOCATE 8, 6: PRINT k$
  LOCATE 8, 10: PRINT k$: RETURN
10 LOCATE 3, 6: PRINT k$: LOCATE 3, 10: PRINT k$
   LOCATE 4, 8: PRINT k$: LOCATE 5, 6: PRINT k$
   LOCATE 5, 10: PRINT k$: LOCATE 6, 6: PRINT k$
   LOCATE 6, 10: PRINT k$: LOCATE 7, 8: PRINT k$
   LOCATE 8, 6: PRINT k$: LOCATE 8, 10: PRINT k$: RETURN