10 GOTO 40
20 A$="":FORA=1TO4000:GETA$:IFA$=""THENNEXTA
30 RETURN
40 PRINT""";:PRINTCHR$(14)
45 [151]36879,254
50 [153]"LOAD      LEN(null)(null)(null)(null)(null)VAL'S    ";
70 [153]"      (null)OOL (null)IT: PEEKASIC    "
90 [153]"(null)RIGHT$LEN-20 AND            LENOMMODORE 64"
100 [153]"STR$AN LEFT$EEB"
110 [153]"(null)HIS COMPREHENSIVE"
120 [153]"GUIDE TO THE PEEKATN(null)RIGHT$LEN (null)(null)(null)";
130 [153]"ROUTINES IN THE (null)RIGHT$LEN"
140 [153]"AND LENOMMODORE 64,"
150 [153]"THOROUGHLY DOCUMENTED"
160 [153]"AND CLEARLY WRITTEN,"
170 [153]"SHOWS PROGRAMMERS HOW"
180 [153]"TO CALL THESE ROUTINES";
190 [153]"FROM THEIR OWN PEEKATN(null)RIGHT$LEN"
200 [153]"OR MACHINE LANGUAGE"
210 [153]"PROGRAMS.  (null)OT ONLY A"
220 [153]"HOW-TO, THE (null)OOL (null)IT"
230 [153]"IS ALSO AN EXTENSIVE"
240 [141] 20
250 [153]"LOADREFERENCE GUIDE TO"
260 [153]"THIS IMPORTANT PART OF";
270 [153]"LENOMMODORE PEEKASIC.  ASCOR"
280 [153]"INTERMEDIATE TO"
290 [153]"ADVANCED PROGRAMMERS."
300 [153]"        $16.95"
310 [153]"  RIGHT$(null)PEEK(null) 0-942386-32-9"
320 [141] 20
330 [153]"LOAD":[151]36879,31
340 [153]"LENOMMODORE (null)ERIPHERALS:";
350 [153]"    ATN (null)SER'S CHR$UIDE    "
360 [153]"MID$ULIE (null)NOTT "
365 [153]"AND"
370 [153]"STR$AVID (null)ROCHNOW"
380 [153]"(null)HIS EASY-TO-READ BOOK";
390 [153]"GUIDES THE COMPUTER"
400 [153]"OWNER THROUGH THE"
410 [153]"MYRIAD OF LENOMMODORE"
420 [153]"PERIPHERALS AVAILABLE"
430 [153]"FOR THE 64 AND (null)RIGHT$LEN-20.";
440 [153]"LENLEAR DESCRIPTIONS"
450 [153]"EXPLAIN THE USE AND"
460 [153]"FUNCTION OF DISK"
470 [153]"DRIVES, PRINTERS,"
480 [153]"EXPANDERS, CARTRIDGES,";
490 [153]"STR$ATASSETTE, MODEMS,"
500 [153]"AND LEN(null)/(null)."
510 [141] 20
515 [153]"LOADASCOR ALL (null)RIGHT$LEN AND 64"
520 [153]"USERS WHO PLAN TO ADD"
530 [153]"TO THEIR BASIC"
540 [153]"COMPUTER SYSTEM.
550 PRINT"        $9.95"
560 PRINT"  [201][211][194][206] 0-942386-56-6"
570 GOSUB 20
580 PRINT"[147]":POKE36879,29
590 PRINT"[212][200][197][160][200][207][205][197][160][195][207][205][208][213][212][197][210][160][215][193][210][211]"
600 PRINT"[193]N [201]NSIDER'S [193]CCOUNT"
610 PRINT"OF [195]OMMODORE AND"
620 PRINT"[202]ACK [212]RAMIEL"
630 PRINT"[205]ICHAEL [211]. [212]OMCZYK"
640 PRINT"[212]HE [200]OME [195]OMPUTER [215]ARS";
650 PRINT"IS A WELL-WRITTEN,"
660 PRINT"INFORMATIVE, AND"
670 PRINT"ENLIGHTENING ACCOUNT"
680 PRINT"OF ONE OF THE MOST"
690 PRINT"EXCITING EPISODES IN"
700 PRINT"THE HOME COMPUTER"
710 PRINT"INDUSTRY."
718 GOSUB 20
719 PRINT"[147][212]HE STORY OF THE"
720 PRINT"STRUGGLE TO CAPTURE"
730 PRINT"THE HOME COMPUTER"
740 PRINT"MARKET,THIS BOOK TAKES";
750 PRINT"THE READER INSIDE A"
760 PRINT"DYNAMIC CORPORATE"
770 PRINT"STRUCTURE.  [193]UTHOR"
780 PRINT"[205]ICHAEL [211]. [212]OMCZYK WAS";
800 PRINT"[212]RAMIEL'S CONFIDANT"
810 PRINT"AND A CLOSE INSIDER"
820 PRINT"THROUGHOUT [195]OMMODORE'S";
830 PRINT"EXPLOSIVE RISE TO"
840 PRINT"INDUSTRY DOMINANCE."
850 PRINT"  [200]ARDBACK:   $16.95"
860 PRINT"  [201][211][194][206] 0-942386-75-2"
870 PRINT"  [208]APERBACK:  $ 9.95"
880 PRINT"  [201][211][194][206] 0-942386-78-7"
890 GOSUB 20
900 PRINT"[147]":POKE36879,110
910 PRINT"[212]O ORDER BOOKS,"
920 PRINT"CALL TOLL FREE"
930 PRINT"1-800-334-0868"
940 PRINT"(IN [206].[195]. 919-275-9809)"
950 GOSUB 20
960 A$="L[207]"+CHR$(34)+"VM"+CHR$(34)+",8:"+CHR$(131)
970 FORA=1TOLEN(A$):POKE 630+A,ASC(MID$(A$,A,1)):NEXT:POKE 198,A
975 POKE36879,30
980 PRINT"[147][144][210][197][204][207][193][196][201][206][199][160][205][197][206][213]":END