home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC Electronics for your PC
/
pcelectronics.bin
/
Elec_dos
/
DCSOLVE
/
DC.BAS
(
.txt
)
< prev
next >
Wrap
QuickBASIC Tokenized Source
|
1991-01-01
|
11KB
|
215 lines
BlockSize^
ColorChk
GetBackground
GetForeground
GetString`
leftColf
strLen
foreColor
backColor
GetVideoSegment
MakeMenu(
choice
numOfChoicesN
justify
leftColumnz
rightColumn
marker
SubMenu
currentMenux
ScreenBlank
delay
Banner
BlockRestore
scrArray
segmentk
BlockSaveI
BuildScreen
fileP
mode7
CENTER+
CLRSCR:
fillChar
DisplayEntry
entry_
actionCode
GetScreen
PutScreen
MakeWindow-
topRowD
botRow
rightCol
windowType
frameType
shadowColor-
explodeType
label8
MultiMenu
menusArrayr
numEntriesR
menuTitles
shadowCode=
menuSelectedj
menuEntrySelected
OffCenterD
QBPrint
SCRNRESTORE
firstLine
lastLine
SCRNSAVE2
WipeS
bottom
rghtw
FALSEl
TRUEm
LEFTARROWCODE
RIGHTARROWCODE
tempg
bannerFlag'
offset
sArrays
vidSeg
xOffSet5
yOffSet
topOffSet
botOffSet
screenGrid!
validBlock
adapter0
step1L
enter
backSpace
errorTonek
charCount-
homeT
pgUp)
pgDnv
charID
choiceLen0
currentLocation
exitCode
validEntry
part1
part2
numLines
verY
lbrB
hor1@
htt1H
explodeStepL
tempHOR
TopHalf
expX1
expX2
expY1
expY2r
sideShadow
botShadow
leftArrowl
rightArrow
downArrow
homeKey
endKeyr
numMenus
colCount
oldMenu
done>
longestEntryE
blockArray
blinkingFore
attribute"
stPosn
blankCount`
BounceMessage
xCoord
yCoord
STARTW
length+
CHOICES
QUITQ
MovingMessage1
bigPausex
littlePauseJ
under
overb
kolor0
Pausen
ICOLOR
MOVING
TD.X1u
TD.Y1w
TITLE
TD.WDTH
TD.BLK
TD.BNK<
TD.Ch
TD.SH
TD.Vv
FORX%
DRAWBOX
PASSP
OCATE{
STEP2Z
SS.74
EXPERIENCEL
NUMBER
PRACTICE
EXERCISES
SHORT
PERIOD
TIME.
PROGRAMS
REQUIRE
SPECIAL
COMPUTER
KNOWLEDGE
SIMPLY
FOLLOW
DIRECTIONS
VARIOUS
%%I;%%FFONT1.;%%R3001,3026;"
%%N3001,65,26;m
%%W999;"
%%S2.5,2.9;"
%%M50,65;"
%%M205,65;m
CIRCUITS
THIS DISKETTE CONTAINS 10 PROGRAMS THAT WERE DEVELOPED AS A PROBLEM"
SOLVING GUIDE FOR STUDENTS ENROLLED IN A DC CIRCUITS COURSE. EACH UNIT
CONTAINS PRACTICAL EXAMPLES WHICH REQUIRE THE USER TO ENTER AN UNKNOWN
VIA THE KEYBOARD. SINCE THE COMPUTER DOES MOST OF THE COMPUTATIONS, THE"
STUDENT CAN EXPERIENCE A NUMBER OF PRACTICE EXERCISES IN A SHORT PERIOD"
OF TIME.
USING THE VARIOUS PROGRAMS DOES NOT REQUIRE ANY SPECIAL COMPUTER
KNOWLEDGE, SIMPLY FOLLOW THE DIRECTIONS ON THE SCREEN.
CHARLES A. MORANO"
PRESS ANY KEY TO CONTINUE"
BASIC ELECTRICAL CONCEPTS"d
ELECTRICAL UNIT CONVERSIONS"d
RESISTOR COLOR CODE"d
WIRE RESISTANCE"d!
READING METERSd
OHMS LAWd
POWER AND ENERGYd
SERIES DC CIRCUITSd
PARALLEL CIRCUITS"d%
SERIES - PARALLEL CIRCUITSd)
EXIT PROGRAMe
BEC"d
EUC"d
COLORCODd
DCMETER"d
OHMSLAW"d
POWER"d
SERDC"d
WIREd!
PARDC"d%
SEPAd)
TYPE NUMBER OF YOUR CHOICE -- PRESS ENTER "
Start of code
IFSMWRNC
ifsmwrnc
C1bm="
C1bm="
OUND KS, .9: KS = KS + 100