DECLARE SUB josoft (x!, y!, w!)
DECLARE SUB begin ()
RANDOMIZE TIMER
CLS
SCREEN 9
'CALL josoft(x, y, z)
COLOR 14, 1
'CALL begin
CLS


'---->BORDER AND LAYOUT<----`
DO
a$ = INKEY$
COLOR 14, 1
LINE (10, 10)-(630, 340), 14, B
LINE (20, 20)-(620, 330), 14, B
PAINT (15, 15), INT(RND * 13) + 1, 14
LINE (280, 50)-(342, 75), 14, B
LINE (285, 55)-(337, 70), 14, B
PAINT (282, 52), INT(RND * 13) + 1, 14
LOCATE 5, 37
COLOR 14: PRINT "Guess!"
LOCATE 12, 32: PRINT "1. Guessing range"
LOCATE 13, 32: PRINT "2. Start guessing"
LOCATE 14, 32: PRINT "3. Quit"



IF a$ = "1" THEN GOSUB 10
IF a$ = "2" THEN GOSUB 20
IF a$ = "3" THEN GOSUB 30


LOOP

10
LOCATE 17, 32: INPUT "Input range 1 -> "; range
PRINT TAB(32); "Range is now 1 -> "; range
SLEEP
LOCATE 17, 32: COLOR 1: PRINT "                          "
LOCATE 18, 32: COLOR 1: PRINT "                          "


RETURN

20




30
END

SUB begin
COLOR 6
RANDOMIZE TIMER
pic$ = "0"
TIM = 2000
DO

COLOR INT(RND * 15) + 1
LINE (0, 0)-(640, 480), 0, BF

LOCATE 10, 15: PRINT " ####    ##   ##   ######   ######   ######   ##"
LOCATE 11, 15: PRINT "##  ##   ##   ##   ##       ##       ##       ##"
LOCATE 12, 15: PRINT "##       ##   ##   ######   ######   ######   ##"
LOCATE 13, 15: PRINT "##  ##   ##   ##   ##           ##       ##     "
LOCATE 14, 15: PRINT " #####    #####    ######   ######   ######   ##"







FOR i = 1 TO 79 STEP 2
LOCATE 1, i
PRINT pic$
NEXT i
FOR i = 1 TO 23 STEP 2
LOCATE i, 1
PRINT pic$
NEXT i
FOR i = 1 TO 79 STEP 2
LOCATE 23, i
PRINT pic$
NEXT i
FOR i = 1 TO 23 STEP 2
LOCATE i, 79
PRINT pic$
NEXT i
FOR y = 1 TO TIM: NEXT y

LINE (0, 0)-(640, 480), 0, BF
COLOR INT(RND * 15) + 1

LOCATE 10, 15: PRINT " ####    ##   ##   ######   ######   ######   ##"
LOCATE 11, 15: PRINT "##  ##   ##   ##   ##       ##       ##       ##"
LOCATE 12, 15: PRINT "##       ##   ##   ######   ######   ######   ##"
LOCATE 13, 15: PRINT "##  ##   ##   ##   ##           ##       ##     "
LOCATE 14, 15: PRINT " #####    #####    ######   ######   ######   ##"


FOR i = 2 TO 79 STEP 2
LOCATE 1, i
PRINT pic$
NEXT i
FOR i = 2 TO 23 STEP 2
LOCATE i, 1
PRINT pic$
NEXT i
FOR i = 2 TO 79 STEP 2
LOCATE 23, i
PRINT pic$
NEXT i
FOR i = 2 TO 23 STEP 2
LOCATE i, 79
PRINT pic$

NEXT i
FOR y = 1 TO TIM: NEXT y
LOOP WHILE INKEY$ = ""

END SUB

