home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib29a.dsk / DECEMBER.1986 / MAKE.TRK.DATA.bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  50 lines
  1. 10  REM  **********************
  2. 20  REM  *   MAKE.TRK.DATA    *
  3. 30  REM  *  BY COLIN FRENCH   *
  4. 40  REM  * COPYRIGHT (C) 1986 *
  5. 50  REM  * BY MICROSPARC, INC *
  6. 60  REM  * CONCORD, MA  01742 *
  7. 70  REM  **********************
  8. 80  ONERR  GOTO 500
  9. 90  TEXT : HOME : VTAB 5: PRINT "=== FORMULA NIBBLE TRACK GENERATOR ===": PRINT 
  10. 100  PRINT "WORKING ";
  11. 110 ADD = 32768: REM -START OF TRK.CURVE.DATA AREA-
  12. 120  READ NL,C: REM  -LOOP LIMIT & CURVE VALUE-
  13. 130  IF NL <0  THEN  PRINT : GOTO 160
  14. 140  FOR N = 0 TO NL -1: POKE ADD +N,C: NEXT 
  15. 150 ADD = ADD +NL: PRINT ".";: GOTO 120
  16. 160  TEXT : HOME : VTAB 5: IF ADD < >35840  THEN  PRINT "ERROR IN DATA STATEMENTS.": END 
  17. 170  PRINT "TRACKS ALL DONE!": PRINT 
  18. 180  PRINT "INSERT DISK YOU WANT TO SAVE THE CURVE"
  19. 190  PRINT "DATA ON AND PRESS <RETURN> ";: GET Z$: PRINT 
  20. 200  PRINT  CHR$(4)"BSAVE TRK.CURVE.DATA,A$8000,L$C00"
  21. 210  PRINT "SAVE COMPLETED.": END 
  22. 220  REM   ---MONACO DATA---
  23. 230  DATA  32,16,16,64,56,0,16,208
  24. 240  DATA  12,176,20,96,16,0,16,96
  25. 250  DATA  16,0,16,144,16,112,16,80
  26. 260  DATA  8,48,8,48,48,32,56,0,16,176
  27. 270  DATA  8,160,8,96,8,0,8,96,8,160
  28. 280  DATA  8,0,12,224,16,112,28,48
  29. 290  DATA  24,16,512,0
  30. 300  REM   ---DETROIT DATA---
  31. 310  DATA  32,0,12,176,8,0,12,76
  32. 320  DATA  16,16,24,0,16,80,8,0
  33. 330  DATA  16,80,48,208,8,176,24,16
  34. 340  DATA  32,240,24,176,16,80,88,0
  35. 350  DATA  12,176,12,80,56,0,24,176
  36. 360  DATA  16,80,8,0,8,0,24,48
  37. 370  DATA  16,144,16,32,40,0,32,16
  38. 380  DATA  32,224,8,192,16,64,8,192
  39. 390  DATA  56,0,256,0
  40. 400  REM   ---MONTREAL DATA---
  41. 410  DATA  40,0,16,48,24,0,8,208
  42. 420  DATA  24,0,8,48,40,0,8,48
  43. 430  DATA  16,208,24,0,16,208,8,48
  44. 440  DATA  24,0,16,208,40,80,24,0
  45. 450  DATA  64,32,32,0,24,176,32,80
  46. 460  DATA  24,0,24,0,16,48,24,0
  47. 470  DATA  24,208,80,0,40,96,16,0
  48. 480  DATA  32,224,256,0
  49. 490  DATA  -1,-1
  50. 500  HOME : TEXT : VTAB 12: PRINT "ERROR " PEEK(222)" IN LINE " PEEK(218) +256 * PEEK(219): END