1 REM 2/12/93 11:45 AM
3 DV=PEEK(186):IFDV<8THEN DV=8
4 PRINT"[147][159]":POKE53280,.:POKE53281,.
5 POKE788,52
10 GOSUB60000
60 D1$="[209][209][209][209][209][209][209][209][209]"
70 D2$="[209][209][209]"
80 D3$="[209][209][209][209][209][209][209][209][209]"
90 DIMRN(24):DIMI$(20)
100 FORL=1TO2000:NEXT
102 PRINT"[147]"
105 POKE53281,15:POKE53280,15
110 I$(0)="[208][197][212][193][204][211] [193][210][207][213][206][196] [212][200][197] [210][207][211][197]"+CHR$(13)
120 I$(1)="[151] [212]HIS IS A GAME PLAYED WITH SIX DICE."
130 I$(2)="[212]HE COMPUTER ROLLS THE DICE, ASSESSES"
140 I$(3)="THE OUTCOME, AND ANNOUNCES A NUMBER. [193]S"
150 I$(4)="[208][207][212][197][206][212][193][212][197] [207][198] [212][200][197] [210][207][211][197][151], THE COMPUTER"
160 I$(5)="KNOWS THE SECRET. [208]LAYERS MUST"
170 I$(6)="DETERMINE THE FORMULA BY WHICH THE"
180 I$(7)="[208][207][212][197][206][212][193][212][197][151] DERIVES THE NUMBER."+CHR$(13)
190 I$(8)="[212]HE NAME OF THE GAME IS SIGNIFICANT!!!"
200 I$(9)="[151][212]HE ANNOUNCED NUMBER IS ALWAYS EVEN AND"
210 I$(10)="IS INDEED A TRUE FUNCTION OF THE SIX"
220 I$(11)="FACES OF THE DICE."+CHR$(13)
230 I$(12)=" [208]RESS ANY KEY TO DISPLAY FOUR ROLLS OF"
240 I$(13)="THE DICE ALONG WITH THE CORRECT"
250 I$(14)="RESPONSE THAT THE [208][207][212][197][206][212][193][212][197] [207][198] [212][200][197] [210][207][211][197]"
260 I$(15)="[151]SHOULD GIVE WITH EACH."+CHR$(13)
270 I$(16)=" [195]AN YOU FIGURE OUT WHAT SIMPLE SYSTEM"
280 I$(17)="IS USED TO COME UP WITH EACH ANSWER?"
400 FORI=0TO17:PRINTTAB(20-(LEN(I$(I))/2))I$(I):NEXT
405 PRINTTAB(14)"[208]RESS ANY KEY"
410 GETA$:IFA$=""THEN410
500 PRINT"[147]"CHR$(142);:GOSUB8000
505 POKE646,0
510 FORL=1TO4
520 FORAA=1TO6
530 PRINT"[213][192][192][192][201]";
540 NEXT
550 PRINT
560 FORBB=1TO6
570 PRINT"[221]   [221]";
580 NEXTBB
590 PRINT
600 FORCC=1TO6
610 PRINT"[221]   [221]";
620 NEXTCC
630 PRINT" = "
640 FORDD=1TO6
650 PRINT"[221]   [221]";
660 NEXTDD
670 PRINT
680 FOREE=1TO6
690 PRINT"[202][192][192][192][203]";
700 NEXTEE
710 PRINT
720 NEXTL
740 X=RND(TI)
750 REM GENERATE DOTS FOR DICE
760 FORB=1TO24
770 RN(B)=INT(RND(1)*6)+1
780 NEXTB
810 POKE214,1:PRINT
820 P=0:OG$="":PP$="[156]"
830 FORB=1TO6
835 CC$="[156]":IFFL$="Y"THENGOSUB1900
840 PRINTCC$MID$(D1$,((RN(B)*5)-4),5);
845 IFRN(B)=3THENP=P+2
847 IFRN(B)=5THENP=P+4
848 CC$="[156]"
860 NEXTB
870 PRINT
880 FORB=1TO6
890 PRINTCC$MID$(D2$,((RN(B)*5)-4),5);
900 NEXTB
905 IFZ$="S"THENT1=P:P=0:PRINT:GOTO930
910 PRINT""OG$;P;PP$:P=0
930 FORB=1TO6
935 IFFL$="Y"THENGOSUB1900
940 PRINTCC$MID$(D3$,((RN(B)*5)-4),5);
945 CC$="[156]"
950 NEXTB
960 PRINT:PRINT:PRINT
1000 FORB=7TO12
1005 IFFL$="Y"THENGOSUB1900
1010 PRINTCC$MID$(D1$,((RN(B)*5)-4),5);
1015 IFRN(B)=3THENP=P+2
1017 IFRN(B)=5THENP=P+4
1018 CC$="[156]"
1020 NEXTB
1030 PRINT
1040 FORB=7TO12
1050 PRINTCC$MID$(D2$,((RN(B)*5)-4),5);
1060 NEXTB
1065 IFZ$="S"THENT2=P:P=0:PRINT:GOTO1080
1070 PRINT""OG$;P;PP$:P=0
1080 FORB=7TO12
1085 IFFL$="Y"THENGOSUB1900
1090 PRINTCC$MID$(D3$,((RN(B)*5)-4),5);
1095 CC$="[156]"
1100 NEXTB
1110 PRINT:PRINT:PRINT
1150 FORB=13TO18
1155 IFFL$="Y"THENGOSUB1900
1160 PRINTCC$MID$(D1$,((RN(B)*5)-4),5);
1165 IFRN(B)=3THENP=P+2
1167 IFRN(B)=5THENP=P+4
1168 CC$="[156]"
1170 NEXTB
1180 PRINT
1190 FORB=13TO18
1200 PRINTCC$MID$(D2$,((RN(B)*5)-4),5);
1210 NEXTB
1215 IFZ$="S"THENT3=P:P=0:PRINT:GOTO1230
1220 PRINT""OG$;P;PP$:P=0
1230 FORB=13TO18
1235 IFFL$="Y"THENGOSUB1900
1240 PRINTCC$MID$(D3$,((RN(B)*5)-4),5);
1245 CC$="[156]"
1250 NEXTB
1260 PRINT:PRINT:PRINT
1270 FORB=19TO24
1275 IFFL$="Y"THENGOSUB1900
1280 PRINTCC$MID$(D1$,((RN(B)*5)-4),5);
1285 IFRN(B)=3THENP=P+2
1287 IFRN(B)=5THENP=P+4
1288 CC$="[156]"
1290 NEXTB
1300 PRINT
1310 FORB=19TO24
1320 PRINTCC$MID$(D2$,((RN(B)*5)-4),5);
1330 NEXTB
1335 IFZ$="S"THENT4=P:P=0:PRINT:GOTO1350
1340 PRINT""OG$;P;PP$:P=0
1350 FORB=19TO24
1355 IFFL$="Y"THENGOSUB1900
1360 PRINTCC$MID$(D3$,((RN(B)*5)-4),5);
1365 CC$="[156]"
1370 NEXTB
1375 PRINT:PRINT:IFZ$="S"THEN1500
1380 POKE214,21:PRINT:PRINT"[151]    ENTER [144]M[146][151]ORE/[144]S[146][151]OLVE/[144]H[146][151]INT/[144]Q[146][151]UIT   "
1400 GETZ$:IFZ$=""THEN1400
1410 IFZ$="M"THENFL$="N":GOTO500
1420 IFZ$="S"THEN500
1430 IFZ$="H"THEN4000
1440 IFZ$="Q"THENFL$="N":GOTO6000
1450 GOTO1400
1500 POKE214,20:PRINT:E$="NO":POKE19,65:RT$="RIGHT":WR$="[144]WRONG"
1510 PRINT"[151] FIRST TOTAL SHOULD BE     [157][157][157][157]";:GOSUB50000:TT$=Q9$:GOSUB4300
1515 IF V$="N"THEN1500
1520 IFTT=T1THENPOKE214,2:PRINT:POKE211,30:PRINTT1;RT$:GOTO1600
1530 POKE214,2:PRINT:POKE211,30:PRINT TT;WR$:GOSUB4100:GOTO1600
1600 POKE214,20:PRINT
1610 PRINT"[151]SECOND TOTAL SHOULD BE     [157][157][157][157]";:GOSUB50000:TT$=Q9$:GOSUB4300
1615 IF V$="N"THEN1600
1620 IFTT=T2THENPOKE214,7:PRINT:POKE211,30:PRINTT2;RT$:GOTO1700
1630 POKE214,7:PRINT:POKE211,30:PRINT TT;WR$:GOSUB4100:GOTO1700
1700 POKE214,20:PRINT
1710 PRINT"[151] THIRD TOTAL SHOULD BE     [157][157][157][157]";:GOSUB50000:TT$=Q9$:GOSUB4300
1715 IF V$="N"THEN1700
1720 IFTT=T3THENPOKE214,12:PRINT:POKE211,30:PRINTT3;RT$:GOTO1800
1730 POKE214,12:PRINT:POKE211,30:PRINT TT;WR$:GOSUB4100:GOTO1800
1800 POKE214,20:PRINT
1810 PRINT"[151]FOURTH TOTAL SHOULD BE     [157][157][157]";:GOSUB50000:TT$=Q9$:GOSUB4300
1815 IF V$="N"THEN1800
1820 IFTT=T4THENPOKE214,17:PRINT:POKE211,30:PRINTT4;RT$:GOTO4200
1830 POKE214,17:PRINT:POKE211,30:PRINT TT;WR$:GOSUB4100:GOTO4200
1900 IFRN(B)=3ORRN(B)=5THENCC$="":RETURN
1910 CC$="[156]":RETURN
4000 FL$="Y":GOTO500
4100 E$="YES":RETURN
4200 IFE$="YES"THENPRINT"[151]  WHOOPS, BETTER TRY AGAIN!":GOTO5000
4210 PRINT"[151]  CONGRATULATIONS, YOU GOT IT!!!":GOTO5000
4300 IFLEN(TT$)=1THENTT$=" "+TT$
4310 TT$=LEFT$(TT$,2)
4312 IFTT$=" 0"THEN4320
4320 TT=VAL(TT$):V$="Y":RETURN
5000 FORX=1TO3000:NEXT:GOTO1380
6000 REM: QUIT HAS BEEN ENTERED
6010 I$(0)="[208][197][212][193][204][211] [193][210][207][213][206][196] [212][200][197] [210][207][211][197]"+CHR$(13)
6020 I$(1)="[151] [193]T THIS POINT YOU HAVE DETERMINED THE"
6030 I$(2)=" SYSTEM BY WHICH THE [208][207][212][197][206][212][193][212][197][151] DERIVES"
6040 I$(3)="THE NUMBERS -"+CHR$(13)
6050 I$(4)="-[207][210]-"+CHR$(13)
6060 I$(5)="[217]OU HAVE GIVEN UP ON FINDING THE SECRET"+CHR$(13)
6070 I$(6)="-[207][210]-"+CHR$(13)
6080 I$(7)="[217]OU WILL TRY AGAIN ANOTHER TIME."+CHR$(13)
6090 I$(8)="[212]O FIND OR VERIFY THE SOLUTION, EXIT"
6100 I$(9)="TO [204][207][193][196][211][212][193][210] AND READ THE TEXT."+CHR$(13)
6110 I$(10)=""
6120 I$(11)="     [216][151] = [197]XIT TO [204][207][193][196][211][212][193][210]"+CHR$(13)
6130 I$(12)="     [210][151] = [210]ETURN TO INSTRUCTIONS"
6140 POKE53272,23:PRINT"[147]"
6150 FORI=0TO12:PRINTTAB(20-(LEN(I$(I))/2))I$(I):NEXT
6160 GETA$:IFA$=""THEN6160
6170 IFA$="X"THEN40000
6180 IFA$="R"THEN102
6200 GOTO6160
8000 PRINT"[147]"
8010 PRINT" [150][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":POKE214,24:PRINT
8020 PRINT" [150][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
8100 RETURN
9999 GOTO9999
10000 OPEN15,8,15,"S0:B.PETALS":CLOSE15:SAVE"B.PETALS",8:END
40000 POKE788,49
40002 A$="HELLO CONNECT":FORI=8TO12:CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40020
40010 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40030
40020 NEXT:PRINT"[147][146]":POKE2048,0:POKE44,8:POKE53272,23:POKE186,8:END
40030 POKE646,PEEK(53281):PRINT"[147][146]LOAD"CHR$(34)A$CHR$(34)","I:POKE43,1
40040 PRINT"RUN":POKE44,8:POKE2048,0:POKE631,13:POKE632,13:POKE198,2:END
50000 Q9$="":U9=53280:POKE198,0
50010 GETA$
50020 POKE646,RND(1)*15+1:PRINT"[164][157]";:IFA$=""THEN50010
50030 IFA$=CHR$(13)THENPRINT" ":RETURN
50040 IF(A$=CHR$(20)ANDLEN(Q9$))THENQ9$=LEFT$(Q9$,LEN(Q9$)-1):GOTO50080
50050 IFLEN(Q9$)>=2THENT9%=PEEK(U9):POKEU9,1:POKEU9,T9%:GOTO50010
50060 IFA$<"0"ORA$>"9"THEN50010
50070 Q9$=Q9$+A$
50080 PRINT""A$;:GOTO50010
60000 PRINT"[147]":Z$=" [152]                                      ":POKE214,10:PRINT
60010 PRINT" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":FORI=0TO9:PRINTZ$:NEXT
60020 PRINT" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
60030 Z$(0)="[208][197][212][193][204][211] [193][210][207][213][206][196] [212][200][197] [210][207][211][197]":Z$(1)="BY [215]ALTER [204]. [202]OHNSON"
60040 Z$(2)="([195]) 1994 BY [211]OFTDISK [208]UBLISHING"+CHR$(13)
60050 Z$(3)="[212]HIS PROGRAM IS THE COPYRIGHTED WORK
60060 Z$(4)[178]"OF (null)(null)ASC(null)STR$RIGHT$(null)(null) (null)(null)PEEK(null)RIGHT$(null)LEFT$RIGHT$(null)CHR$.  RIGHT$T IS NOT"
60070 Z$(5)[178]"SHAREWARE OR IN THE PUBLIC DOMAIN."
60080 Z$(6)[178]"(null)O SUBSCRIBE CALL 1-800-594-3370
60090 POKE214,12:PRINT
60100 FORI=0TO6:PRINTTAB(20-(LEN(Z$(I))/2))""Z$(I):NEXT:RETURN