|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1152 (0x480) Types: TextFile Names: »KNEE2.BAS«
└─⟦69a509965⟧ Bits:30005211 CR8 BASIC Games └─ ⟦this⟧ »KNEE2.BAS«
1 REM PROGRAM KNEE2.BAS 10 PRINT"HELLO MY NAMES KNEE ROBINSON WHATS YOURS" 20 INPUT A$ 30 PRINT"NOW THEN WHATS YOUR PROBLEM I SUPPOSE ITS YOUR NAME" 40 PRINT"IMAGINE HAVING A NAME LIKE THAT I FEEL SORRY FOR YOU" 50 PRINT"SORRY I APOLIGISE FOR MY BAD HUMOUR.RIGHT LETS GET ON WITH IT" 60 PRINT"WHATS YOUR PROBLEM" 70 INPUT B$ 71 IF B$="YOU" GOTO 250 80 PRINT"THERES NO NEED TO HIDE ANYTHING I WONT TELL ANY ABOUT YOUR PERSONALL" 90 PRINT"PROBLEMS IF YOU DONT WANT ME TO. I MEAN I AM HUMAN" 95 PRINT"I MISSED WHAT YOU SAID PLEASE COULD REPEAT IT" 100 INPUT C$ 105 IF C$=B$ GOTO 107 106 GOTO 220 107 GOTO 110 110 IF C$=" "THEN 80 120 IF C$="YOU"THEN 200 130 PRINT"I SEE YOU DO HAVE A LOT OF PROBLEMS DONT YOU.PLEASE REFER TO MY" 140 PRINT"SUPERIOR. THANKYOU" 150 GOTO 1000 200 PRINT"THERES NO NEED TO GET PERSONAL IS THERE" 210 GOTO 60 220 PRINT"THATS NOT WHAT YOU SAID BEFORE IS IT" 230 PRINT"COME ON TELL ME WHAT YOU SAID THE FIRST TIME" 240 GOTO 100 250 PRINT"ARE YOU BEING RUDE IF YOU ARE TAKE THAT COMMENT BACK" 260 GOTO 80 1000 END «eof»