10 REM Sevens Loader
   20 REM by M.Bobrowski 2/94
   30 REM for 8-Bit Software P.D.
   40 :
   50 MODE1:VDU23;8202;0;0;0;19,2,2;0;:COLOUR130:CLS
   60 VDU23,224,0,54,127,127,127,62,28,8,23,225,0,8,28,62,127,127,28,62,23,226,0,8,28,62,127,62,28,8,23,227,0,28,28,107,127,107,8,28
   70 C$=CHR$17+CHR$1+CHR$224+CHR$17+CHR$0+CHR$225+CHR$17+CHR$1+CHR$226+CHR$17+CHR$0+CHR$227:D$=CHR$17+CHR$0+CHR$227+CHR$17+CHR$1+CHR$226+CHR$17+CHR$0+CHR$225+CHR$17+CHR$1+CHR$224:DD%=?&D0:?&D0=2
   80 FORJ%=0TO15:PRINTSTRING$(10,C$);STRING$(10,D$);:NEXT:?&D0=DD%
   90 PROCtitle("SEVENS",3,176,991)
  100 VDU28,2,29,37,7:COLOUR131:CLS:VDU28,3,28,36,8:COLOUR0
  110 PROCtext
  120 CHAIN"SevensM"
  130 :
  140 DEF PROCtext
  150 PRINT"The object of the game is to put"'"all the cards in your hand down"'"before the computer can. You may"'"only lay one card down at a time,"'"starting from seven and going up"'"and down to King and Ace."
  160 PRINT'"To play a card you have to enter"'"two characters. The first one is"'"a single letter or a number that"'"refers to the card's value, ie.":COLOUR1:PRINT"A 2 3 4 5 6 7 8 9 T J Q K";:COLOUR0:PRINT" (where: ";
  170 COLOUR1:PRINT"A";:COLOUR0:PRINT" stands for Ace, ";:COLOUR1:PRINT"T";:COLOUR0:PRINT" - for Ten, ":COLOUR1:PRINT"J";:COLOUR0:PRINT" - for Jack, ";:COLOUR1:PRINT"Q";:COLOUR0:PRINT" - for Queen, and":COLOUR1:PRINT"K";
  180 COLOUR0:PRINT" - for King). The second one is  a letter and indicates the suit,"'"ie. ";:COLOUR1:PRINT"H D S C";:COLOUR0:PRINT" (where: ";:COLOUR1:PRINT"H";:COLOUR0:PRINT" stands for"'"Hearts, ";:COLOUR1:PRINT"D";
  190 COLOUR0:PRINT" - for Diamonds, ";:COLOUR1:PRINT"S";:COLOUR0:PRINT" - for Spades, and ";:COLOUR1:PRINT"C";:COLOUR0:PRINT" for Clubs)."
  200 COLOUR3:PRINT'TAB(5);:COLOUR129:PRINT" Press SPACE to continue ";:REPEATUNTILGET=32
  210 COLOUR131:CLS:COLOUR0:PRINT"Thus, for example, if you want to play the Two of Hearts, then type ";:COLOUR1:PRINT"2H";:COLOUR0:PRINT" and press ";:COLOUR1:PRINT"RETURN";:COLOUR0:PRINT". To play the"'"Queen of Spades enter ";
  220 COLOUR1:PRINT"QS";:COLOUR0:PRINT",and to"'"play the Ten of Clubs enter ";:COLOUR1:PRINT"TC";:COLOUR0:PRINT"."''"If you cannot go just press ";:COLOUR1:PRINT"RETURN";:COLOUR0:PRINT"and you will be dealt a card."
  230 PRINT'"Your cards are displayed in the"'"left bottom part of the screen."
  240 COLOUR1:PRINTTAB(5,20)"Now press SPACE to start ";:REPEAT:UNTILGET=32
  250 ENDPROC
  260 :
  270 DEF PROCtitle(A$,C%,H%,V%)
  280 VDU 23,240,248,248,248,248,248,248,0;
  290 GCOL 0,C%:FOR K%=1 TO LENA$:SOUND1,-10,100+K%*4,2
  300 ?&70=ASCMID$(A$,K%,1)
  310 A%=10:X%=&70:Y%=0:CALL &FFF1
  320 Y%=V%:FOR J%=0 TO 7:B%=J%?&71
  330 FOR I%=7 TO 0 STEP-1:Z%=2^I%
  340 IF B%DIVZ% X%=7-I%:VDU5:MOVE H%+X%*20,Y%:VDU240,4
  350 B%=B%MODZ%
  360 NEXT:Y%=Y%-24
  370 NEXT:H%=H%+154
  380 NEXT:SOUND1,-10,100+K%*4,4
  390 ENDPROC