SUB josoft (x, y, w)
CLS
SCREEN 9
x = 80
y = 30
'drawing
COLOR 1
FOR w = 1 TO 410
PSET (x, y)
x = x + 1
NEXT w
FOR w = 1 TO 50
PSET (x, y)
y = y + 1
NEXT w
FOR w = 1 TO 165
PSET (x, y)
x = x - 1
NEXT w
FOR w = 1 TO 85
PSET (x, y)
y = y + 1
NEXT w
FOR w = 1 TO 165
PSET (x, y)
x = x + 1
NEXT w
FOR w = 1 TO 150
PSET (x, y)
y = y + 1
NEXT w
FOR w = 1 TO 410
PSET (x, y)
x = x - 1
NEXT w
FOR w = 1 TO 150
PSET (x, y)
y = y - 1
NEXT w
FOR w = 1 TO 165
PSET (x, y)
x = x + 1
NEXT w
FOR w = 1 TO 85
PSET (x, y)
y = y - 1
NEXT w
FOR w = 1 TO 165
PSET (x, y)
x = x - 1
NEXT w
FOR w = 1 TO 50
PSET (x, y)
y = y - 1
NEXT w
'shading
FOR w = 1 TO 15
PSET (x, y)
x = x - 1
y = y - 1
NEXT w
FOR w = 1 TO 440
PSET (x, y)
x = x + 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x - 1
y = y + 1
NEXT w
FOR w = 1 TO 50
PSET (x, y)
y = y + 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x + 1
y = y + 1
NEXT w
FOR w = 1 TO 80
PSET (x, y)
y = y - 1
NEXT w
FOR w = 1 TO 80
PSET (x, y)
y = y + 1
NEXT w
FOR w = 1 TO 165
PSET (x, y)
x = x - 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x - 1
y = y - 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x + 1
y = y + 1
NEXT w
FOR w = 1 TO 55
PSET (x, y)
y = y + 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x - 1
y = y + 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x + 1
y = y - 1
NEXT w
FOR w = 1 TO 164
PSET (x, y)
x = x + 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x - 1
y = y + 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x + 1
y = y - 1
NEXT w
FOR w = 1 TO 180
PSET (x, y)
y = y + 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x - 1
y = y - 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x + 1
y = y + 1
NEXT w
FOR w = 1 TO 439
PSET (x, y)
x = x - 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
y = y - 1
x = x + 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
y = y + 1
x = x - 1
NEXT w
FOR w = 1 TO 180
PSET (x, y)
y = y - 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x + 1
y = y + 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x - 1
y = y - 1
NEXT w
FOR w = 1 TO 165
PSET (x, y)
x = x + 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x + 1
y = y + 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x - 1
y = y - 1
NEXT w
FOR w = 1 TO 55
PSET (x, y)
y = y - 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
y = y - 1
x = x + 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
y = y + 1
x = x - 1
NEXT w
FOR w = 1 TO 165
PSET (x, y)
x = x - 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x + 1
y = y - 1
NEXT w
FOR w = 1 TO 15
x = x - 1
y = y + 1
NEXT w
FOR w = 1 TO 80
PSET (x, y)
y = y - 1
NEXT w
'drawing
x = 245
y = 165
FOR w = 1 TO 100
PSET (x, y)
y = y + 1
NEXT w
FOR w = 1 TO 80
PSET (x, y)
x = x - 1
NEXT w
FOR w = 1 TO 50
PSET (x, y)
y = y - 1
NEXT w
FOR w = 1 TO 80
PSET (x, y)
x = x + 1
NEXT w
x = 325
y = 165
FOR w = 1 TO 150
PSET (x, y)
y = y + 1
NEXT w
FOR w = 1 TO 100
y = y - 1
NEXT w
FOR w = 1 TO 80
PSET (x, y)
x = x + 1
NEXT w
FOR w = 1 TO 50
PSET (x, y)
y = y + 1
NEXT w
FOR w = 1 TO 80
PSET (x, y)
x = x - 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x + 1
y = y - 1
NEXT w
FOR w = 1 TO 20
PSET (x, y)
y = y - 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x - 1
y = y - 1
NEXT w
FOR w = 1 TO 15
x = x + 1
y = y + 1
NEXT w
FOR w = 1 TO 50
PSET (x, y)
x = x + 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x + 1
y = y - 1
NEXT w
FOR w = 1 TO 15
x = x - 1
y = y + 1
NEXT w
FOR w = 1 TO 20
PSET (x, y)
y = y + 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x + 1
y = y + 1
NEXT w
FOR w = 1 TO 15
x = x - 1
y = y - 1
NEXT w
FOR w = 1 TO 50
PSET (x, y)
x = x - 1
NEXT w
FOR w = 1 TO 100
y = y - 1
NEXT w
FOR w = 1 TO 80
PSET (x, y)
x = x + 1
NEXT w
x = 165
y = 215
FOR w = 1 TO 15
PSET (x, y)
x = x + 1
y = y + 1
NEXT w
FOR w = 1 TO 50
PSET (x, y)
x = x + 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x + 1
y = y - 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x - 1
y = y + 1
NEXT w
FOR w = 1 TO 20
PSET (x, y)
y = y + 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x + 1
y = y + 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x - 1
y = y - 1
NEXT w
FOR w = 1 TO 50
PSET (x, y)
x = x - 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x - 1
y = y + 1
NEXT w
FOR w = 1 TO 15
PSET (x, y)
x = x + 1
y = y - 1
NEXT w
FOR w = 1 TO 20
PSET (x, y)
y = y - 1
NEXT w
COLOR 10
PAINT (100, 200), 1, 1
PAINT (400, 200), 1
PAINT (100, 155), 14, 1
PAINT (84, 27), 14, 1
PAINT (350, 155), 14, 1
PAINT (500, 35), 14, 1
PAINT (500, 200), 14, 1
PAINT (330, 100), 14, 1
PAINT (330, 250), 14, 1
PAINT (335, 260), 14, 1
PAINT (235, 260), 14, 1
PAINT (175, 250), 14, 1
PALETTE 9, 10
LOCATE 23, 66
PRINT "JOsoft Presents"
FOR j = 1 TO 20000: NEXT j
END SUB