home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MAGAZINE / MISC / COMP8809.ZIP / LDM.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1988-06-02  |  2.0 KB  |  45 lines
  1. 1000  DIM X(800), Y(800), Z(800), IN%(1000), JN%(1000), OL$(18)
  2. 1010  DIM N%(18), C%(18), L%(18), D%(18)
  3. 1020  CLS
  4. 1030  LOCATE 5,1: PRINT "3-D SHAPE's Library and Directory Maker"
  5. 1040  PRINT:PRINT:PRINT "Insert the 3-D SHAPE System disk and press any key."
  6. 1050  A$=INKEY$: IF A$="" THEN 1050
  7. 1055  PRINT:PRINT:PRINT "Please wait...reading first Directory entry."
  8. 1060  OPEN "DIR" FOR INPUT AS #1: INPUT#1, NUM: INPUT#1, FL$: CLOSE 1
  9. 1070  OPEN FL$ FOR INPUT AS #1: INPUT#1, SCALFAC: INPUT#1, XE: INPUT#1, YE: INPUT#1, ZE
  10. 1080  INPUT#1, XC: INPUT#1, YC: INPUT#1, ZC: INPUT#1, LN: INPUT#1, LL
  11. 1090  INPUT#1, LO: FOR I=1 TO LN: INPUT#1, X(I): INPUT#1, Y(I): INPUT#1, Z(I)
  12. 1100  NEXT I: FOR I=1 TO LL: INPUT#1, IN%(I): INPUT#1, JN%(I): NEXT I
  13. 1110  FOR I=1 TO LO: INPUT#1, OL$(I): INPUT#1, N%(I): INPUT#1, C%(I)
  14. 1120  INPUT#1, L%(I): INPUT#1, D%(I): NEXT I: CLOSE 1
  15. 1130  PRINT: PRINT: PRINT "Remove System disk and insert destination disk."
  16. 1140  PRINT "(NOTE: Destination disk must be FORMATTED already.)
  17. 1150  PRINT "Then, press any key."
  18. 1160  A$=INKEY$: IF A$="" THEN 1160
  19. 1170  PRINT: PRINT: PRINT "Please wait...writing directory entry to destination disk."
  20. 1180  OPEN FL$ FOR OUTPUT AS #1: PRINT#1, SCALFAC: PRINT#1, XE: PRINT#1, YE: PRINT#1, ZE
  21. 1190  PRINT#1, XC: PRINT#1, YC: PRINT#1, ZC: PRINT#1, LN: PRINT#1, LL
  22. 1200  PRINT#1, LO: FOR I=1 TO LN: PRINT#1, X(I): PRINT#1, Y(I): PRINT#1, Z(I)
  23. 1210  NEXT I: FOR I=1 TO LL: PRINT#1, IN%(I): PRINT#1, JN%(I): NEXT I
  24. 1220  FOR I=1 TO LO: PRINT#1, OL$(I): PRINT#1, N%(I): PRINT#1, C%(I)
  25. 1230  PRINT#1, L%(I): PRINT#1, D%(I): NEXT I: CLOSE 1
  26. 1240  OPEN "DIR" FOR OUTPUT AS #1: PRINT#1, (1): PRINT#1, FL$: CLOSE 1
  27. 1250  PRINT:PRINT: PRINT "Remove Destination disk and insert 3-D SHAPE System disk."
  28. 1260  PRINT "Press any key."
  29. 1270  A$=INKEY$: IF A$="" THEN 1270
  30. 1280  PRINT:PRINT: PRINT "Please wait...reading first library entry."
  31. 1290  OPEN "LIBRARY" FOR INPUT AS #1: INPUT#1, NUM: INPUT#1, LI$: CLOSE 1
  32. 1300  OPEN LI$ FOR INPUT AS #1: INPUT#1, NC: INPUT#1, LC
  33. 1310  FOR I=1 TO NC: INPUT#1, X(I): INPUT#1, Y(I): INPUT#1, Z(I): NEXT I
  34. 1320  FOR I=1 TO LC: INPUT#1, IN%(I): INPUT#1, JN%(I): NEXT I: CLOSE 1
  35. 1330  PRINT: PRINT: PRINT "Remove System disk and insert destination disk."
  36. 1340  PRINT "Press any key."
  37. 1350  A$=INKEY$: IF A$="" THEN 1350
  38. 1360  PRINT: PRINT: PRINT "Please wait...writing library entry to destination disk."
  39. 1370  OPEN LI$ FOR OUTPUT AS #1: PRINT#1, NC: PRINT#1, LC
  40. 1380  FOR I=1 TO NC: PRINT#1, X(I): PRINT#1, Y(I): PRINT#1, Z(I): NEXT I
  41. 1390  FOR I=1 TO LC: PRINT#1, IN%(I): PRINT#1, JN%(I): NEXT I: CLOSE 1
  42. 1395  OPEN "LIBRARY" FOR OUTPUT AS #1: PRINT#1, (1): PRINT#1, LI$
  43. 1400  PRINT: PRINT: PRINT "Operation complete."
  44. 1410  END
  45.