|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 156160 (0x26200) Types: TextFile Names: »D5«
└─⟦e61e7d03c⟧ Bits:30005867/disk01.imd Dokumenter (RCSL m.m.) └─⟦this⟧ »D5«
R_C_ _B_A_S_I_C_ A_ _S_t_r_u_c_t_u_r_e_d_ _E_d_u_c_a_t_i_o_n_a_l_ _L_a_n_g_u_a_g_e_ _(_C_O_M_A_L_)_ P_R_O_G_R_A_M_M_I_N_G_ _G_U_I_D_E_ A/S REGNECENTRALEN First Edition Development DivisionSeptember 1977 Documentation Department RCSL 42-i 0671\f Authors: Stig Møllgaard and Pierce Hazelton Keywords: RC 3600, RC 7000, MUS, DOMUS, RC BASIC, Programming Guide Abstract: This guide describes the RC BASIC language implemented for RC 3600 and RC 7000 minicomputers. Supporting RC BASIC System Logical Disc Formatting Program documents: Operating Guide (RCSL 43-G 45069). Copyright A/S Regnecentralen, 1977 Printed by A/S Regnecentralen, Copenhagen\f C_O_N_T_E_N_T_S_ 1 INTRODUCTION Page9 1.1 General information9 1.2 RC BASIC programs9 1.3 ESCape key10 1.4 Descriptions of statements, commands, and functions11 1.5 Formats used in descriptions12 2 RC BASIC ARITHMETIC15 2.1 Numbers15 2.2 Internal representation of numbers15 2.3 Variables16 2.4 Arrays16 2.4.1 Array elements16 2.4.2 Declaring an array17 2.5 Expressions17 2.5.1 Numeric expressions17 2.5.2 Arithmetic operators17 2.5.2.1 DIV operator18 2.5.2.2 MOD operator18 2.5.3 Priorities of arithmetic operators during program execution18 2.5.4 AND, OR, and NOT operators19 2.5.5 Relational expressions20 2.5.6 Relational operators20 2.5.7 Priorities of arithmetic, Boolean, and relational operators21 2.5.8 String expressions21 3 RC BASIC STATEMENTS 22 3.1 BYE 22 3.2 CASE-WHEN-ENDCASE 22 3.3 CHAIN 28 3.4 DATA 30 3.5 DEF 31 3.6 DELAY 33 3.7 DIM 33 3.8 END 35 3.9 ENTER 36 3.10 EXEC 37 3.11 FOR-NEXT 38 3.12 GOSUB and RETURN 42 3.13 GOTO 43 3.14 IF-THEN 44 \f 3.15 IF-THEN-ENDIF Page 46 3.16 IF-THEN-ELSE-ENDIF 48 3.17 INPUT50 3.18 LET53 3.19 NEW54 3.20 ON-ERR54 3.21 ON-ESC55 3.22 ON-GOTO/GOSUB58 3.23 PAGE59 3.24 PRINT59 3.25 PRINT USING63 3.26 PROC-ENDPROC71 3.27 RANDOMIZE73 3.28 READ75 3.29 REM76 3.30 REPEAT-UNTIL77 3.31 RESTORE79 3.32 SAVE80 3.33 STOP80 3.34 TAB81 3.35 TAB(X) function81 3.36 WHILE-ENDWHILE83 4 RC BASIC FUNCTIONS87 4.1 Introduction87 4.2 ABS(X)88 4.3 ATN(X)88 4.4 COS(X)89 4.5 EXP(X)89 4.6 FNa(d)90 4.7 INT(X)90 4.8 LOG(X)91 4.9 RND(X)91 4.10 SGN(X)94 4.11 SIN(X)94 4.12 SQR(X)95 4.13 SYS(X)96 4.14 TAN(X)97 5 STRING INFORMATION98 5.1 String concept98 5.1.1 String literals 98 5.1.2 String variables 98 5.1.3 Dimensioning string variables 99 5.1.4 Substrings 99 5.1.5 Assigning values to string variables 100 5.1.6 Concatenation of strings 100 \f 5.1.7 Relational string expressions Page 102 5.2 CHR(X) function 103 5.3 LEN(X<) function 104 5.4 ORD(X<) function 105 6 MATRIX MANIPULATION 107 6.1 Matrix operations107 6.2 Dimensioning matrices107 6.3 Matrix assignment statement108 6.4 Matrix addition/subtraction statement109 6.5 Matrix multiplication statement111 6.6 DET(X) function113 6.7 MAT CON statement114 6.8 MAT IDN statement115 6.9 MAT INPUT statement117 6.10 MAT INV statement117 6.11 MAT PRINT statement119 6.12 MAT READ statement121 6.13 MAT TRN statement122 6.14 MAT ZER statement122 7 LOGICAL DISCS AND RELATED COMMANDS124 7.1 Introduction124 7.2 CONNECT126 7.3 COPY127 7.4 INIT128 7.5 LOCK128 7.6 LOOKUP129 7.7 RELEASE131 7.8 USERS131 8 FILES AND RELATED STATEMENTS133 8.1 Introduction133 8.1.1 Disc files and devices133 8.1.2 Standard devices and reserved names133 8.1.3 Block sizes134 8.1.4 Filenames and file sizes134 8.1.5 How files are used134 8.1.6 Random access files135 8.1.7 Sequential access files135 8.1.8 Write protection135 8.2 CLOSE FILE136 8.3 CREATE137 8.4 DELETE138 8.5 EOF(X) function139 8.6 INPUT FILE140 8.7 MAT INPUT FILE141\f 8.8 MAT PRINT FILEPage141 8.9 MAT READ FILE142 8.10 MAT WRITE FILE 143 8.11 OPEN FILE 143 8.12 PRINT FILE145 8.13 PRINT FILE USING146 8.14 READ FILE147 8.15 RENAME148 8.16 WRITE FILE149 9 SYSTEM COMMANDS151 9.1 Introduction151 9.2 Command to delete program statements151 9.3 AUTO153 9.4 BATCH/BATCH "<LPT"155 9.5 BYE155 9.6 CON/CONL156 9.7 ENTER158 9.8 EOJ159 9.9 LIST159 9.10 LOAD161 9.11 NEW162 9.12 PAGE163 9.13 PUNCH164 9.14RENUMBER166 9.15 RUN/RUNL168 9.16 SAVE170 9.17 SCRATCH172 9.18 SIZE173 9.19 TAB173 9.20 TIME174 APPENDICES A ERROR MESSAGES 175 A.1 Introduction 175 A.2 Error messages176 A.3 I/O error messages184 A.3.1 I/O error messages 0100 through 0119, 0135, 184 and 136 A.3.2 I/O error messages 0120 through 0134187 B BATCH MODE AND PROGRAMMING ON MARK-SENSE CARDS192 B.1 Batch jobs192 B.2 Mark-sense cards194\f B.2.1 STATEMENT NUMBERPage 195 B.2.2 STATEMENT 1196 B.2.3 STATEMENT 2 197 B.2.4 FORMULA198 B.2.4.1 Even numbered columns198 B.2.4.2 Odd numbered columns198 B.2.4.3 Writing characters199 B.3 Batch mode202 B.3.1 BATCH/BATCH "<LPT" command202 B.3.2 Illegal statements and commands202 B.3.3 Time limit on jobs203 B.3.4 ESCape key203 B.3.5 Return to interactive mode203 B.4 EOJ command204 B.5 SCRATCH command204 B.6 TIME command205 C OTHER INTERACTIVE USES OF RC BASIC206 C.1 Commands derived from RC BASIC statements206 C.2 Desk calculator functions207 C.3 Program debugging207 C.4 File input/output208 D ASCII CHARACTER SET209 D.1 ASCII characters with their decimal and octal values209 D.2 Output of non-printing characters210 E RESERVED WORDS211 F SUMMARY OF STATEMENTS, COMMANDS, AND FUNCTIONS212 F.1 RC BASIC statements (Chapter 3)212 F.2 RC BASIC functions (Chapter 4)217 F.3 String functions (Chapter 5)219 F.4 Matrix statements (Chapter 6)219 F.5 Logical disc commands (Chapter 7)221 F.6 File statements (Chapter 8)222 F.7 System commands (Chapter 9)224 F.8 Batch mode commands (Appendix B)227 G ADVANCED PROGRAMMING EXAMPLES228 H CALLING AN ASSEMBLY LANGUAGE SUBROUTINE FROM RCBASIC229 INDEX230\f F_O_R_E_W_O_R_D_ RC BASIC is a structured educational language, implemented by A/S Regnecentralen to run on RC 3600 and RC 7000 minicomputers. The education sector has long felt the need for a suitable programming language: one which is simple and comprehensible, yet sufficiently advanced to permit demonstration of important programming principles. Until now the BASIC language has generally been used, for despite its deficiencies as regards advanced programming, BASIC, precisely because of its comprehensibility and convenient conversational form, has fulfilled a basic requirement in educational applications. In recent years proposals have been put forth for better educational languages, among them COMAL (C_o_m_mon A_lgorithmic L_anguage). COMAL possesses all the features that have made BASIC popular; in fact, COMAL includes almost all of the facilities found in existing versions of BASIC, and users can therefore run almost any program written in BASIC on a computer that runs COMAL. COMAL, however, contains significant extensions to the BASIC language. COMAL was proposed primarily to accommodate users desiring more advanced control facilities than those found in BASIC. Thus the designers of COMAL, inspired by the PASCAL language, have intro- duced five new control structures: REPEAT-UNTIL, WHILE-DO- ENDWHILE, IF-THEN-(ELSE)-ENDIF, and CASE-OF-WHEN-ENDCASE. COMAL also contains several other important extensions, such as the possibility of using long variable names (as many as eight characters), all of which contribute to making COMAL programs clearer and more readable than programs written in BASIC. The COMAL language, which was designed by Børge Christensen, Government Teachers" College, Tønder, Denmark, in collaboration with Benedict Løfstedt, Århus University, is incorporated in RC F_BASIC.\f 1 I_N_T_R_O_D_U_C_T_I_O_N_ 1.1 G_e_n_e_r_a_l_ _i_n_f_o_r_m_a_t_i_o_n_ The RC BASIC programming language provides facilities for: Writing structured programs. Executing programs in interactive mode. Running jobs in batch mode. Performing file input/output. Performing matrix operations. Manipulating strings. Formatting output. Performing desk calculator functions. RC BASIC runs under the RC operating system MUS (M_ultiprogram- ming U_tility S_ystem) or DOMUS (D_isc O_perating M_ultiprogramming U_tility S_ystem). This programming guide describes the syntax and semantics of RC BASIC statements, commands, and functions. Those who have access to terminals can use RC BASIC in inter- active mode, but it is also possible to execute programs written on mark-sense cards in batch mode (see App. B). 1.2 R_C_ _B_A_S_I_C_ _p_r_o_g_r_a_m_s_ An RC BASIC program consists of a number of statements. Each statement begins with a line number, in the range 1 to 9999, which determines the order in which the statement will be executed. The rest of the statement is made up of one or more RC BASIC words (see below), with or without arguments. Each statement is written on a separate line. The user terminates each statement line by pressing the RETURN key. This generates an automatic line feed in addition to the carriage return. (Note: The "carriage return" separator referred to in this guide is the RETURN key, not the ASCII character Carriage Return). If the user discovers a typing error b_e_f_o_r_e_ he has pressed the RETURN key, he can delete the last character typed by pressing the RUBOUT key (repeatedly, if need be) or delete the entire line by pressing the ESCape key. \f Some RC BASIC words, such as END, STOP, or CLOSE, can be used alone to perform an operation; others require one or more arguments, on which the operations are performed. Thus the word READ, for example, cannot be used alone; READ must have at least one argument, viz. the name of a variable to which a value is to be assigned (e.g. READ PRICE). The user may enter program statements in any order. The system will arrange them by ascending line numbers. When a program is run, the statements are executed one by one in ascending line number order, usually beginning with the lowest numbered statement. The sequential execution of state- ments may be interrupted by a "control transfer statement," such as ENDWHILE, EXEC, ENDPROC, or GOTO. Many of the RC BASIC statements, which are described in Chapters 3, 6, and 8, may also be used as keyboard commands (see App. C). When a statement is used as a command, it is entered without a preceding line number and terminated by pressing the RETURN key, whereupon the system executes it immediately. Still other RC BASIC words can only be used alone, i.e. they cannot be part of a statement, but are used solely as commands. LIST and RUN are examples of such words. When a program has been entered, it will remain in core memory until the user clears it by means of a NEW command. New statement lines can be inserted anywhere in a program. Existing statements can be deleted, by typing the statement line number and pressing the RETURN key, or corrected, simply by entering a new statement with the same line number. The currently loaded program can be executed by means of a RUN/RUNL command. T_ 1.3 E_S_C_a_p_e_ _k_e_y_ Pressing the ESCape key during program execution will cause &_ interruption of the program, unless an ON-ESC statement has been executed (see Ch. 3). Control will be returned to interactive mode, and the system will output the following on the user"s\f terminal: T_ STOP AT xxxx' &_ * where xxxx' is the line number of the statement at which the program was interrupted. The asterisk (*) prompt indicates that the user may enter a command or a program statement. Program execution can be resumed by means of a CON/CONL or RUN/RUNL line no.' command. Pressing the ESCape key on an idle terminal (e.g. after system start-up or a BYE command) will place the terminal in inter- active mode. When a terminal is in batch mode, the ESCape key has a special function (see App. B). T_1.4 D_e_s_c_r_i_p_t_i_o_n_s_ _o_f_ _s_t_a_t_e_m_e_n_t_s_,_ _c_o_m_m_a_n_d_s_,_ _a_n_d_ _f_u_n_c_t_i_o_n_s_ Descriptions of the statements, commands, and functions in the RC BASIC language will be found in Chapters 3 through 9. These descriptions have the following form: x.y R_C_ _B_A_S_I_C_ _W_O_R_D_ Format Use Remarks Example &_ where x.y : Chapter.Section RC BASIC WORD : One or more reserved RC BASIC words Format : The generalized format (syntax) of the statement, command, or function. This format, which is explained in detail below, must be used when the statement, command, or function is entered from the terminal, otherwise an error message (usually 0002: SYNTAX ERROR) will result.\f Use : Indicates whether the RC BASIC word is used as a statement, command, or function, and describes the operation or operations which it performs. Remarks : Contains remarks concerning the use of the statement, command, or function, including rules, precautions, program operation, and the like. Example : The use of most of the statements, commands, and functions is illustrated by one or more examples, which usually consist of small programs, followed by the output produced when the program was executed. As many of the programs were listed on the line printer, and the resulting output was directed to the line printer, the commands used (viz. LIST "<LPT" and RUNL) do not appear in these examples. In a few examples, for clarity"s sake, the text entered by the user is underlined and followed by the symbol to denote that the user has terminated the line by pressing the RETURN key, e.g. ? 5_,_6_,_7_,_8_ _ _ 1.5 F_o_r_m_a_t_s_ _u_s_e_d_ _i_n_ _d_e_s_c_r_i_p_t_i_o_n_s_ Capital letters in the generalized format denote literal entries. Any parentheses should be inserted as indicated. Braces ( ) indicate a choice of the items enclosed. Brackets () indicate that the enclosed items are optional. An ellipsis (...) indicates that the preceding argument may be repeated. \f Several abbreviations are used in the formats to represent common terms. All abbreviations in a format are explained immediately beneath it, while the terms represented are defined in the appropriate chapters of this guide. The most frequently occurring abbreviations are: var' : The name of a numeric variable, with or without subscripts. svar' : The name of a string variable, with or without subscripts. expr' : A numeric, relational (Boolean), orstring expression (see Ch. 2). slit' : A string literal (string constant), i.e. a sequence of characters enclosed within quotation marks ("). val' : A numeric constant. line no.' : A statement line number in the range 1 to 9999. statements' : One or more RC BASIC statements. mvar' : The name of a matrix variable. ldname' : The name of a logical disc. filename' : The name of a disc file or a device. device' : The name of a device. file' : A numeric expression which evaluates to a number in the range 0 to 7 (the number of a user file). F_ \f T_ As an example, consider the generalized format of the PRINT statement (see Ch. 3): expr' expr' ;slit' , slit' , PRINT svar' ; svar' ... ; &_1 1 25 56 7 7 6 234 43 The PRINT statement begins with the word PRINT. As PRINT is frequently used, one can write a semicolon (;) instead of the word PRINT. This is indicated by the pair of braces 1-1. The pair of brackets 2-2 indicates that the PRINT statement need not have an argument. PRINT may optionally (brackets 3-3) be followed by a comma or a semicolon (braces 4-4). An argument may be of the type expr', slit', or svar', as indicated by the pair of braces 5-5. If there is more than one argument (brackets 6-6 and the ellipsis), the arguments should be separated by a comma or a semicolon (braces 7-7).\f 2. R_C_ _B_A_S_I_C_ _A_R_I_T_H_M_E_T_I_C_ 2.1 N_u_m_b_e_r_s_ An RC BASIC number may be in the range: 5.4 * 10UUU-79 DDD n 7.2 * 10UUU75DDD Numbers may be expressed as integers, as floating-point numbers, or in exponential form (E-type notation). In the conversion of numeric data, e.g. by a PRINT statement (see Ch. 3), any floating-point or integer number that contains six digits or less is formatted without using exponential form. A floating-point or integer number that requires more than six digits is printed in the following E-type notation: sign'n.nnnnnEsign'XX where n.nnnnn is an unsigned number carried to five decimal places with trailing zeroes suppressed, E means "times 10 to the power of," and XX represents an unsigned exponential value. N_u_m_b_e_r_ O_u_t_p_u_t_ _f_o_r_m_a_t_ 2,000,000 2E+06 108.999 108.999 .0000256789 2.56789E-05 24E10 2.4E+11 T_ 2.2 I_n_t_e_r_n_a_l_ _r_e_p_r_e_s_e_n_t_a_t_i_o_n_ _o_f_ _n_u_m_b_e_r_s_ Internally, floating-point numbers are stored in two consecutive 16-bit words having the form: _0_ _ _1_ _ _ _ _ _7_ _8_ _ _ _ _ _ _ _ _1_5_ _S_ _ _ _ _ _C_ _______________MANTISSA _______________________ 16 31 &_ \f where: S is the sign of the mantissa (0 = positive, 1 = negative); the mantissa is a normalized six-digit hexadecimal fraction; and C is the characteristic and an integer expressed in excess 64 code. T_2.3 V_a_r_i_a_b_l_e_s_ A numeric variable name (shown in the statement descriptions &_ as var') consists of a single letter followed by from 0 to 7 T_ digits or letters, for example: L_e_g_a_l_ _n_a_m_e_s_ I_l_l_e_g_a_l_ _n_a_m_e_s_ I <PRICE INTEREST 6I AMOUNT MEANVALUE PRICE &_ In addition to numeric variables, string variables (shown in the statement descriptions as svar') are also permitted in RC BASIC (see Ch. 5). T_2.4 A_r_r_a_y_s_ An array represents an ordered set of values. Each member of &_ the set is called an array element. An array can have either one or two dimensions. An array name consists of a single letter followed by from 0 to 7 digits or letters. b_2.4.1 A_r_r_a_y_ _e_l_e_m_e_n_t_s_e Each of the elements of an array is identified by the name of the array followed by a parenthesized subscript, for example: ITEMNO(1), ITEMNO(2), ..., ITEMNO(8), ITEMNO(9) &_ For a two-dimensional array, the first number gives the number of the row and the second gives the number of the T_ column for each element. Thus the elements of the array C(2,3) would be: C(1,1) C(1,2) C(1,3) &_ C(2,1) C(2,2) C(2,3) \f b_2.4.2 D_e_c_l_a_r_i_n_g_ _a_n_ _a_r_r_a_y_ e An array must be declared in a DIM statement (see Ch. 3), which gives the name of the array and its dimensions. &_ The lower bound of a dimension is always 1. The upper bound is given in the DIM statement, two upper bounds being separated by a comma (,). Dimensional information is enclosed in parantheses T_ immediately following the name of the array in the DIM statement, for example: 5 DIM SET(15), AMOUNT(2,3) The total number of elements in an array may not exceed 32 767. &_ Available memory will normally impose a limit, however. T_2.5 E_x_p_r_e_s_s_i_o_n_s_ &_ An expression (shown in the statement descriptions as expr') may be composed of parentheses, constants and variables (numeric or string), and functions, linked together by operators. T_b_2.5.1 N_u_m_e_r_i_c_ _e_x_p_r_e_s_s_i_o_n_s_e A numeric expression may be composed of numeric variables and constants and (numeric) functions, linked together by arithmetic operators. T_b_ 2.5.2 A_r_i_t_h_m_e_t_i_c_ _o_p_e_r_a_t_o_r_s_e The arithmetic operators are as follows: + : monadic + ( A+(+B) ) - : monadic - ( A+(-B) ) : exponentiation ( A B ) * : multiplication ( A*B ) / : division ( A/B ) MOD : modulus calculation ( A MOD B ) DIV : integer division ( A DIV B ) + : addition ( A+B ) - : subtraction ( A-B ) &_ The operators +, -, *, /, and are familiar to most, but DIV and MOD may require some explanation. \f T_2.5.2.1 D_I_V_ _o_p_e_r_a_t_o_r_. The result of an integer division A DIV B is equal to: SGN(A/B)*INT(INT(ABS(A))/INT(ABS(B))) The SGN(X), INT(X), and ABS(X) functions are described in Chapter 4. E_x_a_m_p_l_e_s_ 11 DIV 4 = +1 x 2 = 2 -11 DIV 4 = -1 x 2 = -2 &_ T_ 2.5.2.2 M_O_D_ _o_p_e_r_a_t_o_r_. The result of a modulus calculation A MOD B is equal to: SGN(A)*INT(ABS(A))-A DIV B*SGN(B)*INT(ABS(B)) &_ The SGN(X), INT(X), and ABS(X) functions are described in Chapter 4. T_ E_x_a_m_p_l_e_s_ 11 MOD 4 = 11 - 2 x 4 = 3 -11 MOD 4 = -11 - (-2) x 4 = -3 &_ T_b_2.5.3 P_r_i_o_r_i_t_i_e_s_ _o_f_ _a_r_i_t_h_m_e_t_i_c_ _o_p_e_r_a_t_o_r_s_ _d_u_r_i_n_g_ _p_r_o_g_r_a_m_ _e_x_e_c_u_t_i_o_n_ _e As a general rule, numeric expressions are evaluated from left &_ to right. The arithmetic operators, however, have different priorities, for which reason the following exceptions to this rule apply: 1. Numeric expressions enclosed within parentheses are always evaluated before non-parenthesized expressions. If expres- sions are nested, the innermost expression is evaluatedfirst. 2. Functions are evaluated next. 3. The priorities of the arithmetic operators are as follows: First: monadic plus and monadic minus Second: exponentiation Third: multiplication, division, modulus calculation, and integer division \f Fourth: addition and subtraction 4. When two operators have the same priority, evaluation proceeds from left to right. T_ The following two examples should help clarify the principles according to which numeric expressions are evaluated. 1 + 2 - 3 x 4 2 DIV 5 + 6 1: 1 + 2 - 3 x 16 DIV 5 + 6 2: 1 + 2 - 48 DIV 5 + 6 3: 1 + 2 - 9 + 6 4: 3 -9 + 6 5: -6 + 6 6: 0 (1 + (2 - 3) x 4 2) DIV 5 + 6 1: (1 + (-1) x 4 2) DIV 5 + 6 2: (1 -1 x 4 2) DIV 5 + 6 3: (1 -1 x 16 ) DIV 5 + 6 4: (1 - 16 ) DIV 5 + 6 5: -15 DIV 5 + 6 6: -3 + 6 7: 3 &_ T_ b_ 2.5.4 A_N_D_,_ _O_R_,_ _a_n_d_ _N_O_T_ _o_p_e_r_a_t_o_r_s_e The operators AND, OR, and NOT are analogous to *, +, and &_ -; but whereas *, +, and - have numeric arguments, AND, OR, and NOT have Boolean arguments. A Boolean argument can have two values: true, corresponding to 1 (or ' 0), and false, corresponding to 0. T_ NOT operates on one argument only, and means logical ne- gation, for example: _ _A_ _ _ _ _ _ _ _ _ _ _ _N_O_T_ _A_ _ TRUE FALSE _F_A_L_S_E_ _ _ _ _ _ _ _ _T_R_U_E_ _ _ &_ \f T_ AND operates on two arguments, and means logical multi- plication (logical and), for example: _ _A_ _ _ _ _ _ _ _ _ _ _ _B_ _ _ _ _ _ _ _ _ _ _ _A_ _A_N_D_ _B____________ FALSE (0) FALSE (0) FALSE (0 x 0 = 0) FALSE (0) TRUE (1) FALSE (0 x 1 = 0) TRUE (1) FALSE (0) FALSE (1 x 0 = 0) _T_R_U_E_ _(_1_)_ _ _ _ _T_R_U_E_ _(_1_)_ _ _ _ _ _T_R_U_E_ _(_1_ _x_ _1_ _=_ _1_)__ _ &_ T_ OR operates on two arguments, and means logical addition (logical or), for example: _ _A_ _ _ _ _ _ _ _ _ _ _ _B_ _ _ _ _ _ _ _ _ _ _ _A_ _O_R_ _B____________ _ FALSE (0) FALSE (0) FALSE (0 + 0 = 0) FALSE (0) TRUE (1) TRUE (0 + 1 = 1) TRUE (1) FALSE (0) TRUE (1 + 0 = 1) _T_R_U_E_ _(_1_)_ _ _ _ _T_R_U_E_ _(_1_)_ _ _ _ _ _T_R_U_E_ _(_1_ _+_ _1_ __'_ _0_)_ _ &_ T_ The priorities of these three operators are: First: NOT Second: AND &_ Third: OR T_ b_ 2.5.5 R_e_l_a_t_i_o_n_a_l_ _e_x_p_r_e_s_s_i_o_n_s_e A relational expression is composed of two expressions of the same type, i.e. both numeric or both string, linked &_ together by a relational operator. T_b_2.5.6 R_e_l_a_t_i_o_n_a_l_ _o_p_e_r_a_t_o_r_s_e The relational operators are as follows: : less than = : less than or equal to = : equal to '= : greater than or equal to ' : greater than &_ ' : not equal to As mentioned above, all relational operators have two arguments. The arguments are compared, and the result of the comparison is always either true or false. Thus the notation 0 X 10\f is illegal, as this would result in a comparison of 0 and X (true or false) followed by a comparison of (true or false) and 10 which is meaningless. The correct notation is: 0 X AND X 10 T_ E_x_a_m_p_l_e_s_ 1 10 is true. 1 ' 10 is false. "JOHN" "PETER" is true (see Ch. 5). 1 10 AND 20 30 is true (1 x 1 = 1). 10 5 OR 2 11 is true (0 + 1 = 1). NOT 1 4 is false. &_ T_b_2.5.7 P_r_i_o_r_i_t_i_e_s_ _o_f_ _a_r_i_t_h_m_e_t_i_c_,_ _B_o_o_l_e_a_n_,_ _a_n_d_ _r_e_l_a_t_i_o_n_a_l_ _o_p_e_r_a_t_o_r_s_ e In compound expressions, the priorities of arithmetic, Boolean, and relational operators are as follows: First: monadic plus and monadic minus Second: exponentiation Third: multiplication, division, modulus calculation, and integer division Fourth: addition and subtraction Fifth: relational operators (', , =, =, '=, ') Sixth: NOT Seventh: AND Eighth: OR T_ b_ 2.5.8 S_t_r_i_n_g_ _e_x_p_r_e_s_s_i_o_n_s_e A string expression (see further Ch. 5) may be any of the following: 1. A string variable, e.g. ANSWER< 2. A string literal, e.g. "PETER" 3. The CHR(X) function, e.g. CHR(65) 4. A concatenation of the above items, e.g. &_ "JOHN SMITH",ADDRESS< \f 3 RC BASIC STATEMENTS 3.1 B_Y_E_ For description, see Chapter 9. 3.2 C_A_S_E_-_W_H_E_N_-_E_N_D_C_A_S_E_ F_o_r_m_a_t_ CASE expr' OF statements-0' WHEN expr' ,expr' ... statements-1' . . . WHEN expr' ,expr' ... statements-n' ENDCASE comment' expr': an expression. statements-0': a block of statements. . . . statements-n': a block of statements. comment': a text comment. U_s_e_ As a statement to execute one of several block of statements depending on the value of an expression. R_e_m_a_r_k_s_ 1. R_u_l_e_s_ a. expr' may be an expression of any kind. b. For every CASE statement there must be at least one corresponding WHEN statement and one ENDCASE statement. \f c. If a block of statements belonging to a CASE construc- tion is entered from outside the construction, the error message 0062: WHEN WITHOUT CASE or 0061: ENDCASE WITHOUT CASE will be output when WHEN or ENDCASE is encountered. T_2. P_r_o_g_r_a_m_ _o_p_e_r_a_t_i_o_n_ a. The expression in the CASE expr' OF statement is evaluated. &_ b. The expressions in the WHEN expr' ,expr' statements are evaluated one by one until a value is found which is equal to the value obtained in step a. If this value is found in the ith WHEN statement, statements-i' is executed. c. Execution continues until a WHEN or ENDCASE statement is encountered; after this, control is transferred to the first statement following the ENDCASE statement. d. If a matching value is not found in step b, statements-0' is executed. If statements-0' is not present, the error message 0059: CASE WITHOUT WHEN, CASE ERROR will be output. T_3. N_e_s_t_e_d_ _c_o_n_s_t_r_u_c_t_i_o_n_s_ CASE-WHEN-ENDCASE constructions may be nested to any depth. &_ 4. The word ENDCASE may be followed by a comment. \f T_ E_x_a_m_p_l_e_ _1_ C_o_m_m_e_n_t_ _(_1_)_ 0010 FOR I=1 TO 5 Shows a nested CASE con- 0020 CASE I OFstruction. 0030 PRINT "CASE ERROR - I" 0040 WHEN 1,3+1,6 0050 FOR J=3 TO 5 0060 CASE J OF 0070 PRINT "CASE ERROR - J" 0080 WHEN 3 0090 PRINT "I,J =";I;J 0100 WHEN 4 0110 PRINT "J,I =";J;I 0120 ENDCASE 0130 NEXT J 0140 WHEN 2 0150 PRINT "I =";I 0160 WHEN 3 0170 PRINT "I =";I 0180 ENDCASE 0190 NEXT I 0200 STOP T_ I,J = 1 3 J,I = 4 1 CASE ERROR - J I = 2 I = 3 I,J = 4 3 J,I = 4 4 CASE ERROR - J CASE ERROR - I &_ \f T_ E_x_a_m_p_l_e_ _2_ 0010 DIM MONTH<(10) 0020 FOR MONTHNR=1 TO 13 0030 CASE MONTHNR OF 0040 PRINT "ILLEGAL NUMBER: ";MONTHNR 0050 GOTO 0330 0060 WHEN 1 0070 LET MONTH<="JANUARY"; DAYS=31 0080 WHEN 2 0090 LET MONTH<="FEBRUARY"; DAYS=28 0100 WHEN 3 0110 LET MONTH<="MARCH"; DAYS=31 0120 WHEN 4 0130 LET MONTH<="APRIL"; DAYS=30 0140 WHEN 5 0150 LET MONTH<="MAY"; DAYS=31 0160 WHEN 6 0170 LET MONTH<="JUNE"; DAYS=30 0180 WHEN 7 0190 LET MONTH<="JULY"; DAYS=31 0200 WHEN 8 0210 LET MONTH<="AUGUST"; DAYS=31 0220 WHEN 9 0230 LET MONTH<="SEPTEMBER"; DAYS=30 0240 WHEN 10 0250 LET MONTH<="OCTOBER"; DAYS 31 0260 WHEN 11 0270 LET MONTH<="NOVEMBER"; DAYS 30 0280 WHEN 12 0290 LET MONTH<="DECEMBER"; DAYS 31 0300 ENDCASE 0310 PRINT TAB(10-LEN(MONTH<));MONTH<; 0320 PRINT " HAS";DAYS;"DAYS." 0330 NEXT MONTHNR &_ 0340 STOP \f T_ JANUARY HAS 31 DAYS. FEBRUARY HAS 28 DAYS. MARCH HAS 31 DAYS. APRIL HAS 30 DAYS. MAY HAS 31 DAYS. JUNE HAS 30 DAYS. JULY HAS 31 DAYS. AUGUST HAS 31 DAYS. SEPTEMBER HAS 30 DAYS. OCTOBER HAS 31 DAYS. NOVEMBER HAS 30 DAYS. DECEMBER HAS 31 DAYS. &_ ILLEGAL NUMBER: 13 \f T_ E_x_a_m_p_l_e_ _3_ 0010 DIM ANSWER<(20) 0020 PROC GETANSWR 0030 REM THE PROCEDURE ACCEPTS ONE OF THREE POSSIBLE 0040 REM ANSWERS: YES, NO, OR DON"T KNOW 0050 REPEAT 0060 LET ERROR=0 0070 INPUT ANSWER< 0080 PRINT ANSWER< 0090 CASE ANSWER< OF 0100 PRINT "ERROR, RETYPE" 0110 LET ERROR=1 0120 WHEN "YES" 0130 LET YES=YES+1 0140 WHEN "NO" 0150 LET NO=NO+1 0160 WHEN "DON"T KNOW","DO NOT KNOW" 0170 LET DONTKNOW=DONTKNOW+1 0180 WHEN "END" 0190 LET FINIS=1 0200 ENDCASE 0210 UNTIL NOT ERROR 0220 ENDPROC 0230 REM 0240 REM MAIN PROGRAM 0250 REM PRINT QUESTION, CHECK ANSWER 0260 REM BY MEANS OF THE PROCEDURE 0270 REM GETANSWR 0280 REM 0290 LET FINIS=0; YES=0; NO=0; DONTKNOW=0 0300 REPEAT 0310 PRINT "QUESTION" 0320 EXEC GETANSWR 0330 UNTIL FINIS 0340 PRINT "13'10'10'"," YES"," NO","DON"T KNOW" 0350 PRINT ,YES,NO,DONTKNOW 0360 STOP &_ \f T_ QUESTIONC_o_m_m_e_n_t_ _(_3_)_ NO QUESTIONFor PROC-ENDPROC, YESsee Section 3.26. QUESTION YES QUESTION DO NOT KNOW QUESTION NO QUESTION DON"T KNOW QUESTION NOT ERROR, RETYPE NO QUESTION YESE ERROR, RETYPE YES QUESTION END YES NO DON"T KNOW &_ 3 3 2 T_ 3.3 C_H_A_I_N_ F_o_r_m_a_t_ &_ CHAIN filename' THEN GOTO lineno.' filename': a disc file or a device expressed as a string literal or by means of a variable. line no.': the line number in the program referred to by filename' from which execution is to begin. T_ U_s_e_ As a statement or command to run the SAVEd program referred to by filename' when the CHAIN statement is encountered in the user"s &_ program. \f T_ R_e_m_a_r_k_s_ 1. When a CHAIN statement is encountered in a program, it stops execution of that program, loads a previously SAVEd program (see SAVE, Ch. 9) from the disc file or the device specified by filename', and begins execution of the SAVEd program. 2. If the SAVEd program is on disc, the system searches the logical disc to which the terminal is connected for filename' (see Ch. 8). If filename' is not found, the system outputs the error message 0100: FILE UNKNOWN. 3. If filename' is found, the user"s currently running program is cleared from core memory and the SAVEd program is loaded into core memory from filename'. If filename' is not found, the current program remains in core memory. 4. The newly loaded program is run from its lowest numbered statement, unless the THEN GOTO line no.' argument is given in the CHAIN statement to specify another line number from which execution is to begin. 5. The CHAIN statement is typically used to divide a large program into smaller programs or to run independent programs from a main program on the basis of conditional statements. 6. CHAIN may also be used as a command, in which case it has the same effect as LOAD (see Ch. 9), i.e. the SAVEd program is loaded, but not executed. E_x_a_m_p_l_e_ _1_ C_o_m_m_e_n_t_ _(_1_)_ 0010 INPUT "SELECT PROGRAM NUMBER : ",NUMBERThe user selects a 0020 CASE NUMBER OF program by typing a 0030 PRINT "ILLEGAL NUMBER" number. 0040 WHEN 1 0050 CHAIN "PROGRAM1" 0060 WHEN 2 0070 CHAIN "PROGRAM2" 0080 WHEN 3 0090 CHAIN "PROGRAM3" 0100 ENDCASE \f T_ E_x_a_m_p_l_e_ _2_ C_o_m_m_e_n_t_ _(_2_)_ 0010 DIM NAME<(10) The user selects a 0020 INPUT "SELECT PROGRAM : ",NAME< program by typing its 0030 CHAIN NAME< name, i.e. the name of 0040 END the disc file or the device from which the program is to be CHAINed. &_ T_ 3.4 D_A_T_A_ F_o_r_m_a_t_ val' ,val' DATA slit' ,slit' ... val': a numeric value. slit': a string literal. U_s_e_ As a statement to provide values to be read into variables &_ appearing in READ statements. T_ R_e_m_a_r_k_s_ &_ 1. The DATA statement is non-executable. 2. The values appearing in a DATA statement or statements form a single list. The first element in this list is the first item inthe lowest numbered DATA statement. The last element in the list is the last item in the highest numbered DATA statement. 3. Both numbers and string literals may appear in a DATA statement. Each value in a DATA statement list must be separated from the next value by a comma. T_ E_x_a_m_p_l_e_ 100 DATA 1,17,"AB,CD",-1.3E-13 &_ S_e_e_ _f_u_r_t_h_e_r_ _R_E_A_D_ _(_S_e_c_t_._ _3_._2_8_)_._ \f T_ 3.5 D_E_F_ F_o_r_m_a_t_ DEF FNa'(d') = expr' a': a letter. d': a dummy numeric variable, which may appear in expr'. expr': a numeric expression, which may contain the &_ variable d'. U_s_e_ As a statement to permit the user to define as many as 29 different functions, which can be referenced repeatedly throughout a program. Each function returns a numeric value. R_e_m_a_r_k_s_ 1. The name of the defined function must be the two letters FN followed by a single letter, viz. A, B, ..., Z, @, Ø, orÅ. 2. The dummy variable named in the DEF statement is not related to any variable in the program having the same name; the DEF statement simply defines the function and does not cause any calculation to be carried out. 3. In the function definition, expr' may be any legal numeric expression and may include other user-defined functions. Functions may be nested to a depth of seven. 4. Function definition is limited to a single-line DEF statement. Complex functions that require more that one program statement should be constructed as subroutines or procedures.\f T_ E_x_a_m_p_l_e_ _1_ C_o_m_m_e_n_t_ _(_1_)_ * LIST Calculates 0010 DEF FNP(X)=X 2+2*X+2 P(X) = X 2+2*X+2 for 0020 FOR I=1 TO 5 different values of X. 0030 PRINT FNP(I); 0040 NEXT I * RUN 5 10 17 26 37 END AT 0040 &_* T_ E_x_a_m_p_l_e_ _2_ C_o_m_m_e_n_t_ _(_2_)_ * LIST Shows the nesting of 0010 DEF FND(X)=X*SYS(14)/180functions. 0020 DEF FNS(X)=SIN(FND(X)) 0030 DEF FNC(X)=COS(FND(X)) 0040 FOR DEGR=0 TO 45 STEP 5 0050 PRINT DEGR,FNS(DEGR),FNC(DEGR) 0060 NEXT DEGR 0070 STOP * TAB=12 * RUN 0 0 1 5 8.71556E-2 .996195 10 .173648 .984808 15 .258819 .965926 20 .34202 .939693 25 .422618 .906308 30 .5 .866025 35 .573576 .819152 40 .642787 .766045 45 .707107 .707107 STOP AT 0070 &_*\f T_3.6 D_E_L_A_Y_ F_o_r_m_a_t_ DELAY = expr' expr': a numeric expression, which is evaluated to an integer in the range 0 expr' = 60. U_s_e_ As a statement to interrupt program execution for a specified number of seconds. R_e_m_a_r_k_s_ 1. expr' is the number of seconds for which the program is stopped. 2. When expr' seconds have passed since the DELAY statement was encountered, program execution will continue from the first statement following the DELAY statement. T_ 3.7D_I_M_ F_o_r_m_a_t_ svar'(m')svar'(m') DIM array'(m') , array'(m') ... array'(row',col') array'(row',col') svar': a string variable. m': a numeric expression, which evaluates to the length of a string variable orthe number of elements in a one-dimensional array. array': an array name. row': a numeric expression, which evaluates to the number of rows in an array. col': a numeric expression, which evaluates to the number of columns in an array. \f T_U_s_e_ As a statement or command to define explicitly the size of one or more numeric variable arrays or string variables. (Forthe dimensioning of string variables, see Chapter 5). &_ T_R_e_m_a_r_k_s_ 1. A_r_r_a_y_ _e_l_e_m_e_n_t_s_ For the concept of arrays, see Chapter 2. The DIM statement &_ is used to declare the size of an array to be a specified number of elements for each dimension, for example: 10 DIM A(13),B(7,7),C(20,5) Until a value is assigned by the user"s program, the value of all elements in an array is zero. Any variable or expression that is used for a subscript must evaluate to a value in the range 1 = value = upper bound declared in the DIM statement for example: 15 X=2 20 PRINT B(1,X 2) If the variable or expression subscript does not evaluate to an integer, RC BASIC will convert it using the INT(X) function (see Ch. 4). If a subscript evaluates to an integer greater than the upper bound of the dimension for the array or less than 1, the error message 0031: SUBSCRIPT ERROR will be output. T_2. R_e_d_i_m_e_n_s_i_o_n_i_n_g_ _a_r_r_a_y_s_ One can redimension a previously defined array during execution of a program by declaring the array in another DIM &_ statement. The total number of elements in the redimensioned array must not exceed the previous total number of elements, for example:\f T_ 100 DIM A(3,3) . . . 200 DIM A(2,3) . . . 300 DIM A(2,2) The values assigned to elements in the array A(3,3) are re- assigned to elements in the array A(2,3) and then to elements &_in the array A(2,2): T_ 1 2 3 1 2 3 1 2 4 5 6 4 5 6 3 4 7 8 9 A(1,1) = 1 A(1,1)= 1A(1,1) = 1 A(1,2) = 2 A(1,2) = 2 A(1,2) = 2 A(1,3) = 3 A(1,3) = 3 A(2,1) = 3 A(2,1) = 4 A(2,1) = 4 A(2,2) = 4 A(2,2) = 5 A(2,2) = 5 A(2,3) = 6 A(2,3) = 6 A(3,1) = 7 A(3,2) = 8 &_ A(3,3) = 9 T_3. T_o_t_a_l_ _n_u_m_b_e_r_ _o_f_ _e_l_e_m_e_n_t_s_ The total number of elements in an array may not exceed 32 767. Available memory will normally impose a limit, however. &_ T_ 3.8 E_N_D_ F_o_r_m_a_t_ END comment' comment': a text comment. &_ U_s_e_ As a statement to terminate execution of the program and to return control to interactive mode.\f T_R_e_m_a_r_k_s_ 1. RC BASIC includes the END statement, but does not require its &_ use to declare the physical end of a program. If control passes through the last executable statement of the program and if that statement does not change the flow of control, i.e. is not a GOTO or similar statement, then the program will transfer control to interactive mode. 2. Multiple END statements may appear in the same program, and when encountered will terminate execution of the program followed by a prompt (*) output on the user"s terminal. 3. The word END may be followed by a comment. T_E_x_a_m_p_l_e_ *20 PRINT "PROGRAM DONE" *30 GOTO 60 . . . *50 *60 END * RUN PROGRAM DONE END AT 0060 &_* T_ 3.9 E_N_T_E_R_ For description, see Chapter 9. &_ \f T_3.10 E_X_E_C_ F_o_r_m_a_t_ EXEC name' name': the name of a procedure. name' may also be a simple numeric variable. &_ T_U_s_e_ As a statement to execute a procedure defined by PROC-ENDPROC (see Sect. 3.26). &_ T_ R_e_m_a_r_k_s_ 1. R_u_l_e_s_ name' is the name of the procedure to be executed. If name' &_ is a simple numeric variable, it may be assigned a value before the procedure is called; it may also be assigned a new value by the procedure before control is returned to the main program. T_2. P_r_o_g_r_a_m_ _o_p_e_r_a_t_i_o_n_ a. When the EXEC statement is encountered, a search is made &_ for the procedure named name'. b. If name' is not found, the error message 0046: PROCEDURE DOES NOT EXIST will be output. c. The statements in the procedure are executed until an ENDPROC or RETURN statement is encountered. Control is then returned to the first statement following the EXEC statement. T_E_x_a_m_p_l_e_ See PROC-ENDPROC (Sect. 3.26). &_ \f T_3.11F_O_R_-_N_E_X_T_ F_o_r_m_a_t_ FOR control var' = expr1' TO expr2' STEP expr3' &_ statements' NEXT control var' control var': an unsubscripted numeric variable. expr1': a numeric expression defining the first or initial value of control var'. expr2': a numeric expression defining the terminating value of control var'. expr3': a numeric expression defining the increment added to control var' each time the loop is executed. statements': a block of statements, which may also contain FOR-NEXT loops. T_U_s_e_ As a statement to establish the initial, terminating, and &_incremental values of a control variable, which is used to determine the number of times a block of statements contained in a FOR-NEXT loop is to be executed. The loop is repeated until the value of the control variable meets the termination condition. T_R_e_m_a_r_k_s_ 1. R_u_l_e_s_ a. The control variable control var' must not be subscripted. &_ b. For every FOR or NEXT statement there must be a matching NEXT or FOR statement, otherwise an error message (0021: FOR WITHOUT NEXT or 0022: NEXT WITHOUT FOR) will be output. c. The expressions expr1', expr2', and expr3' may have\f positive or negative values; expr3' must not be zero. d. If the STEP expr3' argument is omitted in the FOR statement, expr3' is assumed to be +1. e. The termination condition for a FOR-NEXT loop depends on the values of expr1' and expr3'. The loop will terminate if expr3' is positive and the next value of control var' is greater than expr2', or if expr3' is negative and the next value of control var' is less than expr2'. N_o_t_e_:_ If the value of expr1' (the initial value) meets the termination condition, statements' will not be executed even once. f. If the body of a FOR-NEXT loop is entered at any point other than the FOR statement, the error message 0022: NEXT WITHOUT FOR will be output when the NEXT statement corresponding to the skipped FOR statement is encountered. g. When the termination condition is met, the loop is exited. T_2. P_r_o_g_r_a_m_ _l_o_o_p_ _o_p_e_r_a_t_i_o_n_ a. expr1', expr2', and expr3' are evaluated. If expr3' is not specified, it is assumed to be +1. &_ b. control var' is set equal to expr1'. c. If expr3' is positive (negative) and control var' is greater than (less than) expr2', the termination condition is satisfied and control passes to the first statement following the corresponding NEXTstatement; otherwise step e is performed. d. If expr3' is positive (negative) and control var' + expr3' is greater than (less than) expr2', the termination condition is satisfied and control passes to the first statement following the corresponding NEXT statement; otherwise control var' is set equal to control var' + expr3'. e.statements' is executed. \f f. Step d is repeated. T_3. N_e_s_t_e_d_ _l_o_o_p_s_ FOR-NEXT loops may be nested to a depth of seven. The FOR &_ statement and its terminating NEXT statement must be completely contained within the loop in which they are nested, for example: T_ L_e_g_a_l_ _n_e_s_t_i_n_g_ I_l_l_e_g_a_l_ _n_e_s_t_i_n_g_ FOR X = ... FOR X = ... FOR Y = ... FOR Y = ... FOR Z = ... NEXT X NEXT Z NEXT y NEXT Y &_ NEXT X T_ E_x_a_m_p_l_e_ _1_ C_o_m_m_e_n_t_ _(_1_)_ 0010 FOR I=1 TO 25 0020 FOR J=1 TO 25 STEP 7 0030 NEXT J 0040 NEXT I 0050 PRINT I,J 0060 STOP 25 22 Final values of I and J &_ before their terminating values were exceeded.\f T_E_x_a_m_p_l_e_ _2_ C_o_m_m_e_n_t_ _(_2_)_ 0010 LET A=10 Shows nested FOR-NEXT loops. 0020 FOR I=A TO 1 STEP -1 0030 PRINT TAB(I); 0040 FOR J=A TO I STEP -1 0050 PRINT "**"; 0060 NEXT J 0070 PRINT 0080 REM NEW LINE 0090 NEXT I 0100 STOP 01234567890123456789 ** **** ****** ******** ********** ************ ************** **************** ****************** &_******************** T_ E_x_a_m_p_l_e_ _3_ 0010 DIM TEXT<(30) 0020 LET TEXT<="TEXT1TEXT2TEXT3TEXT4TEXT5TEXT6" 0030 FOR I=5 TO 0 STEP -1 0040 PRINT TEXT<(I*5+1,(I+1)*5) 0050 NEXT I 0060 STOP TEXT6 C_o_m_m_e_n_t_ _(_3_)_ TEXT5 TEXT4 A string array can be imple- TEXT3 mented by means of a FOR-NEXT TEXT2construction. &_TEXT1 \f T_ 3.12G_O_S_U_B_ _a_n_d_ _R_E_T_U_R_N_ F_o_r_m_a_t_ GOSUB line no.' . . . statements' RETURN comment' line no.': the first statement of a subroutine. statements': a block of statements. T_ comment': a text comment. T_U_s_e_ As a statement to direct program control to the first statement of a subroutine. RETURN exits the subroutine and returns control to the first statement following the GOSUB statement that caused the subroutine to be entered. T_R_e_m_a_r_k_s_ 1. A subroutine is a convenient means of executing the same &_ block of statements at different places in a program. Sub- routines may be nested to a depth of seven. Nesting occurs when a subroutine is called during the execution of another subroutine. 2. A subroutine may be entered only by means of a GOSUB state- ment, otherwise the error message 0019: RETURN WITHOUT GOSUB will be output when the RETURN statement is encountered. 3. A subroutine may contain more than one RETURN statement, should program logic require the subroutine to terminate at one of a number of different places. 4. Although a subroutine may appear anywhere in a program, it is good practice to place the subroutine distinctly separate from the main program. In order to prevent inadvertent entry of the subroutine by other than a GOSUB statement, the sub- routine should be preceded by a STOP statement (see Sect. 3.33) or a GOTO statement (see Sect. 3.13) that directs control to a line number following the subroutine. 5. The word RETURN may be followed by a comment. \f T_E_x_a_m_p_l_e_ _1_ 0010 LET I=144 0020 GOSUB 0060 0030 LET I=169 0040 GOSUB 0060 0050 STOP 0060 PRINT "THE SQUARE ROOT OF";I;"IS:";SQR(I) 0070 RETURN THE SQUARE ROOT OF 144 IS: 12 &_THE SQUARE ROOT OF 169 IS: 13 T_E_x_a_m_p_l_e_ _2_ 0010 GOSUB 0040 0020 PRINT "EXAMPLE" 0030 GOTO 0140 0040 PRINT "NEST"; 0050 GOSUB 0080 0060 PRINT "INE "; 0070 RETURN 0080 PRINT "ED "; 0090 GOSUB 0120 0100 PRINT "ROUT"; 0110 RETURN 0120 PRINT "SUB"; 0130 RETURN 0140 STOP &_NESTED SUBROUTINE EXAMPLE T_ 3.13G_O_T_O_ F_o_r_m_a_t_ GOTO line no.' line no.': a line number. &_ U_s_e_ As a statement to transfer control unconditionally to a statement that is not in normal sequential order. \f R_e_m_a_r_k_s_ 1. If control is transferred to an executable statement, that statement and those following it will be executed. 2. If control is transferred to a non-executable statement, such as DATA, program execution will continue at the first execut- able statement following the non-executable statement. E_x_a_m_p_l_e_ 0010 READ NUMBER 0020 PRINT NUMBER; 0030 IF NUMBER'0 THEN GOTO 0010 0040 STOP 0050 DATA 10,9,8,7,6,5,4,3,2,1,0 &_ 10 9 8 7 6 5 4 3 2 1 0 T_3.14I_F_-_T_H_E_N_ F_o_r_m_a_t_ IF expr' THEN statement' expr': an expression which, when evaluated, has &_ the value true (' 0) or false (= 0). statement': any RC BASIC statement except CASE-WHEN- ENDCASE, DATA, DEF, END, FOR-NEXT, ENDIF, ELSE, PROC-ENDPROC, REM, REPEAT-UNTIL, and WHILE-ENDWHILE. T_U_s_e_ As a statement or command to execute a single statement de- &_pending on whether the value of an expression is true or false. T_R_e_m_a_r_k_s_ P_r_o_g_r_a_m_ _o_p_e_r_a_t_i_o_n_ &_1. If the value of expr' is true (' 0), statement' is exe- cuted. If statement' does not cause transfer of control to\f another part of the program, execution will then continue at the first statement following the IF-THEN statement. 2. If the value of expr' is false (= 0), statement' is not executed. N_o_t_e_:_ Since the internal representation of non-integer numbers may not be exact (.2 cannot be represented exactly, for example), it is advisable to test for a range of values when testing for a non-integer. If, for example, the result of a computation, A, was to be 1.0, a reliable test for 1 would be IF ABS(A-1.0)_1.0E-6 THEN ... If this test succeeded, A would be equal to 1 to within 1 part in 10 6. This is approximately the accuracy of single- precision floating-point calculations. E_x_a_m_p_l_e_ _1_ C_o_m_m_e_n_t_ _(_1_)_ 0010 LET I=10 The statement GOTO 40 0020 IF I'5 THEN GOTO 0040 is executed only if I ' 5. 0030 PRINT "DON"_T ENTER HERE" 0040 PRINT "PRINT THIS" 0050 STOP PRINT THIS T_E_x_a_m_p_l_e_ _2_a_ 0010 LET A=5; B=5 0020 PRINT "A AND B ARE"; 0030 IF A'B THEN PRINT " NOT"; 0040 PRINT " EQUAL" 0050 STOP A AND B ARE EQUAL &_ \f T_E_x_a_m_p_l_e_ _2_b_ 0010 LET A=5; B=7 0020 PRINT "A AND B ARE"; 0030 IF A'B THEN PRINT " NOT"; 0040 PRINT " EQUAL" 0050 STOP &_A AND B ARE NOT EQUAL T_ 3.15I_F_-_T_H_E_N_-_E_N_D_I_F_ F_o_r_m_a_t_ IF expr' THEN DO statements' ENDIF comment' expr': an expression which, when evaluated, has the value true (' 0) or false (= 0). statements': a block of statements. comment': a text comment. T_U_s_e_ As a statement to execute a block of statements depending on whether the value of an expression is true or false. &_ T_R_e_m_a_r_k_s_ 1. R_u_l_e_s_ a. For every IF-THEN/ENDIF statement there must be a matching ENDIF/IF-THEN statement. &_ b. If statements' is entered at any point other than the IF-THEN statement, the error message 0056: ENDIF WITHOUT IF will be output when the ENDIF statement is encountered. 2. P_r_o_g_r_a_m_ _o_p_e_r_a_t_i_o_n_ a. If the value of expr' is true (' 0), statements' is executed once. \f b. Execution will then continue at the first statement following the ENDIF statement. 3. N_e_s_t_e_d_ _c_o_n_s_t_r_u_c_t_i_o_n_s_ IF-THEN-ENDIF/IF-THEN-ELSE-ENDIF constructions may be nested to a depth of seven. 4. The word ENDIF may be followed by a comment. T_E_x_a_m_p_l_e_ _1_ C_o_m_m_e_n_t_ _(_1_)_ 0010 LET I=1 The block of statements 0020 IF I THEN betweenIF-THEN and ENDIF is 0030 PRINT "I'0" executed only if I is true 0040 LET I=I+1 (I ' 0). 0050 ENDIF 0060 PRINT "AFTER ENDIF, I=";I 0070 STOP I'0 &_AFTER ENDIF, I= 2 T_E_x_a_m_p_l_e_ _2_ 0010 LET I=0 0020 IF I THEN 0030 PRINT "DON!T ENTER HERE" 0040 LET I=I+1 0050 ENDIF 0060 PRINT "AFTER ENDIF, I=";I 0070 STOP &_ AFTER ENDIF, I= 0 T_E_x_a_m_p_l_e_ _3_ 0010 LET I=26 0020 IF I/2'=13 THEN 0030 PRINT "SHOULD ENTER HERE" 0040 ENDIF 0050 STOP &_SHOULD ENTER HERE \f T_ E_x_a_m_p_l_e_ _4_ 0010 DIM NAME<(4) 0020 LET NAME<="JOHN" 0030 IF NAME<(2,3)="OH" THEN 0040 PRINT "NAMES CONTAINS "OH" " 0050 LET NAME<(2,3)=" " 0060 PRINT NAME< 0070 ENDIF 0080 STOP NAMES CONTAINS "OH" &_J N 3.16I_F_-_T_H_E_N_-_E_L_S_E_-_E_N_D_I_F_ F_o_r_m_a_t_ IF expr' THEN DO statements-1' ELSE comment' statements-2' ENDIF comment' expr': an expression which, when evaluated, has the value true (' 0) or false (= 0). statements-1': a block of statements which is executed if the value of expr' is true (' 0). statements-2': a block of statements which is executed if the value of expr' is false (= 0). comment': a text comment. &_ U_s_e_ As a statement to execute one of two blocks of statements depending on whether the value of an expression is true or false. \f R_e_m_a_r_k_s_ 1. R_u_l_e_s_ If statements-1' or statements-2' is entered at any point other than the IF-THEN/ELSE statement, an error message (0051: ELSE WITHOUT IF or 0056: ENDIF WITHOUT IF) will be output when the ELSE/ENDIF statement if encountered. 2. P_r_o_g_r_a_m_ _o_p_e_r_a_t_i_o_n_ a. expr' is evaluated. b. If the value of expr' is true (' 0), statements-1' is executed. c. If the value of expr' is false (= 0), statements-2' is executed. d. When statements-1' or statements-2' has been executed and if neither has caused transfer of control to another part of the program, execution will continue at the first statement following the ENDIF statement. 3. N_e_s_t_e_d_ _c_o_n_s_t_r_u_c_t_i_o_n_s_ IF-THEN-ENDIF/IF-THEN-ELSE-ENDIF constructions may be nested to a depth of seven. 4. The words ELSE and ENDIF may be followed by comments. \f T_E_x_a_m_p_l_e_ C_o_m_m_e_n_t_ 0010 DIM PRICE(4),NUMBER(4) If ITEMNO = 1 or 3, the 0020 FOR ITEMNO=1 TO 4 statements in lines 40 0030 IF (ITEMNO=1) OR (ITEMNO=3) THENand 50 are executed; 0040 LET PRICE(ITEMNO)=10otherwise the statements 0050 LET NUMBER(ITEMNO)=7 in lines 70 and 80 are 0060 ELSEexecuted. 0070 LET PRICE(ITEMNO)=25 0080 LET NUMBER(ITEMNO)=9 0090 ENDIF 0100 NEXT ITEMNO 0110 PRINT "ITEMNO","NUMBER","PRICE" 0120 FOR I=1 TO 4 0130 PRINT I,NUMBER(I),PRICE(I) 0140 NEXT I 0150 STOP ITEMNO NUMBER PRICE 1 7 10 2 9 25 3 7 10 &_ 4 9 25 3.17I_N_P_U_T_ F_o_r_m_a_t_ var' ,var' INPUT slit-0', svar' ,slit-n' ,svar' ... slit-0, slit-n': string literals. var': a numeric variable. svar': a string variable. U_s_e_ As a statement or command to assign values entered from the user"s terminal during program execution to a list of numeric or string variables. R_e_m_a_r_k_s_ 1. When an INPUT statement is executed, the system outputs a question mark (?) as an initial prompt unless the INPUT\f statement contains slit-0', in which case slit-0' is output. 2. The user responds by typing a list of data items, each of which is separated from the next by a comma. The last item is followed by a carriage return. 3. Data items will be read as long as the arguments in the INPUT statement are var' or svar'. If a string literal, slit-n', is encountered in the argument list, slit-n' will be output and any remaining items entered by the user will be skipped. 4. If the data list is terminated (by pressing the RETURN key) before values have been assigned to all of the variables in the argument list, the system will output a question mark as a prompt, indicating that further items are expected. 5. Data entered in response to a prompt must be of the same type (numeric or string) as the variable in the argument list for which the data is being supplied. Variables in the argument list may be subscripted or unsubscripted. 6. If the entered data does not match the type of a variable in the argument list, the system will output / ? in response to the erroneous input. The user can then enter data of the correct type. 7. A comma may not be used as a separator between string data items. These items must be separated either by a carriage return or, if typed on the same line, by a quotation mark (") followed by a comma. \f T_E_x_a_m_p_l_e_ _1_ C_o_m_m_e_n_t_s_ _(_1_)_ * LIST 0010 DIM NAME<(20),ADDRESS<(20) 0020 INPUT NAME<,ADDRESS< 0030 PRINT NAME<,ADDRESS< 0040 INPUT "NAME ",NAME<,"ADDRESS ",ADDRESS< 0050 PRINT NAME<,ADDRESS< * RUN ? R_O_B_E_R_T_ _C_L_A_R_K_ __ ? 9_ _M_A_I_N_ _S_T_R_E_E_T_ __ ROBERT CLARK 9 MAIN STREET PRINT output. NAME R_A_Y_M_O_N_D_ _C_L_A_R_K_E_ __ ADDRESS 6_1_ _H_I_G_H_W_A_Y_ __ RAYMOND CLARKE 61 HIGHWAY PRINT output. END The underlined texts are AT 0050 those entered by the user. &_* T_ E_x_a_m_p_l_e_ _2_ C_o_m_m_e_n_t_s_ _(_2_)_ * LIST The underlined texts are 0010 INPUT N1,N2,N3,N4 those entered by the user. 0020 PRINT N1;N2;N3;N4 * RUN ? 1__ _ A question mark is output ? 2__ _ as a prompt until data ? 3__ _ has been supplied for all ? 4___arguments. 1 2 3 4 &_ T_END AT 0020 * RUN ? 5_,_6_,_7_,_8_ _ _ All data items can be 5 6 7 8 typed on a single line when separated by commas. END &_AT 0020\f T_* RUN ? 9_ __ ? U___ The type of the entered data / ? 8___items must match the type of ? 7_ __the arguments. ? Y__ _ / ? 6__ _ 9 8 7 6 END AT 0020 &_* T_ 3.18L_E_T_ F_o_r_m_a_t_ var'var' LET svar' = expr' ; svar' = expr' ... &_ var': a numeric variable. svar': a string variable. expr': a numeric, relational, or string expression. U_s_e_ As a statement or command to evaluate an expression and assign the resultant value to a variable. R_e_m_a_r_k_s_ 1. Use of the mnemonic LET is optional. 2. The variables may be subscripted. 3. Numeric or relational expressions may be assigned to numeric variables. 4. String expressions may be assigned to string variables. \f T_E_x_a_m_p_l_e_ _1_ C_o_m_m_e_n_t_ _(_1_)_ 10 LET A=A+1 The variable A is assigned a value one greater than it was &_before. T_E_x_a_m_p_l_e_ _2_ C_o_m_m_e_n_t_ _(_2_)_ 20 A(2,1)=B 2+10 The element in row 2, column 1 of the array A is assigned the value of the expression &_ B 2+10. T_E_x_a_m_p_l_e_ _3_ C_o_m_m_e_n_t_ _(_3_)_ 0010 LET I=3 One line may contain several 0020 LET J=4 assignments as shown in line 0030 LET K=I+J; L=I*J 30. 0040 PRINT I,J,K,L 0050 STOP &_ 3 4 7 12 T_3.19N_E_W_ For description, see Chapter 9. &_ T_3.20O_N_-_E_R_R_ F_o_r_m_a_t_ ON ERR THEN statement' statement': any RC BASIC statement except CASE-WHEN- ENDCASE, DATA, DEF, END, FOR-NEXT, ENDIF, ELSE, ON, PROC-ENDPROC, REM, REPEAT-UNTIL, and WHILE-ENDWHILE. &_ U_s_e_ As a statement to enable the programmer to take special action, if an error occurs during program execution. \f R_e_m_a_r_k_s_ 1. Usually a program is interrupted and an error message output, if an error occurs during program execution. If an ON-ERR statement has been executed, however, a run-time error will cause statement' to be executed. 2. The ON-ERR statement closely resembles the ON-ESC statement; see, therefore, Section 3.21, Remarks 2 to 5, for further details. T_E_x_a_m_p_l_e_ C_o_m_m_e_n_t_ 0010 ON ERR THEN EXEC OUTERROR If an error occurs, the 0020 LET A=10/0 error codewill be output 0030 LET B=D and execution will continue. 0040 LET C=SYS(18) 0050 PROC OUTERROR 0060 PRINT "ERROR :";SYS(7) 0070 ON ERR THEN EXEC OUTERROR 0080 ENDPROC ERROR : 16 0016: ARITHMETIC ERROR ERROR : 17 0017: UNDEFINED VARIABLE ERROR : 34 0034: ILLEGAL FUNCTION ARGUMENT &_ T_3.21O_N_-_E_S_C_ F_o_r_m_a_t_ ON ESC THEN statement' statement' : any RC BASIC statement except CASE-WHEN- ENDCASE, DATA, DEF, END, FOR-NEXT, ENDIF, ELSE, ON, PROC-ENDPROC, REM, REPEAT-UNTIL, and WHILE-ENDWHILE. &_ U_s_e_ As a statement to enable the programmer to take special action, if the ESCape key is pressed during program execution. \f R_e_m_a_r_k_s_ 1. Usually a program is interrupted, if the ESCape key is pressed during program execution. If an ON-ESC statement has been executed, however, pressing the ESCape key will cause statement' to be executed. 2. If the ESCape key has been pressed once and statement' has been executed, the program will be interrupted if the ESCape key is pressed again, unless a new ON-ESC statement has been executed (see Example). 3. If statement' is a GOSUB or EXEC statement, then when a RETURN or ENDPROC statement is encountered, control will be transferred to the statement following the last statement executed before the ESCape key was pressed. 4. ON-ESC statements may be placed anywhere in a program, so that different actions may be taken in different parts of the program. 5. Execution of the statement ON ESC THEN STOP will in all circumstances cause restoration of the normal ESCape key function. \f T_E_x_a_m_p_l_e_ C_o_m_m_e_n_t_ * LIST 0010 ON ESC THEN GOSUB 0060 0020 FOR I=1 TO 20 0030 PRINT I; 0040 NEXT I 0050 STOP 0060 PRINT 0070 PRINT "ESCAPE PRESSED, I = ";I 0080 RETURN * RUN 1 2 3 4 5 ESCAPE PRESSED, I = 6 7 8 9 10 11 1 When ESC is pressed a STOP second time, the program AT 0030is interrupted. * LIST 0010 ON ESC THEN GOSUB 0060 0020 FOR I=1 TO 20 0030 PRINT I; 0040 NEXT I 0050 STOP 0060 PRINT 0070 PRINT "ESCAPE PRESSED, I = ";I 0075 ON ESC THEN GOSUB 0060 This statement has been 0080 RETURN inserted in the program above. * RUN 1 2 3 4 5 ESCAPE PRESSED, I = 5 6 7 8 9 1 ESCAPE PRESSED, I = 10 11 12 13 14 15 16 ESCAPE PRESSED, I = 16 17 18 19 20 STOP AT 0050 &_*\f T_ 3.22O_N_-_G_O_T_O_/_G_O_S_U_B_ F_o_r_m_a_t_ GOTO ON expr' THEN GOSUB line no.' ,line no.' ... expr': a numeric expression which is evaluated to an integer. line no.': a line number in the current program. The positions of line numbers in the argument list are numbered in sequence from 1 to n. U_s_e_ As a statement to transfer control to one of several lines in a program depending on the computed value of an expression when the ON statement is executed. R_e_m_a_r_k_s_ 1. expr' is evaluated. If it is not an integer, the fractional part is ignored. 2. The program transfers control to the line whose s_e_q_u_e_n_c_e_ n_u_m_b_e_r_ _i_n_ _t_h_e_ _a_r_g_u_m_e_n_t_ _l_i_s_t_ corresponds to the computed value of expr'. 3. If expr' evaluates to an integer that is greater than the sequence number of the last line number in the argument list or that is less than or equal to zero, the ON statement is ignored and control passes to the next statement. 4. The ON-GOSUB statement must contain a list of line numbers each of which is the first line of a subroutine within the current program. \f T_E_x_a_m_p_l_e_ C_o_m_m_e_n_t_ 10 ON M-5 GOTO 500,75,1000 If M-5 evaluates to 1, 2, or 3, control will be trans- ferred to line number 500, 75, or 1000, respectively. If M-5evaluates to any other value, control will be transferred to the next sequential statement in the program. &_ T_ 3.23P_A_G_E_ For description, see Chapter 9. &_ T_ 3.24P_R_I_N_T_ F_o_r_m_a_t_ expr' expr' ;slit' , slit' , PRINT svar' ; svar' ... ; expr': a numeric or relational expression. slit': a string literal. svar': a string variable. &_ U_s_e_ As a statement or command to perform any of the following output operations at the user"s terminal: 1. Print variables and constants (numeric or string). 2. Print the result of a computation. 3. Print a combination of 1 and 2. 4. Print a blank line (skip a line). \f R_e_m_a_r_k_s_ 1. P_r_i_n_t_i_n_g_ _n_u_m_b_e_r_s_ Numbers (integer, decimal, or E-type) are printed in the following form: sign'number'space' The sign is either minus (-) or a blank space for plus; the number is always followed by a blank space (see Ch. 2). 2. Z_o_n_e_ _s_p_a_c_i_n_g_ _o_f_ _o_u_t_p_u_t_ The print line on a terminal is divided into print zones. The width of a print zone can be set by means of the TAB command (see Ch. 9). The default zone spacing is 14 columns. This T_ spacing is used in the examples below. The first column on a print line is column number 0. 0 13 14 27 28 41 42 55 56 69 14 14 14 14 14 columns columns columns columns columns &_ A c_o_m_m_a_ (,) between items in the argument list causes the next print element to be output starting from the leftmost position of the next zone. If there are no more zones on the current line, printing continues in the first zone on the next line. If a print element requires more than one zone, the next element is printed in the next free zone (see Exx. 1 and 3). Before each print element is output, its length is compared with the space remaining on the current line. If the space is insufficient, the element is moved to the next line. If the length of an element is greater than the length of the print line (see the PAGE command, Ch. 9), the error message 0036: PRINT ELEMENT TOO LONG is output. 3. C_o_m_p_a_c_t_ _s_p_a_c_i_n_g_ _o_f_ _o_u_t_p_u_t_ A s_e_m_i_c_o_l_o_n_ (;) between items in the argument list causes the next print element to be output starting from the next character position. N_o_t_e_:_ A blank space is always printed after a number. A blank\f space is also reserved for the plus (+) sign, even though the sign is not printed (see Ex. 2). 4. S_p_a_c_i_n_g_ _t_o_ _t_h_e_ _n_e_x_t_ _l_i_n_e_ When the last element in a PRINT statement argument list has been printed, a carriage return and line feed are output u_n_l_e_s_s_ this last element is followed by a comma or a semi- colon, in which case the carriage return and line feed are suppressed and the elements in the next PRINT statement argument list are printed on the same line in accordance with the comma or semicolon punctuation (see Exx. 2 and 3). 5. P_r_i_n_t_i_n_g_ _b_l_a_n_k_ _l_i_n_e_s_ A PRINT statement with no arguments or punctuation causes a carriage return and line feed to be output (see Ex. 4). 6. A_d_d_i_t_i_o_n_a_l_ _p_r_i_n_t_i_n_g_ _v_e_r_s_a_t_i_l_i_t_y_ See the TAB(X) function (Sect. 3.35), the PAGE and TAB commands (Ch. 9), and the PRINT USING statement (Sect. 3.25). T_E_x_a_m_p_l_e_ _1_ C_o_m_m_e_n_t_ _(_1_)_ 0010 LET X=25 If a print element 0020 PRINT "THE SQUARE ROOT OF X IS:",SQR(X)requires more than 0030 STOP one zone, the next element is printed in the next free 012345678901234567890123456789012345678901zone. &_THE SQUARE ROOT OF X IS: 5 \f T_ E_x_a_m_p_l_e_ _2_ C_o_m_m_e_n_t_ _(_2_)_ 0010 LET X=5 Shows the use of 0020 PRINT X;X X;X*X;X 2; the semicolon as 0030 PRINT SQR(X);SQR(X) 2 a spacing charac- 0040 PRINT -X;(-X) 3 ter. The semicolon 0050 STOPterminating line 20 suppresses a carriage return 012345678901234567890123456789012345678901and line feed. 5 3125 25 25 2.23607 5 &_-5 -125 T_ E_x_a_m_p_l_e_ _3_ C_o_m_m_e_n_t_ _(_3_)_ 0010 LET X=100 Shows the use of 0020 PRINT X,X 2,SQR(X), the comma as a 0030 PRINT X 3 spacing character. 0040 PRINT "END" The comma termina- 0050 STOPting line 20 sup- presses a carriage return and line feed. 01234567890123456789012345678901234567890123456789012345 100 10000 10 1E+6 &_END T_ E_x_a_m_p_l_e_ _4_ C_o_m_m_e_n_t_ _(_4_)_ 0010 LET X=10 The PRINT statement 0020 PRINT X, in line 40 causes a 0030 PRINT X 2, carriage return 0040 PRINTand line feed to 0050 PRINT X,be output. 0060 PRINT X 2 0070 PRINT"END" 0080 STOP 0123456789012345678901234567 10 100 10 100 &_END\f T_ E_x_a_m_p_l_e_ _5_ C_o_m_m_e_n_t_ _(_5_)_ 0010 DIM A<(10) If a print ele- 0020 LET A<="ABCDE" ment is a rela- 0030 PRINT A<="ABCDE";A<"ABCDEF";A<'"B";1=1;2'5tional expres- 0040 STOPsion, either the word TRUE TRUE TRUE FALSE TRUE FALSE or the word FALSE will be printed. T_ 3.25P_R_I_N_T_ _U_S_I_N_G_ F_o_r_m_a_t_ expr' expr' PRINT USING format', slit' , slit' ... , svar' ; svar' ; &_ format': a string literal or string variable that specifies the format (see Remarks) for printing the items in the argument list. expr': a numeric or relational expression. slit': a string literal. svar': a string variable. U_s_e_ As a statement to output the values of items in the argument list using a specified format. R_e_m_a_r_k_s_ 1. The occurrence of a separator other than a comma, e.g. a semicolon or TAB, between items in the argument list will cause the remaining items to be printed as if no format had been specified (see the PRINT statement, Sect. 3.24). 2. The PRINT USING statement is executed as a PRINT statement (see Sect. 3.24); however, if the system does not include the PRINT USING facility, execution of a PRINT USING statement will cause the string format' to be printed, followed by the items in the argument list. 3. The format' expression may have more than one format'\f field and may include string literals as well as the following special characters, which are used to format numeric output: # . + - < , N_o_t_e_:_ The character is used in the following descriptions to indicate a blank space. a. D_i_g_i_t_a_l_ _r_e_p_r_e_s_e_n_t_a_t_i_o_n_ _(_#_)_ For each # in the format' field, a digit (0-9) is substi- tuted from the expr' argument. _f_o_r_m_a_t_'_ _e_x_p_r_'_ O_u_t_p_u_t_ C_o_m_m_e_n_t_s_ #####2525 The digits are right justified in the field with leading blanks. ##### -30 30 Signs and othernon digits are ignored. ##### 1.95 2 Only integers are represented; the number is rounded to an integer. ##### 598745 ***** If the number in expr' has more digits than speci- fied by format', a field of all as- terisks is output. T_ b. D_e_c_i_m_a_l_ _p_o_i_n_t_ _(_._)_ The decimal character (.) places a decimal point within the &_ string of digits in the fixed position in which it appears in format'. Digit (#) positions which follow the decimal point are filled; no blank spaces are left in these digit positions. When expr' contains more fractional digits than format' allows, the fraction will be rounded to the limits of format'. When expr' contains less fractional digits than specified by format' , zeroes are output to fill the positions. \f T_ _f_o_r_m_a_t_'_ _e_x_p_r_'_ O_u_t_p_u_t_ C_o_m_m_e_n_t_s_ #####.## 20 20.00 Fractional posi- tions are filled with zeroes. #####.## 29.347 29.35 Rounding occurson fractions. #####.## 789012.34 ******** When expr' has too many signi- ficant digits to the left of a de- cimal point, a field of all aste- risks, including the decimal point, is output. T_ c. F_i_x_e_d_ _s_i_g_n_ _(_+_ _o_r_ _-_)_ &_ A fixed sign character appears as a single plus (+) or minus (-) sign either in the first character position or in the last character position in the format' field. A fixed plus (+) sign prints the sign (+ or -) of expr' in the position in which the fixed plus (+) sign is placed in format'. A fixed minus (-) sign prints a minus (-) sign for negative values of expr' or a blank space for positive values of expr' in the position in which the fixed minus (-) sign is placed in format'. When a fixed sign is used, any leading zeroes appearing in expr' will be replaced by blanks, except for a single leading zero preceding a decimal point.\f T_ _f_o_r_m_a_t_'_ _e_x_p_r_'_ O_u_t_p_u_t_ C_o_m_m_e_n_t_s_ +##.## 20.5 +20.50 +##.## 1.01 +1.01 Blanks precede the number. +##.## -1.236 -1.24 +##.## -234.0 ****** ###.##- 20.5 20.50 ###.##- 000.01 0.01 One leading zero before the decimal point is printed. ###.##- -1.236 1.24- &_ ###.##- -234.0 234.00- d. F_l_o_a_t_i_n_g_ _s_i_g_n_ _(_+_+_ _o_r_ _-_-_)_ A floating sign appears as two or more plus (++) or minus (--) signs at the beginning of the format' field. A floating plus (++) sign outputs a plus or minus sign immediately before the value of expr' with no separating blank spaces as would occur with a fixed sign. A floating minus (--) sign outputs either a minus or a blank (for plus) immediately preceding the value. Positions occupied in format' by the second sign and any additional signs can be used for numeric positions in the value of expr'. \f T_ _f_o_r_m_a_t_'_ _e_x_p_r_'_ O_u_t_p_u_t_ C_o_m_m_e_n_t_s_ ---.## -20 -20.00 The second and third minus signs are treated as # on output. ---.## -200 ******Too many digits to the left of the decimal point. ---.## 2 2.00 Note that format' may include a floating sign (++ or --) or a floating dollar sign (<<), as described below, but not both. e.F_i_x_e_d_ _d_o_l_l_a_r_ _s_i_g_n_ _(_<_)_ A fixed dollar sign appears as a single dollar (<) sign in either the first or the second character position in the format' field, causing a dollar (<) sign to be output in that position. If the dollar sign (<) is in the second position, it must be preceded by a fixed sign (+ or -). A fixed dollar sign (<) causes leading zeroes in the value of expr' to be replaced by blanks. T_ _f_o_r_m_a_t_'_ _e_x_p_r_'_ O_u_t_p_u_t_ C_o_m_m_e_n_t_s_ -<###.## 30.512 <30.51 <###.##+ -30.512 <30.51- &_ f. F_l_o_a_t_i_n_g_ _d_o_l_l_a_r_ _s_i_g_n_ _(_<_<_)_ A floating dollar sign appears as two or more dollar (<<) signs beginning in either the first or the second character position in the format' field. If the dollar signs (<<) start in the second position, they must be preceded by a fixed sign (+ or -). A floating dollar sign (<<) causes a dollar (<) sign to be placed immediately before the first digit of the expr' value. \f Note that format' may include a floating dollar sign (<<) or a floating sign (++ or --), as described above, but not both. T_ _f_o_r_m_a_t_'_ _e_x_p_r_'_ O_u_t_p_u_t_ C_o_m_m_e_n_t_s_ +<<<#.## 13.20 +<13.20 Additional dollar signs may be replaced by #,as with floating signs (++ and --). &_ <<##.##- -1.0 <01.00- Leading zeroes are not sup- pressed in the # part of the field. g. S_e_p_a_r_a_t_o_r_ _(_,_)_ The comma separator (,) places a comma in the fixed position in which it appears in a string of digits in the format' field. If a comma would be output in a field of suppressed leading zeroes (blanks), a blank space is output in the position for the comma. T_ _f_o_r_m_a_t_'_ _e_x_p_r_'_ O_u_t_p_u_t_ C_o_m_m_e_n_t_s_ +<#,###.## 30.6 +<30.60 A blank space is output for the comma. +<#,###.## 2000 +<2,000.00 ++##,### 00033 +00,033 A comma is printed when leading zeroes are not suppressed. &_ \f T_ h. E_x_p_o_n_e_n_t_ _i_n_d_i_c_a_t_o_r_ _(_ _ _ _ _)_ Four consecutive up-arrows ( ) are used to indicate an &_ exponent field in format'. The four arrows will be output as E+nn, where each n is a digit. If the exponent field in format' does not contain exactly four up-arrows, a run-time error will result. T_ _f_o_r_m_a_t_'_ _e_x_p_r_'_ O_u_t_p_u_t_ C_o_m_m_e_n_t_s_ +##.## 170.35 +17.03E+01 +##.## -.2 -20.00E-02 ++##.## 6002.35 +600.24E+01 &_ 4. A format' expression, as previously remarked, may have more than one format' field and may include string literals as well as the special formatting characters just described. Values of items in the argument list of the PRINT USING statement are sequentially assigned to format' fields. RC BASIC distinguishes string literals from format' fields by the characters that appear in the latter, for example: "TWO FOR <1.25" <1.25 is part of the string literal. "TWO FOR <<<.##" <<<.## is a format' field in theformat' expression. "ANSWER IS -85" -85 are characters of a string literal. "ANSWER IS -###" -### is a format' field in the format' expression. T_5. A format' expression may be specified by referencing a previously defined string variable, for example: 15 DIM S<(10) 20 LET S<="##.##" 30 PRINT USING S<,1.5,2 &_ 6. format' fields in a format' expression are delimited by the use of a non-formatting character before or after the format'\f T_ field, for example: f_i_e_l_d_ _d_e_l_i_m_i_t_e_r_ f_i_e_l_d_ _d_e_l_i_m_i_t_e_r_ "#####FOR<<###.##" format field format field string literal &_ 7. String literals may appear in the argument list of the PRINT USING statement and will be superimposed on a format' field in the following manner: a. Each character of the string literal replaces a single format' field character, which may be any of the special formatting characters, i.e. #, decimal point, +, -, <, comma, and . b. Strings are left justified in the format' field, and filled with spaces, if necessary. c. If the number of characters in the string is greater than the number of characters in the format' field, the string will be truncated to fit the field, for example: 5 PRINT USING "###,###.##","TEST","CHARACTER","SEVENTY-FIVE" RUN TESTCHARACTERSEVENTY-FI 8. When there are more items in the argument list than format' fields in the format' expression, the format' fields will be used repetitively. Thus, for example, in "####Æ<###.##PER###" the first, fourth, seventh, etc. items will be formatted using the format' field ####; the second, fifth, eighth, etc. items using the format' field <###.##; and the third, sixth, ninth, etc. items using the format' field ###. The embedded blank spaces, Æ sign, and PER are string literals and delimitthe format' fields. \f E_x_a_m_p_l_e_s_ C_o_m_m_e_n_t_s_ . . . 100 PRINT USING "A(#)=##.#",I,A(I) . . . RUN A(1)=17.9 Possible output includes two format' fields and two string literals. . . . 100 PRINT USING "###.##",I,A,B . . . RUN 1.0017.9025.77 Possible output with the format' expression repeated for each item in the argument list. T_ 3.26P_R_O_C_-_E_N_D_P_R_O_C_ F_o_r_m_a_t_ PROC name' statements' &_ENDPROC comment' name': the name of a procedure. name' may also be a simple numeric variable. statements':a block of statements. comment': a text comment. U_s_e_ As a statement to define a procedure which can be called by \f means of an EXEC statement (see Sect. 3.10). R_e_m_a_r_k_s_ 1. A procedure is a convenient means of executing the same block of statements at different places in a program. Procedures may be nested to a depth of seven. Nesting occurs when a procedure is called during the execution of another procedure. 2. R_u_l_e_s_ a. For every PROC/ENDPROC statement there must be one and only one ENDPROC/PROC statement. b. A procedure may be placed anywhere in the program. When a PROC statement is encountered, a search is made for the corresponding ENDPROC statement, and program execution continues from the first statement following this ENDPROC statement. c. If the body of a procedure is entered without use of an EXEC statement, the error message 0019: RETURN WITHOUT GOSUB will be output when the ENDPROC statement is encountered. d. A procedure may contain one or more RETURN statements. When encountered, RETURN has the effect of an ENDPROC statement. e. If the name of the procedure, name', is a simple numeric variable, it may be assigned a value before the procedure is called; it may also be assigned a new value by the procedure before control is returned to the main program. 3. P_r_o_g_r_a_m_ _o_p_e_r_a_t_i_o_n_ a. When the procedure is called, execution starts at the first statement following the PROC statement. b. Execution continues until a RETURN or ENDPROC statement is encountered; after this, control is passed to the first statement following the EXEC statement that called the procedure. 4. The word ENDPROC may be followed by a comment. \f T_E_x_a_m_p_l_e_ 0010 PROC GCD 0020 REM THE PROCEDURE FINDS THE GREATEST COMMON DIVISOR IN AAND B 0030 PRINT "GCD IN";A;"AND";B;":", 0040 WHILE A'B DO 0050 IF A'B THEN 0060 LET A=A-B 0070 ELSE 0075 LET B=B-A 0080 ENDIF 0090 ENDWHILE 0100 LET GCD=A 0110 REM A AND B DESTROYED 0120 ENDPROC 0130 REM 0140 REM MAIN PROGRAM, A AND B ARE READ FROM THE TERMINAL 0150 REM 0160 INPUT A,B 0170 IF (A=0) OR (B=0) THEN STOP 0180 EXEC GCD 0190 PRINT GCD 0200 GOTO 0160 &_ T_GCD IN 1 AND 1 : 1 GCD IN 2 AND 4 : 2 GCD IN 24 AND 68 : 4 GCD IN 24 AND 16 : 8 GCD IN 16 AND 24 : 8 GCD IN 345 AND 27 : 3 GCD IN 345 AND 344 : 1 GCD IN 6 AND 11 : 1 GCD IN 11 AND 66 : 11 GCD IN 1 AND 100 : 1 GCD IN 56 AND 7 : 7 GCD IN 56 AND 8 : 8 &_ T_3.27R_A_N_D_O_M_I_Z_E_ F_o_r_m_a_t_ &_RANDOMIZE \f U_s_e_ As a statement or command to cause the random number generator to start at a different point in the sequence of random numbers generated by the RND(X) function (see Ch. 4). R_e_m_a_r_k_s_ 1. Normally, the same sequence of random numbers is generated by successive use of the RND(X) function. This feature is useful in debugging programs. If, when the program has been found to run successfully, different starting points in the sequence are desired, the RANDOMIZE statement should be included in the program before the first occurrence of an RND(X) function. 2. The RANDOMIZE statement resets the random number generator based on the time of day, thereby producing different random numbers each time a program using the RND(X) function is run. T_ E_x_a_m_p_l_e_ C_o_m_m_e_n_t_ * LIST This program produces 0010 LET I=0 different results each time 0015 RANDOMIZE it is executed. 0020 REPEAT 0030 PRINT RND(I); 0040 LET I=I+1 0050 UNTIL I=4 0060 STOP 0070 GOTO 0010 * RUN .921699 .341465 .710697 .816505 STOP AT 0060 * RUN .249755 .980187 .616137 .890037 STOP AT 0060 * CON .159747 .605283 .118429 .322262 STOP AT 0060 &_*\f T_ 3.28R_E_A_D_ F_o_r_m_a_t_ var',var' READ svar' ,svar' ... var': a numeric variable. svar': a string variable. &_ U_s_e_ As a statement or command to read in values from the list defined by one or more DATA statements and to assign the values to the variables listed in the READ statement. R_e_m_a_r_k_s_ 1. READ statements are always used in conjunction with DATA statements (see Sect. 3.4). 2. The variables listed in the READ statement may be subscripted or unsubscripted numeric or string variables. 3. The order in which variables appear in the READ statement is the order in which values for the variables are retrieved from the DATA statement list. 4. A data element pointer is moved to the next available value in the DATA statement list as values are retrieved for variables in the READ statement. If the number of variables in the READ statement exceeds the number of values in the DATA statement list, the error message 0015: NO MORE DATA FOR READ is output. 5. The type (numeric or string) of the READ statement variable must match the type of the corresponding data element value, otherwise the error message 0066: TYPE CONFLICT is output. 6. The RESTORE statement (see Sect. 3.31) can be used to reset the data element pointer to the first item of the lowest numbered DATA statement or the first item of a particular DATA statement. \f T_E_x_a_m_p_l_e_ 0010 DIM TEXT<(20),A(10) 0020 READ TEXT<,NUMBER 0030 DATA "READ DATA",25,1,2 0040 READ A(2),A(4) 0050 PRINT "TEXT","NUMBER","A(2)","A(4)" 0060 PRINT TEXT<,NUMBER,A(2),A(4) 0070 STOP TEXT NUMBER A(2) A(4) READ DATA 25 1 2 T_3.29R_E_M_ F_o_r_m_a_t_ REM comment' comment': a text comment. &_ U_s_e_ As a statement to insert explanatory comments within a program. R_e_m_a_r_k_s_ 1. REM statements are non-executable, but are stored with the program and output exactly as entered when LISTed (see LIST, Ch. 9). 2. If control is transferred to a REM statement from a GOTO or GOSUB statement, execution continues from the next executable statement following the REM statement. If no executable state- ment follows the REM statement, the program will act as if an END statement (see Sect. 3.8) had been encountered and control will return to interactive mode. 3. Optional text comments may also be inserted after the words ENDCASE, END, RETURN, ENDIF, ELSE, ENDPROC, REPEAT, STOP, and ENDWHILE, for example: ENDWHILE END OF SEARCH\f T_E_x_a_m_p_l_e_ 10 REM REMARKS THROUGHOUT A PROGRAM CAN 20 REM HELP EXPLAIN THE PURPOSE OF STATEMENTS. 30 REM LINES 10, 20, and 30 ARE NOT EXECUTED. &_ T_ 3.30R_E_P_E_A_T_-_U_N_T_I_L_ F_o_r_m_a_t_ REPEAT comment' statements' UNTIL expr' comment': a text comment. statements': a block of statements. expr': a relational expression. U_s_e_ As a statement to execute a block of statements repetitively until the value of an expression is true. R_e_m_a_r_k_s_ 1. R_u_l_e_s_ a. expr' is a relational expression whose value is either true or false, e.g. NAME< = "JOHN", I ' 25. b. If the body of a REPEAT-UNTIL loop is entered at any point other than the REPEAT statement, the error message 0058: UNTIL WITHOUT REPEAT will be output when the UNTIL state- ment corresponding to the skipped REPEAT statement is encountered. 2. P_r_o_g_r_a_m_ _l_o_o_p_ _o_p_e_r_a_t_i_o_n_ a. statements' is executed. b. expr' is evaluated. c. If the value of expr' is false, step a is repeated. d. If the value of expr' is true, the termination condition\f is satisfied and control passes to the first statement following the corresponding UNTIL statement. N_o_t_e_:_ statements' is always executed at least once. 3. N_e_s_t_e_d_ _l_o_o_p_s_ REPEAT-UNTIL loops may be nested to a depth of seven. 4. The word REPEAT may be followed by a comment. T_ E_x_a_m_p_l_e_ _1_ C_o_m_m_e_n_t_ _(_1_)_ 0010 LET I=1 The block of statements 0020 REPEAT between REPEAT and 0030 PRINT I; UNTIL is repeated 0040 LET I=I+1until I ' 10. 0050 UNTIL I'10 0060 PRINT "13'10'AFTER "UNTIL", I=";I 0070 STOP 1 2 3 4 5 6 7 8 9 10 &_ AFTER "UNTIL", I= 11 T_E_x_a_m_p_l_e_ _2_ C_o_m_m_e_n_t_ _(_2_)_ 0010 LET I=20 The block of statements 0020 REPEAT between REPEAT and 0030 PRINT "EXECUTED ONCE" UNTIL is always execu- 0040 LET I=I-1ted at least once. 0050 UNTIL I'10 0060 PRINT "AFTER "UNTIL", I=";I 0070 STOP EXECUTED ONCE &_AFTER "UNTIL", I= 19 \f T_ E_x_a_m_p_l_e_ _3_ C_o_m_m_e_n_t_ _(_3_)_ 0010 LET A=10; B=1 Shows nested REPEAT-UNTIL 0020 REPEATloops. 0030 PRINT 0040 PRINT "A=";A, 0050 REPEAT 0060 PRINT "B=";B; 0070 LET B=B+1 0080 UNTIL B=5 0090 LET B=1; A=A-1 0100 UNTIL A7 0110 PRINT 0120 PRINT "AFTER LAST "UNTIL", A,B=";A;B &_ 0130 STOP T_A= 10 B= 1 B= 2 B= 3 B= 4 A= 9 B= 1 B= 2 B= 3 B= 4 A= 8 B= 1 B= 2 B= 3 B= 4 A= 7 B= 1 B= 2 B= 3 B= 4 AFTER LAST "UNTIL", A,B= 6 1 &_ T_3.31R_E_S_T_O_R_E_ F_o_r_m_a_t_ RESTORE line no.' line no.': a DATA statement line number. &_ U_s_e_ As a statement or command to reset the data element pointer either to the beginning of the DATA statement list or to a particular DATA statement. R_e_m_a_r_k_s_ 1. If the RESTORE statement is used without an argument, the data element pointer is reset to the beginning of the DATA statement list, i.e. to the first item in the lowest numbered DATA statement (see Sect. 3.4). 2. If the RESTORE statement contains an argument, the data element pointer is reset to the first item in the DATA\f statement specified by line no'. 3. If line no.' does not exist in the program, the data element pointer is reset to the beginning of the DATA statementlist. T_E_x_a_m_p_l_e_ C_o_m_m_e_n_t_ 0010 DATA 1,2,3,4 One can choose among several 0020 READ I,J,K,L DATA statements by means of 0030 RESTORE RESTORE. In line 30, the 0040 REM RESET TO BEGINNING data element pointer is 0050 READ M,N reset to the beginning of 0060 RESTORE 0100 the DATA statement list. 0070 REM RESET TO LINE 100 0080 READ O,P,Q,R 0090 PRINT I;J;K;L;M;N;O;P;Q;R 0100 DATA 5,6,7,8 0110 STOP &_ 1 2 3 4 1 2 5 6 7 8 T_ 3.32S_A_V_E_ For description, see Chapter 9. &_ T_ 3.33S_T_O_P_ F_o_r_m_a_t_ STOP comment' comment': a text comment. &_ U_s_e_ As a statement to terminate execution of the current program and to return control to interactive mode. R_e_m_a_r_k_s_ 1. STOP statements may be placed anywhere in the program. When STOP is encountered, the system will terminate execution and\f output the following on the user"s terminal: STOP AT xxxx' * xxxx': the line number of the STOP statement. 2. After control has returned to interactive mode, the program may be restarted from the first line number (see RUN, Ch. 9) or continued in its current state (see CON or RUN line no.', Ch. 9). 3. The word STOP may be followed by a comment. T_E_x_a_m_p_l_e_ * LIST 0010 REM TERMINATE PROGRAM BY STOP 0020 INPUT A 0030 IF A0 THEN STOP 0040 GOTO 0020 * RUN ? 1 ? 3 ? -5 STOP AT 0030 &_ * 3.34T_A_B_ For description, see Chapter 9. &_ T_ 3.35T_A_B_(_X_)_ _f_u_n_c_t_i_o_n_ F_o_r_m_a_t_ TAB(expr') expr': an expression which is evaluated to an integer. &_ \f U_s_e_ As a function in PRINT statements (see Sect. 3.24) to tabulate the printing position for an item in the argument list to the column number evaluated from an expression. R_e_m_a_r_k_s_ 1. As the print line columns are numbered from 0, t_h_e_ _p_o_s_i_t_i_o_n_ i_n_d_i_c_a_t_e_d_ _b_y_ _t_h_e_ _T_A_B_(_X_)_ _f_u_n_c_t_i_o_n_ _i_s_ _a_l_w_a_y_s_ _r_e_l_a_t_i_v_e_ _t_o_ _0_, e.g. the column number indicated by TAB(31) is 30. 2. A PRINT statement may contain several TAB(X) functions, each of which affects only the item in the argument list that immediately follows it. The printing position for this item will depend on the value of expr' and the punctuation (; or ,) following TAB(X). 3. If expr' evaluates to a column number greater than or equal to the current column number and less than the length of the print line, the value of expr' indicates t_h_e_ _n_e_w_ _c_o_l_u_m_n_ p_o_s_i_t_i_o_n_. If TAB(X) is followed by a semicolon (;), the new column position remains unchanged (see Example). If TAB(X) is followed by a comma (,), the new column position is changed to the leftmost position of the next print zone u_n_l_e_s_s_ the new column position coincides with the leftmost position of a print zone (see Example). After determination of the new column position, the item in the argument list immediately following the TAB(X) function is printed (see Remarks in Sect. 3.24). 4. If expr' evaluates to a column number less than the current column number, the TAB(X) function is ignored and positioning proceeds as in 3. 5. If expr' evaluates to a column number greater than the length of the print line, expr' is reduced modulo the length of the print line and positioning proceeds as in 3. The length of the print line (width of the page) can be set by means of the PAGE command (see Ch. 9). \f 6. If expr' evaluates to 0, e.g. TAB(0), a carriage return and line feed are output and positioning proceeds as in 3. E_x_a_m_p_l_e_ 0010 LET POS=5; NUMBER=-1048 0020 PRINT TAB(POS);NUMBER;TAB(7*POS);NUMBER 0030 PRINT TAB(POS),NUMBER,TAB(7*POS),NUMBER 0040 PRINT TAB(31);NUMBER 0050 STOP 01234567890123456789012345678901234567890123456789012345 -1048 -1048 -1048 -1048 -1048 C_o_m_m_e_n_t_ Shows the use of the semicolon and the comma as spacing characters in conjunction with the TAB(X) function. T_3.36W_H_I_L_E_-_E_N_D_W_H_I_L_E_ F_o_r_m_a_t_ WHILE expr' THEN DO statements' ENDWHILE comment' expr': a relational expression. statements': a block of statements. comment': a text comment. &_ U_s_e_ As a statement to execute a block of statements repetitively while the value of an expression is true. R_e_m_a_r_k_s_ 1. R_u_l_e_s_ a. expr' is a relational expression whose value is either true or false, e.g. I = 10, MONTH 13.\f b. For every WHILE statement there must be a matching ENDWHILE statement, otherwise the error message 0053: WHILE WITHOUT ENDWHILE is output. c. If the body of a WHILE-ENDWHILE loop is entered at any point other than the WHILE statement, the error message 0054: ENDWHILE WITHOUT WHILE will be output when the ENDWHILE statement corresponding to the skipped WHILE statement is encountered. 2. P_r_o_g_r_a_m_ _l_o_o_p_ _o_p_e_r_a_t_i_o_n_ a. expr' is evaluatd. b. If the value of expr' is false, the termination condition is satisfied and step e is performed. c. statements' is executed. d. Step a is repeated. e. Control passes to the first statement following the corresponding ENDWHILE statement. N_o_t_e_:_ If the value of expr' is false the first time the WHILE statement is encountered, statements' is not executed even once. 3. N_e_s_t_e_d_ _l_o_o_p_s_ WHILE-ENDWHILE loops may be nested to a depth of seven. 4. The word ENDWHILE may be followed by a comment. \f T_E_x_a_m_p_l_e_ _1_ 0010 LET I=1 0020 WHILE I10 DO 0030 PRINT I; 0040 LET I=I+1 0050 ENDWHILE 0060 PRINT "13'10'AFTER "ENDWHILE" " 0070 STOP 1 2 3 4 5 6 7 8 9 &_AFTER "ENDWHILE" T_E_x_a_m_p_l_e_ _2_ C_o_m_m_e_n_t_ _(_2_)_ 0010 LET I=11 If expr' is false when 0020 WHILE I10 DO WHILE is encountered for the 0030 PRINT "DO NOT ENTER HERE" first time, statements' is 0040 LET I=I-1 not executed even once. 0050 ENDWHILE 0060 PRINT "AFTER "ENDWHILE" " 0070 STOP &_AFTER "ENDWHILE" \f T_ E_x_a_m_p_l_e_ _3_ C_o_m_m_e_n_t_ _(_3_)_ 0010 LET I=1 Shows nested WHILE-ENDWHILE 0020 WHILE I5 DOloops. 0030 LET J=8 0040 PRINT "I=";I, 0050 WHILE J'I DO 0060 PRINT " J=";J; 0070 LET J=J-1 0080 ENDWHILE 0090 PRINT 0100 LET I=I+1 0110 ENDWHILE 0120 PRINT "AFTER LAST "ENDWHILE" " 0130 STOP I= 1J= 8 J= 7 J= 6 J= 5 J= 4 J= 3 J= 2 I= 2J= 8 J= 7 J= 6 J= 5 J= 4 J= 3 I= 3J= 8 J= 7 J= 6 J= 5 J= 4 I= 4J= 8 J= 7 J= 6 J= 5 &_AFTER LAST "ENDWHILE"\f T_4R_C_ _B_A_S_I_C_ _F_U_N_C_T_I_O_N_S_ 4.1I_n_t_r_o_d_u_c_t_i_o_n_ RC BASIC provides a number of functions to perform various &_calculations, thereby eliminating the need to write programs for these calculations. RC BASIC functions generally have a three-letter mnemonic name, followed by a parenthesized expression as an argument, and may be used as an expression or included as part of an expression. Standard mathematical functions included in RC BASIC and the values which they produce are as follows: ABS(X) Absolute value of X. ATN(X) Arctangent of X in radians. COS(X) Cosine of X, where X is in radians. EXP(X) eUUUXDDD (-178 = X = 175). LOG(X) Natural logarithm of X (X ' 0). SIN(X) Sine of X, where X is in radians. SQR(X) Square root of X (X '= 0). TAN(X) Tangent of X, where X is in radians. In addition to these standard arithmetical and trigonometrical functions, the RC BASIC system includes the following: FNa(d) Functions defined by the user. INT(X) Integer value of X. RND(X) Random number between 0 and 1. SGN(X) Algebraic sign of X. SYS(X) System information functions. Further RC BASIC functions, which are described in other chapters, are these: CHR(X) String function (see Ch. 5). DET(X) Matrix function (see Ch. 6). EOF(X) File function (see Ch. 8). LEN(X<) String function (see Ch. 5). ORD(X<) String function (see Ch. 5). TAB(X) Printing function (see Ch. 3).\f T_ 4.2A_B_S_(_X_)_ F_o_r_m_a_t_ ABS(expr') expr': a numeric expression. U_s_e_ &_As a function to return the absolute (positive) value of expr'. T_E_x_a_m_p_l_e_ * LIST 0010 PRINT ABS(-10);ABS(10) * RUN 10 10 END AT 0010 &_* T_ 4.3A_T_N_(_X_)_ F_o_r_m_a_t_ ATN(expr') expr': a numeric expression (- /2 = ATN(expr') = /2). U_s_e_ As a function to calculate the angle, in radians, whose tangent is expr'. \f T_E_x_a_m_p_l_e_ * LIST 0010 PRINT ATN(0);ATN(1)*180/SYS(14) * RUN 0 45 END AT 0010 &_* 4.4C_O_S_(_X_)_ F_o_r_m_a_t_ &_COS(expr') expr': a numeric expression specified in radians. U_s_e_ As a function to calculate the cosine of an angle which is expressed in radians. T_E_x_a_m_p_l_e_ * LIST 0010 PRINT COS(0);COS(45*SYS(14)/180) * RUN 1 .707107 END AT 0010 &_* T_ 4.5E_X_P_(_X_)_ F_o_r_m_a_t_ EXP(expr') &_ expr': a numeric expression (-178 = expr' = 175).\f U_s_e_ As a function to calculate the value of e (2.71828) to the power of expr'. T_E_x_a_m_p_l_e_ * LIST 0010 PRINT EXP(1);EXP(2);EXP(2.5) * RUN 2.71828 7.38905 12.1825 END AT 0010 &_* 4.6F_N_a_(_d_)_ For description, see the DEF statement, Chapter 3. 4.7I_N_T_(_X_)_ F_o_r_m_a_t_ INT(expr') expr': a numeric expression. U_s_e_ As a function to return the value of the nearest integer not greater than expr'.\f T_E_x_a_m_p_l_e_ * LIST 0010 PRINT INT(4.567);INT(-4.567) * RUN 4 -5 END AT 0010 * &_ T_ 4.8L_O_G_(_X_)_ F_o_r_m_a_t_ LOG(expr') expr': a numeric expression. &_ U_s_e_ As a function to calculate the n_a_t_u_r_a_l_ logarithm of expr'. T_E_x_a_m_p_l_e_ * LIST 0010 PRINT LOG(2);LOG(EXP(1)) * RUN .693149 1 END AT 0010 * T_4.9R_N_D_(_X_)_ F_o_r_m_a_t_ &_RND(expr') expr': a numeric expression (required, but not used). \f U_s_e_ As a function to produce a pseudo random number, n, such that 0 = n 1. R_e_m_a_r_k_s_ 1. The RND(X) function requires an argument, although the argument does not affect the resulting random number and the function does not affect the argument. 2. Each time the RND(X) function is called, it produces a pseudo random number in the range 0 to 1. The sequence in which these numbers are generated is fixed. The length of the sequence is 2 16. 3. As the sequence of random numbers is fixed and the starting point in the sequence is reset to the same point each time a NEW or RUN command (see Ch. 9) is given, the sequence of numbers generated by the RND(X) function is reproducible. 4. The RANDOMIZE statement (see Ch. 3) causes the random number generator to start at a different point in the sequence of random numbers generated by the RND(X) function. 5. Each occurrence of the RND(X) function yields the value of the next random number in the list.\f T_ E_x_a_m_p_l_e_ _1_ * LIST 0010 LET I=0 0020 REPEAT 0030 PRINT RND(I); 0040 LET I=I+1 0050 UNTIL I=4 0060 STOP 0070 GOTO 0010 * RUN C_o_m_m_e_n_t_ _(_1_)_ .21132 .14464 .852625 .927054 STOP The RUN command resets the AT 0060 sequence of random numbers; * RUN the CON command does not. .21132 .14464 .852625 .927054 STOP AT 0060 * CON .162866 .433095 .563933 .20965 STOP AT 0060 &_* T_E_x_a_m_p_l_e_ _2_ * LIST 0010 LET I=0 0020 WHILE I4 DO 0030 PRINT INT(25*RND(I)); 0040 LET I=I+1 0050 ENDWHILE * RUN C_o_m_m_e_n_t_ _(_2_)_ 5 3 21 23 END The program produces random AT 0050 integers in the range 0 to &_*24.\f T_ 4.10S_G_N_(_X_)_ F_o_r_m_a_t_ SGN(expr') expr': a numeric expression. &_ U_s_e_ As a function to return a +1 if expr' is greater than 0, a 0 if expr' equals 0, and a -1 if expr' is less than 0. T_E_x_a_m_p_l_e_ C_o_m_m_e_n_t_ * LIST Note that SGN(0) = 0. 0010 PRINT SGN(-5);SGN(0);SGN(5) * RUN -1 0 1 END AT 0010 &_* T_ 4.11S_I_N_(_X_)_ F_o_r_m_a_t_ SIN(expr') expr': a numeric expression specified in radians. &_ U_s_e_ As a function to calculate the sine of an angle which is expressed in radians. \f T_E_x_a_m_p_l_e_ * LIST 0010 PRINT SIN(0);SIN(45*SYS(14)/180) * RUN 0 .707107 END AT 0010 &_* T_ 4.12S_Q_R_(_X_)_ F_o_r_m_a_t_ SQR(expr') expr': a positive numeric expression. &_ U_s_e_ As a function to compute the square root of expr'. T_ E_x_a_m_p_l_e_ * LIST 0010 PRINT SQR(25);SQR(25.734) * RUN 5 5.07287 END AT 0010 &_*\f T_ 4.13S_Y_S_(_X_)_ F_o_r_m_a_t_ SYS(expr') expr': a numeric expression. &_ U_s_e_ As a function to return system information based on the value of expr', which is evaluated to an integer (0 to 15), as follows: F_u_n_c_t_i_o_n_ I_n_f_o_r_m_a_t_i_o_n_ SYS(0) Time of day (seconds past midnight). SYS(1) Day of the month (1 to 31). SYS(2) Month of the year (1 to 12). Current date. SYS(3) Year as two digits (e.g. 77). SYS(4) Terminal port number (32, if console). SYS(5) Time used in seconds since the terminal was logged on. SYS(6) Number of file I/O statements executed (i.e. every statement or command referring to a file, e.g. PRINT FILE, LIST "<LPT"). SYS(7) Error code of the last run-time error. SYS(8) File number of the file most recently referenced in a file I/O statement. SYS(9) Page size (length of the print line). SYS(10) Tab size (width of the print zone). SYS(11) Hour of the day. SYS(12) Minutes past the last hour. Current time of day. SYS(13) Seconds past the last minute. \f SYS(14) Constant (3.14159). SYS(15) Constant e (2.71828). T_ 4.14T_A_N_(_X_)_ F_o_r_m_a_t_ TAN(expr') expr': a numeric expression specified in radians. &_ U_s_e_ As a function to calculate the tangent of an angle which is expressed in radians. T_E_x_a_m_p_l_e_ * LIST 0010 PRINT TAN(0);TAN(45*SYS(14)/180) * RUN 0 .999999 END AT 0010 &_*\f T_ 5S_T_R_I_N_G_ _I_N_F_O_R_M_A_T_I_O_N_ 5.1S_t_r_i_n_g_ _c_o_n_c_e_p_t_ This chapter explains how strings are used in RC BASIC. The &_string concept is described in the present section, while three useful string functions, viz. CHR(X), LEN(X<), and ORD(X<) are described in the remaining sections. b_5.1.1 S_t_r_i_n_g_ _l_i_t_e_r_a_l_s_ e A string is a sequence of characters, which may include letters, digits, spaces, and special characters. A string literal (string constant) is a string enclosed within quotation marks. String literals are often used in PRINT and INPUT statements (see Ch. 3), for example: 100 PRINT "THIS IS A STRING LITERAL" 200 INPUT "X=",X The enclosing quotation marks are not printed when the string is output. N_o_n_-_p_r_i_n_t_i_n_g_ _a_n_d_ _s_p_e_c_i_a_l_ _c_h_a_r_a_c_t_e_r_s_ _m_a_y_ _b_e_ _i_n_c_l_u_d_e_d_ i_n_ _s_t_r_i_n_g_ _l_i_t_e_r_a_l_s_ _b_y_ _e_n_c_l_o_s_i_n_g_ _t_h_e_ _d_e_c_i_m_a_l_ _v_a_l_u_e_ _o_f_ _t_h_e_ c_h_a_r_a_c_t_e_r_ _w_i_t_h_i_n_ _a_n_g_l_e_ _b_r_a_c_k_e_t_s_ _(__'_)_, for example: 10 PRINT "USE DECIMAL 60 TO PRINT 60' IN STRINGS" * RUN USE DECIMAL 60 TO PRINT IN STRINGS The decimal values of all ASCII characters are given in Appendix D. b_ 5.1.2S_t_r_i_n_g_ _v_a_r_i_a_b_l_e_s_ e RC BASIC permits the use of string variables as well as string literals. A string variable name consists of a letter, followed by from 0 to 7 letters or digits, f_o_l_l_o_w_e_d_ _b_y_ _a_ _d_o_l_l_a_r_ _s_i_g_n_ _(_<_)_, for example: ANSWER<, TEXT< String values are assigned to string variables, as described below, by means of LET, READ, and INPUT statements, for example: INPUT ANSWER< LET TEXT<="THIS IS A TEXT"\f b_5.1.3 D_i_m_e_n_s_i_o_n_i_n_g_ _s_t_r_i_n_g_ _v_a_r_i_a_b_l_e_s_e All string variables m_u_s_t_ be dimensioned before they are used. By dimensioning the variable, the user sets an upper bound for the number of characters that can be stored in it. Dimensioning T_ is accomplished by means of the DIM statement (see Ch. 3), for example: DIM ANSWER<(20) DIM TEXT<(15),STRING<(5) &_ If the user attempts to assign a string literal that is too long T_ to a string variable, the string literal will be truncated, for example: 10 DIM TEXT<(6) 20 LET TEXT<="LONG STRING" 30 PRINT TEXT< * RUN LONG S &_ A string may be of any length, the sole limitation being available memory. b_5.1.4 S_u_b_s_t_r_i_n_g_s_e One can also reference a portion of a string variable. The T_ general form of such substrings is the following: i' svar'( j,k' ) svar': a string variable name. &_ i': a numeric expression indicating that the ith character in svar' is to be referenced. j,k': numeric expressions indicating that the jth through the kth characters in svar' are to be referenced. Example 1 shows how substrings can be referenced.\f T_ E_x_a_m_p_l_e_ _1_ 0010 DIM TEXT<(20) 0020 LET TEXT<="AAAAAAAAAAAAAAAAAAAA" 0030 PRINT TEXT< 0040 LET TEXT<(5)="B" 0050 PRINT TEXT< 0060 LET TEXT<(10,13)="BCDE" 0070 PRINT TEXT< 0080 LET TEXT<(15,17)="BCDEFG" 0090 PRINT TEXT< 0100 PRINT TEXT<(1),TEXT<(8,13),TEXT<(20) AAAAAAAAAAAAAAAAAAAA AAAABAAAAAAAAAAAAAAA AAAABAAAABCDEAAAAAAA AAAABAAAABCDEABCDAAA A AABCDE A &_ N_o_t_e_: When a value is to be assigned to a substring (i,j), a value must first be assigned to the substring (l,i-l). This can be done by initializing the entire string with blanks. b_ 5.1.5 A_s_s_i_g_n_i_n_g_ _v_a_l_u_e_s_ _t_o_ _s_t_r_i_n_g_ _v_a_r_i_a_b_l_e_s_e Values can be assigned to string variables by means of LET, READ and DATA, and INPUT statements (see Ch. 3) and READ FILE and INPUT FILE statements (see Ch. 8). Example 2 shows various uses of LET, READ and DATA, and INPUT. T_b_5.1.6 C_o_n_c_a_t_e_n_a_t_i_o_n_ _o_f_ _s_t_r_i_n_g_s_e Any number of strings (variables or literals) can be concate- nated by means of a LET statement having the following syntax: svar' svar' LET svar' = slit' , slit' ... svar': a string variable. slit': a string literal. &_ See Example 2, lines 50, 80, and 90. \f T_ E_x_a_m_p_l_e_ _2_C_o_m_m_e_n_t_ _(_2_)_T_ * LIST 0010 DATA "THIS"," A" 0020 DIM TEXT<(23),TEMP<(5) 0040 READ TEXT<(1,4) 0050 LET TEXT<=TEXT<," IS" 0060 READ TEXT<(LEN(TEXT<)+1,20) For LEN(X<), see 0070 INPUT TEMP< Sect. 5.3. 0080 LET TEXT<=TEXT<," ",TEMP< 0090 LET TEXT<=TEXT<," TEXT" 0100 PRINT TEXT< * RUN ? S_H_O_R_T_ _ _ The underlined THIS IS A SHORT TEXT texts are those entered by the user. END AT 0100 * RUN ? L_O_N_G___ THIS IS A LONG TEXT END AT 0100 &_ * N_o_t_e_: When a value is assigned to a substring, the number of characters in the source string must not be less than the number of characters in the substring referenced; otherwise, the rest of the characters in the substring and any remaining characters in the string will be truncated. Example 3 provides an illustration of this. \f T_ E_x_a_m_p_l_e_ _3_C_o_m_m_e_n_t_ _(_3_)_ * LIST 0010DIM TEXT<(10) 0020 LET TEXT<="AAAAAAAAAA" The underlined 0030 PRINT TEXT< texts are those 0040 INPUT TEXT<(3,7) entered by the user. 0050 PRINT TEXT< * RUN AAAAAAAAAA ? 1_2_3___ Source string. AA123TEXT<(6,10) has been truncated. * LIST 0010 DIM TEXT<(10),TEMP<(10) The desired result 0020 LET TEXT<="AAAAAAAAAA"can be achieved in 0030 PRINT TEXT<this way. 0040 INPUT TEMP< 0050 LET TEMP<=TEMP<," " 0060 LET TEXT<(3,7)=TEMP< 0070 PRINT TEXT< * RUN AAAAAAAAAA ? 1_2_3___ &_ AA123 AAA b_ 5.1.7 R_e_l_a_t_i_o_n_a_l_ _s_t_r_i_n_g_ _e_x_p_r_e_s_s_i_o_n_s_e Strings (literals and variables) may be compared. The result of a comparison is either true or false. The strings are compared character by character, on the basis of their decimal values (see App. D), until a difference is found or the end of one or both strings is met. If a character in a given position in one string has a higher decimal value than the character in the corresponding position in the other string, the first string is the greater of the two. If the characters in corresponding positions are identical, but one string contains more characters than the other, the shorter string is the lesser of the two. Thus, for example, the expression "ABC" "ABCD" is true.\f T_ E_x_a_m_p_l_e_ _1_ IF NAME<(1)="J" THEN . . . &_ T_ E_x_a_m_p_l_e_ _2_ C_o_m_m_e_n_t_ _(_2_)_ CASE ANSWER<="YES" OF . . . WHEN 1 1 corresponds to true. . . . WHEN 0 0 corresponds to false. . . . ENDCASE &_ T_ 5.2C_H_R_(_X_)_ _f_u_n_c_t_i_o_n_ F_o_r_m_a_t_ CHR(expr') expr': a numeric expression. &_ U_s_e_ As a function to return the character corresponding to the number specified in the argument. R_e_m_a_r_k_s_ 1. The correspondence between numbers (decimal values) and characters is shown in Appendix D. 2. The number is found as expr' modulo 128. 3. The CHR(X) function may be used in any string expression.\f T_ E_x_a_m_p_l_e_ C_o_m_m_e_n_t_ 0010 TAB=4 0020 PAGE=32 0030 FOR I=65 TO 74 0040 PRINT I,CHR(I), 0050 NEXT I 65 A 66 B 67 C 68 D The characters corresponding 69 E 70 F 71 G 72 H to the numbers 65-74 are A-J. &_ 73 I 74 J T_ 5.3L_E_N_(_X_<_)_ _f_u_n_c_t_i_o_n_ F_o_r_m_a_t_ svar' LEN( slit' ) svar': a string variable. slit': a string literal. &_ U_s_e_ As a function to return the current length (number of characters) of the string specified in the argument. R_e_m_a_r_k_s_ 1. The LEN(X<) function may be used in any numeric expression. 2. If the string argument is empty, the value returned is 0. T_E_x_a_m_p_l_e_ C_o_m_m_e_n_t_ 0010 DIM TEXT<(10) 0020 TAB=12 0030 PRINT TEXT<,LEN(TEXT<) 0040 FOR I=1 TO 10 0050 LET TEXT<=TEXT<,CHR(I+64) For CHR(X), see Sect. 5.2. 0060 PRINT TEXT<,LEN(TEXT<) 0070 NEXT I &_\f T_ 0 A 1 AB 2 ABC 3 ABCD 4 ABCDE 5 ABCDEF 6 ABCDEFG 7 ABCDEFGH 8 ABCDEFGHI 9 &_ABCDEFGHIJ 10 T_ 5.4O_R_D_(_X_<_)_ _f_u_n_c_t_i_o_n_ F_o_r_m_a_t_ svar' ORD( slit' ) svar': a string variable. slit': a string literal. &_ U_s_e_ As a function to return the number of the first character of the string specified in the argument. R_e_m_a_r_k_s_ 1. The number returned is the character"s decimal value, which is equivalent to its internal representation. (This number is also the ordinal number of the character; thus the character A, for example, which has the decimal value 65, is the 65th character in the ASCII character set). The correspondence between numbers and characters is shown in Appendix D. 2. The ORD(X<) function may be used in any numeric expression. \f T_ E_x_a_m_p_l_e_ C_o_m_m_e_n_t_ 0010 TAB=4 0020 PAGE=32 0030 DIM A<(10) 0040 LET A<="0123456789" 0050 FOR I=1 TO 10 0060 PRINT ORD(A<(I));A<(I), 0070 NEXT I 48 0 49 1 50 2 51 3 The c_h_a_r_a_c_t_e_r_s_ 0-9 have the 52 4 53 5 54 6 55 7internal decimal values &_56 8 57 948-57.\f i T_A_B_L_E_ _O_F_ _C_O_N_T_E_N_T_S_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _P_A_G_E_ 1. FOR TECHNICAL USE ...................................... 1 1.1 RC8000 Test Base Systems (Binary) Version Aug. 82 . 1 1.2 Testprogram User's Manuals ........................ 1 1.3 PLU801 Test ....................................... 1 1.4 -Programmed Tests ................................ 2 1.5 CDU801 Test ....................................... 2 2. FOR MAINTENANCE USE .................................... 3 2.1 RC8000 Test Programs Back-Up ...................... 3 2.2 RC3600 Program Back-Up ............................ 3 2.3 User's Manuals .................................... 3 2.4 PLU801 Maintenance ................................ 3 \f ii \f F_ 1_._ _ _ _ _ _ _ _ _F_O_R_ _T_E_C_H_N_I_C_A_L_ _U_S_E_ 1. Changes in the RC8000 test system are described in the paper "RC TESTNEWS". Changes related to the newest versions may be found in: "RC TESTNEWS, Edition: 4, Date: Aug. 1982" Additional information may be found in the previous editions. 1_._1_ _ _ _ _ _ _ _R_C_8_0_0_0_ _T_e_s_t_ _B_a_s_e_ _S_y_s_t_e_m_s_ _(_B_i_n_a_r_y_)_ _V_e_r_s_i_o_n_ _A_u_g_._ _8_2_ 1.1 Mag.tape 800 bpi RCSL No 30-M306 Mag.tape 1600 bpi RCSL No 30-M307 DISC KIT (for RC3652) RCSL No 30-M308 Flexible disc (for RC3751) stand-alone RCSL No 30-M309 Flexible disc (for RC3751) TOP RCSL No 30-M310 1_._2_ _ _ _ _ _ _ _T_e_s_t_p_r_o_g_r_a_m_ _U_s_e_r_'_s_ _M_a_n_u_a_l_s_ 1.2 RC8000 Test System User Manual RCSL No 30-M216 RC8100 Memory Test RCSL No 30-M198 RC8000 CPU Test RCSL No 30-M58 RC8200 Disc Test RCSL No 30-M241 RC8400 FPA Test RCSL No 30-M57 RC8000 Test Operating System (TOP) RCSL No 30-M261 OCTAL-DECIMAL conversion table RCSL No 30-M164 1_._3_ _ _ _ _ _ _ _P_L_U_8_0_1_ _T_e_s_t_ 1.3 User's Manual RCSL No 30-M179 Listing (rev. 0.0) RCSL No 30-M180 Listing (rev. 0.1) RCSL No 30-M311 RC8000 Mirror, User's Manual RCSL No 30-M251 \f 1_._4_ _ _ _ _ _ _ __-_P_r_o_g_r_a_m_m_e_d_ _T_e_s_t_s_ 1.4 CPU810 User's Manual RCSL No 30-M167 CPU810 Listing RCSL No 30-M195 CPU820 User's Guide RCSL No 30-M270 IFP801 User's Guide RCSL No 30-M297 1_._5_ _ _ _ _ _ _ _C_D_U_8_0_1_ _T_e_s_t_ 1.5 Manual RCSL No 30-M10 Listing RCSL No 30-M38 Source RCSL No 30-M39 \f F_ 2_._ _ _ _ _ _ _ _ _F_O_R_ _M_A_I_N_T_E_N_A_N_C_E_ _U_S_E_ 2. 2_._1_ _ _ _ _ _ _ _R_C_8_0_0_0_ _T_e_s_t_ _P_r_o_g_r_a_m_s_ _B_a_c_k_-_U_p_ 2.1 Mag.tape (version Feb. 79) RCSL No 30-M240 Mag.tape (version Jan. 81) RCSL No 30-M263 Mag.tape (version Aug. 82) RCSL No 30-M312 2_._2_ _ _ _ _ _ _ _R_C_3_6_0_0_ _P_r_o_g_r_a_m_ _B_a_c_k_-_U_p_ 2.2 Code Procedure Library RCSL No 44-RT1344 Program "OPCOM"-Listing RCSL No 30-M303 Program "OPCOM"-ASCII Source RCSL No 30-M302 Program "OPCOM"-R.B. Papertape RCSL No 30-M304 Program "TFGEN"-Listing RCSL No 30-M205 Program "TFGEN"-ASCII Source RCSL No 30-M206 Program "TFGEN"-R.B. Papertape RCSL No 30-M207 2_._3_ _ _ _ _ _ _ _U_s_e_r_'_s_ _M_a_n_u_a_l_s_ 2.3 RC8000 Generating of Test Systems RCSL No 30-M215 RC8000 "OPCOM" Program Maintenance RCSL No 44-RT1382 2_._4_ _ _ _ _ _ _ _P_L_U_8_0_1_ _M_a_i_n_t_e_n_a_n_c_e_ 2.4 Logic Diagrams RCSL No 30-M178 RC8000 Back-Up Mag.tape RCSL No 30-M313 R_C_3_6_0_0_ _P_r_o_g_r_a_m_s_: Program "PLUBM"-Listing RCSL No 30-M190 Program "PLUBM"-ASCII Source RCSL No 30-M211 Program "PLUBM"-P.B. Papertape RCSL No 30-M212 \f F_ \f «eof»