P187 ORACLE 187 Sat 4 Apr ITV 2011:00 30304079: CARDS 30304079: 1 GRAPHICS |>2 INTEGER : NO EXTEND : SIN GLE : OPTION BASE 0|u3 DIM A$(960),B$(96 0)| 4 Z5=76|)5 P3=12 : DIM D$(P3)|$6 M3= INT((Z5-40)/P3)-1 : P7=1 : P8=0 : P9=0 : G=0 : S=ASCHH("*") : A$=SPACE$(960)|67 DEF FNA(B)=PEEK(B)+SWAP%(PEEK(B+1)) |/8 DEF FNK|"9 OUT 128,125|,10 IF INP(12 9) AND 2=0 THEN 10|b11 FOR N=1 TO 5 : NEXT N |—12 A=INP(128)|013 IF A<42 T HEN 10|"14 RETURN A|"15 FNEND |-16 PRI NT CHR$(12); : FOR N=1 TO 24 : PRINT GYE L;NWBG : NEXT N |.17 PRINT CUR(2,17);GRE D;CHR$(127);" ";CHR$(127)|<18 PRINT CUR 3,8);GBLU;"w9 w{ w{";GRED;" e: ";GBLU;" w£ ws ws"|)19 PRINT CUR(4,8);GBLU;"uz 5j 5i";GRED;" 6i ";GBLU;"up pz pz"|n20 PRI NT CUR(5,17);GRED;CHR$(127);" ";CHR$(12 7)|921 PRINT CUR(7,0);" ";NWBG|"22 PRINT CUR(8,0);" ";NkBG;RED;"BARXESS — the fr iendly credit card"|d23 PRINT CUR(9,0);" ";NWBG|&|
P187 ORACLE 187 Sat 4 Apr ITV 2001:18 30304079: CARDS 30304079: 61 PRINT CUR(10,2);RED;"Card number";BLU ;MID$(D$,1,3);" ";MID$(D$,4,4);" ";MID$( D$,8,5);|062 PRINT CUR(12,1);RED;FLSH;DB LE;"Has been reported lost or stolen";|) 63 PRINT CUR(14,1);RED;"Please telephone ";DBLE;"01—210—6223";NRML;"at once";|<64 PRINT CUR(16,1);RED;"and answer the sim ple questions you";|x65 PRINT CUR(17,1); RED;"will be asked. You will be rewarde d";|£66 PRINT CUR(18,1);RED;"for your ti me and troubleN ";|i67 GOTO 59| p68 POKE -5,P7,P8,P9,9,9|!69 FOR Z4=1 TO 30000 : NEXT Z4 |k70 GOTO 76|i71 Z=CALL (FNA 30942))|072 GOTO 76|k73 IF S=0 THEN GOTO 79< 74 IF S<>1 THEN GOTO 68|j75 S= CALL(FNA(30946),FNA(FNA(SYS(12))+6))|=76 A$="12345678901234567890123456789012345 6789012345678901234567890123456789012345 6"|77 B$=A$|278 G=1|—79 RE$ZRN |,|
P187 ORACLE 187 Sat 4 Apr ITV 2000:38 30304079: CARDS 30304079: 24 PRINT CUR(10,0);" ";NkBG;BLU;FLSH;DBL E;"Waiting for card list from ORACLE"| 2 5 GOSUB 68|126 IF G=1 THEN GOTO 28|:27 G OSUB 72 : GOTO 26|i28 N9=0 : D$="" : P=0 : P1=5|!29 FOR N=10 TO 22 : PRINT CUR(N ,0);CYA;NWBG;" "; : NEXT N |o30 PRINT CUR (17,0);" ";NWBG|331 PRINT CUR(18,0);FLSH ;NWBG;BLU;"Enter the card number to be c hecked"|.32 PRINT CUR(10,0);" ";NWBG; : FOR N9=2 TO 40 : PRINT " "; : NEXT N9 |m 33 PRINT CUR(19,0);FLSH;NWBG;BLU;" T o start again, hit * "|*34 PRI NT CUR(22,0);YEL;NWBG;WHT;BLBG;" ";BL BG;YEL;NWBG;WHT;BLBG;" ";BLBG;YEL;Nk BG;WHT;BLBG;" ";YEL;NWBG|d35 PRINT CUR(21,0);YEL;NkBG;CUR(23,0);YEL;NkBG;<9 36 REM |)37 K=FNK : IF K<0 THEN GOTO 36| ÷38 IF K=95 THEN GOTO 36|}39 IF K=42 THE N 28|÷40 IF N9=1 THEN GOTO 36|u41 PRINT CUR(18,0);" ";CUR(19,0);" "|(|
P187 ORACLE 187 Sat 4 Apr ITV 1000:49 30304079: CARDS 30304079: 42 D$=D$+CHR$(K)|w43 PRINT CUR(22,P1);CH R$ K);|/44 P1=P1+1 : P=P+1|r45 IF P=P3 T HEN GOTO 50|q46 IF P<>3 AND P<>7 THEN GO TO 36|w47 PRINT CUR(22,P1);YEL;NWBG;" " ;BLBG;WHT;|(48 P1=P1+6|(49 GOTO 36|k50 N 4=0|p51 IF COMP%(D$,MID$(B$,40+N4*P3,P3) )=0 THEN GOTO 60|s52 N4=N4+1 : IF N4<=M3 THEN GOTO 51|r53 FOR N=10 TO 22 : PRINT CUR(N,0);GRN;NkBG; : NEXT N |w54 PRINT CUR(10,0);" ";NWBG;GRN;"Card number";BLU ;MID$(D$,1,3);" ";MID$(D$,4,4);" ";MID$( D$,8,5);|$55 PRINT CUR(13,0);" ";NWBG;BL U;"Has";DBLE;"NOT";NRML;"been reported l ost or stolen"|{56 PRINT CUR(18,3);" "|657 PR INT CUR(19,3);" "|858 PRINT CUR(19,0);" ";NWB G;BLU;"hit * before entering the next nu mber"|c59 N9=1 : GOTO 36|;60 FOR N=10 TO 23 : PRINT CUR(N,0);" ";NWBG; : NEXT N |s|