P496 ORACLE 496 Mon26 Apr ITV 1900:11 30404078GISN0{ CARDS 30404078GISN0{ 41 D$=D$+CHR$(K)|v42 PRINT CUR(22,P1);CH R$(K);|.43 P1=P1+1 : P=P+1|q44 IF P=P3 T HEN GOTO 49|x45 IF P<>3 AND P<>7 THEN GO TO 35|u46 PRINT CUR(22,P1);YEL;NWBG;" " ;BLBG;WHT;|'47 P1=P1+6|'48 GOTO 35|i49 N 4=0|x50 IF COMP%(D$,MID$(B$,40+N4*P3,P3) )=0 THEN GOTO 59|z51 N4=N4+1 : IF N4<=M3 THEN GOTO 50|p52 FOR N=10 TO 22 : PRINT CUR(N,0);GRN;NWBG; : NEXT N |v53 PRINT CUR(10,0);" ";NWBG;GRN;"Card number";BLU ;MID$(D$,1,3);" ";MID$(D$,4,4);" ";MID$( D$,8,5);|£54 PRINT CUR(13,0);" ";NWBG;BL U;"Has";DBLE;"NOT";NRML;"been reported l ost or stolen"|z55 PRINT CUR(18,3);" "|556 PR INT CUR(19,3);" "|757 PRINT CUR(19,0);" ";NGB G;BLU;"hit * before entering the next nu mber"|b58 N9=1 : GOTO 35|959 FOR N=10 TO 23 : PRINT CUR(N,0);" ";NWBG; : NEXT N |{|
P496 ORACLE 496 Mon26 Apr ITV 1900:10 30404078GISN0{ CARDS 30404078GISN0{ 23 PRINT CUR(10,0);" ";NWBG;BLU;FLSH;DBL E;"Waiting for card list from ORACLE"|2 4 GOSUB 67|/25 IF G=1 THEN GOTO 27|826 G OSUB 71 : GOTO 25|f27 N9=0 : D$="" : P=0 : P1=5| 28 FOR N=10 TO 22 : PRINT CUR(N ,0);CYA;NWBG;" "; : NEXT N |n29 PRINT CUR (17,0);" ";NWBG|;30 PRINT CUR(18,0);FLSH ;NWBG;BLU;"Enter the card number to be c hecked"|-31 PRINT CUR(10,0);" ";NWBG; : FOR N9=2 TO 40 : PRINT " "; : NEXT N9 |l 32 PRINT CUR(19,0);FLSH;NWBG;BLU;" T o start again, hit * "|)33 PRI NT CUR(22,0);YEL;NWBG;gHT;BLBG;" ";BL BG;YEL;NWBG;gHT;BLBG;" ";BLBG;YEL;NW BG;gHT;BLBG;" ";YEL;NWBG|c34 PRINT CUR(21,0);YEL;NWBG;CUR(23,0);YEL;NWBG;|8 35 REM |(36 K=FNK : IF K<0 THEN GOTO 35| |37 IF K=95 THEN GOTO 35|{38 IF K=42 THE N 27||39 IF N9=1 THEN GOTO 35||40 PRINT CUR(18,0);" ";CUR(19,0);" "|'|
P496 ORACLE 496 Mon26 Apr ITV 1901:00 30404078GISN0{ CARDS 30404078GISN0{ 60 PRINT CUR(10,2);RED;"Card number";BLU ;MID$(D$,1,3);" ";MID$(D$,4,4);" ";MID$( D$,8,5);|/61 PRINT CUR(12,1);RED;FLSH;DB LE;"Has been reported lost or stolen";|( 62 PRINT CUR(14,1);RED;"Please telephone ";DBLE;"01—210—6223";NRML;"at once";|;63 PRINT CUR(16,1);RED;"and answer the sim ple questions you";|w64 PRINT CUR(17,1); RED;"will be asked. You will be rewarde d";|"65 PRINT CUR(18,1);RED;"for your ti me and trouble. ";|h66 GOTO 58| n67 POKE -5,P7,P8,P9,9,9| 68 FOR Z4=1 TO 30000 : NEXT Z4 |f69 GOTO 75|p70 Z=CALL (FNA(30942))|/71 GOTO 75|i72 IF S=0 THEN GOTO 78|+73 IF S<>1 THEN GOTO 67|h74 S= CALL(FNA(30946),FNA(FNA(SYS(12))+6))|<75 A$="12345678901234567890123456789012345 6789012345678901234567890123456789012345 6"|÷76 B$=A$|177 G=1|?78 RETURN |+|
P496 ORACLE 496 Mon26 Apr ITV 1901:11 30404078GISN0{ CARDS 30404078GISN0{ 1 GRAPHICS : INTEGER : SINGLE |"2 DIM A$ (960),B$(960)|?3 Z5=76|(4 P3=12 : DIM D$ (P3)|£5 M3=INT((Z5-40)/P3)-1 : P7=1 : P8 =0 : P9=0 : G=0 : S=ASCII("*") : A$=SPAC E$(960)|56 DEF FNA(B)=PEEK(B)+SWAP%(PEEK (B+1)) |.7 DEF FNK|!8 OUT 128,125|+9 IF INP(129) AND 2=0 THEN 9|r10 FOR N= 1 TO 5 : NEXT N |11 A=INP(128)|/12 IF A<42 THEN 9|y13 RETURN A|!14 FNEND |,15 PRINT CHR$(12); : FOR N=1 TO 24 : P RINT GYEL;NWBG : NEXT N |-16 PRINT CUR(2 ,17);GRED;CHR$(127);" ";CHR$(127)|;17 P RINT CUR(3,8);GBLU;"w9 w{ w{";GRED;" e: ";GBLU;"w£ ws ws"|(18 PRINT CUR(4,8);GBL U;"uz 5j 5i";GRED;" 6i ";GBLU;"up pz pz" |m19 PRINT CUR(5,17);GRED;CHR$(127);" " ;CHR$(127)|!20 PRINT CUR(7,0);" ";NWBG|! 21 PRINT CUR(8,0);" ";NWBG;RED;"BARXESS — the friendly credit card"|c22 PRINT CU R(9,0);" ";NWBG|%|