basic101 0.1.0

data/test/integration/tests/basic_computer_games/stars.bas

@@ -0,0 +1,54 @@
+10 PRINT TAB(34);"STARS"
+20 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+30 PRINT:PRINT:PRINT
+100 REM *** STARS - PEOPLE'S COMPUTER CENTER, MENLO PARK, CA
+140 REM *** A IS LIMIT ON NUMBER, M IS NUMBER OF GUESSES
+150 A=100:M=7
+170 INPUT "DO YOU WANT INSTRUCTIONS";A$
+190 IF LEFT$(A$,1)="N" THEN 280
+200 REM *** INSTRUCTIONS ON HOW TO PLAY
+210 PRINT "I AM THINKING OF A WHOLE NUMBER FROM 1 TO";A
+220 PRINT "TRY TO GUESS MY NUMBER.  AFTER YOU GUESS, I"
+230 PRINT "WILL TYPE ONE OR MORE STARS (*).  THE MORE"
+240 PRINT "STARS I TYPE, THE CLOSER YOU ARE TO MY NUMBER."
+250 PRINT "ONE STAR (*) MEANS FAR AWAY, SEVEN STARS (*******)"
+260 PRINT "MEANS REALLY CLOSE!  YOU GET";M;"GUESSES."
+270 REM *** COMPUTER THINKS OF A NUMBER
+280 PRINT
+290 PRINT
+300 X=INT(A*RND(1)+1)
+310 PRINT "OK, I AM THINKING OF A NUMBER, START GUESSING."
+320 REM *** GUESSING BEGINS, HUMAN GETS M GUESSES
+330 FOR K=1 TO M
+340 PRINT
+350 PRINT "YOUR GUESS";
+360 INPUT G
+370 IF G=X THEN 600
+380 D=ABS(G-X)
+390 IF D>=64 THEN 510
+400 IF D>=32 THEN 500
+410 IF D>=16 THEN 490
+420 IF D>=8 THEN 480
+430 IF D>=4 THEN 470
+440 IF D>=2 THEN 460
+450 PRINT "*";
+460 PRINT "*";
+470 PRINT "*";
+480 PRINT "*";
+490 PRINT "*";
+500 PRINT "*";
+510 PRINT "*";
+520 PRINT
+530 NEXT K
+540 REM *** DID NOT GUESS IN M GUESSES
+550 PRINT 
+560 PRINT "SORRY, THAT'S";M;"GUESSES. THE NUMBER WAS";X
+580 GOTO 650
+590 REM *** WE HAVE A WINNER
+600 PRINT:FOR N=1 TO 79
+610 PRINT "*";
+620 NEXT N
+630 PRINT:PRINT
+640 PRINT "YOU GOT IT IN";K;"GUESSES!!!  LET'S PLAY AGAIN..."
+650 GOTO 280
+660 END

data/test/integration/tests/basic_computer_games/stars.input

@@ -0,0 +1,15 @@
+YES
+50
+75
+25
+38
+62
+66
+58
+40
+80
+60
+70
+75
+78
+73

data/test/integration/tests/basic_computer_games/stars.output

@@ -0,0 +1,70 @@
+                                  STARS
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+DO YOU WANT INSTRUCTIONS? YES
+I AM THINKING OF A WHOLE NUMBER FROM 1 TO 100 
+TRY TO GUESS MY NUMBER.  AFTER YOU GUESS, I
+WILL TYPE ONE OR MORE STARS (*).  THE MORE
+STARS I TYPE, THE CLOSER YOU ARE TO MY NUMBER.
+ONE STAR (*) MEANS FAR AWAY, SEVEN STARS (*******)
+MEANS REALLY CLOSE!  YOU GET 7 GUESSES.
+
+
+OK, I AM THINKING OF A NUMBER, START GUESSING.
+
+YOUR GUESS? 50
+*****
+
+YOUR GUESS? 75
+***
+
+YOUR GUESS? 25
+***
+
+YOUR GUESS? 38
+***
+
+YOUR GUESS? 62
+*****
+
+YOUR GUESS? 66
+****
+
+YOUR GUESS? 58
+******
+
+SORRY, THAT'S 7 GUESSES. THE NUMBER WAS 55 
+
+
+OK, I AM THINKING OF A NUMBER, START GUESSING.
+
+YOUR GUESS? 40
+**
+
+YOUR GUESS? 80
+****
+
+YOUR GUESS? 60
+****
+
+YOUR GUESS? 70
+******
+
+YOUR GUESS? 75
+******
+
+YOUR GUESS? 78
+*****
+
+YOUR GUESS? 73
+*******
+
+SORRY, THAT'S 7 GUESSES. THE NUMBER WAS 72 
+
+
+OK, I AM THINKING OF A NUMBER, START GUESSING.
+
+YOUR GUESS? 
+Error on line 360: No more input

