- , ( ) .
, INPUT PRINT, INPUT$(n), , INKEYS, , STICK(n), STRIG(O), ( ).
ASCI-. ASCI .
77 5 ' ************ ************
10 cls
20 f$ = INPUT$(1)
30 PRINT "="; f$; "="; ASC(f$)
40 PRINT 50 GOTO 20
, . 78.
78 5 ************ **************
10 FOR i = 1 256
20 PRINT "="; i, "="; CHR$(i)
30 a$ = INPUT$(1)
40 NEXT I
INPUTS :
$ = INPUTS(l): IF r$ = "" THEN n
INPLT \ "?" . - . . ("") , .
79;
5 ********** *********'**
7 CLS
8 PRINT " "
9 r$=INPUT$(l): IF r$=""THEN 9
10 code$ = "1996": k =
20 INPUT ""; $
30 PRINT ""
40 $ = INPUT$(4)
50 IF p$ = code$ THEN GOTO 80
60 k = k + 1 70 IF k < 3 THEN GOTO 30 ELSE PRINT " ": END
80. PRINT 90 PRINT a$, " "
100 END
INKEYS :
n sS=INKEYS: IF sS=""THEN n
, ( ). 27 ( 20) Esc.
80
^ i ********** ************ 5 SCREEN 2
6 = 100: = 100: h = 2
7 PSET (, )
10 g$ = INKEY$
20 IF g$ = CHR$(27) THEN 80
30 IF g$ = "A" OR g$ = "a " THEN = - h
40 IF g$ = "S" OR g$ = "s " THEN = + h
50 IF g$ = "Z" OR g$ = "z" THEN = + h
60 IF g$ = "W" OR g$ = "w" THEN = - h
|
|
|
70 GOTO 7
80 END
( KEY). KEY. .
81
5 ' ********** ********
10 FOR i = 1 10
20 KEY i, "+ STR$(i)
30 NEXT i
40 KEY 30, "
50 KEY 31, "+ CHR$(13)
60 KEY LIST
70 KEY ON
80 r$ = INPUT$(1): IF r$ = ""THEN 80
1. , .
2. .
3. .
4. , .
5. -.
6. 21.
, , .
() 1967 ., ; 1964 . 1967 . , , , ( ѻ), .
. - . . - (, 80- - 90- MSX- ).
60- . . , . ( , , , ) . - ( ) .
70-, 80- . . . -MSX. (, , ) -MSX. .
|
|
|
, , . , - , , . - . . - . . , ( SCREEN 0). , ( SCREEN n, =2,3,...). QBasic. , . SELECT CASE, - WHILE-WEND, DO-LOOP-WHILE, DO-WHILE-LOOP, (SUB-CALL).
- help (), , .
- , . :
(, , );
( );
- ( );
(, , ).
, () , , , .
, , , . , . , , , , .
, , , , - ( -77). ( , , ). - , , , .
