home *** CD-ROM | disk | FTP | other *** search
- 5 REM FBI FILE BY SAL AGLIANO
- 6 POKE 53280,0:POKE 53281,0
- 7 PRINT"[147] THIS PROGRAM IS JUST FOR FUN!"
- 8 PRINT" IT IS NOT TO BE TAKEN SERIOSLY!"
- 9 FOR X=1TO 2000:NEXT X
- 10 PRINT" PROGRAM PREPARED BY SAL AGLIANO "
- 12 FOR X=1TO3000:NEXT X
- 15 POKE 53280,1:POKE53281,1:PRINT"[147]":FOR X=1TO2000:NEXT X
- 20 PRINT"[147][144]":PRINT" FBI":PRINT""
- 25 PRINT" PERSONAL INQUIRY"
- 30 PRINT" [196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]"
- 35 PRINT""
- 95 PRINT" (YOU MUST ANSWER ALL QUESTIONS)"
- 105 PRINT""
- 110 PRINT" HIT (RETURN) WHEN YOU'RE READY ":PRINT""
- 115 GET G$:IF G$="" GOTO 115
- 120 PRINT CHR$(147):PRINT""
- 125 PRINT" TYPE IN YOUR NAME:":PRINT""
- 126 INPUT A$
- 130 PRINT CHR$(147):PRINT""
- 135 PRINT" YOUR STREET ADDRESS:":PRINT""
- 140 INPUT B$
- 150 PRINT CHR$(147):PRINT""
- 153 PRINT" YOUR CITY: ":PRINT""
- 155 INPUT C$
- 160 PRINT CHR$(147):PRINT""
- 163 PRINT" YOUR STATE: ":PRINT""
- 165 INPUT D$
- 170 PRINT CHR$(147):PRINT""
- 171 PRINT" LIST YOUR NICKNAMES:":PRINT""
- 172 PRINT" NICKNAME # 1:":PRINT""
- 173 INPUT E$
- 174 PRINT""
- 175 PRINT" NICKNAME # 2:":PRINT""
- 176 INPUT F$
- 180 PRINT CHR$(147):PRINT""
- 181 PRINT"PLACE OF BUSINESS (OR SCHOOL): ":PRINT""
- 183 INPUT H$
- 184 PRINT""
- 185 PRINT"FOREMAN OR TEACHER(FIRST AND LAST NAME):":PRINT""
- 186 INPUT Q$
- 187 PRINT""
- 188 PRINT"CO-WORKER (FIRST AND LAST NAME):":PRINT""
- 189 INPUT R$
- 190 PRINT CHR$(147):PRINT""
- 191 PRINT" LIST 3 FRIENDS (FIRST NAMES ONLY)":PRINT""
- 192 PRINT" FRIEND #1 (FIRST NAME ONLY):":PRINT""
- 193 INPUT I$:PRINT ""
- 194 PRINT" FRIEND #2 (FIRST NAME ONLY):":PRINT""
- 195 INPUT J$:PRINT""
- 196 PRINT" FRIEND #3 (FIRST NAME ONLY):":PRINT""
- 197 INPUT K$:PRINT""
- 200 PRINT CHR$(147): PRINT"":PRINT" YOUR FATHER'S FIRST NAME:":PRINT""
- 201 INPUT L$
- 202 PRINT"":PRINT" YOUR MOTHER'S FIRST NAME:":PRINT""
- 203 INPUT M$
- 205 PRINT CHR$(147):PRINT""
- 206 PRINT" PERSONAL PREFERENCES":PRINT""
- 207 PRINT" YOUR FAVORITE COLOR:":PRINT""
- 208 INPUT S$:PRINT""
- 209 PRINT" YOUR FAVORITE DISH:":PRINT""
- 210 INPUT T$:PRINT""
- 211 PRINT" YOUR FAVORITE ACTOR:":PRINT""
- 212 INPUT U$:PRINT""
- 213 PRINT" YOUR FAVORITE SINGER:":PRINT""
- 214 INPUT V$:PRINT""
- 215 PRINT" YOUR FAVORITE TV SHOW:":PRINT""
- 216 INPUT W$:PRINT""
- 217 PRINT" YOUR FAVORITE PRESIDENTS:":PRINT""
- 218 PRINT" PRESIDENT # 1:":PRINT""
- 219 INPUT X$:PRINT""
- 220 PRINT" PRESIDENT # 2:":PRINT""
- 221 INPUT XA$:PRINT""
- 222 PRINT" PRESIDENT # 3:":PRINT"
- 223 [133] XB$:[153]""
- 224 [153]" YOUR FAVORITE FRUIT OR VEGGIE:":[153]""
- 225 [133] Y$:[153]""
- 226 [153]" THE MOST IMPORTANT PART OF YOUR BODY:":[153]""
- 227 [133] Z$
- 230 [153] [199](147):[153]""
- 231 [153]" LIST YOUR HOBBIES:":[153]""
- 232 [153]" HOBBY # 1:":[153]""
- 233 [133] N$
- 234 [153]" HOBBY # 2:":[153]""
- 235 [133] O$
- 236 [153]" HOBBY # 3:":[153]""
- 237 [133] P$
- 530 [153] [199](147):[153]"":[153]" HIT (RETURN) TO READ FBI FILE"
- 531 [161] G$:[139] G$[178]"" [137] 531
- 1900 [153] [199](147):[151] 53280,0:[151] 53281,0:[153] [199](5)
- 2000 [153]""
- 2010 [153]" FBI OFFICIAL DOSSIER"
- 2015 [153]"........................................":[153]""
- 2016 [153]"":[153]" UNDESIRABLE FILE # 34768"
- 2017 [153]" ........................":[153]""
- 2018 [153]" HIT (RETURN) TO CONTINUE "
- 2019 [161] G$:[139] G$[178]"" [137] 2019
- 2020 [153]"":[153]" UNDESIRABLE FILE # 34768"
- 2021 [153]" ........................":[153]""
- 2025 [153]". SUBJECT:"
- 2030 [153]"."
- 2035 [153]". "[170]A$
- 2040 [153]"."
- 2041 [153]"."
- 2042 [153]"."
- 2043 [153]"."
- 2044 [153]"."
- 2045 [153]". LAST SEEN AT:
- 2047 PRINT"."
- 2050 PRINT". "+B$
- 2055 PRINT"."
- 2060 PRINT". "+C$+","
- 2065 PRINT"."
- 2070 PRINT". "+D$
- 2075 PRINT"."
- 2080 PRINT"."
- 2085 PRINT" HIT (RETURN) TO CONTINUE "
- 2090 GET G$:IF G$="" GOTO 2090
- 2100 PRINT"."
- 2101 PRINT"."
- 2102 PRINT"."
- 2103 PRINT"."
- 2104 PRINT"."
- 2105 PRINT". ALIASES:"
- 2106 PRINT"."
- 2110 PRINT". THREE-FINGER "+E$
- 2111 PRINT"."
- 2112 PRINT". "+F$ +" THE KNIFE"
- 2113 PRINT"."
- 2114 PRINT"."
- 2115 PRINT" HIT (RETURN) TO CONTINUE "
- 2116 GET G$:IF G$="" GOTO 2116
- 2120 PRINT"."
- 2121 PRINT"."
- 2122 PRINT"."
- 2123 PRINT"."
- 2124 PRINT"."
- 2125 PRINT". HANGOUT:"
- 2126 PRINT"."
- 2127 PRINT". "+H$
- 2128 PRINT"."
- 2130 PRINT"."
- 2131 PRINT" HIT (RETURN) TO CONTINUE[160][160][160][160][160][160][160][160]"
- 2132 GET G$:IF G$="" GOTO 2132
- 2133 PRINT"."
- 2134 PRINT"."
- 2135 PRINT". GANG MEMBERS:"
- 2136 PRINT"."
- 2137 PRINT". "+I$+" THE DIP"
- 2138 PRINT"."
- 2139 PRINT". KILLER "+J$
- 2140 PRINT"."
- 2141 PRINT". BRASS KNUCKLES "+K$
- 2142 PRINT"."
- 2143 PRINT". "+L$+" THE FENCE"
- 2144 PRINT"."
- 2145 PRINT". GUN MOLL "+M$
- 2146 PRINT"."
- 2147 PRINT"."
- 2148 PRINT"."
- 2149 PRINT"."
- 2150 PRINT". MAFIA CONTACTS:"
- 2151 PRINT"."
- 2152 PRINT". DON "+ Q$
- 2153 PRINT"."
- 2154 PRINT". CAPO "+ R$
- 2155 PRINT"."
- 2156 PRINT"."
- 2160 PRINT" HIT (RETURN) TO CONTINUE "
- 2161 GET G$:IF G$="" GOTO2161
- 2162 PRINT"."
- 2163 PRINT"."
- 2164 PRINT"."
- 2165 PRINT"."
- 2166 PRINT"."
- 2167 PRINT"."
- 2168 PRINT"."
- 2169 PRINT"."
- 2170 PRINT"."
- 2171 PRINT"."
- 2172 PRINT"."
- 2173 PRINT"."
- 2174 PRINT"."
- 2175 PRINT"."
- 2178 PRINT"."
- 2179 PRINT"."
- 2180 PRINT"."
- 2181 PRINT"."
- 2182 PRINT"."
- 2183 PRINT"."
- 2190 PRINT". PERSONAL PROFILE ON:"
- 2191 PRINT"."
- 2192 PRINT". "+A$
- 2193 PRINT"."
- 2194 PRINT"."
- 2195 PRINT" HIT (RETURN) TO CONTINUE"
- 2196 GET G$:IF G$="" GOTO 2196
- 2197 PRINT"."
- 2198 PRINT"."
- 2199 PRINT"."
- 3000 PRINT". "+A$ +" IS CONSIDERED TO BE"
- 3001 PRINT"."
- 3002 PRINT". DANGEROUS."
- 3003 PRINT"."
- 3004 PRINT". APPROACH WITH CAUTION..."
- 3005 PRINT"."
- 3006 PRINT". " +A$+" HAS BEEN KNOWN TO HIDE"
- 3007 PRINT"."
- 3008 PRINT". LETHAL WEAPONS IN "+T$+"."
- 3010 PRINT"."
- 3011 PRINT"."
- 3012 PRINT" HIT (RETURN) TO CONTINUE "
- 3013 GET G$:IF G$="" GOTO 3013
- 3015 PRINT"."
- 3016 PRINT"."
- 3017 PRINT"."
- 3018 PRINT"."
- 3019 PRINT"."
- 3020 PRINT"."
- 3021 PRINT"."
- 3022 PRINT"."
- 3023 PRINT"."
- 3024 PRINT"."
- 3025 PRINT"."
- 3026 PRINT". "+A$+ " HAD BEEN THE MUSCLE":PRINT"."
- 3027 PRINT". BEHIND "+R$+"'S BOOKIE AND":PRINT"."
- 3028 PRINT". LOAN SHARKING OPERATION IN":PRINT"."
- 3029 PRINT". "+C$+ " DURING THE LATE 50'S":PRINT""
- 3030 PRINT"."
- 3031 PRINT"."
- 3032 PRINT"."
- 3034 PRINT"."
- 3035 PRINT"."
- 3036 PRINT" HIT (RETURN) TO CONTINUE "
- 3037 GET G$:IF G$="" GOTO 3037
- 3040 PRINT"."
- 3041 PRINT"."
- 3042 PRINT"."
- 3045 PRINT". AS A DILIGENT ENFORCEMENT AGENT":PRINT"."
- 3046 PRINT". IN ORGANIZED CRIME":PRINT"."
- 3047 PRINT" "+A$+ " WAS KNOWN TO ":PRINT"."
- 3048 PRINT". CUT OFF A CLIENT'S "+Z$:PRINT"."
- 3050 PRINT". FOR NON-PAYMENT OF A LOAN.":PRINT".":PRINT"."
- 3051 PRINT" HIT (RETURN) TO CONTINUE "
- 3052 GET G$:IF G$="" GOTO 3052
- 3053 PRINT"."
- 3054 PRINT"."
- 3055 PRINT". "+A$+" WAS ALSO SUSPECTED OF":PRINT"."
- 3056 PRINT". FORCE-FEEDING "+Y$+" TO ": PRINT"."
- 3057 PRINT". SOMEONE BECAUSE HE WAS WEARING "+S$:PRINT"."
- 3058 PRINT". PANTS.":PRINT".":PRINT"."
- 3060 PRINT" HIT (RETURN) TO CONTINUE "
- 3061 GET G$:IF G$="" GOTO 3061
- 3062 PRINT"."
- 3063 PRINT"."
- 3064 PRINT"."
- 3065 PRINT"."
- 3066 PRINT"."
- 3067 PRINT"."
- 3068 PRINT"."
- 3069 PRINT"."
- 3070 PRINT"."
- 3071 PRINT"."
- 3072 PRINT"."
- 3073 PRINT"."
- 3074 PRINT"."
- 3075 PRINT"."
- 3076 PRINT"."
- 3077 PRINT"."
- 3078 PRINT"."
- 3079 PRINT"."
- 3080 PRINT"."
- 3081 PRINT"."
- 3082 PRINT"."
- 3083 PRINT"."
- 3084 PRINT"."
- 3085 PRINT"."
- 3086 PRINT"."
- 3087 PRINT"."
- 3088 PRINT"."
- 3099 PRINT"."
- 4000 PRINT". CURRENTLY "+A$+" IS A":PRINT"."
- 4001 PRINT". MEMBER OF "+Q$+"'S CRIME ":PRINT"."
- 4002 PRINT". FAMILY IN EAST "+D$+".":PRINT"."
- 4003 PRINT". "+A$+" IS SUSPECTED OF ":PRINT"."
- 4004 PRINT". ATTEMPTED HITS AND MAYHEM ON":PRINT"."
- 4005 PRINT". "+U$+" AND "+V$+".":PRINT"."
- 4006 PRINT". "A$+" IS ALSO A SUSPECT IN":PRINT"."
- 4007 PRINT". THREATENING THE CAST OF ":PRINT"."
- 4008 PRINT". "W$+" WITH BODILY HARM.":PRINT".":PRINT".":PRINT"."
- 4110 PRINT" HIT (RETURN) TO CONTINUE"
- 4111 GET G$:IF G$="" GOTO 4111
- 4112 PRINT".":PRINT".":PRINT".":PRINT".":PRINT".":PRINT".":PRINT".":PRINT"."
- 4113 PRINT".":PRINT".":PRINT".":PRINT".":PRINT".":PRINT".":PRINT".":PRINT"."
- 4114 PRINT".":PRINT".":PRINT".":PRINT".":PRINT".":PRINT".":PRINT".":PRINT"."
- 4115 PRINT".":PRINT".":PRINT".":PRINT".":PRINT".":PRINT".":PRINT".":PRINT"."
- 4120 PRINT". "+A$+" MANAGED TO ESCAPE":PRINT"."
- 4121 PRINT". PROSECUTION ALL THESE YEARS":PRINT"."
- 4122 PRINT". BECAUSE OF THE BRILLIANT LAW FIRM OF":PRINT"."
- 4123 PRINT". "+X$+", "+XA$+" AND "+XB$:PRINT"."
- 4124 PRINT". RETAINED BY DON "+Q$+"'S":PRINT"."
- 4125 PRINT". NATIONAL CRIME FAMILY.":PRINT".":PRINT"."
- 4126 PRINT" HIT (RETURN) TO CONTINUE "
- 4127 GET G$:IF G$="" GOTO 4127
- 4130 PRINT".":PRINT".":PRINT".":PRINT".":PRINT".":PRINT".":PRINT".":PRINT"."
- 4131 PRINT".":PRINT".":PRINT".":PRINT".":PRINT".":PRINT".":PRINT".":PRINT"."
- 4132 PRINT".":PRINT".":PRINT".":PRINT".":PRINT".":PRINT".":PRINT".":PRINT"."
- 4133 PRINT".":PRINT".":PRINT".":PRINT".":PRINT".":PRINT".":PRINT".":PRINT"."
- 4150 PRINT". INDICTMENTS":PRINT".":PRINT"."
- 4151 PRINT". 1 COUNT OF "+O$ +" WITHOUT PERMIT":PRINT"."
- 4152 PRINT". 2 COUNTS OF FELONIOUS "+N$:PRINT"."
- 4153 PRINT". 3 COUNTS OF 3RD DEGREE "+P$:PRINT".":PRINT"."
- 5150 PRINT". CONVICTIONS:":PRINT""
- 5151 PRINT". NONE"
- 5152 PRINT"........................................"
- 5153 PRINT"":PRINT" HIT (RETURN) TO CLOSE FILE "
- 5155 GET G$:IF G$="" GOTO 5155
- 5160 PRINT CHR$(147)
- 5170 PRINT""
- 5175 PRINT " FBI FILE CLOSED"
- 5178 PRINT""
- 5180 END
-