home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / graf / dancad2.zip / DEMO-SUB.MAC < prev    next >
Text File  |  1987-12-01  |  1KB  |  51 lines
  1. GRAPH B&W
  2. IF FNAME > 1 THEN GOTO :2
  3.  
  4. :B1
  5. NAME 1 = PIX\DEMOFR-A 0
  6. :A1
  7. LOA P NAME 1 NEXT
  8. LOOP :A1 [ FRAMES - 1 ]
  9. LOOP :B1 2
  10. GOTO :9
  11.  
  12. :2
  13. IF FNAME > 2 THEN GOTO :3
  14.  
  15. :B2
  16. NAME 1 = PIX\DEMOFR-B 0
  17. :A2
  18. LOA P NAME 1 NEXT
  19. LOOP :A2 [ FRAMES - 1 ]
  20. LOOP :B2 2
  21. GOTO :9
  22.  
  23. :3
  24. IF FNAME > 3 THEN GOTO :4
  25.  
  26. :B3
  27. NAME 1 = PIX\DEMOFR-C 0
  28. :A3
  29. LOA P NAME 1 NEXT
  30. LOOP :A3 [ FRAMES - 1 ]
  31. LOOP :B3 2
  32. GOTO :9
  33.  
  34. :4
  35. IF FNAME > 4 THEN GOTO :5
  36.  
  37. :5
  38. :9
  39.  
  40. ; DEMO-SUB.MAC for DANCAD3D v2.x, called by DEMOMAIN.MAC
  41.  
  42. ; The above loops to show pixel files on a disk in drive b:
  43. ; These files are named DEMOFR-X.1, DEMOFR-X.2,... DEMOFR-X.20 ...
  44. ; If you have a 2 meg ram card change the drive letter for the files
  45. ; and the demo macros to it too speed them up.
  46.  
  47. ; Copyright (c) 1987, Daniel H. Hudgins, All rights reserved.
  48. ; The latest set of disks and manual can be ordered from me.
  49. ; Write to: DanCAD3D, 466 Diamond St., San Francisco, CA 94114.
  50.  
  51.