& A256\ IGIN OF BAZIC 0100 HEX)  A$12) ? ADDITIAL CRTS ARE ADDED THIS PROGRAM, LEAVE "OTHER" >( AS THE LAST OPTI IN THE MENU UPDATE THE "C" VARIABLE 92 C7\ MAXIMUM NUMBER OF TERMINALS 1 IN THIS PROGRAM *< \ CLEAR THE SCREEN BY SCROLLING IF "THIS PROGRAM IS DESIGNED TO CONFIGURE BAZIC FOR A PARTICULAR CRT." JP "FOR THE PRINT@ AND THE CLS STATEMENTS TO WORK PROPERLY, BAZIC MUST" LZ "KNOW THE CURSOR ADDRESSING PREFIX AND OFFSET FOR YOUR CRT AS WELL AS" Jd "THE CODES TO CLEAR THE SCREEN. THIS PROGRAM IS DESIGNED TO CHANGE" In "BAZIC FOR THE TERMINALS LISTED AND TO ALLOW CUSTOM CHANGES IF YOU" Hx "KNOW THE CODES FOR A CRT THAT IS NOT LISTED HERE. SOME CRTS MAY" K "REQUIRE RE-WRITING THE CURSOR ADDRESSING AND CLEAR SCREEN ROUTINES." J "THIS PROGRAM CAN BE CHANGED SO THAT IT 'WRITES' THE PROPER ROUTINE" M "BY ADDING AN ENTRY TO THE TABLE OF DATA STATEMENTS AT THE END OF THIS" H "PROGRAM. THE FIRST FIELD IS THE NUMBER OF PAIRS THAT HAVE TO BE" G "WRITTEN. EACH PAIR CONSISTS OF THE VALUE TO BE WRITTEN AND THE" K "NUMBER OF BYTES FROM THE BEGINNING OF BAZIC OF WHERE THE BYTE IS TO"  "BE WRITTEN." I \"THE BAZIC DISK MUST BE IN DRIVE 1 FOR THIS PROGRAM TO OPERATE"\ % "PRESS RETURN TO CONTINUE ",X$  \ CLEAR SCREEN $ "1=ZENITH Z-19 OR HEATH WH-19"  "2=ADM-3A"  "3=INTERTEC INTERTUBE"  "4=HAZELTINE"  "5=SOROC"  "6=NORTHSTAR ADVANTAGE"  "7=OTHER"  \ C "PICK THE NUMBER THAT CORRESPONDS TO YOUR CRT (0 TO END) ",I * I0 IC \ ID RESPSE CHECK " I0 , \ CLEAR SCREEN 16 "1= 8 DIGIT SOFTWARE FLOATING POINT BAZIC" 1@ "2= 10 DIGIT SOFTWARE FLOATING POINT BAZIC" 1J "3= 12 DIGIT SOFTWARE FLOATING POINT BAZIC" 1T "4= 14 DIGIT SOFTWARE FLOATING POINT BAZIC" 1^ "5= 8 DIGIT HARDWARE FLOATING POINT BAZIC" 1h "6= 10 DIGIT HARDWARE FLOATING POINT BAZIC" 1r "7= 12 DIGIT HARDWARE FLOATING POINT BAZIC" 1| "8= 14 DIGIT HARDWARE FLOATING POINT BAZIC"  \ : "ENTER NUMBER OF BAZIC TO BE CHANGED (0 TO END) ",E  E0 E8   E0  \ LE OF BAZIC NAMES  J1 E ) A$\ NAMES UNTIL THE RIGHT E  J % P\ LE OF BYTES KNOW CRTS ! IC \ OTHER SITUATI  H1 I + M\ NUMBER OF CODES LOCATI PAIRS  N1 M 5 NN),BN)\ UES O N ARRAY LOCATI O B  N  H 2 SECTI CRECT UES DISK COPY OF BAZIC & #1%1,A$\ BAZIC AS A 0 N1 M ': #1%BN),&NN),\ CRECT UES D N N #1 X N1 M ?b ABN),NN)\ PUT CURS ESG INFO IN RAM COPY OF BAZIC l N 2v SECTI TEST CLEAR SCREEN CURS ADDRESG  \ CLEAR THE SCREEN L "THIS LINE SHOULD BE AT THE TOP OF THE CRT AND THE REST OF THE SCREEN" ) "SHOULD BE CLEAR. 1=YES, 0=NO ",F ) F0 F1 \ ID ANSWER CHECK 7 F0 <\ NO, SO GO BACK TRY AGAIN CTINUE # SECTI TEST CURS ADDRESG  \ CLEAR SCREEN TEST  Z0 35 .25 ' @24Z)10,2Z4Z)6),"*",  Z J @20,1),"THIS COMPLETES THE TEST. IF EVERYTHING IS OK THERE SHOULD" = "BE A DISTINCT PATTERN FROM THE PREVIOUS !@ STATEMENTS" . "ENTER 1=EVERYTHING IS OK, 0=NOT OK ",F  F0 F1  $  F0 <\ START OVER OK    SECTI CUSM @ * \ CLEAR SCREEN H4 "THIS SECTION ASSUMES THAT YOU DO NOT HAVE ONE OF THE CRTS LISTED" J> "IN THE PREVIOUS MENU, BUT YOU DO KNOW THE CURSOR ADDRESSING PREFIX" IH "AND ROW AND COLUMN OFFSET VALUES AND THE CLEAR SCREEN CODE(S) FOR" PR "YOUR CRT. THE PREFIX IS PRESENTLY LIMINTED TO TWO BYTES, THE OFFSETS TO" J\ "ONE BYTE EACH, AND THE CLEAR SCREEN CODES TO TWO BYTES. IF ANY OF" Mf "YOUR CODES EXCEED THESE LIMITS, YOU WILL HAVE TO CUSTOMIZE THE CURSOR" Fp "ADDRESSING AND CLEAR SCREEN FEATURES OF BAZIC. PLEASE EXAMINE" Er "THE PARTIAL SOURCE LISTING IN YOUR BAZIC MANUAL AND CONSULT A" It "MACHINE LANGUAGE PROGRAMMER FOR HELP IN CONFIGURING BAZIC TO WORK" v "ON YOUR CRT." ?z \ "PRESS RETURN TO CONTINUE OR ANY OTHER KEY TO END ",X$  X$"" \  N1 6\ 6 BYTE UES 4 N1 \ INFO CURS ADDRESG PREFIX & N3 8\ INFO OFFSETS + N5 \ INFO CLEAR SCREEN ; "ENTER A VALUE ACCORDING TO THE INSTRUCTIONS ",NN) , NN)0 NN)255 \ OF RANGE  N E B1)30\B2)37\B3)68\B4)69\B5)74\B6)81\M6\ SET AULTS - \ MAKE CHANGES BAZIC TEST THEM * DESCRIPTI OF CURS ADDRESG PREFIX   F "THE FIRST THING TO BE ENTERED IS THE CURSOR ADDRESSING PREFIX." G "THIS IS THE CODE OR CODES SENT TO THE CRT TO INFORM THE CRT THE" H "CURSOR IS TO BE ADDRESSED. IF YOUR CRT NEEDS ONLY ONE CODE THEN" G "ENTER A ZERO (0) FOR THE FIRST VALUE. EACH CODE MUST BE IN THE" @ "RANGE OF 0 TO 255. ENTER THE CODES ONE VALUE AT A TIME." $ . 8 DESCRIPTI OF OFFSET UES B  GL "THE NEXT ITEM TO BE ENTERED IS THE OFFSET VALUE FOR THE ROW AND" HV "COLUMN. MOST CRTS REQUIRE A VALUE TO BE ADDED TO THE ACTUAL ROW" G` "AND COLUMN POSITION BEFORE THE TERMINAL WILL RESPOND CORRECTLY." Ij "THIS VALUE IS NORMALLY 31 BUT CAN BE 0 OR ANY OTHER VALUE IN THIS" Dt "RANGE. ENTER THE VALUES ONE AT A TIME STARTING WITH THE ROW" ~ "VALUE."   + DESCRIPTI OF THE CLEAR SCREEN CODES   G "THE LAST TWO VALUES TO BE ENTERED ARE THE CLEAR SCREEN CODE(S)." E "IF YOUR CRT REQUIRES ONLY ONE VALUE, ENTER A ZERO (0) FOR THE" < "SECOND ENTRY. REMEMBER TO ENTER ONE CODE AT A TIME."   3 X1 25\\ X\\ CLEAR SCREEN BY SCROLLING # LE OF BAZIC NAMES DISK  "BAZIC08"   "BAZIC10"  "BAZIC12"  "BAZIC14" ( "BAZIC08F" 2 "BAZIC10F" < "BAZIC12F" F "BAZIC14F" !P LE OF CODES OF KNOWN CRTS ;Z 6,27,30,89,37,31,68,31,69,27,74,69,81\ Z19 WH19 4d 6,27,30,61,37,31,68,31,69,26,74,0,81\ ADM3A 5n 6,27,30,61,37,31,68,31,69,12,74,00,81\ ITUBE Dx 8,126,30,17,37,255,68,255,69,126,74,28,81,92,49,93,56\ HAZEL D 10,27,30,61,37,31,68,31,69,5,70,27,71,43,72,13,73,13,74,36,75  SOC DELAY 9 6,27,30,61,37,32,68,32,69,4,74,0,81\ NS ADVANTAGE BAZIC10Af>w`AA>eBHIS PROGRAM TO OPERATES TOIS 3.GNy*N!ex *N*6"6"6"6y26x26