http://www.ninerpedia.org/index.php?action=history&feed=atom&title=TiCodEd
TiCodEd - Revision history
2026-04-27T16:26:44Z
Revision history for this page on the wiki
MediaWiki 1.37.1
http://www.ninerpedia.org/index.php?title=TiCodEd&diff=51000&oldid=prev
Stefan Haubenthal: Created page with "'''TiCodEd''' is an Extended BASIC editor/preprocessor by Stefan Bauch. This open source software is written in Free Pascal. == Example == Structured Extended Basic // SPEEDY // A demo of "Structured Extended Basic" by Stefan Bauch REPEAT GOSUB initialize REPEAT CALL KEY(0,K,S) :: B=B+(K=65)/4-(K=76)/4 :: B1=B-INT(B) :: Q=Q-(B1=.75)+(B1=.25) :: W=W-(B1=.5)+(B1=0) CALL GCHAR(Q,W,E) :: SC=SC+1 :: CALL VCHAR(Q,W,130) UNTIL e<>32 CALL SAY("GAMES OVER"..."
2024-07-30T18:31:26Z
<p>Created page with "'''TiCodEd''' is an Extended BASIC editor/preprocessor by Stefan Bauch. This open source software is written in Free Pascal. == Example == Structured Extended Basic // SPEEDY // A demo of "Structured Extended Basic" by Stefan Bauch REPEAT GOSUB initialize REPEAT CALL KEY(0,K,S) :: B=B+(K=65)/4-(K=76)/4 :: B1=B-INT(B) :: Q=Q-(B1=.75)+(B1=.25) :: W=W-(B1=.5)+(B1=0) CALL GCHAR(Q,W,E) :: SC=SC+1 :: CALL VCHAR(Q,W,130) UNTIL e<>32 CALL SAY("GAMES OVER"..."</p>
<p><b>New page</b></p><div>'''TiCodEd''' is an Extended BASIC editor/preprocessor by Stefan Bauch. This open source software is written in Free Pascal.<br />
<br />
== Example ==<br />
Structured Extended Basic<br />
// SPEEDY<br />
// A demo of "Structured Extended Basic" by Stefan Bauch<br />
<br />
REPEAT<br />
GOSUB initialize<br />
REPEAT<br />
CALL KEY(0,K,S) :: B=B+(K=65)/4-(K=76)/4 :: B1=B-INT(B) :: Q=Q-(B1=.75)+(B1=.25) :: W=W-(B1=.5)+(B1=0)<br />
CALL GCHAR(Q,W,E) :: SC=SC+1 :: CALL VCHAR(Q,W,130)<br />
UNTIL e<>32<br />
CALL SAY("GAMES OVER")<br />
DISPLAY AT(24,2):"GAME OVER SCORE :";SC<br />
WHILE S=0<br />
CALL KEY(0,K,S)<br />
WEND<br />
UNTIL K=78<br />
END<br />
<br />
<br />
initialize:<br />
CALL CHAR(130,"")<br />
Q=23 :: W=16 :: B=100.25 :: SC=0<br />
CALL CLEAR :: CALL VCHAR(1,1,130,23) :: CALL VCHAR(1,32,130,23) :: CALL HCHAR(1,1,130,32) :: CALL HCHAR(23,1,130,32)<br />
FOR I=6 TO 18 STEP 6 :: CALL VCHAR(I,10,130) :: CALL VCHAR(I,17,130) :: CALL VCHAR(I,24,130) :: NEXT I<br />
CALL CHAR(130,"FFFFFFFFFFFFFFFF")<br />
RETURN <br />
<br />
Extended BASIC<br />
100 GOSUB 210<br />
110 CALL KEY(0,K,S) :: B=B+(K=65)/4-(K=76)/4 :: B1=B-INT(B) :: Q=Q-(B1=.75)+(B1=.25) :: W=W-(B1=.5)+(B1=0)<br />
120 CALL GCHAR(Q,W,E) :: SC=SC+1 :: CALL VCHAR(Q,W,130)<br />
130 IF NOT (e<>32) THEN GOTO 110<br />
140 CALL SAY("GAMES OVER")<br />
150 DISPLAY AT(24,2):"GAME OVER SCORE :";SC<br />
160 IF NOT (S=0) THEN GOTO 190<br />
170 CALL KEY(0,K,S)<br />
180 GOTO 160<br />
190 IF NOT (K=78) THEN GOTO 100<br />
200 END<br />
210 CALL CHAR(130,"")<br />
220 Q=23 :: W=16 :: B=100.25 :: SC=0<br />
230 CALL CLEAR :: CALL VCHAR(1,1,130,23) :: CALL VCHAR(1,32,130,23) :: CALL HCHAR(1,1,130,32) :: CALL HCHAR(23,1,130,32)<br />
240 FOR I=6 TO 18 STEP 6 :: CALL VCHAR(I,10,130) :: CALL VCHAR(I,17,130) :: CALL VCHAR(I,24,130) :: NEXT I<br />
250 CALL CHAR(130,"FFFFFFFFFFFFFFFF")<br />
260 RETURN<br />
<br />
== Links ==<br />
http://lizardware.de<br />
<br />
<br />
[[Category:Programming language]]</div>
Stefan Haubenthal