emad.bas

8 RANDOMIZE
14 LET X=INT(RND(X)*39)+1
18 LET Y=INT(RND(X)*24)+1
30 PRINT "MISS CLEO HAS PUT EMAD IN A MINDJAIL,"
47 PRINT "WHICH IS A PRISON FOR YOUR MIND."
60 PRINT "IT IS YOUR JOB TO GET HIM OUT!"
69 PRINT ""
85 IF Y = 1 GOTO 594
104 IF Y = 25 GOTO 612
111 IF X = 1 GOTO 637
121 IF X = 40 GOTO 656
135 GOTO 559
144 INPUT C$
149 IF SEG$(C$,0,4) = "GO N" GOTO 282
159 IF SEG$(C$,0,4) = "GO S" GOTO 329
172 IF SEG$(C$,0,4) = "GO W" GOTO 409
173 IF SEG$(C$,0,4) = "GO E" GOTO 434
187 IF SEG$(C$,0,2) = "QU" GOTO 477
205 IF SEG$(C$,0,2) = "EX" GOTO 477
222 IF SEG$(C$,0,2) = "ST" GOTO 477
225 IF SEG$(C$,0,2) = "BY" GOTO 477
237 PRINT "EMAD LOOKS AROUND, CONFUSED."
246 PRINT ""
254 PRINT "TRY GOING IN A CARDINAL DIRECTION."
274 GOTO 69
282 IF Y = 1 GOTO 477
302 PRINT "EMAD HEADS NORTH INTO THE BLACK."
311 LET Y=Y-1
319 IF Y = 1 GOTO 531
328 GOTO 69
329 IF Y = 25 GOTO 477
348 PRINT "EMAD HEADS SOUTH INTO THE BLACK."
363 LET Y=Y+1
381 IF Y = 25 GOTO 531
401 GOTO 69
409 IF X = 1 GOTO 477
420 PRINT "EMAD HEADS WEST INTO THE BLACK."
428 LET X=X-1
431 IF X = 1 GOTO 531
432 GOTO 69
434 IF X = 40 GOTO 477
445 PRINT "EMAD HEADS EAST INTO THE BLACK."
448 LET X=X+1
458 IF X = 40 GOTO 531
459 GOTO 69
477 PRINT ""
480 IF RND(X) >= .5 GOTO 505
490 PRINT "HE IS TRAPPED!"
498 GOTO 69
505 PRINT "GET HIM OUT!"
511 GOTO 69
531 PRINT ""
539 PRINT "HE HAS HIT A WALL."
543 GOTO 69
559 PRINT "A FIELD OF DARKNESS EXTENDS"
572 PRINT "IN ALL DIRECTIONS."
579 GOTO 144
594 PRINT "THE NORTHERN WALL OF THE MINDJAIL"
598 PRINT "IS DIRECTLY IN FRONT OF EMAD."
603 GOTO 144
612 PRINT "THE SOUTHERN WALL OF THE MINDJAIL"
631 PRINT "IS DIRECTLY IN FRONT OF EMAD."
635 GOTO 144
637 PRINT "THE WESTERN WALL OF THE MINDJAIL"
643 PRINT "IS DIRECTLY IN FRONT OF EMAD."
652 GOTO 144
656 PRINT "THE EASTERN WALL OF THE MINDJAIL"
663 PRINT "IS DIRECTLY IN FRONT OF EMAD."
672 GOTO 144
692 END