data/test/integration/tests/basic_computer_games/stock.bas

@@ -0,0 +1,232 @@
+10 PRINT TAB(30);"STOCK MARKET"
+20 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+30 PRINT: PRINT: PRINT
+100 REM STOCK MARKET SIMULATION     -STOCK-
+101 REM REVISED 8/18/70 (D. PESSEL, L. BRAUN, C. LOSIK)  
+102 REM IMP VRBLS: A-MRKT TRND SLP; B5-BRKRGE FEE; C-TTL CSH ASSTS;    
+103 REM C5-TTL CSH ASSTS (TEMP); C(I)-CHNG IN STK VAL; D-TTL ASSTS;
+104 REM E1,E2-LRG CHNG MISC; I-STCK #; I1,I2-STCKS W LRG CHNG; 
+105 REM N1,N2-LRG CHNG DAY CNTS; P5-TTL DAYS PRCHSS; P(I)-PRTFL CNTNTS;
+106 REM Q9-NEW CYCL?; S4-SGN OF A; S5-TTL DYS SLS; S(I)-VALUE/SHR; 
+107 REM T-TTL STCK ASSTS; T5-TTL VAL OF TRNSCTNS;
+108 REM W3-LRG CHNG; X1-SMLL CHNG(<$1); Z4,Z5,Z6-NYSE AVE.; Z(I)-TRNSCT
+110 DIM S(5),P(5),Z(5),C(5) 
+112 REM SLOPE OF MARKET TREND:A  (SAME FOR ALL STOCKS) 
+113 LET X=1
+114 LET A=INT((RND(X)/10)*100+.5)/100 
+115 LET T5=0
+116 LET X9=0
+117 LET N1=0
+118 LET N2=0
+119 LET E1=0
+120 LET E2=0
+121 REM INTRODUCTION 
+122 PRINT "DO YOU WANT THE INSTRUCTIONS (YES-TYPE 1, NO-TYPE 0)"; 
+123 INPUT Z9
+124 PRINT 
+125 PRINT 
+126 IF Z9<1 THEN 200
+130 PRINT "THIS PROGRAM PLAYS THE STOCK MARKET.  YOU WILL BE GIVEN" 
+132 PRINT "$10,000 AND MAY BUY OR SELL STOCKS.  THE STOCK PRICES WILL"
+134 PRINT "BE GENERATED RANDOMLY AND THEREFORE THIS MODEL DOES NOT" 
+135 PRINT "REPRESENT EXACTLY WHAT HAPPENS ON THE EXCHANGE.  A TABLE"
+136 PRINT "OF AVAILABLE STOCKS, THEIR PRICES, AND THE NUMBER OF SHARES"
+137 PRINT "IN YOUR PORTFOLIO WILL BE PRINTED.  FOLLOWING THIS, THE" 
+138 PRINT "INITIALS OF EACH STOCK WILL BE PRINTED WITH A QUESTION"
+139 PRINT "MARK.  HERE YOU INDICATE A TRANSACTION.  TO BUY A STOCK" 
+140 PRINT "TYPE +NNN, TO SELL A STOCK TYPE -NNN, WHERE NNN IS THE"  
+141 PRINT "NUMBER OF SHARES.  A BROKERAGE FEE OF 1% WILL BE CHARGED"
+142 PRINT "ON ALL TRANSACTIONS.  NOTE THAT IF A STOCK'S VALUE DROPS"
+143 PRINT "TO ZERO IT MAY REBOUND TO A POSITIVE VALUE AGAIN.  YOU"
+144 PRINT "HAVE $10,000 TO INVEST.  USE INTEGERS FOR ALL YOUR INPUTS."
+145 PRINT "(NOTE:  TO GET A 'FEEL' FOR THE MARKET RUN FOR AT LEAST" 
+146 PRINT "10 DAYS)"
+147 PRINT "-----GOOD LUCK!-----"
+200 REM GENERATION OF STOCK TABLE; INPUT REQUESTS  
+210 REM INITIAL STOCK VALUES 
+220 LET S(1)=100
+230 LET S(2)=85 
+240 LET S(3)=150
+250 LET S(4)=140
+260 LET S(5)=110
+265 REM INITIAL T8 - # DAYS FOR FIRST TREND SLOPE (A)
+266 LET T8=INT(4.99*RND(X)+1) 
+267 REM RANDOMIZE SIGN OF FIRST TREND SLOPE (A)
+268 IF RND(X)>.5 THEN 270 
+269 LET A=-A
+270 REM RANDOMIZE INITIAL VALUES 
+280 GOSUB 830 
+285 REM INITIAL PORTFOLIO CONTENTS 
+290 FOR I=1 TO 5
+300 LET P(I)=0
+305 LET Z(I)=0
+310 NEXT I
+320 PRINT 
+330 PRINT 
+333 REM INITIALIZE CASH ASSETS:C 
+335 LET C=10000 
+338 REM PRINT INITIAL PORTFOLIO
+340 PRINT "STOCK"," ","INITIALS","PRICE/SHARE"
+350 PRINT "INT. BALLISTIC MISSILES","  IBM",S(1)
+352 PRINT "RED CROSS OF AMERICA","  RCA",S(2) 
+354 PRINT "LICHTENSTEIN, BUMRAP & JOKE","  LBJ",S(3)
+356 PRINT "AMERICAN BANKRUPT CO.","  ABC",S(4)
+358 PRINT "CENSURED BOOKS STORE","  CBS",S(5) 
+360 PRINT 
+361 REM NYSE AVERAGE:Z5; TEMP. VALUE:Z4; NET CHANGE:Z6 
+363 LET Z4=Z5 
+364 LET Z5=0
+365 LET T=0 
+370 FOR I=1 TO 5
+375 LET Z5=Z5+S(I)
+380 LET T=T+S(I)*P(I) 
+390 NEXT I
+391 LET Z5=INT(100*(Z5/5)+.5)/100 
+392 LET Z6=INT((Z5-Z4)*100+.5)/100
+393 REM TOTAL ASSETS:D 
+394 LET D=T+C 
+395 IF X9>0 THEN 398
+396 PRINT "NEW YORK STOCK EXCHANGE AVERAGE: "Z5 
+397 GOTO 399 
+398 PRINT "NEW YORK STOCK EXCHANGE AVERAGE: "Z5"NET CHANGE"Z6
+399 PRINT 
+400 LET T=INT(100*T+.5)/100 
+401 PRINT "TOTAL STOCK ASSETS ARE   $";T
+403 LET C=INT(100*C+.5)/100 
+405 PRINT "TOTAL CASH ASSETS ARE    $";C
+407 LET D=INT(100*D+.5)/100 
+408 PRINT "TOTAL ASSETS ARE         $";D
+410 PRINT 
+411 IF X9=0 THEN 416
+412 PRINT "DO YOU WISH TO CONTINUE (YES-TYPE 1, NO-TYPE 0)";
+413 INPUT Q9
+414 IF Q9<1 THEN 998
+416 REM INPUT TRANSACTIONS 
+420 PRINT "WHAT IS YOUR TRANSACTION IN" 
+430 PRINT "IBM";
+440 INPUT Z(1)
+450 PRINT "RCA";
+460 INPUT Z(2)
+470 PRINT "LBJ";
+480 INPUT Z(3)
+490 PRINT "ABC";
+500 INPUT Z(4)
+510 PRINT "CBS";
+520 INPUT Z(5)
+525 PRINT 
+530 REM TOTAL DAY'S PURCHASES IN $:P5
+540 LET P5=0
+550 REM TOTAL DAY'S SALES IN $:S5
+560 LET S5=0
+570 FOR I=1 TO 5
+575 LET Z(I)=INT(Z(I)+.5) 
+580 IF Z(I)<=0 THEN 610 
+590 LET P5=P5+Z(I)*S(I) 
+600 GOTO 620 
+610 LET S5=S5-Z(I)*S(I) 
+612 IF -Z(I)<=P(I) THEN 620 
+614 PRINT "YOU HAVE OVERSOLD A STOCK; TRY AGAIN." 
+616 GOTO 420 
+620 NEXT I
+622 REM TOTAL VALUE OF TRANSACTIONS:T5 
+625 LET T5=P5+S5
+630 REM BROKERAGE FEE:B5 
+640 LET B5=INT(.01*T5*100+.5)/100 
+650 REM CASH ASSETS=OLD CASH ASSETS-TOTAL PURCHASES
+652 REM -BROKERAGE FEES+TOTAL SALES:C5 
+654 LET C5=C-P5-B5+S5 
+656 IF C5>=0 THEN 674 
+658 PRINT "YOU HAVE USED $";-C5" MORE THAN YOU HAVE." 
+660 GOTO 420
+674 LET C=C5
+675 REM CALCULATE NEW PORTFOLIO  
+680 FOR I=1 TO 5
+690 LET P(I)=P(I)+Z(I)
+700 NEXT I
+710 REM CALCULATE NEW STOCK VALUES 
+720 GOSUB 830 
+750 REM PRINT PORTFOLIO
+751 REM BELL RINGING-DIFFERENT ON MANY COMPUTERS 
+755 PRINT 
+756 PRINT "**********     END OF DAY'S TRADING     **********"
+757 PRINT 
+758 PRINT 
+759 IF X9<1 THEN 769
+769 PRINT "STOCK","PRICE/SHARE","HOLDINGS", "VALUE", "NET PRICE CHANGE"
+770 PRINT "IBM", S(1), P(1), S(1)*P(1), C(1)
+771 PRINT "RCA", S(2), P(2), S(2)*P(2), C(2)
+772 PRINT "LBJ", S(3), P(3), S(3)*P(3), C(3)
+773 PRINT "ABC", S(4), P(4), S(4)*P(4), C(4)
+774 PRINT "CBS", S(5), P(5), S(5)*P(5), C(5)
+775 LET X9=1
+780 PRINT 
+790 PRINT 
+810 GOTO 360 
+829 REM NEW STOCK VALUES - SUBROUTINE
+830 REM RANDOMLY PRODUCE NEW STOCK VALUES BASED ON PREVIOUS
+831 REM DAY'S VALUES 
+832 REM N1,N2 ARE RANDOM NUMBERS OF DAYS WHICH RESPECTIVELY
+833 REM DETERMINE WHEN STOCK I1 WILL INCREASE 10 PTS. AND STOCK
+834 REM I2 WILL DECREASE 10 PTS. 
+840 REM IF N1 DAYS HAVE PASSED, PICK AN I1, SET E1, DETERMINE NEW N1 
+841 IF N1>0 THEN 850
+845 LET I1=INT(4.99*RND(X)+1) 
+846 LET N1=INT(4.99*RND(X)+1) 
+847 LET E1=1
+850 REM IF N2 DAYS HAVE PASSED, PICK AN I2, SET E2, DETERMINE NEW N2 
+851 IF N2>0 THEN 860
+855 LET I2=INT(4.99*RND(X)+1) 
+856 LET N2=INT(4.99*RND(X)+1) 
+857 LET E2=1
+860 REM DEDUCT ONE DAY FROM N1 AND N2
+861 LET N1=N1-1 
+862 LET N2=N2-1 
+890 REM LOOP THROUGH ALL STOCKS
+900 FOR I=1 TO 5
+910 LET X1=RND(X) 
+915 IF X1>.25 THEN 920
+916 LET X1=.25
+917 GOTO 935 
+920 IF X1>.5 THEN 925
+921 LET X1=.5
+922 GOTO 935 
+925 IF X1>.75 THEN 930
+926 LET X1=.75  
+927 GOTO 935 
+930 LET X1=0.0
+931 REM BIG CHANGE CONSTANT:W3  (SET TO ZERO INITIALLY)
+935 LET W3=0
+936 IF E1<1 THEN 945
+937 IF INT(I1+.5)<>INT(I+.5) THEN 945 
+938 REM ADD 10 PTS. TO THIS STOCK;  RESET E1 
+939 LET W3=10 
+943 LET E1=0
+945 IF E2<1 THEN 955
+947 IF INT(I2+.5)<>INT(I+.5) THEN 955 
+948 REM SUBTRACT 10 PTS. FROM THIS STOCK;  RESET E2
+949 LET W3=W3-10
+953 LET E2=0
+954 REM C(I) IS CHANGE IN STOCK VALUE
+955 LET C(I)=INT(A*S(I))+X1+INT(3-6*RND(X)+.5)+W3 
+956 LET C(I)=INT(100*C(I)+.5)/100 
+957 LET S(I)=S(I)+C(I)
+960 IF S(I)>0 THEN 967
+964 LET C(I)=0
+965 LET S(I)=0
+966 GOTO 970 
+967 LET S(I)=INT(100*S(I)+.5)/100 
+970 NEXT I
+972 REM AFTER T8 DAYS RANDOMLY CHANGE TREND SIGN AND SLOPE 
+973 LET T8=T8-1 
+974 IF T8<1 THEN 985
+980 RETURN
+985 REM RANDOMLY CHANGE TREND SIGN AND SLOPE (A), AND DURATION 
+986 REM OF TREND (T8)
+990 LET T8=INT(4.99*RND(X)+1) 
+992 LET A=INT((RND(X)/10)*100+.5)/100 
+993 LET S4=RND(X) 
+994 IF S4<=.5 THEN 997
+995 LET A=-A
+997 RETURN
+998 PRINT "HOPE YOU HAD FUN!!"
+999 END

