Hallo, hieronder de code voor een spelletje voor een rekenmachine.
The Program:
TETRIS'Program name
------
Cls
AxesOff
GridOff
LabelOff
For 1 -> A To 20 Step 2
Text A,2," "'5 spaces
Text A+2,2,"###"'the SYBL menu and f6
Text A+8,8,"#"'Text: shift f4, f6, f6, f2
Text A+14,8,"#"
Getkey=31 => Prog "TETMAIN"'97-04-04: Add theese lines.
Next
For 1 -> A To 25 Step 2
Text A,22," "'5 spaces
Text A+2,22,"###"
Text A+8,22,"## "'2 spaces after the #'s
Text A+14,22,"###"
Getkey=31 => Prog "TETMAIN"
Next
For 1 -> A To 20 Step 2
Text A,42," "'5 spaces
Text A+2,42,"###"
Text A+8,48,"#"
Text A+14,48,"#"
Getkey=31 => Prog "TETMAIN"
Next
For 1 -> A To 25 Step 2
Text A,62," "'5 spaces
Text A+2,62,"###"
Text A+8,62,"## "'2 spaces after the #'s
Text A+14,62,"#"
Text A+14,74,"#"
Getkey=31 => Prog "TETMAIN"
Next
For 1 -> A To 20 Step 2
Text A,82," "'5 spaces
Text A+2,88,"#"
Text A+8,88,"#"
Text A+14,88,"#"
Getkey=31 => Prog "TETMAIN"
Next
For 1 -> A To 25 Step 2
Text A,102," "'5 spaces
Text A+2,102," "'2 spaces
Text A+2,108,"##"
Text A+8,102," "'2 spaces
Text A+8,108,"# "'2 spaces after the #
Text A+14,102,"## "'2 spaces after the #'s
Getkey=31 => Prog "TETMAIN"
Next
For 1 -> A To 34
Text 50,A," By:"'note! 1 space before (By:)
Getkey=31 => Prog "TETMAIN"
Next
For 1 -> A To 125
Next
Text 50,52,"B. RASMUS ANTHIN"
For 1 -> A To 18
Text 1,1," "
Next
Text 5,30,"PUSH [EXE]"_'_ = display
ClrText
Prog "TETMAIN"'shift PRGM, f6, f4, f1
Welke scriptingtaal is dit?
The Program:
TETRIS'Program name
------
Cls
AxesOff
GridOff
LabelOff
For 1 -> A To 20 Step 2
Text A,2," "'5 spaces
Text A+2,2,"###"'the SYBL menu and f6
Text A+8,8,"#"'Text: shift f4, f6, f6, f2
Text A+14,8,"#"
Getkey=31 => Prog "TETMAIN"'97-04-04: Add theese lines.
Next
For 1 -> A To 25 Step 2
Text A,22," "'5 spaces
Text A+2,22,"###"
Text A+8,22,"## "'2 spaces after the #'s
Text A+14,22,"###"
Getkey=31 => Prog "TETMAIN"
Next
For 1 -> A To 20 Step 2
Text A,42," "'5 spaces
Text A+2,42,"###"
Text A+8,48,"#"
Text A+14,48,"#"
Getkey=31 => Prog "TETMAIN"
Next
For 1 -> A To 25 Step 2
Text A,62," "'5 spaces
Text A+2,62,"###"
Text A+8,62,"## "'2 spaces after the #'s
Text A+14,62,"#"
Text A+14,74,"#"
Getkey=31 => Prog "TETMAIN"
Next
For 1 -> A To 20 Step 2
Text A,82," "'5 spaces
Text A+2,88,"#"
Text A+8,88,"#"
Text A+14,88,"#"
Getkey=31 => Prog "TETMAIN"
Next
For 1 -> A To 25 Step 2
Text A,102," "'5 spaces
Text A+2,102," "'2 spaces
Text A+2,108,"##"
Text A+8,102," "'2 spaces
Text A+8,108,"# "'2 spaces after the #
Text A+14,102,"## "'2 spaces after the #'s
Getkey=31 => Prog "TETMAIN"
Next
For 1 -> A To 34
Text 50,A," By:"'note! 1 space before (By:)
Getkey=31 => Prog "TETMAIN"
Next
For 1 -> A To 125
Next
Text 50,52,"B. RASMUS ANTHIN"
For 1 -> A To 18
Text 1,1," "
Next
Text 5,30,"PUSH [EXE]"_'_ = display
ClrText
Prog "TETMAIN"'shift PRGM, f6, f4, f1
Welke scriptingtaal is dit?