home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1998 January (DVD) / VPR980100.ISO / OLS / WIN32 / BAS95101 / BAS95101.LZH / P118.BAS < prev    next >
BASIC Source File  |  1995-12-07  |  468b  |  31 lines
  1. 100 CLS 3
  2. 110 X=2
  3. 120 Y=3
  4. 130 GOSUB 300
  5. 140 X=13
  6. 150 Y=0
  7. 160 GOSUB 300
  8. 170 X=30
  9. 180 Y=8
  10. 190 GOSUB 300
  11. 200 END
  12. 210 '
  13. 300 LOCATE X,Y
  14. 310 PRINT " XXX XXX "
  15. 320 LOCATE X,Y+1
  16. 330 PRINT "X   X   X"
  17. 340 LOCATE X,Y+2
  18. 350 PRINT "X       X"
  19. 360 LOCATE X,Y+3
  20. 370 PRINT "X       X"
  21. 380 LOCATE X,Y+4
  22. 390 PRINT " X     X "
  23. 400 LOCATE X,Y+5
  24. 410 PRINT "  X   X  "
  25. 420 LOCATE X,Y+6
  26. 430 PRINT "   X X   "
  27. 440 LOCATE X,Y+7
  28. 450 PRINT "    X    "
  29. 460 RETURN
  30.  
  31.