home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / compuserve / Basic / PRK1 < prev    next >
Text File  |  2006-10-19  |  2KB  |  61 lines
  1.  
  2. 100 REM********************************* PRK1 *********************************
  3. 110 REM  INSERT THE PRK COMMAND MODULE AND USE THE SUBPROGRAMS THAT ARE
  4. 120 REM  RESIDENT THERE TO CREATE TWO SEPARATE DISK FILES:  ONE IS THE
  5. 130 REM  PRK HEADER RECORD THAT DESCRIBES THE STRUCTURE OF THE DATA;
  6. 140 REM  THE OTHER IS A FILE OF THE DATA ITESELF.
  7. 150 REM  BEFORE LOADING THIS BASIC PROGRAM:
  8. 160 REM  MAKE SURE PRK CARTRIDGE IS INSERTED.  SELECT #1 FOR TI BASIC.
  9. 170 REM  EXECUTE THE FOLLOWING THREE BASIC COMMANDS:
  10. 180 REM     CALL FILES(1)
  11. 190 REM     CALL P(10000)
  12. 200 REM     NEW
  13. 210 REM  NOW LOAD AND RUN THE FOLLOWING PROGRAM.
  14. 220 REM=======================================================================
  15. 230 CALL L("DSK1.PRKFILE",C)
  16. 240 IF C=0 THEN 670
  17. 250 OPEN #1:"DSK1.PRKHEADER",RELATIVE,INTERNAL,OUTPUT,FIXED
  18. 260 CALL H(1,1,0,F$)
  19. 270 CALL H(1,5,0,F)
  20. 280 CALL H(1,6,0,R)
  21. 290 PRINT #1:F$,F,R
  22. 300 PRINT F$;F;R
  23. 310 FOR I=1 TO F
  24. 320 CALL H(1,9,I,F$)
  25. 330 CALL H(1,10,I,T)
  26. 340 CALL H(1,11,I,W)
  27. 350 IF T<>1 THEN 380
  28. 360 S=S+W+1
  29. 370 GOTO 390
  30. 380 S=S+9
  31. 390 CALL H(1,12,I,D)
  32. 400 PRINT #1,REC I:F$,T,W,D
  33. 410 PRINT F$;T;W;D
  34. 420 NEXT I
  35. 430 CLOSE #1
  36. 440 OPEN #1:"DSK1.PRKDATA",SEQUENTIAL,INTERNAL,OUTPUT,VARIABLE S+2
  37. 450 FOR I=1 TO R
  38. 460 PRINT I
  39. 470 FOR J=1 TO F
  40. 480 CALL H(1,10,J,T)
  41. 490 IF T=1 THEN 560
  42. 500 CALL G(1,I,J,C,D)
  43. 510 IF C=0 THEN 530
  44. 520 D=-9.9999999999999E+127
  45. 530 PRINT #1:D;
  46. 540 PRINT D;
  47. 550 GOTO 610
  48. 560 CALL G(1,I,J,C,F$)
  49. 570 IF C=0 THEN 590
  50. 580 F$="?"
  51. 590 PRINT #1:F$;
  52. 600 PRINT F$;" ";
  53. 610 NEXT J
  54. 620 PRINT #1:"@"
  55. 630 PRINT
  56. 640 NEXT I
  57. 650 CLOSE #1
  58. 660 STOP
  59. 670 PRINT "ERROR IN LOADING PRK FILE"
  60. 680 STOP
  61.