home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 89xx / 8902d.d64 / dump'1520.proc < prev    next >
Text File  |  1995-03-30  |  2KB  |  120 lines
  1. 9000 //
  2. 9005 PROC DUMP1520(REVERSE,COLOR) CLOSED
  3. 9010 DIM D$ OF 1
  4. 9015 DIM MO$ OF 1
  5. 9020 DIM P$ OF 1
  6. 9025 DIM XC$ OF 3
  7. 9030 DIM YC$ OF 4
  8. 9035 DIM POS$ OF 9
  9. 9040 DIM ENDL$ OF 3
  10. 9045 IF REVERSE THEN
  11. 9050 D$:="M"; MO$:="D"
  12. 9055 ELSE 
  13. 9060 D$:="D"; MO$:="M"
  14. 9065 ENDIF 
  15. 9070 OPEN FILE 1,"",UNIT 6,1,WRITE
  16. 9075 OPEN FILE 6,"",UNIT 6,0,WRITE
  17. 9080 OPEN FILE 2,"",UNIT 6,2,WRITE
  18. 9085 OPEN FILE 7,"",UNIT 6,7,WRITE
  19. 9090 PRINT FILE 2: CHR$(COLOR+ORD("0")),
  20. 9095 //
  21. 9100 FOR I:=1 TO 10 DO
  22. 9105 PRINT FILE 6: 
  23. 9110 ENDFOR I
  24. 9115 PRINT FILE 1: " M80 199"
  25. 9120 FOR Y:=199 TO 0 STEP -2 DO
  26. 9125 YC$:=""
  27. 9130 STRPP(YC$,Y)
  28. 9135 YC$:=" "+YC$
  29. 9140 POS$:="M80"+YC$
  30. 9145 YY:=Y
  31. 9150 Z:=GETCOLOR(0,YY)
  32. 9155 PRINT FILE 1: POS$
  33. 9160 FOR I:=1 TO 2 DO
  34. 9165 IF I=1 THEN
  35. 9170 SS:=0
  36. 9175 FF:=319
  37. 9180 SP:=1
  38. 9185 ENDL$:="399"
  39. 9190 ELSE 
  40. 9195 FF:=0
  41. 9200 SS:=319
  42. 9205 SP:=-1
  43. 9210 ENDL$:="80"
  44. 9215 YY:=Y-1
  45. 9220 YC$:=""
  46. 9225 STRPP(YC$,YY)
  47. 9230 YC$:=" "+YC$
  48. 9235 POS$:="M"+"399"+YC$
  49. 9240 PRINT FILE 1: POS$
  50. 9245 ENDIF 
  51. 9250 FOR X:=SS TO FF STEP SP DO
  52. 9255 IF GETCOLOR(X,YY)<>Z THEN
  53. 9260 CASE Z OF
  54. 9265 WHEN 1
  55. 9270 P$:=MO$
  56. 9275 OTHERWISE 
  57. 9280 P$:=D$
  58. 9285 ENDCASE 
  59. 9290 XC$:=""
  60. 9295 XX:=X
  61. 9300 IF I=2 THEN XX:=XX+1
  62. 9305 STRPP(XC$,XX+80)
  63. 9310 POS$:=P$+XC$+YC$
  64. 9315 PRINT FILE 1: POS$
  65. 9320 Z:=GETCOLOR(X,YY)
  66. 9325 ENDIF 
  67. 9330 ENDFOR X
  68. 9335 Z:=GETCOLOR(319,YY)
  69. 9340 IF Z<>1 THEN
  70. 9345 POS$:=D$+ENDL$+YC$
  71. 9350 PRINT FILE 1: POS$
  72. 9355 ENDIF 
  73. 9360 Z:=GETCOLOR(319,Y-1)
  74. 9365 ENDFOR I
  75. 9370 ENDFOR Y
  76. 9375 PRINT FILE 1: "M"
  77. 9380 PRINT FILE 6: CHR$(13),CHR$(13)
  78. 9385 PRINT FILE 7: 
  79. 9390 CLOSE
  80. 9395 ENDPROC DUMP1520
  81. 9400 //
  82. 9405 PROC STRPP(REF C$,N) CLOSED
  83. 9410 DIM T$ OF 6
  84. 9415 N:=ABS(N)
  85. 9420 D:=N MOD 10
  86. 9425 T$:=T$+CHR$(D+48)
  87. 9430 IF D=N THEN
  88. 9435 C$:=C$+T$
  89. 9440 ELSE 
  90. 9445 STRPP(C$,(N-D)/10)
  91. 9450 C$:=C$+T$
  92. 9455 ENDIF 
  93. 9460 ENDPROC STRPP
  94. 9465 //
  95. 9470 PROC STR(REF C$,N) CLOSED
  96. 9475 DIM T$ OF 11, S$ OF 1, DD$ OF 5
  97. 9480 IF N<0 THEN S$:="-"
  98. 9485 N:=ABS(N)
  99. 9490 IF (N DIV 1)<>N THEN
  100. 9495 F:=INT((N*10000) MOD 10000+.5)
  101. 9500 STR(DD$,F)
  102. 9505 DD$:="."+DD$
  103. 9510 P:=LEN(DD$)
  104. 9515 WHILE DD$(P)="0" AND P>1 DO
  105. 9520 DD$:=DD$(1:P-1)
  106. 9525 P:=P-1
  107. 9530 ENDWHILE 
  108. 9535 N:=N DIV 1
  109. 9540 ENDIF 
  110. 9545 D:=N MOD 10
  111. 9550 T$:=T$+CHR$(D+48)
  112. 9555 IF D=N THEN
  113. 9560 C$:=C$+T$
  114. 9565 ELSE 
  115. 9570 STR(C$,(N-D)/10)
  116. 9575 C$:=C$+T$
  117. 9580 ENDIF 
  118. 9585 C$:=S$+C$+DD$
  119. 9590 ENDPROC STR
  120.