DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦c8ea454c3⟧ TextFile

    Length: 1152 (0x480)
    Types: TextFile
    Names: »KNEE2.BAS«

Derivation

└─⟦69a509965⟧ Bits:30005211 CR8 BASIC Games
    └─ ⟦this⟧ »KNEE2.BAS« 

TextFile

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»