Welcome Guest
You last visited August 21, 2017, 12:35 am
All times shown are
Eastern Time (GMT-5:00)

# 1 Plus System - Old Qbasic!!

Topic closed. Posted 11 years ago. No replies.

 Page 1 of 1

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.

 Page 1 of 1