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

Others

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