Listing of file='PETALS.BAS;01' on disk='vmedia/chip_90-sector.ccvf'
10 PLOT 6,3,12,3,22,0:PRINT "PETALS ON THE ROSES":PRINT TAB( 23);"A GAME OF INSIGHT":PRINT 100 PLOT 6,3,12,3,22,0:PRINT "PETALS ON THE ROSES":PRINT TAB( 23);"A GAME OF INSIGHT" 110 R$= CHR$ (10)+ CHR$ (26)+ CHR$ (26)+ CHR$ (26)+ CHR$ (26)+ CHR$ (26)+ CHR$ (26)+ CHR$ (26) 120 CL(1)= 8:CL(2)= 56 130 LN$= " " 140 DEF FN R(X)= INT (X* RND (1)+ 1) 150 CL= RD 160 REM *---DETERMINE THE DICE---* 170 FOR I= 1TO 5:D(I)= I:NEXT I:FOR I= 1TO 10:J= FN R(2):K= FN R(2):T= D(J):D(J)= D(K):D(K)= T:NEXT I 180 FOR I= 1TO 5:V(I)= FN R(6):C(I)= CL(FN R(2)):NEXT I 190 REM *---DISPLAY DICE---* 200 FOR I= 1TO 5:CL= CL(FN R(2)):PLOT 6,CL,3,5+ 12* (D(I)- 1),3+ FN R(11):WH= 15:IF CL= 56THEN WH= 56 210 ON V(I) GOSUB 550,570,590,610,630,650 220 NEXT I 230 REM *---GET GUESS---* 240 PLOT 3,0,22,6,6,15 250 PRINT TAB( 15);"1. THE NAME IS PETALS ON THE ROSES" 260 PRINT TAB( 15);"2. THE NAME IS VERY IMPORTANT" 270 PRINT TAB( 15);"3. THE ANSWER IS ALWAYS EVEN" 275 PRINT TAB( 15);"4. SIX CORRECT ANSWERS PROVE YOU KNOW THE SECRET" 280 PRINT :PRINT TAB( 15);:INPUT "YOUR GUESS? ";G 290 T= 0:FOR I= 1TO 5:IF V(I)= 2* INT (V(I)/ 2)THEN 310 300 T= T+ INT (V(I)/ 2) 310 NEXT I:T= T* 2:PLOT 28:PRINT TAB( 15);"YOU GUESSED";G;" - THE ANSWER IS";T;"" 320 IF T= GTHEN 340 330 RT= 0:PLOT 3,35,30,6,2:INPUT "PRESS RETURN TO CONTINUE. ";A$:GOTO 100 340 PRINT :PRINT TAB( 15);:RT= RT+ 1:FOR I= 1TO RT:PLOT 6,I:PRINT "VERY ";:NEXT I:PRINT "GOOD!!!" 350 PLOT 3,35,30,6,2:INPUT "PRESS RETURN TO CONTINUE. ";A$ 360 IF RT< 6THEN 100 370 PLOT 6,3,12:PRINT TAB( 22);"CONGRATULATIONS!":GOSUB 490:PRINT TAB( 17);"YOU ARE NOW A MEMBER OF THE":PRINT :PRINT :GOSUB 490 380 PRINT TAB( 21);"ORDER OF THE ROSES":PRINT :GOSUB 490:GOSUB 490 390 PRINT TAB( 8);"YOU HAVE PROVEN YOUR ABILITY TO THINK AND REASON.":PRINT :PRINT :GOSUB 490:GOSUB 490 400 PRINT TAB( 15);"NOW I MUST SWEAR YOU TO SECRECY.":PRINT :PRINT :GOSUB 490:GOSUB 490 410 PRINT TAB( 10);"YOU MUST NEVER NEVER NEVER NEVER REVEAL THE":PRINT :GOSUB 490 420 PRINT TAB( 20);"SECRET OF THE ROSES!!!":PRINT :PRINT :GOSUB 490:GOSUB 490:GOSUB 490 430 PRINT TAB( 1);"IF YOU EVER GIVE AID, ASSISTANCE, HELP, CLUES, ETC. TO ANYONE,":PRINT :GOSUB 490:GOSUB 490 440 PRINT TAB( 3);"THE CURSE OF THE ROSES SHALL DESCEND UPON YOU AND IT CAN":PRINT :GOSUB 490:GOSUB 490 450 PRINT TAB( 23);"NEVER BE REMOVED.":PRINT :PRINT :PRINT :GOSUB 490:GOSUB 490:GOSUB 490:GOSUB 490 460 PRINT TAB( 10);:INPUT "DOES ANYONE WISH TO CONTINUE? (Y/N) ";A$:A$= LEFT$ (A$,1) 470 IF A$= "Y"THEN RUN 480 PLOT 6,2,12:END 490 FOR I= 1TO 500:NEXT I:RETURN 500 GOTO 500 510 PRINT " ";:PLOT 6,WH:PRINT "d";:PLOT 6,CL:PRINT " ";R$;:RETURN 520 PRINT " ";:PLOT 6,WH:PRINT "d";:PLOT 6,CL:PRINT " ";R$;:RETURN 530 PRINT " ";:PLOT 6,WH:PRINT "d";:PLOT 6,CL:PRINT " ";R$;:RETURN 540 PRINT " ";:PLOT 6,WH:PRINT "d";:PLOT 6,CL:PRINT " ";:PLOT 6,WH:PRINT "d";:PLOT 6,CL:PRINT " ";R$;:RETURN 550 PRINT LN$;R$;LN$;R$;LN$;R$;:GOSUB 520:PRINT LN$;R$;LN$;R$;LN$ 560 RETURN 570 PRINT LN$;R$;:GOSUB 510:PRINT LN$;R$;LN$;R$;LN$;R$;:GOSUB 530:PRINT LN$ 580 RETURN 590 PRINT LN$;R$;:GOSUB 530:PRINT LN$;R$;:GOSUB 520:PRINT LN$;R$;:GOSUB 510:PRINT LN$ 600 RETURN 610 PRINT LN$;R$;:GOSUB 540:PRINT LN$;R$;LN$;R$;LN$;R$;:GOSUB 540:PRINT LN$ 620 RETURN 630 PRINT LN$;R$;:GOSUB 540:PRINT LN$;R$;:GOSUB 520:PRINT LN$;R$;:GOSUB 540:PRINT LN$ 640 RETURN 650 PRINT LN$;R$;:GOSUB 540:PRINT LN$;R$;:GOSUB 540:PRINT LN$;R$;:GOSUB 540:PRINT LN$ 660 RETURN