home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / compuserve / Basic / PRK2 < prev    next >
Text File  |  2006-10-19  |  2KB  |  60 lines
  1.  
  2. 8 REM********************************** PRK2 *********************************
  3. 10 REM  THE FOLLOWING BASIC PROGRAM TAKES THE HEADER AND DATA FILES
  4. 12 REM  CREATED IN "PRK1" AND CONVERTS THEM BACK INTO
  5. 14 REM  PRK FILES WHICH CAN BE SAVED BY THE PRK SAVE ROUTINE.
  6. 16 REM
  7. 18 REM  BEFORE RUNNING THE PROGRAM, ENSURE THAT THE PRK CARTRIDGE IS INSERTED,
  8. 20 REM  SELECT OPTION #1 FOR TI BASIC, AND EXECUTE THE FOLLOWING COMMANDS:
  9. 22 REM
  10. 24 REM     CALL FILES(1)
  11. 26 REM     CALL P(10000)
  12. 28 REM     NEW
  13. 30 REM
  14. 32 REM
  15. 34 REM
  16. 36 REM========================================================================
  17. 100 OPEN #1:"DSK1.PRKHEADER",RELATIVE,INTERNAL,INPUT ,FIXED
  18. 110 INPUT #1:F$,F,R
  19. 120 PRINT F$:F:R
  20. 130 CALL H(0,1,0,F$)
  21. 140 FOR I=1 TO F
  22. 150 INPUT #1,REC I:F$,T,W,D
  23. 160 PRINT F$:T;W;D
  24. 170 CALL H(0,9,I,F$)
  25. 180 CALL H(0,10,I,T)
  26. 190 IF T=4 THEN 220
  27. 200 CALL H(0,12,I,D)
  28. 210 IF T<3 THEN 230
  29. 220 CALL H(0,12,I,D)
  30. 230 NEXT I
  31. 240 CLOSE #1
  32. 250 OPEN #1:"DSK1.PRKDATA",SEQUENTIAL,INTERNAL,INPUT ,VARIABLE
  33. 260 FOR I=1 TO R
  34. 270 PRINT I
  35. 280 FOR J=1 TO F
  36. 290 CALL H(1,10,J,T)
  37. 300 IF T=1 THEN 380
  38. 310 INPUT #1:D;
  39. 320 PRINT D;
  40. 330 IF D=-9.9999999999999E+127 THEN 360
  41. 340 CALL G(0,I,J,D)
  42. 350 GOTO 440
  43. 360 CALL G(2,I,J,D)
  44. 370 GOTO 440
  45. 380 INPUT #1:F$;
  46. 390 PRINT F$;" ";
  47. 400 IF F$="?" THEN 430
  48. 410 CALL G(0,I,J,F$)
  49. 420 GOTO 440
  50. 430 CALL G(2,I,J,F$)
  51. 440 NEXT J
  52. 450 INPUT #1:F$
  53. 460 PRINT F$
  54. 470 NEXT I
  55. 480 CLOSE #1
  56. 490 CALL S("DSK1.PRKFILE",C)
  57. 500 IF C,.0 THEN 520
  58. 510 PRINT "ERROR IN SAVING PRK FILE!!"
  59. 520 STOP
  60.