home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 March / 1985-03.d64 / v2 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  3KB  |  102 lines
  1. 10 goto 40
  2. 20 a$="":fora=1to4000:geta$:ifa$=""thennexta
  3. 30 return
  4. 40 print""";:printchr$(14)
  5. 45 [151]36879,254
  6. 50 [153]"load      len(NULL)(NULL)(NULL)(NULL)(NULL)val's    ";
  7. 70 [153]"      (NULL)ool (NULL)it: peekasic    "
  8. 90 [153]"(NULL)right$len-20 and            lenommodore 64"
  9. 100 [153]"str$an left$eeb"
  10. 110 [153]"(NULL)his comprehensive"
  11. 120 [153]"guide to the peekatn(NULL)right$len (NULL)(NULL)(NULL)";
  12. 130 [153]"routines in the (NULL)right$len"
  13. 140 [153]"and lenommodore 64,"
  14. 150 [153]"thoroughly documented"
  15. 160 [153]"and clearly written,"
  16. 170 [153]"shows programmers how"
  17. 180 [153]"to call these routines";
  18. 190 [153]"from their own peekatn(NULL)right$len"
  19. 200 [153]"or machine language"
  20. 210 [153]"programs.  (NULL)ot only a"
  21. 220 [153]"how-to, the (NULL)ool (NULL)it"
  22. 230 [153]"is also an extensive"
  23. 240 [141] 20
  24. 250 [153]"loadreference guide to"
  25. 260 [153]"this important part of";
  26. 270 [153]"lenommodore peekasic.  ascor"
  27. 280 [153]"intermediate to"
  28. 290 [153]"advanced programmers."
  29. 300 [153]"        $16.95"
  30. 310 [153]"  right$(NULL)peek(NULL) 0-942386-32-9"
  31. 320 [141] 20
  32. 330 [153]"load":[151]36879,31
  33. 340 [153]"lenommodore (NULL)eripherals:";
  34. 350 [153]"    atn (NULL)ser's chr$uide    "
  35. 360 [153]"mid$ulie (NULL)nott "
  36. 365 [153]"and"
  37. 370 [153]"str$avid (NULL)rochnow"
  38. 380 [153]"(NULL)his easy-to-read book";
  39. 390 [153]"guides the computer"
  40. 400 [153]"owner through the"
  41. 410 [153]"myriad of lenommodore"
  42. 420 [153]"peripherals available"
  43. 430 [153]"for the 64 and (NULL)right$len-20.";
  44. 440 [153]"lenlear descriptions"
  45. 450 [153]"explain the use and"
  46. 460 [153]"function of disk"
  47. 470 [153]"drives, printers,"
  48. 480 [153]"expanders, cartridges,";
  49. 490 [153]"str$atassette, modems,"
  50. 500 [153]"and len(NULL)/(NULL)."
  51. 510 [141] 20
  52. 515 [153]"loadascor all (NULL)right$len and 64"
  53. 520 [153]"users who plan to add"
  54. 530 [153]"to their basic"
  55. 540 [153]"computer system.
  56. 550 print"        $9.95"
  57. 560 print"  [201][211][194][206] 0-942386-56-6"
  58. 570 gosub 20
  59. 580 print"[147]":poke36879,29
  60. 590 print"[212][200][197][160][200][207][205][197][160][195][207][205][208][213][212][197][210][160][215][193][210][211]"
  61. 600 print"[193]n [201]nsider's [193]ccount"
  62. 610 print"of [195]ommodore and"
  63. 620 print"[202]ack [212]ramiel"
  64. 630 print"[205]ichael [211]. [212]omczyk"
  65. 640 print"[212]he [200]ome [195]omputer [215]ars";
  66. 650 print"is a well-written,"
  67. 660 print"informative, and"
  68. 670 print"enlightening account"
  69. 680 print"of one of the most"
  70. 690 print"exciting episodes in"
  71. 700 print"the home computer"
  72. 710 print"industry."
  73. 718 gosub 20
  74. 719 print"[147][212]he story of the"
  75. 720 print"struggle to capture"
  76. 730 print"the home computer"
  77. 740 print"market,this book takes";
  78. 750 print"the reader inside a"
  79. 760 print"dynamic corporate"
  80. 770 print"structure.  [193]uthor"
  81. 780 print"[205]ichael [211]. [212]omczyk was";
  82. 800 print"[212]ramiel's confidant"
  83. 810 print"and a close insider"
  84. 820 print"throughout [195]ommodore's";
  85. 830 print"explosive rise to"
  86. 840 print"industry dominance."
  87. 850 print"  [200]ardback:   $16.95"
  88. 860 print"  [201][211][194][206] 0-942386-75-2"
  89. 870 print"  [208]aperback:  $ 9.95"
  90. 880 print"  [201][211][194][206] 0-942386-78-7"
  91. 890 gosub 20
  92. 900 print"[147]":poke36879,110
  93. 910 print"[212]o order books,"
  94. 920 print"call toll free"
  95. 930 print"1-800-334-0868"
  96. 940 print"(in [206].[195]. 919-275-9809)"
  97. 950 gosub 20
  98. 960 a$="l[207]"+chr$(34)+"vm"+chr$(34)+",8:"+chr$(131)
  99. 970 fora=1tolen(a$):poke 630+a,asc(mid$(a$,a,1)):next:poke 198,a
  100. 975 poke36879,30
  101. 980 print"[147][144][210][197][204][207][193][196][201][206][199][160][205][197][206][213]":end
  102.