Welcome Guest
Log In | Register )
You last visited December 4, 2016, 1:02 am
All times shown are
Eastern Time (GMT-5:00)

1 Plus System - Old Qbasic!!

Topic closed. Posted 10 years ago. No replies.

Page 1 of 1
PrintE-mailLink

Brazil
Member #49335
January 27, 2007
6 Posts
Offline
Posted: February 4, 2007, 6:38 pm - IP Logged

Dear PICK3 HUNTERS!!!

FOR THOSE WHO LIKE THE  1 PLUS +/- SYSTEM 

the following  simply code could help you to set a new system!!! 

RUN A QBASIC 4.5 AND TYPE THIS CODE!!!

ENTER THE LAST RESULT AS : A, B ,C 

REM ========================= 

REM  1 PLUS SYSTEM 

CLS

SCREEN 0, 0

INPUT  A

INPUT B

INPUT C

CLS

FOR  X= -1 TO 1

FOR Y = -1 TO 1

FOR  Z= -1 TO 1

NX1 =  A+X

NX2= B+Y

NX3= C+Z

IF NX1>=10 THEN  P1 = NX1-10 ELSE IF NX1 <0 THEN P1 = ABS(A-X) ELSE  P1=NX1

IF NX2>=10 THEN  P2 = NX2-10 ELSE IF NX2 <0 THEN P2 = ABS(B-Y) ELSE  P2=NX2

IF NX3>=10 THEN  P3 = NX3-10 ELSE IF NX3 <0 THEN P3 = ABS(C-Z) ELSE  P3= NX3

CT=CT+1:PRINT  P1; P2 ;P3,  X; Y; Z

NEXT  C: NEXT  B:NEXT  A

PRINT

PRINT  "LAST RESULT :"; A;B;C

PRINT 

PRINT "TOTAL OF COMBINATION:";CT

END

REM ======================== 

 

IF YOU WISH,  CHANGE  ( X,Y,Z) TO EXTEND THE RANGER  TO  (-2,2), (-3,3) ETC...

 

"Everything is possible if you just smile, after you fail.