Category : BASIC Source Code
Archive   : ASICIDEA.ZIP
Filename : DRAWING.ASI

REM ASIC Demo showing how to make lines
REM Waymon G. Burns
REM 701 Waverly Road
REM Thibodaux, La. 70301
REM Needs a little more work but gives idea

Begin:
Screen 0
Locate 10,25
Print"<1> Make a Box"
Locate 11,25
Print"<2> Draw straight Line"
Locate 12,25
Print"<3> End the Program"
Locate 14,25
Print"Select < 1 - 3 >";
Input Choice

If Choice=1 then
Gosub MakeBox:
Gosub WaitKey:
Goto Begin:
Endif

If Choice=2 then
Gosub DrawLine:
Gosub WaitKey:
Goto Begin:
Endif

If Choice=3 then
Goto EndProgram:
Endif

If Choice<1 then
Goto Begin:
Endif

If Choice=3 then
Goto EndProgram:
Endif

Goto Begin:

MakeBox:
REM ***** Below is EGA Resolution - Change for other Screen Modes
Screen 9
CLS
REM Make a box - Supply your own Positions below in place of Input Statements
Print"What is First Horizontal Pixel Position";
Input FHP
REM **** Set below to 319 for Screen 1 and 13
if FHP>639 then
Beep
Goto MakeBox:
Endif
Print"What is First Vertical Pixel Position";
Input FVP
REM **** Set below to 199 for CGA Mode or 399 For VGA Mode
if FVP>349 then
Beep
Goto MakeBox:
Endif

Print "What is Second Horizontal Pixel Position";
Input SHP
if SHP>639 then
Beep
Goto MakeBox:
Endif

Print "What is Second Vertical Pixel Position";
Input SVP
if SVP>349 then
Beep
Goto MakeBox:
Endif
Screen 9
for X=FHP to SHP
pset (FVP,X),1
pset (SVP,X),1
next X

for X=FVP to SVP
pset(X,FHP),1
pset (X,SHP),1
next X

Return

DrawLine:
Screen 0
CLS
REM Draw Line - Supply your own Positions below in place of Input Statements
Print"What is First Horizontal Pixel Position";
Input FHP
if FHP>639 then
Beep
Goto DrawLine:
Endif
Print"What is First Vertical Pixel Position";
Input FVP
if FVP>349 then
Beep
Goto DrawLine:
Endif

Print "What is Second Horizontal Pixel Position";
Input SHP
if SHP>639 then
Beep
Goto DrawLine:
Endif

Print "What is Second Vertical Pixel Position";
Input SVP
if SVP>349 then
Beep
Goto DrawLine:
Endif

Screen 9
Locate 12,20
Print FVP;
Print FHP;
Print SVP;
Print SHP
if FVP=SVP then
For X=FHP to SHP
Pset(FVP,X),1
Next X
Return
Endif

if FHP=SHP then
For X=FVP to SVP
Pset(X,FVP),1
Next X
Return
Endif

For X=FVP to SVP

XY=SHP/SVP
Locate 10,20
Print XY
if XY=8 then
pset(X,Y),1
Y=Y+1
pset(X,Y),1
Y=Y+1
pset(X,Y),1
Y=Y+1
pset(X,Y),1
Y=Y+1
pset(X,Y),1
Y=Y+1
pset(X,Y),1
Y=Y+1
pset(X,Y),1
Y=Y+1
pset(X,Y),1
Y=Y+1
Endif
if XY=7 then
pset(X,Y),1
Y=Y+1
pset(X,Y),1
Y=Y+1
pset(X,Y),1
Y=Y+1
pset(X,Y),1
Y=Y+1
pset(X,Y),1
Y=Y+1
pset(X,Y),1
Y=Y+1
pset(X,Y),1
Y=Y+1
Endif
if XY=6 then
pset(X,Y),1
Y=Y+1
pset(X,Y),1
Y=Y+1
pset(X,Y),1
Y=Y+1
pset(X,Y),1
Y=Y+1
pset(X,Y),1
Y=Y+1
pset(X,Y),1
Y=Y+1
Endif
if XY=5 then
pset(X,Y),1
Y=Y+1
pset(X,Y),1
Y=Y+1
pset(X,Y),1
Y=Y+1
pset(X,Y),1
Y=Y+1
pset(X,Y),1
Y=Y+1
Endif
if XY=4 then
pset(X,Y),1
Y=Y+1
pset(X,Y),1
Y=Y+1
pset(X,Y),1
Y=Y+1
pset(X,Y),1
Y=Y+1
Endif
if XY=3 then
pset(X,Y),1
Y=Y+1
pset(X,Y),1
Y=Y+1
pset(X,Y),1
Y=Y+1
Endif
if XY=2 then
pset(X,Y),1
Y=Y+1
pset(X,Y),1
Y=Y+1
Endif
if XY<2 then
pset(X,Y),1
Y=Y+1
Endif

next X
Return

WaitKey:
an$=inkey$
if an$="" then
goto Waitkey:
Endif
Return

EndProgram:
Screen 0