GIF89a; %PDF-1.5 %���� ºaâÚÎΞ-ÌE1ÍØÄ÷{òò2ÿ ÛÖ^ÔÀá TÎ{¦?§®¥kuµù Õ5sLOšuY Donat Was Here
DonatShell
Server IP : 134.29.175.74  /  Your IP : 216.73.216.160
Web Server : nginx/1.10.2
System : Windows NT CST-WEBSERVER 10.0 build 19045 (Windows 10) i586
User : Administrator ( 0)
PHP Version : 7.1.0
Disable Function : NONE
MySQL : OFF  |  cURL : ON  |  WGET : OFF  |  Perl : OFF  |  Python : OFF  |  Sudo : OFF  |  Pkexec : OFF
Directory :  C:/nginx/html/JimMartinson/_Archive/CST1794/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :

[ HOME SHELL ]     

Current File : C:/nginx/html/JimMartinson/_Archive/CST1794/Lab15.bas
nomainwin

WindowWidth = 500
WindowHeight = 500

open "Lab15" for graphics as #graphWin
print #graphWin ,"backcolor blue"
print #graphWin ,"horizscrollbar off"
print #graphWin ,"vertscrollbar off"
print #graphWin ,"fill blue"
print #graphWin ,"FLUSH"
print #graphWin, "trapclose [quit]"

print #graphWin ,"HOME"
print #graphWin ,"posxy xVar yVar"

call DrawStar xVar-100, yVar+15, 100, "yellow", "yellow" 'left
call DrawStar xVar+100, yVar+15, 100, "yellow", "yellow" 'right
call DrawStar xVar, yVar-100, 200, "yellow", "yellow" 'top
call DrawStar xVar, yVar+100, 200, "yellow", "yellow" 'bottom

print #graphWin ,"home; north; up; turn 270; go 100; turn 270; go 15; size 1; color black; down; circle 3" 'left
print #graphWin ,"home; north; up; turn 180; go 100; size 1; color black; down; circle 3" 'down
print #graphWin ,"home; north; up; go 100; size 1; color black; down; circle 3" 'top
print #graphWin ,"home; north; up; turn 90; go 100; turn 90; go 15; size 1; color black; down; circle 3" 'right
print #graphWin ,"flush"
WAIT

sub DrawStar X, Y, size, outsideColor$, insideColor$
'Star
print #graphWin ,"SIZE 1; Color ";outsideColor$
'for newSize = size to 1 step -1
for newSize = 1 to size
if newSize = int(size/2) then print #graphWin ,"Color ";insideColor$
print #graphWin , "UP"
print #graphWin ,"HOME"
print #graphWin ,"goto ";X;" ";Y
print #graphWin ,"NORTH"
print #graphWin ,"TURN 72"
print #graphWin ,"GO ";newSize *.52573
print #graphWin ,"DOWN"
print #graphWin ,"NORTH"
print #graphWin ,"TURN 270"
print #graphWin ,"GO ";newSize
print #graphWin ,"TURN 216"
print #graphWin ,"GO ";newSize
print #graphWin ,"TURN 216"
print #graphWin ,"GO ";newSize
print #graphWin ,"TURN 216"
print #graphWin ,"GO ";newSize
print #graphWin ,"TURN 216"
print #graphWin ,"GO ";newSize
for i = 1 to 500
next i
next newSize
print #graphWin ,"flush"
end sub

[quit]
CONFIRM "quit?"; quit$
if quit$ = "no" then WAIT
close #graphWin
end

Anon7 - 2022
AnonSec Team