Number Juggle 2

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

Appears on

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

Gallery

Number Juggle 2

Source Code

  10 PRINT "%N%U%M%B%E%R% %J%U%G%G%L%E%-%-%2%-%-"
  25 PRINT 
  30 PRINT "NAME OF FIRST PLAYER?"
  40 INPUT A$
  45 PRINT 
  50 PRINT "NAME OF SECOND PLAYER?"
  60 INPUT B$
  65 CLS 
  70 PRINT A$;", THINK OF A NUMBER AND"
  75 PRINT ,"DOUBLE IT"
  80 PRINT 
  85 PRINT B$;", THINK OF A NUMBER AS WELL"
  90 PRINT "AND ADD SIX TO IT"
  95 PAUSE 40000
 100 CLS 
 105 PRINT B$;", I WANT YOU TO MULTIPLY YOUR"
 110 PRINT "NUMBER BY THREE"
 115 PRINT 
 120 PRINT A$;", ADD FIVE"
 125 PAUSE 40000
 130 CLS 
 135 PRINT A$;", SUBTRACT SEVEN"
 140 PRINT "AND TYPE IN THE RESULT"
 145 INPUT A
 150 CLS 
 155 PRINT B$;", I WANT YOU TO SUBTRACT"
 160 PRINT "FOUR THEN TYPE IN YOUR RESULT"
 165 INPUT B
 170 CLS 
 175 LET K=(A+2)/2
 180 LET L=((B+4)/3)-6
 185 PRINT "YOUR NUMBER, ";A$;", WAS ";K
 190 PRINT 
 195 PRINT "AND YOURS, ";B$;", WAS ";L
 200 PRINT ,"ANOTHER TRY??"
 205 INPUT Z$
 210 CLS 
 215 IF Z$="YES" THEN GOTO 65
 220 PRINT "OK, ";A$;" AND ";B$;", THANKS"
 225 PRINT "FOR PLAYING..GOOD-BYE"
 240 PAUSE 150
 250 CLS 
 260 RETURN 
 290 SAVE "1004%8"
 300 RUN 

People

No people associated with this content.

Scroll to Top