data/test/integration/tests/basic_computer_games/stock.input

@@ -0,0 +1,30 @@
+1
+10
+10
+10
+10
+10
+1
+10
+10
+10
+10
+10
+5
+5
+5
+5
+5
+1
+0
+0
+0
+0
+0
+1
+-15
+-15
+-15
+-15
+-15
+0

data/test/integration/tests/basic_computer_games/stock.output

@@ -0,0 +1,156 @@
+                              STOCK MARKET
+               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
+
+
+
+DO YOU WANT THE INSTRUCTIONS (YES-TYPE 1, NO-TYPE 0)? 1
+
+
+THIS PROGRAM PLAYS THE STOCK MARKET.  YOU WILL BE GIVEN
+$10,000 AND MAY BUY OR SELL STOCKS.  THE STOCK PRICES WILL
+BE GENERATED RANDOMLY AND THEREFORE THIS MODEL DOES NOT
+REPRESENT EXACTLY WHAT HAPPENS ON THE EXCHANGE.  A TABLE
+OF AVAILABLE STOCKS, THEIR PRICES, AND THE NUMBER OF SHARES
+IN YOUR PORTFOLIO WILL BE PRINTED.  FOLLOWING THIS, THE
+INITIALS OF EACH STOCK WILL BE PRINTED WITH A QUESTION
+MARK.  HERE YOU INDICATE A TRANSACTION.  TO BUY A STOCK
+TYPE +NNN, TO SELL A STOCK TYPE -NNN, WHERE NNN IS THE
+NUMBER OF SHARES.  A BROKERAGE FEE OF 1% WILL BE CHARGED
+ON ALL TRANSACTIONS.  NOTE THAT IF A STOCK'S VALUE DROPS
+TO ZERO IT MAY REBOUND TO A POSITIVE VALUE AGAIN.  YOU
+HAVE $10,000 TO INVEST.  USE INTEGERS FOR ALL YOUR INPUTS.
+(NOTE:  TO GET A 'FEEL' FOR THE MARKET RUN FOR AT LEAST
+10 DAYS)
+-----GOOD LUCK!-----
+
+
+STOCK                       INITIALS      PRICE/SHARE
+INT. BALLISTIC MISSILES       IBM          102 
+RED CROSS OF AMERICA          RCA          87.5 
+LICHTENSTEIN, BUMRAP & JOKE   LBJ          167.75 
+AMERICAN BANKRUPT CO.         ABC          140 
+CENSURED BOOKS STORE          CBS          118.25 
+
+NEW YORK STOCK EXCHANGE AVERAGE:  123.1 
+
+TOTAL STOCK ASSETS ARE   $ 0 
+TOTAL CASH ASSETS ARE    $ 10000 
+TOTAL ASSETS ARE         $ 10000 
+
+WHAT IS YOUR TRANSACTION IN
+IBM? 10
+RCA? 10
+LBJ? 10
+ABC? 10
+CBS? 10
+
+
+**********     END OF DAY'S TRADING     **********
+
+
+STOCK         PRICE/SHARE   HOLDINGS      VALUE         NET PRICE CHANGE
+IBM            105           10            1050          3 
+RCA            88.5          10            885           1 
+LBJ            175.75        10            1757.5        8 
+ABC            149           10            1490          9 
+CBS            126           10            1260          7.75 
+
+
+
+NEW YORK STOCK EXCHANGE AVERAGE:  128.85 NET CHANGE 5.75 
+
+TOTAL STOCK ASSETS ARE   $ 6442.5 
+TOTAL CASH ASSETS ARE    $ 3783.45 
+TOTAL ASSETS ARE         $ 10225.95 
+
+DO YOU WISH TO CONTINUE (YES-TYPE 1, NO-TYPE 0)? 1
+WHAT IS YOUR TRANSACTION IN
+IBM? 10
+RCA? 10
+LBJ? 10
+ABC? 10
+CBS? 10
+
+YOU HAVE USED $ 2723.48  MORE THAN YOU HAVE.
+WHAT IS YOUR TRANSACTION IN
+IBM? 5
+RCA? 5
+LBJ? 5
+ABC? 5
+CBS? 5
+
+
+**********     END OF DAY'S TRADING     **********
+
+
+STOCK         PRICE/SHARE   HOLDINGS      VALUE         NET PRICE CHANGE
+IBM            110           15            1650          5 
+RCA            94            15            1410          5.5 
+LBJ            183.75        15            2756.25       8 
+ABC            159.75        15            2396.25       10.75 
+CBS            131.75        15            1976.25       5.75 
+
+
+
+NEW YORK STOCK EXCHANGE AVERAGE:  135.85 NET CHANGE 7 
+
+TOTAL STOCK ASSETS ARE   $ 10188.75 
+TOTAL CASH ASSETS ARE    $ 529.99 
+TOTAL ASSETS ARE         $ 10718.74 
+
+DO YOU WISH TO CONTINUE (YES-TYPE 1, NO-TYPE 0)? 1
+WHAT IS YOUR TRANSACTION IN
+IBM? 0
+RCA? 0
+LBJ? 0
+ABC? 0
+CBS? 0
+
+
+**********     END OF DAY'S TRADING     **********
+
+
+STOCK         PRICE/SHARE   HOLDINGS      VALUE         NET PRICE CHANGE
+IBM            114.5         15            1717.5        4.5 
+RCA            97.25         15            1458.75       3.25 
+LBJ            195.5         15            2932.5        11.75 
+ABC            168           15            2520          8.25 
+CBS            138.25        15            2073.75       6.5 
+
+
+
+NEW YORK STOCK EXCHANGE AVERAGE:  142.7 NET CHANGE 6.85 
+
+TOTAL STOCK ASSETS ARE   $ 10702.5 
+TOTAL CASH ASSETS ARE    $ 529.99 
+TOTAL ASSETS ARE         $ 11232.49 
+
+DO YOU WISH TO CONTINUE (YES-TYPE 1, NO-TYPE 0)? 1
+WHAT IS YOUR TRANSACTION IN
+IBM? -15
+RCA? -15
+LBJ? -15
+ABC? -15
+CBS? -15
+
+
+**********     END OF DAY'S TRADING     **********
+
+
+STOCK         PRICE/SHARE   HOLDINGS      VALUE         NET PRICE CHANGE
+IBM            127.75        0             0             13.25 
+RCA            108           0             0             10.75 
+LBJ            217           0             0             21.5 
+ABC            186.25        0             0             18.25 
+CBS            154           0             0             15.75 
+
+
+
+NEW YORK STOCK EXCHANGE AVERAGE:  158.6 NET CHANGE 15.9 
+
+TOTAL STOCK ASSETS ARE   $ 0 
+TOTAL CASH ASSETS ARE    $ 11125.46 
+TOTAL ASSETS ARE         $ 11125.46 
+
+DO YOU WISH TO CONTINUE (YES-TYPE 1, NO-TYPE 0)? 0
+HOPE YOU HAD FUN!!