home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Demos / ULTIMATE-WP (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  4KB  |  91 lines
  1. 0 REM     WORD PROCESSOR PLAQUE....               -------------------------
  2. 1 REM     INSPIRED BY A PLAQUE                 MADE BY HECTOR SANCHEZ 1984
  3. 2 :
  4. 3 REM  BROUGHT TO THE C-64 BY JIM GREEN.
  5. 20 POKE53280,2:POKE53281,2:POKE53265,11
  6. 25 PRINT"[147][144][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  7. 30 PRINT"[221]    [158][215][207][210][196][160][208][210][207][195][197][211][211][207][210] [197][216][212][210][193][207][210][196][201][206][193][201][210][197]!    [144][221]";
  8. 35 PRINT"[221]                                      [221]";
  9. 40 PRINT"[221]    [153][208]RESENTING THE EARLIEST OF THE    [144][221]";
  10. 45 PRINT"[221]         [153][208]ERSONAL [195]OMPUTERS....       [144][221]";
  11. 50 PRINT"[221]                                      [221]";
  12. 55 PRINT"[221] [153][206]O REPAIR MAN NEEDED. [201]T'S THE       [144][221]";
  13. 60 PRINT"[221] [153][204].[197].[193].[196]. 2.5 AND IT COMBINES ALL THE [144][221]";
  14. 65 PRINT"[221] [153]FEATURES ANYONE COULD EVER WANT IN A [144][221]";
  15. 70 PRINT"[221] [153]PERSONAL COMPUTER. [201]T'S VERSATILE,   [144][221]";
  16. 75 PRINT"[221] [153]COMPACT, PORTABLE, RELIABLE, EASY-TO [144][221]";
  17. 80 PRINT"[221] [153]-OPERATE, A SNAP TO MAINTAIN AND IS  [144][221]";
  18. 85 PRINT"[221] [153]TIME-TESTED. [210]EQUIRES NO SPECIAL     [144][221]";
  19. 90 PRINT"[221] [153]DESK AND NO ELECTRICAL OUTLET. [201]SN'T [144][221]";
  20. 95 PRINT"[221] [153]SUSCEPTIBLE TO HACKERS AND COMES IN  [144][221]";
  21. 100 PRINT"[221] [153]A CHEERY YELLOW. [212]HE ORIGINAL 2,5    [144][221]";
  22. 105 PRINT"[221] [153]AND SEVERAL VARIATIONS ARE MOUNTED   [144][221]";
  23. 110 PRINT"[221] [153]ON THE HUMOROUS PLAQUE THAT FOLLOWS. [144][221]";
  24. 115 PRINT"[221]                                      [221]";
  25. 120 PRINT"[221] [158] [217]OU CAN GENTLY PRESS <[211][208][193][195][197]> NOW. . [144][221]";
  26. 125 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";:POKE53265,27:WAIT197,7
  27. 130 :
  28. 135 POKE53280,0:POKE53281,0:POKE53265,11
  29. 140 PRINT"[147][155][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  30. 145 PRINT"[221]   [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]  [221]";
  31. 150 PRINT"[221]    [212][200][197][160][204].[197].[193].[196]* 2.5 [215][207][210][196][160][208][210][207][195][197][211][211][207][210]   [221]";
  32. 155 PRINT"[221]   [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]  [221]";
  33. 160 PRINT"[221]   * [204]IGHT, [197]CONOMICAL & [196]EPENDABLE   [221]";
  34. 165 PRINT"[221]                                      [221]";
  35. 170 PRINT"[221]               [198][197][193][212][213][210][201][206][199]              [221]";
  36. 175 PRINT"[221] * [198]INE OR BIG PRINT (MANUAL CONTROL).[221]";
  37. 180 PRINT"[221] * [204]ETTERS, WORDS OR ENTIRE PHRASES   [221]";
  38. 185 PRINT"[221]     CAN BE DELETED WITH A FLICK      [221]";
  39. 190 PRINT"[221]            OF THE WRIST.             [221]";
  40. 195 PRINT"[221] * [208]OLISHED WOODEN CABINET.           [221]";
  41. 200 PRINT"[221] * [213]NLIMITED MEMORY CAPACITY RELYING  [221]";
  42. 205 PRINT"[221]     ON THE APTITUDE OF THE USER.     [221]";
  43. 210 PRINT"[155][221]  [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]  [221]";
  44. 215 PRINT"[155][221]  [221]  [151][164][149][175][185][162][158][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][152][162][162][162][162]  [155][221]  [221]";
  45. 220 PRINT"[221]  [221]  [151][163][149][183][184][162][158][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][152][162][162][162][162][146]  [155][221]  [221]";
  46. 225 PRINT"[155][221]  [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]  [221]";
  47. 230 PRINT"[221]      [205]ODEL SHOWN COMES EQUIPPED      [221]";
  48. 235 PRINT"[221]          WITH EXECUTIVE....          [221]";
  49. 240 PRINT"[221]   '[195]YLINDRICAL [205]ALFUCTION [193]DJUSTER'  [221]";
  50. 245 PRINT"[221]                                      [221]";
  51. 250 PRINT"[221]   [208]RESS <[211][208][193][195][197]> FOR OTHER MODELS...  [221]";
  52. 255 PRINT"[155][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";:POKE53265,27:WAIT197,7
  53. 260 POKE53265,11:PRINT"[155][147][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  54. 265 PRINT"[221]        [207][212][200][197][210][160][205][207][196][197][204][211] [201][206][195][204][213][196][197]:         [221]";
  55. 270 PRINT"[221]                                      [221]";
  56. 275 PRINT"[155][221]     [151][164][149][175][185][162][158][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][149][162][185][175][151][164]     [155][221]";
  57. 280 PRINT"[221]     [151][163][149][183][184][162][158][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][149][162][146][184][183][151][163]     [155][221]";
  58. 285 PRINT"[221]  [207]NE FOR THOSE WHO MAKE NO MISTAKES. [221]";
  59. 290 PRINT"[221]                                      [221]";
  60. 295 PRINT"[155][221]   [162][152][162][162][162][158][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][152][162][162][162][162]   [155][221]";
  61. 300 PRINT"[221]   [162][152][162][162][162][158][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][152][162][162][162][162][146]   [155][221]";
  62. 305 PRINT"[221] [207]NE FOR THOSE WHO MAKE ONLY MISTAKES.[221]";
  63. 310 PRINT"[221]                                      [221]";
  64. 315 PRINT"[155][221]          [151][164][149][175][185][162][158][162][162][162][162][162][162][162][162][162][162][152][162][162][162][162]          [155][221]";
  65. 320 PRINT"[221]          [151][163][149][183][184][162][158][162][162][162][162][162][162][162][162][162][162][152][162][162][162][162][146]          [155][221]";
  66. 325 PRINT"[221]   [207]NE FOR THOSE WHO DO VERY LITTLE.  [221]";
  67. 330 PRINT"[221]                                      [221]";
  68. 335 PRINT"[155][221]          [158][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]          [155][221]";
  69. 340 PRINT"[221]          [158][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146]          [155][221]";
  70. 345 PRINT"[221]       [193]ND ONE FOR THOSE WHO DO-      [221]";
  71. 350 PRINT"[221]          ABSOLUTELY NOTHING!         [221]";
  72. 355 PRINT"[221]                                      [221]";
  73. 360 PRINT"[155][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";:POKE53265,27
  74. 365 FORD=1TO5E3:NEXT
  75. 370 PRINT"      [158][212]AP <[211][208][193][195][197]> GENTLY FOR MORE.":POKE198,0
  76. 372 GETG$:IFG$<>" "THEN372
  77. 890 F$="VEGAS DEPOSIT":POKE53280,14:POKE53281,6:PRINT"[147][159]    [208]RESS....
  78. 900 [153]"       <SYSATNOPEN> TO SEE ATNCHR$ATNRIGHT$(null)
  79. 910 PRINT"   <[158][211][208][193][195][197][159]> TO [204][207][193][196] NEXT
  80. 912 [153]"           CARTOON  > SYS"F$
  81. 920 [153]"       <SYS(null)OPEN> TO (null)(null)ATNSTR$ LENATN(null)(null)(null)(null)(null)                         OF YOUR CHOICE
  82. 940 PRINT"       <[158][205][159]> TO LOAD [205][197][206][213]
  83. 945 [153]"       <SYS(null)OPEN> TO (null)(null)RIGHT$(null)":[151]198,0
  84. 950 [161]G$:[139]G$[179][177]"A"[175]G$[179][177]" "[175]G$[179][177]"L"[175]G$[179][177]"M"[175]G$[179][177]"Q"[167]950
  85. 970 [139]G$[178]"A"[167][138]
  86. 980 [139]G$[178]"Q"[167][128]
  87. 990 [139]G$[178]" "[167][153]"    (null)(null)ATNSTR$RIGHT$(null)CHR$ "F$
  88. 1000 [139]G$[178]"L"[167][133]"    LENATN(null)(null)(null)(null)(null) NAME";F$
  89. 1010 [139]G$[178]"M"[167]F$[178]"M"
  90. 1050 [153]"LOADRETURNLOADF$,8CONT":[151]631,19:[151]632,131:[151]198,2:[128]
  91.