Rare IBM Book

Software related questions

Rare IBM Book

Postby PNKlett » Fri Jun 10, 2016 2:48 pm

Hi Guys, If you like typing Basic code, then you'll like this .pdf.
"Program your IBM PC to program itself!"
http://www.filedropper.com/davidbusch-p ... gramitself
I'd upload it , but I'm having a problem doing so.

Paul
PNKlett
 
Posts: 28
Joined: Fri Oct 26, 2012 6:09 am

Re: Rare IBM Book

Postby Trixter » Fri Jun 10, 2016 2:51 pm

If you upload it via anonymous FTP to ftp://ftp.oldskool.org in the /incoming directory, I can make it public for everyone. Sounds like a fun read.

I have a lot of PCjr books I need to scan+OCR; I just need to buy a book binder cutter.
You're all insane and trying to steal my magic bag!
Trixter
 
Posts: 495
Joined: Mon Sep 01, 2008 12:00 am
Location: Illinois, USA

Re: Rare IBM Book

Postby PNKlett » Fri Jun 10, 2016 6:10 pm

Hi, I tried uploading to the post, but I had trouble with the web site. And yes, I have the .pdf and would love to make it available to everyone.
How would I do that? Thanks.


Paul

Never mind, I uploaded it with Filezilla. I haven't did anything like this in a long time. Temporary Madness!! :D
PNKlett
 
Posts: 28
Joined: Fri Oct 26, 2012 6:09 am

Re: Rare IBM Book

Postby Trixter » Fri Jun 10, 2016 7:48 pm

Thanks! I moved it to:

ftp://ftp.oldskool.org/pub/misc/Softwar ... itself.pdf

I also ran OCR against the PDF, so you can now search inside the PDF for any search text.
You're all insane and trying to steal my magic bag!
Trixter
 
Posts: 495
Joined: Mon Sep 01, 2008 12:00 am
Location: Illinois, USA

Re: Rare IBM Book

Postby MikeModified » Fri Jun 10, 2016 8:24 pm

Cool! No typing, just some "typo" hunting.

Code: Select all
485 ' *** Print out Results ***
490 CLS:PRINT:PRINT
500 PRINT TAB(23)"NUMBER OF WORDS =",CU
510 PRINT
520 AW=CHAR/CU
530 PRINT TAB(2l)"AVERAGE WORD LENGTH -• AW
540 PRINT - 1
550 SW=CHAR/5
560 PRINT TAB(l7)"NO. OF FIVE-CHARACTER WORDS =•,sw 570 CLOSE
575 ' *** Run again? ***
580 PRINT:PRINT
590 PRINT TABC22)"Check another file?•
600 LOCATE 15,30
610 COLOR 16,7
620 PRINT" Y/N ?"
630 COLOR 7,0
640 A$=INKEY$:IF A$=•• GOTO 640
650 IF A$="Y• OR A$=•y• THEN RUN
660 CLOSE
670 CLS
680 END


Thanks to both of you!

Mike
MikeModified
 
Posts: 118
Joined: Sat Mar 15, 2014 5:10 pm
Location: Portland, OR


Return to PCjr Software

Who is online

Users browsing this forum: No registered users and 1 guest