.png)
.png)
.png)
SSUGGESTED BASIC COMMANDS FOR FASTER TYPING / PRE-TYPING
(Sugestões de comandos BASIC para uma digitação mais rápida / pré-digitação)
--------------
key1,"DRAW"+CHR$(34)+"R"
key2,"DRAW"+CHR$(34)+"BM"
auto
PROGRAM LISTING IN BASIC LANGUAGE
(Listagem do programa em linguagem BASIC)
--------------
10 ' Screensaver - MSX-BASIC
20 ' Theme: RUSH 01
30 ' Year: 2025
40 ' MSX/MSX2/MSX2+/TURBO-R
50 ' -----------------------
60 CLS
70 ' ----------------------
80 ' Generates random color
90 ' ----------------------
100 CL1=INT(RND(1)*14)+2
110 ' --------------------
120 ' Color and Resolution
130 ' --------------------
140 COLOR CL1,1,1:SCREEN 2
150 ' ---------------
160 ' Draws the image
170 ' ---------------
180 GOSUB 2000
190 ' -------------------------
200 ' Pauses or waits for a key
210 ' -------------------------
220 FOR D1=1 TO 2000
230 I$=INKEY$:IF I$<>"" THEN GOTO 250
240 NEXT D1
250 GOSUB 270 ' Random exit effect
260 FOR D2=1 TO 1000:NEXT D2:GOTO 60
270 ' ------------------
280 ' Random exit effect
290 ' ------------------
300 EF=INT(RND(1)*8)
310 IF EF=1 THEN GOSUB 460
320 IF EF=2 THEN GOSUB 530
330 IF EF=3 THEN GOSUB 600
340 IF EF=4 THEN GOSUB 670
350 IF EF=5 THEN GOSUB 740
360 IF EF=6 THEN GOSUB 860
370 IF EF=7 THEN GOSUB 980
380 IF EF=8 THEN GOSUB 1070
390 RETURN ' Pauses or waits for a key
400 ' -----------
410 ' Extra lines
420 '
430 '
440 '
450 ' -----------
460 ' --------------
470 ' Exit effect #1
480 ' --------------
490 FOR R=0 TO 191 STEP 2
500 LINE(0,R)-(255,R),1
510 NEXT
520 RETURN ' Random exit effect
530 ' --------------
540 ' Exit effect #2
550 ' --------------
560 FOR R=191 TO 0 STEP -2
570 LINE(0,R)-(255,R),1
580 NEXT
590 RETURN ' Random exit effect
600 ' --------------
610 ' Exit effect #3
620 ' --------------
630 FOR C=0 TO 255 STEP 2
640 LINE(C,0)-(C,191),1
650 NEXT
660 RETURN ' Random exit effect
670 ' --------------
680 ' Exit effect #4
690 ' --------------
700 FOR C=255 TO 0 STEP -2
710 LINE(C,0)-(C,191),1
720 NEXT
730 RETURN ' Random exit effect
740 ' --------------
750 ' Exit effect #5
760 ' --------------
770 X=128: Y=96
780 FOR A=360 TO 0 STEP -3
790 R=128/ABS(COS(A*3.14/180))
800 IF R*ABS(SIN(A*3.14/180))>96 THEN R=96/ABS(SIN(A*3.14/180))
810 XA=X+COS(A*3.14/180)*R
820 YA=Y-SIN(A*3.14/180)*R
830 LINE(X,Y)-(XA,YA),1
840 NEXT
850 RETURN ' Random exit effect
860 ' --------------
870 ' Exit effect #6
880 ' --------------
890 X=128: Y=96
900 FOR A=0 TO 360 STEP 3
910 R=128/ABS(COS(A*3.14/180))
920 IF R*ABS(SIN(A*3.14/180))>96 THEN R=96/ABS(SIN(A*3.14/180))
930 XA=X+COS(A*3.14/180)*R
940 YA=Y-SIN(A*3.14/180)*R
950 LINE(X,Y)-(XA,YA),1
960 NEXT
970 RETURN ' Random exit effect
980 ' --------------
990 ' Exit effect #7
1000 ' --------------
1010 FOR Y=0 TO 184 STEP 8
1020 FOR X=0 TO 248 STEP 8
1030 LINE (X,Y)-(X+7,Y+7),1,BF
1040 NEXT X
1050 NEXT Y
1060 RETURN ' Random exit effect
1070 ' --------------
1080 ' Exit effect #8
1090 ' --------------
1100 FOR Y=184 TO 0 STEP -8
1110 FOR X=248 TO 0 STEP -8
1120 LINE (X,Y)-(X+7,Y+7),1,BF
1130 NEXT X,Y
1140 RETURN ' Random exit effect
1150 ' -----------
1980 ' Extra lines
1990 ' -----------
2000 ' ------------
2010 ' DRAW command
2020 ' ------------
2030 PSET(165,169)
2040 DRAW "R2BM226,21R5BM223,22R11BM81,23R24BM108,23R25BM202,23R2BM221,23R14BM37,24R14BM80,24R54BM148,24R35BM201,24R4BM220,24R4BM233,24R3BM33,25R23BM80,25R54BM145,25R39BM200,25R6BM219,25R3BM235,25R3BM31,26R9BM48,26R11BM80,26R1BM105,26R3BM133,26R1BM143,26"
2050 DRAW "R36BM182,26R2BM198,26R4BM204,26R2BM218,26R2BM236,26R2BM29,27R5BM54,27R7BM80,27R2BM105,27R4BM132,27R2BM141,27R5BM182,27R2BM197,27R3BM204,27R2BM217,27R2BM237,27R2BM27,28R5BM58,28R5BM81,28R2BM104,28R5BM131,28R3BM140,28R4BM182,28R2BM196,28R3"
2060 DRAW "BM204,28R2BM216,28R2BM238,28R2BM26,29R4BM60,29R5BM82,29R2BM104,29R2BM108,29R2BM131,29R3BM139,29R3BM181,29R2BM194,29R4BM204,29R2BM216,29R2BM238,29R2BM24,30R4BM62,30R4BM82,30R2BM104,30R6BM130,30R4BM138,30R3BM181,30R2BM193,30R3BM204,30R2BM215,30"
2070 DRAW "R2BM239,30R2BM23,31R3BM64,31R4BM83,31R2BM103,31R7BM130,31R4BM137,31R2BM180,31R3BM192,31R3BM204,31R2BM215,31R1BM240,31R1BM22,32R3BM66,32R3BM83,32R2BM103,32R7BM130,32R4BM136,32R2BM180,32R2BM190,32R4BM204,32R2BM214,32R2BM240,32R2BM21,33R3BM67,33"
2080 DRAW "R3BM83,33R2BM103,33R7BM129,33R8BM180,33R2BM189,33R3BM204,33R2BM214,33R2BM240,33R2BM20,34R3BM68,34R3BM83,34R1BM103,34R7BM129,34R8BM179,34R3BM187,34R4BM204,34R2BM214,34R1BM241,34R1BM19,35R3BM69,35R3BM82,35R2BM103,35R7BM129,35R7BM179,35R3BM186,35"
2090 DRAW "R3BM204,35R2BM213,35R2BM241,35R1BM18,36R3BM70,36R3BM82,36R2BM102,36R8BM129,36R6BM179,36R3BM184,36R4BM204,36R2BM213,36R2BM241,36R1BM18,37R2BM71,37R2BM82,37R2BM102,37R8BM129,37R5BM178,37R9BM204,37R2BM213,37R2BM241,37R1BM17,38R2BM72,38R2BM82,38R1"
2100 DRAW "BM102,38R8BM129,38R5BM178,38R7BM204,38R2BM212,38R3BM241,38R1BM17,39R1BM73,39R2BM81,39R2BM102,39R8BM129,39R5BM178,39R5BM204,39R2BM212,39R2BM241,39R1BM16,40R2BM73,40R2BM81,40R2BM101,40R9BM129,40R4BM178,40R3BM204,40R2BM211,40R3BM240,40R2BM15,41R2"
2110 DRAW "BM74,41R2BM81,41R2BM101,41R9BM129,41R4BM178,41R3BM204,41R2BM211,41R3BM235,41R7BM15,42R2BM74,42R2BM81,42R1BM101,42R9BM129,42R3BM177,42R5BM204,42R2BM210,42R4BM234,42R7BM15,43R1BM41,43R6BM75,43R2BM81,43R1BM101,43R9BM129,43R3BM160,43R4BM177,43R6"
2120 DRAW "BM204,43R2BM210,43R4BM233,43R8BM14,44R2BM38,44R12BM75,44R2BM80,44R2BM101,44R9BM129,44R3BM156,44R12BM177,44R7BM204,44R2BM209,44R5BM233,44R5BM14,45R2BM35,45R17BM76,45R2BM80,45R2BM101,45R9BM129,45R3BM154,45R17BM177,45R7BM204,45R2BM209,45R5"
2130 DRAW "BM233,45R5BM14,46R1BM33,46R20BM76,46R2BM80,46R2BM100,46R10BM129,46R3BM153,46R20BM177,46R7BM204,46R2BM208,46R6BM233,46R4BM13,47R2BM32,47R22BM77,47R1BM80,47R1BM100,47R10BM129,47R3BM152,47R22BM177,47R7BM204,47R2BM208,47R6BM233,47R3BM13,48R2"
2140 DRAW "BM31,48R24BM77,48R4BM100,48R10BM129,48R3BM152,48R32BM204,48R10BM233,48R3BM13,49R1BM30,49R19BM51,49R5BM77,49R4BM100,49R10BM129,49R3BM151,49R33BM204,49R10BM233,49R2BM13,50R1BM29,50R19BM51,50R6BM77,50R4BM100,50R10BM129,50R3BM151,50R33BM205,50R9"
2150 DRAW "BM233,50R2BM13,51R1BM29,51R17BM51,51R7BM77,51R4BM100,51R10BM129,51R3BM151,51R33BM205,51R9BM233,51R2BM13,52R1BM28,52R17BM51,52R7BM78,52R3BM99,52R11BM129,52R3BM152,52R32BM205,52R9BM233,52R2BM13,53R1BM28,53R15BM51,53R8BM78,53R2BM99,53R11BM129,53"
2160 DRAW "R3BM152,53R32BM205,53R9BM233,53R2BM13,54R1BM27,54R14BM51,54R8BM78,54R2BM99,54R11BM129,54R3BM153,54R31BM205,54R9BM233,54R2BM13,55R1BM27,55R12BM51,55R8BM78,55R2BM99,55R11BM129,55R4BM155,55R29BM205,55R9BM233,55R2BM13,56R1BM27,56R11BM51,56R9"
2170 DRAW "BM78,56R2BM99,56R11BM129,56R4BM157,56R27BM205,56R9BM233,56R2BM13,57R2BM26,57R10BM51,57R9BM78,57R2BM99,57R11BM129,57R5BM158,57R26BM205,57R9BM233,57R2BM13,58R2BM26,58R7BM51,58R9BM78,58R2BM99,58R11BM129,58R5BM160,58R24BM205,58R9BM233,58R2BM14,59"
2180 DRAW "R2BM26,59R6BM51,59R9BM78,59R2BM98,59R12BM129,59R6BM163,59R21BM205,59R9BM233,59R2BM14,60R2BM26,60R5BM51,60R9BM78,60R1BM98,60R12BM129,60R6BM165,60R19BM205,60R9BM233,60R2BM15,61R2BM26,61R6BM51,61R9BM77,61R2BM98,61R12BM129,61R7BM167,61R17BM205,61"
2190 DRAW "R9BM233,61R2BM16,62R2BM27,62R5BM51,62R9BM77,62R2BM98,62R12BM129,62R8BM169,62R15BM205,62R9BM233,62R2BM17,63R2BM28,63R4BM51,63R9BM77,63R2BM98,63R12BM129,63R9BM170,63R14BM205,63R9BM233,63R2BM17,64R4BM28,64R4BM51,64R9BM77,64R2BM98,64R12BM129,64R10"
2200 DRAW "BM172,64R12BM205,64R9BM233,64R2BM19,65R13BM51,65R8BM77,65R2BM98,65R12BM129,65R11BM173,65R11BM205,65R9BM233,65R2BM20,66R12BM51,66R8BM76,66R3BM98,66R12BM129,66R12BM175,66R9BM205,66R9BM233,66R2BM21,67R11BM51,67R8BM76,67R3BM98,67R12BM129,67R13"
2210 DRAW "BM176,67R8BM205,67R9BM233,67R2BM21,68R11BM51,68R7BM75,68R4BM98,68R12BM129,68R15BM177,68R7BM233,68R2BM22,69R11BM51,69R7BM75,69R3BM97,69R13BM129,69R16BM178,69R6BM233,69R2BM23,70R10BM51,70R6BM74,70R4BM97,70R13BM129,70R18BM179,70R5BM233,70R2"
2220 DRAW "BM24,71R9BM51,71R5BM74,71R4BM97,71R13BM129,71R19BM180,71R4BM233,71R2BM25,72R8BM51,72R4BM73,72R5BM97,72R13BM129,72R21BM181,72R3BM233,72R2BM25,73R8BM51,73R3BM72,73R6BM97,73R13BM129,73R23BM181,73R3BM233,73R2BM26,74R7BM51,74R2BM72,74R6BM97,74R13"
2230 DRAW "BM129,74R25BM182,74R2BM233,74R2BM27,75R6BM71,75R7BM97,75R13BM129,75R26BM183,75R1BM233,75R2BM28,76R5BM71,76R7BM97,76R13BM129,76R28BM183,76R1BM233,76R2BM28,77R5BM71,77R7BM97,77R13BM129,77R30BM184,77BM233,77R2BM29,78R4BM71,78R7BM97,78R13BM129,78"
2240 DRAW "R32BM233,78R2BM30,79R3BM71,79R7BM97,79R13BM129,79R33BM233,79R2BM31,80R2BM72,80R6BM97,80R13BM129,80R34BM233,80R2BM31,81R2BM72,81R6BM97,81R13BM129,81R35BM233,81R2BM31,82R2BM72,82R6BM97,82R13BM129,82R36BM233,82R2BM31,83R2BM72,83R6BM97,83R13"
2250 DRAW "BM129,83R37BM233,83R2BM31,84R2BM72,84R6BM97,84R13BM129,84R16BM155,84R11BM233,84R2BM31,85R2BM73,85R6BM97,85R13BM129,85R13BM157,85R10BM233,85R2BM31,86R2BM73,86R6BM98,86R12BM129,86R11BM159,86R9BM206,86R8BM233,86R2BM31,87R2BM73,87R6BM98,87R12"
2260 DRAW "BM129,87R10BM160,87R8BM205,87R10BM233,87R2BM31,88R2BM73,88R6BM98,88R12BM130,88R8BM161,88R8BM205,88R10BM233,88R2BM31,89R2BM73,89R6BM98,89R12BM130,89R7BM162,89R7BM205,89R10BM233,89R2BM31,90R2BM73,90R6BM98,90R12BM130,90R6BM162,90R8BM205,90R10"
2270 DRAW "BM233,90R2BM31,91R2BM73,91R6BM98,91R12BM130,91R5BM163,91R7BM205,91R10BM233,91R2BM31,92R2BM55,92R1BM74,92R5BM99,92R11BM131,92R4BM163,92R7BM205,92R10BM233,92R2BM31,93R2BM54,93R3BM74,93R6BM99,93R12BM131,93R3BM163,93R7BM205,93R10BM233,93R2BM31,94"
2280 DRAW "R2BM52,94R5BM74,94R6BM99,94R12BM129,94R5BM163,94R8BM205,94R10BM233,94R2BM31,95R2BM52,95R5BM74,95R6BM100,95R11BM127,95R6BM164,95R7BM205,95R10BM233,95R2BM32,96R1BM51,96R6BM74,96R6BM100,96R11BM125,96R8BM151,96R3BM163,96R8BM205,96R10BM233,96R2"
2290 DRAW "BM32,97R1BM51,97R6BM75,97R6BM101,97R10BM123,97R10BM150,97R6BM163,97R8BM205,97R10BM233,97R2BM32,98R1BM51,98R6BM75,98R6BM101,98R10BM121,98R12BM149,98R7BM163,98R8BM205,98R10BM233,98R2BM32,99R1BM51,99R6BM75,99R6BM101,99R10BM119,99R14BM149,99R8"
2300 DRAW "BM162,99R9BM205,99R10BM233,99R2BM32,100R1BM51,100R6BM75,100R6BM102,100R9BM118,100R14BM148,100R9BM161,100R9BM205,100R10BM233,100R2BM32,101R1BM51,101R7BM75,101R7BM103,101R8BM116,101R16BM148,101R9BM160,101R10BM205,101R10BM233,101R2BM32,102R1"
2310 DRAW "BM51,102R7BM75,102R7BM103,102R8BM115,102R17BM148,102R9BM159,102R11BM205,102R10BM233,102R2BM32,103R1BM51,103R7BM76,103R6BM104,103R7BM113,103R19BM148,103R21BM205,103R10BM233,103R2BM32,104R1BM51,104R7BM76,104R7BM105,104R27BM148,104R21BM205,104R10"
2320 DRAW "BM233,104R2BM32,105R1BM51,105R7BM76,105R7BM106,105R26BM148,105R20BM205,105R10BM233,105R2BM32,106R1BM51,106R7BM76,106R7BM108,106R23BM149,106R19BM205,106R10BM233,106R2BM32,107R1BM51,107R7BM76,107R8BM109,107R20BM149,107R18BM205,107R10BM233,107R2"
2330 DRAW "BM32,108R1BM51,108R7BM77,108R7BM111,108R16BM150,108R16BM205,108R10BM234,108R1BM32,109R1BM51,109R7BM77,109R8BM114,109R10BM151,109R13BM205,109R10BM234,109R1BM32,110R1BM51,110R8BM77,110R8BM153,110R9BM205,110R10BM234,110R1BM32,111R1BM51,111R8"
2340 DRAW "BM77,111R9BM205,111R10BM234,111R1BM32,112R1BM51,112R8BM77,112R9BM205,112R10BM234,112R1BM32,113R1BM51,113R8BM77,113R10BM205,113R10BM234,113R1BM32,114R1BM51,114R8BM78,114R10BM185,114D21BM205,114R10BM234,114R1BM32,115R1BM51,115R8BM78,115R11"
2350 DRAW "BM184,115D24BM205,115R10BM234,115R1BM32,116R1BM51,116R8BM78,116R11BM183,116D25BM205,116R9BM234,116R1BM32,117R1BM51,117R8BM78,117R12BM182,117D27BM205,117R9BM234,117R1BM32,118R1BM51,118R9BM78,118R13BM181,118D39BM205,118R9BM234,118R1BM32,119R1"
2360 DRAW "BM51,119R9BM79,119R13BM139,119F28BM180,119D39BM186,119D9BM205,119R9BM234,119R2BM32,120R1BM51,120R9BM79,120R14BM138,120R1BM179,120D39BM205,120R9BM234,120R2BM32,121R1BM51,121R9BM79,121R15BM137,121R3BM142,121F36BM178,121D35BM205,121R8BM235,121R2"
2370 DRAW "BM32,122R1BM51,122R9BM80,122R16BM135,122R6BM176,122R1BM205,122R8BM235,122R2BM32,123R1BM51,123R9BM80,123R17BM134,123R8BM175,123R2BM205,123R7BM236,123R2BM32,124R1BM51,124R9BM81,124R18BM132,124R11BM146,124F31BM173,124R4BM205,124R7BM237,124R2"
2380 DRAW "BM32,125R1BM52,125R8BM81,125R20BM130,125R14BM148,125F29BM171,125R6BM205,125R6BM237,125R2BM32,126R1BM52,126R7BM82,126R22BM128,126R17BM150,126F27BM168,126R9BM205,126R23BM237,126R3BM32,127R1BM53,127R54BM125,127R21BM152,127R2BM165,127R12BM206,127"
2390 DRAW "R33BM32,128R1BM54,128R93BM153,128R24BM206,128R32BM32,129R1BM55,129R93BM154,129R23BM207,129R29BM31,130R2BM55,130R94BM155,130R22BM207,130R28BM31,131R2BM55,131R95BM156,131R21BM206,131R28BM31,132R2BM53,132R98BM157,132R20BM203,132R29BM31,133R2"
2400 DRAW "BM51,133R101BM158,133R19BM201,133R30BM31,134R2BM49,134R104BM159,134R18BM199,134R31BM31,135R2BM47,135R107BM160,135R17BM197,135R32BM31,136R2BM46,136R109BM161,136R16BM196,136R31BM31,137R2BM44,137R112BM162,137R15BM194,137R32BM31,138R2BM43,138R114"
2410 DRAW "BM163,138R14BM193,138R32BM31,139R1BM41,139R117BM164,139R13BM191,139R33BM30,140R2BM40,140R119BM165,140R12BM190,140R32BM30,141R2BM38,141R122BM166,141R11BM189,141R32BM30,142R1BM37,142R124BM167,142R10BM188,142R32BM29,143R2BM36,143R126BM168,143R9"
2420 DRAW "BM186,143R32BM28,144R2BM35,144R128BM169,144R8BM185,144R32BM28,145R2BM34,145R130BM170,145R7BM184,145R32BM27,146R2BM33,146R102BM139,146R26BM171,146R6BM183,146R32BM27,147R69BM98,147R36BM141,147R25BM172,147R5BM182,147R31BM28,148R68BM99,148R33"
2430 DRAW "BM142,148R25BM173,148R4BM182,148R30BM29,149R68BM101,149R30BM143,149R22BM169,149F9BM174,149R3BM182,149R29BM31,150R65BM103,150R26BM145,150R19BM169,150F9BM175,150R2BM182,150R9BM33,151R45BM106,151R20BM147,151R15BM169,151F8BM176,151R1BM182,151R8"
2440 DRAW "BM35,152R43BM110,152R12BM150,152R8BM169,152F8BM177,152BM182,152R7BM36,153R41BM169,153F7BM182,153R6BM38,154R37BM169,154F7BM182,154R4BM40,155R33BM169,155F6BM182,155R3BM41,156R30BM169,156F6BM182,156R1BM43,157R26BM168,157R1BM182,157BM44,158R24"
2450 DRAW "BM168,158R2BM46,159R20BM168,159R3BM48,160R17BM167,160R5BM49,161R14BM167,161R6BM51,162R11BM167,162R7BM53,163R8BM166,163R7BM55,164R5BM165,164R7BM56,165R3BM165,165R6BM164,166R6BM164,167R5BM164,168R4"
3000 ' ---------------------
3100 ' Returns after drawing
3200 ' ---------------------
3300 RETURN ' Draws the image
3400 END