home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / ROBERTS-RULES (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  6.4 KB  |  158 lines
  1. 20 REM  ROBERT'S RULES - AUTHOR UNKNOWN              FORMAT BY JIM GREEN
  2. 25 POKE53280,5:POKE53281,7:POKE53265,11:PRINTCHR$(142)"[147][156]";
  3. 30 PRINT" [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][174]
  4. 35 [129]T[178]1[164]21:[153]" (null)WAIT"[163]38)"(null)":[130]
  5. 40 [153]" /TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXPON":[151]53265,27
  6. 42 [129]D[178]1[164]1200:[130]:[129]T[178]217[164]242:[151]T,[194](T)[176]128:[130]
  7. 45 [153]" WAIT(null)  WAIT(null)  WAIT(null)  WAIT(null)  WAIT(null) (null) WAIT(null)  WAIT(null) (null)
  8. 50 PRINT" [146][186]  [146][167]  [146][186]  [146][192]  [146][186]   [146]  [223][223][146]
  9. 55 [153]" WAIT(null)  WAITSQR  WAITSQR  WAITSQR  WAIT(null)   WAIT  (null) WAIT
  10. 60 PRINT" [146][208]  [146][167]  [146]   [146][208]  [146][208]    [146][208]  [146][208]
  11. 65 [153]" WAITSQR  WAITTHEN  WAIT   WAITTAN (null)(null)WAIT    WAITTHEN  WAITTAN
  12. 70 PRINT" [146][205]  [146][186]  [146][186]  [146][186] [204] [146]    [146][186]  [146]
  13. 75 [153]" WAITLOG WAIT(null)  WAIT(null)  WAIT   WAIT  WAIT(null)LOG WAIT(null)  WAIT(null)  WAIT(null)  WAIT   WAIT(null)
  14. 80 PRINT" [146]  [146][167]  [146][186]  [146]   [146]  [146][192]  [146][167]  [146][186]  [146][186]  [146]   [146][192]
  15. 85 [153]" WAIT  WAITTHEN  WAITTHEN  WAITSQR  WAIT  WAITSQR  WAITTHEN  WAITTHEN  WAITSQR  WAITSQR  WAITSQR
  16. 90 PRINT" [146][208]  [146][208]  [146][208][208]  [146][208]  [146][167] [207] [146][208]  [146][208]  [146][208]
  17. 95 [153]" WAIT   WAITTHEN  WAITTHENTHEN  WAITSQR  WAITTHEN   WAIT   WAITTAN  WAITSQR
  18. 100 PRINT" [146][186]  [146][186]  [146][167][167]  [146]   [146][186]   [146]   [146][186]  [146][205]
  19. 105 [153]" WAIT(null)  WAIT(null)  WAIT(null)  WAIT(null)  WAIT(null)
  20. 110 PRINT" [146][167]  [146][186]  [146][167]  [146][192]  [146][186]
  21. 115 [153]" WAITSQR  WAIT(null)  WAITSQR  WAITSQR  WAIT(null)":[129]D[178]1[164]3500:[130]
  22. 117 [153]"";:[129]T[178]1[164]20:[153]"                                   "
  23. 118 [129]D[178]1[164]40:[130]:[130]:[129]D[178]1[164]1E3:[130]
  24. 122 [153]"LOAD"
  25. 125 [151]53280,12:[151]53281,15:[153]"";
  26. 130 J$[178]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN":[153]J$;
  27. 135 [153]"             (null)OBERTS' (null)ULES
  28. 140 PRINT"     OF [201]NALIENABLE [195]OMPUTER [207]RDER":PRINTJ$;
  29. 145 PRINT"[151] [175][157][157][167]1[146][165][157][157][183][145]";:PRINT"[217]OU WILL NEVER HAVE AN EXTRA DISK.
  30. 150 [153]" ANDCMDCMDTHEN2WAITFNCMDCMDUSRON";:[153]"RIGHT$F YOU DO BRING ALONG A BLANK DISK,
  31. 155 PRINT"YOU WONT NEED IT.
  32. 160 [153]" ANDCMDCMDTHEN3WAITFNCMDCMDUSRON";:[153]"RIGHT$F YOU DON'T BRING ALONG A BLANK DISK
  33. 165 PRINT"[145]IT WILL BE THE ONLY OPPORTUNITY TO
  34. 170 [153]"OBTAIN A COPY OF A HITHER TO
  35. 175 PRINT"UNATTAINABLE, AND UNIQUELY
  36. 180 [153]"APPROPIATE PROGRAM.
  37. 185 PRINT" [175][157][157][167]4[146][165][157][157][183][145]";:PRINT"[201]F SOMEONE ELSE IS WATCHING WHILE YOU
  38. 190 [153]"ONARE DOING ATN(null)(null)(null)LEFT$RIGHT$(null)CHR$CLOSEON THE COMPUTER,
  39. 195 PRINT"ANYTHING AT ALL, IT WILL SCREW UP.
  40. 200 [153]"(A TECHNICAL TERM.)":[141]760:[141]780
  41. 205 [153]" ANDCMDCMDTHEN5WAITFNCMDCMDUSRON";:[153]"(null)HE PERCENTAGE CHANCES OF SCREWING"
  42. 210 [153]" UP INCREASES IN DIRECT PROPORTION TO
  43. 215 PRINT"THE SIZE OF YOUR AUDIENCE. [201]F YOU ARE
  44. 220 [153]"DEMONSTRATING ANYTHING TO A (null)SER
  45. 225 PRINT"[199]ROUP YOUR CHANCES OF CRASHING ARE
  46. 230 [153]"ABOUT 467 TO ONE IN FAVOR. PEEKUT IF YOU
  47. 235 PRINT"HAPPEN TO BE DEMONSTRATING ANYTHING
  48. 240 [153]"ON NATIONAL TELEVISION, YOU DON'T
  49. 245 PRINT"HAVE A CHANCE. [207]R A PRAYER.
  50. 250 [153]" ANDCMDCMDTHEN6WAITFNCMDCMDUSRON";:[153]"(null)O MATTER HOW SIMPLE IT SEEMS TO YOU,";
  51. 255 [153]"YOUR EXPLANATION WILL BE MORE THAN"
  52. 260 [153]"S/HE WANTS TO KNOW.
  53. 265 PRINT" [175][157][157][167]7[146][165][157][157][183][145]";:PRINT"[217]OU WILL AMAZE YOURSELF AT HOW MUCH
  54. 270 [153]"YOU KNOW.":[141]760:[141]780
  55. 275 [153]" ANDCMDCMDTHEN8WAITFNCMDCMDUSRON";
  56. 280 [153]"(null)OU WILL AMAZE YOUR (null)OTHER AT HOW    ";
  57. 285 [153]"MUCH YOU KNOW ABOUT COMPUTERS."
  58. 290 [153]" ANDCMDCMDTHEN9WAITFNCMDCMDUSRON";:[153]"(null)OUR MOTHER WILL BELIEVE THAT YOU";
  59. 295 [153]"HAVE AN ALTERNATE CAREER JUST        ";
  60. 300 [153]"WAITING TO THROW MONEY AT YOU.
  61. 305 PRINT" [175][175][157][157][157][167]10[146][165][157][157][157][183][183][145][217]OUR [205]OTHER WILL BE WRONG.
  62. 310 [153]" ANDANDCMDCMDCMDTHEN11WAITFNCMDCMDCMDUSRUSRON";
  63. 315 [153]"(null)ONE OF YOUR OLD FRIENDS WILL WANT
  64. 320 PRINT"TO PLAY COMPUTER WITH YOU.
  65. 325 [153]" ANDANDCMDCMDCMDTHEN12WAITFNCMDCMDCMDUSRUSRON";
  66. 330 [153]"(null)OU WILL MAKE NEW FRIENDS.
  67. 335 PRINT"[175][175][157][157][157][167]13[146][165][157][157][157][183][183][145]";
  68. 340 PRINT"[217]OU WILL ALWAYS HAVE ONE DISK
  69. 345 [153]"ENVELOPE TOO FEW, OR TOO MANY.":[141]760:[141]780
  70. 350 [153]"ANDANDCMDCMDCMDTHEN14WAITFNCMDCMDCMDUSRUSRON";
  71. 355 [153]"(null)HE ONLY PIECES OF DATA YOU WILL
  72. 360 PRINT"EVER LOSE ARE THE ONES YOU WERE
  73. 365 [153]"GOING TO SAVE JUST AS SOON AS YOU
  74. 370 PRINT"FINISHED TYPING TWO MORE LINES.
  75. 375 [153]" ANDANDCMDCMDCMDTHEN15WAITFNCMDCMDCMDUSRUSRON";
  76. 380 [153]"ATNNY GAME YOU BEAT PERSONS UNDER THE
  77. 385 PRINT"AGE OF NINE AT, WILL AUTOMATICALLY
  78. 390 [153]"BE DEEMED TOO EASY.
  79. 395 PRINT" [175][175][157][157][157][167]16[146][165][157][157][157][183][183][145]";
  80. 400 PRINT"[212]HE UPDATE OF YOUR PROGRAM WILL USE
  81. 405 [153]"THE KEYS FOR SOMETHING ENTIRELY
  82. 410 PRINT"DIFFERENT IN THIS VERSION THAN IT
  83. 415 [153]"DID WHEN YOU FIRST LEARNED IT.
  84. 420 PRINT" [175][175][157][157][157][167]17[146][165][157][157][157][183][183][145]";
  85. 425 PRINT"[212]HE LONGER THE COPYWRITE NOTICE,
  86. 430 [153]"THE FASTER THE PROGRAM WILL GET
  87. 432 PRINT"CRACKED.":GOSUB760:GOSUB780
  88. 435 PRINT" [175][175][157][157][157][167]18[146][165][157][157][157][183][183][145]";
  89. 440 PRINT"[217]OU WILL NOT UNDERSTAND IT THE FIRST";
  90. 445 PRINT"TIME YOU READ IT IN THE MANUAL.
  91. 450 [153]" ANDANDCMDCMDCMDTHEN19WAITFNCMDCMDCMDUSRUSRON";
  92. 455 [153]"(null)OU WILL UNDERSTAND IT BETTER THE
  93. 460 PRINT"NEXT TIME YOU READ THE MANUAL.
  94. 465 [153]"ASCOR NO DISCERNIBLE REASON.
  95. 470 PRINT" [175][175][157][157][157][167]20[146][165][157][157][157][183][183][145]";
  96. 475 PRINT"[215]HEN YOU ARE LATE FOR AN INTERVIEW
  97. 480 [153]"AND NEED A LAST MINUTE COPY OF YOUR
  98. 485 PRINT"RESUME YOUR PRINTER WILL GO DOWN.
  99. 490 [153]"RIGHT$T WILL ALWAYS GO DOWN. RIGHT$T DOESN'T
  100. 495 PRINT"CARE.
  101. 500 [153]" ANDANDCMDCMDCMDTHEN21WAITFNCMDCMDCMDUSRUSRON";
  102. 505 [153]"(null)OWHERE IN YOUR REPAIR MANUAL WILL
  103. 510 PRINT"IT EVER TELL YOU WHAT YOU REALLY
  104. 515 [153]"NEED TO DO - WHICH IS TO TURN THE   ";
  105. 520 [153]"DAMN THING OFF AND GET YOURSELF
  106. 525 PRINT"A CUP OF COFFEE.":GOSUB760:GOSUB780
  107. 530 PRINT" [175][175][157][157][157][167]22[146][165][157][157][157][183][183][145]";
  108. 535 PRINT"[217]OU WILL NEVER KNOW WHAT A [213][211][210]
  109. 540 [153]"FILE IS.
  110. 545 PRINT" [175][175][157][157][157][167]23[146][165][157][157][157][183][183][145]";
  111. 550 PRINT"[212]HE PRICE OF ANYTHING YOU BUY WILL
  112. 555 [153]"STAY THE SAME UNTIL THE ACTUAL
  113. 560 PRINT"IMPACT OF YOUR MONEY ON THE BOTTOM
  114. 565 [153]"OF THE CASH DRAWER, AT WHICH TIME
  115. 570 PRINT"IT WILL AUTOMATICALLY RE-LIST
  116. 575 [153]"ITSELF IN NEXT (null)HURSDAY'S PAPER
  117. 580 PRINT"AT 30% LESS.
  118. 585 [153]" ANDANDCMDCMDCMDTHEN24WAITFNCMDCMDCMDUSRUSRON";
  119. 590 [153]"(null)TARING AT THE SCREEN FOR 97 CONT-
  120. 595 PRINT"INOUS MINUTES WILL NOT NECESSARLY
  121. 600 [153]"REVEAL TO YOU THE SECRET LOCATION
  122. 605 PRINT"OF ANY COLON THAT SHOULD HAVE BEEN
  123. 610 [153]"TYPED IN AS A SEMI. (null)R VICE VERSA.":[141]760:[141]780
  124. 615 [153]" ANDANDCMDCMDCMDTHEN25WAITFNCMDCMDCMDUSRUSRON";
  125. 620 [153]"RIGHT$T WILL ALWAYS SEEM LIKE YOUR
  126. 625 PRINT"FRIEND GOT A BETTER DEAL.
  127. 630 [153]" ANDANDCMDCMDCMDTHEN26WAITFNCMDCMDCMDUSRUSRON";
  128. 635 [153]"(null)O PROGRAM YOU GET FROM THE
  129. 640 PRINT"COMPUTER MAGAZINES WILL RUN ON
  130. 645 [153]"YOUR COMPUTER.
  131. 650 PRINT" [175][175][157][157][157][167]27[146][165][157][157][157][183][183][145]";
  132. 655 PRINT"[212]HE 800 LINE NUMBER WILL BE BUSY.
  133. 660 [153]" ANDANDCMDCMDCMDTHEN28WAITFNCMDCMDCMDUSRUSRON";
  134. 665 [153]"(null)OU WILL NEVER FIND THE DISK THAT
  135. 670 PRINT"CONTAINS THE PROGRAM YOU NEED NOW.
  136. 675 [153]" ANDANDCMDCMDCMDTHEN29WAITFNCMDCMDCMDUSRUSRON";
  137. 680 [153]"(null)HEN YOU FIND IT, IT WON'T WORK.
  138. 685 PRINT" [175][175][157][157][157][167]30[146][165][157][157][157][183][183][145]";
  139. 690 PRINT"[217]OU WILL NEVER BE ABLE TO MAKE IT
  140. 695 [153]"WORK! WORK! WORK! (null)(null)(null)(null)! (null)(null)(null)(null)! (null)(null)(null)(null)!":[141]760
  141. 700 [153]"RTS' (null)ULES";
  142. 705 [129]T[178]1[164]23:[153]"* (null)OBERTS' (null)ULES * (null)OBERTS' (null)ULES ";:[130]
  143. 710 [153]"* (null)OBER"
  144. 715 [153]"               ON"
  145. 720 [129]D[178]1[164]2000:[130]:[141]760:[141]780
  146. 725 [153]"                                       ON"
  147. 730 [153]"POKE          (null)RESS <(null)> TO (null)VAL(null)RIGHT$VAL(null)
  148. 735 PRINT"           [208]RESS <[209]> TO [209][213][201][212]
  149. 740 [161]G$:[139]G$[179][177]"R"[175]G$[179][177]"Q"[167]740
  150. 745 [139]G$[178]"R"[167][138]
  151. 750 [153]"          (null)EMEMBER THE RULES!PRINT#":[129]D[178]1[164]3E3:[130]:[128]
  152. 760 [153]"            (null)RESS  <(null)(null)ATNLENVAL>             ONPOKE"
  153. 765 [151]2023,160:[151]56295,2
  154. 767 [129]T[178]217[164]242:[151]T,[194](T)[176]128:[130]
  155. 770 [151]198,0:[146]198,1:[142]
  156. 775 [128]
  157. 780 [129]T[178]4[164]23:[151]781,T:[158]59903:[129]D[178]1[164]30:[130]:[130]:  [142]
  158.