home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 17
/
CD_ASCQ_17_101194.iso
/
vrac
/
macman50.zip
/
VB.MAC
< prev
next >
Wrap
Text File
|
1994-06-17
|
497b
|
27 lines
{*open for binary}on error goto fileopenerror:~open filename for binary as #1~
{*Select case}
{*often used DIM statement}dim x as integer~dim y as integer~dim temp as string~
{*False}False
{*integer}integer
{*For/Next loop}for x = 1 to {PAUSE}~~next x{UP}
{*if/then/else}if {PAUSE} then~ ~else~ ~end if{UP 3}
{*open for output}on error goto fileopenerror:~open filename for output as #1~
{*put #1}put #1, ,
{*Step 10 while debugging}{F8 10}
{*True}True