1 CLEAR5E3:DIMA$(50) ' DISK MENU AND RUN
4 FORX=1TO50
5 Y=Y+1:IFY=15THENY=0:INPUT"****** PRESS ENTER TO CONTINUE ";A$
7 READA$(X):IFA$(X)="END "THENX=X-1:GOTO13
9 PRINTUSING"##";X;:PRINT" ";A$(X):NEXTX
13 PRINT" ***  SELECTION  ***";:INPUTR
14 PRINT" STAND BY FOR ";A$(R);
15 A$(R)=LEFT$(A$(R),12):NR=INSTR(A$(R),"/CMD")
16 IFNR=0THENRUNA$(R)
17 A$=LEFT$(A$(R),NR-1):CMDA$
1000 DATA DISKMENU    B8U FREE=6 02/13/80
5512 DATA ANIMATE/SUB B8A *** THIS DISK IS GOING TO DRIVE YOU
5514 DATA ANIMATOR    B8A ***  TRYING TO GET IT TO RUN
5516 DATA ANIMATOR/SUBB8A ***   THEIR IS A NICE ART UTILITY IN HERE
5518 DATA ENGINE/CIM  B8A ***  CALLED UP BY ENGINE/CMD
5520 DATA ENGINE/CMD  B8A *** THIS RUNS - NUMBERS 1-9 CONTROL SPEED
5522 DATA INSTURTI    B8A *** I READ THEM 6 TIMES - GOOD LUCK
5524 DATA MENU        B8A *** THIS IS ONE WAY IN
5526 DATA PICTURE     B8A *** DATA FILE OF THE PICTURES
5528 DATA SETUP/CMD   B8A *** BOOT INTO THIS OR ???
9999 DATA END 
