10 REM PROGRAM PYRAMID
   20 REM By Leslie J. Fowl.
   30 MODE7:VDU23,1,0;0;0;0;
   40 CLS:PROCvdu:REPEAT:PRINTTAB(0,12);CHR$131;"Do you want instructions ? (Y/N)";
   50 G$=GET$:CLS:IF G$="N" THEN GOTO70
   60 PROCinstruct
   70 CHAIN "PYR"
   80 END
   90 :
  100 DEF PROCvdu
  110 VDU23,230,204,204,51,51,204,204,51,51
  120 VDU23,231,8,28,62,127,62,28,8,0
  130 VDU23,232,54,127,127,127,62,28,8,0
  140 VDU23,233,8,28,28,107,127,107,8,28
  150 VDU23,234,8,28,62,127,127,127,28,62
  160 VDU23,235,1,3,3,7,7,15,15,31
  170 VDU23,236,0,128,128,192,192,224,224,240
  180 VDU23,237,31,15,15,7,7,3,3,1
  190 VDU23,238,240,224,224,192,192,128,128,0
  200 VDU23,239,24,124,126,255,255,255,255,255
  210 VDU23,240,48,124,252,254,254,254,254,254
  220 VDU23,241,255,127,127,63,31,15,7,3
  230 VDU23,242,254,252,252,248,240,224,192,128
  240 VDU23,243,3,7,15,15,15,7,59,125
  250 VDU23,244,128,192,224,224,224,192,184,124
  260 VDU23,245,255,255,255,125,57,1,3,7
  270 VDU23,246,254,254,254,124,56,0,128,192
  280 VDU23,247,1,3,7,15,15,31,31,63
  290 VDU23,248,0,128,192,224,224,240,240,248
  300 VDU23,249,63,63,31,31,13,1,3,7
  310 VDU23,250,248,248,240,240,96,0,128,192
  320 ENDPROC
  330 :
  340 DEF PROCintro
  350 X%=10:FOR Y%=6 TO 7
  360 PRINTTAB(X%,Y%);CHR$133;CHR$141"Welcome to"
  370 NEXT
  380 X%=7:FOR Y%=9 TO 10
  390 PRINTTAB(X%,Y%);CHR$131;CHR$141"PYRAMID PATIENCE"
  400 NEXT
  410 X%=13:FOR Y%=12 TO 13
  420 PRINTTAB(X%,Y%);CHR$134;CHR$141"By":NEXT
  430 X%=5:FOR Y%=16 TO 17
  440 PRINTTAB(X%,Y%);CHR$130;CHR$141"Leslie 'LEE' J. Fowl."
  450 NEXT:PROCvdu
  460 REPEAT:PRINTTAB(0,24);CHR$129;"HIT SPACE when ready to play....";:UNTILGET=32
  470 ENDPROC
  480 :
  490 DEF PROCinstruct
  500 CLS:VDU28,0,4,39,0
  510 FOR Y%=1 TO 2
  520 PRINTTAB(8,Y%);CHR$133;CHR$141;"Pyramid Patience":NEXT
  530 PRINTTAB(6,3);CHR$134;"By Leslie 'LEE' J. Fowl."
  540 VDU28,0,24,39,23
  550 PRINTTAB(8);CHR$130;"Press shift for more"
  560 VDU28,0,22,39,4,14
  570 PRINT'CHR$131;"The pyramid is formed by a deal of 28"'CHR$131"cards, With a King always at the apex."
  580 PRINTCHR$131;"The stock is located in the top right"'CHR$131"hand corner with the first card being"'CHR$131"dealt, The waste pile is used for the"'CHR$131"discarded cards from the Stock pile."
  590 PRINT'CHR$131;"At the start of the game the stock card"CHR$131;"and cards in row six only are available"CHR$131"and they are removed in pairs that"'CHR$131"total thirteen, Once removed they"'CHR$131"are no longer in play."
  600 PRINTCHR$131;"The cards in the upper rows become"'CHR$131;"available when the two adjacent cards"'CHR$131;"in the row beneath them are removed."
  610 PRINTCHR$131;"Available cards in the table can be"'CHR$131;"paired with one other if their total"'CHR$131;"pip value is thirteen."
  620 IF INKEY(-1)CLS
  630 PRINTCHR$131;"The stock is dealt one card at a time"'CHR$131;"and can be paired with an other if the"'CHR$131;"total is thirteen. The stock is dealt"'CHR$131;"automaticaly when a card is removed"
  640 PRINTCHR$131;"from the stock pile, Or a manual deal"'CHR$131;"is made using the";CHR$133"'@'";CHR$131;"key followed by"'CHR$131;"return."
  650 PRINT'CHR$131;"If a card in the Waste pile + a card "'CHR$131;"in the Stock or pyramid total thirteen"'CHR$131;"Then both of these may also be removed"'CHR$131"by typing"
  660 PRINTCHR$133;"'W' <RETURN> + 'S' <RETURN>. or the "'CHR$133;"cards co-ordinates"
  670 PRINT'CHR$131;"At any time during the game the card"'CHR$131;"status may be viewed by pressing"'CHR$133;"'T' <RETURN>."
  680 PRINT'':IF INKEY(-1)CLS
  690 PRINT'CHR$131;"Typing"CHR$133;"'Q'"CHR$131"will abandon the game and"'CHR$131;"reveal the status as above"
  700 PRINT'CHR$131;"Enter the cards that are to be removed"'CHR$131;"by entering its co-ordinates"'CHR$131;"as row and column i.e.";CHR$133;"6G <RETURN>."''
  710 PRINT'CHR$134"The game is won only when all the of"'CHR$134"the cards except the KING at the top "'CHR$134"of the pyramid have been removed."'CHR$134"Including both Waste & Stock Piles."
  720 PRINT''''':IF INKEY(-1) CLS
  730 PRINT'CHR$130;CHR$141;"Card Values :-"
  740 PRINTCHR$130;CHR$141;"Card Values :-"
  750 PRINT'CHR$130;"Ace   =  1"
  760 PRINTCHR$130;"Jack  =  11"
  770 PRINTCHR$130;"Queen =  12"
  780 PRINTCHR$130;"King  =  13 ( removed singly )"
  790 PRINT'CHR$130;"All other cards as face value"
  800 PRINT''" The only rule is:-"''CHR$133"If it's legal you can do it....."
  810 PRINT'" Hint:-"'CHR$133"Don't let the waste pile get too big.."
  820 VDU28,0,24,39,23
  830 PRINTTAB(8);CHR$134;"Press SPACE to play.....":REPEAT UNTIL GET=32
  840 VDU22,7:ENDPROC