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 ***********************
16 '??????????????????????????????????????????????????????????????????????????
18 '? BLUEBERRY PIE A LA MODE DISK START UP PROGRAM -- COLOR! ?
20 '? ?
22 '? This is a basic box-formatted introductory program for BLUEBERRY ?
24 '? PIE A LA MODE for a high resolution RGB color or TV monitor. It ?
26 '? uses box-building and "slow erase" programming techniques which may ?
28 '? be of interest to the user. The appropriate sub-routines may be ?
30 '? extracted and modified for your own programming use. ?
32 '? ?
34 '? A mono version of this program is filed under STARTUP.BAS. If ?
36 '? you are using an 80 column composite-video green-screen monitor, it ?
38 '? is possible that some of the color combinations will overdrive your ?
40 '? display and cause blurring or character "drop out." Use MONO version ?
42 '? instead. This program may be used, in whole or in part, without ?
44 '? license or attribution. (c) G I N A C O 1983 Ver 5.2/160/320 ?
46 '??????????????????????????????????????????????????????????????????????????
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 ' G I N A C O -- 1983 STARTUP DEMO PROGRAM
110 KEY OFF:CLEAR:SCREEN 0,0,0:WIDTH 80:GOTO 150
120 REM
130 AKEY$=INKEY$:IF AKEY$=""THEN 130
140 RETURN
150 CLS:COLOR 3,0: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);:COLOR 1,0:LOCATE 5,10:PRINT"?????????? ??? ??? ?? ?? ????????? ????????":LOCATE 6,10
160 PRINT"?? ??? ?? ? ? ?? ?? ??":LOCATE 7,10:PRINT"?? ??? ?? ? ?? ? ? ?? ?? ??":LOCATE 8,10:PRINT"?? ??? ?? ? ?? ? ? ?? ?? ??":LOCATE 9,10
170 PRINT"?? ??? ?? ? ?? ?? ?? ?? ?? ??":LOCATE 10,10:PRINT"?? ??? ??? ?? ? ?? ?????????? ?? ?? ??":LOCATE 11,10:PRINT"?? ?? ??? ?? ??? ?? ?? ?? ?? ??":LOCATE 12,10
180 PRINT"?????????? ??? ?? ??? ?? ?? ????????? ????????":COLOR 4,0:LOCATE 15,27:PRINT"*** G I N A C O ***":COLOR 7,0:COLOR 5,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
190 PRINT"????????????????????????? ????????? ??? ???????":COLOR 7,0:FOR I=1 TO 3000:NEXT:FOR I=3 TO 20:LOCATE I,10:PRINT SPC(66):NEXT:COLOR 3,0:LOCATE 4,13:PRINT STRING$(11,178);STRING$(11,32);STRING$(11,178);STRING$(11,32);STRING$(11,178)
200 FOR I=5 TO 18:COLOR 3,0:LOCATE I,10:PRINT CHR$(178);STRING$(59,32);CHR$(178):NEXT:COLOR 3,0:LOCATE 19,13:COLOR 3,0:PRINT STRING$(11,178);STRING$(11,32);STRING$(11,178);STRING$(11,32);STRING$(11,178):COLOR 7,0:LOCATE 8,22:COLOR 6,0
210 PRINT"BLUEBERRY PIE A La MODE STARTUP ROUTINE":COLOR 7,0:LOCATE 10,28:COLOR 4,0:PRINT"DEMONSTRATING SCREEN BOXES":COLOR 7,0:LOCATE 13,22:COLOR 5,0:PRINT"FUNCTION KEY SETUP AND LEAD IN TO MENU":LOCATE 14,22
220 PRINT"???????? ??? ????? ??? ???? ?? ?? ????":COLOR 7,0:LOCATE 3,8:COLOR 4,0:PRINT"!!!":LOCATE 20,8:PRINT"!!!":LOCATE 3,70:PRINT"!!!":LOCATE 20,70:PRINT"!!!":COLOR 5,0:LOCATE 17,26:PRINT"**** STANDBY FOR F KEYSET ****":FOR I=1 TO 3000:NEXT
230 FOR I=3 TO 20:LOCATE I,7:PRINT SPC(66):NEXT:FOR A=18 TO 66:COLOR 3,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
240 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 3,0:LOCATE 8,37:PRINT"Developed by:":COLOR 12,0:LOCATE 10,35:PRINT"G I N A C O":COLOR 7,0
250 LOCATE 12,32: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
260 REM *** HEADER ***
270 LOCATE 5,30:COLOR 3,0:PRINT"BLUEBERRY PIE A La MODE":COLOR 7,0:LOCATE 8,27:COLOR 2,0:PRINT"GENERAL STARTUP DEMONSTRATION":COLOR 7,0:LOCATE 11,19:COLOR 4,0:PRINT"MAKE SURE THIS DISK IS IN DRIVE A: TO USE MENU ":COLOR 7,0:LOCATE 12,19:COLOR 4,0
280 REM PRINT"???? ???? ???? ???? ?? ?? ???? ? ?? ??? ???? ":COLOR 7,0
290 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 9,0:PRINT;CHR$(34)"Y"CHR$(34)" OR "CHR$(34)"N"CHR$(34):COLOR 7,0:GOSUB 130:IF(AKEY$="y"OR AKEY$="Y")THEN 320ELSE 300
300 IF(AKEY$="n"OR AKEY$="N")THEN 390ELSE 310
310 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 290
320 REM DESCRIPTION OF CUSTOM STARTUP
330 FOR I=3 TO 20:LOCATE I,7:PRINT SPC(66):NEXT:LOCATE 3,11:COLOR 5,0:PRINT"I: FUNCTION KEYS <10 KEYS AT LEFT SIDE OF KEYBOARD>":COLOR 7,0:LOCATE 5,15:COLOR 14,0:PRINT" = ";:COLOR 6,0
340 PRINT"CLEARS THE SCREEN -- DO NOT USE "CHR$(34)""CHR$(34):COLOR 7,0:LOCATE 6,15:COLOR 14,0:PRINT" = ";:COLOR 6,0:PRINT"RUN RESIDENT BASIC PROGRAM -- DO NOT USE "CHR$(34)""CHR$(34):COLOR 7,0:LOCATE 7,15:COLOR 14,0:PRINT" = ";
350 COLOR 6,0:PRINT"CLEAR SCREEN AND LIST RESIDENT PROGRAM .":COLOR 7,0:LOCATE 8,15:COLOR 14,0:PRINT" = ";:COLOR 6,0:PRINT"SET UP FORMAT TO LOAD PROGRAM FROM DRIVE A: ":COLOR 7,0:LOCATE 10,15:COLOR 14,0:PRINT" = ";:COLOR 6,0
360 PRINT"SET UP FORMAT TO LOAD PROGRAM FROM DRIVE B: ":COLOR 7,0:LOCATE 11,15:COLOR 14,0:PRINT" = ";:COLOR 6,0:PRINT"CLEAR SCREEN AND LIST DESIGNATED LINES ":COLOR 7,0:LOCATE 13,15:COLOR 14,0:PRINT" = ";:COLOR 6,0:PRINT"LIST FILES ON DRIVE A:
370 LOCATE 14,15:COLOR 14,0:PRINT" = ";:COLOR 6,0:PRINT"LIST FILES ON DRIVE B:":COLOR 7,0:LOCATE 16,15:COLOR 14,0:PRINT" = ";:COLOR 6,0:PRINT"FORMAT COMMAND TO SAVE A FILE ON DRIVE A:":COLOR 7,0:LOCATE 18,15:COLOR 14,0:PRINT" = ";
380 COLOR 6,0:PRINT"SET UP A "CHR$(34)" LIST . FORMAT"CHR$(34)" TO PAGE THRU A LISTING.":COLOR 7,0:LOCATE 20,23:COLOR 9,0:PRINT" PRESS ANY LETTER-KEY TO CONTINUE ";:COLOR 7,0:SOUND 1000,5:GOSUB 120:GOTO 390
390 CLS:LOCATE 10,24:COLOR 5,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
400 REM ********************** KEY SET ROUTINE ***************************
410 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)
420 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 460
430 GOTO 450
450 KEY OFF:LOAD"A:BLUEMENU.BAS",R
460 FOR I=3 TO 20:LOCATE I,10:PRINT SPC(66):NEXT:CLS:COLOR 1,0:PRINT STRING$(80,219):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 4,0:PRINT"N O T I C E ":COLOR 7,0
470 LOCATE 6,30:COLOR 4,0:PRINT"= = = = = =":COLOR 7,0:LOCATE 10,11:COLOR 9,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 3,0:SOUND 1200,5:SOUND 800,5
480 PRINT"PLEASE MOUNT PROPER DISK AND HIT RETURN ":LOCATE 17,39:PRINT"x";:LINE INPUT A$:COLOR 7,0:RESUME 430
490 END
65000 REM ************************** SAVE ROUTINE **************************
65100 SAVE"B:STARTUP.CLR