home *** CD-ROM | disk | FTP | other *** search
/ Softdisk G-S 131 / SGDS 131.2mg / SDGS.131 / SDC131 / C / PS.GRABBER (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1992-08-23  |  2.9 KB  |  145 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 0  ROT= 0: SPEED= 255
  2. 100  PRINT  CHR$(21): IF  PEEK(104) < >8  THEN  POKE 104,8: POKE 2048,0: PRINT  CHR$(4)"-ps.grabber"
  3. 110  HGR2 : CALL 2304: POKE 48688, PEEK(0): POKE 48689, PEEK(1): PRINT  CHR$(4)"-piracy.rpk": REM 2260
  4. 140  POKE 104,96: POKE 24576,0: POKE 105,1: PRINT  CHR$(4)"-grabber"
  5. 150  CALL 2281: PRINT  CHR$(4)"BYE"d"BYE"d SPEED= <CTRL-0x08> DEL h`8 <CTRL-0x1f><UNKNOWN TOKEN> GOSUB <CTRL-0x02> HGR2 <CTRL-0x01>` IF ^ TAB(  IF ) TAB( <CTRL-0x09>  PLOT ) TAB( `8 <CTRL-0x1f><UNKNOWN TOKEN> GOSUB <CTRL-0x02> HGR2 <CTRL-0x01>` IF _ TAB(  IF ) TAB( ) SIN PLOT ) TAB( `"
  6. 36286  <<CTRL-0x09> IF 1 GET  PLOT  SGN<CTRL-0x09> SPEED= 3 DEL 
  7. 389  SPEED= 
  8. 20653  TAB(  IF R TAB(  IF W TAB(  ONERR  ASC -@ = <CTRL-0x04> IF U TAB( ` IF T TAB(  SPEED=   DEL  ASC`) PLOT  PLOT <CTRL-0x09> J<UNKNOWN TOKEN> ONERR <UNKNOWN TOKEN>H ONERR  STR$) END  DEL <UNKNOWN TOKEN> IF  PLOT <CTRL-0x09> -  HGR2 u ONERR %  TO <UNKNOWN TOKEN> DEL & ONERR )8 RIGHT$<CTRL-0x04><CTRL-0x18>e ASC DEL '<CTRL-0x18> ONERR  e$e& DEL & SPEED= 
  9. 3593  PLOT <CTRL-0x09>. HLIN <CTRL-0x09><CTRL-0x0e> PLOT <CTRL-0x09>. HLIN <CTRL-0x09><CTRL-0x0e> PLOT <CTRL-0x09>. HLIN <CTRL-0x09> ONERR <UNKNOWN TOKEN>)<CTRL-0x0f>i<CTRL-0x09>m HLIN <CTRL-0x09> PLOT  HLIN <CTRL-0x09> VTAB 
  10. 3517 <CTRL-0x0c>H ONERR 2 -? = <CTRL-0x04>hIHh PLOT <UNKNOWN TOKEN><CTRL-0x09> LOMEM: <UNKNOWN TOKEN> TAB( <CTRL-0x03> HGR2 <CTRL-0x07> COLOR= 
  11. 64333 <CTRL-0x09> COLOR= 
  12. 9873 <CTRL-0x18> SPEED= <CTRL-0x04>e' DEL ' LEFT$ TAN<CTRL-0x08> =  > ?<UNKNOWN TOKEN> -<CTRL-0x0c><UNKNOWN TOKEN><CTRL-0x0f> -<CTRL-0x14><UNKNOWN TOKEN>"h DEL <UNKNOWN TOKEN> ?<UNKNOWN TOKEN><CTRL-0x09> END L<UNKNOWN TOKEN><UNKNOWN TOKEN> X<UNKNOWN TOKEN>8 ONERR # VAL" STORE  RESUME ! J<UNKNOWN TOKEN> GR  = <UNKNOWN TOKEN> X<UNKNOWN TOKEN>L +<CTRL-0x09> SPEED= 
  13. 8837  SPEED= ( DEL ! SPEED= <CTRL-0x18> DEL #L +<CTRL-0x09>
  14. 3084 <CTRL-0x0c>
  15. 13056 33
  16. 13951 66
  17. 3902 <<CTRL-0x1f><CTRL-0x0c>3<CTRL-0x18><CTRL-0x0c><CTRL-0x06>3>3<CTRL-0x06>3>
  18. 3096 
  19. 3084 <CTRL-0x0c><CTRL-0x0c><CTRL-0x18>
  20. 3084 <CTRL-0x0c><CTRL-0x0c><CTRL-0x06><CTRL-0x1e><CTRL-0x0c>?<CTRL-0x0c><CTRL-0x1e><CTRL-0x0c><CTRL-0x0c>?<CTRL-0x0c><CTRL-0x0c><CTRL-0x1c><CTRL-0x18><CTRL-0x0c>
  21. 0 
  22. 28 
  23. 3096 <CTRL-0x06><CTRL-0x03>
  24. 13107 33<CTRL-0x0c>
  25. 3086 <CTRL-0x0c><CTRL-0x0c><CTRL-0x1e>
  26. 12339 <CTRL-0x0c><CTRL-0x06>?
  27. 7216 00<CTRL-0x1f>
  28. 13107 ?00
  29. 7939 00<CTRL-0x1f>
  30. 7939 33<CTRL-0x1e>
  31. 6168 <CTRL-0x0c><CTRL-0x0c><CTRL-0x0c>
  32. 7731 33<CTRL-0x1e>
  33. 13107 >0<CTRL-0x1e>
  34. 3072 
  35. 6144 <CTRL-0x0c>
  36. 1548 <CTRL-0x0c><CTRL-0x18>
  37. 30 <CTRL-0x06><CTRL-0x0c><CTRL-0x18><CTRL-0x0c><CTRL-0x06>
  38. 6168 <CTRL-0x0c>
  39. 7680 3??<CTRL-0x03><CTRL-0x1e>
  40. 13107 ?33
  41. 7987 33<CTRL-0x1f>
  42. 819 <CTRL-0x03>3<CTRL-0x1e>
  43. 13107 33<CTRL-0x1f>
  44. 3843 <CTRL-0x03><CTRL-0x03>?
  45. 771 <CTRL-0x0f><CTRL-0x03><CTRL-0x03>
  46. 771 33>
  47. 13107 ?33
  48. 3084 <CTRL-0x0c><CTRL-0x0c><CTRL-0x1e>
  49. 12336 03<CTRL-0x1e>
  50. 3871 <CTRL-0x1f>33
  51. 771 <CTRL-0x03><CTRL-0x03>?
  52. 16191 333
  53. 13107 333
  54. 13107 33<CTRL-0x1e>
  55. 13107 <CTRL-0x1f><CTRL-0x03><CTRL-0x03>
  56. 13107 3?<CTRL-0x1e>8
  57. 7987 <CTRL-0x1f>3
  58. 7683 00<CTRL-0x1f>
  59. 3084 <CTRL-0x0c><CTRL-0x0c><CTRL-0x0c>
  60. 13107 33<CTRL-0x1e>
  61. 13107 3<CTRL-0x1e><CTRL-0x0c>
  62. 13107 ??3
  63. 3102 <CTRL-0x1e>33
  64. 13107 <CTRL-0x1e><CTRL-0x0c><CTRL-0x0c>
  65. 6192 <CTRL-0x06><CTRL-0x03>?
  66. 32526 <CTRL-0x0e><CTRL-0x0c><CTRL-0x1c>>><CTRL-0x1c><CTRL-0x18>88<CTRL-0x18>
  67. 7295 <CTRL-0x1c><CTRL-0x1c><CTRL-0x1c>
  68. 7168 <CTRL-0x1c><CTRL-0x1c><CTRL-0x1c>><CTRL-0x1c>
  69. 13107 3>
  70. 13087 33<CTRL-0x1f><CTRL-0x1e><CTRL-0x03><CTRL-0x03><CTRL-0x03><CTRL-0x1e>
  71. 13118 33><CTRL-0x1e>3?<CTRL-0x03>>
  72. 1542 <CTRL-0x1f><CTRL-0x06><CTRL-0x06>>33>0<CTRL-0x1e>
  73. 13107 33
  74. 3584 <CTRL-0x0c><CTRL-0x0c><CTRL-0x1e>
  75. 6144 <CTRL-0x18><CTRL-0x18><CTRL-0x18><CTRL-0x0e>
  76. 3871 <CTRL-0x1f>3
  77. 3084 <CTRL-0x0c><CTRL-0x0c><CTRL-0x1e>???33<CTRL-0x1f>3333<CTRL-0x1e>333<CTRL-0x1e><CTRL-0x1f>333<CTRL-0x1f><CTRL-0x03>
  78. 13107 3>0
  79. 771 <CTRL-0x03><CTRL-0x03>><CTRL-0x03><CTRL-0x1e>0<CTRL-0x1f>
  80. 1567 <CTRL-0x06><CTRL-0x06><CTRL-0x1c>3333>333<CTRL-0x1e><CTRL-0x0c>33???3<CTRL-0x1e><CTRL-0x0c><CTRL-0x1e>3333>0<CTRL-0x1e>
  81. 3096 <CTRL-0x06>?
  82. 771 <CTRL-0x03><CTRL-0x03>
  83. 3084 <CTRL-0x0c><CTRL-0x0c><CTRL-0x0c><CTRL-0x0c>
  84. 24672 `
  85. 13107 3???????
  86. 8205  GET  COS <UNKNOWN TOKEN> ASC0<CTRL-0x1f> TAN<CTRL-0x04> GOSUB <CTRL-0x1b> CLEAR +<CTRL-0x0d> DEL <CTRL-0x07> CLEAR /<CTRL-0x0d> DEL <CTRL-0x06> SPEED= <CTRL-0x0e> DEL ' SPEED= 
  87. 12960  RETURN <CTRL-0x06> HGR & GR <CTRL-0x10><UNKNOWN TOKEN>`<CTRL-0x0e><CTRL-0x0e><CTRL-0x0e><CTRL-0x0e>3f SCALE=  ^ VTAB <CTRL-0x03> DIM <CTRL-0x06>  GET  COS <UNKNOWN TOKEN> ASC PR#  RESUME <CTRL-0x06> XDRAW 
  88. 50928 <CTRL-0x03>0}  NOT <CTRL-0x02>0y ONERR <CTRL-0x01> -<CTRL-0x03> HGR2 s<CTRL-0x18>e<CTRL-0x03> -) GOSUB l ONERR 
  89. 26256 <CTRL-0x18>e<CTRL-0x02> -<CTRL-0x19> GOSUB _ DEL # ONERR <CTRL-0x02> DEL " ONERR <CTRL-0x01> DEL ! ONERR <CTRL-0x03> DEL   ASC  ASC"  NOT !  NOT !  ASC<CTRL-0x0d> COLOR= <CTRL-0x18> VTAB <CTRL-0x03> GR  POKE <CTRL-0x1b><CTRL-0x0e> XDRAW <CTRL-0x06> * = <UNKNOWN TOKEN>   STEP <CTRL-0x0d> = <UNKNOWN TOKEN> VTAB <CTRL-0x03> CLEAR <CTRL-0x17><CTRL-0x0e> XDRAW <CTRL-0x06> * = <UNKNOWN TOKEN>  ASC<CTRL-0x0d> ONERR <CTRL-0x02> AT # GOSUB <CTRL-0x0a> COLOR= <CTRL-0x08> GR    STEP <CTRL-0x0d> = <UNKNOWN TOKEN><UNKNOWN TOKEN><UNKNOWN TOKEN> COLOR= <CTRL-0x18> VTAB <CTRL-0x03> GR  POKE 
  90. 51718  = <UNKNOWN TOKEN>   STEP <CTRL-0x0d> = <UNKNOWN TOKEN>  NOT # X<UNKNOWN TOKEN>` INPUT <CTRL-0x06> ONERR <CTRL-0x09> LOMEM: <CTRL-0x01> GR  HGR <UNKNOWN TOKEN> GR  ONERR <CTRL-0x08> HGR <UNKNOWN TOKEN> GR  = <UNKNOWN TOKEN> ONERR <CTRL-0x07> HGR <UNKNOWN TOKEN><CTRL-0x18> ONERR <UNKNOWN TOKEN>i<CTRL-0x04> DEL <UNKNOWN TOKEN> LOMEM: <CTRL-0x06>` ONERR <CTRL-0x02> ASC<CTRL-0x02>  TO <UNKNOWN TOKEN> ONERR )8 RIGHT$<CTRL-0x04><CTRL-0x18>e ASC DEL <UNKNOWN TOKEN> ONERR (e<CTRL-0x03> DEL <UNKNOWN TOKEN>`
  91. 32639 <CTRL-0x07>
  92. 24576 scscscscsc<CTRL-0x03>
  93. 32639 <CTRL-0x1f>
  94. 24576 <CTRL-0x03>
  95. 24959 sasasasasasasasysy<CTRL-0x03>
  96. 32639 <CTRL-0x07>
  97. 28672 CpcqcqcqcqcqcqcqcqCp<CTRL-0x03>
  98. 30720 <CTRL-0x0f>
  99. 25471 yO<CTRL-0x1c>
  100. 6527 L<CTRL-0x19>L<CTRL-0x19>L<CTRL-0x19>L<CTRL-0x19><CTRL-0x1c>
  101. 20351 cc<CTRL-0x0f>
  102. 32639 <CTRL-0x07>
  103. 24576 scscscscsc<CTRL-0x03>
  104. 32639 eL LOMEM: <CTRL-0x0f>L NORMAL <CTRL-0x10>L POKE <CTRL-0x10>L<UNKNOWN TOKEN><CTRL-0x10>LG<CTRL-0x11><CTRL-0x01>
  105. 11565 -------------------------------------------666666666666666666666666666?????????????????????????????????????????????$$$$$$$$$$$$$$$$$$$$$$$$$$$
  106. 43519  POP  PLOT <CTRL-0x14><CTRL-0x10> SPEED= <CTRL-0x13> PLOT <CTRL-0x15><CTRL-0x10> ONERR 
  107. 36148  DEL <CTRL-0x11> RESUME 
  108. 2322   DEL <CTRL-0x19> CLEAR  TAB( <CTRL-0x12><CTRL-0x18>e<CTRL-0x01> DEL <CTRL-0x18> RESUME <CTRL-0x02> HLIN  DIM <CTRL-0x11> COLOR= 
  109. 45329 <CTRL-0x18>) DEL & CLEAR z<CTRL-0x11>I<UNKNOWN TOKEN>%&L VAL<CTRL-0x0f>J *<CTRL-0x10><UNKNOWN TOKEN> DEL & SPEED= 
  110. 61457 <CTRL-0x09> RUN  INPUT <CTRL-0x11> RETURN <CTRL-0x18>) DEL & RESTORE  DIM <CTRL-0x11> RUN  INPUT <CTRL-0x11> + RETURN <CTRL-0x18> DEL '<CTRL-0x18>={<CTRL-0x11>jj *<CTRL-0x10><UNKNOWN TOKEN><CTRL-0x05>& RUN  DATA <CTRL-0x11> SCALE=  POP <CTRL-0x13> ONERR ') RESTORE  DIM <CTRL-0x11>J *<CTRL-0x10><UNKNOWN TOKEN> DEL &<UNKNOWN TOKEN> INPUT <CTRL-0x11><UNKNOWN TOKEN> DIM <CTRL-0x11> IF  DIM <CTRL-0x11> -<CTRL-0x08> = <CTRL-0x07> SPEED= 
  111. 61457  PRINT <UNKNOWN TOKEN> DATA <CTRL-0x11> IF  DATA <CTRL-0x11> -<CTRL-0x0b> =  POKE  IF <CTRL-0x14><CTRL-0x10><CTRL-0x18>i<CTRL-0x0b> PLOT <CTRL-0x14><CTRL-0x10> IF <CTRL-0x15><CTRL-0x10>i
  112. 58896 
  113. 34253 <CTRL-0x11><UNKNOWN TOKEN><CTRL-0x03>L POKE <CTRL-0x0f> SPEED= 
  114. 43281 <CTRL-0x13> DEL <CTRL-0x19> SPEED=  POP  DEL <CTRL-0x18> COLOR= 
  115. 1954 *f& *<CTRL-0x10><UNKNOWN TOKEN> ONERR &I<UNKNOWN TOKEN> HGR <CTRL-0x18> + TAB( <CTRL-0x0b> = <UNKNOWN TOKEN> ONERR <CTRL-0x18><CTRL-0x18>i<CTRL-0x0b> DEL <CTRL-0x18> ONERR <CTRL-0x19>i
  116. 34030 <CTRL-0x11> IF  INPUT <CTRL-0x11> -4 =  SGN ?<UNKNOWN TOKEN>` 
  117. 4277  COLOR= 
  118. 10498 <CTRL-0x0f> SCALE= 
  119. 26904 <CTRL-0x10> STORE  = <UNKNOWN TOKEN>`<CTRL-0x02>
  120. 160  SPEED= <UNKNOWN TOKEN> DEL <CTRL-0x01> SPEED= <CTRL-0x15> DEL <CTRL-0x02> ONERR 
  121. 32953 <CTRL-0x13> HGR <CTRL-0x01> + TAB( ! = <UNKNOWN TOKEN> COLOR= 
  122. 26904 ! DEL <CTRL-0x01> HGR2 <CTRL-0x02> ASC<CTRL-0x02> POKE  POP <CTRL-0x13> HGR <CTRL-0x01> + = <UNKNOWN TOKEN> ASC<CTRL-0x02> POKE  POP <CTRL-0x14> HGR <CTRL-0x01> + = <UNKNOWN TOKEN> ASC<CTRL-0x02> POKE  POP <CTRL-0x15> HGR <CTRL-0x01> + TAB( @ = <UNKNOWN TOKEN>` COLOR= 
  123. 2256  DEL 
  124. 389  = <CTRL-0x08> SPEED= <CTRL-0x07> DEL 
  125. 389  RETURN 
  126. 5630  HGR 
  127. 5630  + = <UNKNOWN TOKEN> ASC<CTRL-0x01> RETURN 
  128. 5886  HGR 
  129. 5886  + = <UNKNOWN TOKEN> ASC<CTRL-0x01> RETURN 
  130. 6142  HGR 
  131. 6142  + TAB( a = <UNKNOWN TOKEN>` 
  132. 4456  SPEED= <CTRL-0x07> PLOT h<CTRL-0x11> SPEED= <CTRL-0x07> PLOT m<CTRL-0x11> SPEED= 0 PLOT n<CTRL-0x11> 
  133. 4456  SPEED= <CTRL-0x0a> PLOT h<CTRL-0x11>`<CTRL-0x0a>
  134. 0 
  135. 3847 <CTRL-0x1f>?<CTRL-0x04><CTRL-0x08><CTRL-0x0c><CTRL-0x10><CTRL-0x14><CTRL-0x18><CTRL-0x1c>
  136. 4108 <CTRL-0x14><CTRL-0x18><CTRL-0x1c><CTRL-0x01><CTRL-0x05><CTRL-0x09><CTRL-0x0d><CTRL-0x11><CTRL-0x15><CTRL-0x19><CTRL-0x1d><CTRL-0x01><CTRL-0x05><CTRL-0x09><CTRL-0x0d><CTRL-0x11><CTRL-0x15><CTRL-0x19><CTRL-0x1d><CTRL-0x02><CTRL-0x06><CTRL-0x0a><CTRL-0x0e><CTRL-0x12><CTRL-0x16><CTRL-0x1a><CTRL-0x1e><CTRL-0x02><CTRL-0x06><CTRL-0x0a><CTRL-0x0e><CTRL-0x12><CTRL-0x16><CTRL-0x1a><CTRL-0x1e><CTRL-0x03><CTRL-0x07><CTRL-0x0b><CTRL-0x0f><CTRL-0x13><CTRL-0x17><CTRL-0x1b><CTRL-0x1f><CTRL-0x03><CTRL-0x07><CTRL-0x0b><CTRL-0x0f><CTRL-0x13><CTRL-0x17><CTRL-0x1b><CTRL-0x1f>
  137. 4108 <CTRL-0x14><CTRL-0x18><CTRL-0x1c>
  138. 4108 <CTRL-0x14><CTRL-0x18><CTRL-0x1c><CTRL-0x01><CTRL-0x05><CTRL-0x09><CTRL-0x0d><CTRL-0x11><CTRL-0x15><CTRL-0x19><CTRL-0x1d><CTRL-0x01><CTRL-0x05><CTRL-0x09><CTRL-0x0d><CTRL-0x11><CTRL-0x15><CTRL-0x19><CTRL-0x1d><CTRL-0x02><CTRL-0x06><CTRL-0x0a><CTRL-0x0e><CTRL-0x12><CTRL-0x16><CTRL-0x1a><CTRL-0x1e><CTRL-0x02><CTRL-0x06><CTRL-0x0a><CTRL-0x0e><CTRL-0x12><CTRL-0x16><CTRL-0x1a><CTRL-0x1e><CTRL-0x03><CTRL-0x07><CTRL-0x0b><CTRL-0x0f><CTRL-0x13><CTRL-0x17><CTRL-0x1b><CTRL-0x1f><CTRL-0x03><CTRL-0x07><CTRL-0x0b><CTRL-0x0f><CTRL-0x13><CTRL-0x17><CTRL-0x1b><CTRL-0x1f>
  139. 4108 <CTRL-0x14><CTRL-0x18><CTRL-0x1c>
  140. 4108 <CTRL-0x14><CTRL-0x18><CTRL-0x1c><CTRL-0x01><CTRL-0x05><CTRL-0x09><CTRL-0x0d><CTRL-0x11><CTRL-0x15><CTRL-0x19><CTRL-0x1d><CTRL-0x01><CTRL-0x05><CTRL-0x09><CTRL-0x0d><CTRL-0x11><CTRL-0x15><CTRL-0x19><CTRL-0x1d><CTRL-0x02><CTRL-0x06><CTRL-0x0a><CTRL-0x0e><CTRL-0x12><CTRL-0x16><CTRL-0x1a><CTRL-0x1e><CTRL-0x02><CTRL-0x06><CTRL-0x0a><CTRL-0x0e><CTRL-0x12><CTRL-0x16><CTRL-0x1a><CTRL-0x1e><CTRL-0x03><CTRL-0x07><CTRL-0x0b><CTRL-0x0f><CTRL-0x13><CTRL-0x17><CTRL-0x1b><CTRL-0x1f><CTRL-0x03><CTRL-0x07><CTRL-0x0b><CTRL-0x0f><CTRL-0x13><CTRL-0x17><CTRL-0x1b><CTRL-0x1f>
  141. 32896  END  END  END  END  END 
  142. 32896  END  END  END  END  END 
  143. 32896  END  END  END  END  END 
  144. 32896  END  END  END  END  END (((((((( STORE  STORE  STORE  STORE  STORE  STORE  STORE  STORE (((((((( STORE  STORE  STORE  STORE  STORE  STORE  STORE  STORE (((((((( STORE  STORE  STORE  STORE  STORE  STORE  STORE  STORE (((((((( STORE  STORE  STORE  STORE  STORE  STORE  STORE  STORE PPPPPPPP =  =  =  =  =  =  =  = PPPPPPPP =  =  =  =  =  =  =  = PPPPPPPP =  =  =  =  =  =  =  = PPPPPPPP =  =  =  =  =  =  =  = <CTRL-0x07>0X
  145. 584 <CTRL-0x15><CTRL-0x0c>