https://www.jpsdomain.org/tags/source_code/index.html Hugo en-us https://www.jpsdomain.org/source/blacksrc/index.html Mon, 01 Jan 0001 00:00:00 +0000 https://www.jpsdomain.org/source/blacksrc/index.html Description Programs to print a BLACK page to an HP LaserJet. I plan to move this to https://github.com/vossenjp/ at some point… C Source #include <stdio.h> /* Program to print a BLACK page to an HP LaserJet */ main() { /* begin of main */ printf("\n\n\nBlack PC Computing October 1991"); printf("\n\nNow printing black page...\n"); fprintf(stdprn,"%c%s",'\33',"&l0E"); fprintf(stdprn,"%c%s",'\33',"&l0L"); fprintf(stdprn,"%c%s",'\33',"*p0x0Y"); fprintf(stdprn,"%c%s",'\33',"*c2400a3300B"); fprintf(stdprn,"%c%s",'\33',"*c0P"); fprintf(stdprn,"%c%s",'\33',"E"); } /* end of main */ BASIC Source 10 REM Program to print a BLACK page on an HP LaserJet 20 PRINT : PRINT : PRINT "BLACK PC Computing October 1991" 30 PRINT : PRINT "Now printing Black page..." 40 OPEN "lpt1" FOR OUTPUT AS #1 50 PRINT #1, CHR$(27) + "&l0E" 60 PRINT #1, CHR$(27) + "&l0L" 70 PRINT #1, CHR$(27) + "*p0x0Y" 80 PRINT #1, CHR$(27) + "*c2400a3300B" 90 PRINT #1, CHR$(27) + "*c0P" 100 PRINT #1, CHR$(27) + "E" 110 CLOSE #1 https://www.jpsdomain.org/source/perl/index.html Mon, 01 Jan 0001 00:00:00 +0000 https://www.jpsdomain.org/source/perl/index.html Description I plan to move all of this to https://github.com/vossenjp/ at some point… When saving, rename from *.pl.txt to *.pl or whatever you use for Perl. If using on Unix, you may need to convert CRLF to LF, and modify the “shebang” line (e.g. #!/usr/local/bin). “CleanUp” can fix the line termination. Or find a good dos2unix and unix2dos program like those found in the UNXUtils. https://www.jpsdomain.org/source/rebt-src/index.html Mon, 01 Jan 0001 00:00:00 +0000 https://www.jpsdomain.org/source/rebt-src/index.html Source Source Code for programs that reboot your PC. I plan to move this to https://github.com/vossenjp/ at some point… Reboot.c #define MAGIC 0 /* for cold restart */ /* #define MAGIC 0x1234 /* for warm restart */ #define BOOT_SEG 0xffffL #define BOOT_OFF 0x0000L #define BOOT_ADR ((BOOT_SEG << 16) | BOOT_OFF) #define DOS_SEG 0x0040L #define RESET_FLAG 0x0072L #define RESET_ADR ((DOS_SEG << 16) | RESET_FLAG) main() { void ((far *fp)()) = (void (far *)()) BOOT_ADR; *(int far *)RESET_ADR = MAGIC; (*fp)(); return 0; /* never gets here, but keeps compiler happy */ } Reboot.bas REM From PC Mag, Vol11 Number 5 DECLARE SUB ReBoot (Warm%) CALL ReBoot(1) 'be sure to save this program before running it! SUB ReBoot (Warm%) STATIC IF Warm% THEN 'if they want a warm boot DEF SEG = 0 'assign the value 1234 Hex POKE &H473, &H12 'to address 0000:0473 Hex POKE &H472, &H34 END IF DEF SEG = &HFFFF 'either way call the BIOS CALL Absolute(0) 'routine at FFFF:0000 Hex END SUB Assembly To use these “scripts” cut&paste the source into a file, then issue the following command “debug < cldboot.scr”. https://www.jpsdomain.org/windows/winlogcheck/index.html Mon, 01 Jan 0001 00:00:00 +0000 https://www.jpsdomain.org/windows/winlogcheck/index.html Obsolete Content This content is obsolete, but I am leaving it here as a historical reference. Introduction Welcome to the Windows port of Logcheck (now called LogSentry), the famous UNIX log processing tool. Psionic was bought by Cisco who has moved the cool Abacus tools, including LogSentry, to http://sourceforge.net/projects/sentrytools/ As you probably know if you are bothering to read this, LogSentry helps spot problems and security violations in your logfiles automatically and will send the results to you in e-mail. However, it can only work with what it’s given. I personally find the Windows Event Logs to be verbose, yet un-informative. So when you get e-mailed messages with three or 4 lines on arcane gibberish, remember that it’s the same information as you would see in the Event Log, except it’s in a slightly different format, and you are actually SEEING it! (Of course, you would have reviewed the Event Logs anyway, right?) :-)