try.bas
Upload User: afrynkmhm
Upload Date: 2007-01-06
Package Size: 1262k
Code Size: 0k
Development Platform:

Others

  1. PROGRAM ( ChainParameterString$ , DebugMode% )
  2. a$="hello"
  3. x%=2
  4. do until x%=5
  5. x% = x% +1
  6. print x%
  7. loop
  8. do
  9. x%=x%+1
  10. print x%,x%,"To Java Programmer",a$
  11. loop until x%=7
  12. if x% = 1 then
  13. print 21
  14. else if x% = 2 then
  15. print 22
  16. else if x% = 5 then
  17. print 23
  18. else
  19. print 24
  20. end if
  21. for x%=1 to 3
  22. y%=x%
  23. print x% , y%+2
  24. next x%
  25. y% = 2
  26. end