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