, , , , . (=). : a=42
a#=99.9
a$=""
lottery(1,1)=49 DATA READ . . DATA READ. : DATA 9,"",9,9
READ a,a$,a# DATA , . , . , 9, - "", 9,9. READ , , , . , . - . , 9 . , "". A$. 9,9. : 9
""
9.9 9 , , . , . , . RESTORE RESTORE , . , , , . READ . . , , , . : lotterydata:
DATA 12,23,34,45,56,67
DATA 23,34,45,56,67,11
DATA 34,45,56,67,33,22 ticketdata:
DATA 01,02,03,04,05,06
DATA 21,32,43,24,13,22 , , , . RESTORE, , . (:) . : RESTORE lotterydata
READ a,b,c,d,e,f
PRINT " ",a,b,c,d,e,f , , . RESTORE ticketdata
READ a,b,c,d,e,f
PRINT " ",a,b,c,d,e,f , , . , . . GOSUB . RETURN, GOSUB. : PRINT ", "
GOSUB MySubroutine
END MySubroutine:
PRINT ""
RETURN ",", MySubroutine . "". RETURN , , GOSUB END. GOTO , , , . , . GOTO: MyLabel:
PRINT ", ";
GOTO MyLabel : DO
PRINT ", ";
LOOP , , "", GOTO. GOTO Dark Basic Professional . FOR ... NEXT FOR NEXT . , . : FOR T=1 TO 5
PRINT T;" ";
NEXT T
PRINT "" : 1 2 3 4 5 1, PRINT. NEXT FOR 2. . , 5, , . NEXT "", , . , FOR NEXT : FOR A=1 TO 5
PRINT "MAIN A=";A
FOR B=1 TO 10
PRINT "LITTLE B=";B
NEXT B
NEXT A FOR NEXT 1 5, FOR NEXT 1 10. , . , : FOR week=1 TO 52 STEP 4
PRINT " ";week; " : ";
FOR index=1 to 6
PRINT lottery(week,index);" ";
NEXT index
NEXT week STEP, FOR NEXT. , 1, . . IF ... THEN IF . , "", "". "", , THEN. "", , IF ... THEN. : INPUT " >",age
IF age>=16 THEN PRINT " " , 16, . IF THEN. , , IF. : age>=16 , 0 1, 16. IF 0 , - . , , 16, 1, . . IF - . , , , . : IF A THEN PRINT ""
IF A = B THEN PRINT ""
IF A > (B - 5) THEN PRINT ""
IF A = (B + (A * 2)) THEN PRINT ""
IF A=1 AND B=2 THEN PRINT ""
IF NAME$="" AND SURNAME$="" THEN PRINT ""
IF A#=1.5 OR LOTTERY(10,2)=20 THEN PRINT "" : IF A = B = THEN PRINT ""
IF > A = B THEN PRINT ""
IF A B THEN PRINT ""
IF AND A THEN PRINT ""
IF B OR THEN PRINT "" , THEN , IF ... ENDIF. , IF, ENDIF, : IF A = B
PRINT ", A B!"
ENDIF , IF A = B THEN PRINT " , A B!" , : IF A = B
PRINT ", A!"
PRINT " , B!"
PRINT " , A B!"
PRINT " , B A!"
PRINT " !"
ENDIF , . , , ELSE. IF A = B
PRINT " !
ELSE
PRINT " !"
ENDIF , THEN, ENDIF. , ENDIF , , ELSE. PRINT PRINT . , , . PRINT, , . PRINT , , , . PRINT . , " " (;). : PRINT ", ";
PRINT "" , : PRINT " ";name$, " ";age;" ." , SET CURSOR . : DO
SET CURSOR RND(640),RND(480)
PRINT ""
LOOP , Dark Basic Professional , , , . . INPUT INPUT , . , , : INPUT a$ , . , A$. : INPUT " ",password$ , . , . , . . END BREAK END . , (CLI). END . , Windows. BREAK, , . BREAK , . BREAK .
, :
, , , , (=). :
a=42
a#=99.9
a$=""
lottery(1,1)=49 DATA READ . . DATA READ. :
DATA 9,"",9.9
READ a,a$,a#
DATA , . , . , 9, - "", 9.9. READ , , , . , . - . , 9 . , "". A$. 9.9. :
9
""
9.9
9 , , . , . , . RESTORE RESTORE , . , , , . READ . . , , , . :
lotterydata:
DATA 12,23,34,45,56,67
DATA 23,34,45,56,67,11
DATA 34,45,56,67,33,22 ticketdata:
DATA 01,02,03,04,05,06
DATA 21,32,43,24,13,22
, , , . RESTORE, , . (:) . :
RESTORE lotterydata
READ a,b,c,d,e,f
PRINT " ",a,b,c,d,e,f
, , .
RESTORE ticketdata
READ a,b,c,d,e,f
PRINT " ",a,b,c,d,e,f
, , . , . . GOSUB . RETURN, GOSUB. :
PRINT ", "
GOSUB MySubroutine
END MySubroutine:
PRINT ""
RETURN
",", MySubroutine . "". RETURN , , GOSUB END. GOTO , , , . , . GOTO:
MyLabel:
PRINT ", ";
GOTO MyLabel
:
DO
PRINT ", ";
LOOP
, , "", GOTO. GOTO Dark Basic Professional . FOR ... NEXT FOR NEXT . , . :
FOR T=1 TO 5
PRINT T;" ";
NEXT T
PRINT ""
:
1 2 3 4 5
1, PRINT. NEXT FOR 2. . , 5, , . NEXT "", , . , FOR NEXT :
FOR A=1 TO 5
PRINT "MAIN A=";A
FOR B=1 TO 10
PRINT "LITTLE B=";B
NEXT B
NEXT A
FOR NEXT 1 5, FOR NEXT 1 10. , . , :
FOR week=1 TO 52 STEP 4
PRINT " ";week; " : ";
FOR index=1 to 6
PRINT lottery(week,index);" ";
NEXT index
NEXT week
STEP, FOR NEXT. , 1, . . IF ... THEN IF . , "", "". "", , THEN. "", , IF ... THEN. :
INPUT " >",age
IF age>=16 THEN PRINT " "
, 16, . IF THEN. , , IF. :
age>=16
, 0 1, 16. IF 0 , - . , , 16, 1, . . IF - . , , , . :
IF A THEN PRINT ""
IF A = B THEN PRINT ""
IF A > (B - 5) THEN PRINT ""
IF A = (B + (A * 2)) THEN PRINT ""
IF A=1 AND B=2 THEN PRINT ""
IF NAME$="" AND SURNAME$="" THEN PRINT ""
IF A#=1.5 OR LOTTERY(10,2)=20 THEN PRINT ""
:
IF A = B = THEN PRINT ""
IF > A = B THEN PRINT ""
IF A B THEN PRINT ""
IF AND A THEN PRINT ""
IF B OR THEN PRINT ""
, THEN , IF ... ENDIF. , IF, ENDIF, :
IF A = B
PRINT ", A B!"
ENDIF
,
IF A = B THEN PRINT " , A B!"
, :
IF A = B
PRINT ", A!"
PRINT " , B!"
PRINT " , A B!"
PRINT " , B A!"
PRINT " !"
ENDIF
, . , , ELSE.
IF A = B
PRINT " !
ELSE
PRINT " !"
ENDIF
, THEN, ENDIF. , ENDIF , , ELSE. PRINT PRINT . , , . PRINT, , . PRINT , , , . PRINT . , " " (;). :
PRINT ", ";
PRINT ""
, :
PRINT " ";name$, " ";age;" ."
, SET CURSOR . :
DO
SET CURSOR RND(640),RND(480)
PRINT ""
LOOP
, Dark Basic Professional , , , . . INPUT INPUT , . , , :
INPUT a$
, . , A$. :
INPUT " ",password$
, . , . , . . END BREAK END . , (CLI). END . , Windows. BREAK, , . BREAK , . BREAK .