5 CLS:KEY OFF:SCREEN 0,0,0:WIDTH 80:CLEAR:FOR I=1 TO 10:KEY I,"":NEXT:KEY 2,"GOTO 60"+CHR$(13):KEY 10,"RUN"+CHR$(34)+"BLUEMENU"+CHR$(34)+CHR$(13):LIST 10-57
12 '***************** START UP PROGRAM FOR BLUEBERRY ***********************
14 '??????????????????????????????????????????????????????????????????????????
15 '? BLUEBERRY PIE A LA MODE DISK START UP PROGRAM -- MONO! ?
16 '? ?
17 '? This is a basic box-formatted introductory program for BLUEBERRY ?
18 '? PIE A LA MODE using a High Resolution composite video green monitor ?
19 '? or IBM monochrome monitor. There are some programming techniques ?
20 '? which may be of interest to the user. The various subroutines may ?
21 '? be extracted and modified for your own programming use. ?
22 '? ?
23 '? A COLOR version of this program is filed under STARTUP.CLR. If ?
24 '? you are using an 80 column color monitor, you will find CLR of some ?
25 '? visual and programming interest. The color combinations will over- ?
26 '? drive most green-screen composite video monitors. Use this version ?
27 '? instead This program may be used without license or attribution. ?
28 '? (c) G I N A C O 1983 Ver 5.2/160/320 ?
31 '??????????????????????????????????????????????????????????????????????????
55 ' ***** < F2 > to RUN ******* < F10 > For BLUEMENU *****
57 ' ====== To avoid DOCUMENTATION BOX each time, REM or DELETE line 5 ======
60 CLS:FOR I=1 TO 10:KEY I,"":NEXT
100 KEY OFF:CLEAR:SCREEN 0,0,0:WIDTH 80:GOTO 140
110 COLOR 7,0
120 AKEY$=INKEY$:IF AKEY$=""THEN 120
130 RETURN
140 CLS:PRINT STRING$(80,219):COLOR 7,0:FOR A=1 TO 22:LOCATE A,1:PRINT"?":LOCATE A,80:PRINT"?":NEXT:LOCATE 23,1:PRINT STRING$(80,219);:LOCATE 5,10:PRINT"?????????? ??? ??? ?? ?? ????????? ????????":LOCATE 6,10
150 PRINT"?? ??? ?? ? ? ?? ?? ??":LOCATE 7,10:PRINT"?? ??? ?? ? ?? ? ? ?? ?? ??":LOCATE 8,10:PRINT"?? ??? ?? ? ?? ? ? ?? ?? ??":LOCATE 9,10
160 PRINT"?? ??? ?? ? ?? ?? ?? ?? ?? ??":LOCATE 10,10:PRINT"?? ??? ??? ?? ? ?? ?????????? ?? ?? ??":LOCATE 11,10:PRINT"?? ?? ??? ?? ??? ?? ?? ?? ?? ??":LOCATE 12,10
170 PRINT"?????????? ??? ?? ??? ?? ?? ????????? ????????":COLOR 7,0:LOCATE 15,27:PRINT"*** G I N A C O ***":COLOR 7,0:COLOR 7,0:LOCATE 18,15:PRINT"D E M O N S T R A T I O N S T A R T U P U N I T ":LOCATE 19,15
180 PRINT"????????????????????????? ????????? ??? ???????":COLOR 7,0:FOR I=1 TO 3000:NEXT:FOR I=3 TO 20:LOCATE I,10:PRINT SPC(66):NEXT:LOCATE 4,13:PRINT STRING$(11,178);STRING$(11,32);STRING$(11,178);STRING$(11,32);STRING$(11,178):FOR I=5 TO 18
190 COLOR 7,0:LOCATE I,10:PRINT CHR$(178);STRING$(59,32);CHR$(178):NEXT:COLOR 7,0:LOCATE 19,13:COLOR 7,0:PRINT STRING$(11,178);STRING$(11,32);STRING$(11,178);STRING$(11,32);STRING$(11,178):COLOR 7,0:LOCATE 8,22:COLOR 7,0
200 PRINT"BLUEBERRY PIE A La MODE STARTUP ROUTINE":COLOR 7,0:LOCATE 10,28:COLOR 7,0:PRINT"DEMONSTRATING SCREEN BOXES":COLOR 7,0:LOCATE 13,22:COLOR 7,0:PRINT"FUNCTION KEY SETUP AND LEAD IN TO MENU":LOCATE 14,22
210 PRINT"???????? ??? ????? ??? ???? ?? ?? ????":COLOR 7,0:LOCATE 3,8:COLOR 7,0:PRINT"!!!":LOCATE 20,8:PRINT"!!!":LOCATE 3,70:PRINT"!!!":LOCATE 20,70:PRINT"!!!":COLOR 7,0:LOCATE 17,26:PRINT"**** STANDBY FOR F KEYSET ****":FOR I=1 TO 3000:NEXT
220 FOR I=3 TO 20:LOCATE I,7:PRINT SPC(66):NEXT:FOR A=18 TO 66:COLOR 7,0:LOCATE 6,A:PRINT CHR$(205):NEXT:LOCATE 6,67:PRINT CHR$(187):FOR B=7 TO 15:LOCATE B,67:PRINT CHR$(186):NEXT:LOCATE 16,67:PRINT CHR$(188):FOR C=66 TO 18 STEP-1:LOCATE 16,C
230 PRINT CHR$(205):NEXT:LOCATE 16,17:PRINT CHR$(200):FOR D=15 TO 7 STEP-1:LOCATE D,17:PRINT CHR$(186):NEXT:LOCATE 6,17:PRINT CHR$(201):COLOR 7,0:COLOR 7,0:LOCATE 8,37:PRINT"Developed by:":LOCATE 10,35:PRINT"G I N A C O":COLOR 7,0:LOCATE 12,32
240 COLOR 7,0:PRINT"10708 Santa Fe Drive.":COLOR 7,0:LOCATE 13,30:COLOR 7,0:PRINT"SUN CITY, ARIZONA 85351":COLOR 7,0:LOCATE 15,35:COLOR 7,0:PRINT"(602) 972-5559":COLOR 7,0:FOR I=1 TO 3000:NEXT:FOR I=3 TO 20:LOCATE I,7:PRINT SPC(66):NEXT
250 REM *** HEADER ***
260 LOCATE 5,30:COLOR 7,0:PRINT"BLUEBERRY PIE A La MODE":COLOR 7,0:LOCATE 8,27:COLOR 7,0:PRINT"GENERAL STARTUP DEMONSTRATION":COLOR 7,0:LOCATE 11,19:COLOR 7,0:PRINT"MAKE SURE THIS DISK IS IN DRIVE A: TO USE MENU ":COLOR 7,0:LOCATE 12,19:COLOR 7,0
270 REM PRINT"???? ???? ???? ???? ?? ?? ???? ? ?? ??? ???? ":COLOR 7,0
280 LOCATE 15,21:COLOR 7,0:PRINT"DO YOU WISH TO REVIEW THE F-KEY FUNCTIONS?":COLOR 7,0:LOCATE 18,20:PRINT SPC(40):LOCATE 18,36:COLOR 7,0:PRINT;CHR$(34)"Y"CHR$(34)" OR "CHR$(34)"N"CHR$(34):COLOR 7,0:GOSUB 110:IF(AKEY$="y"OR AKEY$="Y")THEN 310ELSE 290
290 IF(AKEY$="n"OR AKEY$="N")THEN 380ELSE 300
300 LOCATE 18,29:PRINT CHR$(34)"Y"CHR$(34)" OR "CHR$(34)"N"CHR$(34)" ONLY, PLEASE":FOR I=1 TO 1500:NEXT:SOUND 1200,5:SOUND 800,5:GOTO 280
310 REM DESCRIPTION OF CUSTOM STARTUP
320 FOR I=3 TO 20:LOCATE I,7:PRINT SPC(66):NEXT:LOCATE 3,11:COLOR 7,0:PRINT"I: FUNCTION KEYS <10 KEYS AT LEFT SIDE OF KEYBOARD>":COLOR 7,0:LOCATE 5,15:COLOR 7,0:PRINT" = ";:COLOR 7,0:PRINT"CLEARS THE SCREEN -- DO NOT USE "CHR$(34)""CHR$(34)
330 COLOR 7,0:LOCATE 6,15:COLOR 7,0:PRINT" = ";:COLOR 7,0:PRINT"RUN RESIDENT BASIC PROGRAM -- DO NOT USE "CHR$(34)""CHR$(34):COLOR 7,0:LOCATE 7,15:COLOR 7,0:PRINT" = ";:COLOR 7,0:PRINT"CLEAR SCREEN AND LIST RESIDENT PROGRAM .":COLOR 7,0
340 LOCATE 8,15:COLOR 7,0:PRINT" = ";:COLOR 7,0:PRINT"SET UP FORMAT TO LOAD PROGRAM FROM DRIVE A: ":COLOR 7,0:LOCATE 10,15:COLOR 7,0:PRINT" = ";:COLOR 7,0:PRINT"SET UP FORMAT TO LOAD PROGRAM FROM DRIVE B: ":COLOR 7,0:LOCATE 11,15:COLOR 7,0
350 PRINT" = ";:COLOR 7,0:PRINT"CLEAR SCREEN AND LIST DESIGNATED LINES ":COLOR 7,0:LOCATE 13,15:COLOR 7,0:PRINT" = ";:COLOR 7,0:PRINT"LIST FILES ON DRIVE A:":LOCATE 14,15:COLOR 7,0:PRINT" = ";:COLOR 7,0:PRINT"LIST FILES ON DRIVE B:
360 COLOR 7,0:LOCATE 16,15:COLOR 7,0:PRINT" = ";:COLOR 7,0:PRINT"FORMAT COMMAND TO SAVE A FILE ON DRIVE A:":COLOR 7,0:LOCATE 18,15:COLOR 7,0:PRINT" = ";:COLOR 7,0:PRINT"SET UP A "CHR$(34)" LIST . FORMAT"CHR$(34)" TO PAGE THRU A LISTING.
370 COLOR 7,0:LOCATE 20,23:COLOR 7,0:PRINT" PRESS ANY LETTER-KEY TO CONTINUE ";:COLOR 7,0:SOUND 1000,5:GOSUB 110:GOTO 380
380 CLS:LOCATE 10,24:COLOR 7,0:SOUND 1200,2:SOUND 800,2:PRINT"CALLING UP BLUEBERRY A LA MODE MENU":FOR I=1 TO 2000:NEXT:COLOR 7,0:REM PRINTER LINE 6
390 REM ********************** KEY SET ROUTINE ***************************
400 FOR I=1 TO 10:KEY I,"":NEXT:KEY 1,"CLS"+CHR$(13):KEY 2,"RUN"+CHR$(13):KEY 3,"CLS:LIST" + CHR$(13):KEY 4,"LOAD"+CHR$(34)+"A"+CHR$(58):KEY 5,"LOAD"+CHR$(34)+"B"+CHR$(58):KEY 6,"CLS:LIST ":KEY 7,"FILES"+CHR$(13)
410 KEY 8,"FILES"+CHR$(34)+"B"+CHR$(58)+"*.*"+CHR$(34)+CHR$(13):KEY 9,"SAVE"+CHR$(34)+"A"+CHR$(58):KEY 10,"LIST . -":KEY ON:ON ERROR GOTO 450
420 GOTO 440
440 KEY OFF:LOAD"A:BLUEMENU.BAS",R
445 ON ERROR GOTO 450
450 FOR I=3 TO 20:LOCATE I,10:PRINT SPC(66):NEXT:CLS:PRINT STRING$(80,219):COLOR 7,0:FOR A=1 TO 22:LOCATE A,1:PRINT"?":LOCATE A,80:PRINT"?":NEXT:LOCATE 23,1:PRINT STRING$(80,219);:LOCATE 5,30:COLOR 7,0:PRINT"N O T I C E ":COLOR 7,0
460 LOCATE 6,30:COLOR 7,0:PRINT"= = = = = =":COLOR 7,0:LOCATE 10,11:COLOR 7,0:PRINT"THE BLUEBERRY A LA MODE MENU IS NOT ON THE DISK IN DRIVE A:":COLOR 7,0:KEY ON:LOCATE 15,21:COLOR 7,0:SOUND 1200,5:SOUND 800,5
470 PRINT"PLEASE MOUNT PROPER DISK AND HIT RETURN ":LOCATE 17,39:PRINT"x";:LINE INPUT A$:COLOR 7,0:RESUME 440
480 END
65000 REM ************************ SAVE ROUTINE *****************************
65100 SAVE"B:STARTUP.BAS