home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / BBS / KBCOS3.ZIP / COSMIC1.SEQ < prev    next >
Text File  |  1995-04-06  |  4KB  |  170 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6. (*  WARNING:  Due to bugs in KBBS versions before v2.00W, you
  7.               MUST have at least version 2.00W to run this SEQ   *)
  8.  
  9. {----------------------------------------------------------}
  10. {  ******************************************************  }
  11. {                                                          }
  12. {  all the code for this program stolen                    }
  13. {  from KBBS sample programs.                              }
  14. {                                                          }
  15. {  ******************************************************  }
  16. {----------------------------------------------------------}
  17.  
  18.   DEFINE BOOLEAN:YESNO;  {for asking Yes/No questions}
  19.  
  20.  
  21.   {CHECK FOR ANSI, abort if not}
  22.   IF GRAPHMODE=0
  23.     THEN WRITELN;
  24.          TOGGLES('No','Yes');
  25.          YESNO:=FALSE;
  26.          ASK('This Program requires ANSI. WANT IT ON?  ',YESNO,5,0);
  27.          IF YESNO=FALSE
  28.            THEN EXIT(0);  {exit this SEQ with RESULT=0}
  29.            ENDIF;
  30.     ENDIF;
  31.  
  32. IF YESNO=true
  33.      THEN CHANGEMODE(1);
  34.    ENDIF;
  35.  
  36.  
  37.   GOSUB COSMIC;
  38.  
  39.  
  40.  
  41. Cosmic:
  42.   MENU('Cozm');
  43.     KEY('1','ABOUT COSMIC DEBRIS MAGAZINE',ABOUT);
  44.     KEY('2','SAMPLE FANTASY STORY',fa);
  45.     KEY('3','SAMPLE SOFTWARE REVIEW',REVIEW);
  46.     KEY('4','SAMPLE SCIENCE FICTION STORY',SF);
  47.     KEY('5','SAMPLE HORROR STORY',HR);
  48.     KEY('11','TOP FIVE LIST',fl);
  49.     KEY('7','THE LATEST ISSUE',tf);
  50.     KEY('10','ASK THE WIZARD ANY QUESTION!!!',WI);
  51.     KEY('9','DOWNLOAD ORDER FORM',dl);
  52.     KEY('6','BONUS STORY',BS);
  53.     KEY('8','CREDITS',CR);
  54.     KEY!('12','BACK TO BBS',quit);
  55.       MENUPROMPT('Which story would you like to read?');
  56.   END;
  57.  
  58.   ABOUT:
  59.     showfile('coz1a');
  60.     pause;
  61.     goto cosmic;
  62.   REVIEW:
  63.     SHOWFILE('coz2');
  64.     pause;
  65.     Showfile('coz23');
  66.     PAUSE;
  67.     GOTO COSMIC;
  68.    CR:
  69.    SHOWFILE('COZ1B');
  70.    PAUSE;
  71.    GOTO COSMIC;
  72.    SF:
  73.     SHOWFILE('coz21');
  74.     Showfile('coz22');
  75.     PAUSE;
  76.     SHOWFILE('COS11');
  77.     pAUSE;
  78.   TOGGLES('No','Yes');
  79.   ASK('@07@Do you wish to download this STORY?@0F@',YESNO,4,0);
  80.   IF YESNO=TRUE
  81. Then FLAGPATH(TEXTPATH+'coz22.txt');
  82.     DOWNLOADNOW('textpath',FALSE);
  83.   GOTO COSMIC;
  84.     ENDIF;
  85.  IF YESNO=FALSE
  86.  THEN GOTO COSMIC;
  87.  ENDIF;
  88. HR:
  89.     SHOWFILE('coz6');
  90.     pause;
  91.     Showfile('coz7');
  92.     pAUSE;
  93.     showfile('coz33');
  94. RIPPOS(1,308);
  95.   TOGGLES('No','Yes');
  96.   ASK('@07@Do you wish to download this STORY?@0F@',YESNO,4,0);
  97.   IF YESNO=TRUE
  98. Then FLAGPATH(TEXTPATH+'coz7.txt');
  99.     DOWNLOADNOW('textpath',FALSE);
  100.   GOTO COSMIC;
  101.     ENDIF;
  102. if yesno=false
  103. then goto cosmic;
  104. endif;
  105. FA:
  106.     SHOWFILE('coz14');
  107.     Showfile('coz15');
  108.     pause;
  109.     SHOWFILE('COZ11');
  110.     PAUSE;
  111.   TOGGLES('No','Yes');
  112.   ASK('@07@Do you wish to download this STORY?@0F@',YESNO,4,0);
  113.   IF YESNO=TRUE
  114. Then FLAGPATH(TEXTPATH+'coz15.txt');
  115.     DOWNLOADNOW('textpath',FALSE);
  116.   GOTO COSMIC;
  117.  endif;
  118.  if yesno=false
  119.  then goto cosmic;
  120.  
  121.  ENDIF;
  122. TF:
  123.   SHOWFILE('coz3');
  124.   pause;
  125.   TOGGLES('No','Yes');
  126.   ASK('@07@Do you wish download the Cosmic Debris order form??@0F@',YESNO,4,0);
  127. IF YESNO=TRUE
  128. Then FLAGPATH(TEXTPATH+'cozo.txt');
  129.     DOWNLOADNOW('textpath',FALSE);
  130.   GOTO COSMIC;
  131. ENDIF;
  132. IF YESNO=FALSE
  133. THEN GOTO COSMIC;
  134. ENDIF;
  135. fl:
  136. showfile ('coz12');
  137. pause;
  138. goto cosmic;
  139. WI:
  140. CALLSEQ('COSMIC2');
  141. goto cosmic;
  142. BS:
  143. showfile ('coz4');
  144. pause;
  145. showfile ('coz5');
  146. pause;
  147.   TOGGLES('No','Yes');
  148.   ASK('@07@Do you wish to download this STORY? @0F@',YESNO,4,0);
  149.   IF YESNO=TRUE
  150. Then FLAGPATH(TEXTPATH+'coz5.txt');
  151.     DOWNLOADNOW('textpath',FALSE);
  152.   GOTO COSMIC;
  153.     ENDIF;
  154.  IF YESNO=FALSE
  155.  THEN GOTO COSMIC;
  156.  ENDIF;
  157. goto cosmic;
  158. dl:
  159.   TOGGLES('No','Yes');
  160.   ASK('@07@Do you wish to download a order form?@0F@',YESNO,4,0);
  161.   IF YESNO=TRUE
  162. Then FLAGPATH(TEXTPATH+'cozo.txt');
  163.     DOWNLOADNOW('textpath',FALSE);
  164.   GOTO COSMIC;
  165.     ENDIF;
  166.  IF YESNO=FALSE
  167.  THEN GOTO COSMIC;
  168.  ENDIF;
  169.  QUIT:
  170.