Advertisement
Guest User

Untitled

a guest
Mar 10th, 2014
284
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 10 INPUT "Enter number",A
  2. 20 IF A<>1 THEN 30 ELSE 110
  3. 30 IF A MOD 2=0 THEN 40 ELSE 70
  4. 35 WHILE B<=1
  5. 40 B=A/2
  6. 50 PRINT B
  7. 60 WEND
  8. 65 GOTO 110
  9. 70 WHILE C=1
  10. 80 C=(A*3)+1
  11. 90 PRINT C
  12. 100 WEND
  13. 110 INPUT "Do you want to enter again........y/n ";A$
  14. 120 IF A$="Y" OR A$="y" THEN 10 ELSE 130
  15. 130 PRINT"Thanks for using..."  :END
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement