1 Plus System - Old Qbasic!!Prev Topic Next Topic

catch33

Brazil
Member #49,333
January 27, 2007
6 Posts
Offline

Feb 4, 2007, 6:38 pm

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.

1 Plus System - Old Qbasic!!Prev TopicNext Topic