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