Ticket Drawer

Gallery

Source Code

   1 REM AUTO TICKET DRAWER
   2 REM PICK WINNERS
   3 REM NO MORE THAN 32767 SOLD
   4 REM TICKET NOS 999999 AND OVER
   5 PRINT TAB (10);"AUTO TICKET DRAW"
  10 PRINT "ENTER A NUMBER FROM 1 TO 100"
  11 INPUT N
  12 FOR I=1 TO N
  13 LET J=RND *(32767)
  20 PRINT "THE LOWEST TICKET NUMBER IS "
  21 INPUT B
  50 PRINT 
  70 PRINT "THE HIGHEST TICKET NUMBER IS "
  71 INPUT B
  80 PRINT 
  90 LET E=H-B+1
  91 IF E<32767 THEN GOTO 110
 100 PRINT "TOO MANY TICKETS SOLD--"
 110 PRINT "HOW MANY WINNERS DO YOU WANT?"
 111 INPUT W
 120 CLS 
 130 IF W>E THEN GOTO 269
 140 PRINT 
 141 PRINT 
 142 PRINT 
 143 PRINT 
 180 PRINT "AND THE WINNING ";
 182 IF W>1 THEN GOTO 185
 183 PRINT "TICKET IS "
 184 GOTO 200
 185 PRINT "TICKETS ARE"
 200 PRINT 
 210 FOR N=1 TO W
 220 LET Z=RND*E
 260 PRINT 
 262 PRINT TAB (12);">----->>>  ";Z+B-1
 264 NEXT N
 266 STOP 
 268 CLS 
 269 PRINT 
 270 PRINT TAB (8);"YOU CANT HAVE MORE WINNERS THAN ";
 272 PRINT "ENTRIES--DUMMY--"
 300 SAVE "1002%5"
 310 LIST