https://www.jpsdomain.org/tags/move-to-github/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/source/index.html Mon, 01 Jan 0001 00:00:00 +0000 https://www.jpsdomain.org/source/index.html Old Content This content is old! It’s still useful, but it’s old, and there may be bit rot, newer/better tools or ways to do things. Sanity check and do your research. Source Code I plan to move all of this to https://github.com/vossenjp/ at some point… Batch Files See my Windows Shell Scripting page.