5 DV=PEEK(186):IFDV<8THENDV=8
10 PRINT"[144][147]":POKE53280,0:POKE53281,0
20 SYS57812"14-15.FONT",DV,0:POKE780,0:POKE781,0:POKE782,200:SYS65493
30 SYS57812"TOD.O",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
40 PRINT"[144][147]":POKE56576,4:POKE53272,18:POKE648,196:POKE53265,27
50 POKE53280,0:POKE53281,0:PRINT"[154][147][155]"
60 OPEN1,DV,2:CLOSE1:Q=ST:IFQ=0THEN70
61 FORX=1TO5:HI$(1,X)="-------":HI$(2,X)="-------"
62 HI(1,X)=99:HI(2,X)=3835:NEXT:GOTO90
70 OPEN1,DV,2,"14-15.HI,S,R":FORX=1TO2:FORY=1TO5:INPUT#1,HI$(X,Y),HI(X,Y)
80 NEXT:NEXT:CLOSE1
90 DIMN$(15),GD(16)
100 FORX=0TO15:READN$(X):NEXT
110 DATA"[179][180][181][157][157][157][182][183][184]","[146][193][194][195][157][157][157][196][197][198]","[146][199][200][201][157][157][157][202][203][204]","[146][205][206][207][157][157][157][208][209][210]"
120 DATA"[146][211][212][213][157][157][157][214][215][216]","[146][161][162][163][157][157][157][164][165][166]","[146][167][168][169][157][157][157][170][171][172]","[146][173][174][175][157][157][157][176][177][178]"
130 DATA"[146][179][180][181][157][157][157][182][183][184]","[193][194][195][157][157][157][196][197][198]","[199][200][201][157][157][157][202][203][204]","[205][206][207][157][157][157][208][209][210]"
140 DATA"[211][212][213][157][157][157][214][215][216]","[161][162][163][157][157][157][164][165][166]","[167][168][169][157][157][157][170][171][172]","[173][174][175][157][157][157][176][177][178]"
150 S$="[157][145][157][157][157][145][145][157][157]"
160 FORX=1TO6:READQ$(X):NEXT
170 DATA"1.[160]14-15[160]PUZZLE","2.[160]REVERSE[160]PUZZLE","3.[160]RANDOM[160]PUZZLE"
180 DATA"4.[160]14-15[160]SOLUTION","5.[160]INSTRUCTIONS","6.[160]QUIT"
190 PRINT"[154][147]"TAB(6)"@AAAAAAAAAAAAAAAAAAAAAAAAAAB"
200 PRINTTAB(6)"C[146][158]REVERSE[160]PUZZLE[160]BEST[160]SCORESD[146] "
210 PRINTTAB(6)"EFFFFFFFFFFFFFFFFFFFFFFFFFFG[146] "
220 PRINTTAB(7)"                            "
230 PRINT"[156]"TAB(5)"@AAAAAAAAAAAAAAAAAAAAAAAAAAAAB":FORX=1TO15
240 PRINTTAB(5)"[156]C[146][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]D[146] ":NEXT
250 PRINTTAB(5)"[156]EFFFFFFFFFFFFFFFFFFFFFFFFFFFFG[146] "
260 PRINTTAB(6)"                              "
270 PRINT"[159]"
280 FORX=1TO5:B$=MID$(STR$(HI(1,X)),2):PRINTTAB(7)HI$(1,X)TAB(33-LEN(B$))B$
290 NEXT:PRINT"";:FORX=1TO5:M=INT(HI(2,X)/64):S=(HI(2,X)AND63)
300 A$=MID$(STR$(M),2):IFM<10THENA$="0"+A$
310 B$=MID$(STR$(S),2):IFS<10THENB$="0"+B$
320 PRINTTAB(7)HI$(2,X)TAB(28)A$":"B$:NEXT
330 PRINTTAB(7)"[158]PRESS[160]ANY[160]KEY[160]TO[160]CONTINUE"
340 GOSUB2180
350 PRINT"[154][147]"TAB(10)"@AAAAAAAAAAAAAAAAB"
360 PRINTTAB(10)"C[146][158]THE[160]14-15[160]PUZZLED[146] "
370 PRINTTAB(10)"EFFFFFFFFFFFFFFFFG[146] "
380 PRINTTAB(11)"                  "
390 PRINT""TAB(8)"@AAAAAAAAAAAAAAAAAAAAB"
400 PRINTTAB(8)"C[146][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]D[146] "
410 PRINTTAB(8)"C[146][153][160]"Q$(1)"[160][160][160][160]D[146] "
420 PRINTTAB(8)"C[146][153][160]"Q$(2)"[160][160]D[146] "
430 PRINTTAB(8)"C[146][153][160]"Q$(3)"[160][160][160]D[146] "
440 PRINTTAB(8)"C[146][153][160]"Q$(4)"[160][160]D[146] "
450 PRINTTAB(8)"C[146][153][160]"Q$(5)"[160][160][160][160]D[146] "
460 PRINTTAB(8)"C[146][153][160]"Q$(6)"[160][160][160][160][160][160][160][160][160][160][160][160]D[146] "
470 PRINTTAB(8)"C[146][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]D[146] "
480 PRINTTAB(8)"EFFFFFFFFFFFFFFFFFFFFG[146] "
490 PRINTTAB(9)"                      "
500 PRINT""TAB(8)"@AAAAAAAAAAAAAAAAAAAAB"
510 PRINTTAB(8)"C[146][158][160][160][160]BY[160]BRIAN[160]BOESE[160][160][160]D[146] "
520 PRINTTAB(8)"C[146][158][160][160](C)1991[160]SOFTDISK[160][160]D[146] "
530 PRINTTAB(8)"EFFFFFFFFFFFFFFFFFFFFG[146] "
540 PRINTTAB(9)"                      ":A=1
550 B$=CHR$(A+48)
560 PRINT""TAB(10);:FORX=1TOA:PRINT"";:NEXT:PRINTQ$(A)
570 GOSUB2180
580 IF(Z$<>""ANDZ$<>"[145]"ANDZ$<>CHR$(13))AND(Z$<"1"ORZ$>"6")THEN560
590 IFZ$=CHR$(13)THEN650
600 IFZ$>"0"ANDZ$<"7"THENB$=Z$:GOTO650
610 PRINT"[153]"TAB(10);:FORX=1TOA:PRINT"";:NEXT:PRINTQ$(A)
620 IFZ$=""THENA=A+1:IFA=7THENA=1
630 IFZ$="[145]"THENA=A-1:IFA=0THENA=6
640 GOTO550
650 IFB$="6"THEN3000
660 IFB$="5"THENGOSUB1690:GOTO190
670 FORX=1TO13:GD(X)=X:NEXT:GD(14)=15:GD(15)=14:GD(16)=0:PS=16:MV=0
680 IFB$<>"2"THEN700
690 FORX=2TO16:GD(X)=17-X:NEXT:GD(1)=0:PS=1:MV=0
700 IFB$<>"3"THEN740
710 PS=1:FORX=16TO2STEP-1:Q=INT(RND(0)*X+1):Z=GD(X):GD(X)=GD(Q):GD(Q)=Z
720 IFGD(X)=0THENPS=X
730 NEXT
740 PRINT"[154][147]"TAB(10)"@AAAAAAAAAAAAAAAAB"
750 PRINTTAB(10)"C[146][158]THE[160]14-15[160]PUZZLED[146] "
760 PRINTTAB(10)"EFFFFFFFFFFFFFFFFG[146] "
770 PRINTTAB(11)"                  "
780 PRINTTAB(12)"@AAAAAAAAAAAAB"
790 FORX=1TO8:PRINTTAB(12)"C[146][160][160][160][160][160][160][160][160][160][160][160][160]D[146] ":NEXT
800 PRINTTAB(12)"EFFFFFFFFFFFFG[146] ":PRINTTAB(13)"              "
810 PRINT""TAB(8)"@AAAAAAAAAAAAAAAAAAAAB"
820 PRINTTAB(8)"C[146][158][160]RETURN[160]-[160]TIMER[160]OFF[160]D[146] "
830 PRINTTAB(8)"C[146][158][160][160]Q[160]-[160]QUIT[160]TO[160]MENU[160][160]D[146] "
840 PRINTTAB(8)"EFFFFFFFFFFFFFFFFFFFFG[146] "
850 PRINTTAB(9)"                      [155]"
860 FORX=1TO16:GOSUB1670:NEXT
870 IFB$="4"THENGOSUB1590:GOTO190
880 PRINT"[156]"TAB(29)"@AAAAAAAB"
890 PRINTTAB(29)"C[146][159][160]00:00[160][156]D[146] [156]":PRINTTAB(29)"C[146][159][160][160][160][160]0[160][160][156]D[146] [156]"
900 PRINTTAB(29)"EFFFFFFFG[146] ":PRINTTAB(30)"         [155]"
910 SYS49152,31,11,3,"##:##"
920 GOSUB1260:IFB$<>"2"ORT<15THEN190
930 M=PEEK(49160):M=INT(M/16)*10+(MAND15):S=PEEK(49159):S=INT(S/16)*10+(SAND15)
940 TM=64*M+S:IF(TM>HI(2,5)ANDMV>HI(1,5))OR(PEEK(49161)>0)THEN190
950 PRINT"[154][147]"TAB(7)"@AAAAAAAAAAAAAAAAAAAAAAB"
960 PRINTTAB(7)"C[146][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]D[146] "
970 PRINTTAB(7)"C[146][159][160][160]YOU[160]MADE[160]THE[160]HIGH[160][160][160]D[146] "
980 PRINTTAB(7)"C[146][159][160][160]SCORE[160]LIST![160]ENTER[160][160][160]D[146] "
990 PRINTTAB(7)"C[146][159][160][160]YOUR[160]NAME:[160][160][160][160][160][160][160][160][160][160]D[146] "
1000 PRINTTAB(7)"C[146][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]D[146] "
1010 PRINTTAB(7)"C[146][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]D[146] "
1020 PRINTTAB(7)"C[146][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]D[146] "
1030 PRINTTAB(7)"EFFFFFFFFFFFFFFFFFFFFFFG[146] "
1040 PRINTTAB(8)"                        "
1050 PRINT"[145][145][145][145][156]"TAB(9)"[160][146][157]";:A$="":LN=0
1060 GOSUB2180:IF(Z$>="A"ANDZ$<="Z")OR(Z$>="0"ANDZ$<="9")THEN1080
1070 IFZ$<>" "ANDZ$<>CHR$(13)ANDZ$<>CHR$(20)THEN1060
1080 IFZ$=" "THENZ$="[160]"
1090 IFZ$=CHR$(13)THEN1140
1100 IF(Z$=CHR$(20))AND(LN>0)THENA$=LEFT$(A$,LN-1):PRINT"[157][160][146][160][157][157]";
1110 IF(Z$=CHR$(20))AND(LN>0)THENLN=LN-1:GOTO1060
1120 IF(LN<20)AND(Z$<>CHR$(20))THENA$=A$+Z$:PRINTZ$"[160][146][157]";:LN=LN+1
1130 GOTO1060
1140 PS=6
1150 PS=PS-1:IFTM>HI(2,PS)THEN1180
1160 HI(2,PS+1)=HI(2,PS):HI$(2,PS+1)=HI$(2,PS):HI(2,PS)=TM:HI$(2,PS)=A$
1170 IFPS>1THEN1150
1180 PS=6
1190 PS=PS-1:IFMV>HI(1,PS)THEN1220
1200 HI(1,PS+1)=HI(1,PS):HI$(1,PS+1)=HI$(1,PS):HI(1,PS)=MV:HI$(1,PS)=A$
1210 IFPS>1THEN1190
1220 OPEN1,DV,2:CLOSE1:Q=ST:IFQ<>0THEN1250
1230 OPEN15,DV,15,"S0:14-15.HI":CLOSE15:OPEN1,DV,2,"14-15.HI,S,W"
1240 FORX=1TO2:FORY=1TO5:PRINT#1,HI$(X,Y):PRINT#1,HI(X,Y):NEXT:NEXT:CLOSE1
1250 GOTO190
1260 T=1:LW=GD(1):FORX=1TO16:IFGD(X)>LWTHENT=T+1:LW=LW+1
1270 NEXT:IFT<15THEN1360
1280 SYS49155
1290 PRINT""TAB(11)"[156]@AAAAAAAAAAAAAAAB"
1300 PRINTTAB(11)"[156]C[146][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]D"
1310 PRINTTAB(11)"[156]C[146][159][160][160]YOU[160]GOT[160]IT![160][160][156]D"
1320 PRINTTAB(11)"[156]C[146][159][160]PRESS[160]ANY[160]KEY[160][156]D"
1330 PRINTTAB(11)"[156]C[146][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]D"
1340 PRINTTAB(11)"[156]EFFFFFFFFFFFFFFFG"
1350 GOSUB2180:RETURN
1360 GOSUB2180:A$=Z$
1370 IFA$<>CHR$(13)THEN1400
1380 SYS49155:POKE49161,1:PRINT""TAB(30)"[160]TIMER[160][157][157][157][157][157][157][157][160][160]OFF[160][160]"
1390 B$="4"
1400 IFA$="Q"THENSYS49155:RETURN
1410 GOSUB1430
1420 GOTO1260
1430 Q=0:IF(A$<>"")OR(PS<5)THEN1460
1440 GD(PS)=GD(PS-4):GD(PS-4)=0:PS=PS-4:Q=-1
1450 X=PS:GOSUB1670:X=PS+4:GOSUB1670:GOTO1550
1460 IF(A$<>"[145]")OR(PS>12)THEN1490
1470 GD(PS)=GD(PS+4):GD(PS+4)=0:PS=PS+4:Q=-1
1480 X=PS:GOSUB1670:X=PS-4:GOSUB1670:GOTO1550
1490 IF(A$<>"")OR((PSAND3)=1)THEN1520
1500 GD(PS)=GD(PS-1):GD(PS-1)=0:PS=PS-1:Q=-1
1510 X=PS:GOSUB1670:X=PS+1:GOSUB1670:GOTO1550
1520 IF(A$<>"[157]")OR((PSAND3)=0)THEN1550
1530 GD(PS)=GD(PS+1):GD(PS+1)=0:PS=PS+1:Q=-1
1540 X=PS:GOSUB1670:X=PS-1:GOSUB1670
1550 IFQTHENMV=MV+1
1560 IFB$="4"THEN1580
1570 MV$=MID$(STR$(MV),2):PRINT"[159]"TAB(35-LEN(MV$))MV$"[155]"
1580 RETURN
1590 FORZ=1TO20:A$=MID$(S$,Z,1):GOSUB1430
1600 FORX=1TO400:NEXT:NEXT:FORX=1TO2000:NEXT
1610 PRINT""TAB(11)"[156]@AAAAAAAAAAAAAAAB"
1620 PRINTTAB(11)"[156]C[146][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]D"
1630 PRINTTAB(11)"[156]C[146][159][160]PRESS[160]ANY[160]KEY[160][156]D"
1640 PRINTTAB(11)"[156]C[146][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]D"
1650 PRINTTAB(11)"[156]EFFFFFFFFFFFFFFFG"
1660 GOSUB2180:RETURN
1670 PRINT"":FORA=0TOINT((X-1)/4):PRINT"";:NEXT:PRINT"";
1680 FORA=0TOX-4*INT((X-1)/4):PRINT"";:NEXT:PRINTN$(GD(X)):RETURN
1690 PRINT"[154][147]@AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB"
1700 PRINT"C[146][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]D[146] "
1710 PRINT"C[146][156][160][160][160][160][160][160][160][160]THE[160]14-15[160]PUZZLE[160][160][160][160][160][160][160][160][160]D[146] "
1720 PRINT"C[146][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]D[146] "
1730 PRINT"C[146][159][160]THIS[160]GAME[160]IS[160]BASED[160]ON[160]THE[160][160][160][160][160][160][160]D[146] "
1740 PRINT"C[146][159][160]ORIGINAL[160]14-15[160]PUZZLE[160]INVENTED[160][160]D[146] "
1750 PRINT"C[146][159][160]BY[160]SAM[160]LOYD[160]OVER[160]100[160]YEARS[160]AGO.[160]D[146] "
1760 PRINT"C[146][159][160]THE[160]OBJECT[160]IS[160]TO[160]PLACE[160]ALL[160]OF[160][160][160]D[146] "
1770 PRINT"C[146][159][160]THE[160]TILES[160]INTO[160]NUMERICAL[160]ORDER[160][160]D[146] "
1780 PRINT"C[146][159][160]FROM[160]1[160]TO[160]15.[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]D[146] "
1790 PRINT"C[146][159][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]D[146] "
1800 PRINT"C[146][159][160]THE[160]ONLY[160]DIFFERENCE[160]BETWEEN[160][160][160][160][160]D[146] "
1810 PRINT"C[146][159][160]THIS[160]PUZZLE[160]AND[160]THE[160]ORIGINAL[160][160][160][160]D[146] "
1820 PRINT"C[146][159][160]IS[160]THAT[160]THE[160]SPACE[160]DOES[160]NOT[160][160][160][160][160][160]D[146] "
1830 PRINT"C[146][159][160]COUNT[160]AND[160]MAY[160]BE[160]PLACED[160][160][160][160][160][160][160][160][160]D[146] "
1840 PRINT"C[146][159][160]ANYWHERE[160]AS[160]LONG[160]AS[160]ALL[160]OF[160]THE[160][160]D[146] "
1850 PRINT"C[146][159][160]OTHER[160]TILES[160]ARE[160]IN[160]NUMERICAL[160][160][160][160]D[146] "
1860 PRINT"C[146][159][160]ORDER.[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]D[146] "
1870 PRINT"C[146][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]D[146] "
1880 PRINT"C[146][158][160][160][160][160]PRESS[160]ANY[160]KEY[160]TO[160]CONTINUE[160][160][160][160]D[146] "
1890 PRINT"C[146][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]D[146] "
1900 PRINT"EFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFG[146] "
1910 PRINT"[146]                                   "
1920 GOSUB2180
1930 PRINT"[154][147]@AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB"
1940 PRINT"C[146][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]D[146] "
1950 PRINT"C[146][156][160][160][160][160][160][160][160][160]THE[160]14-15[160]PUZZLE[160][160][160][160][160][160][160][160][160]D[146] "
1960 PRINT"C[146][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]D[146] "
1970 PRINT"C[146][159][160]THIS[160]PROGRAM[160]ALSO[160]HAS[160]A[160]REVERSE[160]D[146] "
1980 PRINT"C[146][159][160]PUZZLE,[160]WHERE[160]ALL[160]OF[160]THE[160]TILES[160][160]D[146] "
1990 PRINT"C[146][159][160]START[160]IN[160]REVERSE[160]ORDER.[160]THE[160][160][160][160][160]D[146] "
2000 PRINT"C[146][159][160]BEST[160]5[160]TIMES[160]AND[160]SCORES[160]ARE[160][160][160][160][160]D[146] "
2010 PRINT"C[146][159][160]SAVED[160]FOR[160]THIS[160]PUZZLE.[160]THERE[160]IS[160]D[146] "
2020 PRINT"C[146][159][160]ALSO[160]A[160]RANDOM[160]START[160]AVAILABLE[160][160][160]D[146] "
2030 PRINT"C[146][159][160]SO[160]THAT[160]YOU[160]CAN[160]STILL[160]HAVE[160]A[160][160][160][160]D[146] "
2040 PRINT"C[146][159][160]CHALLENGE[160]WHEN[160]YOU[160]HAVE[160]SOLVED[160][160]D[146] "
2050 PRINT"C[146][159][160]BOTH[160]PUZZLES.[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]D[146] "
2060 PRINT"C[146][159][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]D[146] "
2070 PRINT"C[146][159][160]TO[160]PLAY,[160]A[160]JOYSTICK[160]IN[160]PORT[160]TWO[160]D[146] "
2080 PRINT"C[146][159][160]OR[160]THE[160]CURSOR[160]KEYS[160]ARE[160]USED[160]TO[160][160]D[146] "
2090 PRINT"C[146][159][160]PUSH[160]TILES[160]INTO[160]THE[160]EMPTY[160][160][160][160][160][160][160]D[146] "
2100 PRINT"C[146][159][160]SPACE.[160]FIRE[160]BUTTON[160]OR[160]RETURN[160][160][160][160]D[146] "
2110 PRINT"C[146][159][160]TURNS[160]OFF[160]THE[160]TIMER.[160][160][160][160][160][160][160][160][160][160][160][160]D[146] "
2120 PRINT"C[146][159][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]D[146] "
2130 PRINT"C[146][158][160][160][160][160]PRESS[160]ANY[160]KEY[160]TO[160]CONTINUE[160][160][160][160]D[146] "
2140 PRINT"C[146][159][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]D[146] "
2150 PRINT"EFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFG[146] "
2160 PRINT"[146]                                   "
2170 GOSUB2180:RETURN
2180 JS=PEEK(56320)AND31:GETZ$:IFJS=31ANDZ$=""THEN2180
2190 IFJS=15THENZ$=CHR$(13)
2200 IFJS=29THENZ$=""
2210 IFJS=30THENZ$="[145]"
2220 IFJS=23THENZ$=""
2230 IFJS=27THENZ$="[157]"
2240 RETURN
3000 PRINT"[147]":POKE648,4:PRINT"[147]":POKE56576,(PEEK(56576)AND252)OR3:POKE53272,21
3010 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
3020 IFER<>63THENEND
3030 PRINT"[147][144]LOAD"CHR$(34)"HELLO CONNECT"CHR$(34)",8"
3040 PRINT"RUN"
3050 POKE631,13:POKE632,13:POKE198,2:END
10000 OPEN15,8,15,"S0:14-15":CLOSE15:SAVE"14-15",8:END