10  REM 7 Card Patience (Characters)
   20  REM by Carl Wheat 1992 for BBC B
   30  REM 8 Bit Software
   40  :
   50  MODE1:VDU23;8202;0;0;0;:*FX4,1
   60  VDU19,2,2,0,0,0:GCOL0,130
   70  *LOAD SCREEN FFFF3000
   80  *FX21,0
   90  *FX229,1
  100  K$=GET$
  110  IF K$="Y" OR K$="y" PROCinst
  120  *FX20,1
  130  ?&36C=&9
  140  VDU23,160,0,0,0,0,0,1,3,7
  150  VDU23,161,15,31,63,127,255,255,255,255
  160  VDU23,162,128,128,192,192,192,192,224,224
  170  VDU23,163,14,28,24,48,48,48,48,48
  180  VDU23,164,1,3,4,8,0,6,6,0
  190  VDU23,165,7,1,0,0,0,0,0,0
  200  VDU23,166,248,62,31,7,3,49,48,128
  210  VDU23,167,240,176,144,152,136,168,168,164
  220  VDU23,168,40,56,56,56,16,0,0,0
  230  VDU23,169,0,0,4,4,20,12,8,8
  240  VDU23,170,48,48,40,44,27,26,15,3
  250  VDU23,171,0,0,1,0,0,0,0,0
  260  VDU23,172,128,0,192,0,0,0,0,0
  270  VDU23,173,1,1,3,13,243,74,108,241
  280  VDU23,174,164,164,164,162,194,146,146,145
  290  VDU23,175,24,24,30,30,7,7,7,7
  300  VDU23,176,15,59,229,201,147,165,201,147
  310  VDU23,177,0,0,0,8,8,20,20,20
  320  VDU23,178,145,145,145,161,137,137,137,137
  330  VDU23,179,15,12,24,17,51,40,36,109
  340  VDU23,180,165,201,147,165,201,147,165,201
  350  VDU23,181,0,0,28,12,15,15,7,7
  360  VDU23,182,137,137,141,133,165,165,165,165
  370  VDU23,183,0,0,113,113,255,255,255,255 
  380  VDU23,184,0,0,192,128,128,128,0,0
  390  VDU23,185,20,20,20,20,20,20,20,20
  400  VDU23,186,4,4,4,11,8,24,4,3
  410  VDU23,187,31,31,15,15,15,7,7,7
  420  VDU23,188,0,128,128,128,192,192,224,224
  430  VDU23,189,4,15,0,0,0,0,0,0
  440  VDU23,190,7,255,0,0,0,0,0,0
  450  VDU23,191,240,240,0,0,0,0,0,0
  460  VDU23,224,24,60,126,255,24,24,24,24
  470  VDU23,225,129,66,129,129,195,255,153,255
  480  VDU23,226,112,96,64,76,222,194,193,193
  490  VDU23,227,14,7,3,99,243,7,7,7
  500  VDU23,228,0,0,0,0,128,128,128,192
  510  VDU23,229,1,1,3,3,32,80,152,152
  520  VDU23,230,225,224,247,232,31,15,3,1
  530  VDU23,231,7,7,207,63,248,240,192,128
  540  VDU23,232,192,192,240,240,0,0,0,0
  550  VDU23,233,152,156,156,140,204,76,78,78
  560  VDU23,234,7,25,52,114,249,244,242,249
  570  VDU23,235,204,204,51,51,204,204,51,51
  580  VDU23,236,224,248,254,255,255,207,204,252
  590  VDU23,237,70,102,38,39,39,35,35,35
  600  VDU23,238,244,242,249,244,242,249,244,242
  610  VDU23,239,255,255,243,243,255,255,255,255
  620  VDU23,240,0,28,28,107,127,107,8,0
  630  VDU23,241,0,8,28,62,62,28,8,0
  640  VDU23,242,0,54,127,127,62,28,8,0
  650  VDU23,243,0,8,28,62,62,8,28,0
  660  VDU23,244,0,0,2,2,2,6,4,12
  670  VDU23,245,0,0,170,170,170,170,170,170
  680  VDU23,246,0,0,160,160,176,144,152,136
  690  VDU23,247,20,20,20,50,50,113,113,255
  700  VDU23,248,4,4,7,7,4,12,15,15
  710  VDU23,249,208,208,48,48,208,216,56,56
  720  VDU23,250,30,51,97,64,64,96,63,0
  730  VDU23,251,0,0,3,254,0,0,128,192
  740  VDU23,252,96,240,144,24,8,12,4,6
  750  VDU23,253,12,12,12,0,0,0,0,0
  760  VDU23,254,204,12,3,3,4,0,3,1
  770  VDU23,255,200,200,60,52,204,206,54,55
  780  L$=CHR$8:X$=CHR$9
  790  Y$=CHR$10:U$=CHR$11
  800  BJ$=CHR$247+L$+U$+CHR$185+CHR$189+CHR$190+CHR$191+STRING$(4,L$)+U$+CHR$185+CHR$186+CHR$187+CHR$188+STRING$(4,L$)+U$+CHR$177+L$+STRING$(3,Y$)
  810  RJ$=X$+CHR$248+CHR$235+CHR$249+STRING$(3,L$)+STRING$(3,U$)+CHR$181+CHR$183+CHR$184+STRING$(4,L$)+STRING$(3,Y$)
  820  GJ$=U$+X$+CHR$244+CHR$245+CHR$246
  830  BQ$=CHR$175+U$+CHR$171+CHR$172+L$+L$+U$+CHR$164+CHR$166+STRING$(3,L$)+Y$+Y$
  840  RQ$=X$+X$+CHR$235+STRING$(3,L$)+U$+CHR$168+CHR$170+CHR$173+L$+L$+U$+CHR$163+CHR$165+L$+L$+U$+CHR$160+CHR$161+L$+U$+CHR$160+STRING$(3,L$)+STRING$(4,Y$)
  850  GQ$=X$+CHR$176+X$+CHR$178+STRING$(4,L$)+U$+CHR$169+X$+X$+CHR$174+L$+U$+CHR$167+L$+U$+CHR$162
  860  BK$=CHR$233+U$+L$+CHR$229+CHR$230+CHR$231+CHR$232+U$+STRING$(3,L$)+CHR$226+CHR$227+CHR$228+Y$+Y$+STRING$(4,L$)
  870  RK$=X$+CHR$234+X$+CHR$236+STRING$(3,U$)+STRING$(3,L$)+CHR$225+CHR$225+STRING$(3,L$)+STRING$(3,Y$)
  880  GK$=X$+X$+CHR$235
  890  P$=STRING$(3,CHR$235)+STRING$(3,L$)+Y$:P$=STRING$(5,P$)
  900  BJ=&1100 : $BJ=BJ$
  910  RJ=&111B : $RJ=RJ$
  920  GJ=&1130 : $GJ=GJ$
  930  BQ=&113B : $BQ=BQ$
  940  RQ=&114A : $RQ=RQ$
  950  GQ=&1169 : $GQ=GQ$
  960  BK=&1184 : $BK=BK$
  970  RK=&1199 : $RK=RK$
  980  GK=&11AC : $GK=GK$
  990  P=&11B3 : $P=P$
 1000  PAGE=&1200:CHAIN"NEWPAT"
 1010  END
 1020  :
 1030  DEFPROCinst:VDU28,3,11,36,1
 1040  CLG:COLOUR 128:COLOUR 3:CLS
 1050  PRINT''"  The game is played like normal"
 1060  PRINT"  patience, build the columns in"
 1070  PRINT"  descending  order  alternating"
 1080  PRINT"  red & black."
 1090  PRINT"  KINGS can be moved to an empty":PRINT"  column."
 1100  PRINT"  Stack on top of ACES  moved to":PRINT"  the left side of the screen."
 1110  VDU28,2,26,37,13:CLS
 1120  PRINT''" Left & Right arrow keys move marker"
 1130  PRINTSPC(2)"A - Pick up a card or column"
 1140  PRINTSPC(2)"D - Drop a card or column"
 1150  PRINTSPC(2)"S - Move a card to the stack"''SPC(4)"Escape - Quit"
 1160  PRINT" SPACE BAR - Turn over three cards"'SPC(13)"from the pack."
 1170  PRINT" C - A small cheat to move the top"
 1180  PRINTSPC(5)"card to the back of the pack."
 1190  VDU28,5,30,34,29:CLS:VDU5
 1200  PROCbubble("= PATIENCE =",420,972)
 1210  PROCbubble("= USER KEYS =",400,584)
 1220  PROCbubble("PRESS ANY KEY TO CONTINUE.",228,72)
 1230  K$=GET$:ENDPROC
 1240  :
 1250  DEFPROCbubble(P$,X%,Y%)
 1260  GCOL0,3
 1270  MOVEX%-4,Y%-4:PRINT P$
 1280  MOVEX%+4,Y%-4:PRINT P$
 1290  MOVEX%-4,Y%+4:PRINT P$
 1300  MOVEX%+4,Y%+4:PRINT P$
 1310  GCOL0,1
 1320  MOVEX%,Y%:PRINT P$
 1330  ENDPROC