10 REM .... "DEMON" PROGRAM BY TOM KLOOS    OMSI S.R.C.    ....
80 RANDOMIZE
90 RESTORE\GO SUB 750
100 REM CATALOG IN 600	S, IF	S IN 800	S, CHAINS IN 900	S, DATA IN 1000
110 PRINT\DIMB(21)\DIMD(21)
140 PRINT"WHAT DEMONSTRATION WOULD YOU LIKE TO SEE"
150 PRINT"(OR TYPE 	LIST	 FOR A LISTING) ?";
160 FOR A=1 TO 20
170 INPUT $B(A)
180 IF B(A)=141 THEN 245
190 IF B(A)=255 THEN 390
195 IF B(A)=253 THEN 430
200 IF B(A)=160 THEN 170
205 IF B(A)=173 THEN 170
210 IF B(A)=223 THEN 370
220 IF B(A)>218 THEN 440
230 IF B(A)<193 THEN 440
240 NEXT A
245 PRINT\IF A=1 THEN 710
250 FOR C=1 TO 20
260 READ D(C)\IF D(C)=-1 THEN 450\IF D(C)<100 THEN 290
270 IF D(C)<> B(C) THEN 320
280 NEXT C
290 LET E=D(C)\IF B(C+1)<>0 THEN 250\IF E=0 THEN 500
295 IF E<0 THEN 450
300 PRINT\PRINT"PLEASE WAIT A FEW MOMENTS WHILE I SEARCH FOR YOUR PROGRAM."
310 PRINT\PRINT\GO TO 800
320 READ D(0)
330 IF D(0)<100 THEN 250
340 GO TO 320
370 GO SUB 410
380 GO TO 170
390 GO SUB 410
400 PRINT CHR$(220);\GOTO 170
410 IF A=1 THEN 170
420 LET A=A-1\RETURN
430 GO SUB 750
435 PRINT "   DELETED"\GO TO 160
440 GO SUB 750
445 PRINT\PRINT" ***ILLEGAL CHARACTER - RETYPE LINE "\GO TO 160
450 PRINT\PRINT"PROGRAM 	";
460 FOR F=1 TO A-1\PRINT CHR$(B(F));\NEXT F
470 PRINT"	 NOT AVAILABLE."
475 PRINT"PLEASE TYPE PROGRAM NAME AS IT APPEARS IN DEMONSTRATION LIST."
480 PRINT\PRINT"WHAT DEMONSTRATION WOULD YOU LIKE TO SEE?";
490 GO SUB 750
495 RESTORE\GO TO 160
500 PRINT\PRINT\PRINT
510 PRINT"DEMONSTRATIONS AVAILABLE ARE:"\PRINT
600 REM CATALOG
601 PRINT"    TIC-TAC-TOE        TRY TO BEAT THE COMPUTER!"
602 PRINT"    NIM                A MATHEMATICAL GAME"
603 PRINT"    BANDIT             SIMULATED SLOT MACHINE"
604 PRINT"    PHOTO              MAKES ELECTRONIC FLASH CALCULATIONS"
605 PRINT"    BLACKJACK          A CARD GAME"
606 PRINT"    BLACKJACK RULES    RULES FOR CARD GAME (INSTRUCTIONS)"
607 PRINT"    WEEKDAY            GIVES FACTS ABOUT A DATE OF INTEREST"
608 PRINT"    BUZZWORD           RANDOM WORD GENERATOR"
609 PRINT"    FOOTBALL           SIMULATED FOOTBALL GAME"
611 PRINT"    DOMINO             GAME OF CRAPS"
612 PRINT"    HORSES             SIMULATED HORSE RACE"
613 PRINT"    GUNNER             ARTILLERY PRACTICE"
614 PRINT"    ZOOP               OUTGUESS THE COMMAND DECODER!"
615 PRINT"    BASEBALL           SIMULATED BASEBALL GAME"
616 PRINT\PRINT "GIVE 	NOLINE	 COMMAND BEFORE RUNNING DEMON"
700 RESTORE\PRINT\PRINT\PRINT
710 PRINT"WHAT DEMONSTRATION WOULD YOU LIKE TO SEE? ";
715 GO SUB 750
717 GO TO 160
720 DATA L,I,S,T,0,L,I,S,T,I,N,G,0,D,I,R,E,C,T,O
721 DATA R,Y,0,C,A,T,A,L,O,G,0
750 FOR G=1 TO 20\LET B(G)=0\NEXT G
760 RETURN
800 REM IF	S
801 IF E=1 THEN 901
802 IF E=2 THEN 902
803 IF E=3 THEN 903
804 IF E=4 THEN 904
805 IF E=5 THEN 905
806 IF E=6 THEN 906
807 IF E=7 THEN 907 
808 IF E=8 THEN 908
809 IF E=9 THEN 909
810 IF E=10 THEN 910
811 IF E=11 THEN 911
812 IF E=12 THEN 912
814 IF E=14 THEN 914
815 IF E=15 THEN 915
899 PRINT"ERROR IN 	DEMON	 PROGRAM"\STOP
900 REM CHAIN	S
901 CHAIN "TICTAC"
902 CHAIN "MONIM "
903 CHAIN "BANDIT"
904 CHAIN "PHOTO "
905 CHAIN "BLKJAK"
906 CHAIN "DOMINO"
907 CHAIN "WEKDAY"
908 CHAIN "BUZZWD"
909 CHAIN "FOOTBL"
910 CHAIN "HORSES"
911 CHAIN "GUNNER"
912 CHAIN "21INFO"
914 CHAIN "ZOOP"
915 CHAIN "BASBAL"
1000 REM DATA
1001 DATA T,I,C,T,A,C,T,O,E,1,N,I,M,2
1003 DATA B,A,N,D,I,T,3
1004 DATA P,H,O,T,O,4
1005 DATA B,L,A,C,K,J,A,C,K,5
1006 DATA D,O,M,I,N,O,6
1007 DATA W,E,E,K,D,A,Y,7
1008 DATA B,U,Z,Z,W,O,R,D,8
1009 DATA F,O,O,T,B,A,L,L,9
1010 DATA H,O,R,S,E,S,10
1011 DATA G,U,N,N,E,R,11
1012 DATA B,L,A,C,K,J,A,C,K,R,U,L,E,S,12
1014 DATA Z,O,O,P,14
1015 DATA B,A,S,E,B,A,L,L,15
3999 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1
4000 END
-1,-1,-1
4000 END
 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1
4000 END
15
3999 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1
4000 END
T L1
1610 FOR L1=8 TO 1 STEP -1
1620 FOR L2=0 TO 7
1630 IF A(L2)<>L1 THEN 1670
1640 LET B(Q)=L2+1
1650 LET Q=Q