1 DV=PEEK(186):IFDV<8THENDV=8
2 DIMA%(32,5)
6 SYS51200
7 A=RND(-TI)
8 TEM=32768:POKE32808,1:POKE24568,250
9 SYS57812"MANHUNT FONT",DV,0:POKE780,0:POKE781,0:POKE782,8:SYS65493
10 UP=49152:DN=49155:POKE53272,19
11 GOSUB5000
12 MU=1:XM=0
17 FORX=0TO63:POKE832+X,0:NEXT:FORX=0TO7:POKE2040+X,13:NEXT
100 DEFFNI(X)=PEEK(X)+256*PEEK(X+1)
1000 PP=FNI(TEM+30):PC=FNI(TEM+32)
1005 DY=FNI(TEM+34):AG=FNI(TEM+36)
1010 DM$=" DOUBLE [157][157][157][157][157][157][157][157]  MOVE  [146]"
2000 FORX=0TO5:POKEPP+X,INT(RND(1)*52)
2001 SYSTEM+12:SYSTEM+12
2005 POKEPC+X,48
2010 NEXT
2015 FORX=0TO6:READA(X):POKE53287+X,A(X):NEXT
2016 DATA7,8,6,5,12,4,0
2017 GOSUB4000
2018 POKE163,0:POKE164,209:PRINT"[147]"
2020 SYSTEM+6
2025 GOSUB7000:SYSTEM+21:SYS32812
2026 FORX=1TO5:IFPEEK(PP+X)=PEEK(PP)THENX=6
2037 NEXT:IFX>6THENGOTO3500
2038 REM      SHOW DR X
2039 REM POKE781,6:POKE782,PEEK(PP):SYSTEM
2040 IFPEEK(AG)>0THENGOSUB3000
2050 FORX=1TO5:IFPEEK(PC+X)>0THENPOKE53280,A(X)
2060 POKE780,X:SYSTEM+18:IFPEEK(PP+X)=PEEK(PP)THENX=6
2065 IFPEEK(197)=62THENQT=1:X=6
2070 IFPEEK(180)=255THENX=6
2080 NEXT:POKE53280,0:IFQT=1THEN8000
2081 QT=0:IFX>6THEN3500
2085 POKE53269,PEEK(53269)AND190
2090 FORX1=1TO1500:NEXT
2110 IFPEEK(DY)=0THEN3700
2120 FORX=1TO5:IFPEEK(PC+X)<>0THENX=6
2130 NEXT:IFX=6THEN3700
2140 FORX=1TO5:IFPEEK(PP)=PEEK(PP+X)THENX=6
2150 NEXT:IFX>6THEN3500
2160 GOTO2025
3000 IFXM>PEEK(181)THENRETURN
3001 XM=XM+1:POKE781,21:POKE782,14:POKE783,0:SYS65520
3002 PRINTDM$:SYSTEM+12:
3003 REM POKE781,6:POKE782,PEEK(PP):SYSTEM
3004 RETURN
3500 POKE53287,0:POKE24568,249:POKE781,0:POKE782,PEEK(PP)
3505 GOSUB7000
3510 SYSTEM:PRINT"[147]":POKE781,21:POKE782,0
3520 POKE783,0:SYS65520
3530 PRINT" YOU HAVE CAPTURED DR. ECKS AND SAVED
3540 [153] "           T H E   N A T I O N
3541 PRINT"          REVIEW:  PRESS FIRE
3542 [153]"      RWAITEVIEW, PWAITLAY AGAIN OR QWAITUIT?";
3543 [139][194](DY)[177]21[167][151]181,([194](181)[170]1)[175]255
3550 [151]198,0
3560 [161]Z$:[139]Z$[178]""[167]3560
3570 [139]Z$[178]"P"[167]3600
3575 [139]Z$[178]"R"[167][141]7100:[137]3550
3580 [139]Z$[179][177]"Q"[167]3550
3585 [141]41000:[137]8000
3590 [153]"LOAD":[158]32809:[151]53269,0:[158]TEM[170]27:[151]53280,15:[151]53281,15:[137]40000
3600 [151]53280,15:[151]53281,15:[151]53269,0:[153]"SYSLOAD":[141]41000:[158]TEM[170]27
3610 [158]32809:[129]X[178]0[164]500:[130]:[138]1
3700 [151]24568,249:[151]53287,0:[151]781,0:[151]782,[194](PP)
3705 [141]7000
3710 [158]TEM:[153]"LOAD":[151]781,21:[151]782,0
3720 [151]782,0:[158]65520
3730 [153]"STOP YOU HAVE FAILED! THE NATION IS DOOMED!"
3740 [153] "       WHAT WILL THE DIRECTOR SAY?
3750 GOTO3541
4000 DATA"THE YEAR IS 2015.  THE NEW NATIONAL   "
4001 DATA"MONORAIL TRAIN SYSTEM IS COMPLETE.    "
4002 DATA"ELECTRIC CARS ZIP SILENTLY ALONG OUR  "
4003 DATA"NEW INTERSTATE SYSTEM, AND HYDROGEN-  "
4004 DATA"POWERED ROCKET PLANES FLY BETWEEN     "
4005 DATA"CITIES WITHOUT POLLUTION.             "
4006 DATA"                                      "
4007 DATA"THE NOTORIOUS DR. ECKS, RECENTLY      "
4008 DATA"ESCAPED FROM FEDERAL PRISON, NOW      "
4009 DATA"THREATENS TO DETONATE A NUCLEAR DEVICE"
4010 DATA"IN EXACTLY 31 DAYS!                   "
4011 DATA"                                      "
4012 DATA"YOU AND FOUR OTHER FEDERAL AGENTS MUST"
4013 DATA"TRACK HIM DOWN BEFORE THIS CATASTROPHE."
4014 DATA"TRAVELING THE COUNTRY BY CAR, TRAIN,  "
4015 DATA"AND PLANE, WEAVE AN INPENETRABLE NET  "
4016 DATA"TO STOP THIS INSANE CRIMINAL. YOU HAVE"
4017 DATA"$4800 EACH IN TRAVEL CREDITS.  CARS,  "
4018 DATA"WHICH TRAVEL BETWEEN SMALLER TOWNS,   "
4019 DATA"RENT FOR $100/DAY.  TRAINS BETWEEN    "
4020 DATA"LARGER CITIES COST $200/TRIP.  AND THE"
4021 DATA"PLANES, WHIZZING BETWEEN RED-MARKED   "
4022 DATA"CITIES, COST $400/FLIGHT.  EACH AGENT "
4023 DATA"MUST MOVE EACH DAY.  WHEN AN AGENT'S  "
4024 DATA"CREDIT IS EXHAUSTED, HE/SHE IS STUCK. "
4025 DATA"                                      "
4026 DATA"DR. ECKS MOVES FIRST, AND HAS FOUND   "
4027 DATA"WAYS TO CONFOUND THE INSTAT COMPUTER. "
4028 DATA"THE COMPUTER WILL USUALLY KNOW WHAT   "
4029 DATA"MODE OF TRANSPORTATION DR. ECKS USED, "
4030 DATA"AND OCCASIONALLY BE ABLE TO GIVE THE  "
4031 DATA"EXACT LOCATION.  IF PRESSED, DR. ECKS "
4032 DATA"WILL TAKE A 'DOUBLE MOVE', TRAVELING  "
4033 DATA"THROUGH THE NIGHT BY UNTRACEABLE MEANS."
4034 DATA"                                      "
4035 DATA"EACH AGENT MOVES IN TURN. USE THE JOY-"
4036 DATA"STICK TO MOVE THE YELLOW MARKER TO    "
4037 DATA"THE DESIRED DESTINATION.  PRESS 'FIRE'"
4038 DATA"TO MOVE THE AGENT.                    "
4039 DATA"                                      "
4040 DATA"GOOD LUCK!                            "
4041 DATA"                                      "
4042 DATA"TO QUIT, HOLD DOWN Q AND PRESS FIRE.  "
4043 DATA"[152]TO TOGGLE THE MUSIC, PRESS M[152].  [154]THIS   "
4044 DATA"[154]PROGRAM WAS WRITTEN AND PRODUCED BY   "
4045 DATA"           DAVID M. MOORMAN           "
4100 DIMB$(45):FORX=0TO45:READB$(X):NEXT:BB=0
4110 POKE214,16:PRINT
4120 FORX=0TO4:PRINT"[146]"B$(X):NEXT
4130 POKE214,22:PRINT:PRINT" USE JOYSTICK TO SCROLL...FIRE TO PLAY [146]"
4139 IFRND(1)<.1THENONINT(RND(1)*4)+1GOSUB6100,6101,6102,6103
4140 PQ=PEEK(56320):IFPQ<>126ANDPQ<>125ANDPQ<>111THEN4139
4145 IFPQ=111THEN4170
4150 IFPQ=125THEN4160
4152 IFBBTHENSYSDN,0,17,39,5,0
4154 BB=BB-1:IFBB<0THENBB=0:GOTO4140
4156 POKE214,16:PRINT:PRINTB$(BB)
4158 GOTO4139
4160 IFBB<41THENSYSUP,0,17,39,5,0
4162 BB=BB+1:IFBB>41THENBB=41
4164 POKE214,20:PRINT:PRINTB$(BB+4)
4168 GOTO4139
4170 SYS19047:SYS32809:PRINT"[147]":RETURN
5000 POKE163,0:POKE164,0:SYSTEM+24
5200 POKE53280,1:POKE53281,1:PRINT"[147][144]           LOADSTAR PRESENTS:
5205 [141]6000
5210 [153]"STEP   WAIT  STEP   "
5220 [153]"STEP    WAIT STEP    WAIT
5230 PRINT"[169]           [146]    [146]  [223][146] [146]  [146]  [146]  [146]  [146]  [223][146] [146]    [146]
5240 [153]"STEP   WAITSTEP   WAITSTEP    WAIT  WAIT  WAIT  WAIT(null) WAIT  FRE WAIT  WAIT  WAIT  WAIT(null) WAIT   WAIT
5250 PRINT"[169]   [146][169]   [146][169]     [146]  [162] [146]  [146]  [146]  [146]  [146]  [184] [146]  [146]  [146]   [146]
5260 [153]"STOP              FOR DOCTOR ECKS
5270 PRINT"[129]            BY DAVID M. MOORMAN
5280 [158]32812
5285 [143]  SYS19047
5290 [142]
6000 MO$[178]"ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDRIGHT$MID$MID$MID$MID$MID$MID$MID$MID$MID$MID$(null)ANDAND"
6001 CA$[178]"                                                    (null)(null)"
6002 PL$[178]"(null)(null)(null)(null)(null)FOR(null)(null)SYS(null)(null)(null)LIST(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)                                     "
6003 PL$[178]"                                        "[170]PL$[170]"   "
6010 [153]"CONTANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDAND"
6011 [153]"  CHR$    CHR$    CHR$    CHR$    CHR$    CHR$    CHR$    CHR$"
6012 [153]"PRINT#FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE"
6020 [142]
6100 [129]X[178][195](MO$)[164]1[169][171]2:[153]"CONT"[202](MO$,X,40)"":[130]:[142]
6101 [129]X[178]1[164][195](MO$)[169]2:[153]"CONT"[202](MO$,X,40)"":[130]:[142]
6102 [129]X[178][195](CA$)[164]1[169][171]1:[153]""[202](CA$,X,40)"":[130]:[142]
6103 [129]X[178]1[164][195](PL$)[169]4:[153]"POKE"[202](PL$,X,40)""
6105 [139](X[177]3)[175](X[179]14)[167][153]"CMDCMDCMDCMD    ";
6106 [130]:[142]
7000 [129]X[178]0[164]5:A%([194](DY),X)[178][194](PP[170]X):[130]:[142]
7100 [151]53280,7:[151]53281,2:[143]     POKE164,255
7101 [129]Q[178]32[164][194](DY)[169][171]1:[151]781,0:[151]782,A%(Q,0):[158]TEM:[129]R[178]1[164]200:[130]
7102 [129]X[178]1[164]5:[151]781,X:[151]782,A%(Q,X):[158]TEM:[130]
7115 [129]Y[178]1[164]100:[130]:[158]TEM[170]3:[139]([194](780)[175]16)[178]0[167]7115
7130 [130]:[151]53280,0:[151]53281,1:      [151]164,209:[142]
8000 [151]53280,1:[153]:[153]"LOADSTOP        RETURN TO LOADSTAR? (Y/N)";
8010 A[178][194](164):[129]X[178]A[164]0[169][171]8:[151]164,X:[130]
8020 [151]198,0
8030 [139][194](198)[178]0[167]8030
8040 [161]Z$:[139]Z$[178]"N"[167][158]TEM[170]27:[158]51203:[138]
8045 [153]"CMDCMDCMDCMDY
8050 GOSUB41000:GOTO3590
10000 DV=PEEK(186):N$="MANHUNT.BS":OPEN15,DV,15,"S0:"+N$:CLOSE15:SAVEN$,DV:END
30000 SYSTEM+3:PRINTPEEK(780):GOTO30000
40000 POKE53280,0:POKE53281,0:DV=PEEK(186):Q$=CHR$(34):PRINT"[144][147]";
40010 A$="ELOADSTAR":R$=CHR$(13)+"R[213]"+CHR$(13):Q$=CHR$(34)
40020 CLOSE2:OPEN2,DV,2,A$:GET#2,B$:CLOSE2:IFST=0THEN40050
40030 CLOSE15:OPEN15,DV,15,"I0":INPUT#15,EN:CLOSE15
40035 POKE53280,14:POKE53281,6:PRINT"[147][154]"
40040 POKE44,8:POKE8*256,0:POKE55,0:POKE56,160:POKE53272,20:CLR:NEW
40050 PRINT"[146]LOAD"Q$A$Q$","DV""
40055 FORX=1TO4:POKE630+X,ASC(MID$(R$,X)):NEXT:POKE198,4:GOTO40040
41000 POKE19971,4:POKE54276,0:POKE54283,0:POKE54290,128:RETURN
50000 GOSUB41000:POKE53269,0:SYSTEM+27:SYS51203:END
59999 END