1 REM ALPHA.ECB 5 REM ...FILE ALPHA...from ??? via Roseville 3-14-81 REH 6 PRINT "&K&J&J" 7 PRINT TAB(15);"F I L E A L P H A" 8 PRINT : PRINT 10 PRINT "YOU ARE UNFORTUNATE TO HAVE CHOSEN THIS PROGRAM." 15 PRINT "FOLLOW THESE INSTRUCTIONS CAREFULLY, IF YOU CAN!" 20 PRINT "WHAT YOU HAVE TO DO IS TRANSLATE WHAT I PRINT." 25 PRINT "DO YOU UNDERSTAND SO FAR ---=>"; 30 INPUT (1,0)A$: LET A$=A$+"Y" 31 PRINT 35 IF A$(1,1)="N" THEN 45 40 IF A$(1,1)="Y" THEN 65 45 PRINT "PITY,PITY,PITY,PITY,PITY,PITY,PITY,PITY,PITY,PITY,PITY" 50 PRINT "PITY,PITY,PITY,PITY,PITY,PITY,PITY,PITY,PITY,PITY,PITY" 55 PRINT "I CAN NOT HELP IT IF YOU ARE STUPID,STUPID!" 60 GOTO 995 65 PRINT "I WILL PRINT OUT A CODE, AND YOU HAVE TO BREAK IT." 75 PRINT "IF YOU DO,YOU WILL GAIN PART OF THE PASSWORD TO FILE"; 76 PRINT " ALPHA." 80 PRINT "IF YOU DO NOT TRANSLATE IN FOUR TRYS, A BOMB EXPLODES!" 85 PRINT "THERE WILL BE ONLY ONE CLUE FOR EACH TRY." 86 PRINT "ONLY TWO LETTERS OF THE CODE CHANGES EACH TIME." 87 PRINT " GOOD LUCK, YOU WILL NEED IT!!" 90 PRINT "WOULD YOU LIKE TO CHICKEN OUT BEFORE I GIVE YOU" 91 PRINT "THE FIRST MESSAGE ---=>"; 95 INPUT (1,0)B$: LET B$=B$+"N" 98 PRINT 100 IF B$(1,1)="N" THEN 120 105 IF B$(1,1)="Y" THEN 110 110 PRINT "YOU MAKE A LOUSY SPY, COWARD!" 115 GOTO 995 120 PRINT "I AM GLAD YOU HAVE A BACKBONE AT LEAST, YOU MORON!" 125 PRINT 130 PRINT "HERE IS YOUR FIRST CLUE!" 135 PRINT "*/CD" 140 PRINT "YOUR CLUE IS ASSISTANCE" 145 PRINT "WHAT IS YOUR FIRST GUESS ---=>"; 150 INPUT C$ 155 IF C$="HELP" THEN 340 165 PRINT "SORRY,TRY AGAIN!" 170 INPUT C$ 175 IF C$="HELP" THEN 340 185 PRINT "THIS IS YOUR THIRD TRY!" 190 INPUT C$ 195 IF C$="HELP" THEN 340 205 PRINT "TRY AGAIN" 210 INPUT C$ 215 IF C$="HELP" THEN 340 225 PRINT "SORRY,YOU GOOFFED AGIAN!" 230 PRINT "YOU HAVE NOW USED HALF YOUR CHANCES" 235 PRINT "DO YOU WANT TO ABORT THE MISSION"; 240 INPUT (1,0)" ---=>",D$: LET D$=D$+"N" 245 IF D$(1,1)="Y" THEN 110 255 PRINT "THE CODE IS*/CD" 260 PRINT "THE CLUE IS ASSISTANCE" 265 PRINT "WHAT IS YOUR LAST TRY"; 270 INPUT C$ 275 IF C$="HELP" THEN 340 290 PRINT "FIVE SECONDS......................................" 295 PRINT "FOUR.............." 300 PRINT "THREE............." 305 PRINT "TWO..............." 310 PRINT "ONE..............." 315 PRINT "BOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOMMMMMMMMMM!!!!!!!!" 320 PRINT "YOU LOST!!!" 325 PRINT "YOU DID NOT ABORT WHILE YOU COULD!!!" 330 PRINT "I APOLOGIZE FOR INSULTING YOU, STUPID!" 331 PRINT "I DID NOT KNOW YOU WERE SO DUMB THAT YOU COULD NOT " 332 PRINT "BREAK A SIMPLE CODE!" 335 GOTO 995 340 PRINT "SINCE YOU LIVED THROUGH THE FIRST CODE," 345 PRINT "DO YOU WANT TO TRY AGAIN ---=>"; 350 INPUT (1,0)E$: LET E$=E$+"Y" 355 IF E$(1,1)="Y" THEN 365 360 IF E$(1,1)="N" THEN 995 365 PRINT "*=H /=E C=L D=P" 370 PRINT "REMEMBER, TWO LETTERS OF THE CODE WILL ALLWAYS CHANGE" 375 PRINT "IN EACH WORD." 380 PRINT "HERE IS YOUR NEW WORD" 385 PRINT "/DDAC" 390 PRINT "THE CLUE IS,IT IS A FRUIT!" 395 PRINT "WHAT IS YOUR GUESS"; 400 INPUT E$ 405 IF E$="APPLE" THEN 545 415 PRINT "ONE DOWN AND THREE TO GO" 420 PRINT "WHAT IS YOUR NEXT GUESS"; 425 INPUT E$ 430 IF E$="APPLE" THEN 545 440 PRINT "WHAT IS YOUR THIRD GUESS"; 445 INPUT E$ 450 IF E$="APPLE" THEN 545 460 PRINT "WHAT IS YOUR LAST TRY"; 465 INPUT E$ 470 IF E$="APPLE" THEN 545 475 IF E$><"APPLE" THEN 290 545 PRINT "SO FAR YOU HAVE SPOILED MY FUN!" 550 PRINT "SO THIS TIME I AM ONLY GIVEING YOU TWO TRYS!" 555 PRINT "NOW DO YOU WANT TO CHICKEN OUT ---=>"; 560 INPUT (1,0)F$: LET F$=F$+"N" 565 IF F$(1,1)="Y" THEN 290 575 PRINT "YOU HAVE ONLY TWO CODES TO GO" 580 PRINT "THE CLUES TO FILE ALPHA ARE: E, A, C" 585 PRINT "THAT WAS THE LAST TIME I PRINT THE CLUES TO THE FILE!" 590 PRINT "HERE IS THE NEXT TO THE LAST CODE BEFOR OPENNING"; 595 PRINT " THE FILE. GOOD LUCK!!!!" 600 PRINT "DO YOU WISH TO ABORT, THOUGH YOU HAVE MADE IT THIS FAR"; 605 INPUT G$ 615 IF G$="YES" THEN 110 620 PRINT "HERE IS YOUR NEXT CODE:C*/DDX" 625 PRINT "THE CLUE IS: A WORD THAT DISCRIBES SANTAS NOSE" 635 PRINT "WHAT IS YOUR GUESS" 636 INPUT H$ 640 IF H$="CHERRY" THEN 700 700 PRINT "HERE IS YOUR LAST CODE BEFOR OPENING FILE ALPHA!" 710 PRINT "...The END: FILE ALPHA missing 20 lines" 720 GOTO 999 995 PRINT "GOODBYE, YOU JERK!" 999 END