Number Juggle 1

Date: 198x
Type: Program
Platform(s): TS 1000

Appears on

Assembled by Tim Ward from many sources. Contains programs 10001 – 10050.

Gallery

Number Juggle 1

Source Code

  10 PRINT "%N%U%M%B%E%R% %J%U%G%G%L%E"
  12 PRINT 
  30 PRINT "NAME OF PLAYER"
  40 INPUT A$
  65 CLS 
  70 PRINT A$;", THINK OF A NUMBER AND"
  75 PRINT ,"DOUBLE IT"
  95 PAUSE 400
 100 CLS 
 120 PRINT A$;",ADD FIVE"
 125 PAUSE 400
 130 CLS 
 135 PRINT A$;,,"SUBTRACT SEVEN"
 140 PRINT "AND TYPE IN THE RESULT"
 145 INPUT A
 150 CLS 
 175 LET K=(A+2)/2
 185 PRINT "YOUR NUMBER, ";A$,",WAS ";K
 300 STOP 
 400 SAVE "1004%7"
 410 RUN 

People

No people associated with this content.

Scroll to Top