Print Page - Screen Full of Stars and a Welcome Message in GW Basic by Blackjack

Title: Screen Full of Stars and a Welcome Message in GW Basic by Blackjack
Post by: ron77 on Dec 16, 2023, 10:38 AM

Code Select

10 RANDOMIZE TIMER:DEF SEG=&HB800
20 FOR I=0 TO 2000:POKE I*2+1,0:POKE I*2,42:NEXT
30 T$="Hello, welcome to RetroCoders Community Forum!"
40 LOCATE 12,(80-LEN(T$))\2:PRINT T$;
50 WHILE INKEY$<>CHR$(27):POKE INT(RND*2000)*2+1,INT(RND*16):WEND
␚

(https://i.imgur.com/pQmFzI3.png)

(https://i.imgur.com/sfcOQBS.png)

RetroCoders Community

Other Basic Programming Languages => QBasic => GWBasic => Topic started by: ron77 on Dec 16, 2023, 10:38 AM