home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Club Amiga de Montreal - CAM
/
CAM_CD_1.iso
/
files
/
103.lha
/
Spawn
/
b.c
< prev
next >
Wrap
C/C++ Source or Header
|
1986-11-21
|
724b
|
45 lines
#include <libraries/dos.h>
#include <functions.h>
#include <stdio.h>
void *ArpBase;
main(argc,argv)
char **argv;
{
char b[128];
FILE *f;
BPTR lock = Lock("");
int i;
ArpBase = OpenLibrary ("arp.library",0L);
if (f = fopen ("con:0/0/600/150/dumbo","w+")) {
if (ArpBase) {
PathName (lock,b,(long)sizeof b / 32);
fprintf (f,"current directory = %s\n\n",b);
}
fprintf (f,"args:\n");
for (i=0; i<argc; i++) {
fprintf (f," %d: \"%s\"\n",i,argv[i]);
}
fprintf (f,"\nPress RETURN to exit.\n");
getc(f);
}
if (lock) UnLock(lock);
if (ArpBase) CloseLibrary (ArpBase);
}
#asm
_PathName
movem.l 4(sp),d0/a0
move.l 12(sp),d1
move.l _ArpBase,a6
jmp -330(a6)
#endasm