home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / Misc / FBI-FILE (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  7KB  |  323 lines
  1. 5 REM FBI FILE BY SAL AGLIANO
  2. 6 POKE 53280,0:POKE 53281,0
  3. 7 PRINT"[147]     THIS PROGRAM IS JUST FOR FUN!"
  4. 8 PRINT"    IT IS NOT TO BE TAKEN SERIOSLY!"
  5. 9 FOR X=1TO 2000:NEXT X
  6. 10 PRINT"     PROGRAM PREPARED BY SAL AGLIANO    "
  7. 12 FOR X=1TO3000:NEXT X
  8. 15 POKE 53280,1:POKE53281,1:PRINT"[147]":FOR X=1TO2000:NEXT X
  9. 20 PRINT"[147][144]":PRINT"                  FBI":PRINT""
  10. 25 PRINT"           PERSONAL INQUIRY"
  11. 30 PRINT"           [196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]"
  12. 35 PRINT""
  13. 95 PRINT"    (YOU MUST ANSWER ALL QUESTIONS)"
  14. 105 PRINT""
  15. 110 PRINT"   HIT (RETURN) WHEN YOU'RE READY      ":PRINT""
  16. 115 GET G$:IF G$="" GOTO 115
  17. 120 PRINT CHR$(147):PRINT""
  18. 125 PRINT"     TYPE IN YOUR NAME:":PRINT""
  19. 126 INPUT A$
  20. 130 PRINT CHR$(147):PRINT""
  21. 135 PRINT"     YOUR STREET ADDRESS:":PRINT""
  22. 140 INPUT B$
  23. 150 PRINT CHR$(147):PRINT""
  24. 153 PRINT"     YOUR CITY:          ":PRINT""
  25. 155 INPUT C$
  26. 160 PRINT CHR$(147):PRINT""
  27. 163 PRINT"     YOUR STATE:         ":PRINT""
  28. 165 INPUT D$
  29. 170 PRINT CHR$(147):PRINT""
  30. 171 PRINT"     LIST YOUR NICKNAMES:":PRINT""
  31. 172 PRINT"     NICKNAME # 1:":PRINT""
  32. 173 INPUT E$
  33. 174 PRINT""
  34. 175 PRINT"     NICKNAME # 2:":PRINT""
  35. 176 INPUT F$
  36. 180 PRINT CHR$(147):PRINT""
  37. 181 PRINT"PLACE OF BUSINESS (OR SCHOOL):  ":PRINT""
  38. 183 INPUT H$
  39. 184 PRINT""
  40. 185 PRINT"FOREMAN OR TEACHER(FIRST AND LAST NAME):":PRINT""
  41. 186 INPUT Q$
  42. 187 PRINT""
  43. 188 PRINT"CO-WORKER (FIRST AND LAST NAME):":PRINT""
  44. 189 INPUT R$
  45. 190 PRINT CHR$(147):PRINT""
  46. 191 PRINT"    LIST 3 FRIENDS (FIRST NAMES ONLY)":PRINT""
  47. 192 PRINT"    FRIEND #1 (FIRST NAME ONLY):":PRINT""
  48. 193 INPUT I$:PRINT ""
  49. 194 PRINT"    FRIEND #2 (FIRST NAME ONLY):":PRINT""
  50. 195 INPUT J$:PRINT""
  51. 196 PRINT"    FRIEND #3 (FIRST NAME ONLY):":PRINT""
  52. 197 INPUT K$:PRINT""
  53. 200 PRINT CHR$(147):  PRINT"":PRINT"    YOUR FATHER'S FIRST NAME:":PRINT""
  54. 201 INPUT L$
  55. 202 PRINT"":PRINT"    YOUR MOTHER'S FIRST NAME:":PRINT""
  56. 203 INPUT M$
  57. 205 PRINT CHR$(147):PRINT""
  58. 206 PRINT"          PERSONAL PREFERENCES":PRINT""
  59. 207 PRINT" YOUR FAVORITE COLOR:":PRINT""
  60. 208 INPUT S$:PRINT""
  61. 209 PRINT" YOUR FAVORITE DISH:":PRINT""
  62. 210 INPUT T$:PRINT""
  63. 211 PRINT" YOUR FAVORITE ACTOR:":PRINT""
  64. 212 INPUT U$:PRINT""
  65. 213 PRINT" YOUR FAVORITE SINGER:":PRINT""
  66. 214 INPUT V$:PRINT""
  67. 215 PRINT" YOUR FAVORITE TV SHOW:":PRINT""
  68. 216 INPUT W$:PRINT""
  69. 217 PRINT" YOUR FAVORITE PRESIDENTS:":PRINT""
  70. 218 PRINT" PRESIDENT # 1:":PRINT""
  71. 219 INPUT X$:PRINT""
  72. 220 PRINT" PRESIDENT # 2:":PRINT""
  73. 221 INPUT XA$:PRINT""
  74. 222 PRINT" PRESIDENT # 3:":PRINT"
  75. 223 [133] XB$:[153]""
  76. 224 [153]" YOUR FAVORITE FRUIT OR VEGGIE:":[153]""
  77. 225 [133] Y$:[153]""
  78. 226 [153]" THE MOST IMPORTANT PART OF YOUR BODY:":[153]""
  79. 227 [133] Z$
  80. 230 [153] [199](147):[153]""
  81. 231 [153]"    LIST YOUR HOBBIES:":[153]""
  82. 232 [153]" HOBBY # 1:":[153]""
  83. 233 [133] N$
  84. 234 [153]" HOBBY # 2:":[153]""
  85. 235 [133] O$
  86. 236 [153]" HOBBY # 3:":[153]""
  87. 237 [133] P$
  88. 530 [153] [199](147):[153]"":[153]"     HIT (RETURN) TO READ FBI FILE"
  89. 531 [161] G$:[139] G$[178]"" [137] 531
  90. 1900 [153] [199](147):[151] 53280,0:[151] 53281,0:[153] [199](5)
  91. 2000 [153]""
  92. 2010 [153]"         FBI OFFICIAL DOSSIER"
  93. 2015 [153]"........................................":[153]""
  94. 2016 [153]"":[153]"      UNDESIRABLE FILE # 34768"
  95. 2017 [153]"      ........................":[153]""
  96. 2018 [153]"     HIT (RETURN) TO CONTINUE          "
  97. 2019 [161] G$:[139] G$[178]"" [137] 2019
  98. 2020 [153]"":[153]"      UNDESIRABLE FILE # 34768"
  99. 2021 [153]"      ........................":[153]""
  100. 2025 [153]".  SUBJECT:"
  101. 2030 [153]"."
  102. 2035 [153]".          "[170]A$
  103. 2040 [153]"."
  104. 2041 [153]"."
  105. 2042 [153]"."
  106. 2043 [153]"."
  107. 2044 [153]"."
  108. 2045 [153]".  LAST SEEN AT:
  109. 2047 PRINT"."
  110. 2050 PRINT".          "+B$
  111. 2055 PRINT"."
  112. 2060 PRINT".          "+C$+","
  113. 2065 PRINT"."
  114. 2070 PRINT".          "+D$
  115. 2075 PRINT"."
  116. 2080 PRINT"."
  117. 2085 PRINT"       HIT (RETURN) TO CONTINUE        "
  118. 2090 GET G$:IF G$="" GOTO 2090
  119. 2100 PRINT"."
  120. 2101 PRINT"."
  121. 2102 PRINT"."
  122. 2103 PRINT"."
  123. 2104 PRINT"."
  124. 2105 PRINT". ALIASES:"
  125. 2106 PRINT"."
  126. 2110 PRINT".           THREE-FINGER "+E$
  127. 2111 PRINT"."
  128. 2112 PRINT".           "+F$ +" THE KNIFE"
  129. 2113 PRINT"."
  130. 2114 PRINT"."
  131. 2115 PRINT"       HIT (RETURN) TO CONTINUE        "
  132. 2116 GET G$:IF G$="" GOTO 2116
  133. 2120 PRINT"."
  134. 2121 PRINT"."
  135. 2122 PRINT"."
  136. 2123 PRINT"."
  137. 2124 PRINT"."
  138. 2125 PRINT". HANGOUT:"
  139. 2126 PRINT"."
  140. 2127 PRINT".          "+H$
  141. 2128 PRINT"."
  142. 2130 PRINT"."
  143. 2131 PRINT"       HIT (RETURN) TO CONTINUE[160][160][160][160][160][160][160][160]"
  144. 2132 GET G$:IF G$="" GOTO 2132
  145. 2133 PRINT"."
  146. 2134 PRINT"."
  147. 2135 PRINT". GANG MEMBERS:"
  148. 2136 PRINT"."
  149. 2137 PRINT".           "+I$+" THE DIP"
  150. 2138 PRINT"."
  151. 2139 PRINT".           KILLER "+J$
  152. 2140 PRINT"."
  153. 2141 PRINT".           BRASS KNUCKLES "+K$
  154. 2142 PRINT"."
  155. 2143 PRINT".           "+L$+" THE FENCE"
  156. 2144 PRINT"."
  157. 2145 PRINT".           GUN MOLL "+M$
  158. 2146 PRINT"."
  159. 2147 PRINT"."
  160. 2148 PRINT"."
  161. 2149 PRINT"."
  162. 2150 PRINT". MAFIA CONTACTS:"
  163. 2151 PRINT"."
  164. 2152 PRINT".           DON "+ Q$
  165. 2153 PRINT"."
  166. 2154 PRINT".           CAPO "+ R$
  167. 2155 PRINT"."
  168. 2156 PRINT"."
  169. 2160 PRINT"       HIT (RETURN) TO CONTINUE        "
  170. 2161 GET G$:IF G$="" GOTO2161
  171. 2162 PRINT"."
  172. 2163 PRINT"."
  173. 2164 PRINT"."
  174. 2165 PRINT"."
  175. 2166 PRINT"."
  176. 2167 PRINT"."
  177. 2168 PRINT"."
  178. 2169 PRINT"."
  179. 2170 PRINT"."
  180. 2171 PRINT"."
  181. 2172 PRINT"."
  182. 2173 PRINT"."
  183. 2174 PRINT"."
  184. 2175 PRINT"."
  185. 2178 PRINT"."
  186. 2179 PRINT"."
  187. 2180 PRINT"."
  188. 2181 PRINT"."
  189. 2182 PRINT"."
  190. 2183 PRINT"."
  191. 2190 PRINT". PERSONAL PROFILE ON:"
  192. 2191 PRINT"."
  193. 2192 PRINT".           "+A$
  194. 2193 PRINT"."
  195. 2194 PRINT"."
  196. 2195 PRINT"       HIT (RETURN) TO CONTINUE"
  197. 2196 GET G$:IF G$="" GOTO 2196
  198. 2197 PRINT"."
  199. 2198 PRINT"."
  200. 2199 PRINT"."
  201. 3000 PRINT".    "+A$ +" IS CONSIDERED TO BE"
  202. 3001 PRINT"."
  203. 3002 PRINT". DANGEROUS."
  204. 3003 PRINT"."
  205. 3004 PRINT". APPROACH WITH CAUTION..."
  206. 3005 PRINT"."
  207. 3006 PRINT". " +A$+" HAS BEEN KNOWN TO HIDE"
  208. 3007 PRINT"."
  209. 3008 PRINT". LETHAL WEAPONS IN "+T$+"."
  210. 3010 PRINT"."
  211. 3011 PRINT"."
  212. 3012 PRINT"       HIT (RETURN) TO CONTINUE        "
  213. 3013 GET G$:IF G$="" GOTO 3013
  214. 3015 PRINT"."
  215. 3016 PRINT"."
  216. 3017 PRINT"."
  217. 3018 PRINT"."
  218. 3019 PRINT"."
  219. 3020 PRINT"."
  220. 3021 PRINT"."
  221. 3022 PRINT"."
  222. 3023 PRINT"."
  223. 3024 PRINT"."
  224. 3025 PRINT"."
  225. 3026 PRINT".    "+A$+ " HAD BEEN THE MUSCLE":PRINT"."
  226. 3027 PRINT". BEHIND "+R$+"'S BOOKIE AND":PRINT"."
  227. 3028 PRINT". LOAN SHARKING OPERATION IN":PRINT"."
  228. 3029 PRINT". "+C$+ " DURING THE LATE 50'S":PRINT""
  229. 3030 PRINT"."
  230. 3031 PRINT"."
  231. 3032 PRINT"."
  232. 3034 PRINT"."
  233. 3035 PRINT"."
  234. 3036 PRINT"       HIT (RETURN) TO CONTINUE        "
  235. 3037 GET G$:IF G$="" GOTO 3037
  236. 3040 PRINT"."
  237. 3041 PRINT"."
  238. 3042 PRINT"."
  239. 3045 PRINT". AS A DILIGENT ENFORCEMENT AGENT":PRINT"."
  240. 3046 PRINT". IN ORGANIZED CRIME":PRINT"."
  241. 3047 PRINT"  "+A$+ " WAS KNOWN TO ":PRINT"."
  242. 3048 PRINT". CUT OFF A CLIENT'S "+Z$:PRINT"."
  243. 3050 PRINT". FOR NON-PAYMENT OF A LOAN.":PRINT".":PRINT"."
  244. 3051 PRINT"       HIT (RETURN) TO CONTINUE        "
  245. 3052 GET G$:IF G$="" GOTO 3052
  246. 3053 PRINT"."
  247. 3054 PRINT"."
  248. 3055 PRINT". "+A$+" WAS ALSO SUSPECTED OF":PRINT"."
  249. 3056 PRINT". FORCE-FEEDING "+Y$+" TO ": PRINT"."
  250. 3057 PRINT". SOMEONE BECAUSE HE WAS WEARING "+S$:PRINT"."
  251. 3058 PRINT". PANTS.":PRINT".":PRINT"."
  252. 3060 PRINT"       HIT (RETURN) TO CONTINUE        "
  253. 3061 GET G$:IF G$="" GOTO 3061
  254. 3062 PRINT"."
  255. 3063 PRINT"."
  256. 3064 PRINT"."
  257. 3065 PRINT"."
  258. 3066 PRINT"."
  259. 3067 PRINT"."
  260. 3068 PRINT"."
  261. 3069 PRINT"."
  262. 3070 PRINT"."
  263. 3071 PRINT"."
  264. 3072 PRINT"."
  265. 3073 PRINT"."
  266. 3074 PRINT"."
  267. 3075 PRINT"."
  268. 3076 PRINT"."
  269. 3077 PRINT"."
  270. 3078 PRINT"."
  271. 3079 PRINT"."
  272. 3080 PRINT"."
  273. 3081 PRINT"."
  274. 3082 PRINT"."
  275. 3083 PRINT"."
  276. 3084 PRINT"."
  277. 3085 PRINT"."
  278. 3086 PRINT"."
  279. 3087 PRINT"."
  280. 3088 PRINT"."
  281. 3099 PRINT"."
  282. 4000 PRINT".    CURRENTLY "+A$+" IS A":PRINT"."
  283. 4001 PRINT". MEMBER OF "+Q$+"'S CRIME ":PRINT"."
  284. 4002 PRINT". FAMILY IN EAST "+D$+".":PRINT"."
  285. 4003 PRINT". "+A$+" IS SUSPECTED OF ":PRINT"."
  286. 4004 PRINT". ATTEMPTED HITS AND MAYHEM ON":PRINT"."
  287. 4005 PRINT". "+U$+" AND "+V$+".":PRINT"."
  288. 4006 PRINT". "A$+" IS ALSO A SUSPECT IN":PRINT"."
  289. 4007 PRINT". THREATENING THE CAST OF ":PRINT"."
  290. 4008 PRINT". "W$+" WITH BODILY HARM.":PRINT".":PRINT".":PRINT"."
  291. 4110 PRINT"       HIT (RETURN) TO CONTINUE"
  292. 4111 GET G$:IF G$="" GOTO 4111
  293. 4112 PRINT".":PRINT".":PRINT".":PRINT".":PRINT".":PRINT".":PRINT".":PRINT"."
  294. 4113 PRINT".":PRINT".":PRINT".":PRINT".":PRINT".":PRINT".":PRINT".":PRINT"."
  295. 4114 PRINT".":PRINT".":PRINT".":PRINT".":PRINT".":PRINT".":PRINT".":PRINT"."
  296. 4115 PRINT".":PRINT".":PRINT".":PRINT".":PRINT".":PRINT".":PRINT".":PRINT"."
  297. 4120 PRINT".  "+A$+" MANAGED TO ESCAPE":PRINT"."
  298. 4121 PRINT". PROSECUTION ALL THESE YEARS":PRINT"."
  299. 4122 PRINT". BECAUSE OF THE BRILLIANT LAW FIRM OF":PRINT"."
  300. 4123 PRINT".  "+X$+", "+XA$+" AND "+XB$:PRINT"."
  301. 4124 PRINT". RETAINED BY DON "+Q$+"'S":PRINT"."
  302. 4125 PRINT". NATIONAL CRIME FAMILY.":PRINT".":PRINT"."
  303. 4126 PRINT"       HIT (RETURN) TO CONTINUE        "
  304. 4127 GET G$:IF G$="" GOTO 4127
  305. 4130 PRINT".":PRINT".":PRINT".":PRINT".":PRINT".":PRINT".":PRINT".":PRINT"."
  306. 4131 PRINT".":PRINT".":PRINT".":PRINT".":PRINT".":PRINT".":PRINT".":PRINT"."
  307. 4132 PRINT".":PRINT".":PRINT".":PRINT".":PRINT".":PRINT".":PRINT".":PRINT"."
  308. 4133 PRINT".":PRINT".":PRINT".":PRINT".":PRINT".":PRINT".":PRINT".":PRINT"."
  309. 4150 PRINT". INDICTMENTS":PRINT".":PRINT"."
  310. 4151 PRINT".  1 COUNT OF "+O$ +" WITHOUT PERMIT":PRINT"."
  311. 4152 PRINT".  2 COUNTS OF FELONIOUS "+N$:PRINT"."
  312. 4153 PRINT".  3 COUNTS OF 3RD DEGREE "+P$:PRINT".":PRINT"."
  313. 5150 PRINT". CONVICTIONS:":PRINT""
  314. 5151 PRINT".            NONE"
  315. 5152 PRINT"........................................"
  316. 5153 PRINT"":PRINT"       HIT (RETURN) TO CLOSE FILE      "
  317. 5155 GET G$:IF G$="" GOTO 5155
  318. 5160 PRINT CHR$(147)
  319. 5170 PRINT""
  320. 5175 PRINT "             FBI FILE CLOSED"
  321. 5178 PRINT""
  322. 5180 END
  323.