1 REM 5 PR# 3: TEXT : HOME : PRINT CHR$(24);: SPEED= 170 10 PRINT "WELC";: POKE 49200,0 11 PRINT "OME ";: POKE 49200,0 12 PRINT "TO R";: POKE 49200,0 13 PRINT "OBCO";: POKE 49200,0 14 PRINT " IND";: POKE 49200,0 15 PRINT "USTR";: POKE 49200,0 16 PRINT "IES ";: POKE 49200,0 17 PRINT "(TM)";: POKE 49200,0 18 PRINT " TER";: POKE 49200,0 19 PRINT "MLINK";: POKE 49200,0 20 PRINT : PRINT 21 T1$ = "LOGON THEWHEELMAN282" 30 A$ = "SET TERMINAL/INQUIRE" 40 B$ = "SET FILE/PROTECTION-OWNER.RWED ACCOUNTS.F" 50 C$ = "SET HALT/RESTART MAINT" 60 D$ = "RUN DEBUG/ACCOUNTS.F" 70 INPUT "> ";IA$ 71 IF IA$ = T1$ THEN GOTO 1009 80 IF IA$ = A$ THEN PRINT : PRINT "RIT-";: POKE 49200,0: PRINT "V300": POKE 49200,0: PRINT : GOTO 100 81 IF IA$ > ";IB$ 110 IF IB$ = B$ THEN GOTO 130 120 IF IB$ > ";IC$ 140 IF IC$ = C$ THEN GOTO 158 150 IF IC$ > ";ID$ 230 IF ID$ = D$ THEN SPEED= 0: PRINT " ";: GOTO 300 240 IF ID$ > 300 CLEAR : HOME : SPEED= 170 301 REM 309 Z = 4 310 DIM AR$(4) 311 AR$(0) = "L":AR$(1) = "O":AR$(2) = "W":AR$(3) = "E":AR$(4) = "R" 312 W1$ = "JAMES" 313 W2$ = "OFFER" 314 W3$ = "APPLE" 315 W4$ = "FUZZY" 316 W5$ = "JIFFY" 317 W6$ = "CAGES" 318 W7$ = "CARES" 319 W8$ = "QUICK" 320 W9$ = "CRAZY" 321 WA$ = "TRACK" 322 WB$ = "JERKY" 323 WC$ = "CAVES" 324 WD$ = "UNZIP" 325 WE$ = "CREED" 326 WF$ = "LOWER" 327 WG$ = "ARMOR" 328 WH$ = "TIRED" 328 AN$ = WF$ 388 REM 389 HTAB 41: VTAB 22: PRINT ">" 390 HTAB 1: VTAB 1: PRINT "ROBC";: POKE 49200,0 391 PRINT "O IN";: POKE 49200,0 392 PRINT "DUST";: POKE 49200,0 393 PRINT "RIES";: POKE 49200,0 394 PRINT " (TM";: POKE 49200,0 395 PRINT ") TE";: POKE 49200,0 396 PRINT "RMLI";: POKE 49200,0 397 PRINT "NK P";: POKE 49200,0 398 PRINT "ROTO";: POKE 49200,0 399 PRINT "COL": POKE 49200,0 400 IF Z >1 THEN PRINT "ENTE";: POKE 49200,0: PRINT "R PA";: POKE 49200,0: PRINT "SSWO";: POKE 49200,0: PRINT "RD N";: POKE 49200,0: PRINT "OW": POKE 49200,0: PRINT 401 VTAB 2: IF Z = 1 THEN INVERSE : PRINT "!!! WARNING: LOCKOUT IMMINENT !!!": NORMAL : PRINT : GOTO 407 402 VTAB 4: IF Z = 4 THEN PRINT Z" AT";: POKE 49200,0: PRINT "TEMP";: POKE 49200,0: PRINT "T(S)";: POKE 49200,0: PRINT " LEF";: POKE 49200,0: PRINT "T: ";: POKE 49200,0 403 IF Z = 4 THEN INVERSE : PRINT " ";: NORMAL : PRINT " ";: INVERSE : PRINT " ";: POKE 49200,0: NORMAL : PRINT " ";: INVERSE : PRINT " ";: NORMAL : PRINT " ";: POKE 49200,0: PRINT " "; 404 IF Z = 4 THEN INVERSE : PRINT " ": NORMAL : PRINT : SPEED= 255: GOSUB 412: GOTO 448 405 VTAB 4: PRINT CHR$(26);: IF Z = 3 THEN PRINT Z" ATTEMPT(S) LEFT: ";: INVERSE : PRINT " ";: NORMAL : PRINT " ";: INVERSE : PRINT " ";: NORMAL : PRINT " ";: INVERSE : PRINT " ": NORMAL : PRINT : GOTO 496 406 VTAB 4: PRINT CHR$(26);: IF Z = 2 THEN PRINT Z" ATTEMPT(S) LEFT: ";: INVERSE : PRINT " ";: NORMAL : PRINT " ";: INVERSE : PRINT " ": NORMAL : PRINT : GOTO 549 407 VTAB 4: PRINT CHR$(26);: IF Z = 1 THEN PRINT Z" ATTEMPT(S) LEFT: ";: INVERSE : PRINT " ": NORMAL : PRINT : GOTO 608 408 VTAB 4: PRINT CHR$(26);: IF Z = 0 THEN PRINT Z" ATTEMPT(S) LEFT: ";: PRINT : GOTO 671 410 REM 411 REM 412 PRINT "0xF9";: POKE 49200,0: PRINT "2C ";: FOR B = 1 TO 12: READ N: PRINT CHR$(N);: NEXT B: PRINT 413 PRINT "0xF9";: POKE 49200,0: PRINT "38 ";: FOR B = 1 TO 3: READ N: PRINT CHR$(N);: NEXT B: PRINT W1$;: FOR B = 1 TO 4: READ N: PRINT CHR$(N);: NEXT B: PRINT 414 PRINT "0xF9";: POKE 49200,0: PRINT "44 ";: FOR B = 1 TO 12: READ N: PRINT CHR$(N);: NEXT B: PRINT 415 PRINT "0xF9";: POKE 49200,0: PRINT "50 ";: PRINT W2$;: FOR B = 1 TO 7: READ N: PRINT CHR$(N);: NEXT B: PRINT 416 PRINT "0xF9";: POKE 49200,0: PRINT "5C ";: FOR B = 1 TO 12: READ N: PRINT CHR$(N);: NEXT B: PRINT 417 PRINT "0xF9";: POKE 49200,0: PRINT "68 ";: FOR B = 1 TO 12: READ N: PRINT CHR$(N);: NEXT B: PRINT 418 PRINT "0xF9";: POKE 49200,0: PRINT "74 ";: FOR B = 1 TO 5: READ N: PRINT CHR$(N);: NEXT B: PRINT W3$;: FOR B = 1 TO 2: READ N: PRINT CHR$(N);: NEXT B: PRINT 419 PRINT "0xF9";: POKE 49200,0: PRINT "80 ";: FOR B = 1 TO 12: READ N: PRINT CHR$(N);: NEXT B: PRINT 420 PRINT "0xF9";: POKE 49200,0: PRINT "8C ";: FOR B = 1 TO 1: READ N: PRINT CHR$(N);: NEXT B: PRINT W4$;: FOR B = 1 TO 6: READ N: PRINT CHR$(N);: NEXT B: PRINT 421 PRINT "0xF9";: POKE 49200,0: PRINT "98 ";: FOR B = 1 TO 3: READ N: PRINT CHR$(N);: NEXT B: PRINT W5$;: FOR B = 1 TO 4: READ N: PRINT CHR$(N);: NEXT B: PRINT 422 PRINT "0xF9";: POKE 49200,0: PRINT "A4 ";: FOR B = 1 TO 12: READ N: PRINT CHR$(N);: NEXT B: PRINT 423 PRINT "0xF9";: POKE 49200,0: PRINT "B0 ";: FOR B = 1 TO 12: READ N: PRINT CHR$(N);: NEXT B: PRINT 424 PRINT "0xF9";: POKE 49200,0: PRINT "BC ";: FOR B = 1 TO 7: READ N: PRINT CHR$(N);: NEXT B: PRINT W6$ 425 PRINT "0xF9";: POKE 49200,0: PRINT "C8 ";: FOR B = 1 TO 4: READ N: PRINT CHR$(N);: NEXT B: PRINT W7$;: FOR B = 1 TO 3: READ N: PRINT CHR$(N);: NEXT B: PRINT 426 PRINT "0xF9";: POKE 49200,0: PRINT "D4 ";: FOR B = 1 TO 5: READ N: PRINT CHR$(N);: NEXT B: PRINT W8$;: FOR B = 1 TO 2: READ N: PRINT CHR$(N);: NEXT B: PRINT 427 PRINT "0xF9";: POKE 49200,0: PRINT "E0 ";: FOR B = 1 TO 12: READ N: PRINT CHR$(N);: NEXT B: PRINT 428 PRINT "0xF9";: POKE 49200,0: PRINT "EC ";: PRINT W9$;: FOR B = 1 TO 7: READ N: PRINT CHR$(N);: NEXT B 429 REM 430 HTAB 20: VTAB 6: PRINT " 0xF";: POKE 49200,0: PRINT "9F8 ";: FOR B = 1 TO 6: READ N: PRINT CHR$(N);: NEXT B: PRINT WA$;: FOR B = 1 TO 1: READ N: PRINT CHR$(N);: NEXT B: PRINT 431 HTAB 20: VTAB 7: PRINT " 0xF";: POKE 49200,0: PRINT "A04 ";: FOR B = 1 TO 12: READ N: PRINT CHR$(N);: NEXT B: PRINT 432 HTAB 20: VTAB 8: PRINT " 0xF";: POKE 49200,0: PRINT "A10 ";: FOR B = 1 TO 12: READ N: PRINT CHR$(N);: NEXT B: PRINT 433 HTAB 20: VTAB 9: PRINT " 0xF";: POKE 49200,0: PRINT "A1C ";: FOR B = 1 TO 12: READ N: PRINT CHR$(N);: NEXT B: PRINT 434 HTAB 20: VTAB 10: PRINT " 0xF";: POKE 49200,0: PRINT "A28 ";: FOR B = 1 TO 4: READ N: PRINT CHR$(N);: NEXT B: PRINT WB$;: FOR B = 1 TO 3: READ N: PRINT CHR$(N);: NEXT : PRINT 435 HTAB 20: VTAB 11: PRINT " 0xF";: POKE 49200,0: PRINT "A34 "WC$;: FOR B = 1 TO 7: READ N: PRINT CHR$(N);: NEXT B: PRINT 436 HTAB 20: VTAB 12: PRINT " 0xF";: POKE 49200,0: PRINT "A40 ";: FOR B = 1 TO 12: READ N: PRINT CHR$(N);: NEXT B: PRINT 437 HTAB 20: VTAB 13: PRINT " 0xF";: POKE 49200,0: PRINT "A10 ";: FOR B = 1 TO 12: READ N: PRINT CHR$(N);: NEXT B: PRINT 438 HTAB 20: VTAB 14: PRINT " 0xF";: POKE 49200,0: PRINT "A58 ";: FOR B = 1 TO 7: READ N: PRINT CHR$(N);: NEXT : PRINT WD$ 439 HTAB 20: VTAB 15: PRINT " 0xF";: POKE 49200,0: PRINT "A64 ";: FOR B = 1 TO 12: READ N: PRINT CHR$(N);: NEXT B: PRINT 440 HTAB 20: VTAB 16: PRINT " 0xF";: POKE 49200,0: PRINT "A70 ";: FOR B = 1 TO 3: READ N: PRINT CHR$(N);: NEXT B: PRINT WE$;: FOR B = 1 TO 4: READ N: PRINT CHR$(N);: NEXT B: PRINT 441 HTAB 20: VTAB 17: PRINT " 0xF";: POKE 49200,0: PRINT "A7C ";: FOR B = 1 TO 12: READ N: PRINT CHR$(N);: NEXT B: PRINT 442 HTAB 20: VTAB 18: PRINT " 0xF";: POKE 49200,0: PRINT "A88 ";: FOR B = 1 TO 12: READ N: PRINT CHR$(N);: NEXT B: PRINT 443 HTAB 20: VTAB 19: PRINT " 0xF";: POKE 49200,0: PRINT "A94 ";: PRINT WF$;: FOR B = 1 TO 7: READ N: PRINT CHR$(N);: NEXT B: PRINT 444 HTAB 20: VTAB 20: PRINT " 0xF";: POKE 49200,0: PRINT "AA0 ";: FOR B = 1 TO 12: READ N: PRINT CHR$(N);: NEXT B: PRINT 445 HTAB 20: VTAB 21: PRINT " 0xF";: POKE 49200,0: PRINT "AAC ";: FOR B = 1 TO 6: READ N: PRINT CHR$(N);: NEXT B: PRINT WG$;: FOR B = 1 TO 1: READ N: PRINT CHR$(N);: NEXT B: PRINT 446 HTAB 20: VTAB 22: PRINT " 0xF";: POKE 49200,0: PRINT "AB8 ";: FOR B = 1 TO 4: READ N: PRINT CHR$(N);: NEXT B: PRINT WH$;: FOR B = 1 TO 3: READ N: PRINT CHR$(N);: NEXT B: PRINT 447 RETURN 448 REM 449 HTAB 41: VTAB 22 450 PRINT ">"; 451 GET A1$: HTAB 42: VTAB 22: PRINT A1$;: IF A1$ = CHR$(13) THEN GOTO 467 452 GET B1$: HTAB 43: VTAB 22: PRINT B1$;: IF B1$ = CHR$(13) THEN GOTO 467 453 GET C1$: HTAB 44: VTAB 22: PRINT C1$;: IF C1$ = CHR$(13) THEN GOTO 467 454 GET D1$: HTAB 45: VTAB 22: PRINT D1$;: IF D1$ = CHR$(13) THEN GOTO 467 455 GET E1$: HTAB 46: VTAB 22: PRINT E1$;: IF E1$ = CHR$(13) THEN GOTO 467 456 GET F1$: HTAB 47: VTAB 22: PRINT F1$;: IF F1$ = CHR$(13) THEN GOTO 467 457 GET G1$: HTAB 48: VTAB 22: PRINT G1$;: IF G1$ = CHR$(13) THEN GOTO 467 458 GET H1$: HTAB 49: VTAB 22: PRINT H1$;: IF H1$ = CHR$(13) THEN GOTO 467 459 GET I1$: HTAB 50: VTAB 22: PRINT I1$;: IF I1$ = CHR$(13) THEN GOTO 467 460 GET J1$: HTAB 51: VTAB 22: PRINT J1$;: IF J1$ = CHR$(13) THEN GOTO 467 461 GET K1$: HTAB 52: VTAB 22: PRINT K1$;: IF K1$ = CHR$(13) THEN GOTO 467 462 GET L1$: HTAB 53: VTAB 22: PRINT L1$;: IF L1$ = CHR$(13) THEN GOTO 467 463 GET M1$: HTAB 54: VTAB 22: PRINT M1$;: IF M1$ = CHR$(13) THEN GOTO 467 464 GET N1$: HTAB 55: VTAB 22: PRINT N1$;: IF N1$ = CHR$(13) THEN GOTO 467 465 GET O1$: HTAB 56: VTAB 22: PRINT O1$;: IF O1$ = CHR$(13) THEN GOTO 467 466 GET Z1$: IF Z1$ > < CHR$(13) THEN PRINT CHR$(7);: GOTO 466 467 HTAB 41: VTAB 16: IF A1$ +B1$ +C1$ +D1$ +E1$ = AN$ THEN PRINT ">"AN$: HTAB 41: VTAB 17: PRINT ">Exact match!": HTAB 41: VTAB 18: PRINT ">Please wait" 468 HTAB 41: VTAB 19: IF A1$ +B1$ +C1$ +D1$ +E1$ = AN$ THEN PRINT ">while system": HTAB 41: VTAB 20: PRINT ">is accessed.": HTAB 42: VTAB 22: PRINT CHR$(29): GOTO 950 469 Z = Z -1:C1 = 0 470 IF A1$ = AR$(0) THEN C1 = C1 +1 471 IF B1$ = AR$(1) THEN C1 = C1 +1 472 IF C1$ = AR$(2) THEN C1 = C1 +1 473 IF D1$ = AR$(3) THEN C1 = C1 +1 474 IF E1$ = AR$(4) THEN C1 = C1 +1 475 IF A1$ +B1$ +C1$ +D1$ +E1$ = W1$ THEN W1$ = ".....": HTAB 11: VTAB 7: PRINT W1$; 476 IF A1$ +B1$ +C1$ +D1$ +E1$ = W2$ THEN W2$ = ".....": HTAB 8: VTAB 9: PRINT W2$; 478 IF A1$ +B1$ +C1$ +D1$ +E1$ = W3$ THEN W3$ = ".....": HTAB 13: VTAB 12: PRINT W3$; 479 IF A1$ +B1$ +C1$ +D1$ +E1$ = W4$ THEN W4$ = ".....": HTAB 9: VTAB 14: PRINT W4$; 480 IF A1$ +B1$ +C1$ +D1$ +E1$ = W5$ THEN W5$ = ".....": HTAB 11: VTAB 15: PRINT W5$; 481 IF A1$ +B1$ +C1$ +D1$ +E1$ = W6$ THEN W6$ = ".....": HTAB 15: VTAB 18: PRINT W6$; 482 IF A1$ +B1$ +C1$ +D1$ +E1$ = W7$ THEN W7$ = ".....": HTAB 12: VTAB 19: PRINT W7$; 483 IF A1$ +B1$ +C1$ +D1$ +E1$ = W8$ THEN W8$ = ".....": HTAB 13: VTAB 20: PRINT W8$; 484 IF A1$ +B1$ +C1$ +D1$ +E1$ = W9$ THEN W9$ = ".....": HTAB 8: VTAB 22: PRINT W9$; 485 IF A1$ +B1$ +C1$ +D1$ +E1$ = WA$ THEN WA$ = ".....": HTAB 34: VTAB 6: PRINT WA$; 486 IF A1$ +B1$ +C1$ +D1$ +E1$ = WB$ THEN WB$ = ".....": HTAB 32: VTAB 10: PRINT WB$; 487 IF A1$ +B1$ +C1$ +D1$ +E1$ = WC$ THEN WC$ = ".....": HTAB 28: VTAB 11: PRINT WC$; 488 IF A1$ +B1$ +C1$ +D1$ +E1$ = WD$ THEN WD$ = ".....": HTAB 35: VTAB 14: PRINT WD$; 489 IF A1$ +B1$ +C1$ +D1$ +E1$ = WE$ THEN WE$ = ".....": HTAB 31: VTAB 16: PRINT WE$; 490 IF A1$ +B1$ +C1$ +D1$ +E1$ = WF$ THEN WF$ = ".....": HTAB 28: VTAB 19: PRINT WF$; 491 IF A1$ +B1$ +C1$ +D1$ +E1$ = WG$ THEN WG$ = ".....": HTAB 34: VTAB 21: PRINT WG$; 492 IF A1$ +B1$ +C1$ +D1$ +E1$ = WH$ THEN WH$ = ".....": HTAB 32: VTAB 22: PRINT WH$; 493 HTAB 41: VTAB 18: IF A1$ +B1$ +C1$ +D1$ +E1$ > "A1$ +B1$ +C1$ +D1$ +E1$ 494 HTAB 41: VTAB 19: PRINT ">Entry denied" 495 HTAB 41: VTAB 20: PRINT ">"C1"/" LEN(AN$)" correct.": GOTO 401 496 REM 497 HTAB 41: VTAB 22: PRINT CHR$(29); 498 PRINT ">"; 499 GET A2$: HTAB 42: VTAB 22: PRINT A2$;: IF A2$ = CHR$(13) THEN GOTO 515 500 GET B2$: HTAB 43: VTAB 22: PRINT B2$;: IF B2$ = CHR$(13) THEN GOTO 515 501 GET C2$: HTAB 44: VTAB 22: PRINT C2$;: IF C2$ = CHR$(13) THEN GOTO 515 502 GET D2$: HTAB 45: VTAB 22: PRINT D2$;: IF D2$ = CHR$(13) THEN GOTO 515 503 GET E2$: HTAB 46: VTAB 22: PRINT E2$;: IF E2$ = CHR$(13) THEN GOTO 515 504 GET F2$: HTAB 47: VTAB 22: PRINT F2$;: IF F2$ = CHR$(13) THEN GOTO 515 505 GET G2$: HTAB 48: VTAB 22: PRINT G2$;: IF G2$ = CHR$(13) THEN GOTO 515 506 GET H2$: HTAB 49: VTAB 22: PRINT H2$;: IF H2$ = CHR$(13) THEN GOTO 515 507 GET I2$: HTAB 50: VTAB 22: PRINT I2$;: IF I2$ = CHR$(13) THEN GOTO 515 508 GET J2$: HTAB 51: VTAB 22: PRINT J2$;: IF J2$ = CHR$(13) THEN GOTO 515 509 GET K2$: HTAB 52: VTAB 22: PRINT K2$;: IF K2$ = CHR$(13) THEN GOTO 515 510 GET L2$: HTAB 53: VTAB 22: PRINT L2$;: IF L2$ = CHR$(13) THEN GOTO 515 511 GET M2$: HTAB 54: VTAB 22: PRINT M2$;: IF M2$ = CHR$(13) THEN GOTO 515 512 GET N2$: HTAB 55: VTAB 22: PRINT N2$;: IF N2$ = CHR$(13) THEN GOTO 515 513 GET O2$: HTAB 56: VTAB 22: PRINT O2$;: IF O2$ = CHR$(13) THEN GOTO 515 514 GET Z2$: IF Z2$ > < CHR$(13) THEN PRINT CHR$(7);: GOTO 514 515 HTAB 41: VTAB 13: IF A2$ +B2$ +C2$ +D2$ +E2$ = AN$ THEN PRINT CHR$(29)">"A1$ +B1$ +C1$ +D1$ +E1$ 516 HTAB 41: VTAB 14: IF A2$ +B2$ +C2$ +D2$ +E2$ = AN$ THEN PRINT CHR$(29)">Entry denied" 517 HTAB 41: VTAB 15: IF A2$ +B2$ +C2$ +D2$ +E2$ = AN$ THEN PRINT CHR$(29)">"C1"/" LEN(AN$)" correct." 518 HTAB 41: VTAB 16: IF A2$ +B2$ +C2$ +D2$ +E2$ = AN$ THEN PRINT ">" CHR$(29)A2$ +B2$ +C2$ +D2$ +E2$: HTAB 41: VTAB 17: PRINT CHR$(29)">Exact match!": HTAB 41: VTAB 18: PRINT CHR$(29)">Please wait" 519 HTAB 41: VTAB 19: IF A2$ +B2$ +C2$ +D2$ +E2$ = AN$ THEN PRINT CHR$(29)">while system": HTAB 41: VTAB 20: PRINT CHR$(29)">is accessed.": HTAB 42: VTAB 22: PRINT CHR$(29): GOTO 950 520 Z = Z -1:C2 = 0 521 IF A2$ = AR$(0) THEN C2 = C2 +1 522 IF B2$ = AR$(1) THEN C2 = C2 +1 523 IF C2$ = AR$(2) THEN C2 = C2 +1 524 IF D2$ = AR$(3) THEN C2 = C2 +1 525 IF E2$ = AR$(4) THEN C2 = C2 +1 526 IF A2$ +B2$ +C2$ +D2$ +E2$ = W1$ THEN W1$ = ".....": HTAB 11: VTAB 7: PRINT W1$; 527 IF A2$ +B2$ +C2$ +D2$ +E2$ = W2$ THEN W2$ = ".....": HTAB 8: VTAB 9: PRINT W2$; 528 IF A2$ +B2$ +C2$ +D2$ +E2$ = W3$ THEN W3$ = ".....": HTAB 13: VTAB 12: PRINT W3$; 529 IF A2$ +B2$ +C2$ +D2$ +E2$ = W4$ THEN W4$ = ".....": HTAB 9: VTAB 14: PRINT W4$; 530 IF A2$ +B2$ +C2$ +D2$ +E2$ = W5$ THEN W5$ = ".....": HTAB 11: VTAB 15: PRINT W5$; 531 IF A2$ +B2$ +C2$ +D2$ +E2$ = W6$ THEN W6$ = ".....": HTAB 15: VTAB 18: PRINT W6$; 532 IF A2$ +B2$ +C2$ +D2$ +E2$ = W7$ THEN W7$ = ".....": HTAB 12: VTAB 19: PRINT W7$; 533 IF A2$ +B2$ +C2$ +D2$ +E2$ = W8$ THEN W8$ = ".....": HTAB 13: VTAB 20: PRINT W8$; 534 IF A2$ +B2$ +C2$ +D2$ +E2$ = W9$ THEN W9$ = ".....": HTAB 8: VTAB 22: PRINT W9$; 535 IF A2$ +B2$ +C2$ +D2$ +E2$ = WA$ THEN WA$ = ".....": HTAB 34: VTAB 6: PRINT WA$; 536 IF A2$ +B2$ +C2$ +D2$ +E2$ = WB$ THEN WB$ = ".....": HTAB 32: VTAB 10: PRINT WB$; 537 IF A2$ +B2$ +C2$ +D2$ +E2$ = WC$ THEN WC$ = ".....": HTAB 28: VTAB 11: PRINT WC$; 538 IF A2$ +B2$ +C2$ +D2$ +E2$ = WD$ THEN WD$ = ".....": HTAB 35: VTAB 14: PRINT WD$; 539 IF A2$ +B2$ +C2$ +D2$ +E2$ = WE$ THEN WE$ = ".....": HTAB 31: VTAB 16: PRINT WE$; 540 IF A2$ +B2$ +C2$ +D2$ +E2$ = WF$ THEN WF$ = ".....": HTAB 28: VTAB 19: PRINT WF$; 541 IF A2$ +B2$ +C2$ +D2$ +E2$ = WG$ THEN WG$ = ".....": HTAB 34: VTAB 21: PRINT WG$; 542 IF A2$ +B2$ +C2$ +D2$ +E2$ = WH$ THEN WH$ = ".....": HTAB 32: VTAB 22: PRINT WH$; 543 HTAB 41: VTAB 15: IF A2$ +B2$ +C2$ +D2$ +E2$ > "A1$ +B1$ +C1$ +D1$ +E1$ 544 HTAB 41: VTAB 16: PRINT CHR$(29)">Entry denied" 545 HTAB 41: VTAB 17: PRINT CHR$(29)">"C1"/" LEN(AN$)" correct." 546 HTAB 41: VTAB 18: PRINT CHR$(29)">"A2$ +B2$ +C2$ +D2$ +E2$ 547 HTAB 41: VTAB 19: PRINT CHR$(29)">Entry denied" 548 HTAB 41: VTAB 20: PRINT CHR$(29)">"C2"/" LEN(AN$)" correct.": GOTO 401 549 REM 550 HTAB 41: VTAB 22: PRINT CHR$(29); 551 PRINT ">"; 552 GET A3$: HTAB 42: VTAB 22: PRINT A3$;: IF A3$ = CHR$(13) THEN GOTO 568 553 GET B3$: HTAB 43: VTAB 22: PRINT B3$;: IF B3$ = CHR$(13) THEN GOTO 568 554 GET C3$: HTAB 44: VTAB 22: PRINT C3$;: IF C3$ = CHR$(13) THEN GOTO 568 555 GET D3$: HTAB 45: VTAB 22: PRINT D3$;: IF D3$ = CHR$(13) THEN GOTO 568 556 GET E3$: HTAB 46: VTAB 22: PRINT E3$;: IF E3$ = CHR$(13) THEN GOTO 568 557 GET F3$: HTAB 47: VTAB 22: PRINT F3$;: IF F3$ = CHR$(13) THEN GOTO 568 558 GET G3$: HTAB 48: VTAB 22: PRINT G3$;: IF G3$ = CHR$(13) THEN GOTO 568 559 GET H3$: HTAB 49: VTAB 22: PRINT H3$;: IF H3$ = CHR$(13) THEN GOTO 568 560 GET I3$: HTAB 50: VTAB 22: PRINT I3$;: IF I3$ = CHR$(13) THEN GOTO 568 561 GET J3$: HTAB 51: VTAB 22: PRINT J3$;: IF J3$ = CHR$(13) THEN GOTO 568 562 GET K3$: HTAB 52: VTAB 22: PRINT K3$;: IF K3$ = CHR$(13) THEN GOTO 568 563 GET L3$: HTAB 53: VTAB 22: PRINT L3$;: IF L3$ = CHR$(13) THEN GOTO 568 564 GET M3$: HTAB 54: VTAB 22: PRINT M3$;: IF M3$ = CHR$(13) THEN GOTO 568 565 GET N3$: HTAB 55: VTAB 22: PRINT N3$;: IF N3$ = CHR$(13) THEN GOTO 568 566 GET O3$: HTAB 56: VTAB 22: PRINT O3$;: IF O3$ = CHR$(13) THEN GOTO 568 567 GET Z3$: IF Z3$ > < CHR$(13) THEN PRINT CHR$(7);: GOTO 567 568 HTAB 41: VTAB 10: IF A3$ +B3$ +C3$ +D3$ +E3$ = AN$ THEN PRINT CHR$(29)">"A1$ +B1$ +C1$ +D1$ +E1$ 569 HTAB 41: VTAB 11: IF A3$ +B3$ +C3$ +D3$ +E3$ = AN$ THEN PRINT CHR$(29)">Entry denied" 570 HTAB 41: VTAB 12: IF A3$ +B3$ +C3$ +D3$ +E3$ = AN$ THEN PRINT CHR$(29)">"C1"/" LEN(AN$)" correct." 571 HTAB 41: VTAB 13: IF A3$ +B3$ +C3$ +D3$ +E3$ = AN$ THEN PRINT CHR$(29)">"A2$ +B2$ +C2$ +D2$ +E2$ 572 HTAB 41: VTAB 14: IF A3$ +B3$ +C3$ +D3$ +E3$ = AN$ THEN PRINT CHR$(29)">Entry denied" 573 HTAB 41: VTAB 15: IF A3$ +B3$ +C3$ +D3$ +E3$ = AN$ THEN PRINT CHR$(29)">"C2"/" LEN(AN$)" correct." 574 HTAB 41: VTAB 16: IF A3$ +B3$ +C3$ +D3$ +E3$ = AN$ THEN PRINT ">" CHR$(29)A3$: HTAB 41: VTAB 17: PRINT CHR$(29)">Exact match!": HTAB 41: VTAB 18: PRINT CHR$(29)">Please wait" 575 HTAB 41: VTAB 19: IF A3$ +B3$ +C3$ +D3$ +E3$ = AN$ THEN PRINT CHR$(29)">while system": HTAB 41: VTAB 20: PRINT CHR$(29)">is accessed.": HTAB 42: VTAB 22: PRINT CHR$(29): GOTO 950 576 Z = Z -1:C3 = 0 577 IF A3$ = AR$(0) THEN C3 = C3 +1 578 IF B3$ = AR$(1) THEN C3 = C3 +1 579 IF C3$ = AR$(2) THEN C3 = C3 +1 580 IF D3$ = AR$(3) THEN C3 = C3 +1 581 IF E3$ = AR$(4) THEN C3 = C3 +1 582 IF A3$ +B3$ +C3$ +D3$ +E3$ = W1$ THEN W1$ = ".....": HTAB 11: VTAB 7: PRINT W1$; 583 IF A3$ +B3$ +C3$ +D3$ +E3$ = W2$ THEN W2$ = ".....": HTAB 8: VTAB 9: PRINT W2$; 584 IF A3$ +B3$ +C3$ +D3$ +E3$ = W3$ THEN W3$ = ".....": HTAB 13: VTAB 12: PRINT W3$; 585 IF A3$ +B3$ +C3$ +D3$ +E3$ = W4$ THEN W4$ = ".....": HTAB 9: VTAB 14: PRINT W4$; 586 IF A3$ +B3$ +C3$ +D3$ +E3$ = W5$ THEN W5$ = ".....": HTAB 11: VTAB 15: PRINT W5$; 587 IF A3$ +B3$ +C3$ +D3$ +E3$ = W6$ THEN W6$ = ".....": HTAB 15: VTAB 18: PRINT W6$; 588 IF A3$ +B3$ +C3$ +D3$ +E3$ = W7$ THEN W7$ = ".....": HTAB 12: VTAB 19: PRINT W7$; 589 IF A3$ +B3$ +C3$ +D3$ +E3$ = W8$ THEN W8$ = ".....": HTAB 13: VTAB 20: PRINT W8$; 590 IF A3$ +B3$ +C3$ +D3$ +E3$ = W9$ THEN W9$ = ".....": HTAB 8: VTAB 22: PRINT W9$; 591 IF A3$ +B3$ +C3$ +D3$ +E3$ = WA$ THEN WA$ = ".....": HTAB 34: VTAB 6: PRINT WA$; 592 IF A3$ +B3$ +C3$ +D3$ +E3$ = WB$ THEN WB$ = ".....": HTAB 32: VTAB 10: PRINT WB$; 593 IF A3$ +B3$ +C3$ +D3$ +E3$ = WC$ THEN WC$ = ".....": HTAB 28: VTAB 11: PRINT WC$; 594 IF A3$ +B3$ +C3$ +D3$ +E3$ = WD$ THEN WD$ = ".....": HTAB 35: VTAB 14: PRINT WD$; 595 IF A3$ +B3$ +C3$ +D3$ +E3$ = WE$ THEN WE$ = ".....": HTAB 31: VTAB 16: PRINT WE$; 596 IF A3$ +B3$ +C3$ +D3$ +E3$ = WF$ THEN WF$ = ".....": HTAB 28: VTAB 19: PRINT WF$; 597 IF A3$ +B3$ +C3$ +D3$ +E3$ = WG$ THEN WG$ = ".....": HTAB 34: VTAB 21: PRINT WG$; 598 IF A3$ +B3$ +C3$ +D3$ +E3$ = WH$ THEN WH$ = ".....": HTAB 32: VTAB 22: PRINT WH$; 599 HTAB 41: VTAB 12: IF A3$ +B3$ +C3$ +D3$ +E3$ > "A1$ +B1$ +C1$ +D1$ +E1$ 600 HTAB 41: VTAB 13: PRINT CHR$(29)">Entry denied" 601 HTAB 41: VTAB 14: PRINT CHR$(29)">"C1"/" LEN(AN$)" correct." 602 HTAB 41: VTAB 15: PRINT CHR$(29)">"A2$ +B2$ +C2$ +D2$ +E2$ 603 HTAB 41: VTAB 16: PRINT CHR$(29)">Entry denied" 604 HTAB 41: VTAB 17: PRINT CHR$(29)">"C2"/" LEN(AN$) 605 HTAB 41: VTAB 18: PRINT CHR$(29)">"A3$ +B3$ +C3$ +D3$ +E3$ 606 HTAB 41: VTAB 19: PRINT CHR$(29)">Entry denied" 607 HTAB 41: VTAB 20: PRINT CHR$(29)">"C3"/" LEN(AN$)" correct.": GOTO 401 608 REM 609 HTAB 41: VTAB 22: PRINT CHR$(29); 610 PRINT ">"; 611 GET A4$: HTAB 42: VTAB 22: PRINT A4$;: IF A4$ = CHR$(13) THEN GOTO 627 612 GET B4$: HTAB 43: VTAB 22: PRINT B4$;: IF B4$ = CHR$(13) THEN GOTO 627 613 GET C4$: HTAB 44: VTAB 22: PRINT C4$;: IF C4$ = CHR$(13) THEN GOTO 627 614 GET D4$: HTAB 45: VTAB 22: PRINT D4$;: IF D4$ = CHR$(13) THEN GOTO 627 615 GET E4$: HTAB 46: VTAB 22: PRINT E4$;: IF E4$ = CHR$(13) THEN GOTO 627 616 GET F4$: HTAB 47: VTAB 22: PRINT F4$;: IF F4$ = CHR$(13) THEN GOTO 627 617 GET G4$: HTAB 48: VTAB 22: PRINT G4$;: IF G4$ = CHR$(13) THEN GOTO 627 618 GET H4$: HTAB 49: VTAB 22: PRINT H4$;: IF H4$ = CHR$(13) THEN GOTO 627 619 GET I4$: HTAB 50: VTAB 22: PRINT I4$;: IF I4$ = CHR$(13) THEN GOTO 627 620 GET J4$: HTAB 51: VTAB 22: PRINT J4$;: IF J4$ = CHR$(13) THEN GOTO 627 621 GET K4$: HTAB 52: VTAB 22: PRINT K4$;: IF K4$ = CHR$(13) THEN GOTO 627 622 GET L4$: HTAB 53: VTAB 22: PRINT L4$;: IF L4$ = CHR$(13) THEN GOTO 627 623 GET M4$: HTAB 54: VTAB 22: PRINT M4$;: IF M4$ = CHR$(13) THEN GOTO 627 624 GET N4$: HTAB 55: VTAB 22: PRINT N4$;: IF N4$ = CHR$(13) THEN GOTO 627 625 GET O4$: HTAB 56: VTAB 22: PRINT O4$;: IF O4$ = CHR$(13) THEN GOTO 627 626 GET Z4$: IF Z4$ > < CHR$(13) THEN PRINT CHR$(7);: GOTO 626 627 HTAB 41: VTAB 7: IF A4$ +B4$ +C4$ +D4$ +E4$ = AN$ THEN PRINT CHR$(29)">"A1$ +B1$ +C1$ +D1$ +E1$ 628 HTAB 41: VTAB 8: IF A4$ +B4$ +C4$ +D4$ +E4$ = AN$ THEN PRINT CHR$(29)">Entry denied" 629 HTAB 41: VTAB 9: IF A4$ +B4$ +C4$ +D4$ +E4$ = AN$ THEN PRINT CHR$(29)">"C1"/" LEN(AN$)" correct." 630 HTAB 41: VTAB 10: IF A4$ +B4$ +C4$ +D4$ +E4$ = AN$ THEN PRINT CHR$(29)">"A2$ +B2$ +C2$ +D2$ +E2$ 631 HTAB 41: VTAB 11: IF A4$ +B4$ +C4$ +D4$ +E4$ = AN$ THEN PRINT CHR$(29)">Entry denied" 632 HTAB 41: VTAB 12: IF A4$ +B4$ +C4$ +D4$ +E4$ = AN$ THEN PRINT CHR$(29)">"C2"/" LEN(AN$)" correct." 633 HTAB 41: VTAB 13: IF A4$ +B4$ +C4$ +D4$ +E4$ = AN$ THEN PRINT CHR$(29)">" CHR$(29)A3$ +B3$ +C3$ +D3$ +E3$ 634 HTAB 41: VTAB 14: IF A4$ +B4$ +C4$ +D4$ +E4$ = AN$ THEN PRINT CHR$(29)">Entry denied" 635 HTAB 41: VTAB 15: IF A4$ +B4$ +C4$ +D4$ +E4$ = AN$ THEN PRINT CHR$(29)">"C3"/" LEN(AN$)" correct." 636 HTAB 41: VTAB 16: IF A4$ +B4$ +C4$ +D4$ +E4$ = AN$ THEN PRINT ">" CHR$(29)A4$ +B4$ +C4$ +D4$ +E4$: HTAB 41: VTAB 17: PRINT CHR$(29)">Exact match!": HTAB 41: VTAB 18: PRINT CHR$(29)">Please wait" 637 HTAB 41: VTAB 19: IF A4$ +B4$ +C4$ +D4$ +E4$ = AN$ THEN PRINT CHR$(29)">while system": HTAB 41: VTAB 20: PRINT CHR$(29)">is accessed.": HTAB 42: VTAB 22: PRINT CHR$(29): GOTO 950 638 Z = Z -1 639 IF A4$ +B4$ +C4$ +D4$ +E4$ = W1$ THEN W1$ = ".....": HTAB 11: VTAB 7: PRINT W1$; 640 IF A4$ +B4$ +C4$ +D4$ +E4$ = W2$ THEN W2$ = ".....": HTAB 8: VTAB 9: PRINT W2$; 641 IF A4$ +B4$ +C4$ +D4$ +E4$ = W3$ THEN W3$ = ".....": HTAB 13: VTAB 12: PRINT W3$; 642 IF A4$ +B4$ +C4$ +D4$ +E4$ = W4$ THEN W4$ = ".....": HTAB 9: VTAB 14: PRINT W4$; 643 IF A4$ +B4$ +C4$ +D4$ +E4$ = W5$ THEN W5$ = ".....": HTAB 11: VTAB 15: PRINT W5$; 644 IF A4$ +B4$ +C4$ +D4$ +E4$ = W6$ THEN W6$ = ".....": HTAB 15: VTAB 18: PRINT W6$; 645 IF A4$ +B4$ +C4$ +D4$ +E4$ = W7$ THEN W7$ = ".....": HTAB 12: VTAB 19: PRINT W7$; 646 IF A4$ +B4$ +C4$ +D4$ +E4$ = W8$ THEN W8$ = ".....": HTAB 13: VTAB 20: PRINT W8$; 647 IF A4$ +B4$ +C4$ +D4$ +E4$ = W9$ THEN W9$ = ".....": HTAB 8: VTAB 22: PRINT W9$; 648 IF A4$ +B4$ +C4$ +D4$ +E4$ = WA$ THEN WA$ = ".....": HTAB 34: VTAB 6: PRINT WA$; 649 IF A4$ +B4$ +C4$ +D4$ +E4$ = WB$ THEN WB$ = ".....": HTAB 32: VTAB 10: PRINT WB$; 650 IF A4$ +B4$ +C4$ +D4$ +E4$ = WC$ THEN WC$ = ".....": HTAB 28: VTAB 11: PRINT WC$; 651 IF A4$ +B4$ +C4$ +D4$ +E4$ = WD$ THEN WD$ = ".....": HTAB 35: VTAB 14: PRINT WD$; 652 IF A4$ +B4$ +C4$ +D4$ +E4$ = WE$ THEN WE$ = ".....": HTAB 31: VTAB 16: PRINT WE$; 653 IF A4$ +B4$ +C4$ +D4$ +E4$ = WF$ THEN WF$ = ".....": HTAB 28: VTAB 19: PRINT WF$; 654 IF A4$ +B4$ +C4$ +D4$ +E4$ = WG$ THEN WG$ = ".....": HTAB 34: VTAB 21: PRINT WG$; 655 IF A4$ +B4$ +C4$ +D4$ +E4$ = WH$ THEN WH$ = ".....": HTAB 32: VTAB 22: PRINT WH$; 656 HTAB 41: VTAB 8: IF A4$ +B4$ +C4$ +D4$ +E4$ > "A1$ +B1$ +C1$ +D1$ +E1$ 657 HTAB 41: VTAB 9: PRINT CHR$(29)">Entry denied" 658 HTAB 41: VTAB 10: PRINT CHR$(29)">"C1"/" LEN(AN$)" correct." 659 HTAB 41: VTAB 11: PRINT CHR$(29)">"A2$ +B2$ +C2$ +D2$ +E2$ 660 HTAB 41: VTAB 12: PRINT CHR$(29)">Entry denied", CHR$(29) 661 HTAB 41: VTAB 13: PRINT CHR$(29)">"C2"/" LEN(AN$)" correct." 662 HTAB 41: VTAB 14: PRINT CHR$(29)">"A3$ +B3$ +C3$ +D3$ +E3$ 663 HTAB 41: VTAB 15: PRINT CHR$(29)">Entry denied" 664 HTAB 41: VTAB 16: PRINT CHR$(29)">"C3"/" LEN(AN$)" correct." 665 HTAB 41: VTAB 17: PRINT CHR$(29)">"A4$ +B4$ +C4$ +D4$ +E4$ 666 HTAB 41: VTAB 18: PRINT CHR$(29)">Entry denied" 667 HTAB 41: VTAB 19: PRINT CHR$(29)">Lockout in" 668 HTAB 41: VTAB 20: PRINT CHR$(29)"progress." 669 HTAB 42: VTAB 22: PRINT CHR$(29) 670 GOTO 408 671 REM 672 SPEED= 225 673 VTAB 24: FOR S = 1 TO 2: POKE 49200,0: NEXT S: PRINT " " 674 PRINT " " 675 PRINT " " 676 PRINT " " 677 PRINT " " 678 PRINT " " 679 PRINT " " 680 PRINT " " 681 PRINT " " 682 PRINT " " 683 PRINT " " 684 PRINT " " 685 PRINT " " 686 PRINT " " 687 PRINT " " 688 PRINT " " 689 PRINT " " 690 PRINT " " 691 PRINT " " 692 PRINT " " 693 PRINT " " 694 PRINT " " 695 PRINT " " 696 SPEED= 255 697 GOTO 800 799 REM 800 HTAB 33: VTAB 9: PRINT "TERMINAL LOCKED" 801 HTAB 25: VTAB 11: PRINT "PLEASE CONTACT AN ADMINISTRATOR": VTAB 24 802 END 803 REM 804 VTAB 3: SPEED= 0: PRINT " ": GOTO 976 805 END 898 REM ~Data are ASCII codes for various punctuation~ 899 REM ~Legal codes: 33-37, 39-47, 58-64, 91-95, 123-125~ 900 REM ~Each PAIR of data lines is ONE line in the guessing matrix~ 900 REM ~Each line after the 0x0Fxxx memory address can contain a 5 letter word + 7 characters (12 total characters) OR all random characters (12 total characters)~ 901 DATA 123,93,35,94,33,43,64,41,63,60,61,95 902 DATA 34,124,37,125,39,36,40 903 DATA 42,45,62,46,44,58,92 904 DATA 62,58,92,33,95,63,124,45,40,60,91,44 905 DATA 64,37,47,125,43,41,36,123,39,34,61,59 906 DATA 42,93,46,35,94,92,37,46,91,94,41,124 907 DATA 58,35,36,62,59,43,93 908 DATA 125,44,61,47,42,34,63,40,95,39,123,64 909 DATA 60,33,45,34,92,124,125,44,46,60,36,123 910 DATA 40,37,35,42,91,58,41 911 DATA 61,63,43,45,39,59,95,62,47,33,64,94 912 DATA 40,34,43,37,92,62,47 913 DATA 64,39,35,45,125,123,36 914 DATA 91,59,93,41,60,61,63,58,44,42,94,124 915 DATA 95,46,33,39,40,123,43,91,35,93,34,95 916 DATA 94,59,36,62,41,47,125,92,37,44,60,124 917 DATA 62,35,42,60,37,125,40 918 DATA 63,45,123,93,58,41,64 919 DATA 95,92,39,94,36,34,44 920 DATA 46,124,59,61,91,47,43,33,92,35,64,42 921 DATA 34,40,47,62,45,59,43,33,44,95,36,61 922 DATA 124,93,94,58,123,125,46 923 DATA 39,63,60,41,37,91,40,94,58,47,92,95 924 DATA 46,62,44,39,34,42,41,45,64,125,43,33 925 DATA 94,95,42,124,91,47,39 926 DATA 58,93,45,46,40,125,63,36,41,92,44,59 927 DATA 64,62,61,60,43,37,35 928 DATA 34,123,33,58,42,92,39 929 DATA 123,91,34,47,92,41,63 930 DATA 45,60,39,61,36,37,42,43,95,40,58,94 931 DATA 64,59,124,46,33,93,125,44,35,62,91,63 932 DATA 44,40,64,124,61,41,58 933 DATA 36,39,125,92,93,43,46 934 DATA 42,35,47,60,33,123,94 949 REM 950 FOR L = 770 TO 790: READ V: POKE L,V: NEXT L 951 DATA 173,48,192,136,208,5,206,1,3,240,9 952 DATA 202,208,245,174,0,3,76,2,3,96 953 POKE 768,34: POKE 769,30 954 PRINT CHR$(7): CALL 770 955 GOTO 804 975 REM 976 CLEAR : HOME : SPEED= 170 977 T1$ = "LOGON THEWHEELMAN282":T2$ = "LOWER" 978 PRINT "WELC";: POKE 49200,0 979 PRINT "OME ";: POKE 49200,0 980 PRINT "TO R";: POKE 49200,0 981 PRINT "OBCO";: POKE 49200,0 982 PRINT " IND";: POKE 49200,0 983 PRINT "USTR";: POKE 49200,0 984 PRINT "IES ";: POKE 49200,0 985 PRINT "(TM)";: POKE 49200,0 986 PRINT " TER";: POKE 49200,0 987 PRINT "MLINK";: POKE 49200,0 988 PRINT : PRINT : INPUT "> ";IA$ 989 IF IA$ = T1$ THEN GOTO 1010 990 IF IA$ > 1009 CLEAR :T2$ = "LOWER" 1010 SPEED= 170: PRINT : PRINT "ENTE";: POKE 49200,0 1011 PRINT "R PA";: POKE 49200,0 1012 PRINT "SSWO";: POKE 49200,0 1013 PRINT "RD N";: POKE 49200,0 1014 PRINT "OW ": POKE 49200,0 1015 PRINT : PRINT "> "; 1016 GET A$: HTAB 3: VTAB 7: PRINT "*";: IF A$ = CHR$(13) THEN GOTO 1050 1017 GET B$: HTAB 4: VTAB 7: PRINT "*";: IF B$ = CHR$(13) THEN GOTO 1051 1018 GET C$: HTAB 5: VTAB 7: PRINT "*";: IF C$ = CHR$(13) THEN GOTO 1052 1019 GET D$: HTAB 6: VTAB 7: PRINT "*";: IF D$ = CHR$(13) THEN GOTO 1053 1020 GET E$: HTAB 7: VTAB 7: PRINT "*";: IF E$ = CHR$(13) THEN GOTO 1054 1021 GET F$: HTAB 8: VTAB 7: PRINT "*";: IF F$ = CHR$(13) THEN GOTO 1055 1022 GET G$: HTAB 9: VTAB 7: PRINT "*";: IF G$ = CHR$(13) THEN GOTO 1056 1023 GET H$: HTAB 10: VTAB 7: PRINT "*";: IF H$ = CHR$(13) THEN GOTO 1057 1024 GET I$: HTAB 11: VTAB 7: PRINT "*";: IF I$ = CHR$(13) THEN GOTO 1058 1025 GET J$: HTAB 12: VTAB 7: PRINT "*";: IF J$ = CHR$(13) THEN GOTO 1059 1026 GET K$: HTAB 13: VTAB 7: PRINT "*";: IF K$ = CHR$(13) THEN GOTO 1060 1027 GET L$: HTAB 14: VTAB 7: PRINT "*";: IF L$ = CHR$(13) THEN GOTO 1061 1028 GET M$: HTAB 15: VTAB 7: PRINT "*";: IF M$ = CHR$(13) THEN GOTO 1062 1029 GET N$: HTAB 16: VTAB 7: PRINT "*";: IF N$ = CHR$(13) THEN GOTO 1063 1030 GET O$: HTAB 17: VTAB 7: PRINT "*";: IF O$ = CHR$(13) THEN GOTO 1064 1031 GET A1$: IF A1$ > < CHR$(13) THEN PRINT CHR$(7);: GOTO 1031 1040 IF A$ +B$ +C$ +D$ +E$ = T2$ THEN GOTO 1999 1041 IF A$ +B$ +C$ +D$ +E$ > 2001 HTAB 20: PRINT "ROBC";: POKE 49200,0 2002 PRINT "O IN";: POKE 49200,0 2003 PRINT "DUST";: POKE 49200,0 2004 PRINT "RIES";: POKE 49200,0 2005 PRINT " UNI";: POKE 49200,0 2006 PRINT "FIED";: POKE 49200,0 2007 PRINT " OPE";: POKE 49200,0 2008 PRINT "RATI";: POKE 49200,0 2009 PRINT "NG S";: POKE 49200,0 2010 PRINT "YSTEM";: POKE 49200,0 2011 PRINT 2012 HTAB 22: PRINT "COPY";: POKE 49200,0 2013 PRINT "RIGH";: POKE 49200,0 2014 PRINT "T 20";: POKE 49200,0 2015 PRINT "75-2";: POKE 49200,0 2016 PRINT "077 ";: POKE 49200,0 2017 PRINT " ROB";: POKE 49200,0 2018 PRINT "CO I";: POKE 49200,0 2019 PRINT "NDUS";: POKE 49200,0 2020 PRINT "TRIES";: POKE 49200,0 2021 PRINT 2022 HTAB 35: PRINT "-Ser";: POKE 49200,0 2023 PRINT "ver ";: POKE 49200,0 2024 PRINT "6- ";: POKE 49200,0 2025 PRINT : PRINT 2026 PRINT "Welc";: POKE 49200,0 2027 PRINT "ome ";: POKE 49200,0 2028 PRINT "\the";: POKE 49200,0 2029 PRINT "whee";: POKE 49200,0 2030 PRINT "lman";: POKE 49200,0 2031 PRINT "282": POKE 49200,0 2032 SPEED= 255 2033 PRINT "______________________________________________________________________": POKE 49200,0 2034 PRINT : SPEED= 170 2035 PRINT "> Ac";: POKE 49200,0 2036 PRINT "tiva";: POKE 49200,0 2037 PRINT "te t";: POKE 49200,0 2038 PRINT "urre";: POKE 49200,0 2039 PRINT "t co";: POKE 49200,0 2040 PRINT "ntro";: POKE 49200,0 2041 PRINT "l sy";: POKE 49200,0 2042 PRINT "stem";: POKE 49200,0 2044 PRINT : PRINT 2045 PRINT "> Un";: POKE 49200,0 2046 PRINT "lock";: POKE 49200,0 2047 PRINT " wea";: POKE 49200,0 2048 PRINT "pons";: POKE 49200,0 2049 PRINT " cac";: POKE 49200,0 2050 PRINT "he";: POKE 49200,0 2051 PRINT : PRINT 2053 PRINT "> Es";: POKE 49200,0 2054 PRINT "tabl";: POKE 49200,0 2055 PRINT "ish ";: POKE 49200,0 2056 PRINT "link";: POKE 49200,0 2057 PRINT " to ";: POKE 49200,0 2058 PRINT "SatC";: POKE 49200,0 2059 PRINT "om A";: POKE 49200,0 2060 PRINT "rray";: POKE 49200,0 2061 PRINT " NW-";: POKE 49200,0 2062 PRINT "05a ";: POKE 49200,0 2065 PRINT : PRINT 2066 PRINT "> Es";: POKE 49200,0 2067 PRINT "tabl";: POKE 49200,0 2068 PRINT "ish ";: POKE 49200,0 2069 PRINT "link";: POKE 49200,0 2070 PRINT " to ";: POKE 49200,0 2071 PRINT "ARCH";: POKE 49200,0 2072 PRINT "IMED";: POKE 49200,0 2073 PRINT "ES II": POKE 49200,0 2074 B = 0 2075 C = 0 2076 Y$ = "> Activate turret control system" 2077 Z$ = "> Unlock weapons cache" 2078 HTAB 1: VTAB 23: INPUT "> ";A 2079 IF A = 1 THEN HTAB 3: VTAB 23: SPEED= 255: PRINT "Accessing security network....";: SPEED= 0: PRINT " ";: SPEED= 255: PRINT CHR$(26): GOSUB 2084 2080 IF A = 2 THEN HTAB 3: VTAB 23: SPEED= 255: PRINT "Accessing lock controls....";: SPEED= 0: PRINT " ";: SPEED= 255: PRINT CHR$(26): GOSUB 2086 2081 IF A = 3 THEN GOSUB 2120: GOTO 2100 2082 IF A = 4 THEN GOSUB 3000: GOTO 2100 2083 IF A > <1 OR 2 OR 3 OR 4 THEN HTAB 3: VTAB 23: PRINT "Invalid option number" CHR$(7);: SPEED= 0: PRINT " ";: SPEED= 255: PRINT CHR$(26);: GOTO 2078 2084 IF B = 0 THEN GOSUB 2089: GOTO 2078 2085 IF B = 1 THEN GOSUB 2088: GOTO 2078 2086 IF C = 0 THEN GOSUB 2091: GOTO 2078 2087 IF C = 1 THEN GOSUB 2090: GOTO 2078 2088 HTAB 1: VTAB 8:Y$ = "> Activate turret control system": PRINT Y$ CHR$(29):B = 0: RETURN 2089 HTAB 1: VTAB 8:Y$ = "> Deactivate turrent control system": PRINT Y$:B = 1: RETURN 2090 HTAB 1: VTAB 10:Z$ = "> Unlock weapons cache": PRINT Z$:C = 0: RETURN 2091 HTAB 1: VTAB 10:Z$ = "> Lock weapons cache": PRINT Z$ CHR$(29):C = 1: RETURN 2100 SPEED= 255: HOME : HTAB 20: PRINT "ROBCO INDUSTRIES UNIFIED OPERATING SYSTEM" 2102 HTAB 22: PRINT "COPYRIGHT 2075-2077 ROBCO INDUSTRIES" 2104 HTAB 35: PRINT "-Server 6-" 2105 PRINT 2106 PRINT "Welcome \thewheelman282" 2107 PRINT "______________________________________________________________________" 2108 PRINT 2109 PRINT Y$ 2110 PRINT 2111 PRINT Z$ 2112 PRINT 2113 PRINT "> Establish link to SatCom Array NW-05a" 2114 PRINT 2115 PRINT "> Establish link to ARCHIMEDES II" 2116 GOTO 2078 2119 REM 2120 HOME 2121 SPEED= 255 2122 HTAB 10: PRINT "[. . . . . . .#.#.#######. . . . . . . . . . . . . . . . . .]" 2123 HTAB 10: PRINT "[. . . . . . # # . .#### .#. .## . .#############. . . . . .]" 2124 HTAB 10: PRINT "[. . ##########.#. . ##. . . # ######################### . .]" 2125 HTAB 10: PRINT "[. .#. ########. ##. . . .#. ########################. . . .]" 2126 HTAB 10: PRINT "[. . . . ########";: INVERSE : PRINT "S";: NORMAL : PRINT "#. . . . ##### ## ################## # . .]" 2127 HTAB 10: PRINT "[. . . . .######## . . . .#. . .###";: INVERSE : PRINT "XX";: NORMAL : PRINT "############### . .#. .]" 2128 HTAB 10: PRINT "[. . . . . ### . . . . . ####### ##";: INVERSE : PRINT "XXX";: NORMAL : PRINT "###############. # . .]" 2129 HTAB 10: PRINT "[. . . . . . # ### . . . ########. . #### . ###### . . . . .]" 2130 HTAB 10: PRINT "[. . . . . . .###### . . . .#### . . .## . . . .## .#. # . .]" 2131 HTAB 10: PRINT "[. . . . . . . ##### . . . .#### # . . . . . . . . . ##.#. .]" 2132 HTAB 10: PRINT "[. . . . . . . ### . . . . . ##. . . . . . . . . . .#####. .]" 2133 HTAB 10: PRINT "[. . . . . . . ##. . . . . . . . . . . . . . . . . ##.###.#.]" 2134 HTAB 10: PRINT "[. . . . . . . .#. . . . . . . . . . . . . . . . . . . . # .]" 2135 SPEED= 170 2136 HTAB 15: VTAB 14: PRINT "** H";: POKE 49200,0 2137 PRINT "IGHW";: POKE 49200,0 2138 PRINT "ATER";: POKE 49200,0 2139 PRINT "-TRO";: POKE 49200,0 2140 PRINT "USER";: POKE 49200,0 2141 PRINT "S OR";: POKE 49200,0 2142 PRINT "BITA";: POKE 49200,0 2143 PRINT "L PL";: POKE 49200,0 2144 PRINT "ATFO";: POKE 49200,0 2145 PRINT "RM -";: POKE 49200,0 2146 PRINT "- ST";: POKE 49200,0 2147 PRINT "ATUS";: POKE 49200,0 2148 PRINT " ** ": POKE 49200,0: PRINT 2149 PRINT "> Ro";: POKE 49200,0 2150 PRINT "tary";: POKE 49200,0 2151 PRINT " ali";: POKE 49200,0 2152 PRINT "gnme";: POKE 49200,0 2153 PRINT "nt s";: POKE 49200,0 2154 PRINT "yste";: POKE 49200,0 2155 PRINT "m: ";: INVERSE : PRINT "F";: POKE 49200,0 2156 PRINT "AULT";: NORMAL : POKE 49200,0 2157 PRINT " -- ";: POKE 49200,0 2158 PRINT "Sele";: POKE 49200,0 2159 PRINT "ctiv";: POKE 49200,0 2160 PRINT "e ta";: POKE 49200,0 2161 PRINT "rget";: POKE 49200,0 2162 PRINT "ing ";: POKE 49200,0 2163 PRINT "unav";: POKE 49200,0 2164 PRINT "aila";: POKE 49200,0 2165 PRINT "ble!": POKE 49200,0 2166 PRINT "> Sa";: POKE 49200,0 2167 PRINT "lvos";: POKE 49200,0 2168 PRINT " loc";: POKE 49200,0 2169 PRINT "ked ";: POKE 49200,0 2170 PRINT "in f";: POKE 49200,0 2171 PRINT "ire ";: POKE 49200,0 2172 PRINT "posi";: POKE 49200,0 2173 PRINT "tion";: POKE 49200,0 2174 PRINT ": 8 ": POKE 49200,0 2175 PRINT "> Al";: POKE 49200,0 2176 PRINT "l fi";: POKE 49200,0 2177 PRINT "re c";: POKE 49200,0 2178 PRINT "ontr";: POKE 49200,0 2179 PRINT "ol s";: POKE 49200,0 2180 PRINT "yste";: POKE 49200,0 2181 PRINT "ms a";: POKE 49200,0 2182 PRINT "re ";: INVERSE : PRINT "G";: POKE 49200,0 2183 PRINT "REEN": POKE 49200,0: NORMAL 2184 PRINT "> Ta";: POKE 49200,0 2185 PRINT "rget";: POKE 49200,0 2186 PRINT "ing ";: POKE 49200,0 2187 PRINT "coor";: POKE 49200,0 2188 PRINT "dina";: POKE 49200,0 2189 PRINT "tes ";: POKE 49200,0 2190 PRINT "on t";: POKE 49200,0 2191 PRINT "ermi";: POKE 49200,0 2192 PRINT "nal:";: POKE 49200,0 2193 PRINT " 35o";: POKE 49200,0 2194 PRINT "41'4";: POKE 49200,0 2195 PRINT "6" CHR$(34)"N ";: POKE 49200,0 2196 PRINT "51o2";: POKE 49200,0 2197 PRINT "5'23";: POKE 49200,0 2198 PRINT CHR$(34)"E ": POKE 49200,0 2199 PRINT "> Be";: POKE 49200,0 2200 PRINT "gin ";: POKE 49200,0 2201 PRINT "hand";: POKE 49200,0 2202 PRINT "shak";: POKE 49200,0 2203 PRINT "e wi";: POKE 49200,0 2204 PRINT "th o";: POKE 49200,0 2205 PRINT "rbit";: POKE 49200,0 2206 PRINT "al p";: POKE 49200,0 2207 PRINT "latf";: POKE 49200,0 2208 PRINT "orm? ";: POKE 49200,0 2209 PRINT "[YES";: POKE 49200,0 2210 PRINT "/NO] ";: POKE 49200,0 2211 INPUT "";A$ 2212 IF A$ = "YES" THEN PRINT "> Ha";: POKE 49200,0 2213 IF A$ = "YES" THEN PRINT "ndsh";: POKE 49200,0 2214 IF A$ = "YES" THEN PRINT "ake ";: POKE 49200,0 2215 IF A$ = "YES" THEN PRINT "comp";: POKE 49200,0 2216 IF A$ = "YES" THEN PRINT "lete";: POKE 49200,0 2217 IF A$ = "YES" THEN PRINT " -- ";: POKE 49200,0 2218 IF A$ = "YES" THEN PRINT "orbi";: POKE 49200,0 2219 IF A$ = "YES" THEN PRINT "tal ";: POKE 49200,0 2220 IF A$ = "YES" THEN PRINT "plat";: POKE 49200,0 2221 IF A$ = "YES" THEN PRINT "form";: POKE 49200,0 2222 IF A$ = "YES" THEN PRINT " ";: INVERSE : PRINT "ONL";: POKE 49200,0 2223 IF A$ = "YES" THEN PRINT "INE";: NORMAL : PRINT " ": POKE 49200,0 2224 IF A$ = "NO" THEN GOTO 2287 2227 PRINT "> Tr";: POKE 49200,0 2228 PRINT "ansf";: POKE 49200,0 2229 PRINT "er p";: POKE 49200,0 2230 PRINT "reli";: POKE 49200,0 2231 PRINT "mina";: POKE 49200,0 2232 PRINT "ry i";: POKE 49200,0 2233 PRINT "nstr";: POKE 49200,0 2234 PRINT "ucti";: POKE 49200,0 2235 PRINT "on s";: POKE 49200,0 2236 PRINT "et t";: POKE 49200,0 2237 PRINT "o or";: POKE 49200,0 2238 PRINT "bita";: POKE 49200,0 2239 PRINT "l pl";: POKE 49200,0 2240 PRINT "atfo";: POKE 49200,0 2241 PRINT "rm? ";: POKE 49200,0 2242 PRINT "[YES";: POKE 49200,0 2243 PRINT "/NO] ";: POKE 49200,0 2244 INPUT "";B$ 2245 IF B$ = "YES" THEN PRINT "> Sa";: POKE 49200,0 2246 IF B$ = "YES" THEN PRINT "tell";: POKE 49200,0 2247 IF B$ = "YES" THEN PRINT "ite ";: POKE 49200,0 2248 IF B$ = "YES" THEN PRINT "read";: POKE 49200,0 2249 IF B$ = "YES" THEN PRINT "y to";: POKE 49200,0 2250 IF B$ = "YES" THEN PRINT " com";: POKE 49200,0 2251 IF B$ = "YES" THEN PRINT "mit.";: POKE 49200,0 2252 IF B$ = "YES" THEN PRINT " Com";: POKE 49200,0 2253 IF B$ = "YES" THEN PRINT "menc";: POKE 49200,0 2254 IF B$ = "YES" THEN PRINT "e fi";: POKE 49200,0 2255 IF B$ = "YES" THEN PRINT "re o";: POKE 49200,0 2256 IF B$ = "YES" THEN PRINT "n ta";: POKE 49200,0 2257 IF B$ = "YES" THEN PRINT "rget";: POKE 49200,0 2258 IF B$ = "YES" THEN PRINT " coo";: POKE 49200,0 2259 IF B$ = "YES" THEN PRINT "rdin";: POKE 49200,0 2260 IF B$ = "YES" THEN PRINT "ates";: POKE 49200,0 2261 IF B$ = "YES" THEN PRINT "? [Y";: POKE 49200,0 2262 IF B$ = "YES" THEN PRINT "ES/N";: POKE 49200,0 2263 IF B$ = "YES" THEN PRINT "O] ";: POKE 49200,0 2264 IF B$ = "NO" THEN GOTO 2287 2267 INPUT "";C$ 2268 IF C$ = "YES" THEN PRINT "> Al";: POKE 49200,0 2269 IF C$ = "YES" THEN PRINT "l sa";: POKE 49200,0 2270 IF C$ = "YES" THEN PRINT "lvos";: POKE 49200,0 2271 IF C$ = "YES" THEN PRINT " lau";: POKE 49200,0 2272 IF C$ = "YES" THEN PRINT "nche";: POKE 49200,0 2273 IF C$ = "YES" THEN PRINT "d! D";: POKE 49200,0 2274 IF C$ = "YES" THEN PRINT "isco";: POKE 49200,0 2275 IF C$ = "YES" THEN PRINT "nnec";: POKE 49200,0 2276 IF C$ = "YES" THEN PRINT "ting";: POKE 49200,0 2277 IF C$ = "YES" THEN PRINT " fro";: POKE 49200,0 2278 IF C$ = "YES" THEN PRINT "m Sa";: POKE 49200,0 2279 IF C$ = "YES" THEN PRINT "tCom";: POKE 49200,0 2280 IF C$ = "YES" THEN PRINT " Arr";: POKE 49200,0 2281 IF C$ = "YES" THEN PRINT "ay N";: POKE 49200,0 2282 IF C$ = "YES" THEN PRINT "W-05";: POKE 49200,0 2283 IF C$ = "YES" THEN PRINT "a....";: SPEED= 0: HTAB 1: VTAB 14: PRINT " ";: GOTO 2308 2284 IF C$ = "NO" THEN GOTO 2287 2287 PRINT "> Or";: POKE 49200,0 2288 PRINT "bita";: POKE 49200,0 2289 PRINT "l pl";: POKE 49200,0 2290 PRINT "atfo";: POKE 49200,0 2291 PRINT "rm l";: POKE 49200,0 2292 PRINT "aunc";: POKE 49200,0 2293 PRINT "h ab";: POKE 49200,0 2294 PRINT "orte";: POKE 49200,0 2295 PRINT "d by";: POKE 49200,0 2296 PRINT " use";: POKE 49200,0 2297 PRINT "r ": POKE 49200,0 2298 PRINT "> Di";: POKE 49200,0 2298 PRINT "scon";: POKE 49200,0 2299 PRINT "nect";: POKE 49200,0 2300 PRINT "ing ";: POKE 49200,0 2301 PRINT "from";: POKE 49200,0 2302 PRINT " Sat";: POKE 49200,0 2303 PRINT "Com ";: POKE 49200,0 2304 PRINT "Arra";: POKE 49200,0 2305 PRINT "y NW";: POKE 49200,0 2306 PRINT "-05a";: POKE 49200,0 2307 PRINT "....";: SPEED= 0: PRINT " "; 2308 RETURN 2999 REM 3000 HOME : SPEED= 255:D$ = "OFFLINE":E$ = " ": PRINT " __ / " 3001 HTAB 7: PRINT " | |++| |\ " 3002 HTAB 7: PRINT " VVVVV TRANSMISSON |++| | /| " 3003 HTAB 7: PRINT " _ _ _ VVV OFFLINE |++| | //|\" 3004 HTAB 7: PRINT " |#||#||#| (#) __|++|_|_// \" 3005 HTAB 7: PRINT " _________ |-| / === * ||---" 3006 HTAB 7: PRINT "|---------| |-| ----------- X X X --------- | === ** >>>>>" 3007 HTAB 7: PRINT "|---------| |-| \__= ___||---" 3008 HTAB 7: PRINT "|---------| |-| --------- X X X --------- |++| | \\ /" 3009 PRINT " _|___------| _|_|__ | |++| | \\|/" 3010 PRINT " |-----|#####| /#####| | RANGEFINDER |++| ( \| " 3011 PRINT " |[|] |#####| /######| " CHR$(27) CHR$(15)"FG" CHR$(14) CHR$(24)" OFFLINE |++| " 3012 HTAB 4: PRINT "--------------------------------------------------------------------------": SPEED= 170 3013 HTAB 26: PRINT "** A";: POKE 49200,0 3014 PRINT "RCHI";: POKE 49200,0 3015 PRINT "MEDE";: POKE 49200,0 3016 PRINT "S II";: POKE 49200,0 3017 PRINT " -- ";: POKE 49200,0 3018 PRINT "STAT";: POKE 49200,0 3019 PRINT "US **": POKE 49200,0: PRINT 3020 PRINT "> HE";: POKE 49200,0 3021 PRINT "LIOS";: POKE 49200,0 3022 PRINT " One";: POKE 49200,0 3023 PRINT " pow";: POKE 49200,0 3024 PRINT "er t";: POKE 49200,0 3025 PRINT "rans";: POKE 49200,0 3026 PRINT "miss";: POKE 49200,0 3027 PRINT "ion: ";: POKE 49200,0: PRINT D$: POKE 49200,0 3028 PRINT "> Ta";: POKE 49200,0 3029 PRINT "rget";: POKE 49200,0 3030 PRINT "ing ";: POKE 49200,0 3031 PRINT "comp";: POKE 49200,0 3032 PRINT "uter";: POKE 49200,0 3033 PRINT ": ";: INVERSE : PRINT "ON";: POKE 49200,0 3034 PRINT "LINE": NORMAL 3035 PRINT "> Em";: POKE 49200,0 3036 PRINT "itte";: POKE 49200,0 3037 PRINT "r al";: POKE 49200,0 3038 PRINT "ignm";: POKE 49200,0 3039 PRINT "ent ";: POKE 49200,0 3040 PRINT "syst";: POKE 49200,0 3041 PRINT "em: ";: POKE 49200,0 3042 INVERSE : PRINT "ONLI";: POKE 49200,0 3043 PRINT "NE";: NORMAL : PRINT " ": POKE 49200,0 3044 PRINT "> Re";: POKE 49200,0 3045 PRINT "dire";: POKE 49200,0 3046 PRINT "ct t";: POKE 49200,0 3047 PRINT "rans";: POKE 49200,0 3048 PRINT "miss";: POKE 49200,0 3049 PRINT "ion ";: POKE 49200,0 3050 PRINT "from";: POKE 49200,0 3051 PRINT " HEL";: POKE 49200,0 3052 PRINT "IOS ";: POKE 49200,0 3053 PRINT "One?";: POKE 49200,0 3054 PRINT " [YE";: POKE 49200,0 3055 PRINT "S/NO";: POKE 49200,0 3056 PRINT "] ";: INPUT "";F$ 3057 IF F$ = "NO" THEN GOTO 3130 3058 IF F$ = "YES" THEN D$ = "ONLINE": HTAB 40: VTAB 4: SPEED= 255: INVERSE : PRINT D$;: NORMAL : PRINT E$;: HTAB 29: VTAB 7: SPEED= 170: INVERSE : PRINT "> > > > > > > > > > > > > >": HTAB 34: VTAB 16: SPEED= 255: PRINT D$;: NORMAL : PRINT E$: SPEED= 170 3059 IF F$ = "YES" THEN HTAB 1: VTAB 20: PRINT "> Con";: POKE 49200,0 3060 PRINT "nect";: POKE 49200,0 3061 PRINT "ion ";: POKE 49200,0 3062 PRINT "esta";: POKE 49200,0 3063 PRINT "blis";: POKE 49200,0 3064 PRINT "hed.";: POKE 49200,0 3065 PRINT " HEL";: POKE 49200,0 3066 PRINT "IOS ";: POKE 49200,0 3067 PRINT "One ";: POKE 49200,0 3068 PRINT "main";: POKE 49200,0 3069 PRINT "fram";: POKE 49200,0 3070 PRINT "e: ";: INVERSE : PRINT "O";: POKE 49200,0 3071 PRINT "NLINE": POKE 49200,0: NORMAL 3072 PRINT "> Al";: POKE 49200,0 3073 PRINT "l AR";: POKE 49200,0 3074 PRINT "CHIM";: POKE 49200,0 3075 PRINT "EDES";: POKE 49200,0 3076 PRINT " II ";: POKE 49200,0 3077 PRINT "syst";: POKE 49200,0 3078 PRINT "ems ";: POKE 49200,0 3079 INVERSE : PRINT "GREE";: POKE 49200,0 3080 PRINT "N";: NORMAL : PRINT ". A";: POKE 49200,0 3081 PRINT "ctiv";: POKE 49200,0 3082 PRINT "ate ";: POKE 49200,0 3083 PRINT "orbi";: POKE 49200,0 3084 PRINT "tal ";: POKE 49200,0 3085 PRINT "plat";: POKE 49200,0 3086 PRINT "form";: POKE 49200,0 3087 PRINT "? [Y";: POKE 49200,0 3088 PRINT "ES/N";: POKE 49200,0 3089 PRINT "O] ";: POKE 49200,0: INPUT "";G$ 3090 IF G$ = "NO" THEN GOTO 3130 3091 IF G$ = "YES" THEN PRINT "> Or";: POKE 49200,0 3092 PRINT "bita";: POKE 49200,0 3093 PRINT "l pl";: POKE 49200,0 3094 PRINT "atfo";: POKE 49200,0 3095 PRINT "rm ";: INVERSE : PRINT "A";: POKE 49200,0 3096 PRINT "CTIV";: POKE 49200,0 3097 PRINT "E";: NORMAL : PRINT ". A";: POKE 49200,0 3098 PRINT "ccep";: POKE 49200,0 3099 PRINT "t co";: POKE 49200,0 3100 PRINT "mmun";: POKE 49200,0 3101 PRINT "icat";: POKE 49200,0 3102 PRINT "ions";: POKE 49200,0 3103 PRINT " fro";: POKE 49200,0 3104 PRINT "m ra";: POKE 49200,0 3105 PRINT "ngef";: POKE 49200,0 3106 PRINT "inde";: POKE 49200,0 3107 PRINT "r? [";: POKE 49200,0 3108 PRINT "YES/";: POKE 49200,0 3109 PRINT "NO] ";: POKE 49200,0: INPUT "";H$ 3110 IF H$ = "NO" THEN GOTO 3130 3111 IF H$ = "YES" THEN HTAB 40: VTAB 12: SPEED= 255: INVERSE : PRINT D$;: NORMAL : PRINT E$: SPEED= 170: HTAB 31: VTAB 9: INVERSE : PRINT "> > > > > > > > > > > > >": NORMAL 3112 HTAB 1: VTAB 23: PRINT "> AR";: POKE 49200,0 3113 PRINT "CHIM";: POKE 49200,0 3114 PRINT "EDES";: POKE 49200,0 3115 PRINT " II:";: POKE 49200,0 3116 PRINT " ";: INVERSE : PRINT "ONL";: POKE 49200,0 3117 PRINT "INE";: NORMAL : PRINT " ";: POKE 49200,0 3118 PRINT "-- A";: POKE 49200,0 3119 PRINT "wait";: POKE 49200,0 3120 PRINT "ing ";: POKE 49200,0 3121 PRINT "tele";: POKE 49200,0 3122 PRINT "metr";: POKE 49200,0 3123 PRINT "y da";: POKE 49200,0 3124 PRINT "ta f";: POKE 49200,0 3125 PRINT "rom ";: POKE 49200,0 3126 PRINT "rang";: POKE 49200,0 3127 PRINT "efin";: POKE 49200,0 3128 PRINT "der.";: POKE 49200,0 3129 PRINT "... ": HTAB 1: VTAB 15: SPEED= 0: PRINT " ";: GOTO 3149 3130 PRINT "> AR";: POKE 49200,0 3131 PRINT "CHIM";: POKE 49200,0 3132 PRINT "EDES";: POKE 49200,0 3133 PRINT " II ";: POKE 49200,0 3134 PRINT "acti";: POKE 49200,0 3135 PRINT "vati";: POKE 49200,0 3136 PRINT "on a";: POKE 49200,0 3137 PRINT "bort";: POKE 49200,0 3138 PRINT "ed b";: POKE 49200,0 3139 PRINT "y us";: POKE 49200,0 3140 PRINT "er. ";: POKE 49200,0 3141 PRINT "Disc";: POKE 49200,0 3142 PRINT "onne";: POKE 49200,0 3143 PRINT "ctin";: POKE 49200,0 3144 PRINT "g fr";: POKE 49200,0 3145 PRINT "om H";: POKE 49200,0 3146 PRINT "ELIO";: POKE 49200,0 3147 PRINT "S On";: POKE 49200,0 3148 PRINT "e....";: HTAB 1: VTAB 14: SPEED= 0: PRINT " "; 3149 RETURN