10 REM SOFT-AD FOR WARP+
15 BS$="[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"
20 GOTO50
30 PRINTLEFT$("",V)SPC(H-1):RETURN
40 PRINTLEFT$(BS$,POS(0));SPC(H-1):RETURN
50 POKE53280,2:POKE53281,1:PRINT"[144]"
60 FORL=54272TO54296:POKEL,0:NEXT
70 POKE54296,5:POKE54277,88:POKE54275,15:POKE54274,15:POKE54278,89
200 REM START
210 PRINT"[147]"
215 PRINT" [215][160][193][160][210][160][208][160]- [208][160][204][160][213][160][211] -- [194]Y [196]ANIEL [212]OBIAS"
217 PRINT" --------------------------------------":PRINT
220 PRINT"[196]OES THE HIGH"
230 PRINT
260 PRINT"PRICE OF SOFTWARE"
265 PRINT
270 PRINT"DRIVE YOU"
275 PRINT""
277 FORA=1TO500:NEXT
280 HP=18:I$="[195]":GOSUB5000
290 HP=19:I$="[210]":GOSUB5000
300 HP=20:I$="[193]":GOSUB5000
310 HP=21:I$="[218]":GOSUB5000
320 HP=22:I$="[217]":GOSUB5000
330 HP=23:I$="?":GOSUB5000
340 HP=24:GOSUB5000
345 PRINT"[149]"
350 PRINT:PRINT"[211]ALESMAN: '...[193]ND, IN ADDITION TO BEING"
360 PRINT"A SPREADSHEET, WORD PROCESSOR, DATA BASE";
362 PRINT"AND [208]AC-[205]AN GAME, IT ALSO SHARPENS"
364 PRINT"PENCILS AND WALKS THE DOG.'"
365 PRINT
370 PRINT"[195]USTOMER: '[217]EAH, BUT HOW MUCH DOES IT":PRINT"COST?'"
380 PRINT:PRINT"[211]ALESMAN: '[207]H, IT'S VERY REASONABLE."
385 PRINT"[207]NLY $14,728.95.'[144]"
390 GOSUB6000
400 PRINT"[193]ND DON'T YOU REALLY HATE[144] LOCKED-UP,"
410 PRINT:PRINT"COPY-PROTECTED SOFTWARE?"
420 PRINT:PRINT
430 PRINT"[149][211]EE WHAT FEATURES YOU ARE GETTING IN"
435 PRINT" THE NEW EDITION OF [214]ISI[209]UACK, AT ONLY"
440 PRINT" TWICE THE PRICE OF THE OLD ONE?  [212]HE"
445 PRINT" NEW STATE-OF-THE-ART COPY PROTECTION"
450 PRINT" SCHEME WILL DESTROY ITS DISK, AND HALF"
455 PRINT" THE CHIPS IN YOUR COMPUTER, IF YOU SAY"
460 PRINT" THE WORD 'COPY' WITHIN EARSHOT!"
465 PRINT:PRINT" [201]T ALSO WON'T RUN UNLESS YOU HAVE OUR"
470 PRINT" NEW PATENTED $400 [218]ILCHCARD, WHICH HAS"
475 PRINT" ABSOLUTELY NO FUNCTION EXCEPT TO ALLOW"
480 PRINT" YOU TO RUN OUR COPY-PROTECTED PROGRAMS![144]"
500 GOSUB6000
510 PRINT"[215]ELL, HOW MUCH WOULD YOU EXPECT TO PAY"
520 PRINT:PRINT"FOR A DOUBLE-SIDED[144] DISK CONTAINING"
525 PRINT
530 PRINT"[193]DVENTURE [199]AMES"
540 PRINT"  [193]RCADE [199]AMES"
550 PRINT"    [213]TILITIES"
560 PRINT"      [193]ND MUCH MORE!"
565 PRINT:PRINT"[193]LL COMPLETELY LISTABLE, MODIFYABLE,"
570 PRINT:PRINT"AND COPYABLE.  [206]O COPY PROTECTION![144]"
575 PRINT:PRINT"[212]HAT'S WHAT YOU GET IN [215]ARP-[208]LUS[144]!"
580 GOSUB6000
590 PRINTTAB(13)"[215]HAT YOU GET:"
600 PRINT:PRINT"[212]HE TITLE PROGRAM (AND WORTH THE PRICE"
610 PRINT:PRINT"OF THE DISK ALONE):"
620 PRINT:PRINT"                [215][160][193][160][210][160][208]"
630 PRINT:PRINT"[193]N ADVENTURE GAME.  [197]XPLORE THE MANY"
640 PRINT:PRINT"WORLDS OF SPACE AND TIME TO ESCAPE THE"
650 PRINT:PRINT"CLUTCHES OF AN EVIL SCIENTIST!"
660 PRINT:PRINT"[207]VER 70 DIFFERENT LOCATIONS, IN SEVERAL"
670 PRINT:PRINT"MODULES.  [211]URPRISES ABOUND!"
680 GOSUB6000
805 PRINT"[212]WO MORE ADVENTURE GAMES ON [215]ARP-[208]LUS:":PRINT
810 PRINT"   *****  [208]LANET OF THE [210]OBOTS  *****"
820 PRINT:PRINT"[198]IGHT THE BERSERK ROBOTS TO FIND YOUR"
830 PRINT:PRINT"WAY OUT OF A NIGHTMARISH FUTURE."
840 PRINT
850 PRINT"   *****        [211]MURK           *****"
860 PRINT:PRINT"[203]ILL THE EVIL MONSTER BEFORE HE KILLS"
870 PRINT:PRINT"YOU.  [212]HERE IS FABULOUS TREASURE IN HIS"
880 PRINT:PRINT"CAVE, IF YOU CAN LIVE TO TAKE IT OUT!"
890 GOSUB6000
1150 PRINT"[211]OME MORE PROGRAMS ON THIS DISK:"
1160 PRINT:PRINT"[205]USICIAN:"
1170 PRINT:PRINT"   [208]LAY MUSIC ON YOUR [195]64'S KEYBOARD,"
1180 PRINT:PRINT"AND SAVE THE SONGS TO BE PLAYED BACK"
1190 PRINT:PRINT"LATER."
1195 GOSUB6000
1200 PRINT"[198]IREFLIES:"
1210 PRINT:PRINT"   [193]N ARCADE GAME.  [195]ATCH ALL THE"
1220 PRINT:PRINT"FIREFLIES BEFORE TIME RUNS OUT, BUT"
1230 PRINT:PRINT"WATCH OUT FOR THE DEADLY KILLER FIREFLY!"
1240 PRINT"[212]HE TOP 10 SCORES ARE SAVED TO DISK,"
1250 PRINT:PRINT"ALONG WITH THE NAMES OF THE PLAYERS"
1260 PRINT:PRINT"WHO GOT THE SCORES."
1270 GOSUB6000
1280 PRINT"[208]OKER [211]OLITAIRE:"
1290 PRINT"   [212]RY FOR A HIGH SCORE IN THIS GAME"
1300 PRINT"BY FORMING INTERLOCKING POKER HANDS IN"
1310 PRINT"A 5-BY-5 GRID."
1320 PRINT"[211]TOPWATCH:"
1330 PRINT"   [204]ETS YOU KEEP TIME ON YOUR [195]-64."
1340 PRINT"[195]OUNTS UPWARD OR DOWNWARD, AND CAN"
1350 PRINT"DISPLAY LAP TIMES."
1360 GOSUB6000
1420 PRINT"[195]RYPTOGRAM [215]RITER:"
1430 PRINT:PRINT"   [195]REATES CRYPTOGRAMS FOR YOUR FRIENDS"
1440 PRINT:PRINT"TO SOLVE.  [217]OU TYPE THE MESSAGE, AND"
1450 PRINT:PRINT"THE COMPUTER ENCODES IT."
1455 GOSUB6000
1460 PRINT"[195]RYPTOGRAM [211]OLVING [193]ID:"
1470 PRINT"   [200]ELPS YOU SOLVE CRYPTOGRAMS."
1480 PRINT"([201]NCLUDING ONES CREATED USING [195]RYPTOGRAM"
1490 PRINT"[215]RITER.)"
1500 PRINT"[217]OU CAN REPLACE ANY LETTER WITH ANY"
1510 PRINT"OTHER, OR DO A LETTER FREQUENCY COUNT."
1520 PRINT"[201]F YOU ARE STUMPED, YOU CAN SAVE THE"
1530 PRINT"PARTIALLY-SOLVED CRYPTOGRAM TO DISK"
1540 PRINT"TO RESUME LATER."
1550 GOSUB6000
1680 PRINT"[202]UMBLER/[213]NJUMBLER:"
1690 PRINT:PRINT"[196]OES THE SAME FOR ANAGRAMS AS THE"
1700 PRINT"[195]RYPTOGRAM PROGRAMS MENTIONED ABOVE DO"
1710 PRINT"FOR CRYPTOGRAMS."
1720 PRINT"[195]ALC-[205]AN:"
1730 PRINT"[212]HE LATEST IN INTEGRATED SOFTWARE: AN"
1740 PRINT"ARCADE GAME IN SPREADSHEET FORMAT."
1750 PRINT"[208]LAY GAMES IN YOUR OFFICE WITHOUT YOUR"
1760 PRINT"BOSS KNOWING IT!"
1770 GOSUB6000
1910 PRINT"[212]RIPLE [217]AHTZEE:"
1920 PRINT"[193] NEW COMPUTERIZED VERSION OF THE"
1930 PRINT"CLASSIC DICE GAME.  [201]NCLUDES A '[211]AVE"
1940 PRINT"[199]AME' FEATURE, AND A '[200]ELP' FEATURE"
1950 PRINT"THAT LETS YOU SEE DESCRIPTIONS OF THE"
1960 PRINT"DIFFERENT SCORING ROWS DURING YOUR TURN."
1970 GOSUB6000
1984 REM THIS YEAR
1990 PRINT"[208]ROGRAM [195]OMPARE:"
2000 PRINT"[195]OMPARES TWO DIFFERENT VERSIONS OF A"
2010 PRINT"PROGRAM TO SEE WHAT WAS CHANGED."
2020 PRINT"[211]ECRET [211]TUFF:"
2030 PRINT"[204]ETS YOU KEEP A DIARY ON YOUR COMPUTER"
2040 PRINT"THAT NOBODY BUT YOU CAN READ!"
2050 PRINT"[207]R, SEND MESSAGES TO YOUR FRIENDS; IF"
2060 PRINT"YOU GIVE THEM THE SECRET KEYWORD, THEY"
2070 PRINT"CAN READ THEM, BUT NOBODY ELSE CAN."
2080 GOSUB6000
2090 PRINT"[193]ND THAT'S NOT ALL.  [212]HERE ARE SEVERAL"
2100 PRINT"OTHER PROGRAMS ON THIS DISK, BUT THEY"
2110 PRINT"ARE NOT DESCRIBED HERE, TO KEEP YOU IN"
2120 PRINT"SUSPENSE!  ([200]EE [200]EE [200]EE)"
2130 GOSUB6000
2140 PRINT"[215]ELL, GIVEN THE ABSOLUTELY INSANE[144]"
2150 PRINT"COST OF SOFTWARE THESE DAYS, HOW MUCH"
2160 PRINT"DO YOU THINK THIS DISK OF PROGRAMS"
2170 PRINT"COSTS?"
2180 PRINT"   [215]ELL, IT'S NOT:  $99.00";
2185 POKE54273,1:POKE54272,0:POKE54276,65
2190 FORA=98TO20STEP-1
2200 FORB=1TO5:NEXT
2210 PRINT"[157][157][157][157][157]"MID$(STR$(A),2)".00";
2220 IFA/10=INT(A/10)THENPOKE54276,64:FORB=1TO1000:NEXT:POKE54276,65
2230 NEXT:POKE54276,64
2340 PRINT"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]      [201]T'S ONLY:  $16.95!"
2350 GOSUB6000
2360 PRINT"[212]O ORDER, SEND $16.95 TO..."
2370 PRINT"                [204][207][193][196][211][212][193][210]"
2380 PRINTTAB(14)"[208][207][160][194]OX 30007"
2390 PRINTTAB(8)"[211]HREVEPORT, [204][193] 71130-0007"
2400 PRINT:PRINT"[194]E SURE TO ASK FOR [215][193][210][208]-[208][204][213][211]!"
2410 PRINT:PRINT"[193]LL PROGRAMS ON [215][193][210][208]-[208][204][213][211] ARE COPYRIGHT"
2420 PRINT"([195])[160]1984 BY [196]ANIEL [212]OBIAS."
2425 POKE198,0
2430 PRINT:PRINT"[196]ONE.  [200]IT ANY KEY TO RETURN TO MENU. "
2440 GETI$:IFI$=""THEN2440
2450 GOTO63000
2460 :
5000 REM MOVE LETTER ACROSS SCREEN
5005 POKE54273,2:POKE54272,100:POKE54276,65
5010 FORI=38TOHPSTEP-1:H=I:GOSUB40
5020 PRINTI$;
5030 FORA=1TO10:NEXT
5040 PRINT"[157] [157][157]";:NEXT
5045 POKE54276,64
5060 H=I:GOSUB40:PRINTI$;
5070 RETURN
6000 REM HIT KEY TO CONTINUE
6005 PRINT
6007 POKE198,0
6010 PRINT"       [200]IT ANY KEY TO CONTINUE.         [144][146][145]";
6020 FORA=1TO50:GETI$:IFI$<>""THEN6025
6021 NEXT:PRINT"[159]       [200]IT ANY KEY TO CONTINUE.         [146][144][145]";
6023 FORA=1TO50:GETI$:IFI$<>""THEN6025
6024 NEXT:GOTO6010
6025 REM DONE
6035 POKE53280,RND(0)*16:PRINT"[147]"
6040 RETURN
63000 REM    RETURN TO AD.MENU
63002 PRINT"[147]LOAD"CHR$(34)"AD.MENU"CHR$(34)",8":PRINT"RUN"
63004 POKE631,13:POKE632,13:POKE198,2:END