Rare IBM Book

Software related questions
Post Reply
PNKlett
Posts: 50
Joined: Fri Oct 26, 2012 6:09 am

Rare IBM Book

Post by PNKlett »

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
Trixter
Posts: 720
Joined: Mon Sep 01, 2008 12:00 am
Location: Illinois, USA
Contact:

Re: Rare IBM Book

Post by Trixter »

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!
PNKlett
Posts: 50
Joined: Fri Oct 26, 2012 6:09 am

Re: Rare IBM Book

Post by PNKlett »

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
Trixter
Posts: 720
Joined: Mon Sep 01, 2008 12:00 am
Location: Illinois, USA
Contact:

Re: Rare IBM Book

Post by Trixter »

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!
MikeModified
Posts: 136
Joined: Sat Mar 15, 2014 5:10 pm
Location: Portland, OR

Re: Rare IBM Book

Post by MikeModified »

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
Post Reply