home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Demos / PENTAGON-TERM (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  6KB  |  283 lines
  1. 1 Z=300:Z=20000
  2. 2 GOTO3
  3. 3 FORX=1TO2000:NEXT
  4. 4 PRINT
  5. 5 PRINT
  6. 6 PRINT
  7. 7 PRINT
  8. 8 PRINT
  9. 9 PRINT
  10. 10 POKE53280,0:POKE53281,0
  11. 20 PRINT"[208][197][206][212][193][199][207][206],[201][206][212][197][210][206][193][204][160][193][198][198][193][201][210][211]"
  12. 30 PRINT"[196]IALING........"
  13. 31 FORX=1TO3400:NEXT
  14. 40 PRINT"1";:FORX=1TO100:NEXT
  15. 50 PRINT"-8";:FORX=1TO2000:NEXT
  16. 60 PRINT"2";:FORX=1TO115:NEXT
  17. 70 PRINT"5";:FORX=1TO170:NEXT
  18. 80 PRINT"-7";:FORX=1TO2100:NEXT
  19. 90 PRINT"0";:FORX=1TO300:NEXT
  20. 100 PRINT"4";:FORX=1TO110:NEXT
  21. 110 PRINT"-5";:FORX=1TO1150:NEXT
  22. 120 PRINT"6";:FORX=1TO120:NEXT
  23. 130 PRINT"1";:FORX=1TO100:NEXT
  24. 140 PRINT"9";:FORX=1TO2000:NEXT
  25. 141 PRINT
  26. 142 PRINT
  27. 143 PRINT
  28. 145 PRINT
  29. 150 PRINT"[215]AITING FOR CARRIER.....";:FORX=1TO4000:NEXT
  30. 151 PRINT
  31. 152 PRINT
  32. 153 PRINT
  33. 154 PRINT
  34. 155 PRINT
  35. 156 PRINT
  36. 157 PRINT
  37. 158 PRINT
  38. 159 PRINT
  39. 160 PRINT
  40. 161 PRINT
  41. 162 PRINT
  42. 163 PRINT
  43. 164 PRINT
  44. 165 PRINT"[212]ERMINAL READY......."
  45. 166 PRINT"/";:FOR X=1TO100:NEXT
  46. 167 PRINT" /";:FORX=1TO150:NEXT
  47. 168 PRINT"  /";:FORX=1TO200:NEXT
  48. 169 PRINT"    /";:FORX=1TO250:NEXT
  49. 170 PRINT"     /";:FORX=1TO250:NEXT
  50. 171 PRINT
  51. 172 PRINT"****************************************"
  52. 173 PRINT
  53. 174 PRINT"****************************************"
  54. 175 PRINT
  55. 176 PRINT "   [217][207][213][160][200][193][214][197][160][195][207][206][206][197][195][212][197][196][160][212][207][160][212][200][197][160]"
  56. 177 PRINT"  [213][206][201][212][197][196][160][211][212][193][212][197][211][160][208][197][206][212][193][199][207][206][160][206][197][212][215][207][210][203]"
  57. 178 PRINT"[201]NCOMING CALLERS ARE SUBJECT TO"
  58. 179 PRINT"INVESTIGATION, OF CONNECTING PHONE.
  59. 180 [153]"(null)NAUTHORIZED PERSONS CONNECTING WILL"
  60. 185 [153]"SPEND A MINIMUM OF TWO YEARS IN FEDERAL"
  61. 190 [153]"PRISON!";:[129] X[178]1[164]5500:[130]
  62. 191 [153]
  63. 192 [153]
  64. 193 [153]
  65. 194 [153]
  66. 195 [153]"VALNTER YOUR AUTHORIZATION CODE"
  67. 196 [133]A$
  68. 197 [153]"LENHECKING FOR YOUR AUTHORIZATION";:[129]X[178]1[164]3000:[130]
  69. 198 [153]
  70. 199 [153]
  71. 200 [153]"VALNTER YOUR CODE NAME"
  72. 201 [133]A$
  73. 202 [153]"LENHECKING CODE NAME";:[129]X[178]1[164]3000:[130]
  74. 203 [153]
  75. 204 [153]
  76. 205 [153]
  77. 206 [153]"(null)ELCOME COMMANDER ";A$
  78. 207 [153]"ATNUTHORIZATION GRANTED FOR COMMPLETE"
  79. 208 [153]"ACCESS TO ALL SYSTEMS. "
  80. 209 [153]
  81. 210 [153];:[129] X[178]1[164]3000:[130]
  82. 211 [153]"****************(null)ATN(null)(null)RIGHT$(null)CHR$*****************"
  83. 212 [153]
  84. 213 [153]
  85. 214 [153]
  86. 215 [153]"ATNNY NON-GOVERMENTAL USAGE OF THIS"
  87. 217 [153]"NETWORK WILL RESULT IN AUTO. LOGOFF"
  88. 218 [153]",AND A COMPLETE INVESTIGATION OF THE "
  89. 219 [153]"CONNECTING PHONE LINE"
  90. 220 [153]
  91. 221 [129] X[178]1[164]6000:[130]
  92. 222 [153]
  93. 223 [153]
  94. 224 [153]
  95. 225 [153]
  96. 226 [153]
  97. 227 [153]
  98. 228 [153]
  99. 229 [153]
  100. 230 [153]
  101. 231 [153]"****************************************"
  102. 232 [153]"                 (null)ENU"
  103. 233 [153]"****************************************"
  104. 234 [153]
  105. 235 [153]
  106. 236 [153]
  107. 237 [153]
  108. 238 [153]"   ATN = LENOMM. WITH OTHER COUNTRIES"
  109. 239 [153]
  110. 240 [153]"   PEEK = (null)OP (null)ECRET AREA 1"
  111. 241 [153]
  112. 242 [153]"   LEN = PEEKUSINESS MONEY TRANSACTIONS"
  113. 243 [153]
  114. 244 [153]"VALNTER YOUR CHOICE":[133]A$
  115. 245 [153]
  116. 246 [153]
  117. 247 [139] A$[178]"C"[167]700
  118. 248 [139] A$[178]"B"[167]600
  119. 249 [139] A$[178]"A"[167]250
  120. 250 [153]""
  121. 251 [153]
  122. 252 [153]
  123. 253 [153]
  124. 254 [153]
  125. 255 [153]
  126. 256 [153]
  127. 257 [153]
  128. 258 [153]
  129. 259 [153]
  130. 260 [153]
  131. 261 [153]
  132. 262 [153]
  133. 263 [153]
  134. 264 [153]
  135. 265 [153]
  136. 266 [153]
  137. 267 [153]
  138. 268 [153]
  139. 269 [153]
  140. 270 [153]
  141. 271 [153]
  142. 272 [153]
  143. 273 [153]
  144. 274 [153]
  145. 275 [153]"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
  146. 278 [153]"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
  147. 279 [153]
  148. 280 [153]
  149. 281 [153]
  150. 282 [153]
  151. 283 [153]"   VALNTER CODE NUMBER FOR COUNTRY TO "
  152. 284 [153]"   COMMUNICATE WITH."
  153. 285 [133]A$
  154. 286 [153]
  155. 287 [153]
  156. 288 [153]
  157. 289 [153]"LENHECKING CODE NUMBER "A$;:[129]X[178]1[164]1000:[130]
  158. 290 [153]
  159. 291 [153]
  160. 292 [153]"LENODE ENTERED IMPLIES CONNECTION TO THE"
  161. 293 [153]"(null)USSIAN/ATNMERICAN VALMBASSY, (null)OSCOW."
  162. 294 [153]""
  163. 295 [153]
  164. 296 [153]
  165. 297 [129]X[178]1[164]2000:[130]
  166. 298 [153]"(null)AIT WHILE CALL IS TRANSFERED.";:[129]X[178]1[164]10000:[130]
  167. 299 [153]"STR$IALING...";:[129] X[178]1[164]1000
  168. 300 [153]
  169. 301 [153]"(null)AITING FOR RESPONSE....";:[129] X[178]1[164]2000:[130]
  170. 302 [153]" LENONNECTED";:[129]X[178]1[164]700:[130]
  171. 304 [153]
  172. 305 [153]
  173. 306 [153]
  174. 307 [153]
  175. 308 [153]
  176. 309 [153]
  177. 310 [153]
  178. 311 [153]
  179. 312 [153]
  180. 313 [153]"----------------------------------------"
  181. 314 [153]
  182. 315 [153]"      (null)USSIAN/ATNMERICAN VALMBASSY"
  183. 316 [153]"       LENOMMUNICATION (null)ETWORK"
  184. 317 [153]
  185. 318 [153]"----------------------------------------"
  186. 319 [129]X[178]1[164]5000:[130]
  187. 320 [153]"LEFT$ELLO, COMMANDER,  LEFT$OW ARE YOU TODAY?"
  188. 321 [133]A$
  189. 322 [139]A$[178]"F"[167][137]328
  190. 323 [139] A$[178]"S"[167]500
  191. 324 [139]A$[178]"T"[167]500
  192. 325 [139] A$[178]"B"[167]500
  193. 326 [139]A$[178]"G"[167][137]328
  194. 327 [139] A$[178]""[167]
  195. 328 [129]X[178]1[164]10000:[153]"CHR$OOD, RIGHT$M GLAD TO HEAR FROM YOU AGAIN."
  196. 329 [129]X[178]1[164]1000:[153]"(null)HAT CAN RIGHT$ DO FOR YOU?"
  197. 330 [137]501
  198. 500 [129]X[178]1[164]10000:[153]"(null)ORRY, WHAT CAN RIGHT$ DO FOR YOU"
  199. 501 [133]A$
  200. 502 [153]"LENOMMANDER, THAT IS AN UNAUTHORIZED AND"
  201. 503 [153]"ILLEGAL PROCEDURE, YOU ARE BEING"
  202. 504 [153]"LOGGED OFF AND REPORTED TO THE "
  203. 505 [153]"PROPER AUTHORITIES!!!!!!!!
  204. 506 FORX=1TO2000:NEXT
  205. 507 GOTO1000
  206. 600 PRINT"----------------------------------------"
  207. 601 PRINT"             [212][207][208][160][211][197][195][210][197][212]!!!"
  208. 602 PRINT"----------------------------------------"
  209. 603 PRINT
  210. 604 PRINT
  211. 605 PRINT
  212. 606 PRINT"    [212]HE FOLLOWING IS TOP SECRET, "
  213. 607 PRINT"[213]NITED [211]TATES [199]OVERMENT INFORMATION."
  214. 608 PRINT"[193]NY PERSON OR PERSONS VIEWING THIS"
  215. 609 PRINT"INFORMATION WITHOUT CONSENT FROM THE"
  216. 610 PRINT"[208]RESIDENT OF THE [213]NITED [211]TATES, WILL BE"
  217. 611 PRINT"CHARGED FOR SUSPISION OF TREASON, AND"
  218. 612 PRINT"WILL PAY THE MAXIMUM SENTENCE OF "
  219. 613 PRINT"EXECUTION!"
  220. 614 PRINT
  221. 615 PRINT"----------------------------------------"
  222. 616 FORX=1TO15000:NEXT
  223. 617 PRINT"[197]NTER TOP SECRET VERIFICATION NUMBER"
  224. 618 INPUTA$
  225. 619 PRINT"[195]HECKING VERIFICATION NUMBER ";A$
  226. 620 FOR X=1TO5000:NEXT
  227. 621 PRINT
  228. 622 PRINT"[214]ERIFICATION FAILED, TRY AGAIN."
  229. 623 INPUTA$
  230. 624 FORX=1TO5000:NEXT
  231. 625 PRINT"[211]ECOND TRY FAILED, TRY AGAIN."
  232. 626 INPUTA$
  233. 627 FORX=1TO5000:NEXT
  234. 628 PRINT"THIRD VERIFICATION FAILED..."
  235. 629 FORX=1TO6000:NEXT
  236. 630 PRINT"[193]UTO LOG OF IN EFFECT."
  237. 631 FOR X=1TO6000:NEXT
  238. 632 GOTO1000
  239. 700 PRINT"----------------------------------------"
  240. 701 PRINT"    [208]ENTAGONS [205]ONITARY [212]RANSACTIONS"
  241. 702 PRINT"----------------------------------------"
  242. 703 PRINT
  243. 704 PRINT
  244. 705 PRINT
  245. 706 PRINT
  246. 707 PRINT"        [193] = [214]IEW THE ACCOUNT."
  247. 708 PRINT
  248. 709 PRINT
  249. 710 PRINT"        [194] = [195]HANGE YOUR ACCOUNT."
  250. 711 PRINT
  251. 712 PRINT
  252. 713 PRINT"        [195] = [214]IEW OTHER ACCOUNTS."
  253. 714 PRINT
  254. 715 PRINT
  255. 716 PRINT
  256. 717 PRINT
  257. 718 PRINT
  258. 719 PRINT
  259. 720 PRINT
  260. 721 PRINT
  261. 722 INPUT"[197]NTER YOUR CHOICE ";A$
  262. 723 FORX=1TO3000:NEXT
  263. 724 INPUT"[197]NTER SECRET ACCOUNT NUMBER ";A$
  264. 725 FORX=1TO3000:NEXT
  265. 726 PRINT"[193]CCOUNT NUMBER INCORRECT, TRY AGAIN."
  266. 727 INPUTA$
  267. 728 FORX=1TO3000:NEXT
  268. 729 PRINT"[215]RONG,,,,"
  269. 730 FORX=1TO2000:NEXT
  270. 731 PRINT"[193] = TRY AGAIN   [194] = [210]ETURN TO MENU"
  271. 732 INPUTA$
  272. 733 IFA$="A"THEN700
  273. 734 IF A$="B"THEN231
  274. 1000 PRINT"[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  275. 1100 PRINT"     [212]HANK YOU FOR CALLING THE "
  276. 1200 PRINT" [208]ENTAGONS INTERNAL AFFAIRS NETWORK"
  277. 1250 FORX=1TO2000:NEXT
  278. 1300 PRINT"[195]HECKING YOUR PHONE NUMBER FOR SECURITY"
  279. 1350 FORX=1TO10000:NEXT
  280. 1400 PRINT"[201]F YOU WERE AUTO LOGGED OF CALL"
  281. 1450 FORX=1TO2000:NEXT
  282. 1500 PRINT"[215][197][194][160][207][198][160][196][193][210][203][206][197][211][211]...(502)439-1936"
  283.